; Orange programmer module v3.1
; (c) 2002 Alex Plusov
; CHIP=M8571 (128x8) I2C/S-BUS 

; S-BUS mode
; Orange2 only!
; Tested - ok


SOCKET=1 ;"I2C"

PING=SCL,0
PING=SDA,1
PINO=MS, 2
PINO=A0, 3
PINO=A1, 4
PINO=SEN,5


CDELAY = 5 ; one set delay


[INIT]
A0=0,A1=0,SEN=1
MS=1,P=10 ; S-BUS mode
SCL=1,SDA=1

R0=0xA0   ; write I2C address const
R1=0xA1   ; read I2C address const


[_START]
SDA=1,SCL=1,SEN=1,P=10,SEN=0,SCL=0,SEN=1 

[_STOP]
SCL=0,SDA=1,SEN=0,SCL=1,P=10,SEN=1 



[READ]
_START

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

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

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

SDA=1                               ;SDA Hi-Z
LOOP=(7,0){SCL=1,DATA[I]=SDA,SCL=0} ;read byte
SDA=1,SCL=1,SCL=0,SDA=0             ;master not asked

_STOP


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

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

LOOP=(7,0){SDA=DATA[I],SCL=1,SCL=0}  ; out 8 bits data
SDA=0,SDA=1,SCL=1,SDA?0             ; 0 - ack check?
SCL=0,SDA=0
P=20000
_STOP