yxd.asm

lcd display

       ;RET TO VCC,TO P1.0-P1.7
       ;A0 T0 P3.3
       ;E1 TO P3.0
       ;E2 TO P3.4
       ;WR TO P3.1
FILL   EQU  20H
LAB    EQU  21H
TEMP   EQU  22H
       ORG  0000H
       JMP  START
       ORG  0003H
       JMP  INTER0

       ORG  0040H
INTER0:
       CALL  MS10
       JB    P3.2,INTEND
       MOV   TEMP,A
       CPL   A
       MOV   LAB,A
       MOV   A,TEMP
IN_T:  
       JNB   P3.2,IN_T
       CALL  MS10
       JNB   P3.2,IN_T
INTEND:
       RET

RESET:
       MOV    A,#0E2H   ;RESET
       LCALL  OUTI1
       LCALL  OUTI2
    
       MOV    A,#0AFH   ;DISPLAY ON
       LCALL  OUTI1
       LCALL  OUTI2
       MOV    A,#0c0H   ;START LINE=0
       LCALL  OUTI1
       LCALL  OUTI2
       MOV    A,#0A0H   ;ADC=NOMAL
       LCALL  OUTI1
       LCALL  OUTI2
       MOV    A,#0A9H   ;DUTY=1/32
       LCALL  OUTI1
       LCALL  OUTI2
       RET
START:
       SETB   P3.2
       SETB   EA
       SETB   IT0
       MOV    LAB,#0H

DISPLAY:
       CALL   RESET
       LCALL  MS40      ;DELAY 40MS
;**************************************
       LCALL  WHOLEG
       LCALL  DELAY
       LCALL  MS40
       CALL   RESET
       CALL   KUAN
       CALL   DELAY
       MOV    FILL,#0AAH
       CALL   LINE
       CALL   DELAY
       MOV    FILL,#055H
       CALL   LINE
       ;CALL  CHANG
       CALL  DELAY
       MOV    FILL,#0FFH
       CALL   CLEAR 
       CALL   DELAY
       MOV    FILL,#00H
       CALL   CLEAR
       CALL   DELAY
       ;CALL  WHOLEG
       ;CALL  DELAY
       CALL   DISPALY0
       CALL   DELAY
       LJMP   DISPLAY
;***********************************
CLEAR:
       CLR    40H
       MOV    R0,#4      ;R3 PAGE NUMBER
       MOV    R1,#0B8H   ;R1 PAGE
  
CLH:   JB     40H,CLH2
CLH1:  MOV    A,R1       ;PAGE
       LCALL  OUTI1
       MOV    A,#00H     ;Y ADDRESS=0
       LCALL  OUTI1
       MOV    R2,#61
CLH11:
       MOV    A,FILL
       CALL   OUTD1
       DJNZ   R2,CLH11

       SETB   40H
       LJMP   CLH
CLH2:  MOV    A,R1
       LCALL  OUTI2
       MOV    A,#00H
       LCALL  OUTI2
       MOV    R2,#61
CLH22:
       MOV    A,FILL
       LCALL  OUTD2
       DJNZ   R2,CLH22
       CLR    40H
       INC    R1 
       DJNZ   R0,CLH
       RET

DISPALY0:
       CLR    40H
       MOV    R0,#4     ;R3 PAGE NUMBER
       MOV    R1,#0B8H  ;R1 PAGE

OLH:   JB     40H,OLH2
OLH1:  MOV    A,R1       ;PAGE
       LCALL  OUTI1
       MOV    A,#00H     ;Y ADDRESS=0
       LCALL  OUTI1
       MOV    R2,#00H
       CALL   OUTD1
       MOV    R2,#10
OLH11:
       MOV    A,#7CH
       CALL   OUTD1
       MOV    A,#82H
       CALL   OUTD1
       MOV    A,#82H
       CALL   OUTD1
       MOV    A,#82H
       CALL   OUTD1
       MOV    A,#7CH
       CALL   OUTD1
       MOV    A,#0H
       CALL   OUTD1
       
       DJNZ   R2,OLH11
       SETB   40H
       LJMP   OLH
OLH2:  MOV    A,R1 
       LCALL  OUTI2
       MOV    A,#00H
       LCALL  OUTI2
       MOV    A,#00H
       CALL   OUTD2
       MOV    R2,#10
OLH22:
       MOV    A,#7CH
       CALL   OUTD2
       MOV    A,#82H
       CALL   OUTD2
       MOV    A,#82H
       CALL   OUTD2
       MOV    A,#82H
       CALL   OUTD2
       MOV    A,#7CH
       CALL   OUTD2    
       MOV    A,#0H
       CALL   OUTD2
       DJNZ   R2,OLH22
       CLR    40H
       INC    R1
       DJNZ   R0,OLH
       RET
CHANG:
       CLR    40H
       MOV    R0,#4       ;R3 PAGE NUMBER
       MOV    R1,#0B8H    ;R1 PAGE

CH:    JB     40H,CH2
CH1:   MOV    A,R1        ;PAGE    
       LCALL  OUTI1
       MOV    A,#00H      ;Y ADDRESS=0
       LCALL  OUTI1
       MOV    A,#0E0H
       LCALL  OUTI1
       MOV    R2,#61
CH11:
       CALL   IND1
       CALL   IND1
       CPL    A
       CALL   OUTD1
       DJNZ   R2,CH11
       MOV    A,#0EEH
       CALL   OUTI1
       CALL   DELAY1MS
     
       SETB   40H
       LJMP   CH
CH2:   MOV    A,R1
       LCALL  OUTI2
       MOV    A,#00H
       LCALL  OUTI2

       MOV    A,#0E0H
       CALL   OUTI2
       MOV    R2,#61
CH22:
       CALL   IND2
       CALL   IND2
       CPL    A
       LCALL  OUTD2
       DJNZ   R2,CH22
       MOV    A,#0EEH
       CALL   OUTI2

       CLR    40H
       INC    R1
       DJNZ   R0,CH
       RET
LINE:
       CLR    40H
       MOV    R0,#4        ;R3 PAGE NUMBER
       MOV    R1,#0B8H     ;R1 PAGE
       MOV    A,FILL
       MOV    B,A

LH:    JB     40H,LH2
LH1:   MOV    A,R1         ;PAGE
       LCALL  OUTI1
       MOV    A,#00H       ;Y ADDRESS=0
       LCALL  OUTI1
       MOV    R2,#61
LH11:
       MOV    A,B
       CALL   OUTD1
       RL     A
       MOV    B,A
       DJNZ   R2,LH11
 
       SETB   40H
       LJMP   LH
LH2:   MOV    A,R1
       LCALL  OUTI2
       MOV    A,#00H
       LCALL  OUTI2
       MOV    R2,#61
LH22:
       MOV    A,B
       LCALL  OUTD2
       RL     A
       MOV    B,A

       DJNZ   R2,LH22
       MOV    A,B
       RR     A
       RR     A
       MOV    B,A
       CLR    40H
       INC    R1
       DJNZ   R0,LH
       RET
WHOLEG:
       MOV    DPTR,#TABLE
       MOV    R3,#00H
       MOV    A,#0C0H
       LCALL  OUTI1
W1:    
       CLR    40H
       MOV    R0,#4        ;R0 PAGE NUMBER
       MOV    R1,#0B8H     ;R1 PAGE
GH:    JB     40H,GH2
GH1:   MOV    A,R1         ;PAGE
       LCALL  OUTI1
       MOV    A,#00H       ;Y ADDRESS=0
       LCALL  OUTI1 
       MOV    R2,#61
GH11: 
       CLR    A
       MOVC   A,@A+DPTR
       LCALL  OUTD1
       INC    DPTR
       DJNZ   R2,GH11
       SETB   40H
       LJMP   GH
GH2:  
       MOV    A,R1
       LCALL  OUTI2       ;PAGE
       MOV    A,#00H
       LCALL  OUTI2       ;Y ADDRESS=0   
       MOV    R2,#61
GH22:  
       CLR    A 
       MOVC   A,@A+DPTR
       LCALL  OUTD2
       INC    DPTR
       DJNZ   R2,GH22
       CLR    40H
       INC    R1
       DJNZ   R0,GH       ;显示完一屏
       CALL   DELAY
       ;CALL  DELAY
       INC    R3
W1s:   
       CLR    40H
       MOV    R0,#4       ;R0 PAGE NUMBER
       MOV    R1,#0B8H    ;R1 PAGE
GHs:   JB     40H,GH2s
GH1s:  MOV    A,R1        ;PAGE
       LCALL  OUTI1
       MOV    A,#00H       ;Y ADDRESS=0   
       LCALL  OUTI1      
       MOV    R2,#61
GH11s:
       CLR    A
       MOVC   A,@A+DPTR
       LCALL  ROUND
       LCALL  OUTD1
       INC    DPTR
       DJNZ   R2,GH11s
       SETB   40H
       LJMP   GHs
GH2s:
       MOV    A,R1
       LCALL  OUTI2         ;PAGE
       MOV    A,#00H       
       LCALL  OUTI2         ;Y ADDRESS=0   
       MOV    R2,#61
GH22s:
       CLR    A
       MOVC   A,@A+DPTR
       LCALL  ROUND
       LCALL  OUTD2
       INC    DPTR
       DJNZ   R2,GH22s
       CLR    40H
       INC    R1
       DJNZ   R0,GHS        ;显示完一屏
       ;CALL  DELAY
       ;CALL  DELAY
       INC    R3
       CJNE   R3,#02H,W1s
       ;CALL  DELAY
       RET
;****************************
KUAN: 
       MOV    DPTR,#TABLEKUAN 
       CLR    40H 
       MOV    R0,#4               ;R3 PAGE NUMBER 
       MOV    R1,#0B8H            ;R1 PAGE 
KH:    JB     40H ,KH2 
KH1:   MOV    A,R1                ;PAGE 
       LCALL  OUTI1 
       MOV    A,#00H              ;Y ADDRESS=0 
       LCALL  OUTI1 
       MOV    R2,#61 

KH11:  CLR    A 
       MOVC   A,@A+DPTR 
       LCALL  OUTD1 
       INC    DPTR