汇编电子钟.asm

我自己做的电子钟

ORG  0000H
AJMP MAIN
ORG  000BH
LJMP TIMER0
MAIN: MOV R2,#0
      MOV R5,#0
      MOV R6,#0
      MOV R7,#0
      MOV IE,#82H
      MOV  TMOD,#01H
      MOV  TH0,#3CH
      MOV  TL0,#0B0H
      SETB TR0
HOU:  LCALL DELAY2
      JNB  P1.4,HOU2
      AJMP  KEY
MIN:  LCALL DELAY2
      JNB  P1.5,MIN2
      AJMP  KEY
SEC:  LCALL DELAY2
      JNB  P1.6,SEC2
      AJMP  KEY
HOU2: JB   P1.4,KEY
      INC  R7
      AJMP  KEY
MIN2: JB   P1.5,KEY
      INC  R6
      AJMP  KEY
SEC2: JB   P1.6,KEY
      INC  R5
      AJMP  KEY

KEY:  JNB  P1.4,HOU
      JNB  P1.5,MIN
      JNB  P1.6,SEC
DISP: MOV  P2,#10111111B
      MOV  DPTR,#TAB
      MOV  A,R5
      MOV  B,#10
      DIV  AB
      MOVC A,@A+DPTR
      MOV  P0,A
      LCALL DELAY
      MOV  P0,#0FFH
      MOV  P2,#01111111B 
      MOV  DPTR,#TAB
      MOV  A,B
      MOVC A,@A+DPTR
      MOV  P0,A
      LCALL DELAY
      MOV  P0,#0FFH
      
      MOV  P2,#11011111B
      MOV  P0,#0BFH
      LCALL DELAY
      MOV  P0,#0FFH
      
      MOV  P2,#11110111B
      MOV  DPTR,#TAB
      MOV  A,R6
      MOV  B,#10
      DIV  AB
      MOVC A,@A+DPTR
      MOV  P0,A
      LCALL DELAY
      MOV  P0,#0FFH
      MOV  P2,#11101111B
      MOV  A,B
      MOVC A,@A+DPTR
      MOV  P0,A
      LCALL DELAY
      MOV  P0,#0FFH
      
      MOV  P2,#11111011B
      MOV  P0,#0BFH
      LCALL DELAY
      MOV  P0,#0FFH
     
      MOV  P2,#11111110B
      MOV  A,R7 
      MOV  B,#10
      DIV  AB
      MOV  DPTR,#TAB
      MOVC A,@A+DPTR
      MOV  P0,A
      LCALL DELAY
      MOV  P0,#0FFH
      MOV  P2,#11111101B
      MOV  DPTR,#TAB
      MOV  A,B
      MOVC A,@A+DPTR
      MOV  P0,A
      LCALL DELAY
      MOV  P0,#0FFH
      LJMP KEY

TIMER0:
      MOV IE,#82H
      MOV  TMOD,#01H
      MOV  TH0,#3CH
      MOV  TL0,#0B0H
      SETB TR0
      INC  R4
      CJNE R4,#20,BACK
      MOV  R4,#0
      INC  R5
      CJNE R5,#60,BACK 
      MOV  R5,#0
      INC  R6  
      CJNE R6,#60,BACK
      MOV  R6,#0
      INC  R7  
      CJNE R7,#13,BACK
      MOV  R7,#1
BACK: RETI


DELAY:MOV  R2,40
      DJNZ R2,$
      RET
DELAY2:
      MOV R3,200
      MOV R4,20
D1:   DJNZ R4,$
      DJNZ R3,D1
      RET
TAB:  DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END