|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 21504 (0x5400)
Types: Rc489kSubCat
Names: »tslprog«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tslprog«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x00195a, f01=0x0007e4, f02=0x0007ed, filename=»tfinisb «, entry_tail=0-4-0-3-1980-11-26T16:17-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x004842, f01=0x0007e4, f02=0x0007ed, filename=»ttestbuf «, entry_tail=0-4-0-14-1980-10-22T13:54-disc1-0x0-0x0-0x0-0x0}
0x0066…0080 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0080…00a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0x9…]
0x01c0…01e0 ff ff ff ff ff ff ff ff ff ff ff 00 00 01 23 65 a3 01 11 70 01 11 79 6b 6b 6b 00 00 00 00 00 00 ┆ #e p ykkk ┆
0x01e0…0200 00 00 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 70 80 b5 00 00 00 00 00 00 00 00 00 00 00 ┆ disc p ┆
0x0200…0220 00 02 45 a3 00 00 b4 00 00 bd 74 6c 69 73 74 6d 74 70 6f 6f 6c 00 00 00 06 64 69 73 63 00 00 00 ┆ E tlistmtpool disc ┆
0x0220…0240 00 00 00 00 00 76 33 b1 00 00 00 00 00 00 00 00 00 00 00 00 1b e5 a3 00 00 78 00 00 81 70 6d 6f ┆ v3 x pmo┆
0x0240…0260 6e 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 31 00 00 00 00 00 00 00 72 e0 47 00 00 00 00 00 ┆n disc1 r G ┆
0x0260…0280 00 00 00 00 00 00 00 1e 85 a3 00 00 3c 00 00 45 74 72 68 73 74 6f 70 00 00 00 00 00 00 00 01 64 ┆ < Etrhstop d┆
0x0280…02a0 69 73 63 32 00 00 00 00 00 00 00 73 61 84 00 00 00 00 00 00 00 00 00 00 00 00 27 15 a3 00 00 00 ┆isc2 sa ' ┆
0x02a0…02c0 00 07 cf 6b 6b 6b 00 00 00 00 00 00 00 00 00 00 00 0e 64 69 73 63 32 00 00 00 00 00 00 00 73 0d ┆ kkk disc2 s ┆
0x02c0…02e0 47 00 00 00 00 00 00 00 00 00 00 00 00 02 35 a3 00 00 3c 00 00 45 74 63 67 6f 72 64 65 72 30 31 ┆G 5 < Etcgorder01┆
0x02e0…02fd 34 00 00 00 6e 64 69 73 63 33 00 00 00 00 00 00 00 76 05 53 00 00 00 00 00 00 00 00 00 ┆4 ndisc3 v S ┆
0x02fd…0300 0x000002
0x0300…0c00 Data for tfinisb
0x0c00…3600 Data for ttestbuf
0x3600…3620 (6,) 70 72 6f 67 72 61 6d 20 72 65 63 75 72 73 69 76 65 67 63 64 28 6f 75 74 70 75 74 29 3b 0a 28 2a ┆program recursivegcd(output); (*┆
0x3620…3640 24 63 2b 2a 29 0a 28 2a 24 72 2b 2a 29 0a 76 61 72 20 78 2c 79 2c 6e 20 3a 20 69 6e 74 65 67 65 ┆$c+*) (*$r+*) var x,y,n : intege┆
0x3640…3660 72 3b 0a 0a 66 75 6e 63 74 69 6f 6e 20 67 63 64 28 6d 2c 6e 3a 69 6e 74 65 67 65 72 29 3a 69 6e ┆r; function gcd(m,n:integer):in┆
0x3660…3680 74 65 67 65 72 3b 0a 62 65 67 69 6e 0a 20 20 69 66 20 6e 20 3d 20 30 20 74 68 65 6e 20 67 63 64 ┆teger; begin if n = 0 then gcd┆
0x3680…36a0 3a 3d 20 6d 0a 20 20 65 6c 73 65 20 67 63 64 3a 3d 20 67 63 64 28 6e 2c 6d 20 6d 6f 64 20 6e 29 ┆:= m else gcd:= gcd(n,m mod n)┆
0x36a0…36c0 0a 65 6e 64 3b 0a 70 72 6f 63 65 64 75 72 65 20 74 72 79 28 20 61 2c 62 3a 20 69 6e 74 65 67 65 ┆ end; procedure try( a,b: intege┆
0x36c0…36e0 72 29 3b 0a 62 65 67 69 6e 0a 20 20 20 77 72 69 74 65 6c 6e 28 61 2c 62 2c 67 63 64 28 61 2c 62 ┆r); begin writeln(a,b,gcd(a,b┆
0x36e0…3700 29 29 3b 0a 65 6e 64 3b 0a 62 65 67 69 6e 0a 20 20 20 74 72 79 28 31 38 2c 32 37 29 3b 0a 20 20 ┆)); end; begin try(18,27); ┆
0x3700…3720 20 74 72 79 28 33 31 32 2c 32 31 34 32 29 3b 0a 20 20 20 74 72 79 28 36 31 2c 35 33 29 3b 0a 20 ┆ try(312,2142); try(61,53); ┆
0x3720…3740 20 20 74 72 79 28 39 38 2c 38 36 38 29 3b 0a 65 6e 64 2e 0a 19 ff ff ff ff ff ff ff ff ff ff ff ┆ try(98,868); end. ┆
0x3740…3760 ff 00 00 04 01 7a dc 00 00 19 01 b2 1d 00 00 1a 01 b2 21 00 00 19 01 b2 25 00 00 1a 01 b2 29 00 ┆ z ! % ) ┆
0x3760…3780 40 14 01 b2 2d 1b 2e 88 01 41 4c 00 00 18 01 b2 35 00 00 00 00 00 4e 61 6e 73 00 00 0a 01 50 8c ┆@ - . AL 5 Nans P ┆
0x3780…37a0 00 00 01 00 00 0c 00 0f ff 00 40 14 00 00 0c 00 00 1a 01 b2 93 00 00 14 ff ff d8 80 00 00 0c c0 ┆ @ ┆
0x37a0…37c0 00 70 61 73 6c 69 73 74 00 00 00 00 00 00 00 00 00 00 00 00 00 55 64 69 73 63 33 00 00 00 00 00 ┆ paslist Udisc3 ┆
0x37c0…37e0 00 00 76 65 a8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 00 00 00 00 00 00 ┆ ve N ┆
0x37e0…3800 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3800…3820 00 00 00 00 ff ff ff ff ff ff 76 6b 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ┆ vk ┆
0x3820…3840 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 70 61 73 6c 69 73 74 00 00 00 00 00 ff ff ff 6c 70 00 ┆ paslist lp ┆
0x3840…3860 00 00 00 00 00 00 00 00 00 ff ff ff 01 b2 9b 01 89 74 34 31 02 00 00 28 00 00 00 00 89 80 00 00 ┆ t41 ( ┆
0x3860…3880 00 00 00 4e 01 00 43 ff ff ff 00 00 00 01 b2 72 00 00 28 00 00 32 00 00 10 01 b2 6b 00 00 3c 00 ┆ N C r ( 2 k < ┆
0x3880…38a0 00 00 01 b2 55 00 00 16 00 00 00 01 b2 41 00 00 14 00 00 00 01 b2 35 00 00 0c 00 00 00 00 00 4e ┆ U A 5 N┆
0x38a0…38c0 01 b3 2a 00 00 00 ff ff fa 01 b2 36 01 b3 2a 01 89 66 00 81 e4 1b 32 a8 00 b1 86 1b 32 a8 00 b1 ┆ * 6 * f 2 2 ┆
0x38c0…38e0 b8 6c 70 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff 70 61 73 6c 69 73 74 00 00 00 00 00 ff ┆ lp paslist ┆
0x38e0…3900 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 01 b3 01 01 b2 f5 00 00 0c 00 00 00 00 00 02 00 20 02 ┆ ┆
0x3900…3920 03 fb eb 03 fd eb 03 61 a8 03 61 a8 03 61 a8 80 00 04 70 61 73 74 65 73 74 00 00 00 00 00 00 41 ┆ a a a pastest A┆
0x3920…3940 2c 00 00 00 00 00 00 00 00 01 00 00 00 03 62 32 72 6f 01 00 10 01 03 fb eb 03 fd eb 00 00 00 00 ┆, b2ro ┆
0x3940…3960 00 00 00 00 00 00 00 00 00 00 70 00 00 00 03 fb ec 03 fd ea 00 30 00 03 fb ec 03 fd ea 00 00 00 ┆ p 0 ┆
0x3960…3980 70 61 73 74 65 73 74 00 00 00 00 00 03 fd ec 77 72 6b 30 30 30 36 34 31 00 00 00 00 00 02 00 00 ┆pastest wrk000641 ┆
0x3980…39a0 b4 00 00 bd 0a 20 20 65 6c 73 65 20 67 63 64 3a 3d 20 67 63 64 28 6e 2c 6d 20 6d 6f 64 20 6e 29 ┆ else gcd:= gcd(n,m mod n)┆
0x39a0…39c0 0a 65 6e 64 3b 0a 70 72 6f 63 65 64 75 72 65 20 74 72 79 28 20 61 2c 62 3a 20 69 6e 74 65 67 65 ┆ end; procedure try( a,b: intege┆
0x39c0…39e0 72 29 3b 0a 62 65 67 69 6e 0a 20 20 20 77 72 69 74 65 6c 6e 28 61 2c 62 2c 67 63 64 28 61 2c 62 ┆r); begin writeln(a,b,gcd(a,b┆
0x39e0…3a00 29 29 3b 0a 65 6e 64 3b 0a 62 65 67 69 6e 0a 20 20 20 74 72 79 28 31 38 2c 32 37 29 3b 0a 20 20 ┆)); end; begin try(18,27); ┆
0x3a00…3a20 20 74 72 79 28 33 31 32 2c 32 31 34 32 29 3b 0a 20 20 20 74 72 79 28 36 31 2c 35 33 29 3b 0a 20 ┆ try(312,2142); try(61,53); ┆
0x3a20…3a40 20 20 74 72 79 28 39 38 2c 38 36 38 29 3b 0a 65 6e 64 2e 0a 19 ff ff ff ff ff ff ff ff ff ff ff ┆ try(98,868); end. ┆
0x3a40…3a60 ff 00 00 04 01 7a dc 00 00 19 01 b2 1d 00 00 1a 01 b2 21 00 00 19 01 b2 25 00 00 1a 01 b2 29 00 ┆ z ! % ) ┆
0x3a60…3a80 40 14 01 b2 2d 1b 2e 88 01 41 4c 00 00 18 01 b2 35 00 00 00 00 00 4e 61 6e 73 00 00 0a 01 50 8c ┆@ - . AL 5 Nans P ┆
0x3a80…3aa0 00 00 01 00 00 0c 00 0f ff 00 40 14 00 00 0c 00 00 1a 01 b2 93 00 00 14 ff ff d8 80 00 00 0c c0 ┆ @ ┆
0x3aa0…3ac0 00 70 61 73 6c 69 73 74 00 00 00 00 00 00 00 00 00 00 00 00 00 55 64 69 73 63 33 00 00 00 00 00 ┆ paslist Udisc3 ┆
0x3ac0…3ae0 00 00 76 65 a8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 00 00 00 00 00 00 ┆ ve N ┆
0x3ae0…3b00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3b00…3b20 00 00 00 00 ff ff ff ff ff ff 76 6b 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ┆ vk ┆
0x3b20…3b40 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 70 61 73 6c 69 73 74 00 00 00 00 00 ff ff ff 6c 70 00 ┆ paslist lp ┆
0x3b40…3b60 00 00 00 00 00 00 00 00 00 ff ff ff 01 b2 9b 01 89 74 34 31 02 00 00 28 00 00 00 00 89 80 00 00 ┆ t41 ( ┆
0x3b60…3b80 00 00 00 4e 01 00 43 ff ff ff 00 00 00 01 b2 72 00 00 28 00 00 32 00 00 10 01 b2 6b 00 00 3c 00 ┆ N C r ( 2 k < ┆
0x3b80…3ba0 00 00 01 b2 55 00 00 16 00 00 00 01 b2 41 00 00 14 00 00 00 01 b2 35 00 00 0c 00 00 00 00 00 4e ┆ U A 5 N┆
0x3ba0…3bc0 01 b3 2a 00 00 00 ff ff fa 01 b2 36 01 b3 2a 01 89 66 00 81 e4 1b 32 a8 00 b1 86 1b 32 a8 00 b1 ┆ * 6 * f 2 2 ┆
0x3bc0…3be0 b8 6c 70 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff 70 61 73 6c 69 73 74 00 00 00 00 00 ff ┆ lp paslist ┆
0x3be0…3c00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 01 b3 01 01 b2 f5 00 00 0c 00 00 00 00 00 02 00 20 02 ┆ ┆
0x3c00…3c20 20 20 20 73 61 76 65 20 70 61 72 61 6d 5f 70 6f 69 6e 74 65 72 0a 20 20 20 20 20 20 72 73 2e 20 ┆ save param_pointer rs. ┆
0x3c20…3c40 77 31 20 20 62 31 2e 20 20 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 66 70 2d 62 61 73 65 0a 20 ┆w1 b1. ; save fp-base ┆
0x3c40…3c60 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 63 36 2e 20 20 20 20 20 20 20 3b 20 20 20 4e 65 78 74 70 ┆ jl. w3 c6. ; Nextp┆
0x3c60…3c80 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 20 20 20 73 68 20 20 77 31 20 20 32 20 20 20 20 20 20 20 ┆arameter; sh w1 2 ┆
0x3c80…3ca0 20 20 3b 20 20 20 69 66 20 6e 6f 20 70 61 72 61 6d 65 74 65 72 20 74 68 65 6e 0a 20 20 20 20 20 ┆ ; if no parameter then ┆
0x3ca0…3cc0 20 6a 6c 2e 20 20 20 20 20 65 32 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 41 76 61 69 ┆ jl. e2. ; goto Avai┆
0x3cc0…3ce0 6c 20 62 75 66 3b 0a 69 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆l buf; i5: ;┆
0x3ce0…3d00 20 43 6f 6e 74 69 6e 75 65 3a 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 63 30 2e 20 20 20 20 ┆ Continue: jl. w3 c0. ┆
0x3d00…3d20 20 20 20 3b 20 20 20 69 3a 3d 70 72 6f 63 61 64 64 72 28 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 ┆ ; i:=procaddr(name); ┆
0x3d20…3d40 73 65 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 61 6d 65 20 75 6e ┆se w3 0 ; if name un┆
0x3d40…3d60 6b 6e 6f 77 6e 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 30 2e 20 20 20 20 ┆known then jl. i0. ┆
0x3d60…3d80 20 20 20 3b 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 62 32 31 2e 20 ┆ ; begin al. w0 b21. ┆
0x3d80…3da0 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 31 2e 2d 32 20 20 20 20 3b ┆ ; jl. w3 h31.-2 ;┆
0x3da0…3dc0 20 20 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 32 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆ al w0 2 ; ┆
0x3dc0…3de0 20 20 20 77 61 2e 20 77 30 20 20 62 30 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e ┆ wa. w0 b0. ; jl.┆
0x3de0…3e00 20 77 33 20 20 68 33 31 2e 20 20 20 20 20 20 3b 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a ┆ w3 h31. ; write(out,<:┆
0x3e00…3e20 3c 31 30 3e 2a 2a 2a 74 65 73 74 62 75 66 20 3a 3e 2c 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 ┆<10>***testbuf :>, al. w0 ┆
0x3e20…3e40 20 62 32 32 2e 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 2c 3c 3a 20 6e 61 ┆ b22. ; name,<: na┆
0x3e40…3e60 6d 65 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 31 ┆me unknown:>); jl. w3 h31┆
0x3e60…3e80 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 63 38 2e 2d 32 20 20 20 20 ┆. ; jl. c8.-2 ┆
0x3e80…3ea0 20 3b 20 20 20 20 65 6e 64 70 72 6f 67 72 61 6d 28 6e 6f 74 20 73 75 63 63 65 73 29 3b 0a 20 20 ┆ ; endprogram(not succes); ┆
0x3ea0…3ec0 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 65 6e 64 3b 0a 0a ┆ ; end; ┆
0x3ec0…3ee0 69 30 3a 20 20 20 72 73 2e 20 77 33 20 20 62 32 2e 20 20 20 20 20 20 20 3b 20 20 20 73 61 76 65 ┆i0: rs. w3 b2. ; save┆
0x3ee0…3f00 20 73 65 6e 64 65 72 20 61 64 64 72 0a 20 20 20 20 20 20 61 63 20 20 77 33 20 20 78 33 20 20 20 ┆ sender addr ac w3 x3 ┆
0x3f00…3f20 (7,) 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 62 37 2e 20 20 20 20 20 20 20 3b ┆ ; rs. w3 b7. ;┆
0x3f20…3f40 20 20 20 73 61 76 65 20 6e 65 67 20 73 65 6e 64 65 72 2f 72 65 63 65 69 76 65 72 0a 20 20 20 20 ┆ save neg sender/receiver ┆
0x3f40…3f60 20 20 6a 6c 2e 20 77 33 20 20 63 36 2e 20 20 20 20 20 20 20 3b 20 20 20 4e 65 78 74 70 61 72 61 ┆ jl. w3 c6. ; Nextpara┆
0x3f60…3f80 6d 65 74 65 72 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 31 20 20 38 20 20 20 20 20 20 20 20 20 3b ┆meter; sn w1 8 ;┆
0x3f80…3fa0 0a 20 20 20 20 20 20 73 65 20 20 77 33 20 20 31 30 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆ se w3 10 ; if ┆
0x3fa0…3fc0 6e 6f 74 20 61 20 74 65 78 74 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 ┆not a text then jl. i2┆
0x3fc0…3fe0 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 49 6c 6c 65 67 61 6c 20 70 61 72 61 6d 3b 0a ┆. ; goto Illegal param; ┆
0x3fe0…4000 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ al w3 0 ; ┆
0x4000…4020 20 72 6c 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 ┆ rl w0 x2 ; ls w┆
0x4020…4040 30 20 2d 31 36 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 30 20 28 62 38 2e ┆0 -16 ; se. w0 (b8.┆
0x4040…4060 29 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 61 6d 65 3d 73 65 6e 64 65 72 20 74 68 65 6e 0a 20 ┆) ; if name=sender then ┆
0x4060…4080 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 31 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 ┆ jl. i1. ; goto ┆
0x4080…40a0 53 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 32 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆S; al w3 2 ; ┆
0x40a0…40c0 20 20 20 6a 6c 2e 20 20 20 20 20 69 33 2e 20 20 20 20 20 20 20 3b 0a 0a 69 31 3a 20 20 20 73 6e ┆ jl. i3. ; i1: sn┆
0x40c0…40e0 2e 20 77 30 20 28 62 39 2e 29 20 20 20 20 20 20 3b 20 53 3a 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆. w0 (b9.) ; S: jl. ┆
0x40e0…4100 20 20 20 69 33 2e 20 20 20 20 20 20 20 3b 0a 0a 69 32 3a 20 20 20 61 6c 2e 20 77 30 20 20 62 32 ┆ i3. ; i2: al. w0 b2┆
0x4100…4120 31 2e 20 20 20 20 20 20 3b 20 49 6c 6c 65 67 61 6c 20 70 61 72 61 6d 3a 0a 20 20 20 20 20 20 6a ┆1. ; Illegal param: j┆
0x4120…4140 6c 2e 20 77 33 20 20 68 33 31 2e 2d 32 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 ┆l. w3 h31.-2 ; al. w0 ┆
0x4140…4160 20 62 32 30 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 31 2e 20 ┆ b20. ; jl. w3 h31. ┆
0x4160…4180 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 63 38 2e 2d 32 20 20 20 20 20 3b ┆ ; jl. c8.-2 ;┆
0x4180…41a0 20 20 20 65 6e 64 70 72 6f 67 72 61 6d 28 6e 6f 74 20 73 75 63 63 65 73 29 3b 0a 0a 69 33 3a 20 ┆ endprogram(not succes); i3: ┆
0x41a0…41c0 20 20 72 73 2e 20 77 33 20 20 62 34 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 ┆ rs. w3 b4. ; rl ┆
0x41c0…41e0 77 31 20 20 38 36 20 20 20 20 20 20 20 20 3b 20 20 20 77 31 3a 3d 6d 65 73 73 61 67 65 20 70 6f ┆w1 86 ; w1:=message po┆
0x41e0…4200 6f 6c 20 73 74 61 72 74 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 36 20 20 20 20 20 20 20 ┆ol start; jl. 6 ┆
0x4200…4220 20 20 3b 0a 0a 69 34 3a 20 20 20 72 6c 2e 20 77 31 20 20 62 35 2e 20 20 20 20 20 20 20 3b 0a 20 ┆ ; i4: rl. w1 b5. ; ┆
0x4220…4240 20 20 20 20 20 77 61 20 20 77 31 20 20 39 30 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 ┆ wa w1 90 ; r┆
0x4240…4260 73 2e 20 77 31 20 20 62 35 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 20 20 20 20 20 ┆s. w1 b5. ; am ┆
0x4260…4280 28 38 38 29 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 31 20 20 32 20 20 20 20 ┆(88) ; sl w1 2 ┆
0x4280…42a0 20 20 20 20 20 3b 20 20 20 69 66 20 6c 61 73 74 20 62 75 66 66 65 72 20 74 68 65 6e 0a 20 20 20 ┆ ; if last buffer then ┆
0x42a0…42c0 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 30 2e 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 53 74 ┆ jl. i20. ; goto St┆
0x42c0…42e0 6f 70 3b 0a 0a 69 36 3a 20 20 20 64 6c 20 20 77 33 20 20 78 31 2b 36 20 20 20 20 20 20 3b 0a 20 ┆op; i6: dl w3 x1+6 ; ┆
0x42e0…4300 20 20 20 20 20 73 65 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 62 75 ┆ se w3 0 ; if bu┆
0x4300…4320 66 66 65 72 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c ┆ffer not available then jl┆
0x4320…4340 2e 20 20 20 20 20 69 31 30 2e 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 55 73 65 64 3b 0a 0a ┆. i10. ; goto Used; ┆
0x4340…4360 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 62 33 2e 20 20 20 20 20 20 20 3b 20 41 76 61 69 6c 3a ┆ rl. w2 b3. ; Avail:┆
0x4360…4380 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 31 20 20 20 20 20 20 3b 20 20 20 62 75 66 ┆ al w2 x2+1 ; buf┆
0x4380…43a0 66 65 72 20 61 76 61 69 6c 3a 3d 0a 20 20 20 20 20 20 72 73 2e 20 77 32 20 20 62 33 2e 20 20 20 ┆fer avail:= rs. w2 b3. ┆
0x43a0…43c0 20 20 20 20 3b 20 20 20 20 20 20 20 20 62 75 66 66 65 72 20 61 76 61 69 6c 20 2b 20 31 3b 0a 20 ┆ ; buffer avail + 1; ┆
0x43c0…43e0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 34 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 ┆ jl. i4. ; goto ┆
0x43e0…4400 4c 6f 6f 70 3b 0a 0a 69 31 30 3a 20 20 72 78 20 20 77 32 20 20 36 20 20 20 20 20 20 20 20 20 3b ┆Loop; i10: rx w2 6 ;┆
0x4400…4420 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 20 62 36 2e 2b 32 20 20 20 20 20 3b 20 20 20 73 61 76 ┆ ds. w3 b6.+2 ; sav┆
0x4420…4440 65 20 73 65 6e 64 65 72 2c 20 72 65 63 65 69 76 65 72 0a 20 20 20 20 20 20 61 6d 2e 20 20 20 20 ┆e sender, receiver am. ┆
0x4440…4460 28 62 34 2e 29 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 30 20 20 62 36 2e 20 20 ┆(b4.) ; rl. w0 b6. ┆
0x4460…4480 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6e 2e 20 77 30 20 28 62 37 2e 29 20 20 20 20 20 20 3b ┆ ; sn. w0 (b7.) ;┆
0x4480…44a0 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 36 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆ jl. 6 ; if ┆
0x44a0…44c0 72 65 63 65 69 76 65 72 3c 3e 6d 65 73 73 61 67 65 2e 72 65 63 65 69 76 65 72 20 0a 20 20 20 20 ┆receiver<>message.receiver ┆
0x44c0…44e0 20 20 73 65 2e 20 77 30 20 28 62 32 2e 29 20 20 20 20 20 20 3b 20 20 20 20 20 20 61 6e 64 20 73 ┆ se. w0 (b2.) ; and s┆
0x44e0…4500 65 6e 64 65 72 3c 3e 6d 65 73 73 61 67 65 2e 73 65 6e 64 65 72 20 74 68 65 6e 0a 20 20 20 20 20 ┆ender<>message.sender then ┆
0x4500…4520 20 6a 6c 2e 20 20 20 20 20 69 34 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 4c 6f 6f 70 ┆ jl. i4. ; goto Loop┆
0x4520…4540 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 ┆; al w0 x1 ; ┆
0x4540…4560 20 20 61 6d 2e 20 20 20 20 28 62 31 2e 29 20 20 20 20 20 20 3b 20 20 20 0a 20 20 20 20 20 20 6a ┆ am. (b1.) ; j┆
0x4560…4580 6c 20 20 77 33 20 20 68 33 32 2d 32 20 20 20 20 20 3b 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆l w3 h32-2 ; write(out,<┆
0x4580…45a0 3c 64 64 64 64 64 64 64 64 3e 2c 62 75 66 66 65 72 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 33 ┆<dddddddd>,buffer addr); 3┆
0x45a0…45c0 32 3c 31 32 2b 38 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 ┆2<12+8 ; al w0 ┆
0x45c0…45e0 20 32 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 63 34 2e 20 20 ┆ 2 ; jl. w3 c4. ┆
0x45e0…4600 20 20 20 20 20 3b 20 20 20 6f 75 74 73 70 61 63 65 28 32 29 3b 0a 20 20 20 20 20 20 73 6c 20 20 ┆ ; outspace(2); sl ┆
0x4600…4620 77 32 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 65 6e 64 65 72 3e 30 20 74 68 ┆w2 0 ; if sender>0 th┆
0x4620…4640 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 31 34 2e 20 20 20 20 20 20 3b 20 20 20 67 ┆en jl. i14. ; g┆
0x4640…4660 6f 74 6f 20 50 6f 73 20 73 65 6e 64 65 72 3b 0a 0a 20 20 20 20 20 20 61 63 20 20 77 32 20 20 78 ┆oto Pos sender; ac w2 x┆
0x4660…4680 32 20 20 20 20 20 20 20 20 3b 20 4e 65 67 20 73 65 6e 64 65 72 3a 0a 20 20 20 20 20 20 6a 6c 2e ┆2 ; Neg sender: jl.┆
0x4680…46a0 20 77 33 20 20 63 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 6e 61 6d 65 28 73 65 6e 64 65 ┆ w3 c2. ; outname(sende┆
0x46a0…46c0 72 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 31 20 20 62 36 2e 2b 32 20 20 20 20 ┆r addr); rl. w1 b6.+2 ┆
0x46c0…46e0 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆ ; al w2 x1 ; ┆
0x46e0…4700 20 20 20 73 68 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 72 65 63 65 ┆ sh w2 0 ; if rece┆
0x4700…4720 69 76 65 72 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 61 63 20 20 77 32 20 20 78 32 20 20 20 20 ┆iver<0 then ac w2 x2 ┆
0x4720…4740 20 20 20 20 3b 20 20 20 72 65 63 65 69 76 65 72 3a 3d 2d 72 65 63 65 69 76 65 72 3b 0a 20 20 20 ┆ ; receiver:=-receiver; ┆
0x4740…4760 20 20 20 6a 6c 2e 20 77 33 20 20 63 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 6e 61 6d 65 ┆ jl. w3 c2. ; outname┆
0x4760…4780 28 72 65 63 65 69 76 65 72 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 62 ┆(receiver addr); al. w0 b┆
0x4780…47a0 31 33 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 68 20 20 77 31 20 20 30 20 20 20 20 20 20 ┆13. ; sh w1 0 ┆
0x47a0…47c0 20 20 20 3b 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 ┆ ; write(out, state); ┆
0x47c0…47e0 61 6c 2e 20 77 30 20 20 62 31 34 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 2e 20 20 20 ┆al. w0 b14. ; am. ┆
0x47e0…4800 20 28 62 31 2e 29 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 68 33 31 2d ┆ (b1.) ; jl w3 h31-┆
0x4800…4820 (8,) 32 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 34 2e 20 20 20 20 20 20 20 ┆2 ; jl. i4. ┆
0x4820…4840 3b 20 20 20 67 6f 74 6f 20 4c 6f 6f 70 3b 0a 0a 69 31 34 3a 20 20 6a 6c 2e 20 77 33 20 20 63 32 ┆; goto Loop; i14: jl. w3 c2┆
0x4840…4860 2e 20 20 20 20 20 20 20 3b 20 50 6f 73 20 73 65 6e 64 65 72 3a 0a 20 20 20 20 20 20 72 6c 2e 20 ┆. ; Pos sender: rl. ┆
0x4860…4880 77 30 20 20 62 36 2e 2b 32 20 20 20 20 20 3b 20 20 20 6f 75 74 6e 61 6d 65 28 73 65 6e 64 65 72 ┆w0 b6.+2 ; outname(sender┆
0x4880…48a0 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 ┆ addr); rl w2 0 ┆
0x48a0…48c0 3b 0a 20 20 20 20 20 20 73 68 20 20 77 30 20 20 35 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 ┆; sh w0 5 ; if┆
0x48c0…48e0 20 72 65 63 65 69 76 65 72 3c 31 20 6f 72 0a 20 20 20 20 20 20 73 68 20 20 77 30 20 20 30 20 20 ┆ receiver<1 or sh w0 0 ┆
0x48e0…4900 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 72 65 63 65 69 76 65 72 3e 35 20 74 68 65 6e 0a 20 20 ┆ ; receiver>5 then ┆
0x4900…4920 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 31 36 2e 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 45 ┆ jl. i16. ; goto E┆
0x4920…4940 78 69 73 74 3b 0a 0a 20 20 20 20 20 20 61 6d 2e 20 20 20 20 28 62 31 2e 29 20 20 20 20 20 20 3b ┆xist; am. (b1.) ;┆
0x4940…4960 20 41 6e 73 77 65 72 3a 0a 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 68 33 32 2d 32 20 20 20 20 ┆ Answer: jl w3 h32-2 ┆
0x4960…4980 20 3b 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 64 64 64 64 64 64 64 64 3e 2c 72 ┆ ; write(out,<<dddddddddddd>,r┆
0x4980…49a0 65 73 75 6c 74 29 3b 0a 20 20 20 20 20 20 33 32 3c 31 32 2b 31 32 20 20 20 20 20 20 20 20 20 20 ┆esult); 32<12+12 ┆
0x49a0…49c0 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 32 20 20 31 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 ┆; ls w2 1 ; ┆
0x49c0…49e0 20 20 6a 6c 2e 20 20 20 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 20 20 ┆ jl. x2 ; am ┆
0x49e0…4a00 20 20 20 20 62 31 35 2d 62 31 36 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 62 31 ┆ b15-b16 ; am b1┆
0x4a00…4a20 36 2d 62 31 37 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 62 31 37 2d 62 31 38 20 ┆6-b17 ; am b17-b18 ┆
0x4a20…4a40 20 20 3b 0a 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 62 31 38 2d 62 31 39 20 20 20 3b 0a 20 20 ┆ ; am b18-b19 ; ┆
0x4a40…4a60 20 20 20 20 61 6c 2e 20 77 30 20 20 62 31 39 2e 20 20 20 20 20 20 3b 20 20 20 77 72 69 74 65 28 ┆ al. w0 b19. ; write(┆
0x4a60…4a80 6f 75 74 2c 63 61 73 65 20 72 65 73 75 6c 74 20 6f 66 0a 20 20 20 20 20 20 61 6d 2e 20 20 20 20 ┆out,case result of am. ┆
0x4a80…4aa0 28 62 31 2e 29 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 28 2d 62 31 35 2d 2c 2d 62 31 36 ┆(b1.) ; (-b15-,-b16┆
0x4aa0…4ac0 2d 2c 2d 62 31 37 2d 2c 2d 62 31 38 2d 2c 2d 62 31 39 2d 29 29 3b 0a 20 20 20 20 20 20 6a 6c 20 ┆-,-b17-,-b18-,-b19-)); jl ┆
0x4ac0…4ae0 20 77 33 20 20 68 33 31 2d 32 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 ┆ w3 h31-2 ; jl. i┆
0x4ae0…4b00 34 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 4c 6f 6f 70 3b 0a 0a 69 31 36 3a 20 20 73 ┆4. ; goto Loop; i16: s┆
0x4b00…4b20 68 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 45 78 69 73 74 3a 0a 20 20 20 20 20 20 ┆h w0 0 ; Exist: ┆
0x4b20…4b40 61 63 20 20 77 32 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 ┆ac w2 x2 ; jl. w3┆
0x4b40…4b60 20 20 63 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 6e 61 6d 65 28 72 65 63 65 69 76 65 72 ┆ c2. ; outname(receiver┆
0x4b60…4b80 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 73 68 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 ┆ addr); sh w0 0 ┆
0x4b80…4ba0 3b 0a 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 62 31 32 2d 62 31 31 20 20 20 3b 0a 20 20 20 20 ┆; am b12-b11 ; ┆
0x4ba0…4bc0 20 20 61 6c 2e 20 77 30 20 20 62 31 31 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6d 2e 20 ┆ al. w0 b11. ; am. ┆
0x4bc0…4be0 20 20 20 28 62 31 2e 29 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 68 33 ┆ (b1.) ; jl w3 h3┆
0x4be0…4c00 31 2d 32 20 20 20 20 20 3b 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 61 74 65 29 3b 0a 20 ┆1-2 ; write(out, state); ┆
0x4c00…4c20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 34 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 ┆ jl. i4. ; goto ┆
0x4c20…4c40 4c 6f 6f 70 3b 0a 0a 69 32 30 3a 20 20 6a 6c 2e 20 77 33 20 20 63 36 2e 20 20 20 20 20 20 20 3b ┆Loop; i20: jl. w3 c6. ;┆
0x4c40…4c60 20 53 74 6f 70 3a 20 20 20 4e 65 78 74 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 20 20 20 73 6c ┆ Stop: Nextparameter; sl┆
0x4c60…4c80 20 20 77 31 20 20 33 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6d 6f 72 65 20 70 61 72 61 ┆ w1 3 ; if more para┆
0x4c80…4ca0 6d 65 74 65 72 73 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 35 2e 20 20 20 ┆meters then jl. i5. ┆
0x4ca0…4cc0 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 43 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 6a 6c 2e ┆ ; goto Continue; jl.┆
0x4cc0…4ce0 20 20 20 20 20 63 38 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 46 49 4e 49 53 3b 0a 0a ┆ c8. ; goto FINIS; ┆
0x4ce0…4d00 65 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 76 61 69 6c 20 ┆e2: ; Avail ┆
0x4d00…4d20 62 75 66 3a 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 38 36 20 20 20 20 20 20 20 20 3b 20 20 ┆buf: rl w2 86 ; ┆
0x4d20…4d40 20 77 32 3a 3d 73 74 61 72 74 20 6d 65 73 73 61 67 65 20 70 6f 6f 6c 3b 0a 20 20 20 20 20 20 61 ┆ w2:=start message pool; a┆
0x4d40…4d60 6c 20 20 77 31 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 61 76 61 69 6c 20 62 75 66 3a 3d ┆l w1 0 ; avail buf:=┆
0x4d60…4d80 30 3b 0a 69 32 32 3a 20 20 61 6d 20 20 20 20 20 28 38 38 29 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆0; i22: am (88) ; ┆
0x4d80…4da0 20 20 20 73 6c 20 20 77 32 20 20 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6c 61 73 74 ┆ sl w2 2 ; if last┆
0x4da0…4dc0 20 62 75 66 66 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 34 2e 20 ┆ buffer then jl. i24. ┆
0x4dc0…4de0 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 6c 20 20 77 30 20 20 78 ┆ ; return; dl w0 x┆
0x4de0…4e00 32 2b 36 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 61 20 20 77 32 20 20 39 30 20 20 20 20 20 ┆2+6 ; wa w2 90 ┆
0x4e00…4e20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a 20 ┆ ; se w0 0 ; ┆
0x4e20…4e40 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 32 2e 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 65 ┆ jl. i22. ; if se┆
0x4e40…4e60 6e 64 65 72 3d 30 20 61 6e 64 20 72 65 63 65 69 76 65 72 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆nder=0 and receiver=0 then ┆
0x4e60…4e80 20 73 65 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 61 76 61 69 6c 20 62 75 66 ┆ se w3 0 ; avail buf┆
0x4e80…4ea0 3a 3d 61 76 61 69 6c 20 62 75 66 2b 31 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 32 ┆:=avail buf+1; jl. i22┆
0x4ea0…4ec0 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 31 20 20 20 20 20 ┆. ; al w1 x1+1 ┆
0x4ec0…4ee0 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 69 32 32 2e 20 20 20 20 20 20 3b 0a 0a 69 32 ┆ ; jl. i22. ; i2┆
0x4ee0…4f00 34 3a 20 20 61 6c 20 20 77 32 20 20 78 31 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c ┆4: al w2 x1 ; al┆
0x4f00…4f20 2e 20 77 30 20 20 62 31 30 2e 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 ┆. w0 b10. ; jl. w3 ┆
0x4f20…4f40 68 33 31 2e 2d 32 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 20 20 20 20 ┆h31.-2 ; al w0 x2 ┆
0x4f40…4f60 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 32 2e 2d 32 20 20 20 20 3b 0a ┆ ; jl. w3 h32.-2 ; ┆
0x4f60…4f80 20 20 20 20 20 20 33 32 3c 31 32 2b 33 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ 32<12+3 ; ┆
0x4f80…4fa0 6a 6c 2e 20 20 20 20 20 63 38 2e 20 20 20 20 20 20 20 3b 0a 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 ┆jl. c8. ; ; procedu┆
0x4fa0…4fc0 72 65 20 70 72 6f 63 61 64 64 72 28 6e 61 6d 65 29 3b 0a 3b 20 54 68 65 20 70 72 6f 63 65 64 75 ┆re procaddr(name); ; The procedu┆
0x4fc0…4fe0 72 65 20 6c 6f 6f 6b 73 20 66 6f 72 20 61 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 61 20 6e 61 ┆re looks for a process with a na┆
0x4fe0…5000 6d 65 0a 3b 20 6e 61 6d 65 2e 20 49 66 20 69 74 20 65 78 73 69 73 74 20 69 74 20 72 65 74 75 72 ┆me ; name. If it exsist it retur┆
0x5000…5020 6e 73 20 77 69 74 68 20 74 68 65 20 61 63 63 6f 72 64 69 6e 67 20 70 72 6f 63 65 73 73 0a 3b 20 ┆ns with the according process ; ┆
0x5020…5040 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 2e 0a 3b 20 72 65 67 69 73 74 65 72 73 ┆description address. ; registers┆
0x5040…5060 20 20 61 74 20 65 6e 74 72 79 20 20 61 74 20 72 65 74 75 72 6e 0a 3b 20 77 30 2c 77 31 20 20 20 ┆ at entry at return ; w0,w1 ┆
0x5060…5080 20 20 20 6e 6f 74 20 75 73 65 64 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 77 32 20 20 20 20 20 ┆ not used unchanged ; w2 ┆
0x5080…50a0 20 20 20 20 6e 61 6d 65 20 61 64 64 72 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 33 20 20 20 20 ┆ name addr destroyed ; w3 ┆
0x50a0…50c0 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 30 20 6f 72 20 70 64 61 0a 62 2e 20 64 31 32 20 20 ┆ link 0 or pda b. d12 ┆
0x50c0…50e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 69 6e 20 0a 77 2e 0a 64 30 3a 30 ┆ ; begin w. d0:0┆
0x50e0…5100 2c 30 0a 64 31 3a 20 20 20 30 0a 64 32 3a 20 20 20 30 0a 63 30 3a 20 20 20 64 73 2e 20 77 31 20 ┆,0 d1: 0 d2: 0 c0: ds. w1 ┆
0x5100…5120 (9,) 20 64 30 2e 2b 32 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 72 65 67 69 73 74 65 72 73 0a 20 20 ┆ d0.+2 ; save registers ┆
0x5120…5140 20 20 20 20 72 73 2e 20 77 33 20 20 64 31 2e 20 20 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 72 ┆ rs. w3 d1. ; save r┆
0x5140…5160 65 74 75 72 6e 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 37 32 20 20 20 20 20 20 20 20 3b 20 ┆eturn rl w3 72 ; ┆
0x5160…5180 20 20 77 33 3a 3d 6e 61 6d 65 74 61 62 6c 65 20 73 74 61 72 74 3b 0a 20 20 20 20 20 20 72 73 2e ┆ w3:=nametable start; rs.┆
0x5180…51a0 20 77 33 20 20 64 32 2e 20 20 20 20 20 20 20 3b 0a 64 36 3a 20 20 20 72 6c 2e 20 77 33 20 20 64 ┆ w3 d2. ; d6: rl. w3 d┆
0x51a0…51c0 32 2e 20 20 20 20 20 20 20 3b 20 4c 6f 6f 70 3a 0a 20 20 20 20 20 20 73 6e 20 20 77 33 20 28 38 ┆2. ; Loop: sn w3 (8┆
0x51c0…51e0 30 29 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 61 6d 65 20 74 61 62 6c 65 20 65 6e 64 20 74 ┆0) ; if name table end t┆
0x51e0…5200 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 64 38 2e 20 20 20 20 20 20 20 3b 20 20 20 ┆hen jl. d8. ; ┆
0x5200…5220 67 6f 74 6f 20 53 74 6f 70 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 ┆goto Stop; al w3 x3+2 ┆
0x5220…5240 20 20 20 3b 20 20 20 67 65 74 20 6e 65 78 74 20 69 74 65 6d 20 69 6e 20 6e 61 6d 65 20 74 61 62 ┆ ; get next item in name tab┆
0x5240…5260 6c 65 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 64 32 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆le rx. w3 d2. ; ┆
0x5260…5280 20 20 20 72 6c 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 20 3b 20 20 20 67 65 74 20 70 72 6f ┆ rl w3 x3 ; get pro┆
0x5280…52a0 63 20 61 64 64 72 0a 20 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 33 2b 34 20 20 20 20 20 20 3b ┆c addr dl w1 x3+4 ;┆
0x52a0…52c0 0a 20 20 20 20 20 20 73 6e 20 20 77 30 20 28 78 32 29 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ sn w0 (x2) ; ┆
0x52c0…52e0 20 73 65 20 20 77 31 20 28 78 32 2b 32 29 20 20 20 20 20 3b 20 20 20 69 66 20 6e 61 6d 65 20 3c ┆ se w1 (x2+2) ; if name <┆
0x52e0…5300 3e 20 70 72 6f 63 20 6e 61 6d 65 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 64 ┆> proc name then jl. d┆
0x5300…5320 36 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 4c 6f 6f 70 3b 0a 20 20 20 20 20 20 64 6c ┆6. ; goto Loop; dl┆
0x5320…5340 20 20 77 31 20 20 78 33 2b 38 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 30 20 28 ┆ w1 x3+8 ; sn w0 (┆
0x5340…5360 78 32 2b 34 29 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 20 20 77 31 20 28 78 32 2b 36 29 20 ┆x2+4) ; se w1 (x2+6) ┆
0x5360…5380 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 64 36 2e 20 20 20 20 20 20 20 3b 20 ┆ ; jl. d6. ; ┆
0x5380…53a0 20 20 70 72 6f 63 61 64 64 72 3a 3d 70 64 61 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 34 ┆ procaddr:=pda; jl. 4┆
0x53a0…53c0 20 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 45 4e 44 3b 0a 64 38 3a 20 20 20 61 6c 20 ┆ ; goto END; d8: al ┆
0x53c0…53e0 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 3b 20 53 74 6f 70 3a 20 20 70 72 6f 63 61 64 64 72 ┆ w3 0 ; Stop: procaddr┆
0x53e0…5400 3a 3d 30 3b 0a 20 20 20 20 20 20 64 6c 2e 20 77 31 20 20 64 30 2e 2b 32 20 20 20 20 20 3b 20 45 ┆:=0; dl. w1 d0.+2 ; E┆