adshiyan.asm

本压缩包包含1602液晶显示

    ORG 00H
    MOV 40H,#00H
    MOV 41H,#00H
START:setb p3.1
      setb p3.7
      NOP
      CLR P3.1
      CLR P3.7


WAIT:

    JB P3.0,ADC
    CALL DISP 
     JMP WAIT
ADC:CLR P3.7
    CLR P3.1
    SETB P3.3
    SETB P3.4
    SETB P3.5
    MOV A,p1
    ORL A,#00000011B
    MOV 60H,A
    SETB P3.1
    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,86H,0CBH,0CFH,0E6H,0EDH,0FDH,87H,0FFH,0EFH      
DELAY:MOV R6,#10
D1:   MOV R7,#248
      DJNZ R7,$
      DJNZ R6,D1
      RET
      END