pbp_interput2.bas

来自「使用PIC Basic Pro语言开发PIC单片机应用程序时使用Timer中断的」· BAS 代码 · 共 40 行

    loops   VAR WORD 
    loops   =   0    

	TRISC = 255
	PortC = 0

    INTCON = 0
    PIR1 = $00        ' clear interupt flags

    PortC.0 = 1

    TMR1H = $3C     ' load timer1 with $3CAF
    TMR1L = $AF
    T1CON = %00000001 ' 开启TMR1, 预分频
	INTCON = $C0    ' 开启全局中断
    PIE1 = $01      ' 开启TMR1中断 

    on interrupt goto ChangeDisplay

loop: 
    pause 1
    goto loop

    DISABLE
	ChangeDisplay:
		loops = loops + 1
		Toggle PortC.3
		If loops = 20 Then 
			loops = 0
			Toggle PortC.2
		EndIf

    	TMR1H = $3C       ' load timer1 with $3CAF
	    TMR1L = $AF
    	PIR1 = $00        ' clear interrupt flags
    RESUME
    ENABLE

End