ORG 100H
START: CALL LINE1
CALL LCD
MOV DPTR,#600H
MOV R5,#00H
MOV R7,#80H
WRFAST8: CALL DATALCD
INC R7
INC R5
CJNE R7,#94H,WRFAST8
CALL LINE2
MOV DPTR,#700H
MOV R5,#00H
MOV R7,#0C0H
WRFAST9: CALL DATALCD
INC R7
INC R5
CJNE R7,#0D0H,WRFAST9
SJMP START
زیر برنامه ها:
LCD: MOV A,#01H
CALL WRT
CALL DELAY
MOV A,#0EH
CALL WRT
CALL DELAY
RET
DATALCD: MOV A,R7
CALL WRT
CALL DELAY
MOV A,R5
MOVC A,@A+DPTR
CALL DATAWRT
CALL DELAY
RET
WRT: MOV P2,A
CLR P3.0
SETB P3.2
CLR P3.2
RET
DATAWRT: MOV P2,A
SETB P3.0
SETB P3.2
CLR P3.2
RET
DELAY: MOV R3,#08FH
MGH1: MOV R4,#0FFH
MGH2: DJNZ R4,MGH2
DJNZ R3,MGH1
RET
LINE1: MOV A,#38H
CALL WRT
CALL DELAY
MOV A,#0EH
CALL WRT
CALL DELAY
MOV A,#80H
CALL WRT
CALL DELAY
RET
LINE2: MOV A,#38H
CALL WRT
CALL DELAY
MOV A,#0EH
CALL WRT
CALL DELAY
MOV A,#0C0H
CALL WRT
CALL DELAY
RET
ORG 600H
DB "Hamid"
ORG 700H
DB "eca.ir"
END
دیدگاه