ST7920
8051 demo program for serial interface
;--------------------------------------------------------------
; Write data from A into INSTRUCTION Register
;--------------------------------------------------------------
WRINS:
SETB CS
SETB SID
; SID = 1
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.7 ; SID = A.7
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.6 ; SID = A.6
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.5 ; SID = A.5
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.4 ; SID = A.4
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.3 ; SID = A.3
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.2 ; SID = A.2
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.1 ; SID = A.1
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.0 ; SID = A.0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
CS
CALL DLY8
RET
;-------------------------------------------------
; Write data from A into DATA Register
;-------------------------------------------------
WRDATA:
SETB CS
SETB SID
; SID = 1
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SID
; SID = 1
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.7 ; SID = A.7
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.6 ; SID = A.6
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.5 ; SID = A.5
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.4 ; SID = A.4
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.3 ; SID = A.3
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.2 ; SID = A.2
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.1 ; SID = A.1
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
MOVBIT SID, A.0 ; SID = A.0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
SID
; SID = 0
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
SETB SCLK ; READ DATA FROM SID
CLR
SCLK
CLR
CS
CALL DLY8
RET
V4.0
27/49
2008/08/18