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: ;写指令子程序  ......

>>返回讨论的主题