; Orange programmer module v3.2
; (c) 1999-2015 CnCLab & pavel-pervomaysk
; Microchip
; CHIP=24C1026,128K
; Block size 128

; Page read/write support
; Acknowledge Polling

; primary tested M24C1026 (first pin not present)

;CHIP=24AA1026,128k(128),M24C1024.hpl

SOCKET=1 ;"I2C"

PING=SCL,0
PING=SDA,1
PINO=WP, 2
PINO=N.C., 3
PINO=A1, 4
PINO=A2, 5

CDELAY=3 ; one cycle time


[!#SETUP]
$WDELAY=5000


[_START]
SDA=1,SCL=1,SDA=0,SCL=0               ; Start  10

[_STOP]
SCL=0,SDA=0,SCL=1,SDA=1               ; Stop   01


[INIT]
A1=0,A2=0
WP=1

[_POLLING]			   ; polling check
_START
R0=0
R1=0xA0
R2=ADR
R1[1]=R2[16]
LOOP=(7,0) {SDA=R1[I],SCL=P} ; out 8 bits
SDA=1,SCL=1,R0[0]=SDA              ; ack store
SCL=0,SDA=0
_STOP


[_PWAIT]        ; polling wait
$WDELAY?>0{P=$WDELAY,RETURN}
P=1000
R3=11
LOOP=(0,60){
_POLLING
R0?0{BREAK} 
P=500,R3=+1
}



[READ]
_START
R0=0xA0,R1=ADR,R0[1]=R1[16]

LOOP=(7,0) {SDA=R0[I],SCL=P} ; out 8 bits
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(15,8) {SDA=ADR[I],SCL=P}  ; out 8 bits adr Hi
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(7,0)  {SDA=ADR[I],SCL=P} ; out 8 bits adr Lo
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

_START
R0=+1	; A1
LOOP=(7,0) {SDA=R0[I],SCL=P} ; out 8 bits
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0
SDA=1
LOOP=(7,0){SCL=1,DATA[I]=SDA,SCL=0} ;read byte
SDA=1,SCL=P        ; no ack

_STOP


[READBLOCK]
_START

R0=0xA0,R1=ADR,R0[1]=R1[16]

LOOP=(7,0) {SDA=R0[I],SCL=P} ; out 8 bits
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(15,8) {SDA=ADR[I],SCL=P}  ; out 8 bits adr Hi
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(7,0)  {SDA=ADR[I],SCL=P} ; out 8 bits adr Lo
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

_START
R0=+1
LOOP=(7,0) {SDA=R0[I],SCL=P} ; out 8 bits
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0


;[READBLK]
R1=$BLOCKSIZE,R1=-1
LOOP=(R1){
SDA=1
LOOP=(7,0){SCL=1,DATA[I]=SDA,SCL=0} ;read byte
SDA=0,SCL=P ;ack
ADR=+1

}

SDA=1
LOOP=(7,0){SCL=1,DATA[I]=SDA,SCL=0} ;read last byte
SDA=1,SCL=P ;no ack
SDA=0,SCL=0,SCL=1,SDA=1,SCL=0;stop


[WRITEINIT]
WP=0

[WRITE]
_START

R0=0xA0,R1=ADR,R0[1]=R1[16]

LOOP=(7,0) {SDA=R0[I],SCL=P} ; out 8 bits
SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(15,8)  {SDA=ADR[I],SCL=P} ; out 8 bits adr Hi
SDA=1,SCL=1,SDA?0             ; ack check
SCL=0,SDA=0

LOOP=(7,0)  {SDA=ADR[I],SCL=P} ; out 8 bits adr Lo
SDA=1,SCL=1,SDA?0             ; ack check
SCL=0

LOOP=(7,0){SDA=DATA[I],SCL=P}   ; write byte
SDA=1,SCL=1,SDA?0             ; ack check
SCL=0,SDA=0
SCL=0,SCL=1,SDA=1 ;stop

_PWAIT


[WRITEBLOCK]
_START


R0=0xA0,R1=ADR,R0[1]=R1[16]

LOOP=(7,0){SDA=R0[I],SCL=1,SCL=0}   ; out 8 bits
SDA=1,SCL=1,SDA?0                   ; ack check
SCL=0,SDA=0

LOOP=(15,8) {SDA=ADR[I],SCL=P} ; out 8 bits adr Hi
SDA=1,SCL=1,SDA?0             ; ack check
SCL=0,SDA=0

LOOP=(7,0) {SDA=ADR[I],SCL=P} ; out 8 bits adr Lo
SDA=1,SCL=1,SDA?0             ; ack check
SCL=0,SDA=0


LOOP=($BLOCKSIZE){
LOOP=(7,0){SDA=DATA[I],SCL=P}   ; write byte
SDA=1,SCL=1,SDA?0,SCL=0               ; ack check
ADR=+1 ;
}

SCL=0,SDA=0
SCL=0,SCL=1,SDA=1 ;stop

_PWAIT