RS EQU P3.3
RW EQU P3.1
E EQU P3.0
ORG 0000H
LJMP MAIN
ORG 0200H
mesg_num: DB20H,21H,22H,23H,24H,25H,26H,27H,28H,29H,2AH,2BH,2CH,2DH,2EH,2FH,30H,31H,32H,33H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char: DB34H,35H,36H,37H,38H,39H,3AH,3BH,3CH,3DH,3EH,3FH,40H,41H,42H,43H,44H,45H,46H,47H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_num1: DB48H,49H,4AH,4BH,4CH,4DH,4EH,4FH,50H,51H,52H,53H,54H,55H,56H,57H,58H,59H,5AH,5BH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char1: DB5CH,5DH,5EH,5FH,60H,61H,62H,63H,64H,65H,66H,67H,68H,69H,6AH,6BH,6CH,6DH,6EH,6FH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_num2: DB70H,71H,72H,73H,74H,75H,76H,77H,78H,79H,7AH,7BH,7CH,7DH,7EH,7FH,80H,81H,81H,82H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char2: DB83H,84H,85H,86H,87H,88H,89H,8AH,8BH,8CH,8DH,8EH,8FH,90H,91H,92H,93H,94H,95H,96H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_num3: DB 97H,98H,99H,9AH,9BH,9CH,9DH,9EH,9FH,0A0H,0A1H,0A2H,0A3H,0A4H,0A5H,0A6H,0A7H,0A8H,0A9H,0AAH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char3: DB0ABH,0ACH,0ADH,0AEH,0AFH,0B0H,0B1H,0B2H,0B3H,0B4H,0B5H,0B6H,0B7H,0B8H,0B9H,0BAH,0BBH,0BCH,0BDH,0BEH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_num4: DB0BFH,0C0H,0C1H,0C2H,0C3H,0C4H,0C5H,0C6H,0C7H,0C8H,0C9H,0CAH,0CBH,0CCH,0CDH,0CEH,0CFH,0D0H,0D1H,0D2H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char4: DB0D3H,0D4H,0D5H,0D6H,0D7H,0D8H,0D9H,0DAH,0DBH,0DCH,0DDH,0DEH,0DFH,0E0H,0E1H,0E2H,0E3H,0E4H,0E5H,0E6H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_num5: DB0E7H,0E8H,0E9H,0EAH,0EBH,0ECH,0EDH,0EEH,0EFH,0F0H,0F1H,0F2H,0F3H,0F4H,0F5H,0F6H,0F7H,0F8H,0F9H,0FAH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char5: DB0FBH,0FCH,0FDH,0FEH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_num6: DB0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
mesg_char6: DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
DB20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H,20H
CGRpatn: DB 1FH,1FH,1FH,1FH,1FH,1FH,1FH,00H
DB 01H,02H,04H,08H,10H,08H,04H,00H
DB 15H,15H,15H,15H,15H,15H,15H,00H
DB 0AH,0AH,0AH,0AH,0AH,0AH,0AH,00H
ORG 1400H
MAIN: MOV SP, #30H
ACALL PonInit ; initialize subroutine
MOV DPTR, #CGRpatn ; set address for pattern
MOV A, #04H ; No. of character to be initialise
ACALL CGRinit ; Write pattern into CGRAM
START: MOV DPTR, #mesg_num
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_num1
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char1
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_num2
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char2
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_num3
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char3
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_num4
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char4
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_num5
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char5
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_num6
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
MOV DPTR, #mesg_char6
ACALL mesg_out
MOV R4, #0A0H
ACALL delayXms
LJMP start
;***********************************************************************
; routine : mesg_out
;
; Description :
;
;***********************************************************************
mesg_out: MOV R4,#20
MOV A,#80H
ACALL WIR8
m_out1: CLR A
MOVC A, @A+DPTR
ACALL WDR8
INC DPTR联系客服