add.asm

本压缩包包含1602液晶显示

    ORG 00H

START:
      setb p3.1
      setb p3.7
      SETB P3.3
      SETB P3.4
      SETB P3.5
      CLR P3.1
      CLR P3.7
      SETB P3.1

WAIT:

    JB P3.0,ADC
     CALL DISP
     JMP WAIT
ADC:
    clr p3.7
    MOV A,p1
    ORL A,#00000011B
    MOV 60H,A

    SETB P3.7
    CALL L1
    MOV R1,#05

DISP1: CALL DISP
      DJNZ R1,DISP1
      JMP START
L1:   CLR C
      MOV R5,#00H
      MOV R4,#00H
      MOV R3,#08H
NEXT: RLC A
      MOV R2,A
      MOV A,R5
      ADDC A,R5
      DA A
      MOV R5,A
      MOV A,R4
      ADDC A,R4
      DA A
      MOV R4,A
      MOV A,R2
      DJNZ R3,NEXT
L2:   MOV A,R5
      ADD A,R5
      DA A
      MOV R5,A
      MOV 41H,R5
      MOV A,R4
      ADDC A,R4
      DA A
      MOV R4,A
      MOV 40H,R4
      RET
DISP: MOV A,41H
      ANL A,#0FH
      MOV DPTR,#TABLE
      MOVC A,@A+DPTR
      CLR P3.3
      MOV P1,A
      CALL DELAY
      SETB P3.3
      MOV A,R5
      ANL A,#0F0H
      SWAP A
      MOV DPTR,#TABLE
      MOVC A,@A+DPTR
      CLR P3.4
      MOV P1,A
      CALL DELAY
      SETB P3.4
      MOV A,40H
      ANL A,#0FH
      MOV DPTR,#TABLE
      MOVC A,@A+DPTR
      CLR P3.5
      MOV P1,A
      CALL DELAY
      SETB P3.5
      CLR A

      RET
TABLE:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,0FFH,90H
DELAY:MOV R6,#10
D1:   MOV R7,#248
      DJNZ R7,$
      DJNZ R6,D1
      RET
      END