|
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 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 Data for mondef
0x053d00…083400 Data for monprocs
0x083400…0a0e00 Data for mondisc
0x0a0e00…0b9400 Data for monfpaline
0x0b9400…0c8d00 Data for monhost
0x0c8d00…0e7c00 Data for monfpasub
0x0e7c00…116100 Data for monprocfnc2
0x116100…127200 Data for mons1
0x127200…139800 Data for mons2
0x139800…141600 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 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 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…144800 […elided…]
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 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┆