X     EQU   30H
      Y     EQU   31H 
;******************************以上是接口定义
START:
        ORG  0000H
        MOV  SP,#60H
        LJMP    MAIN        
;*********************************主程序入口地址   
        ORG  0040H
MAIN: NOP
mov dptr,#0DFFFH      ;8255初始化 送控制口地址
MOV A,#80H
MOVX @DPTR,A
MOV DPTR,#0DFFFH      ;e=0      PC2置0
MOV A,#04H
MOVX @DPTR,A
;清屏
LCALL  CLEAR

MOV DPTR,#0DFFFH     ;cs2=0  PC5置0
MOV A,#08H
MOVX @DPTR,A
MOV A,#07H           ;cs1=1   PC4置1
MOVX @DPTR,A

MOV R1,#0C0H         ;START = 0 
LCALL WRI

MOV X,#0 ;x 
MOV Y,#8 ;y 
MOV DPTR,#HZI7      ;您
LCALL outhz

MOV X,#0
MOV Y,#40
MOV DPTR,#HZI8      ;好 
LCALL outhz
LJMP    MAIN 

;取数显示子程序
outhz:
MOV  R0,#2
AJMP  NZ1
SEC:INC  X
;设置Y地址
NZ1:MOV  A,Y
ADD  A,#040H
MOV  R1,A
LCALL  WRI
;设置页地址
MOV  A,X
ADD  A,#0B8H
MOV  R1,A
LCALL  WRI

;取数
MOV R5,#16
HZ1: MOV A,#00H 
MOVC A,@A+DPTR 
MOV R1,A 
LCALL WRD
LCALL DLY10 
INC DPTR
DJNZ R5,HZ1
DJNZ R0,SEC

;设置显示起始行
MOV R1,#0C0H ;START = 0 
LCALL WRI
;开显示
MOV  R1,#00111111B
LCALL  WRI
;延时显示
MOV  R0,#5
RX:LCALL  DLY50
DJNZ  R0,RX
RET

;清屏子程序
CLEAR:MOV  R0,#64
MOV  R2,#8
MOV  X,#0B8H
AJMP  NBZ1
NBZ2:INC  X
NBZ1:MOV  R1,X
LCALL  WRI
MOV  R1,#040H
LCALL  WRI
NBZ3:MOV  R1,#00H
LCALL  WRD
DJNZ  R0,NBZ3
DJNZ  R2,NBZ2
RET

WRI: ;写指令子程序 
MOV DPTR,#0DFFFH    ;e=0   PC2置0
MOV A,#04H
MOVX @DPTR,A
MOV A,#02H          ;r/w=0   PC1置0
MOVX @DPTR,A
MOV A,#00H          ;d/i=0   PC0置0
MOVX @DPTR,A
MOV DPTR,#0DFFFH   ;mov p0,a   PA数据口
MOV A,#80H
MOVX @DPTR,A
mov dptr,#0dffch
MOV A,R1
movx @dptr,A
MOV DPTR,#0DFFFH   ;e=1   PC2置1
MOV A,#05H
MOVX @DPTR,A
LCALL  DLY10
MOV A,#04H        ;e=0  PC2置0
MOVX @DPTR,A
RET

WRD: ;写数据子程序
MOV DPTR,#0DFFFH
MOV A,#04H
MOVX @DPTR,A
MOV A,#02H        ;r/w=0
MOVX @DPTR,A
MOV A,#01H        ;d/i=1
MOVX @DPTR,A
MOV DPTR,#0DFFFH   ;mov p0,a
MOV A,#80H
MOVX @DPTR,A
mov dptr,#0dffch
MOV A,R1
movx @dptr,A
MOV DPTR,#0DFFFH   ;e=1
MOV A,#05H
MOVX @DPTR,A
LCALL  DLY10
MOV A,#04H        ;e=0
MOVX @DPTR,A
RET

;延时10US
DLY10:MOV R3,#5
DJNZ  R3,$
RET
;延时1S
DLY50:MOV R3,#01H
DL111:MOV R4,#0AFH
DL222:MOV R6,#0FFH
DL333:DJNZ R6,DL333
DJNZ R4,DL222
DJNZ R3,DL111
RET

;延时2S
DLY100:MOV R3,#02H
DL11:MOV R4,#0FFH
DL22:MOV R6,#0FFH
DL33:DJNZ R6,DL33
DJNZ R4,DL22
DJNZ R3,DL11
RET

ORG 0340H 

HZI7: ;您
DB 40H, 20H, 10H,0fcH, 23H, 10H, 8cH, 67H, 04H,0f4H, 04H, 44H, 94H, 8cH, 00H, 00H
DB 40H, 30H, 00H, 77H, 80H, 81H, 88H, 92H,0b4H, 83H, 80H,0e0H, 00H, 11H, 60H, 00H
HZI8: ;好
DB 10H, 10H,0f0H, 1fH, 10H,0f0H, 80H, 82H, 82H, 82H,0e2H, 92H, 8aH,0c6H, 80H, 00H
DB 40H, 22H, 15H, 08H, 14H, 63H, 00H, 00H, 40H, 80H, 7fH, 00H, 00H, 00H, 00H, 00H

END