Micro­power

   

Volume 2, Number 2 – April 1982
Page 12 of 37

EPROM Programmer/​Checker/​Reader

by C. Bowden

This article continues the listing of the controlling software for the Eprom programmer.

350VERFY4CALL RESET1
351LD A, (ERRFLG)
352CP 0FFH; IF 0FFH, THERE WERE ERRORS
353JR Z, VERFY5; SO SKIP O.K. MESSAGE
354CALL CLRCRT
355LD HL, TEXT16; ELSE SAY COMPARISON O.K.
356LD DE, 090BH
357LD BC, 1BH
358LDIR
359JR VERFY6
360VERFY5DEFB SCAL, TDEL; HOLD DISPLAY 2 SECS
361DEFB SCAL, TDEL
362LD HL, TEXT5; ERROR MESSAGEREEN
363
364LD DE, 090BH
365LD BC, 24
366LDIR
367VERFY6DEFB SCAL. TDEL; 2 SECS PAUSE
368DEFB SCAL, TDEL
369JP RESTRT; EXIT ROUTINE
370; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
371; ROUTINE TO COPY EPROM INTO RAM
372; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
373TRNFERLD HL, TEXT9; 'FILLED FROM EPROM'
374LD DE, 0A4BH
375LD BC, 11H
376LDIR
377CALL RAMADR
378LD DE, 0000H
379TRNFR1LD A, (ROMFLG)
380CP D
381JR Z, TRNFR2; JUMP IF ALL DONE
382CALL ENABLE
383IN A, (ADATA); GET BYTE FROM EPROM
384LD (HL), A; STORE IT IN MEMORY
385CALL COUNT; INCR. ADD., DISABLE CHIP
386INC HL; NEXT MEMORY LOCATION
387INC DE; INCREMENT BYTE COUNTER
388JR TRNFR1; CONTINUE TILL FINISHED
389TRNFR2CALL RESET1
390CALL MESS19; ALL DONE MESSAGE
391JP RESTRT
392; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
393; ROUTINE TO CHECK IF FULLY ERASED
394; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
395ERASEDLD DE, 0000
396ERA1LD A, (ROMFLG)
397CP D
398JR Z, ERA3; JUMP IF FINISHED
399CALL ENABLE
400IN A, (ADATA); GET BYTE FROM EPROM
401CP 0FFH; IS IT 'FF'
Page 12 of 37