3.asm

单片机程序

DIS0 EQU 30H
DIS1 EQU 31H
DIS2 EQU 32H
DIS3 EQU 33H
LED EQU 34H
TM1 EQU 35H
TM2 EQU 36H
F EQU  37H

ORG 0000H
SJMP MAIN
ORG 0013H
SJMP PP
ORG 0030H

MAIN: SETB EA
      SETB EX1
      SETB IT1
      CLR F0
      MOV F,#00H
      MOV SP,#65H
      MOV DPTR,#0FD00H
      MOV A,#03
      MOVX @DPTR,A
      MOV LED,#7FH
      MOV DIS0,#1
      MOV DIS1,#1
      MOV DIS2,#0
      MOV DIS3,#0
M1:   ACALL DISP 
      ACALL DELAY
      ;MOV DIS0,#10
      ;MOV DIS1,#20
      ;MOV DIS2,#30
      ;MOV DIS3,#40
      SJMP M1
DISP: MOV DPTR,#0FD02H
      MOV A,LED
      RL A
      MOV R1,A
      JB ACC.4,D1
      MOV A, #0FEH
      MOV R0,#DIS0
      SJMP D1
      
;PP:INC F
 ;  CLR C
 ;;  MOV A,F
  ;; SUBB A,#04H
  ; JZ XZ
  ; RETI
PP:;MOV F,#00H
   
   MOV A,R1
   CLR C
   SUBB A,#0FEH 
   JZ PRO1
  
   MOV A,R1
   CLR C
   SUBB A,#0FDH
   JZ PRO2
   
   
   MOV A,R1
   CLR C
   SUBB A,#0FBH
   JZ PRO3
   
   MOV A,R1
   CLR C
   SUBB A,#0F7H
   JZ PRO4
   ;RETI
   
 
PRO1: SETB F0
      RETI
;54555555555555555555555555555555555555555
;PUSH A
   ;INC F
   
  ; MOV A,F
  ; CLR CY
  ; SUBB A,#04H
  ; JZ XZ
 ;  RETI
PRO2:JB F0,PRO22
    RETI
PRO22:CLR C
    MOV A,DIS1
    SUBB A,#09H
    JZ PRO23
    INC DIS1
    RETI
PRO23:CLR C
    MOV A,DIS0
    SUBB A,#09H
    JZ PRO24
    INC DIS0
    MOV DIS1,#00H
    RETI
PRO24:RETI
  ;DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
PRO3:
    JB F0,PRO32
    RETI

PRO32:CLR C
    MOV A,DIS1
    JZ PRO33
    DEC DIS1
    RETI
PRO33:
    CLR C
    MOV A,DIS0
    JZ PRO34
    MOV DIS1,#09H
    DEC DIS0
    RETI
PRO34:RETI
PRO4:CLR F0
     RETI
   

      
      
      
      
      
      
D1:   MOV LED,A
      MOVX @DPTR,A
      MOV A,@R0
      
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      MOV DPTR,#0FD01H
      MOVX @DPTR,A
      INC R0
      RET
DELAY:MOV TM2,#5
DEL2: MOV TM1,#225
DEL1:DJNZ TM1,DEL1
     DJNZ TM2,DEL2
     
     RET
TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH
    DB 07H,7FH,6FH,77H,7CH,39H,5EH
    END