ch11_intr5.asm

51单片机基础篇 对于有一定基础的人看看 包含书中所以的源代码

     ;PROGRAM NAME:INTR5.ASM
     ;TEST TIMER0 INTERRUPT(MODE 1)
     ;
     COUNT  	EQU  	9217  		;10ms FOR XTAL=11.0592MHz
     ;
     DIGIT1 	REG   	P1.4
     DIGIT2 	REG   	P1.5
     LED    	REG   	P3.7
     ;
     DISP  	EQU   	30H
     SEC   	EQU   	31H
     ;
           	ORG   	0000H
           	LJMP  	RESET
           	ORG   	0003H     	;INT0 INTERRUPT
           	LJMP  	INT_ET0
            	ORG   	000BH     	;TIMER0 INTERRUPT
            	LJMP  	INT_TIMER0
             	ORG     0013H       	;INT1 INTERRUPT
             	RETI
             	ORG     001BH       	;TIMER1 INTERRUPT
             	RETI
             	ORG     0023H       	;SERIAL INTERRUPT
             	RETI
     ;
     RESET  	MOV     R0,#00H
             	DJNZ    R0,$    	;WAIT
             	MOV     DISP,#00H  	;DISPLAY '0''0'
             	MOV     SEC,#00H
             	MOV     SP,#40H
     ;
             	MOV     A,TMOD
             	ANL     A,#11110000B
             	CLR     ACC.3   	;GATE=0
             	CLR     ACC.2   	;C/T=0
             	CLR     ACC.1   	;TIMER0 M1=0
             	SETB    ACC.0   	;TIMER0 M0=1
             	MOV     TMOD,A
             	MOV     TH0,#(65536-COUNT)/256
             	MOV     TL0,#(65536-COUNT).MOD.256
             	CLR     TF0     	;CLEAR TF0
             	SETB    TR0
     ;
     ;TIMER0 SETTING
             	SETB    PT0
             	SETB    ET0     	;ENABLE TIMER0 INTURRUPT
     ;INT0  	SETTING
             	CLR     IT0     	;LOW LEVEL TRIGGER ON INT0
             	SETB    EX0     	;ENABLE INT0 INTERRUPT
     ;       	SETB    PX0
     ;
             	SETB    EA      	;ENABLE SYSTEM INTERRUPT
     ;
     LOOP   	SJMP    LOOP    	;WAITTING
     ;
     INT_ET0 	PUSH    A
             	MOV     A,DISP
             	ADD     A,#01H
             	DA      A
             	MOV     DISP,A
             	POP     A
             	RETI
     ;
     ;TF0=1
     INT_TIMER0
             	CLR     TF0     	;CLEAR TF0
             	MOV     TH0,#(65536-COUNT)/256
             	MOV     TL0,#(65536-COUNT).MOD.256
             	INC     SEC      	;SEC=SEC+1
             	MOV     A,SEC        	;CHECK SEC>=100?
             	CJNE    A,#100,$CHK1	;A-100
     $CHK1  	JC      $NEXT
             	MOV     SEC,#00H     	;SEC=0
     ;
     $NEXT  	MOV     A,SEC
             	CJNE    A,#40,$CHK2
     $CHK2  	JNC     OVER
             	SETB    LED          	;LED ON
             	SJMP    DISPLAY
     OVER   	CLR     LED
     ;
     DISPLAY 	MOV     A,DISP
             	ANL     A,#00001111B	;GET LOW NIBBLES
             	SETB    ACC.5        	;BIT5,BIT4=10
             	MOV     P1,A
             	ACALL   DELAY
     ;ADD EXTRA PART
             	CLR     P1.4
             	CLR     P1.5
             	ACALL   DELAY
     ;
             	MOV     A,DISP
             	SWAP    A
             	ANL     A,#00001111B
             	SETB    ACC.4       	;BIT5,BIT4=01
             	MOV     P1,A
             	ACALL   DELAY
             	CLR     P1.4
             	CLR     P1.5
             	RETI
     ;
     DELAY  	MOV     R0,#80H
             	DJNZ    R0,$
             	RET
     ;