mda2061.hpl

schematic interface orange for eeprom programming

; Orange programmer module v1.1
; (c) 2000 Valery Fomin
; (c) 2000 Modifed for MDA206x by Gennadi K.
; CHIP=MDA2061,MDA2062,(128x8)
; Attention ! : Adress of MDA206x beginn at 128 und end at 255 !!!
; Tested !

SOCKET=7

;               PIN     1    3    6    7    8    9   10   12   13   14
; Socket 7 : MDA2061   Gnd  Vp   Vdd  Gnd  P2   P3   P1   P0   P4   Vdd
; Memory Clock (Pin 13) = 1 kHz for Programming !
; Vp Programm Voltage (Pin 3) = +20 Volt !

PINO=RES,0  ; 12 pin
PINO=IMC,2  ; 8  pin
PINO=IMI,3  ; 9  pin
PINO=MCL,4  ; 13 pin 
PINO=IMD,1  ; 10 pin
PINI=IMD,1  ; 10 pin

CDELAY=5 ; one set delay

[INIT]
RES=0,IMC=1,IMI=1,IMD=1,MCL=1
P=500
RES=1
P=100

[READ]
IMI=0                               ;\
CONST=128                           ;  \
LOOP=CONST(0,7){IMC=0,IMD=I,IMC=1}  ;    \
IMI=1                               ;      \ 
LOOP=ADR(0,6){IMC=0,IMD=I,IMC=1}    ;        \  put ADRESS
CONST=1                             ;       /
LOOP=CONST(0,0){IMC=0,IMD=I,IMC=1}  ;     /
IMI=0                               ;   /
IMI=1                               ; /

IMI=0                               ;\
CONST=129                           ;  \
LOOP=CONST(0,7){IMC=0,IMD=I,IMC=1}  ;    \
IMI=1,IMD=1                         ;      \ read DATA
LOOP=DATA(0,7){IMC=0,IMC=1,I=IMD}   ;     /
IMI=0                               ;   /
IMI=1                               ; /
                                    

[WRITE]
IMI=0                               ;\
CONST=128                           ;  \
LOOP=CONST(0,7){IMC=0,IMD=I,IMC=1}  ;    \
IMI=1                               ;      \ 
LOOP=ADR(0,6){IMC=0,IMD=I,IMC=1}    ;        \  put ADRESS
CONST=1                             ;       /
LOOP=CONST(0,0){IMC=0,IMD=I,IMC=1}  ;     /
IMI=0                               ;   /
IMI=1                               ; /

IMI=0                               ;\
CONST=131                           ;  \
LOOP=CONST(0,7){IMC=0,IMD=I,IMC=1}  ;    \
IMI=1                               ;      \ ERASE
CONST=255                           ;      /
LOOP=CONST(0,7){IMC=0,IMD=I,IMC=1}  ;    /
IMI=0                               ;  /
IMI=1                               ;/
P=200
LOOP=CONST(16,0){MCL=0,P=500,MCL=1,P=500} ; 17 Periods at 1kHz

IMI=0                               ;\
CONST=131                           ;  \
LOOP=CONST(0,7){IMC=0,IMD=I,IMC=1}  ;    \
IMI=1                               ;      \ write DATA
LOOP=DATA(0,7){IMC=0,IMD=I,IMC=1}   ;    /
IMI=0                               ;  /
IMI=1                               ;/
P=200
LOOP=CONST(16,0){MCL=0,P=500,MCL=1,P=500} ; 17 Periods at 1kHz