|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 20736 (0x5100)
Names: »TEPROM2.PAS«
└─⟦82e69b677⟧ Bits:30003292 PROMbrænder software til RC700
└─⟦this⟧ »TEPROM2.PAS«
0x0000…0020 (0,) 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 ┆ ┆
[…0xf…]
0x0200…0220 (1,) 3b 20 28 2a 20 72 65 61 64 20 63 6f 64 65 20 2b 20 70 6f 77 20 6f 6e 20 2a 29 0d 0a 20 20 20 20 ┆; (* read code + pow on *) ┆
0x0220…0240 66 6f 72 20 61 3a 3d 30 20 74 6f 20 31 20 64 6f 0d 0a 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 ┆for a:=0 to 1 do begin ┆
0x0240…0260 20 20 20 70 6f 72 74 28 2e 24 32 32 2e 29 3a 3d 61 3b 0d 0a 20 20 20 20 20 20 70 6f 72 74 28 2e ┆ port(.$22.):=a; port(.┆
0x0260…0280 24 32 33 2e 29 3a 3d 24 30 30 3b 20 28 2a 20 68 69 67 68 20 61 64 64 20 2b 20 72 65 61 64 20 63 ┆$23.):=$00; (* high add + read c┆
0x0280…02a0 6f 6d 20 2a 29 0d 0a 20 20 20 20 20 20 69 66 20 61 3d 30 20 74 68 65 6e 20 6d 61 6e 3a 3d 70 6f ┆om *) if a=0 then man:=po┆
0x02a0…02c0 72 74 28 2e 24 32 30 2e 29 20 65 6c 73 65 20 64 65 76 3a 3d 70 6f 72 74 28 2e 24 32 30 2e 29 3b ┆rt(.$20.) else dev:=port(.$20.);┆
0x02c0…02e0 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 70 6f 72 74 28 2e 24 32 30 2e 29 3a 3d 70 6f 72 ┆ end; port(.$20.):=por┆
0x02e0…0300 74 6b 6f 6d 61 6e 64 6f 3b 20 28 2a 20 70 6f 77 20 6f 66 66 20 2a 29 0d 0a 20 20 20 0d 0a 20 20 ┆tkomando; (* pow off *) ┆
0x0300…0320 20 20 77 72 69 74 65 6c 6e 28 61 66 73 2c 27 4d 61 6e 75 66 61 63 74 75 72 65 72 20 63 6f 64 65 ┆ writeln(afs,'Manufacturer code┆
0x0320…0340 20 28 68 65 78 29 3a 20 27 2c 68 65 78 28 6d 61 6e 29 2c 40 31 30 2c 40 31 33 2c 61 66 73 2c 0d ┆ (hex): ',hex(man),@10,@13,afs, ┆
0x0340…0360 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 44 65 76 69 63 65 20 63 6f 64 65 20 28 68 65 78 29 3a ┆ 'Device code (hex):┆
0x0360…0380 20 27 2c 68 65 78 28 64 65 76 29 29 3b 0d 0a 20 20 65 6e 64 0d 0a 20 20 65 6c 73 65 0d 0a 20 20 ┆ ',hex(dev)); end else ┆
0x0380…03a0 77 72 69 74 65 6c 6e 28 61 66 73 2c 40 32 37 2c 40 31 33 30 2c 27 66 65 6a 6c 20 21 21 20 27 2c ┆writeln(afs,@27,@130,'fejl !! ',┆
0x03a0…03c0 40 32 37 2c 40 31 32 38 2c 27 46 61 6d 69 6c 69 65 70 61 72 61 6d 65 74 65 72 20 69 6b 6b 65 20 ┆@27,@128,'Familieparameter ikke ┆
0x03c0…03e0 76 61 6c 67 74 20 21 21 20 27 29 3b 0d 0a 20 20 77 72 69 74 65 28 40 31 30 2c 40 31 30 2c 40 31 ┆valgt !! '); write(@10,@10,@1┆
0x03e0…0400 33 2c 61 66 73 2c 27 54 61 73 74 20 3c 72 65 74 75 72 3e 27 29 3b 0d 0a 20 20 20 20 72 65 61 64 ┆3,afs,'Tast <retur>'); read┆
0x0400…0420 (2,) 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 ┆ ┆
[…0xe…]
0x05e0…0600 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3a ff ea 00 f0 ff ff ff ff ff ┆ : ┆
0x0600…0620 (3,) 6c 6e 28 72 29 3b 0d 0a 65 6e 64 3b 20 20 28 2a 20 73 6c 75 74 20 70 7d 20 70 72 6f 63 65 64 75 ┆ln(r); end; (* slut på procedu┆
0x0620…0640 72 65 20 69 64 65 6e 74 20 2a 29 20 0d 0a 0d 0a 20 20 20 20 20 20 0d 0a 70 72 6f 63 65 64 75 72 ┆re ident *) procedur┆
0x0640…0660 65 20 66 61 6d 69 6c 69 65 28 76 61 72 20 6e 72 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 ┆e familie(var nr: integer); var┆
0x0660…0680 20 73 6c 75 74 2c 6f 6b 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 0d 0a 63 6f 6e 73 74 0d 0a 72 6f 6d ┆ slut,ok: boolean; const rom┆
0x0680…06a0 31 36 3d 24 30 30 3b 72 6f 6d 33 32 3d 24 30 32 3b 72 6f 6d 33 32 61 3d 24 30 61 3b 72 6f 6d 36 ┆16=$00;rom32=$02;rom32a=$0a;rom6┆
0x06a0…06c0 34 3d 24 30 63 3b 72 6f 6d 36 34 61 3d 24 38 34 3b 0d 0a 72 6f 6d 31 32 38 3d 24 30 65 3b 72 6f ┆4=$0c;rom64a=$84; rom128=$0e;ro┆
0x06c0…06e0 6d 31 32 38 61 3d 24 38 36 3b 72 6f 6d 32 35 36 3d 24 38 30 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a ┆m128a=$86;rom256=$80; begin ┆
0x06e0…0700 73 6c 75 74 3a 3d 66 61 6c 73 65 3b 0d 0a 72 65 70 65 61 74 0d 0a 20 20 20 20 77 72 69 74 65 28 ┆slut:=false; repeat write(┆
0x0700…0720 40 31 32 2c 40 31 30 2c 61 66 73 2c 27 46 20 41 20 4d 20 49 20 4c 20 49 20 45 20 54 20 59 20 50 ┆@12,@10,afs,'F A M I L I E T Y P┆
0x0720…0740 20 45 20 27 2c 40 31 33 2c 40 31 30 2c 75 6e 64 73 2c 40 31 30 2c 40 31 30 2c 40 31 30 2c 40 31 ┆ E ',@13,@10,unds,@10,@10,@10,@1┆
0x0740…0760 33 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 31 2e 20 20 45 50 52 4f 4d 2d 32 37 31 ┆3); writeln(aff,'1. EPROM-271┆
0x0760…0780 36 20 20 20 20 20 76 70 70 3d 32 35 76 20 76 63 63 3d 35 76 20 73 74 2e 70 2e 35 30 20 6d 73 65 ┆6 vpp=25v vcc=5v st.p.50 mse┆
0x0780…07a0 6b 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 32 2e 20 20 45 50 52 4f 4d 2d 32 37 ┆k'); writeln(aff,'2. EPROM-27┆
0x07a0…07c0 33 32 20 20 20 20 20 76 70 70 3d 32 35 76 20 76 63 63 3d 35 76 20 73 74 2e 70 2e 35 30 20 6d 73 ┆32 vpp=25v vcc=5v st.p.50 ms┆
0x07c0…07e0 65 6b 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 33 2e 20 20 45 50 52 4f 4d 2d 32 ┆ek'); writeln(aff,'3. EPROM-2┆
0x07e0…0800 37 33 32 41 20 20 20 20 76 70 70 3d 32 31 76 20 76 63 63 3d 35 76 20 73 74 2e 70 2e 35 30 20 6d ┆732A vpp=21v vcc=5v st.p.50 m┆
0x0800…0820 (4,) 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0820…0840 20 20 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 0d ┆ (***********************) ┆
0x0840…0860 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 20 20 20 20 70 72 6f 67 72 61 6d 20 ┆ (* program ┆
0x0860…0880 66 6f 72 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 20 ┆for *) (* ┆
0x0880…08a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆ *) ┆
0x08a0…08c0 20 20 20 20 20 20 20 28 2a 20 20 20 20 45 50 52 4f 4d 20 42 52 5b 4e 44 45 52 20 20 20 20 2a 29 ┆ (* EPROM BRÆNDER *)┆
0x08c0…08e0 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 20 20 20 20 20 20 20 20 20 20 ┆ (* ┆
0x08e0…0900 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a ┆ *) (*┆
0x0900…0920 20 20 20 20 76 65 72 73 69 6f 6e 20 38 35 30 33 32 39 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 ┆ version 850329 *) ┆
0x0920…0940 20 20 20 20 20 20 20 20 20 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (* ┆
0x0940…0960 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 20 20 20 20 72 65 6c 65 61 ┆*) (* relea┆
0x0960…0980 73 65 20 32 2e 20 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆se 2. *) (┆
0x0980…09a0 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 ┆* *) ┆
0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 28 2a 20 20 20 20 61 66 20 53 47 42 20 26 20 50 54 47 20 20 20 20 ┆ (* af SGB & PTG ┆
0x09c0…09e0 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *) (**********┆
0x09e0…0a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 70 72 6f 67 72 61 6d 20 20 74 ┆*************) program t┆
0x0a00…0a20 (5,) 73 65 6b 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 34 2e 20 20 45 50 52 4f 4d 2d ┆sek'); writeln(aff,'4. EPROM-┆
0x0a20…0a40 70 32 37 33 32 41 20 20 20 76 70 70 3d 32 31 76 20 76 63 63 3d 35 76 20 73 74 2e 70 2e 32 30 20 ┆p2732A vpp=21v vcc=5v st.p.20 ┆
0x0a40…0a60 6d 73 65 6b 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 35 2e 20 20 45 50 52 4f 4d ┆msek'); writeln(aff,'5. EPROM┆
0x0a60…0a80 2d 32 37 36 34 20 20 20 20 20 76 70 70 3d 32 31 76 20 76 63 63 3d 36 76 20 69 6e 74 2e 70 31 2e ┆-2764 vpp=21v vcc=6v int.p1.┆
0x0a80…0aa0 28 34 20 6d 73 65 6b 20 6d 61 78 20 31 32 20 67 61 6e 67 65 29 27 29 3b 0d 0a 20 77 72 69 74 65 ┆(4 msek max 12 gange)'); write┆
0x0aa0…0ac0 6c 6e 28 61 66 66 2c 27 36 2e 20 20 45 50 52 4f 4d 2d 32 37 36 34 41 20 20 20 20 76 70 70 3d 31 ┆ln(aff,'6. EPROM-2764A vpp=1┆
0x0ac0…0ae0 32 76 20 76 63 63 3d 36 76 20 69 6e 74 2e 70 32 2e 28 33 20 6d 73 65 6b 20 6d 61 78 20 32 34 20 ┆2v vcc=6v int.p2.(3 msek max 24 ┆
0x0ae0…0b00 67 61 6e 67 65 29 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 37 2e 20 20 45 50 52 ┆gange)'); writeln(aff,'7. EPR┆
0x0b00…0b20 4f 4d 2d 70 32 37 36 34 41 20 20 20 76 70 70 3d 31 32 76 20 76 63 63 3d 36 76 20 69 6e 74 2e 70 ┆OM-p2764A vpp=12v vcc=6v int.p┆
0x0b20…0b40 32 2e 28 33 20 6d 73 65 6b 20 6d 61 78 20 32 34 20 67 61 6e 67 65 29 27 29 3b 0d 0a 20 77 72 69 ┆2.(3 msek max 24 gange)'); wri┆
0x0b40…0b60 74 65 6c 6e 28 61 66 66 2c 27 38 2e 20 20 45 50 52 4f 4d 2d 32 37 63 36 34 20 20 20 20 76 70 70 ┆teln(aff,'8. EPROM-27c64 vpp┆
0x0b60…0b80 3d 31 32 76 20 76 63 63 3d 36 76 20 69 6e 74 2e 70 32 2e 28 33 20 6d 73 65 6b 20 6d 61 78 20 32 ┆=12v vcc=6v int.p2.(3 msek max 2┆
0x0b80…0ba0 34 20 67 61 6e 67 65 29 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 39 2e 20 20 45 ┆4 gange)'); writeln(aff,'9. E┆
0x0ba0…0bc0 50 52 4f 4d 2d 32 37 31 32 38 20 20 20 20 76 70 70 3d 32 31 76 20 76 63 63 3d 36 76 20 69 6e 74 ┆PROM-27128 vpp=21v vcc=6v int┆
0x0bc0…0be0 2e 70 31 2e 28 34 20 6d 73 65 6b 20 6d 61 78 20 31 32 20 67 61 6e 67 65 29 27 29 3b 0d 0a 20 77 ┆.p1.(4 msek max 12 gange)'); w┆
0x0be0…0c00 72 69 74 65 6c 6e 28 61 66 66 2c 27 31 30 2e 20 45 50 52 4f 4d 2d 32 37 31 32 38 41 20 20 20 76 ┆riteln(aff,'10. EPROM-27128A v┆
0x0c00…0c20 (6,) 0a 74 2c 78 2c 6a 2c 6d 61 78 61 64 64 31 2c 69 2c 6d 6f 73 74 2c 73 75 6d 2c 72 73 75 6d 20 3a ┆ t,x,j,maxadd1,i,most,sum,rsum :┆
0x0c20…0c40 20 69 6e 74 65 67 65 72 3b 0d 0a 76 66 65 6a 6c 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 73 76 61 ┆ integer; vfejl : boolean; sva┆
0x0c40…0c60 72 3a 20 73 74 72 69 6e 67 28 2e 33 2e 29 3b 0d 0a 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 6d 6f ┆r: string(.3.); begin mo┆
0x0c60…0c80 73 74 3a 3d 72 6f 6d 6d 61 78 20 73 68 72 20 31 32 3b 0d 0a 20 20 6d 61 78 61 64 64 31 3a 3d 72 ┆st:=rommax shr 12; maxadd1:=r┆
0x0c80…0ca0 6f 6d 6d 61 78 20 61 6e 64 20 24 66 66 66 3b 0d 0a 20 20 70 6f 72 74 28 2e 24 32 30 2e 29 3a 3d ┆ommax and $fff; port(.$20.):=┆
0x0ca0…0cc0 70 6f 72 74 6b 6f 6d 61 6e 64 6f 20 6f 72 20 24 30 31 3b 20 28 2a 20 70 6f 77 20 6f 6e 20 63 6f ┆portkomando or $01; (* pow on co┆
0x0cc0…0ce0 6d 61 6e 64 6f 20 2a 29 0d 0a 20 20 72 65 73 65 74 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 77 ┆mando *) reset(datafil); w┆
0x0ce0…0d00 72 69 74 65 6c 6e 28 40 31 33 2c 40 31 30 2c 40 31 30 2c 61 66 73 2c 27 76 65 72 69 66 79 20 73 ┆riteln(@13,@10,@10,afs,'verify s┆
0x0d00…0d20 74 61 72 74 65 74 27 29 3b 0d 0a 20 20 76 66 65 6a 6c 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 73 75 ┆tartet'); vfejl:=false; su┆
0x0d20…0d40 6d 3a 3d 30 3b 0d 0a 20 20 72 73 75 6d 3a 3d 30 3b 0d 0a 20 20 66 6f 72 20 69 3a 3d 30 20 74 6f ┆m:=0; rsum:=0; for i:=0 to┆
0x0d40…0d60 20 6d 6f 73 74 20 64 6f 0d 0a 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 6a 3a 3d 69 20 73 68 6c 20 ┆ most do begin j:=i shl ┆
0x0d60…0d80 34 20 2b 20 24 30 30 3b 20 28 2a 20 6d 65 73 74 20 62 65 74 79 64 65 6e 64 65 20 62 69 74 20 2b ┆4 + $00; (* mest betydende bit +┆
0x0d80…0da0 20 72 65 61 64 20 63 6f 6d 61 6e 64 6f 20 2a 29 0d 0a 20 20 20 20 62 6c 6f 63 6b 72 65 61 64 28 ┆ read comando *) blockread(┆
0x0da0…0dc0 64 61 74 61 66 69 6c 2c 72 6f 6d 64 61 74 61 2c 33 32 29 3b 0d 0a 20 20 20 20 66 6f 72 20 78 3a ┆datafil,romdata,32); for x:┆
0x0dc0…0de0 3d 30 20 74 6f 20 6d 61 78 61 64 64 31 20 64 6f 0d 0a 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 ┆=0 to maxadd1 do begin ┆
0x0de0…0e00 20 20 20 70 6f 72 74 28 2e 24 32 32 2e 29 3a 3d 78 20 61 6e 64 20 24 30 30 66 66 3b 20 20 28 2a ┆ port(.$22.):=x and $00ff; (*┆
0x0e00…0e20 (7,) 70 70 3d 31 32 76 20 76 63 63 3d 36 76 20 69 6e 74 2e 70 32 2e 28 33 20 6d 73 65 6b 20 6d 61 78 ┆pp=12v vcc=6v int.p2.(3 msek max┆
0x0e20…0e40 20 32 34 20 67 61 6e 67 65 29 27 29 3b 0d 0a 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 31 31 2e ┆ 24 gange)'); writeln(aff,'11.┆
0x0e40…0e60 20 45 50 52 4f 4d 2d 70 32 37 31 32 38 41 20 20 76 70 70 3d 31 32 76 20 76 63 63 3d 36 76 20 69 ┆ EPROM-p27128A vpp=12v vcc=6v i┆
0x0e60…0e80 6e 74 2e 70 32 2e 28 33 20 6d 73 65 6b 20 6d 61 78 20 32 34 20 67 61 6e 67 65 29 27 29 3b 0d 0a ┆nt.p2.(3 msek max 24 gange)'); ┆
0x0e80…0ea0 20 77 72 69 74 65 6c 6e 28 61 66 66 2c 27 31 32 2e 20 45 50 52 4f 4d 2d 32 37 32 35 36 20 20 20 ┆ writeln(aff,'12. EPROM-27256 ┆
0x0ea0…0ec0 20 76 70 70 3d 31 32 76 20 76 63 63 3d 36 76 20 69 6e 74 2e 70 32 2e 28 33 20 6d 73 65 6b 20 6d ┆ vpp=12v vcc=6v int.p2.(3 msek m┆
0x0ec0…0ee0 61 78 20 32 34 20 67 61 6e 67 65 29 27 29 3b 0d 0a 20 20 63 61 73 65 20 6e 72 20 6f 66 0d 0a 20 ┆ax 24 gange)'); case nr of ┆
0x0ee0…0f00 20 30 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 38 2c 31 37 29 3b 0d ┆ 0: begin gotoxy(8,17); ┆
0x0f00…0f20 0a 20 20 20 20 20 20 20 77 72 69 74 65 28 40 32 37 2c 40 31 33 30 2c 27 2d 3e 3e 20 20 20 20 20 ┆ write(@27,@130,'->> ┆
0x0f20…0f40 49 4e 47 45 4e 20 46 41 4d 49 4c 49 45 54 59 50 45 20 56 41 4c 47 54 20 27 2c 40 32 37 2c 40 31 ┆INGEN FAMILIETYPE VALGT ',@27,@1┆
0x0f40…0f60 32 38 29 3b 0d 0a 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 31 3a 20 67 6f 74 6f 78 79 28 38 2c 35 ┆28); end; 1: gotoxy(8,5┆
0x0f60…0f80 29 3b 0d 0a 20 20 32 3a 20 67 6f 74 6f 78 79 28 38 2c 36 29 3b 0d 0a 20 20 33 3a 20 67 6f 74 6f ┆); 2: gotoxy(8,6); 3: goto┆
0x0f80…0fa0 78 79 28 38 2c 37 29 3b 0d 0a 20 20 34 3a 20 67 6f 74 6f 78 79 28 38 2c 38 29 3b 0d 0a 20 20 35 ┆xy(8,7); 4: gotoxy(8,8); 5┆
0x0fa0…0fc0 3a 20 67 6f 74 6f 78 79 28 38 2c 39 29 3b 0d 0a 20 20 36 3a 20 67 6f 74 6f 78 79 28 38 2c 31 30 ┆: gotoxy(8,9); 6: gotoxy(8,10┆
0x0fc0…0fe0 29 3b 0d 0a 20 20 37 3a 20 67 6f 74 6f 78 79 28 38 2c 31 31 29 3b 0d 0a 20 20 38 3a 20 67 6f 74 ┆); 7: gotoxy(8,11); 8: got┆
0x0fe0…1000 6f 78 79 28 38 2c 31 32 29 3b 0d 0a 20 20 39 3a 20 67 6f 74 6f 78 79 28 38 2c 31 33 29 3b 0d 0a ┆oxy(8,12); 9: gotoxy(8,13); ┆
0x1000…1020 (8,) 20 69 6e 69 74 20 61 66 20 6c 6f 77 65 72 61 64 64 20 2a 29 0d 0a 20 20 20 20 20 20 70 6f 72 74 ┆ init af loweradd *) port┆
0x1020…1040 28 2e 24 32 33 2e 29 3a 3d 28 78 20 61 6e 64 20 24 66 66 30 30 29 20 73 68 72 20 38 20 2b 6a 3b ┆(.$23.):=(x and $ff00) shr 8 +j;┆
0x1040…1060 20 20 28 2a 20 69 6e 69 74 20 61 66 20 68 69 67 68 61 64 64 20 2b 20 72 65 61 64 63 6f 6d 20 2a ┆ (* init af highadd + readcom *┆
0x1060…1080 29 0d 0a 20 20 20 20 20 20 74 3a 3d 20 70 6f 72 74 28 2e 24 32 30 2e 29 3b 0d 0a 20 20 20 20 20 ┆) t:= port(.$20.); ┆
0x1080…10a0 20 69 66 20 72 6f 6d 64 61 74 61 28 2e 78 2e 29 20 3c 3e 20 74 20 20 74 68 65 6e 0d 0a 20 20 20 ┆ if romdata(.x.) <> t then ┆
0x10a0…10c0 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 76 66 65 6a 6c 3a 3d 74 72 75 65 3b 0d 0a ┆ begin vfejl:=true; ┆
0x10c0…10e0 20 20 20 20 20 20 20 20 69 6e 67 3a 3d 28 78 2b 28 69 20 73 68 6c 20 31 32 29 29 3b 0d 0a 20 20 ┆ ing:=(x+(i shl 12)); ┆
0x10e0…1100 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 40 31 33 2c 40 31 30 2c 61 66 73 2c 27 66 65 6a 6c 20 ┆ writeln(@13,@10,afs,'fejl ┆
0x1100…1120 69 20 61 64 72 65 73 73 65 20 28 68 65 78 29 3a 20 27 2c 68 65 78 28 69 6e 67 29 29 3b 0d 0a 20 ┆i adresse (hex): ',hex(ing)); ┆
0x1120…1140 20 20 20 20 20 20 20 69 6e 67 3a 3d 20 72 6f 6d 64 61 74 61 28 2e 78 2e 29 3b 0d 0a 20 20 20 20 ┆ ing:= romdata(.x.); ┆
0x1140…1160 20 20 20 20 77 72 69 74 65 6c 6e 28 61 66 73 2c 27 66 6f 72 76 65 6e 74 65 74 20 64 61 74 61 20 ┆ writeln(afs,'forventet data ┆
0x1160…1180 28 68 65 78 29 3a 20 27 2c 68 65 78 28 69 6e 67 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 ┆(hex): ',hex(ing)); wri┆
0x1180…11a0 74 65 6c 6e 28 61 66 73 2c 27 6c 7b 73 74 20 64 61 74 61 20 20 20 20 20 20 28 68 65 78 29 3a 20 ┆teln(afs,'læst data (hex): ┆
0x11a0…11c0 27 2c 68 65 78 28 74 29 2c 40 31 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 72 65 70 65 61 74 20 0d ┆',hex(t),@10); repeat ┆
0x11c0…11e0 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 63 6c 72 65 6f 6c 3b 0d ┆ gotoxy(0,24);clreol; ┆
0x11e0…1200 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 40 37 2c 61 66 73 2c 27 7c 6e 73 6b 65 73 20 ┆ write(@7,afs,'ønskes ┆
0x1200…1220 (9,) 20 31 30 3a 20 67 6f 74 6f 78 79 28 38 2c 31 34 29 3b 0d 0a 20 31 31 3a 20 67 6f 74 6f 78 79 28 ┆ 10: gotoxy(8,14); 11: gotoxy(┆
0x1220…1240 38 2c 31 35 29 3b 0d 0a 20 31 32 3a 20 67 6f 74 6f 78 79 28 38 2c 31 36 29 3b 0d 0a 65 6e 64 3b ┆8,15); 12: gotoxy(8,16); end;┆
0x1240…1260 0d 0a 0d 0a 20 20 69 66 20 6e 72 3c 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 40 32 37 2c 40 31 ┆ if nr<>0 then write(@27,@1┆
0x1260…1280 33 30 2c 27 2d 3e 3e 27 2c 40 32 37 2c 40 31 32 38 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 ┆30,'->>',@27,@128); repeat ┆
0x1280…12a0 20 67 6f 74 6f 78 79 28 32 34 2c 31 39 29 3b 0d 0a 20 20 77 72 69 74 65 28 27 76 61 6c 67 3a 20 ┆ gotoxy(24,19); write('valg: ┆
0x12a0…12c0 27 29 3b 0d 0a 20 20 72 65 61 64 28 72 65 74 75 72 29 3b 0d 0a 20 20 69 66 20 72 65 74 75 72 3d ┆'); read(retur); if retur=┆
0x12c0…12e0 27 27 20 74 68 65 6e 20 73 6c 75 74 3a 3d 74 72 75 65 0d 0a 20 20 65 6c 73 65 0d 0a 20 20 76 61 ┆'' then slut:=true else va┆
0x12e0…1300 6c 28 72 65 74 75 72 2c 6e 72 2c 73 6b 72 61 6c 64 29 3b 0d 0a 20 20 75 6e 74 69 6c 20 28 72 65 ┆l(retur,nr,skrald); until (re┆
0x1300…1320 74 75 72 3d 27 27 29 20 6f 72 20 28 6e 72 3e 3d 31 29 20 61 6e 64 20 28 6e 72 3c 3d 31 32 29 3b ┆tur='') or (nr>=1) and (nr<=12);┆
0x1320…1340 0d 0a 0d 0a 63 61 73 65 20 6e 72 20 6f 66 0d 0a 31 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 ┆ case nr of 1: begin e┆
0x1340…1360 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 31 36 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 ┆promtype:='.16'; rommax:=$┆
0x1360…1380 30 37 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 31 36 3b 0d ┆07ff; portkomando:=rom16; ┆
0x1380…13a0 0a 20 20 20 65 6e 64 3b 0d 0a 32 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 ┆ end; 2: begin epromty┆
0x13a0…13c0 70 65 3a 3d 27 2e 33 32 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 30 66 66 66 3b 0d ┆pe:='.32'; rommax:=$0fff; ┆
0x13c0…13e0 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 33 32 3b 0d 0a 20 20 20 65 6e ┆ portkomando:=rom32; en┆
0x13e0…1400 64 3b 0d 0a 33 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e ┆d; 3: begin epromtype:='.┆
0x1400…1420 (10,) 66 6f 72 74 73 61 74 20 63 6b 65 63 6b 20 6a 61 2f 6e 65 6a 20 27 29 3b 0d 0a 20 20 20 20 20 20 ┆fortsat ckeck ja/nej '); ┆
0x1420…1440 20 20 20 20 72 65 61 64 28 73 76 61 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 ┆ read(svar); until (┆
0x1440…1460 73 76 61 72 3d 27 6a 61 27 29 20 6f 72 20 28 73 76 61 72 3d 27 6e 65 6a 27 29 3b 0d 0a 20 20 20 ┆svar='ja') or (svar='nej'); ┆
0x1460…1480 20 20 20 20 20 69 66 20 73 76 61 72 3d 27 6e 65 6a 27 20 74 68 65 6e 20 67 6f 74 6f 20 6f 75 74 ┆ if svar='nej' then goto out┆
0x1480…14a0 74 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 73 75 6d 3a 3d 73 75 6d ┆t; end; sum:=sum┆
0x14a0…14c0 20 2b 20 72 6f 6d 64 61 74 61 28 2e 78 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 72 73 75 6d 3a 3d ┆ + romdata(.x.); rsum:=┆
0x14c0…14e0 72 73 75 6d 20 2b 20 70 6f 72 74 28 2e 24 32 30 2e 29 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 ┆rsum + port(.$20.); end; ┆
0x14e0…1500 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 6f 74 20 76 66 65 6a 6c 20 74 68 65 6e 0d 0a 20 20 62 65 ┆ end; if not vfejl then be┆
0x1500…1520 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 40 31 33 2c 40 31 30 2c 61 66 73 2c 27 76 65 ┆gin writeln(@13,@10,afs,'ve┆
0x1520…1540 72 69 66 79 20 6f 6b 20 27 20 29 3b 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 61 66 73 2c 27 66 ┆rify ok ' ); writeln(afs,'f┆
0x1540…1560 6f 72 76 65 6e 74 65 74 20 73 75 6d 63 68 65 63 6b 20 28 68 65 78 29 3a 20 27 2c 68 65 78 28 73 ┆orventet sumcheck (hex): ',hex(s┆
0x1560…1580 75 6d 29 29 3b 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 61 66 73 2c 27 65 70 72 6f 6d 20 73 75 ┆um)); writeln(afs,'eprom su┆
0x1580…15a0 6d 63 68 65 63 6b 20 20 20 20 20 28 68 65 78 29 3a 20 27 2c 68 65 78 28 72 73 75 6d 29 29 3b 0d ┆mcheck (hex): ',hex(rsum)); ┆
0x15a0…15c0 0a 20 20 65 6e 64 3b 0d 0a 6f 75 74 74 3a 0d 0a 20 20 70 6f 72 74 28 2e 24 32 30 2e 29 3a 3d 20 ┆ end; outt: port(.$20.):= ┆
0x15c0…15e0 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3b 20 20 28 2a 20 70 6f 77 20 6f 66 66 20 2a 29 0d 0a 0d 0a 65 ┆portkomando; (* pow off *) e┆
0x15e0…1600 6e 64 3b 20 20 28 2a 20 73 6c 75 74 20 70 7d 20 70 72 6f 63 65 64 75 72 65 20 76 65 72 69 66 79 ┆nd; (* slut på procedure verify┆
0x1600…1620 (11,) 33 32 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 30 66 66 66 3b 0d 0a 20 20 20 20 20 ┆32'; rommax:=$0fff; ┆
0x1620…1640 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 33 32 61 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 34 ┆portkomando:=rom32a; end; 4┆
0x1640…1660 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 33 32 27 3b 0d ┆: begin epromtype:='.32'; ┆
0x1660…1680 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 30 66 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 6b ┆ rommax:=$0fff; portk┆
0x1680…16a0 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 33 32 61 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 35 3a 20 62 65 67 ┆omando:=rom32a; end; 5: beg┆
0x16a0…16c0 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 36 34 27 3b 0d 0a 20 20 20 20 ┆in epromtype:='.64'; ┆
0x16c0…16e0 20 72 6f 6d 6d 61 78 3a 3d 24 31 66 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 ┆ rommax:=$1fff; portkomand┆
0x16e0…1700 6f 3a 3d 72 6f 6d 36 34 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 36 3a 20 62 65 67 69 6e 0d 0a 20 20 ┆o:=rom64; end; 6: begin ┆
0x1700…1720 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 36 34 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 ┆ epromtype:='.64'; romma┆
0x1720…1740 78 3a 3d 24 31 66 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d ┆x:=$1fff; portkomando:=rom┆
0x1740…1760 36 34 61 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 37 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 ┆64a; end; 7: begin ep┆
0x1760…1780 72 6f 6d 74 79 70 65 3a 3d 27 2e 36 34 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 31 ┆romtype:='.64'; rommax:=$1┆
0x1780…17a0 66 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 36 34 61 3b 0d ┆fff; portkomando:=rom64a; ┆
0x17a0…17c0 0a 20 20 20 65 6e 64 3b 0d 0a 38 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 ┆ end; 8: begin epromty┆
0x17c0…17e0 70 65 3a 3d 27 2e 36 34 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 31 66 66 66 3b 0d ┆pe:='.64'; rommax:=$1fff; ┆
0x17e0…1800 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 36 34 61 3b 0d 0a 20 20 20 65 ┆ portkomando:=rom64a; e┆
0x1800…1820 (12,) 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 65 72 61 63 68 65 63 6b 28 ┆ *) procedure eracheck(┆
0x1820…1840 76 61 72 20 65 6f 6b 20 3a 20 62 6f 6f 6c 65 61 6e 29 3b 0d 0a 76 61 72 0d 0a 78 2c 6a 3a 20 69 ┆var eok : boolean); var x,j: i┆
0x1840…1860 6e 74 65 67 65 72 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 65 6f 6b 3a 3d 74 72 75 65 3b 0d 0a ┆nteger; begin eok:=true; ┆
0x1860…1880 20 20 70 6f 72 74 28 2e 24 32 30 2e 29 3a 3d 70 6f 72 74 6b 6f 6d 61 6e 64 6f 20 6f 72 20 24 30 ┆ port(.$20.):=portkomando or $0┆
0x1880…18a0 31 3b 20 20 28 2a 20 70 6f 77 20 6f 6e 20 2a 29 0d 0a 20 20 78 3a 3d 30 3b 0d 0a 72 65 70 65 61 ┆1; (* pow on *) x:=0; repea┆
0x18a0…18c0 74 0d 0a 20 20 20 20 70 6f 72 74 28 2e 24 32 32 2e 29 3a 3d 20 78 20 61 6e 64 20 24 30 30 66 66 ┆t port(.$22.):= x and $00ff┆
0x18c0…18e0 3b 20 0d 0a 20 20 20 20 70 6f 72 74 28 2e 24 32 33 2e 29 3a 3d 20 28 78 20 61 6e 64 20 24 66 66 ┆; port(.$23.):= (x and $ff┆
0x18e0…1900 30 30 29 20 73 68 72 20 38 20 2b 20 24 30 30 3b 0d 0a 20 20 20 20 69 66 20 70 6f 72 74 28 2e 24 ┆00) shr 8 + $00; if port(.$┆
0x1900…1920 32 30 2e 29 20 3c 3e 20 24 30 30 66 66 20 74 68 65 6e 0d 0a 20 20 20 62 65 67 69 6e 0d 0a 20 20 ┆20.) <> $00ff then begin ┆
0x1920…1940 20 20 20 77 72 69 74 65 6c 6e 28 40 31 30 2c 61 66 73 2c 27 69 6b 6b 65 20 73 6c 65 74 74 65 74 ┆ writeln(@10,afs,'ikke slettet┆
0x1940…1960 20 27 29 3b 0d 0a 20 20 20 20 65 6f 6b 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a ┆ '); eok:=false; end; ┆
0x1960…1980 20 20 20 78 3a 3d 78 2b 31 3b 0d 0a 75 6e 74 69 6c 20 28 78 3d 72 6f 6d 6d 61 78 29 20 6f 72 20 ┆ x:=x+1; until (x=rommax) or ┆
0x1980…19a0 28 6e 6f 74 20 65 6f 6b 29 3b 0d 0a 20 69 66 20 65 6f 6b 20 74 68 65 6e 0d 0a 20 20 77 72 69 74 ┆(not eok); if eok then writ┆
0x19a0…19c0 65 6c 6e 28 40 31 30 2c 61 66 73 2c 27 65 70 72 6f 6d 20 6f 6b 2e 20 45 72 20 73 6c 65 74 74 65 ┆eln(@10,afs,'eprom ok. Er slette┆
0x19c0…19e0 74 20 27 29 3b 0d 0a 20 20 70 6f 72 74 28 2e 24 32 30 2e 29 3a 3d 70 6f 72 74 6b 6f 6d 61 6e 64 ┆t '); port(.$20.):=portkomand┆
0x19e0…1a00 6f 3b 20 20 28 2a 20 70 6f 77 20 6f 66 66 20 2a 29 0d 0a 20 20 0d 0a 65 6e 64 3b 20 20 28 2a 20 ┆o; (* pow off *) end; (* ┆
0x1a00…1a20 (13,) 6e 64 3b 0d 0a 39 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 ┆nd; 9: begin epromtype:='┆
0x1a20…1a40 2e 31 32 38 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 33 66 66 66 3b 0d 0a 20 20 20 ┆.128'; rommax:=$3fff; ┆
0x1a40…1a60 20 20 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 31 32 38 3b 0d 0a 20 20 20 65 6e 64 3b 0d ┆ portkomando:=rom128; end; ┆
0x1a60…1a80 0a 31 30 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 31 32 ┆ 10: begin epromtype:='.12┆
0x1a80…1aa0 38 27 3b 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 33 66 66 66 3b 0d 0a 20 20 20 20 20 70 ┆8'; rommax:=$3fff; p┆
0x1aa0…1ac0 6f 72 74 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 31 32 38 61 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 31 ┆ortkomando:=rom128a; end; 1┆
0x1ac0…1ae0 31 3a 62 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 31 32 38 27 3b ┆1:begin epromtype:='.128';┆
0x1ae0…1b00 0d 0a 20 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 33 66 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 ┆ rommax:=$3fff; port┆
0x1b00…1b20 6b 6f 6d 61 6e 64 6f 3a 3d 72 6f 6d 31 32 38 61 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 31 32 3a 62 ┆komando:=rom128a; end; 12:b┆
0x1b20…1b40 65 67 69 6e 0d 0a 20 20 20 20 20 65 70 72 6f 6d 74 79 70 65 3a 3d 27 2e 32 35 36 27 3b 0d 0a 20 ┆egin epromtype:='.256'; ┆
0x1b40…1b60 20 20 20 20 72 6f 6d 6d 61 78 3a 3d 24 37 66 66 66 3b 0d 0a 20 20 20 20 20 70 6f 72 74 6b 6f 6d ┆ rommax:=$7fff; portkom┆
0x1b60…1b80 61 6e 64 6f 3a 3d 72 6f 6d 32 35 36 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 70 6f ┆ando:=rom256; end; end; po┆
0x1b80…1ba0 72 74 28 2e 24 32 30 2e 29 3a 3d 70 6f 72 74 6b 6f 6d 61 6e 64 6f 3b 0d 0a 75 6e 74 69 6c 20 73 ┆rt(.$20.):=portkomando; until s┆
0x1ba0…1bc0 6c 75 74 3b 0d 0a 65 6e 64 3b 20 20 28 2a 20 73 6c 75 74 20 70 7d 20 70 72 6f 63 65 64 75 72 65 ┆lut; end; (* slut på procedure┆
0x1bc0…1be0 20 66 61 6d 69 6c 69 65 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 20 70 72 6f 63 ┆ familie *) proc┆
0x1be0…1c00 65 64 75 72 65 20 76 65 72 69 66 79 3b 0d 0a 6c 61 62 65 6c 20 6f 75 74 74 3b 0d 0a 76 61 72 0d ┆edure verify; label outt; var ┆
0x1c00…1c20 (14,) 73 6c 75 74 20 70 7d 20 70 72 6f 63 65 64 75 72 65 20 65 72 61 63 6b 65 63 6b 20 2a 29 0d 0a 0d ┆slut på procedure erackeck *) ┆
0x1c20…1c40 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 65 70 72 6f 6d 72 65 61 64 28 76 ┆ procedure epromread(v┆
0x1c40…1c60 61 72 20 6d 61 78 61 64 64 20 3a 20 69 6e 74 65 67 65 72 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ar maxadd : integer); ┆
0x1c60…1c80 20 20 0d 0a 0d 0a 76 61 72 20 20 20 6a 2c 20 6d 61 78 61 64 64 31 2c 69 2c 6d 6f 73 74 2c 78 2c ┆ var j, maxadd1,i,most,x,┆
[…truncated at 200 lines…]