时钟.asm

关于ADUC841(51内核)的各种实验程序,有串口,ADC,DAC,PWM,的应用及基于ADUC841设计的万用表源程序

$MOD841
      SP0    EQU   50H
      CLK81  EQU   P3.5
      DAT81  EQU   P3.3
      SHUZHI EQU   30H
      KEY    EQU   P3.2
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      ORG    0000H
      LJMP   MAIN
      ORG    0053H
      LJMP   SERVE
MAIN: LJMP  INI841
PP:   LCALL  INI8281
      SETB   EA
      MOV    IEIP2,#04H
      MOV    TIMECON,#53H
      MOV    INTVAL,#01H
HERE: LJMP    $
SERVE:LCALL  XIANSHI
      RETI
INI841:MOV   R0,#0FH
       CLR   A
QING: MOV   @R0,A
      DJNZ  R0,QING
      MOV   SP,#SP0
      LCALL  YS
      LJMP   PP
INI8281:SETB   CLK81
        SETB   DAT81
        MOV    A,#12H
        LCALL  WTO81
        MOV    A,#80H
        LCALL  WTO81
        RET
XIANSHI:MOV	A,#02H
	LCALL	WTO81
	MOV	A,#0BFH
	LCALL	WTO81
	MOV	A,#05H
	LCALL	WTO81
	MOV	A,#0BFH
	LCALL	WTO81
 ;---------------------------------------------
        MOV    A,SEC
        LCALL  CHULI
        MOV    R0,#60H
        MOV    R1,#70H
        LCALL  ZHU_XIANSHI
        MOV    A,MIN
        LCALL  CHULI
        MOV    R0,#30H
        MOV    R1,#40H
        LCALL  ZHU_XIANSHI
        MOV    A,HOUR
        LCALL  CHULI
        MOV    R0,#00H
        MOV    R1,#10H
        LCALL  ZHU_XIANSHI
        RET
ZHU_XIANSHI:MOV  A,#14H
            LCALL  WTO81
            MOV  A,SHUZHI
            ANL  A,#0F0H
            SWAP  A
            ORL   A,R0
            LCALL  WTO81
            MOV   A,#14H
            LCALL  WTO81
            MOV   A,SHUZHI
            ANL   A,#0FH
            ORL   A,R1
            LCALL  WTO81
            RET
CHULI:MOV   B,#10
      DIV   AB
      SWAP  A
      ADD   A,B
      MOV   SHUZHI,A
      RET
WTO81:	MOV	R6,#08H
WAT:	CLR	CLK81
	LCALL	DELAY
	SETB	CLK81
	JB	DAT81,WAT
	CLR	CLK81
	LCALL	DELAY
	SETB	CLK81
	JNB	DAT81,$
WTB81:	RLC	A
	MOV	DAT81,C
        CLR	CLK81
	LCALL	DELAY
	SETB	CLK81
	LCALL	DELAY
	LCALL	DELAY
	DJNZ	R6,WTB81
	SETB	DAT81
        RET
DELAY:  NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        RET
YS:	MOV	R5,#00H
	MOV	R4,#50H
YS1:	DJNZ	R5,$
	DJNZ	R4,YS1
	RET
	END