|
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
Length: 1333248 (0x145800)
Types: Rc489kSubCat
Names: »kkmon3filer«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kkmon3filer«
0x000000…000033 (0,) Rc489kSubCatEnt {f00=0x00284b, f01=0x0007e4, f02=0x0007ed, filename=»kkmonret3 «, entry_tail=0-4-0-40-1983-02-16T09:19-disc3-0x0-0x0-0x0-0x0}
0x000033…000066 Rc489kSubCatEnt {f00=0x02ad73, f01=0x0007e4, f02=0x0007ed, filename=»kkopt3 «, entry_tail=0-4-0-31-1983-02-08T16:20-disc3-0x0-0x0-0x0-0x0}
0x000066…000099 Rc489kSubCatEnt {f00=0x04940a, f01=0x0007e4, f02=0x0007ed, filename=»moncentral «, entry_tail=0-4-0-88-1982-10-07T10:43-disc1-0x0-0x0-0x0-0x0}
0x000099…0000cc Rc489kSubCatEnt {f00=0x0a12c2, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc1 «, entry_tail=0-4-0-84-1982-10-07T10:44-disc1-0x0-0x0-0x0-0x0}
0x0000cc…0000ff Rc489kSubCatEnt {f00=0x0f545a, f01=0x0007e4, f02=0x0007ed, filename=»montabinit «, entry_tail=0-4-0-24-1982-08-19T14:52-disc1-0x0-0x0-0x0-0x0}
0x0000ff…000132 Rc489kSubCatEnt {f00=0x10d143, f01=0x0007e4, f02=0x0007ed, filename=»moncatinit «, entry_tail=0-4-0-124-1982-03-22T10:19-disc3-0x0-0x0-0x0-0x0}
0x000132…000165 Rc489kSubCatEnt {f00=0x18956b, f01=0x0007e4, f02=0x0007ed, filename=»kklistopt3 «, entry_tail=0-4-0-23-1982-02-23T13:48-disc3-0x0-0x0-0x0-0x0}
0x000165…000198 Rc489kSubCatEnt {f00=0x1a0a2a, f01=0x0007e4, f02=0x0007ed, filename=»mondef «, entry_tail=0-4-0-31-1982-02-23T08:52-disc3-0x0-0x0-0x0-0x0}
0x000198…0001cb Rc489kSubCatEnt {f00=0x1bf602, f01=0x0007e4, f02=0x0007ed, filename=»monprocs «, entry_tail=0-4-0-253-1982-02-23T08:53-disc3-0x0-0x0-0x0-0x0}
0x0001cb…0001fe Rc489kSubCatEnt {f00=0x2bc5a2, f01=0x0007e4, f02=0x0007ed, filename=»mondisc «, entry_tail=0-4-0-158-1982-02-10T09:04-disc1-0x0-0x0-0x0-0x0}
0x0001fe…000231 Rc489kSubCatEnt {f00=0x35adca, f01=0x0007e4, f02=0x0007ed, filename=»monfpaline «, entry_tail=0-4-0-130-1982-02-10T09:04-disc1-0x0-0x0-0x0-0x0}
0x000231…000264 Rc489kSubCatEnt {f00=0x3dc232, f01=0x0007e4, f02=0x0007ed, filename=»monhost «, entry_tail=0-4-0-83-1982-02-23T08:53-disc3-0x0-0x0-0x0-0x0}
0x000264…000297 Rc489kSubCatEnt {f00=0x42fbc2, f01=0x0007e4, f02=0x0007ed, filename=»monfpasub «, entry_tail=0-4-0-165-1982-02-23T08:54-disc3-0x0-0x0-0x0-0x0}
0x000297…0002ca Rc489kSubCatEnt {f00=0x4d4ac2, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc2 «, entry_tail=0-4-0-247-1982-02-23T08:54-disc3-0x0-0x0-0x0-0x0}
0x0002ca…0002fd Rc489kSubCatEnt {f00=0x5cb422, f01=0x0007e4, f02=0x0007ed, filename=»mons1 «, entry_tail=0-4-0-91-1982-02-23T08:55-disc3-0x0-0x0-0x0-0x0}
0x0002fd…000300 0x000012
0x000300…000333 Rc489kSubCatEnt {f00=0x626c22, f01=0x0007e4, f02=0x0007ed, filename=»mons2 «, entry_tail=0-4-0-98-1982-02-23T08:55-disc3-0x0-0x0-0x0-0x0}
0x000333…000366 Rc489kSubCatEnt {f00=0x688262, f01=0x0007e4, f02=0x0007ed, filename=»kkiccmtxt «, entry_tail=0-4-0-42-1981-08-12T11:42-disc1-0x0-0x0-0x0-0x0}
0x000366…000399 Rc489kSubCatEnt {f00=0x6b2a2b, f01=0x0007e4, f02=0x0007ed, filename=»inf3 «, entry_tail=0-4-0-1-1980-10-21T13:08-disc1-0x0-0x0-0x0-0x0}
0x000399…0003a0 0a 12 c2 00 07 e4 00 ┆ ┆
0x0003a0…0003c0 07 ed 6d 6f 6e 70 72 6f 63 66 6e 63 31 00 00 00 54 64 69 73 63 31 00 00 00 00 00 00 00 87 9f 40 ┆ monprocfnc1 Tdisc1 @┆
0x0003c0…0003e0 00 00 00 00 00 00 00 00 00 00 00 00 0f 54 5a 00 07 e4 00 07 ed 6d 6f 6e 74 61 62 69 6e 69 74 00 ┆ TZ montabinit ┆
0x0003e0…000400 00 00 00 18 64 69 73 63 31 00 00 00 00 00 00 00 86 64 ee 00 00 00 00 00 00 00 00 00 00 00 00 10 ┆ disc1 d ┆
0x000400…000420 d1 43 00 07 e4 00 07 ed 6d 6f 6e 63 61 74 69 6e 69 74 00 00 00 00 7c 64 69 73 63 33 00 00 00 00 ┆ C moncatinit ødisc3 ┆
0x000420…000440 00 00 00 82 9e 1d 00 00 00 00 00 00 00 00 00 00 00 00 18 95 6b 00 07 e4 00 07 ed 6b 6b 6c 69 73 ┆ k kklis┆
0x000440…000460 74 6f 70 74 33 00 00 00 00 17 64 69 73 63 33 00 00 00 00 00 00 00 81 f1 3e 00 00 00 00 00 00 00 ┆topt3 disc3 > ┆
0x000460…000480 00 00 00 00 00 1a 0a 2a 00 07 e4 00 07 ed 6d 6f 6e 64 65 66 00 00 00 00 00 00 00 00 1f 64 69 73 ┆ * mondef dis┆
0x000480…0004a0 63 33 00 00 00 00 00 00 00 81 ef eb 00 00 00 00 00 00 00 00 00 00 00 00 1b f6 02 00 07 e4 00 07 ┆c3 ┆
0x0004a0…0004c0 ed 6d 6f 6e 70 72 6f 63 73 00 00 00 00 00 00 fd 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ec 00 ┆ monprocs disc3 ┆
0x0004c0…0004e0 00 00 00 00 00 00 00 00 00 00 00 2b c5 a2 00 07 e4 00 07 ed 6d 6f 6e 64 69 73 63 00 00 00 00 00 ┆ + mondisc ┆
0x0004e0…000500 00 00 9e 64 69 73 63 31 00 00 00 00 00 00 00 81 9c 49 00 00 00 00 00 00 00 00 00 00 00 00 35 ad ┆ disc1 I 5 ┆
0x000500…000520 ca 00 07 e4 00 07 ed 6d 6f 6e 66 70 61 6c 69 6e 65 00 00 00 00 82 64 69 73 63 31 00 00 00 00 00 ┆ monfpaline disc1 ┆
0x000520…000540 00 00 81 9c 49 00 00 00 00 00 00 00 00 00 00 00 00 3d c2 32 00 07 e4 00 07 ed 6d 6f 6e 68 6f 73 ┆ I = 2 monhos┆
0x000540…000560 74 00 00 00 00 00 00 00 53 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ec 00 00 00 00 00 00 00 00 ┆t Sdisc3 ┆
0x000560…000580 00 00 00 00 42 fb c2 00 07 e4 00 07 ed 6d 6f 6e 66 70 61 73 75 62 00 00 00 00 00 a5 64 69 73 63 ┆ B monfpasub disc┆
0x000580…0005a0 33 00 00 00 00 00 00 00 81 ef ed 00 00 00 00 00 00 00 00 00 00 00 00 4d 4a c2 00 07 e4 00 07 ed ┆3 MJ ┆
0x0005a0…0005c0 6d 6f 6e 70 72 6f 63 66 6e 63 32 00 00 00 f7 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ed 00 00 ┆monprocfnc2 disc3 ┆
0x0005c0…0005e0 00 00 00 00 00 00 00 00 00 00 5c b4 22 00 07 e4 00 07 ed 6d 6f 6e 73 31 00 00 00 00 00 00 00 00 ┆ Ø " mons1 ┆
0x0005e0…000600 00 5b 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ee 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Ædisc3 ┆
0x000600…007e00 Data for kkmonret3
0x007e00…00db00 Data for kkopt3
0x00db00…01e300 Data for moncentral
0x01e300…02df00 Data for monprocfnc1
0x02df00…032700 Data for montabinit
0x032700…049b00 Data for moncatinit
0x049b00…04e000 Data for kklistopt3
0x04e000…053d00 (104,) Data for mondef
0x053d00…083400 Data for monprocs
0x083400…0a0e00 (175,) Data for mondisc
0x0a0e00…0b9400 Data for monfpaline
0x0b9400…0c8d00 (247,) Data for monhost
0x0c8d00…0e7c00 Data for monfpasub
0x0e7c00…116100 (309,) Data for monprocfnc2
0x116100…127200 Data for mons1
0x127200…139800 Data for mons2
0x139800…141600 (418,) Data for kkiccmtxt
0x141600…141900 Data for inf3
0x141900…141920 6c 69 73 74 3a 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 65 32 35 2e 20 20 20 3b 20 20 ┆list: rl. w1 e25. ; ┆
0x141920…141940 20 77 31 20 3a 3d 20 63 6f 6e 73 6f 6c 65 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 2b ┆ w1 := console; al w2 x1+┆
0x141940…141960 63 34 38 2d 63 34 34 2b 32 3b 20 20 20 77 32 20 3a 3d 20 72 65 6c 20 74 6f 70 20 6f 66 20 63 6c ┆c48-c44+2; w2 := rel top of cl┆
0x141960…141980 61 69 6d 6c 69 73 74 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 ┆aimlist; al w0 0 ┆
0x141980…1419a0 3b 0a 69 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 70 3a 0a ┆; i0: ; rep: ┆
0x1419a0…1419c0 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2d 32 20 20 20 20 20 20 3b 20 20 20 64 65 63 72 65 ┆ al w2 x2-2 ; decre┆
0x1419c0…1419e0 61 73 65 28 70 6f 69 6e 74 65 72 29 3b 0a 20 20 20 20 20 73 6c 20 20 77 31 20 20 78 32 20 20 20 ┆ase(pointer); sl w1 x2 ┆
0x1419e0…141a00 20 20 20 20 20 3b 20 20 20 69 66 20 70 6f 69 6e 74 65 72 20 3c 3d 20 73 74 61 72 74 20 6f 66 20 ┆ ; if pointer <= start of ┆
0x141a00…141a20 63 6f 6e 73 6f 6c 65 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 20 20 20 20 ┆console then jl x3 ┆
0x141a20…141a40 20 20 20 20 3b 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 ┆ ; return; rs w0 x┆
0x141a40…141a60 32 2b 63 34 34 20 20 20 20 3b 20 20 20 63 6c 61 69 6d 6c 69 73 74 28 70 6f 69 6e 74 65 72 29 20 ┆2+c44 ; claimlist(pointer) ┆
0x141a60…141a80 3a 3d 20 30 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 30 2e 20 20 20 20 3b 20 20 ┆:= 0; jl. i0. ; ┆
0x141a80…141aa0 20 67 6f 74 6f 20 72 65 70 3b 0a 0a 65 2e 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 64 65 76 6e 6f ┆ goto rep; e. ; procedure devno┆
0x141aa0…141ac0 28 6e 61 6d 65 20 61 64 72 2e 20 2c 20 64 65 76 6e 6f 2a 38 2c 20 73 6f 72 72 79 29 0a 3b 20 63 ┆(name adr. , devno*8, sorry) ; c┆
0x141ac0…141ae0 6f 6d 6d 65 6e 74 3a 20 73 65 61 72 63 68 20 74 68 65 20 63 68 61 69 6e 74 61 62 6c 65 20 66 6f ┆omment: search the chaintable fo┆
0x141ae0…141b00 72 20 61 20 67 69 76 65 6e 20 6e 61 6d 65 20 61 6e 64 0a 3b 20 72 65 74 75 72 6e 73 20 64 65 76 ┆r a given name and ; returns dev┆
0x141b00…141b20 69 63 65 6e 6f 2e 2a 38 20 28 72 65 6c 61 74 69 76 65 20 61 64 72 2e 20 66 6f 72 20 63 6c 61 69 ┆iceno.*8 (relative adr. for clai┆
0x141b20…141b40 6d 20 6c 69 73 74 20 69 6e 20 63 6f 6e 73 6f 6c 65 20 74 61 62 6c 65 20 29 0a 3b 20 61 6e 64 20 ┆m list in console table ) ; and ┆
0x141b40…141b60 63 68 61 69 6e 74 61 62 6c 65 20 61 64 64 72 65 73 73 20 2c 0a 3b 20 6f 72 20 72 65 74 75 72 6e ┆chaintable address , ; or return┆
0x141b60…141b80 73 20 73 6f 72 72 79 20 69 66 20 6e 61 6d 65 20 6e 6f 74 20 66 6f 75 6e 64 2e 0a 3b 20 20 20 20 ┆s sorry if name not found. ; ┆
0x141b80…141ba0 20 63 61 6c 6c 3a 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 77 30 20 20 20 20 20 20 20 ┆ call: return: ; w0 ┆
0x141ba0…141bc0 20 20 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 31 20 20 20 20 20 20 20 20 20 20 20 ┆ destroyed ; w1 ┆
0x141bc0…141be0 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 32 20 6e 61 6d 65 20 61 64 72 2e 20 20 20 20 64 ┆ destroyed ; w2 name adr. d┆
0x141be0…141c00 65 76 69 63 65 6e 6f 2e 2a 38 0a 3b 20 77 33 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 63 68 61 ┆eviceno.*8 ; w3 link cha┆
0x141c00…141c20 (429,) 69 6e 74 61 62 6c 65 20 61 64 72 2e 0a 3b 0a 62 2e 20 69 31 30 2c 20 6a 31 30 0a 77 2e 20 0a 64 ┆intable adr. ; b. i10, j10 w. d┆
0x141c20…141c40 36 31 3a 20 72 73 2e 20 77 33 20 20 20 20 20 20 69 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 ┆61: rs. w3 i0. ; a┆
0x141c40…141c60 6c 20 20 77 31 20 20 20 20 20 20 2d 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 2e 20 77 31 ┆l w1 -2 ; rs. w1┆
0x141c60…141c80 20 20 20 20 20 20 69 31 2e 20 20 20 20 20 3b 0a 20 6a 31 3a 20 72 6c 2e 20 77 33 20 20 20 20 20 ┆ i1. ; j1: rl. w3 ┆
0x141c80…141ca0 20 69 31 2e 20 20 20 20 20 3b 20 6e 65 78 74 20 63 68 61 69 6e 74 61 62 6c 65 0a 20 20 20 20 20 ┆ i1. ; next chaintable ┆
0x141ca0…141cc0 61 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 2e 20 77 ┆al w3 x3+2 ; rs. w┆
0x141cc0…141ce0 33 20 20 20 20 20 20 69 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 77 61 20 20 77 33 20 20 20 20 ┆3 i1. ; wa w3 ┆
0x141ce0…141d00 20 62 32 32 20 20 20 20 20 20 3b 20 67 65 74 20 61 64 72 20 6f 66 20 6e 65 78 74 20 63 68 61 69 ┆ b22 ; get adr of next chai┆
0x141d00…141d20 6e 74 61 62 6c 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 ┆ntable ┆
0x141d20…141d40 3b 20 69 66 20 61 64 72 2e 20 6f 66 20 6e 65 78 74 20 63 68 61 69 6e 74 61 62 6c 65 0a 20 20 20 ┆; if adr. of next chaintable ┆
0x141d40…141d60 20 20 73 6c 20 20 77 33 20 20 20 20 28 62 32 34 29 20 20 20 20 20 3b 20 3e 3d 20 74 6f 70 20 6f ┆ sl w3 (b24) ; >= top o┆
0x141d60…141d80 66 20 63 68 61 69 6e 74 61 62 6c 65 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆f chaintable then jl. ┆
0x141d80…141da0 20 20 28 69 30 2e 29 20 20 20 20 3b 20 72 65 74 75 72 6e 20 73 6f 72 72 79 0a 20 20 20 20 20 72 ┆ (i0.) ; return sorry r┆
0x141da0…141dc0 6c 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 69 6e 20 63 6f 6d 70 61 ┆l w3 x3 ; begin compa┆
0x141dc0…141de0 72 65 20 20 6e 61 6d 65 73 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 33 2d 61 38 38 2b 31 38 ┆re names dl w1 x3-a88+18┆
0x141de0…141e00 20 20 20 3b 20 69 66 20 6e 61 6d 65 28 63 68 61 69 6e 74 61 62 6c 65 29 0a 20 20 20 20 20 73 6e ┆ ; if name(chaintable) sn┆
0x141e00…141e20 20 20 77 30 20 20 20 20 28 78 32 29 20 20 20 20 20 20 3b 20 3d 20 6e 61 6d 65 28 61 64 72 2e 29 ┆ w0 (x2) ; = name(adr.)┆
0x141e20…141e40 0a 20 20 20 20 20 73 65 20 20 77 31 20 20 20 20 28 78 32 2b 32 29 20 20 20 20 3b 20 74 68 65 6e ┆ se w1 (x2+2) ; then┆
0x141e40…141e60 20 72 65 74 75 72 6e 20 68 61 70 70 79 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 6a ┆ return happy jl. j┆
0x141e60…141e80 31 2e 20 20 20 20 20 3b 20 65 6c 73 65 20 20 67 65 74 20 6e 65 78 74 20 63 68 61 69 6e 74 61 62 ┆1. ; else get next chaintab┆
0x141e80…141ea0 6c 65 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 33 2d 61 38 38 2b 32 32 20 20 20 3b 0a 20 20 ┆le dl w1 x3-a88+22 ; ┆
0x141ea0…141ec0 20 20 20 73 6e 20 20 77 30 20 20 20 20 28 78 32 2b 34 29 20 20 20 20 3b 0a 20 20 20 20 20 73 65 ┆ sn w0 (x2+4) ; se┆
0x141ec0…141ee0 20 20 77 31 20 20 20 20 28 78 32 2b 36 29 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆ w1 (x2+6) ; jl. ┆
0x141ee0…141f00 20 20 20 20 20 6a 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 20 ┆ j1. ; rl. w2 ┆
0x141f00…141f20 69 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6c 73 20 20 77 32 20 20 20 20 20 20 20 32 20 20 20 ┆i1. ; ls w2 2 ┆
0x141f20…141f40 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 20 69 30 2e 20 0a 20 20 20 20 20 ┆ ; rl. w1 i0. ┆
0x141f40…141f60 6a 6c 20 20 20 20 20 20 78 31 2b 32 0a 20 69 30 3a 20 30 0a 20 69 31 3a 20 30 0a 65 2e 0a 63 2e ┆jl x1+2 i0: 0 i1: 0 e. c.┆
0x141f60…141f80 28 3a 20 63 32 33 3e 31 39 20 61 2e 31 3a 29 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(: c23>19 a.1:) -1 ┆
0x141f80…141fa0 20 20 3b 20 69 66 20 6c 69 73 74 20 6f 70 74 69 6f 6e 20 74 68 65 6e 0a 62 2e 69 32 34 20 20 20 ┆ ; if list option then b.i24 ┆
0x141fa0…141fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 ┆ ; be┆
0x141fc0…141fe0 67 69 6e 0a 3b 20 62 6c 6f 63 6b 20 66 6f 72 20 74 68 65 20 6c 69 73 74 20 6f 70 74 69 6f 6e 0a ┆gin ; block for the list option ┆
0x141fe0…142000 3b 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 73 70 61 63 65 28 6e 6f 20 6f 66 20 73 ┆; ; procedure writespace(no of s┆
0x142000…142020 70 61 63 65 73 29 0a 3b 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 ┆paces) ; comment this procedure ┆
0x142020…142040 77 72 69 74 65 73 20 6f 75 74 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 3c 33 ┆writes out a number of spaces <3┆
0x142040…142060 32 3e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 ┆2> ; call ┆
0x142060…142080 20 20 72 65 74 75 72 6e 0a 3b 20 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ return ; w0 ┆
0x142080…1420a0 20 20 20 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 31 20 63 20 20 20 20 20 20 20 20 ┆ destroyed ; w1 c ┆
0x1420a0…1420c0 6e 6f 20 6f 66 20 73 70 61 63 65 73 20 0a 3b 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆no of spaces ; w2 ┆
0x1420c0…1420e0 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 77 33 20 20 20 20 20 ┆ unchanged ; w3 ┆
0x1420e0…142100 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 0a 3b 0a 77 2e 20 ┆ link link ; w. ┆
0x142100…142120 64 37 30 3a 20 20 20 72 73 2e 20 77 33 20 20 69 31 2e 20 20 20 20 20 20 20 20 20 3b 0a 69 31 30 ┆d70: rs. w3 i1. ; i10┆
0x142120…142140 3a 20 61 6c 20 20 77 30 20 20 20 20 20 20 33 32 20 20 20 20 20 20 3b 20 77 68 69 6c 65 20 6e 6f ┆: al w0 32 ; while no┆
0x142140…142160 20 6f 66 20 73 70 61 63 65 73 3e 3d 30 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 ┆ of spaces>=0 jl. w3 d2┆
0x142160…142180 30 2e 20 20 20 20 20 3b 20 64 6f 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 20 20 2d 31 20 ┆0. ; do al w1 x1 -1 ┆
0x142180…1421a0 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 31 20 20 20 20 20 20 20 30 20 20 20 20 20 20 ┆ ; se w1 0 ┆
0x1421a0…1421c0 3b 20 77 72 69 74 65 63 68 61 72 20 73 70 61 63 65 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆; writechar space jl. ┆
0x1421c0…1421e0 20 20 69 31 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 28 69 31 ┆ i10. ; jl. (i1┆
0x1421e0…142200 2e 29 20 20 20 20 3b 0a 3b 0a 3b 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 69 6e 74 ┆.) ; ; ; ; procedure writeint┆
0x142200…142220 28 69 6e 74 65 67 65 72 2c 74 79 70 65 29 0a 3b 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 70 72 ┆(integer,type) ; comment this pr┆
0x142220…142240 6f 63 65 64 75 72 65 20 6c 65 66 74 20 6a 75 73 74 69 66 79 20 61 6e 20 69 6e 74 65 67 65 72 20 ┆ocedure left justify an integer ┆
0x142240…142260 69 6e 0a 3b 20 61 20 38 20 6f 72 20 34 20 63 68 61 72 73 20 73 70 61 63 65 20 66 69 6c 6c 65 64 ┆in ; a 8 or 4 chars space filled┆
0x142260…142280 20 66 69 65 6c 64 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 79 70 65 0a 3b 20 20 20 20 20 ┆ field, according to type ; ┆
0x142280…1422a0 20 20 20 20 20 20 20 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 ┆ call retur┆
0x1422a0…1422c0 6e 0a 3b 77 30 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆n ;w0 type ┆
0x1422c0…1422e0 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 77 31 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 ┆ destroyed ;w1 integ┆
0x1422e0…142300 65 72 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 0a 3b 77 ┆er no of positions ;w┆
0x142300…142320 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 ┆2 u┆
0x142320…142340 6e 63 68 61 6e 67 65 64 0a 3b 77 33 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 ┆nchanged ;w3 link ┆
0x142340…142360 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 0a 3b 0a 64 37 31 3a 20 64 73 2e 20 77 30 20 20 20 20 ┆ link ; d71: ds. w0 ┆
0x142360…142380 20 20 69 30 2e 20 20 20 20 20 3b 20 73 61 76 65 20 72 65 67 69 73 74 65 72 73 0a 20 20 20 20 20 ┆ i0. ; save registers ┆
0x142380…1423a0 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 32 2e 20 20 20 20 20 3b 20 77 72 69 74 65 69 6e 74 65 67 ┆jl. w3 d22. ; writeinteg┆
0x1423a0…1423c0 65 72 28 69 6e 74 65 67 65 72 29 0a 20 20 20 20 20 77 73 2e 20 77 31 20 20 20 20 20 20 69 30 2e ┆er(integer) ws. w1 i0.┆
0x1423c0…1423e0 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 77 31 20 20 20 20 20 20 20 30 20 20 20 20 20 20 ┆ ; sl w1 0 ┆
0x1423e0…142400 3b 20 66 69 6c 6c 20 77 69 74 68 20 73 70 61 63 65 73 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆; fill with spaces jl. ┆
0x142400…142420 20 20 20 28 69 31 2e 29 20 20 20 20 3b 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 79 70 65 0a ┆ (i1.) ; according to type ┆
0x142420…142440 20 20 20 20 20 61 63 20 20 77 31 20 20 78 31 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ ac w1 x1 ; ┆
0x142440…142460 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 30 2e 20 20 20 20 20 3b 20 72 65 74 75 72 6e 20 74 68 72 ┆jl. i10. ; return thr┆
0x142460…142480 6f 75 67 68 20 77 72 69 74 65 73 70 61 63 65 0a 69 31 3a 30 0a 69 30 3a 30 0a 65 2e 7a 2e 0a 63 ┆ough writespace i1:0 i0:0 e.z. c┆
0x142480…1424a0 2e 28 3a 63 32 33 3e 31 34 61 2e 31 3a 29 2d 31 0a 0a 62 2e 20 69 32 34 0a 3b 0a 3b 20 70 72 6f ┆.(:c23>14a.1:)-1 b. i24 ; ; pro┆
0x1424a0…1424c0 63 65 64 75 72 65 20 67 65 74 5f 73 65 67 6d 65 6e 74 28 73 65 67 6e 6f 29 0a 3b 20 63 6f 6d 6d ┆cedure get_segment(segno) ; comm┆
0x1424c0…1424e0 65 6e 74 3a 20 70 65 72 66 6f 72 6d 73 20 74 68 65 20 74 72 61 6e 73 70 6f 72 74 20 6f 66 20 74 ┆ent: performs the transport of t┆
0x1424e0…142500 68 65 20 73 74 61 74 65 64 20 73 65 67 6d 65 6e 74 0a 3b 20 66 72 6f 6d 20 3c 3a 73 75 73 65 72 ┆he stated segment ; from <:suser┆
0x142500…142520 63 61 74 3a 3e 0a 3b 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 20 20 20 72 65 74 75 72 6e 0a 3b 20 ┆cat:> ; call: return ; ┆
0x142520…142540 77 30 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 31 20 20 20 ┆w0 destroyed ; w1 ┆
0x142540…142560 73 65 67 6e 6f 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 32 20 20 20 61 64 64 72 65 ┆segno destroyed ; w2 addre┆
0x142560…142580 73 73 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 33 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 ┆ss destroyed ; w3 link ┆
0x142580…1425a0 64 65 73 74 72 6f 79 65 64 0a 77 2e 64 37 37 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆destroyed w.d77: ┆
0x1425a0…1425c0 20 20 20 3b 20 67 65 74 5f 73 65 67 6d 65 6e 74 3a 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 ┆ ; get_segment: rs. w3 ┆
0x1425c0…1425e0 20 20 69 31 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 2e 20 77 33 20 20 20 20 20 63 36 39 ┆ i10. ; al. w3 c69┆
0x1425e0…142600 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 35 32 20 20 20 20 20 ┆. ; jd 1<11+52 ┆
0x142600…142620 20 3b 20 63 72 65 61 74 65 20 61 72 65 61 70 72 6f 63 65 73 73 28 73 75 73 65 72 63 61 74 29 0a ┆ ; create areaprocess(susercat) ┆
0x142620…142640 20 20 20 20 20 73 6c 20 20 77 30 20 20 20 20 20 20 20 32 20 20 20 20 20 20 3b 20 69 66 20 72 65 ┆ sl w0 2 ; if re┆
0x142640…142660 73 75 6c 74 20 3c 3e 20 30 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 32 2e 20 20 ┆sult <> 0 jl. g12. ┆
0x142660…142680 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 20 6c 69 6e 65 0a 20 20 20 20 20 73 65 20 ┆ ; then goto end line se ┆
0x142680…1426a0 20 77 30 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆ w0 0 ; jl. ┆
0x1426a0…1426c0 20 20 20 20 67 36 2e 20 20 20 20 20 3b 0a 69 32 32 3a 20 72 73 2e 20 77 31 20 20 20 20 20 65 35 ┆ g6. ; i22: rs. w1 e5┆
0x1426c0…1426e0 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 20 20 65 34 37 2e 20 20 20 ┆0. ; al. w1 e47. ┆
0x1426e0…142700 20 20 3b 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 65 34 38 2e 20 20 20 20 20 3b 0a 20 ┆ ; rs. w2 e48. ; ┆
0x142700…142720 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 35 31 32 20 20 20 20 20 20 3b 20 70 72 65 70 61 72 ┆ al w2 x2+512 ; prepar┆
0x142720…142740 65 20 69 6e 70 75 74 6d 65 73 73 61 67 65 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 65 ┆e inputmessage rs. w2 e┆
0x142740…142760 34 39 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 31 36 20 20 20 ┆49. ; jd 1<11+16 ┆
0x142760…142780 20 20 20 3b 20 73 65 6e 64 20 6d 65 73 73 61 67 65 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 ┆ ; send message al. w1 ┆
0x142780…1427a0 20 20 65 35 31 2e 20 20 20 20 20 3b 20 0a 20 20 20 20 20 6a 64 20 20 20 20 20 20 31 3c 31 31 2b ┆ e51. ; jd 1<11+┆
0x1427a0…1427c0 31 38 20 20 20 20 20 3b 20 0a 20 20 20 20 20 6c 6f 2e 20 77 30 20 20 20 20 20 65 35 31 2e 20 20 ┆18 ; lo. w0 e51. ┆
0x1427c0…1427e0 20 20 20 3b 20 27 6f 72 27 20 73 74 61 74 75 73 20 61 6e 64 20 72 65 73 75 6c 74 0a 20 20 20 20 ┆ ; 'or' status and result ┆
0x1427e0…142800 20 72 6c 20 20 77 31 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 73 61 76 65 20 72 65 73 75 ┆ rl w1 0 ; save resu┆
0x142800…142820 (430,) 6c 74 0a 20 20 20 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 36 34 20 20 20 20 20 20 3b 20 72 65 ┆lt jd 1<11+64 ; re┆
0x142820…142840 6d 6f 76 65 20 61 72 65 61 2e 73 75 73 65 72 63 61 74 0a 20 20 20 20 20 73 65 20 20 77 31 20 20 ┆move area.susercat se w1 ┆
0x142840…142860 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 69 66 20 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 6a ┆ 1 ; if <>1 then j┆
0x142860…142880 6c 2e 20 20 20 20 20 20 20 20 67 31 31 2e 20 20 20 20 20 3b 20 65 72 72 6f 72 20 67 6f 74 6f 20 ┆l. g11. ; error goto ┆
0x142880…1428a0 65 6e 64 20 6c 69 6e 65 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 69 31 30 2e 29 20 20 ┆end line jl. (i10.) ┆
0x1428a0…1428c0 20 20 3b 0a 69 31 30 3a 30 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 5f 65 6e 74 72 ┆ ; i10:0 ; procedure find_entr┆
0x1428c0…1428e0 79 28 6e 61 6d 65 29 0a 3b 20 63 6f 6d 6d 65 6e 74 3a 20 66 69 6e 64 73 20 74 68 65 20 65 6e 74 ┆y(name) ; comment: finds the ent┆
0x1428e0…142900 72 79 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 74 68 65 20 67 69 76 65 6e 20 6e 61 6d 65 0a ┆ry identified by the given name ┆
0x142900…142920 3b 20 72 65 74 75 72 6e 73 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 2d 31 30 20 69 66 20 ┆; returns with the value -10 if ┆
0x142920…142940 65 6e 74 72 79 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 74 68 69 73 20 73 65 67 6d 65 6e 74 20 ┆entry not found in this segment ┆
0x142940…142960 6f 72 20 2d 31 20 69 66 20 65 6e 74 72 79 20 6e 6f 74 20 65 78 69 73 74 0a 3b 20 20 20 20 20 20 ┆or -1 if entry not exist ; ┆
0x142960…142980 20 63 61 6c 6c 3a 20 20 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 77 30 20 20 20 20 20 20 20 20 20 ┆ call: return: ; w0 ┆
0x142980…1429a0 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ destroyed ; w1 ┆
0x1429a0…1429c0 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 ┆ destroyed ; w2 ent┆
0x1429c0…1429e0 72 79 20 61 64 64 72 65 73 73 20 6f 72 20 2d 31 30 20 6f 72 20 2d 31 0a 3b 20 77 33 20 20 20 20 ┆ry address or -10 or -1 ; w3 ┆
0x1429e0…142a00 6c 69 6e 6b 20 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a 77 2e 20 64 37 38 3a 20 20 20 20 20 ┆link destroyed w. d78: ┆
0x142a00…142a20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 69 6e 64 5f 65 6e 74 72 79 3a 0a 20 20 20 20 20 ┆ ; find_entry: ┆
0x142a20…142a40 72 73 2e 20 77 33 20 20 20 20 20 69 31 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 ┆rs. w3 i10. ; rl. w┆
0x142a40…142a60 31 20 20 20 20 20 65 37 31 2e 20 20 20 20 20 3b 0a 69 30 3a 20 20 72 6c 20 20 77 32 20 20 78 31 ┆1 e71. ; i0: rl w2 x1┆
0x142a60…142a80 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 65 6e 74 72 79 20 6e 6f 74 20 65 78 73 69 73 74 0a ┆ ; if entry not exsist ┆
0x142a80…142aa0 20 20 20 20 20 73 6e 20 20 77 32 20 20 20 20 20 20 2d 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ sn w2 -1 ; ┆
0x142aa0…142ac0 6a 6c 2e 20 20 20 20 20 20 20 28 69 31 30 2e 29 20 20 20 20 3b 20 74 68 65 6e 20 72 65 74 75 72 ┆jl. (i10.) ; then retur┆
0x142ac0…142ae0 6e 0a 20 20 20 20 20 73 6e 20 20 77 32 20 20 20 20 20 20 2d 32 20 20 20 20 20 20 3b 20 69 66 20 ┆n sn w2 -2 ; if ┆
0x142ae0…142b00 65 6e 74 72 79 20 64 65 6c 65 74 65 64 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆entry deleted then jl. ┆
0x142b00…142b20 20 20 20 69 31 2e 20 20 20 20 20 20 3b 20 74 72 79 20 6e 65 78 74 20 65 6e 74 72 79 0a 20 20 20 ┆ i1. ; try next entry ┆
0x142b20…142b40 20 20 61 6c 20 20 77 32 20 20 78 31 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 64 6c 20 ┆ al w2 x1 ; dl ┆
0x142b40…142b60 20 77 30 20 20 78 31 20 20 2b 36 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 2e 20 77 33 20 20 ┆ w0 x1 +6 ; sn. w3 ┆
0x142b60…142b80 20 20 28 65 32 30 2e 29 20 20 20 20 3b 20 63 6f 6d 70 61 72 65 20 6e 61 6d 65 73 0a 20 20 20 20 ┆ (e20.) ; compare names ┆
0x142b80…142ba0 20 73 65 2e 20 77 30 20 20 20 20 28 65 32 31 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 ┆ se. w0 (e21.) ; jl. ┆
0x142ba0…142bc0 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 20 3b 20 69 66 20 6e 61 6d 65 73 20 75 6e 65 71 75 ┆ i1. ; if names unequ┆
0x142bc0…142be0 61 6c 20 74 68 65 6e 0a 20 20 20 20 20 64 6c 20 20 77 30 20 20 78 31 2b 31 30 20 20 20 20 20 20 ┆al then dl w0 x1+10 ┆
0x142be0…142c00 20 3b 20 74 72 79 20 6e 65 78 74 20 65 6e 74 72 79 0a 20 20 20 20 20 73 6e 2e 20 77 33 20 20 20 ┆ ; try next entry sn. w3 ┆
0x142c00…142c20 20 28 65 32 32 2e 29 20 20 20 20 3b 20 65 6c 73 65 20 72 65 74 75 72 6e 0a 20 20 20 20 20 73 65 ┆ (e22.) ; else return se┆
0x142c20…142c40 2e 20 77 30 20 20 20 20 28 65 32 33 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆. w0 (e23.) ; jl. ┆
0x142c40…142c60 20 20 20 20 20 69 31 2e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 69 31 30 2e 29 20 20 ┆ i1. jl. (i10.) ┆
0x142c60…142c80 20 20 3b 20 65 6e 74 72 79 20 66 6f 75 6e 64 0a 69 31 3a 20 20 72 6c 2e 20 77 32 20 20 20 20 20 ┆ ; entry found i1: rl. w2 ┆
0x142c80…142ca0 65 37 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 20 20 2b 32 20 20 ┆e70. ; al w2 x2 +2 ┆
0x142ca0…142cc0 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 65 37 31 2e 20 20 20 20 20 3b ┆ ; rl. w3 e71. ;┆
0x142cc0…142ce0 0a 20 20 20 20 20 77 61 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 ┆ wa w1 x2 ; ┆
0x142ce0…142d00 20 61 6d 2e 20 20 20 20 20 20 20 28 65 38 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 ┆ am. (e85. ; sl ┆
0x142d00…142d20 77 33 20 20 78 31 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆w3 x1 ; jl. ┆
0x142d20…142d40 20 20 20 69 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 2d 31 30 ┆ i0. ; al w2 -10┆
0x142d40…142d60 20 20 20 20 20 20 3b 20 65 6e 74 72 79 20 6e 6f 74 20 66 6f 75 6e 64 0a 20 20 20 20 20 6a 6c 2e ┆ ; entry not found jl.┆
0x142d60…142d80 20 20 20 20 20 20 20 28 69 31 30 2e 29 20 20 20 20 3b 0a 65 2e 7a 2e 0a 3b 20 70 72 6f 63 65 64 ┆ (i10.) ; e.z. ; proced┆
0x142d80…142da0 75 72 65 20 6c 6f 6f 6b 75 70 20 62 73 20 63 6c 61 69 6d 73 28 64 65 76 69 63 65 2c 70 72 6f 63 ┆ure lookup bs claims(device,proc┆
0x142da0…142dc0 65 73 73 29 3b 0a 3b 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 62 73 2d 63 6c 61 69 6d 73 20 66 ┆ess); ; comment the bs-claims f┆
0x142dc0…142de0 6f 72 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 6c 6f 6f 6b 65 64 20 75 70 20 6f 6e 20 74 ┆or the process is looked up on t┆
0x142de0…142e00 68 65 20 67 69 76 65 6e 20 64 65 76 69 63 65 3b 0a 3b 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 20 ┆he given device; ; call: ┆
0x142e00…142e20 20 20 20 20 20 72 65 74 75 72 6e 3a 0a 3b 77 30 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 ┆ return: ;w0 - ┆
0x142e20…142e40 20 72 65 73 75 6c 74 0a 3b 77 31 20 20 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 61 64 64 72 2e ┆ result ;w1 return addr.┆
0x142e40…142e60 20 6f 66 20 62 73 2d 63 6c 61 69 6d 73 0a 3b 77 32 20 20 20 64 65 76 69 63 65 20 20 20 20 20 20 ┆ of bs-claims ;w2 device ┆
0x142e60…142e80 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 77 33 20 20 20 70 72 6f 63 65 73 73 20 20 20 20 20 20 20 ┆ unchanged ;w3 process ┆
0x142e80…142ea0 20 20 20 20 20 2d 0a 62 2e 20 20 69 32 20 20 77 2e 0a 64 38 34 3a 20 61 6c 2e 20 77 33 20 20 20 ┆ - b. i2 w. d84: al. w3 ┆
0x142ea0…142ec0 20 20 69 32 2e 20 20 20 20 20 20 20 3b 20 65 6e 74 72 79 30 3a 20 77 33 3a 3d 61 64 64 72 28 27 ┆ i2. ; entry0: w3:=addr('┆
0x142ec0…142ee0 73 27 29 3b 0a 64 38 35 3a 20 72 73 2e 20 77 31 20 20 20 20 69 30 2e 20 20 20 20 20 20 20 20 3b ┆s'); d85: rs. w1 i0. ;┆
0x142ee0…142f00 20 65 6e 74 72 79 32 3a 20 73 74 6f 72 65 28 77 31 29 3b 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 ┆ entry2: store(w1); rl. w1 ┆
0x142f00…142f20 20 20 20 20 69 31 2e 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 20 61 64 64 72 28 62 73 20 63 6c 61 ┆ i1. ; w1:= addr(bs cla┆
0x142f20…142f40 69 6d 20 73 74 6f 72 65 29 3b 0a 20 20 20 20 20 6a 64 20 20 20 20 20 20 20 20 20 31 3c 31 31 2b ┆im store); jd 1<11+┆
0x142f40…142f60 31 31 38 20 20 3b 20 6c 6f 6f 6b 75 70 20 62 73 2d 63 6c 61 69 6d 73 0a 20 20 20 20 20 6a 6c 2e ┆118 ; lookup bs-claims jl.┆
0x142f60…142f80 20 20 20 20 20 20 20 20 28 69 30 2e 29 20 20 20 20 20 3b 20 72 65 74 75 72 6e 3b 0a 69 30 3a 20 ┆ (i0.) ; return; i0: ┆
0x142f80…142fa0 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 69 31 3a 20 20 65 38 36 ┆ 0 ; i1: e86┆
0x142fa0…142fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 20 6f 66 20 62 73 20 63 ┆ ; addr of bs c┆
0x142fc0…142fe0 6c 61 69 6d 73 0a 69 32 3a 20 20 3c 3a 73 3a 3e 2c 30 2c 30 2c 30 20 20 20 20 20 20 20 20 20 20 ┆laims i2: <:s:>,0,0,0 ┆
0x142fe0…143000 3b 20 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 0a 65 2e 0a 0a 3b 20 70 61 72 61 6d 65 74 65 ┆; current process e. ; paramete┆
0x143000…143020 72 20 74 61 62 6c 65 3a 0a 3b 20 63 6f 6e 74 61 69 6e 73 20 61 20 62 79 74 65 20 66 6f 72 20 65 ┆r table: ; contains a byte for e┆
0x143020…143040 61 63 68 20 63 68 61 72 61 63 74 65 72 20 74 79 70 65 20 69 6e 20 74 68 65 20 66 6f 6c 6c 77 6f ┆ach character type in the follwo┆
0x143040…143060 69 6e 67 20 73 74 61 74 65 73 3a 0a 3b 20 20 20 20 20 30 20 20 20 69 6e 69 74 69 61 6c 20 73 74 ┆ing states: ; 0 initial st┆
0x143060…143080 61 74 65 0a 3b 20 20 20 20 20 31 20 20 20 61 66 74 65 72 20 6c 65 74 74 65 72 0a 3b 20 20 20 20 ┆ate ; 1 after letter ; ┆
0x143080…1430a0 20 32 20 20 20 61 66 74 65 72 20 64 69 67 69 74 0a 3b 20 65 61 63 68 20 65 6e 74 72 79 20 64 65 ┆ 2 after digit ; each entry de┆
0x1430a0…1430c0 66 69 6e 65 73 20 74 68 65 20 61 64 64 72 65 73 73 20 6f 66 20 61 6e 20 61 63 74 69 6f 6e 20 28 ┆fines the address of an action (┆
0x1430c0…1430e0 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 6e 65 78 74 ┆relative to the ; procedure next┆
0x1430e0…143100 20 70 61 72 61 6d 29 20 61 6e 64 20 61 20 6e 65 77 20 73 74 61 74 65 3a 0a 3b 20 20 20 20 20 65 ┆ param) and a new state: ; e┆
0x143100…143120 6e 74 72 79 3d 61 63 74 69 6f 6e 3c 32 20 2b 20 6e 65 77 20 73 74 61 74 65 0a 0a 62 2e 69 32 34 ┆ntry=action<2 + new state b.i24┆
0x143120…143140 0a 69 30 3d 28 3a 64 33 2d 64 32 3a 29 3c 32 2b 30 2c 20 69 31 3d 69 30 2b 31 2c 20 20 69 32 3d ┆ i0=(:d3-d2:)<2+0, i1=i0+1, i2=┆
0x143140…143160 69 30 2b 32 0a 69 33 3d 28 3a 64 34 2d 64 32 3a 29 3c 32 2b 31 2c 20 69 34 3d 28 3a 64 35 2d 64 ┆i0+2 i3=(:d4-d2:)<2+1, i4=(:d5-d┆
0x143160…143180 32 3a 29 3c 32 2b 32 2c 20 20 69 35 3d 28 3a 64 36 2d 64 32 3a 29 3c 32 2b 32 0a 69 36 3d 28 3a ┆2:)<2+2, i5=(:d6-d2:)<2+2 i6=(:┆
0x143180…1431a0 64 37 2d 64 32 3a 29 3c 32 2b 30 2c 20 69 37 3d 28 3a 64 38 2d 64 32 3a 29 3c 32 2b 30 0a 69 39 ┆d7-d2:)<2+0, i7=(:d8-d2:)<2+0 i9┆
0x1431a0…1431c0 3d 28 3a 64 31 31 2d 64 32 3a 29 3c 32 2b 30 0a 0a 3b 20 69 6e 69 74 69 61 6c 20 73 74 61 74 65 ┆=(:d11-d2:)<2+0 ; initial state┆
0x1431c0…1431e0 3a 0a 68 2e 68 31 3a 20 69 33 2c 20 69 35 2c 20 69 34 2c 20 69 30 20 20 20 20 3b 20 20 20 6c 65 ┆: h.h1: i3, i5, i4, i0 ; le┆
0x1431e0…143200 74 74 65 72 20 31 2c 20 64 69 67 69 74 20 32 2c 20 75 6e 6b 6e 6f 77 6e 20 30 2c 20 63 6f 6e 74 ┆tter 1, digit 2, unknown 0, cont┆
0x143200…143220 69 6e 75 65 20 30 0a 69 36 2c 20 69 39 2c 20 69 36 2c 20 69 30 20 20 20 20 3b 20 20 20 75 6e 6b ┆inue 0 i6, i9, i6, i0 ; unk┆
0x143220…143240 6e 6f 77 6e 20 30 2c 20 65 6e 64 6c 69 6e 65 2c 20 75 6e 6b 6e 6f 77 6e 20 30 2c 20 63 6f 6e 74 ┆nown 0, endline, unknown 0, cont┆
0x143240…143260 69 6e 75 65 20 30 0a 3b 20 61 66 74 65 72 20 6c 65 74 74 65 72 3a 0a 69 33 2c 20 69 33 2c 20 69 ┆inue 0 ; after letter: i3, i3, i┆
0x143260…143280 36 2c 20 69 37 20 20 20 20 3b 20 20 20 6c 65 74 74 65 72 20 31 2c 20 6c 65 74 74 65 72 20 31 2c ┆6, i7 ; letter 1, letter 1,┆
0x143280…1432a0 20 72 61 64 69 78 20 30 2c 20 64 65 6c 69 6d 69 74 20 30 0a 69 37 2c 20 69 39 2c 20 69 36 2c 20 ┆ radix 0, delimit 0 i7, i9, i6, ┆
0x1432a0…1432c0 69 31 20 20 20 20 3b 20 20 20 64 65 6c 69 6d 69 74 20 30 2c 20 65 6e 64 6c 69 6e 65 2c 20 75 6e ┆i1 ; delimit 0, endline, un┆
0x1432c0…1432e0 6b 6e 6f 77 6e 20 30 2c 20 63 6f 6e 74 69 6e 75 65 20 31 0a 3b 20 61 66 74 65 72 20 64 69 67 69 ┆known 0, continue 1 ; after digi┆
0x1432e0…143300 74 3a 0a 69 36 2c 20 69 35 2c 20 69 34 2c 20 69 37 20 20 20 20 3b 20 20 20 75 6e 6b 6e 6f 77 6e ┆t: i6, i5, i4, i7 ; unknown┆
0x143300…143320 20 30 2c 20 64 69 67 69 74 20 32 2c 20 72 61 64 69 78 20 32 2c 20 64 65 6c 69 6d 69 74 20 30 0a ┆ 0, digit 2, radix 2, delimit 0 ┆
0x143320…143340 69 37 2c 20 69 39 2c 20 69 36 2c 20 69 32 20 20 20 20 3b 20 20 20 64 65 6c 69 6d 69 74 20 30 2c ┆i7, i9, i6, i2 ; delimit 0,┆
0x143340…143360 20 65 6e 64 6c 69 6e 65 2c 20 75 6e 6b 6e 6f 77 6e 20 30 2c 20 63 6f 6e 74 69 6e 75 65 20 32 0a ┆ endline, unknown 0, continue 2 ┆
0x143360…143380 65 2e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 64 32 2e 20 20 20 20 20 3b 0a 64 32 ┆e. jl. d2. ; d2┆
0x143380…1433a0 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 64 39 2e 20 20 20 20 20 3b 0a ┆=k-2 jl. d9. ; ┆
0x1433a0…1433c0 64 39 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 31 30 2e 20 20 20 20 20 ┆d9=k-2 jl. d10. ┆
0x1433c0…1433e0 3b 0a 64 31 30 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 31 35 2e 20 20 ┆; d10=k-2 jl. d15. ┆
0x1433e0…143400 20 20 20 3b 0a 64 31 35 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 31 36 ┆ ; d15=k-2 jl. d16┆
0x143400…143420 (431,) 2e 20 20 20 20 20 3b 0a 64 31 36 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆. ; d16=k-2 jl. ┆
0x143420…143440 64 31 39 2e 20 20 20 20 20 3b 0a 64 31 39 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆d19. ; d19=k-2 jl. ┆
0x143440…143460 20 20 20 64 32 30 2e 20 20 20 20 20 3b 0a 64 32 30 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆ d20. ; d20=k-2 jl. ┆
0x143460…143480 20 20 20 20 20 20 64 32 31 2e 20 20 20 20 20 3b 0a 64 32 31 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c ┆ d21. ; d21=k-2 jl┆
0x143480…1434a0 2e 20 20 20 20 20 20 20 20 64 32 32 2e 20 20 20 20 20 3b 0a 64 32 32 3d 6b 2d 32 0a 20 20 20 20 ┆. d22. ; d22=k-2 ┆
0x1434a0…1434c0 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 32 33 2e 20 20 20 20 20 3b 0a 64 32 33 3d 6b 2d 32 0a 20 ┆ jl. d23. ; d23=k-2 ┆
0x1434c0…1434e0 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 32 34 2e 0a 64 32 34 3d 6b 2d 32 0a 20 20 20 20 ┆ jl. d24. d24=k-2 ┆
0x1434e0…143500 20 6a 6c 2e 20 20 20 20 20 20 20 64 32 35 2e 20 20 20 20 20 3b 0a 64 32 35 3d 6b 2d 32 0a 20 20 ┆ jl. d25. ; d25=k-2 ┆
0x143500…143520 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 32 36 2e 20 20 20 3b 0a 64 32 36 3d 6b 2d 32 0a 20 ┆ jl. d26. ; d26=k-2 ┆
0x143520…143540 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 32 37 2e 20 20 20 20 20 3b 0a 64 32 37 3d 6b 2d ┆ jl. d27. ; d27=k-┆
0x143540…143560 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 32 39 2e 20 20 20 20 20 3b 0a 64 32 39 ┆2 jl. d29. ; d29┆
0x143560…143580 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 33 32 2e 20 20 20 20 20 3b 0a ┆=k-2 jl. d32. ; ┆
0x143580…1435a0 64 33 32 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 33 34 2e 20 20 20 20 ┆d32=k-2 jl. d34. ┆
0x1435a0…1435c0 20 3b 0a 64 33 34 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 33 35 2e 20 ┆ ; d34=k-2 jl. d35. ┆
0x1435c0…1435e0 20 20 20 20 3b 0a 64 33 35 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 33 ┆ ; d35=k-2 jl. d3┆
0x1435e0…143600 36 2e 0a 64 33 36 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 33 38 2e 0a ┆6. d36=k-2 jl. d38. ┆
0x143600…143620 64 33 38 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 33 39 2e 20 20 20 20 ┆d38=k-2 jl. d39. ┆
0x143620…143640 20 3b 0a 64 33 39 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 34 32 2e 20 ┆ ; d39=k-2 jl. d42. ┆
0x143640…143660 20 20 20 20 3b 0a 64 34 32 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 34 ┆ ; d42=k-2 jl. d4┆
0x143660…143680 36 2e 20 20 20 20 20 3b 0a 64 34 36 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 ┆6. ; d46=k-2 jl. ┆
0x143680…1436a0 20 64 36 31 2e 20 20 20 20 20 3b 0a 64 36 31 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆ d61. ; d61=k-2 jl. ┆
0x1436a0…1436c0 20 20 20 20 64 37 30 2e 20 20 20 20 20 3b 0a 64 37 30 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 ┆ d70. ; d70=k-2 jl. ┆
0x1436c0…1436e0 20 20 20 20 20 20 20 64 37 31 2e 20 20 20 20 20 3b 0a 64 37 31 3d 6b 2d 32 0a 20 20 20 20 20 6a ┆ d71. ; d71=k-2 j┆
0x1436e0…143700 6c 2e 20 20 20 20 20 20 20 20 64 37 37 2e 20 20 20 20 20 3b 0a 64 37 37 3d 6b 2d 32 0a 20 20 20 ┆l. d77. ; d77=k-2 ┆
0x143700…143720 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 37 38 2e 20 20 20 20 20 3b 0a 64 37 38 3d 6b 2d 32 0a ┆ jl. d78. ; d78=k-2 ┆
0x143720…143740 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 37 39 2e 20 20 20 20 20 3b 0a 64 37 39 3d 6b ┆ jl. d79. ; d79=k┆
0x143740…143760 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 38 34 2e 20 20 20 20 20 3b 0a 64 38 ┆-2 jl. d84. ; d8┆
0x143760…143780 34 3d 6b 2d 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 64 38 35 2e 20 20 20 20 20 3b ┆4=k-2 jl. d85. ;┆
0x143780…1437a0 0a 0a 0a 0a 63 36 39 3a 3c 3a 73 75 73 65 72 63 61 74 3a 3e 2c 20 20 30 2c 20 30 20 20 20 3b 20 ┆ c69:<:susercat:>, 0, 0 ; ┆
0x1437a0…1437c0 6e 61 6d 65 20 6f 66 20 73 2d 75 73 65 72 63 61 74 2c 20 69 6e 63 6c 2e 20 6e 61 6d 65 20 74 61 ┆name of s-usercat, incl. name ta┆
0x1437c0…1437e0 62 6c 65 20 74 61 62 6c 65 20 65 6e 74 72 79 0a 19 00 70 6f 72 74 69 6f 6e 3a 3d 20 77 6f 72 64 ┆ble table entry portion:= word┆
0x1437e0…143800 28 61 64 64 72 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 20 20 2b 32 20 20 20 20 20 ┆(addr); al w2 x2 +2 ┆
0x143800…143820 20 3b 20 20 20 61 64 64 72 3a 3d 20 61 64 64 72 20 2b 20 32 3b 0a 69 31 3a 20 20 61 6c 20 20 77 ┆ ; addr:= addr + 2; i1: al w┆
0x143820…143840 33 20 20 78 33 20 20 2b 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 ┆3 x3 +1 ; al w0 ┆
0x143840…143860 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 72 65 70 65 61 74 0a 20 20 20 20 20 6c 64 20 20 77 31 ┆ 0 ; repeat ld w1┆
0x143860…143880 20 20 20 20 20 20 20 38 20 20 20 20 20 20 3b 20 20 20 20 20 63 68 3a 3d 20 70 6f 72 74 69 6f 6e ┆ 8 ; ch:= portion┆
0x143880…1438a0 20 73 68 69 66 74 20 28 2d 31 36 29 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 20 20 ┆ shift (-16); sn w0 ┆
0x1438a0…1438c0 30 20 20 20 20 20 20 3b 20 20 20 20 20 69 66 20 63 68 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆0 ; if ch = 0 then ┆
0x1438c0…1438e0 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 69 32 2e 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 ┆ jl. i2. ; goto ┆
0x1438e0…143900 65 6e 64 74 65 78 74 3b 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 65 35 38 2e 20 20 20 ┆endtext; rs. w3 e58. ┆
0x143900…143920 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 30 2e 20 20 20 20 20 3b 20 20 ┆ ; jl. w3 d20. ; ┆
0x143920…143940 20 20 20 77 72 69 74 65 20 63 68 61 72 28 63 68 29 3b 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 ┆ write char(ch); rl. w3 ┆
0x143940…143960 20 20 20 65 35 38 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 20 20 2b ┆ e58. ; al w1 x1 +┆
0x143960…143980 38 2e 33 37 37 20 20 3b 20 20 20 20 20 70 6f 72 74 69 6f 6e 3a 3d 20 70 6f 72 74 69 6f 6e 20 73 ┆8.377 ; portion:= portion s┆
0x143980…1439a0 68 69 66 74 20 38 20 2b 20 32 35 35 3b 0a 20 20 20 20 20 73 6e 20 20 77 31 20 20 20 20 20 20 2d ┆hift 8 + 255; sn w1 -┆
0x1439a0…1439c0 31 20 20 20 20 20 20 3b 20 20 20 75 6e 74 69 6c 20 70 6f 72 74 69 6f 6e 20 3d 20 31 3b 0a 20 20 ┆1 ; until portion = 1; ┆
0x1439c0…1439e0 20 20 20 61 6d 20 20 20 20 20 20 20 69 30 2d 69 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c ┆ am i0-i1 ; jl┆
0x1439e0…143a00 2e 20 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 ┆. i1. ; goto next ┆
0x143a00…143a20 0c 0a 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 73 32 20 2d 20 6d 6f 6e 69 ┆ m. mons2 - moni┆
0x143a20…143a40 74 6f 72 20 6f 70 65 72 61 74 69 6e 73 20 73 79 73 74 65 6d 20 73 2c 20 70 61 72 74 20 32 0a 0a ┆tor operatins system s, part 2 ┆
0x143a40…143a60 62 2e 69 33 30 20 77 2e 0a 69 30 3d 38 31 20 30 35 20 30 35 20 2c 20 69 31 3d 31 33 20 30 30 20 ┆b.i30 w. i0=81 05 05 , i1=13 00 ┆
0x143a60…143a80 30 30 0a 0a 3b 20 69 66 20 6e 65 77 74 69 6d 65 20 28 69 30 2c 69 31 29 20 3e 20 6f 6c 64 74 69 ┆00 ; if newtime (i0,i1) > oldti┆
0x143a80…143aa0 6d 65 20 28 61 31 33 33 2c 61 31 33 34 29 20 74 68 65 6e 20 6f 6c 64 74 69 6d 65 3a 3d 6e 65 77 ┆me (a133,a134) then oldtime:=new┆
0x143aa0…143ac0 74 69 6d 65 3b 0a 63 2e 69 30 2d 61 31 33 33 0a 63 2e 69 30 2d 61 31 33 33 2d 31 2c 20 61 31 33 ┆time; c.i0-a133 c.i0-a133-1, a13┆
0x143ac0…143ae0 33 3d 69 30 2c 20 61 31 33 34 3d 69 31 2c 20 7a 2e 0a 63 2e 69 31 2d 61 31 33 34 2d 31 2c 20 20 ┆3=i0, a134=i1, z. c.i1-a134-1, ┆
0x143ae0…143b00 20 20 20 20 20 20 20 20 61 31 33 34 3d 69 31 2c 20 7a 2e 0a 7a 2e 0a 0a 69 31 30 3d 69 30 2c 20 ┆ a134=i1, z. z. i10=i0, ┆
0x143b00…143b20 69 32 30 3d 69 31 0a 0a 69 31 35 3d 69 31 30 2f 31 30 30 30 30 30 20 2c 20 69 31 30 3d 69 31 30 ┆i20=i1 i15=i10/100000 , i10=i10┆
0x143b20…143b40 2d 69 31 35 2a 31 30 30 30 30 30 20 2c 20 69 32 35 3d 69 32 30 2f 31 30 30 30 30 30 20 2c 20 69 ┆-i15*100000 , i25=i20/100000 , i┆
0x143b40…143b60 32 30 3d 69 32 30 2d 69 32 35 2a 31 30 30 30 30 30 20 0a 69 31 34 3d 69 31 30 2f 31 30 30 30 30 ┆20=i20-i25*100000 i14=i10/10000┆
0x143b60…143b80 20 20 2c 20 69 31 30 3d 69 31 30 2d 69 31 34 2a 31 30 30 30 30 20 20 2c 20 69 32 34 3d 69 32 30 ┆ , i10=i10-i14*10000 , i24=i20┆
0x143b80…143ba0 2f 31 30 30 30 30 20 20 2c 20 69 32 30 3d 69 32 30 2d 69 32 34 2a 31 30 30 30 30 20 0a 69 31 33 ┆/10000 , i20=i20-i24*10000 i13┆
0x143ba0…143bc0 3d 69 31 30 2f 31 30 30 30 20 20 20 2c 20 69 31 30 3d 69 31 30 2d 69 31 33 2a 31 30 30 30 20 20 ┆=i10/1000 , i10=i10-i13*1000 ┆
0x143bc0…143be0 20 2c 20 69 32 33 3d 69 32 30 2f 31 30 30 30 20 20 20 2c 20 69 32 30 3d 69 32 30 2d 69 32 33 2a ┆ , i23=i20/1000 , i20=i20-i23*┆
0x143be0…143c00 31 30 30 30 0a 69 31 32 3d 69 31 30 2f 31 30 30 20 20 20 20 2c 20 69 31 30 3d 69 31 30 2d 69 31 ┆1000 i12=i10/100 , i10=i10-i1┆
0x143c00…143c20 32 2a 31 30 30 20 20 20 20 2c 20 69 32 32 3d 69 32 30 2f 31 30 30 20 20 20 20 2c 20 69 32 30 3d ┆2*100 , i22=i20/100 , i20=┆
0x143c20…143c40 69 32 30 2d 69 32 32 2a 31 30 30 0a 69 31 31 3d 69 31 30 2f 31 30 20 20 20 20 20 2c 20 69 31 30 ┆i20-i22*100 i11=i10/10 , i10┆
0x143c40…143c60 3d 69 31 30 2d 69 31 31 2a 31 30 20 20 20 20 20 2c 20 69 32 31 3d 69 32 30 2f 31 30 20 20 20 20 ┆=i10-i11*10 , i21=i20/10 ┆
0x143c60…143c80 20 2c 20 69 32 30 3d 69 32 30 2d 69 32 31 2a 31 30 0a 0a 69 32 3a 3c 3a 20 20 20 20 20 20 20 20 ┆ , i20=i20-i21*10 i2:<: ┆
0x143c80…143ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74 65 20 20 3a 3e 0a 28 ┆ date :> (┆
0x143ca0…143cc0 3a 69 31 35 2b 34 38 3a 29 3c 31 36 2b 28 3a 69 31 34 2b 34 38 3a 29 3c 38 2b 34 36 0a 28 3a 69 ┆:i15+48:)<16+(:i14+48:)<8+46 (:i┆
0x143cc0…143ce0 31 33 2b 34 38 3a 29 3c 31 36 2b 28 3a 69 31 32 2b 34 38 3a 29 3c 38 2b 34 36 0a 28 3a 69 31 31 ┆13+48:)<16+(:i12+48:)<8+46 (:i11┆
0x143ce0…143d00 2b 34 38 3a 29 3c 31 36 2b 28 3a 69 31 30 2b 34 38 3a 29 3c 38 2b 33 32 0a 0a 28 3a 69 32 35 2b ┆+48:)<16+(:i10+48:)<8+32 (:i25+┆
0x143d00…143d20 34 38 3a 29 3c 31 36 2b 28 3a 69 32 34 2b 34 38 3a 29 3c 38 2b 34 36 0a 28 3a 69 32 33 2b 34 38 ┆48:)<16+(:i24+48:)<8+46 (:i23+48┆
0x143d20…143d40 3a 29 3c 31 36 2b 28 3a 69 32 32 2b 34 38 3a 29 3c 38 2b 34 36 0a 28 3a 69 32 31 2b 34 38 3a 29 ┆:)<16+(:i22+48:)<8+46 (:i21+48:)┆
0x143d40…143d60 3c 31 36 2b 28 3a 69 32 30 2b 34 38 3a 29 3c 38 2b 20 30 0a 0a 69 33 3a 20 20 61 6c 2e 20 77 30 ┆<16+(:i20+48:)<8+ 0 i3: al. w0┆
0x143d60…143d80 20 20 20 20 20 20 69 32 2e 20 20 20 20 20 3b 20 77 72 69 74 65 20 64 61 74 65 3a 0a 20 20 20 20 ┆ i2. ; write date: ┆
0x143d80…143da0 20 72 73 20 20 77 30 20 20 78 32 20 20 2b 30 20 20 20 20 20 20 3b 20 20 20 66 69 72 73 74 20 66 ┆ rs w0 x2 +0 ; first f┆
0x143da0…143dc0 72 65 65 3a 3d 73 74 61 72 74 28 74 65 78 74 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 ┆ree:=start(text); al w2 ┆
0x143dc0…143de0 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 20 20 20 20 ┆ 0 ; jl x3 ┆
0x143de0…143e00 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 20 74 6f 20 73 6c 61 6e 67 28 73 74 61 74 75 73 ┆ ; return to slang(status┆
0x143e00…143e20 20 6f 6b 29 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 69 33 2e 20 20 20 20 20 ┆ ok); jl. i3. ┆
0x143e20…143e40 3b 0a 65 2e 0a 6a 2e 0a 0a 0a 77 2e 65 30 3a 20 63 30 20 20 20 20 20 3b 20 3c 66 69 72 73 74 20 ┆; e. j. w.e0: c0 ; <first ┆
0x143e40…143e60 61 64 64 72 3e 0a 3b 65 31 20 20 20 20 20 20 20 20 3b 20 64 65 66 69 6e 65 64 20 62 65 6c 6f 77 ┆addr> ;e1 ; defined below┆
0x143e60…143e80 0a 0a 65 32 3a 63 34 20 20 20 20 20 3b 20 3c 6f 77 6e 20 62 75 66 3e 0a 65 33 3a 63 35 20 20 20 ┆ e2:c4 ; <own buf> e3:c5 ┆
0x143e80…143ea0 20 20 3b 20 3c 6f 77 6e 20 61 72 65 61 3e 0a 65 34 3a 30 20 20 20 20 20 20 3b 20 3c 6d 61 78 20 ┆ ; <own area> e4:0 ; <max ┆
0x143ea0…143ec0 64 65 76 69 63 65 3e 0a 65 35 3a 68 30 20 20 20 20 20 3b 20 3c 63 68 61 72 20 74 61 62 6c 65 3e ┆device> e5:h0 ; <char table>┆
0x143ec0…143ee0 0a 65 36 3a 68 31 20 20 20 20 20 3b 20 3c 70 61 72 61 6d 20 74 61 62 6c 65 3e 0a 65 37 3a 68 32 ┆ e6:h1 ; <param table> e7:h2┆
0x143ee0…143f00 20 20 20 20 20 3b 20 3c 66 69 72 73 74 20 63 6f 6d 6d 61 6e 64 3e 0a 65 31 32 3a 68 33 20 20 20 ┆ ; <first command> e12:h3 ┆
0x143f00…143f20 20 3b 20 3c 74 6f 70 20 63 6f 6d 6d 61 6e 64 20 74 61 62 6c 65 3e 0a 65 38 3a 30 2d 30 2d 30 20 ┆ ; <top command table> e8:0-0-0 ┆
0x143f20…143f40 20 3b 20 3c 6c 61 73 74 20 6f 66 20 69 6e 69 74 63 61 74 20 63 6f 64 65 3e 0a 65 39 3a 68 34 20 ┆ ; <last of initcat code> e9:h4 ┆
0x143f40…143f60 20 20 20 20 3b 20 3c 66 69 72 73 74 20 63 6f 6e 73 6f 6c 65 3e 0a 65 31 30 3a 68 35 20 20 20 20 ┆ ; <first console> e10:h5 ┆
0x143f60…143f80 20 3b 20 3c 6c 61 73 74 20 63 6f 6e 73 6f 6c 65 3e 0a 65 31 31 3a 68 36 20 20 20 20 20 3b 20 3c ┆ ; <last console> e11:h6 ; <┆
0x143f80…143fa0 66 69 72 73 74 20 64 65 76 69 63 65 3e 0a 65 31 33 3a 68 38 20 20 20 20 20 3b 20 3c 66 69 72 73 ┆first device> e13:h8 ; <firs┆
0x143fa0…143fc0 74 20 77 6f 72 6b 3e 0a 65 31 34 3a 68 39 20 20 20 20 20 3b 20 3c 6c 61 73 74 20 77 6f 72 6b 3e ┆t work> e14:h9 ; <last work>┆
0x143fc0…143fe0 0a 65 33 33 3a 68 31 30 20 20 20 20 3b 20 66 69 63 74 69 76 65 20 65 6c 65 6d 65 6e 74 20 62 65 ┆ e33:h10 ; fictive element be┆
0x143fe0…144000 66 6f 72 65 20 66 69 72 73 74 20 63 6f 72 65 20 74 61 62 6c 65 0a 65 31 35 3d 6b 2d 63 32 30 0a ┆fore first core table e15=k-c20 ┆
0x144000…144020 (432,) 65 31 35 2c 65 31 35 0a 65 31 36 3a 68 31 31 20 20 20 20 3b 20 3c 66 69 72 73 74 20 63 6f 72 65 ┆e15,e15 e16:h11 ; <first core┆
0x144020…144040 3e 0a 65 31 37 3a 30 20 20 20 20 20 20 3b 20 3c 74 6f 70 20 63 6f 72 65 3e 0a 65 31 38 3a 30 20 ┆> e17:0 ; <top core> e18:0 ┆
0x144040…144060 20 20 20 20 20 3b 20 3c 70 61 72 61 6d 20 74 79 70 65 3e 0a 65 31 39 3a 30 20 20 20 20 20 20 3b ┆ ; <param type> e19:0 ;┆
0x144060…144080 20 3c 69 6e 74 65 67 65 72 3e 0a 65 32 34 3a 68 38 20 20 20 20 20 3b 20 3c 77 6f 72 6b 3e 20 20 ┆ <integer> e24:h8 ; <work> ┆
0x144080…1440a0 28 20 69 6e 69 74 69 61 6c 6c 79 3a 20 66 69 72 73 74 20 77 6f 72 6b 20 29 0a 3b 20 2a 2a 2a 20 ┆( initially: first work ) ; *** ┆
0x1440a0…1440c0 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 69 61 62 6c 65 73 20 6d 75 73 74 20 6d 61 74 ┆the following variables must mat┆
0x1440c0…1440e0 63 68 20 70 61 72 74 20 6f 66 20 77 6f 72 6b 2d 61 72 65 61 0a 65 32 30 3a 30 20 20 20 20 20 20 ┆ch part of work-area e20:0 ┆
0x1440e0…144100 3b 20 3c 6e 61 6d 65 3e 0a 65 32 31 3a 30 20 20 20 20 20 20 3b 0a 65 32 32 3a 30 20 20 20 20 20 ┆; <name> e21:0 ; e22:0 ┆
0x144100…144120 20 3b 0a 65 32 33 3a 30 20 20 20 20 20 20 3b 0a 30 0a 65 37 38 3a 30 20 3b 20 75 73 65 64 20 69 ┆ ; e23:0 ; 0 e78:0 ; used i┆
0x144120…144140 6e 20 6c 69 73 74 0a 65 37 39 3a 2d 31 20 20 3b 20 73 65 67 6d 65 6e 74 20 69 6e 20 73 75 73 65 ┆n list e79:-1 ; segment in suse┆
0x144140…144160 72 63 61 74 20 6f 72 20 2d 31 0a 65 38 31 3a 30 20 20 20 20 20 20 3b 72 65 6d 6f 76 65 2c 31 3c ┆rcat or -1 e81:0 ;remove,1<┆
0x144160…144180 32 31 20 69 6e 64 69 63 61 74 6f 72 20 0a 65 32 35 3a 68 32 31 20 20 20 20 3b 20 3c 63 6f 6e 73 ┆21 indicator e25:h21 ; <cons┆
0x144180…1441a0 6f 6c 65 3e 20 20 28 20 69 6e 69 74 69 61 6c 6c 79 3a 20 66 69 72 73 74 20 63 6f 6e 73 6f 6c 65 ┆ole> ( initially: first console┆
0x1441a0…1441c0 20 29 0a 65 32 36 3a 30 20 20 20 20 20 20 3b 20 3c 63 6f 6e 73 6f 6c 65 20 62 75 66 3e 20 6f 72 ┆ ) e26:0 ; <console buf> or┆
0x1441c0…1441e0 20 3c 6c 61 73 74 20 61 64 64 72 3e 0a 65 32 37 3a 38 20 20 20 20 20 20 3b 20 3c 63 68 61 72 20 ┆ <last addr> e27:8 ; <char ┆
0x1441e0…144200 73 68 69 66 74 3e 20 20 28 69 6e 69 74 69 61 6c 6c 79 3a 20 70 72 65 70 61 72 65 64 20 66 6f 72 ┆shift> (initially: prepared for┆
0x144200…144220 20 65 6d 70 74 79 20 63 68 61 72 20 62 75 66 29 0a 65 32 38 3a 30 20 20 20 20 20 20 3b 20 3c 63 ┆ empty char buf) e28:0 ; <c┆
0x144220…144240 68 61 72 20 61 64 64 72 3e 0a 65 32 39 3a 30 20 20 20 20 20 20 3b 20 3c 63 68 69 6c 64 3e 0a 65 ┆har addr> e29:0 ; <child> e┆
0x144240…144260 33 30 3a 30 20 20 20 20 20 20 3b 20 3c 63 6f 72 65 20 61 64 64 72 3e 0a 3b 20 2a 2a 2a 20 65 6e ┆30:0 ; <core addr> ; *** en┆
0x144260…144280 64 20 6f 66 20 77 6f 72 6b 2d 61 72 65 61 20 6d 61 74 63 68 0a 65 33 31 3a 68 32 31 0a 0a 65 33 ┆d of work-area match e31:h21 e3┆
0x144280…1442a0 34 3a 30 0a 65 33 35 3d 6b 2d 63 32 30 0a 68 34 2c 68 32 32 0a 65 33 36 3a 0a 65 33 37 3a 30 0a ┆4:0 e35=k-c20 h4,h22 e36: e37:0 ┆
0x1442a0…1442c0 65 33 38 3a 30 0a 65 33 32 3a 30 2c 72 2e 38 20 20 3b 20 3c 6d 65 73 73 61 67 65 3e 0a 0a 65 38 ┆e38:0 e32:0,r.8 ; <message> e8┆
0x1442c0…1442e0 38 3a 30 20 20 20 20 20 20 3b 20 65 78 70 65 63 74 65 64 20 61 6e 73 77 65 72 0a 65 38 39 3a 30 ┆8:0 ; expected answer e89:0┆
0x1442e0…144300 20 20 20 20 20 20 3b 20 65 78 65 63 75 74 69 6e 67 20 72 65 65 6e 74 72 61 6e 74 20 63 6f 64 65 ┆ ; executing reentrant code┆
0x144300…144320 3a 20 30 3d 66 61 6c 73 65 2c 20 2d 31 3d 74 72 75 65 20 28 69 6e 69 74 69 61 6c 6c 79 20 3d 20 ┆: 0=false, -1=true (initially = ┆
0x144320…144340 66 61 6c 73 65 29 0a 0a 65 33 39 3a 30 20 20 20 20 20 20 3b 20 3c 65 76 65 6e 74 3e 0a 65 34 30 ┆false) e39:0 ; <event> e40┆
0x144340…144360 3a 30 20 20 20 20 20 20 3b 20 3c 72 65 63 65 69 76 65 72 3e 0a 65 34 31 3a 30 20 20 20 20 20 20 ┆:0 ; <receiver> e41:0 ┆
0x144360…144380 3b 0a 65 34 32 3a 30 20 20 20 20 20 20 3b 0a 65 34 33 3a 30 2c 30 20 20 20 20 3b 20 0a 65 35 35 ┆; e42:0 ; e43:0,0 ; e55┆
0x144380…1443a0 3a 30 20 20 20 20 20 20 3b 20 3c 77 72 69 74 65 20 73 68 69 66 74 3e 0a 65 34 34 3a 35 3c 31 32 ┆:0 ; <write shift> e44:5<12┆
0x1443a0…1443c0 20 20 20 3b 20 3c 74 79 70 65 20 6d 65 73 73 3e 0a 65 34 35 3a 30 20 20 20 20 20 20 3b 20 3c 6c ┆ ; <type mess> e45:0 ; <l┆
0x1443c0…1443e0 69 6e 65 20 61 64 64 72 3e 0a 65 34 36 3a 30 20 20 20 20 20 20 3b 20 3c 77 72 69 74 65 20 61 64 ┆ine addr> e46:0 ; <write ad┆
0x1443e0…144400 64 72 3e 0a 30 0a 65 34 37 3a 33 3c 31 32 20 20 20 3b 20 3c 61 72 65 61 20 6d 65 73 73 3e 20 6f ┆dr> 0 e47:3<12 ; <area mess> o┆
0x144400…144420 72 20 3c 69 6e 70 75 74 20 6d 65 73 73 3e 0a 65 34 38 3a 30 20 20 20 20 20 20 3b 20 3c 66 69 72 ┆r <input mess> e48:0 ; <fir┆
0x144420…144440 73 74 20 61 64 64 72 3e 0a 65 34 39 3a 30 20 20 20 20 20 20 3b 20 3c 6c 61 73 74 20 61 64 64 72 ┆st addr> e49:0 ; <last addr┆
0x144440…144460 3e 0a 65 35 30 3a 30 20 20 20 20 20 20 3b 20 3c 73 65 67 6d 65 6e 74 3e 0a 65 38 37 3a 20 30 20 ┆> e50:0 ; <segment> e87: 0 ┆
0x144460…144480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 72 65 61 62 75 66 20 73 74 61 74 65 ┆ ; areabuf state┆
0x144480…1444a0 3a 20 30 3d 64 65 66 69 6e 65 64 2c 20 65 6c 73 65 20 75 6e 64 65 66 20 28 69 6e 69 74 69 61 6c ┆: 0=defined, else undef (initial┆
0x1444a0…1444c0 6c 79 20 64 65 66 69 6e 65 64 29 0a 65 35 31 3a 30 20 20 20 20 20 20 3b 20 3c 65 6e 74 72 79 20 ┆ly defined) e51:0 ; <entry ┆
0x1444c0…1444e0 74 61 69 6c 3e 20 6f 72 20 3c 61 6e 73 77 65 72 3e 20 6f 72 20 3c 6d 65 73 73 61 67 65 3e 0a 65 ┆tail> or <answer> or <message> e┆
0x1444e0…144500 35 32 3a 30 20 20 20 20 20 20 3b 0a 65 35 33 3a 30 20 20 20 20 20 20 3b 0a 65 35 34 3a 30 20 20 ┆52:0 ; e53:0 ; e54:0 ┆
0x144500…144520 20 20 20 20 3b 20 3c 63 6f 6e 76 65 72 74 20 61 72 65 61 3e 0a 30 0a 65 35 36 3a 30 20 20 20 20 ┆ ; <convert area> 0 e56:0 ┆
0x144520…144540 20 20 3b 20 3c 72 65 61 64 20 73 68 69 66 74 3e 20 6f 72 20 3c 72 61 64 69 78 3e 20 6f 72 20 3c ┆ ; <read shift> or <radix> or <┆
0x144540…144560 73 74 61 72 74 3e 0a 65 35 37 3a 30 20 20 20 20 20 20 3b 20 3c 72 65 61 64 20 61 64 64 72 3e 20 ┆start> e57:0 ; <read addr> ┆
0x144560…144580 6f 72 20 3c 73 74 61 74 65 3e 20 6f 72 20 3c 73 69 7a 65 3e 0a 65 35 38 3a 30 20 20 20 20 20 20 ┆or <state> or <size> e58:0 ┆
0x144580…1445a0 3b 20 3c 73 61 76 65 20 77 31 3e 20 6f 72 20 3c 66 69 72 73 74 20 73 65 67 6d 65 6e 74 3e 0a 65 ┆; <save w1> or <first segment> e┆
0x1445a0…1445c0 35 39 3a 30 20 20 20 20 20 20 3b 20 3c 73 61 76 65 20 77 32 3e 20 6f 72 20 3c 63 6f 6e 74 65 6e ┆59:0 ; <save w2> or <conten┆
0x1445c0…1445e0 74 3e 20 6f 72 20 3c 6b 65 79 73 3e 20 6f 72 20 3c 72 65 73 75 6c 74 3e 0a 65 36 30 3a 30 20 20 ┆t> or <keys> or <result> e60:0 ┆
0x1445e0…144600 20 20 20 20 3b 20 3c 6c 69 6e 6b 3e 20 6f 72 20 3c 62 79 74 65 73 20 74 6f 20 6c 6f 61 64 3e 0a ┆ ; <link> or <bytes to load> ┆
0x144600…144620 65 36 31 3a 30 20 20 20 20 20 20 3b 20 3c 63 68 69 6c 64 20 77 30 3e 0a 65 36 32 3a 30 20 20 20 ┆e61:0 ; <child w0> e62:0 ┆
0x144620…144640 20 20 20 3b 20 3c 63 68 69 6c 64 20 77 31 3e 0a 65 36 33 3a 30 20 20 20 20 20 20 3b 20 3c 63 68 ┆ ; <child w1> e63:0 ; <ch┆
0x144640…144660 69 6c 64 20 77 32 3e 0a 65 36 34 3a 30 20 20 20 20 20 20 3b 20 3c 63 68 69 6c 64 20 77 33 3e 0a ┆ild w2> e64:0 ; <child w3> ┆
0x144660…144680 65 36 35 3a 30 20 20 20 20 20 20 3b 20 3c 63 68 69 6c 64 20 65 78 3e 0a 65 36 36 3a 30 20 20 20 ┆e65:0 ; <child ex> e66:0 ┆
0x144680…1446a0 20 20 20 3b 20 3c 63 68 69 6c 64 20 69 63 3e 0a 65 36 37 3d 65 35 39 2b 31 20 20 3b 20 3c 69 63 ┆ ; <child ic> e67=e59+1 ; <ic┆
0x1446a0…1446c0 20 69 6e 20 65 6e 74 72 79 3e 0a 65 36 38 3d 65 36 36 2b 32 0a 30 2c 30 0a 65 36 39 3a 30 20 20 ┆ in entry> e68=e66+2 0,0 e69:0 ┆
0x1446c0…1446e0 20 20 20 3b 6a 6f 62 63 6f 75 6e 74 0a 63 2e 28 3a 63 32 33 3e 31 34 20 61 2e 31 3a 29 2d 31 0a ┆ ;jobcount c.(:c23>14 a.1:)-1 ┆
0x1446e0…144700 65 37 30 3a 68 31 39 0a 65 37 31 3a 68 32 30 0a 7a 2e 0a 6d 2e 20 20 20 20 20 20 20 20 20 73 20 ┆e70:h19 e71:h20 z. m. s ┆
0x144700…144720 6c 6f 63 6b 20 69 6e 64 69 63 61 74 6f 72 2e 0a 63 2e 28 3a 63 32 33 3e 31 33 20 61 2e 31 3a 29 ┆lock indicator. c.(:c23>13 a.1:)┆
0x144720…144740 2d 31 20 20 20 20 20 3b 20 69 66 20 74 65 6d 69 6e 61 6c 73 20 73 68 61 6c 20 62 65 20 62 6c 6f ┆-1 ; if teminals shal be blo┆
0x144740…144760 63 6b 65 64 20 61 66 74 65 72 20 73 74 61 72 74 20 75 70 0a 65 38 30 3a 20 2d 31 20 20 20 20 20 ┆cked after start up e80: -1 ┆
0x144760…144780 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 65 38 30 3d 2d 31 2c 20 65 6c 73 65 0a 7a ┆ ; then e80=-1, else z┆
0x144780…1447a0 2e 0a 63 2e 2d 28 3a 63 32 33 3e 31 33 20 61 2e 31 3a 29 20 20 20 20 20 20 3b 0a 65 38 30 3a 20 ┆. c.-(:c23>13 a.1:) ; e80: ┆
0x1447a0…1447c0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 38 30 3d 30 0a 7a 2e 0a 65 38 35 ┆0 ; e80=0 z. e85┆
0x1447c0…1447e0 3a 30 20 20 20 3b 20 75 73 65 64 20 69 6e 20 6a 6f 62 20 63 6f 6d 6d 61 6e 64 0a 0a 3b 20 65 6e ┆:0 ; used in job command ; en┆
0x1447e0…144800 64 20 6c 69 6e 65 3a 0a 65 31 3d 65 31 37 2d 61 31 37 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆d line: e1=e17-a17;*************┆
0x144800…144820 2a 2a 2a 2a 2a 2a 2a 0a 67 31 3a 20 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 ┆******* g1: jl. w1 g28. ┆
0x144820…144840 20 3b 0a 67 34 38 3d 6b 2b 34 0a 3c 3a 72 65 61 64 79 20 20 2a 2a 64 61 74 65 20 6e 6f 74 20 69 ┆ ; g48=k+4 <:ready **date not i┆
0x144840…144860 6e 69 74 69 61 6c 69 7a 65 64 20 3c 30 3e 3a 3e 20 20 20 3b 20 74 65 78 74 20 75 6e 74 69 6c 20 ┆nitialized <0>:> ; text until ┆
0x144860…144880 64 61 74 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 20 0a 67 32 3a 20 20 6a 6c 2e 20 77 31 20 20 ┆date initialized g2: jl. w1 ┆
0x144880…1448a0 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 73 79 6e 74 61 78 20 65 72 72 6f 72 3a 3c 30 3e ┆ g28. ; <:syntax error:<0>┆
0x1448a0…1448c0 3a 3e 0a 67 33 3a 20 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a ┆:> g3: jl. w1 g28. ; <:┆
0x1448c0…1448e0 6e 6f 74 20 61 6c 6c 6f 77 65 64 3c 30 3e 3a 3e 0a 67 34 3a 20 20 6a 6c 2e 20 77 31 20 20 20 20 ┆not allowed<0>:> g4: jl. w1 ┆
0x1448e0…144900 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 6e 6f 20 63 6f 72 65 3c 30 3e 3a 3e 0a 67 35 3a 20 20 ┆ g28. ; <:no core<0>:> g5: ┆
0x144900…144920 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 6e 6f 20 62 75 66 66 65 ┆jl. w1 g28. ; <:no buffe┆
0x144920…144940 72 73 3c 30 3e 3a 3e 0a 67 36 3a 20 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 ┆rs<0>:> g6: jl. w1 g28. ┆
0x144940…144960 20 3b 0a 3c 3a 6e 6f 20 61 72 65 61 73 3c 30 3e 3a 3e 0a 67 37 3a 20 20 6a 6c 2e 20 77 31 20 20 ┆ ; <:no areas<0>:> g7: jl. w1 ┆
0x144960…144980 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 6e 6f 20 69 6e 74 65 72 6e 61 6c 73 3c 30 3e 3a ┆ g28. ; <:no internals<0>:┆
0x144980…1449a0 3e 0a 67 38 3a 20 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 6b ┆> g8: jl. w1 g28. ; <:k┆
0x1449a0…1449c0 65 79 20 74 72 6f 75 62 6c 65 3c 30 3e 3a 3e 0a 67 39 3a 20 20 6a 6c 2e 20 77 31 20 20 20 20 20 ┆ey trouble<0>:> g9: jl. w1 ┆
0x1449c0…1449e0 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 70 72 6f 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 3c 30 3e 3a ┆g28. ; <:process unknown<0>:┆
0x1449e0…144a00 3e 0a 67 31 30 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 70 ┆> g10: jl. w1 g28. ; <:p┆
0x144a00…144a20 72 6f 63 65 73 73 20 65 78 69 73 74 73 3c 30 3e 3a 3e 0a 67 31 31 3a 20 6a 6c 2e 20 77 31 20 20 ┆rocess exists<0>:> g11: jl. w1 ┆
0x144a20…144a40 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 63 61 74 61 6c 6f 67 20 65 72 72 6f 72 3c 30 3e ┆ g28. ; <:catalog error<0>┆
0x144a40…144a60 3a 3e 0a 67 31 32 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a ┆:> g12: jl. w1 g28. ; <:┆
0x144a60…144a80 61 72 65 61 20 75 6e 6b 6e 6f 77 6e 3c 30 3e 3a 3e 0a 67 31 33 3a 20 6a 6c 2e 20 77 31 20 20 20 ┆area unknown<0>:> g13: jl. w1 ┆
0x144a80…144aa0 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 61 72 65 61 20 72 65 73 65 72 76 65 64 3c 30 3e 3a ┆ g28. ; <:area reserved<0>:┆
0x144aa0…144ac0 3e 0a 67 31 34 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 70 ┆> g14: jl. w1 g28. ; <:p┆
0x144ac0…144ae0 72 6f 67 72 61 6d 20 74 6f 6f 20 62 69 67 3c 30 3e 3a 3e 0a 67 31 35 3a 20 6a 6c 2e 20 77 31 20 ┆rogram too big<0>:> g15: jl. w1 ┆
0x144ae0…144b00 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 61 72 65 61 20 65 72 72 6f 72 3c 30 3e 3a 3e ┆ g28. ; <:area error<0>:>┆
0x144b00…144b20 0a 67 31 36 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 64 65 ┆ g16: jl. w1 g28. ; <:de┆
0x144b20…144b40 76 69 63 65 20 75 6e 6b 6e 6f 77 6e 3c 30 3e 3a 3e 0a 67 31 37 3a 20 6a 6c 2e 20 77 31 20 20 20 ┆vice unknown<0>:> g17: jl. w1 ┆
0x144b40…144b60 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 64 65 76 69 63 65 20 72 65 73 65 72 76 65 64 3c 30 ┆ g28. ; <:device reserved<0┆
0x144b60…144b80 3e 3a 3e 0a 67 31 38 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c ┆>:> g18: jl. w1 g28. ; <┆
0x144b80…144ba0 3a 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 3c 30 3e 3a 3e 0a 67 31 39 3a 20 6a 6c 2e 20 77 ┆:not implemented<0>:> g19: jl. w┆
0x144ba0…144bc0 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 62 61 73 65 20 69 6c 6c 65 67 61 6c 3c ┆1 g28. ; <:base illegal<┆
0x144bc0…144be0 30 3e 3a 3e 0a 67 32 30 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a ┆0>:> g20: jl. w1 g28. ; ┆
0x144be0…144c00 3c 3a 62 73 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 3c 30 3e 3a 3e 0a 67 32 31 3a 20 6a ┆<:bs claims exceeded<0>:> g21: j┆
0x144c00…144c20 (433,) 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 62 73 20 64 65 76 69 63 65 ┆l. w1 g28. ; <:bs device┆
0x144c20…144c40 20 75 6e 6b 6e 6f 77 6e 3c 30 3e 3a 3e 0a 67 32 32 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 ┆ unknown<0>:> g22: jl. w1 g2┆
0x144c40…144c60 38 2e 20 20 20 20 20 3b 0a 3c 3a 6e 61 6d 65 20 75 6e 6b 6e 6f 77 6e 3c 30 3e 3a 3e 0a 67 32 33 ┆8. ; <:name unknown<0>:> g23┆
0x144c60…144c80 3a 3c 3a 6d 65 73 73 61 67 65 3c 30 3e 3a 3e 0a 67 32 34 3a 3c 3a 70 61 75 73 65 3c 30 3e 3a 3e ┆:<:message<0>:> g24:<:pause<0>:>┆
0x144c80…144ca0 0a 67 32 35 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 6e 6f ┆ g25: jl. w1 g28. ; <:no┆
0x144ca0…144cc0 20 65 6e 74 72 69 65 73 20 69 6e 20 6d 61 69 6e 63 61 74 3c 30 3e 3a 3e 0a 67 32 36 3a 3c 3a 6d ┆ entries in maincat<0>:> g26:<:m┆
0x144cc0…144ce0 61 78 3c 30 3e 3a 3e 0a 67 32 37 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 ┆ax<0>:> g27: jl. w1 g28. ┆
0x144ce0…144d00 20 3b 0a 3c 3a 69 6c 6c 65 67 61 6c 20 70 72 69 6f 72 69 74 79 3c 30 3e 20 3a 3e 0a 67 32 39 3a ┆ ; <:illegal priority<0> :> g29:┆
0x144d00…144d20 20 6a 6c 2e 20 77 31 20 20 20 20 20 67 32 38 2e 20 20 20 20 20 3b 0a 3c 3a 70 72 6f 67 20 6e 61 ┆ jl. w1 g28. ; <:prog na┆
0x144d20…144d40 6d 65 20 75 6e 6b 6e 6f 77 6e 3c 30 3e 3a 3e 0a 67 34 37 3a 20 6a 6c 2e 20 77 31 20 20 20 20 20 ┆me unknown<0>:> g47: jl. w1 ┆
0x144d40…144d60 67 32 38 2e 20 20 20 3b 0a 3c 3a 69 6e 70 75 74 20 61 62 6f 72 74 65 64 3c 30 3e 3a 3e 0a 0a 67 ┆g28. ; <:input aborted<0>:> g┆
0x144d60…144d80 32 38 3a 0a 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 20 2d 31 30 30 20 20 20 20 20 20 3b 20 77 ┆28: ld w3 -100 ; w┆
0x144d80…144da0 32 3d 77 33 3d 30 0a 20 20 20 20 20 73 65 20 20 77 33 20 20 28 62 31 33 29 20 20 20 20 20 20 3b ┆2=w3=0 se w3 (b13) ;┆
0x144da0…144dc0 20 69 66 20 63 6c 6f 63 6b 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if clock initialized then ┆
0x144dc0…144de0 72 73 2e 20 77 33 20 20 67 34 38 2e 20 20 20 20 20 20 20 3b 20 72 65 6d 6f 76 65 20 77 61 72 6e ┆rs. w3 g48. ; remove warn┆
0x144de0…144e00 69 6e 67 0a 20 20 20 20 20 73 6e 2e 20 77 31 20 20 20 20 20 20 67 32 2e 2b 32 20 20 20 3b 20 69 ┆ing sn. w1 g2.+2 ; i┆
0x144e00…144e20 66 20 27 73 79 6e 74 61 78 27 20 74 68 65 6e 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 ┆f 'syntax' then al w2 ┆
0x144e20…144e40 20 31 30 20 20 20 20 20 20 3b 20 73 65 74 20 77 32 3d 31 30 0a 20 20 20 20 20 73 65 2e 20 77 31 ┆ 10 ; set w2=10 se. w1┆
0x144e40…144e60 20 20 20 20 20 20 67 31 2e 2b 32 20 20 20 3b 20 65 6c 73 65 0a 20 20 20 20 20 68 73 2e 20 77 33 ┆ g1.+2 ; else hs. w3┆
0x144e60…144e80 20 20 20 20 20 65 38 31 2e 20 20 20 20 20 3b 20 72 65 73 65 74 20 72 65 6d 6f 76 65 20 69 6e 64 ┆ e81. ; reset remove ind┆
0x144e80…144ea0 69 63 61 74 6f 72 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 20 20 2d 31 20 20 20 20 20 20 ┆icator al w3 -1 ┆
0x144ea0…144ec0 3b 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 65 38 39 2e 20 20 20 3b 20 20 20 65 78 65 ┆; rs. w3 e89. ; exe┆
0x144ec0…144ee0 63 75 74 69 6e 67 20 72 65 65 6e 74 72 61 6e 74 20 63 6f 64 65 20 3a 3d 20 74 72 75 65 3b 0a 20 ┆cuting reentrant code := true; ┆
0x144ee0…144f00 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 65 37 39 2e 20 20 20 20 20 3b 20 72 65 73 65 74 20 ┆ rs. w3 e79. ; reset ┆
0x144f00…144f20 73 65 67 6d 65 6e 74 20 6e 6f 20 69 6e 20 73 75 73 65 72 63 61 74 0a 20 20 20 20 20 6a 6c 2e 20 ┆segment no in susercat jl. ┆
0x144f20…144f40 77 33 20 20 20 20 20 64 31 39 2e 20 20 20 20 20 3b 20 69 6e 69 74 20 77 72 69 74 65 0a 20 20 20 ┆w3 d19. ; init write ┆
0x144f40…144f60 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 31 2e 20 20 20 20 20 3b 20 77 72 69 74 65 20 74 65 ┆ jl. w3 d21. ; write te┆
0x144f60…144f80 78 74 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 20 20 20 20 31 30 20 20 20 20 20 20 3b 20 69 66 ┆xt se w2 10 ; if┆
0x144f80…144fa0 20 73 79 6e 74 61 78 20 65 72 72 6f 72 20 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆ syntax error then jl. ┆
0x144fa0…144fc0 20 20 20 20 67 34 36 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 20 20 65 ┆ g46. ; al. w1 e┆
0x144fc0…144fe0 32 30 2e 20 20 20 20 20 3b 20 77 72 69 74 65 20 6c 61 73 74 20 72 65 61 64 20 70 61 72 61 6d 65 ┆20. ; write last read parame┆
0x144fe0…145000 74 65 72 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 31 2e 20 20 20 20 20 3b 0a 20 ┆ter jl. w3 d21. ; ┆
0x145000…145020 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 65 31 39 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 72 ┆ rl. w1 e19. ; r┆
0x145020…145040 6c 2e 20 77 30 20 20 20 20 20 65 32 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 ┆l. w0 e20. ; sn w0┆
0x145040…145060 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 32 2e 20 20 20 ┆ 0 jl. w3 d22. ┆
0x145060…145080 20 20 3b 0a 67 34 36 3a 20 61 6c 20 20 77 30 20 20 20 20 20 20 31 30 20 20 20 20 20 20 3b 0a 20 ┆ ; g46: al w0 10 ; ┆
0x145080…1450a0 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 30 2e 20 20 20 20 20 3b 20 77 72 69 74 65 20 ┆ jl. w3 d20. ; write ┆
0x1450a0…1450c0 3c 6e 6c 3e 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 32 33 2e 20 20 20 20 20 3b 20 ┆<nl> jl. w3 d23. ; ┆
0x1450c0…1450e0 74 79 70 65 20 6c 69 6e 65 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 34 32 2e 20 20 ┆type line jl. w3 d42. ┆
0x1450e0…145100 20 20 20 3b 20 20 20 73 61 76 65 20 77 6f 72 6b 28 62 75 66 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 ┆ ; save work(buf); jl. ┆
0x145100…145120 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 3b 2b 32 3a 20 20 65 72 72 6f 72 0a 20 20 20 20 ┆ 2 ;+2: error ┆
0x145120…145140 20 72 6c 2e 20 77 31 20 20 20 20 20 65 32 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 ┆ rl. w1 e25. ; jl. ┆
0x145140…145160 77 33 20 20 20 20 20 64 31 30 2e 20 20 20 20 20 3b 20 64 65 63 72 65 61 73 65 20 61 63 63 65 73 ┆w3 d10. ; decrease acces┆
0x145160…145180 73 0a 0a 67 33 30 3a 20 61 6c 20 20 77 32 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 65 78 ┆s g30: al w2 0 ; ex┆
0x145180…1451a0 61 6d 20 66 69 72 73 74 3a 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 65 38 31 2e 20 20 ┆am first: rs. w2 e81. ┆
0x1451a0…1451c0 20 3b 20 20 20 72 65 73 65 74 20 72 65 6d 6f 76 65 20 6c 69 73 74 20 69 6e 64 69 63 61 74 6f 72 ┆ ; reset remove list indicator┆
0x1451c0…1451e0 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 33 32 2e 20 20 20 20 20 3b 20 20 20 65 76 ┆ jl. g32. ; ev┆
0x1451e0…145200 65 6e 74 3a 3d 30 3b 0a 67 33 31 3a 20 72 6c 2e 20 77 32 20 20 20 20 20 65 33 39 2e 20 20 20 20 ┆ent:=0; g31: rl. w2 e39. ┆
0x145200…145220 20 3b 20 65 78 61 6d 20 6e 65 78 74 3a 0a 67 33 32 3a 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 32 ┆ ; exam next: g32: jd 1<11+2┆
0x145220…145240 34 20 20 20 20 20 20 3b 20 20 20 77 61 69 74 20 65 76 65 6e 74 28 65 76 65 6e 74 2c 6e 65 78 74 ┆4 ; wait event(event,next┆
0x145240…145260 2c 72 65 73 75 6c 74 29 3b 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 65 33 39 2e 20 20 ┆,result); rs. w2 e39. ┆
0x145260…145280 20 20 20 3b 20 20 20 65 76 65 6e 74 3a 3d 6e 65 78 74 3b 0a 20 20 20 20 20 72 6c 20 20 77 31 20 ┆ ; event:=next; rl w1 ┆
0x145280…1452a0 20 78 32 20 20 2b 36 20 20 20 20 20 20 3b 20 20 20 73 65 6e 64 65 72 3a 3d 77 6f 72 64 28 65 76 ┆ x2 +6 ; sender:=word(ev┆
0x1452a0…1452c0 65 6e 74 2b 36 29 3b 0a 63 2e 28 3a 63 32 34 3e 32 30 61 2e 31 3a 29 2d 31 20 20 20 20 20 20 20 ┆ent+6); c.(:c24>20a.1:)-1 ┆
0x1452c0…1452e0 3b 20 20 20 69 66 20 65 76 65 6e 74 20 74 65 73 74 6f 75 74 70 75 74 20 74 68 65 6e 0a 20 20 20 ┆; if event testoutput then ┆
0x1452e0…145300 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 33 30 20 20 20 20 20 20 3b 20 20 20 62 65 67 69 6e 20 ┆ jd 1<11+30 ; begin ┆
0x145300…145320 74 79 70 65 20 77 31 28 73 65 6e 64 65 72 29 3b 0a 20 20 20 20 20 6a 64 20 20 20 20 20 31 3c 31 ┆type w1(sender); jd 1<1┆
0x145320…145340 31 2b 33 32 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 74 79 70 65 20 77 32 28 65 76 65 6e ┆1+32 ; type w2(even┆
0x145340…145360 74 29 3b 0a 7a 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆t); z. ; ┆
0x145360…145380 65 6e 64 3b 0a 20 20 20 20 20 73 7a 2e 20 77 32 20 20 20 20 28 65 38 39 2e 29 20 20 3b 20 20 20 ┆end; sz. w2 (e89.) ; ┆
0x145380…1453a0 69 66 20 65 78 65 63 75 74 69 6e 67 20 6e 6f 6e 2d 72 65 65 6e 74 72 61 6e 74 20 63 6f 64 65 0a ┆if executing non-reentrant code ┆
0x1453a0…1453c0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 34 31 2e 20 20 20 3b 20 20 20 20 20 61 6e 64 ┆ jl. g41. ; and┆
0x1453c0…1453e0 0a 20 20 20 20 20 73 65 2e 20 77 32 20 20 20 20 28 65 38 38 2e 29 20 20 3b 20 20 20 20 20 65 76 ┆ se. w2 (e88.) ; ev┆
0x1453e0…145400 65 6e 74 20 3c 3e 20 65 78 70 65 63 74 65 64 20 61 6e 73 77 65 72 20 74 68 65 6e 0a 20 20 20 20 ┆ent <> expected answer then ┆
0x145400…145420 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 33 32 2e 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 65 78 ┆ jl. g32. ; goto ex┆
0x145420…145440 61 6d 20 6e 65 78 74 3b 0a 67 34 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆am next; g41: ┆
0x145440…145460 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 69 ┆; sn w0 0 ; i┆
0x145460…145480 66 20 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆f result=0 then jl. ┆
0x145480…1454a0 67 33 34 2e 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6d 65 73 73 61 67 65 20 72 65 63 65 69 76 ┆g34. ; goto message receiv┆
0x1454a0…1454c0 65 64 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 34 31 2e 20 20 20 3b 20 20 20 66 ┆ed; jl. w3 d41. ; f┆
0x1454c0…1454e0 69 6e 64 20 77 6f 72 6b 28 65 76 65 6e 74 2c 6f 6c 64 20 77 6f 72 6b 29 3b 0a 20 20 20 20 20 61 ┆ind work(event,old work); a┆
0x1454e0…145500 6c 2e 20 77 31 20 20 20 20 20 65 35 31 2e 20 20 20 20 20 3b 20 61 6e 73 77 65 72 20 72 65 63 65 ┆l. w1 e51. ; answer rece┆
0x145500…145520 69 76 65 64 3a 0a 20 20 20 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 31 38 20 20 20 20 20 20 3b ┆ived: jd 1<11+18 ;┆
0x145520…145540 20 20 20 77 61 69 74 20 61 6e 73 77 65 72 28 65 76 65 6e 74 2c 61 6e 73 77 65 72 2c 72 65 73 75 ┆ wait answer(event,answer,resu┆
0x145540…145560 6c 74 29 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 ┆lt) al w3 1 ; ┆
0x145560…145580 20 77 31 20 3a 3d 20 6c 6f 67 69 63 61 6c 20 73 74 61 74 75 73 0a 20 20 20 20 20 6c 73 20 20 77 ┆ w1 := logical status ls w┆
0x145580…1455a0 33 20 20 20 20 20 20 28 30 29 20 20 20 20 20 3b 20 20 20 20 20 20 3a 3d 20 31 20 73 68 69 66 74 ┆3 (0) ; := 1 shift┆
0x1455a0…1455c0 20 72 65 73 75 6c 74 0a 20 20 20 20 20 73 6e 20 20 77 33 20 20 20 20 20 31 3c 31 20 20 20 20 20 ┆ result sn w3 1<1 ┆
0x1455c0…1455e0 20 3b 20 20 20 20 20 20 20 2b 20 6d 61 79 62 65 20 73 74 61 74 75 73 2e 61 6e 73 77 65 72 3b 0a ┆ ; + maybe status.answer; ┆
0x1455e0…145600 20 20 20 20 20 6c 6f 20 20 77 33 20 20 78 31 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ lo w3 x1 ; ┆
0x145600…145620 72 73 2e 20 77 33 20 20 20 20 20 65 35 39 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 ┆rs. w3 e59. ; jl. w┆
0x145620…145640 33 20 20 20 20 20 64 34 33 2e 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 77 6f 72 6b 28 ┆3 d43. ; restore work(┆
0x145640…145660 77 6f 72 6b 2c 65 76 65 6e 74 29 3b 0a 0a 67 33 33 3a 20 72 6c 2e 20 77 32 20 20 20 20 20 65 33 ┆work,event); g33: rl. w2 e3┆
0x145660…145680 39 2e 20 20 20 20 20 3b 20 72 65 6a 65 63 74 20 6d 65 73 73 61 67 65 3a 0a 20 20 20 20 20 6a 64 ┆9. ; reject message: jd┆
0x145680…1456a0 20 20 20 20 20 31 3c 31 31 2b 32 36 20 20 20 20 20 20 3b 20 20 20 67 65 74 20 65 76 65 6e 74 28 ┆ 1<11+26 ; get event(┆
0x1456a0…1456c0 65 76 65 6e 74 29 3b 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 20 20 32 20 20 20 20 20 ┆event); al w0 2 ┆
0x1456c0…1456e0 20 3b 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 20 20 65 35 31 2e 20 20 20 20 20 3b 0a 20 20 ┆ ; al. w1 e51. ; ┆
0x1456e0…145700 20 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 32 32 20 20 20 20 20 20 3b 20 20 20 73 65 6e 64 20 ┆ jd 1<11+22 ; send ┆
0x145700…145720 61 6e 73 77 65 72 28 65 76 65 6e 74 2c 61 6e 73 77 65 72 2c 32 29 3b 0a 20 20 20 20 20 6a 6c 2e ┆answer(event,answer,2); jl.┆
0x145720…145740 20 20 20 20 20 20 20 20 67 33 30 2e 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 65 78 61 6d 20 66 ┆ g30. ; goto exam f┆
0x145740…145760 69 72 73 74 3b 0a 0a 67 33 34 3a 20 72 6c 2e 20 77 33 20 20 20 20 20 20 65 32 2e 20 20 20 20 20 ┆irst; g34: rl. w3 e2. ┆
0x145760…145780 3b 20 6d 65 73 73 61 67 65 20 72 65 63 65 69 76 65 64 3a 0a 20 20 20 20 20 73 68 20 20 77 33 20 ┆; message received: sh w3 ┆
0x145780…1457a0 20 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 6f 77 6e 20 62 75 66 3c 3d 31 0a 20 ┆ 1 ; if own buf<=1 ┆
0x1457a0…1457c0 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 33 31 2e 20 20 20 20 20 3b 20 20 20 74 68 65 6e ┆ jl. g31. ; then┆
0x1457c0…1457e0 20 67 6f 74 6f 20 65 78 61 6d 20 6e 65 78 74 3b 0a 20 20 20 20 20 73 68 20 20 77 31 20 20 20 20 ┆ goto exam next; sh w1 ┆
0x1457e0…145800 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 65 6e 64 65 72 3c 30 0a 20 20 20 20 20 6a ┆ -1 ; if sender<0 j┆