TABRDL DATA
CALL TRANSFER
CALL DELAY
INC TBLP
SDZ COUNTER
JMP SECOND_LINE
CLR LCD_CTRL.RS
RET
LCD_DISPLAY ENDP
;------------------------------------------------------------
TRANSFER PROC
SWAP DATA
MOV A,DATA
MOV PC,A
CALL WRITE
SWAP DATA
MOV A,DATA
MOV PC,A
CALL WRITE
RET
TRANSFER ENDP
;------------------------------------------------------------
WRITE PROC
SET LCD_CTRL.E
CLR LCD_CTRL.E
MOV A,0FFH
MOV DELAY_COUNTER_1,A
WRITE_WAIT:
SDZ DELAY_COUNTER_1
JMP WRITE_WAIT
RET
WRITE ENDP
;------------------------------------------------------------
DELAY PROC
MOV A,0A0H
MOV DELAY_COUNTER_1,A
MOV DELAY_COUNTER_2,A
DELAY_WAIT:
SDZ DELAY_COUNTER_2
JMP DELAY_WAIT
SDZ DELAY_COUNTER_1
JMP DELAY_WAIT
RET
DELAY ENDP
;------------------------------------------------------------
DELAY_LONG PROC
MOV A,003H
MOV DELAY_COUNTER_1,A
MOV DELAY_COUNTER_2,A
MOV DELAY_COUNTER_3,A
DELAY_LONG_WAIT:
SDZ DELAY_COUNTER_3
JMP DELAY_LONG_WAIT
SDZ DELAY_COUNTER_2
JMP DELAY_LONG_WAIT
SDZ DELAY_COUNTER_1
JMP DELAY_LONG_WAIT
RET
DELAY_LONG ENDP
;------------------------------------------------------------
ORG 0F00H
LCD_MESSAGE_1: ;[LCD 4 BITS DATA ]
;[TRANSFER TEST OK]
DC 4CH,43H,44H,20H,34H,20H,42H,49H
DC 54H,53H,20H,44H,41H,54H,41H,20H
DC 54H,52H,41H,4EH,53H,46H,45H,52H
上一页 [1] [2] [3] [4] [5] 下一页
本文关键字:程序 合泰单片机,单片机-工控设备 - 合泰单片机