23(#9#ZZATOTPAGVPERPAGPAGEFILENAMEFNAME $$******************************$$** 8/16K EPROM PROGRAMMER **$$** SHAREWARE - 1/1999 **$$** WRITTEN BY R.CORNELISSEN **$$** R.Cornelissen@SynSpec.NL **$$******************************o;@,+(G(%EPROM PROGRAMMER-R.CORNELISSSEN 3-'89Y-@@o(INITIALIZING... AF:BE(,"AU((A(PLACE PROGRAMMER AND REBOOT  F:BE(,"AU@  %-BBb"!%  jj104,201,2,240,21,201,3,240,39,170,232,202,240,6,104,104,169,0,240,247,169,2,141,0,6,96,104,104,201,1jj240,28,201,2,240,58,201,3,240,77,169,3,141,0,6,104,104,96,104,104,201,4,240,90,104,104,169,0,240,236EMPTY CHECK(mm104,104,32,216,153,32,173,153,172,4,213,32,182,153,192,255,208,7,32,231,153,208,238,240,5,169,1,141,0,6)32,164,153,962READ EPROM<[[104,104,32,216,153,32,173,153,173,4,213,145,203,32,182,153,32,231,153,208,240,240,229FREAD CHECKPjj104,104,32,216,153,32,173,153,173,4,213,72,32,182,153,104,209,203,208,204,32,231,153,208,236,240,202ZPROGRAM EPROMdss104,104,32,191,153,169,255,141,4,213,169,4,141,6,213,169,255,133,66,104,104,201,12,240,10,201,21,240,18,169,4npp141,0,6,96,173,5,213,41,247,141,5,213,169,0,240,8,173,5,213,9,8,141,5,213,169,10,141,38,2,169,153,141,39,2xkk169,4,141,25,2,173,25,2,208,251,173,5,213,9,16,141,5,213,32,173,153,169,0,72,32,1,154,169,0,141,6,213dd141,4,213,169,4,141,6,213,32,155,153,173,4,213,72,32,164,153,169,0,141,6,213,169,255,141,4,213ff169,4,141,6,213,104,209,203,240,11,104,24,105,1,201,24,72,240,13,208,199,32,1,154,104,32,231,153[[208,187,240,6,169,1,141,0,6,104,32,182,153,169,0,133,66,173,5,213,41,231,141,5,213,96SUB OE=0##173,5,213,41,253,141,5,213,96SUB OE=1 173,5,213,9,2,141,5,213,96SUB CE=0##173,5,213,41,254,141,5,213,96SUB CE=1 173,5,213,9,1,141,5,213,96SUB INITZZ170,169,32,133,203,169,78,133,204,169,0,141,0,213,141,1,213,141,0,6,141,6,213,168,96SUB INIT INPUT8832,191,153,141,4,213,169,4,141,6,213,32,155,153,96SUB INC ADRES"[[200,208,2,230,204,24,173,0,213,105,1,141,0,213,173,1,213,105,0,141,1,213,236,1,213,96, SUB PGM6jj177,203,141,4,213,173,5,213,41,251,141,5,213,138,72,162,5,169,0,24,105,1,208,251,202,208,246,104,170@ 173,5,213,9,4,141,5,213,96BE0'BE19BE5KBE(AU]BE)AUoBE3AUBE0@BE1@yBE5@'BE3@OF:BE3,@)F:BE),R(U(y(HARDWARE COMMUNICATION ERROR 33F:BE3,@)F:BE),A ##@@K:: +(:(%8/16K EPROM PROGRAMMER CHOICE OF TYPE]-@@2(1. VIEW EPROM TYPE LIST;5(L(2. SET EPROM TYPE;O(]( 3. BASIC.F AP)@(6-&@HF @)!@APAAAp4 +BE(1BE)44 +(4(BRAND/TYPE: KB: VPP: REMARK:g( ((AMD :(1(AM 2764 8K 21.0VL(AM 2764A 8K 12.5Vg(AM 27128 16K 21.0Vq(AM 27128A 16K 12.5V!($(2( FUJITSU :5(P(MBM 2764 8K 21.0Vq(MBM 27C64 8K 21.0V CMOSq(MBM 27128 16K 21.0V!($(2( HITACHI :5(P(HN 482764 8K 21.0Vq(HN 27C64 8K 21.0V CMOSn B5(#HN 482764P 8K 21.0V 1X PGM-ABLEP(HN 4827128 16K 21.0Vn(HN 27128P 16K 21.0V &k( 1X PGM-ABLE((%(INTEL :((C(2764 8K 21.0Vk(#P2764 8K 21.0V 1X PGM-ABLE0g(2764A 8K 12.5V?(27C64 8K 12.5V CMOSg(#P2764A 8K 12.5V 1X PGM-ABLE:g(27128 16K 21.0V9(27128A 16K 12.5Va(#P27128A 16K 12.5V 1X PGM-ABLEd(g(Dh( MITSUBISHI : B!(G(!M5L2764 8K 21.0V SEE BELOWb(M5L27128 16K 21.0Ve(h(Np( MOTOROLA :(;(!MCM 68764 8K 25.0V SEE BELOWa(!MCM 68766 8K 25.0V SEE BELOWp( MCM 68769Xg ( 8K 25.0V SEE BELOW#(&(C(NATIONAL SEMICONDUCTOR :F(g(NMC 27C64 8K 12.5V CMOSb\$(NMC 27CP128 16K 12.5V CMOS'(*(4(NEC :7(R(uPD 2764 8K 21.0V\ Blm$(uPD 27C64 8K 21.0V CMOSL(#uPD 2764C 8K 21.0V 1X PGM-ABLEm(uPD 27C64C 8K 21.0V CMOSvk+(#uPD 27128 16K 21.0V 1X PGM-ABLES(#uPD 27218C 16K 21.0V 1X PGM-ABLEV(Y(h( ROCKWELL :k(k-(%R 87C64 8K 21.0V CMOS/SEE BELOWW(%R 27C64P 8K 21.0V CMOS/SEE BELOWZ(](h(SEEQ :k(o(2764 8K 21.0V9(5133 8K 21.0VT(27128 16K 21.0Vo(5143 16K 21.0V[ B(("( SGS/ATES :%(@(M2764 8K 21.0V[(M27128A 16K 12.5V2( (!(TEXAS INSTRUMENTS :$(2(TMS 2564r!( 8K 25.0V SEE BELOW<(TMS 2764 8K 21.0VW(TMS 27128 16K 21.0Vr(TMS 27C128 16K 12.5V( (( THOMSON-CSF :(e)(!ET 2764 8K 21.0V SEE BELOW,(/(=( TOSHIBA :@([(TMM 2764 8K 21.0Ve B9(TMM 2764DI 8K 21.0V9(TMM 27128 16K 21.0V/(/($____________________________________=:(2NOTE - TYPES POINTING TO THIS TEXT ARE :=(tt(l ->MEANT FOR OTHER Vpp; AND/OR ->NOT PGM-ABLE WITH THE USED HI-SPEED PROTOCOL.d(;(0IT IS POSSIBLE TO READ THEM OF COURSE.d($____________________________________)@ A0 b +(8(#8/16K EPROM PROGRAMMER SET TYPE;(>(A(b(NUMBER OF KBYTES IN EPROM :*A A-@)@#A@*@A456-$@(5(PROGRAMMING VOLTAGE (VPP) :>A A0-@)@#A@P*@!A0H 6-P:,Rn +(9($8/16K EPROM PROGRAMMER MAIN MENU<(?(U(1. LOAD PGM FILE;X(n(2. SAVE PGM FILE;\V((3. DISK DIRECTORY; (#(&(@(4. EPROM EMPTY CHECK;C(V(5. READ EPROM;ff((6. EPROM READ CHECK;"(8(7. PROGRAM EPROM;;(T(8. PROGRAM PER PAGE.f-@$@#p1( FOR EXIT)-@@#1(->z$)@$"@'A0/6-&@H/ @)!@AGGAAAAAAA PA P2( O.K.?)@2@AP%6-&@%AA 5( }LOAD FILE(1(GIVE DEVICE:FILENAME :5* AP*@@H1-B%+++'@,$A$,&@,>)@DH @ AP2 B@(2(DEVICE I/O ERROR!$ B APL5( }SAVE FILE(1(GIVE DEVICE:FILENAME :5V* AP*@@`E1-B%+++'@,$A$,&@,A*@F:,E j@t AP(}DIRECTORY OF DRIVE D1:&&@@D:*.*, A0)@"(>:,, A  B@ B APi (}2($8/16K EPROM PROGRAMMER EMPTY CHECK5(8(P(CHECKING EPROM ...i6-?:B<@<,6F:A6,""( O.K., B6 AP B AP@m (}1(#8/16K EPROM PROGRAMMER READ EPROM4(7(T(EPROM IS BEING READ ...m6-?:B<@<,J6F:A6,""( O.K., B6 APT B APf (}1(#8/16K EPROM PROGRAMMER READ CHECK4(7(M(VERIFY EPROM ...f6-?:B<@<,6F:A6,""( O.K., B6 AP B APn (}2($8/16K EPROM PROGRAMMER PROGRAMMING5(8(S(PROGRAMMING EPROM ...n6-?:B<@<<,zF:A6,""( O.K.%(((8( VERIFY ...Q6-?:B<@<,fF:A6,"p( O.K.z A0 B AP& B AP_ (}2($8/16K EPROM PROGRAMMER PROGRAMMING5(8(_("THIS OPTION IS MEANT FOR PARTIALLYGG(?PROGRAMMING OF THE EPROM. IT ALWAYS STARTS AT EPROM ADRESS 0.J(/($(ENTER '0' TO GO BACK TO MAIN MENU.)2(J(ENTER # OF PAGES: ; A -@!@#; )!A "AP 6-?( ($(PROGRAMMING EPROM ...?6-?:B<@<<,zF:A6,""( O.K.%(((8( VERIFY ...Q6-?:B<@<,fF:A6,"p( O.K.z A0 A ')@$ N6-F:A6,*N*"@ ( EPROM ERROR* B/N( PROGRAM ERROR(4N6"@,(ERROR IN # OF USR VAR'S6 B>N9"@/(INVALID USR CMD/# OF VAR'S9 BHN*"@ ( INVALID VPP* BN B$ D:PGM.BAS