Dutor

list P = 18F452
#include P18F452.INC
 
MOVLF macro R, K
    movlw 	K
    movwf 	R
endm
 
    ; 定义了几个寄存器
    R1  	EQU 20H
    R2  	EQU 21H
    R3  	EQU 22H
    R4 		EQU 23H
 
    ORG 	0008H  ;中断向量入口
    GOTO 	SELECT ;跳转到中段服务选择子程序
 
	org		0000h  ;PIC上电时从0000h单元开始执行
	goto	main  ;跳转到主程序
 
	org		0030h  ;主程序定位
main
	clrf	TRISD  ;设定D口方向为输出
    CLRF	TRISC ;设定C口方向为输出
    CLRF	PORTC ;C口置零
    BSF 	TRISB, INT0 ; 设定int0中断源对应引脚为输入
    CLRF 	PORTD
    CLRF	INTCON ;先将中断控制寄存器清零
    BSF 	INTCON, GIE ; 允许全局中断
    BSF  	INTCON, TMR0IE ; 允许TMR0定时器中断
    BSF		INTCON, INT0IE ; 允许int0中断
    MOVLF  	T0CON, 07H ; 设定定时器0的计数模式
 
    ; 给定时器装入初值，定时器为特殊的双缓冲结构，
    ; 注意初值的装入顺序为先高后低
    MOVLF 	TMR0H, 0C2H
    MOVLF  	TMR0L, 0F7H
    BSF  	T0CON, TMR0ON ; 打开定时器开始计数
 
LOOP ; PIC汇编的标号不需要冒号':'
   	;SLEEP  ; 进入Sleep模式
   	GOTO LOOP ; 转啊转
 
 
SELECT ; 中断服务选择程序,这里的测试顺序决定了中断优先级
   	BTFSC   INTCON, TMR0IF ; 测试定时器溢出位，为0则跳过一条指令
   	GOTO   	TMR0_ISR ; TMR0IF为1时，跳转到定时器服务程序
   	;NOP
   	BTFSS   INTCON, INT0IF ; 测试外部中断int0的标志位，为0则跳一步
   	RETFIE ; 中断返回，会涉及到出栈操作
   	GOTO   	INT0_ISR ; 跳转到int0服务程序
 
TMR0_ISR ; 定时器服务程序
   	BTFSS   INTCON, TMR0IF  ; 重新测试溢出位，防止干扰信号触发中断
   	RETFIE
   	BCF  	INTCON, TMR0IF  ; 清除溢出位
   	;BSF  	INTCON, GIE ; 
   	INCF   	PORTD, F ; D口加1
   	MOVLF 	TMR0H, 0C2H ; 计数器初值进行重装
   	MOVLF  	TMR0L, 0F7H
 
   	RETFIE ; 中断返回
 
 
INT0_ISR ; 外部中断int0服务程序
   	;CALL 	delay
   	BTFSS   INTCON, INT0IF  ; 重新测试溢出位，防止干扰信号触发中断
   	RETFIE
   	BCF   	INTCON, INT0IF ; 清除溢出位
   	; 下面的几行通过更改定时器的分频比来改变定时间隔，每次减半
   	MOVFF  	T0CON, R1
   	DECF   	R1, W
   	ANDWF   07H
   	MOVWF   T0CON
   	; D口加1
   	INCF   	PORTD
   	;MOVLF  R1, 0005H
   	;MOVF 	PORTD, W
   	;SUBWF 	R1, W
   	;BNZ 	NEXT
   	;BSF 	PORTC, 0002H
   	;CALL 	DELAY
   	;BCF 	PORTC, 0002H
NEXT
 
   	RETFIE ; 中断返回
 
SPEAKER
  	BSF  PORTC, 0002H
  	RETURN
DELAY  ; 软件延时
	movlw	0xFF
	movwf 	R1
L3
	movlw	0x1f
	movwf	R2
L2
	movlw	0x1f
	movwf	R3
L1
	decf	R3, F
	bnz		L1
	decf		R2, F
	bnz		L2
	decf		R1, F
	bnz		L3
	return
 
end