sz604.asm

一个本人编写的时钟程序

  LED1        BIT  p1.3  ;4位数码管选通引脚
  LED2        BIT  p1.4
  LED3        BIT  p1.6
  LED4        BIT  p1.7
  LED2DZ      BIT  P1.5  ;小数点

  LS164_AB    BIT  p3.0 ;74LS164数据线
  LS164_CLK   BIT  p3.1 ;74LS164时钟线

  KEY1      BIT  p3.5 ;按键1
  KEY2      BIT  p3.7 ;按键2

  DISPBUF   EQU  20H

  BEEP   BIT  p1.0

  MSCNT  EQU  30H


		ORG  0000h
		JMP  MAIN
	        ORG  000Bh
                JMP  TIMER0
                ORG  0100H


MAIN:

INIT:


	        MOV	 65H,#1
                MOV      64H,#2
                MOV      63H,#0
                MOV      62H,#0
                
                MOV  SP,#50H
CLRDISPBUF: ; 清显示缓冲区
                MOV  R1,#0FH
                MOV  R0,#DISPBUF+1
CLRDISPBUFLOOP:
                MOV  @R0,#0H
                INC  R0
                DJNZ R1,CLRDISPBUFLOOP

                CLR  LS164_AB
	        CLR  LS164_CLK

		MOV  TMOD,#01H ; 方式1

		MOV  TH0,#0BH  ;初值
		MOV  TL0,#0DCH

		SETB TR0
		SETB EA
		SETB ET0
		MOV  MSCNT,#16H


LOOP:
                 LCALL    KEYINPUT
                 LCALL    DISP0
                 JMP   LOOP


TIMER0:
	;	 PUSH  PSW
	;	 PUSH  ACC

		 MOV   TH0,#0BH
		 MOV   TL0,#0DCH
		 MOV   A,MSCNT
		 DEC   A
		 MOV   MSCNT,A
		 JNZ   RET1
                 MOV   MSCNT,#16
                 MOV   R0,#DISPBUF+2
                 LCALL DAAD
                 MOV   A,R2
                 XRL   A,#60H
                 JNZ   RET0
                 ACALL CLR0
RET0:
LCALL DISP0

RET1:         ;  POP   ACC
              ;  POP   PSW
	        RETI

DAAD: ;+1 十进制调整
                MOV	A,@R0
	        SWAP	A
                DEC	R0
	        ORL	A,@R0
	        INC     A
	        DA 	A
	        MOV	R2,A
	        ANL	A,#0Fh
	        MOV	@R0,A
	        MOV	A,R2
	        ANL	A,#0F0h
         	SWAP	A
                INC	R0
	        MOV	@R0,A
                RET
CLR0:
                CLR     A
                MOV     @R0,A
                DEC     R0
                MOV     @R0,A
                RET

DISP0:
              
                MOV    R0,#DISPBUF+1
	 	MOV    DPTR,#SAG_LED234
		MOV    A,@R0
	 	MOVC   A,@A+DPTR

                LCALL Send74LS164
                
                LCALL SELECT_LED4
                LCALL DELAY20MS

                MOV    R0,#DISPBUF+2
                MOV    DPTR,#SAG_LED234
		MOV    A,@R0
	 	MOVC   A,@A+DPTR

                LCALL Send74LS164
                
                LCALL SELECT_LED3
                LCALL DELAY20MS

		RET



; 74LS164芯片工作原理程序
Send74LS164:
		MOV	R1,#8
Send2LS164_Loop:
		RLC  A
	        MOV  LS164_AB,C
	        SETB LS164_CLK
	        CLR  LS164_CLK
	        DJNZ r1,Send2LS164_Loop
                RET
                
SELECT_LED1:;选通数码管1
CLR   LED1
SETB  LED2
SETB  LED3
SETB  LED4
RET

SELECT_LED2:;选通数码管1
CLR   LED2
SETB  LED1
SETB  LED3
SETB  LED4
RET

SELECT_LED3:;选通数码管1
CLR   LED3
SETB  LED1
SETB  LED2
SETB  LED4
RET

SELECT_LED4:;选通数码管1
CLR   LED4
SETB  LED1
SETB  LED2
SETB  LED3
RET

DELAY20MS:  ;延时20毫秒
MOV R7,#17
D51: MOV R6,#200
NOP
NOP
NOP
NOP
NOP
D52:
DJNZ R6,D52
DJNZ R7,D51
RET

KEYINPUT:
K1:  JB KEY1,K2
     LCALL DISP
    
K2:  JB KEY2,NOKEY
NOKEY:
RET 

DISP:  

	 	MOV    R0,#65H
	 	MOV    DPTR,#SAG_LED1
		MOV    A,@R0
	 	MOVC   A,@A+DPTR

                LCALL Send74LS164
                LCALL SELECT_LED1
                LCALL DELAY20MS


                MOV    R0,#64H
	 	MOV    DPTR,#SAG_LED234
		MOV    A,@R0
	 	MOVC   A,@A+DPTR

                LCALL Send74LS164
                ;LCALL SELECT_LED2
                LCALL DELAY20MS

                MOV    R0,#63H
	 	MOV    DPTR,#SAG_LED234
		MOV    A,@R0
	 	MOVC   A,@A+DPTR

                LCALL Send74LS164
                LCALL SELECT_LED3
                LCALL DELAY20MS


                MOV    R0,#62H
	 	MOV    DPTR,#SAG_LED234
		MOV    A,@R0
	 	MOVC   A,@A+DPTR

                LCALL Send74LS164
                LCALL SELECT_LED4
                LCALL DELAY20MS
                RET

SAG_LED1: ;LED1段码
DB  01010000b,11111001b,00110100b,10110000b,10011001b,10010010b,00010010b,11111000b,00010000b,10010000b,0ffh
SAG_LED234: ;LED234段码
DB  11000000b,11111001b,10100100b,10110000b,10011001b,10010010b,10000010b,11111000b,10000000b,10010000b,0ffh
  ;  0         1         2         3         4         5         6         7         8         9
TABLE_extra:
DB  11111110B,11111101B,11111011B,11110111B,11101111B,11011111B,10111111B,0h,0ffh,0ffh,0ffh
               END