
ST7920
C2.0c
27/47
2001/10/18
8051
串列資料傳輸示範(fàn)程式
;--------------------------------------------------------------
; 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