PIC单片机中断嵌套
W_TEMP EQU 20H ; 实际上20H、A0H、120H和1A0H
STATUS_TEMP EQU 21H ;在体0中建立保护单元
PCLATH_TEMP EQU 22H ;在体0中建立保护单元
ORG 000H
GOTO A1
ORG 04H;中断入口地址
GOTO ZD01
A1 BSF STATUS,RP0
BCF STATUS,RP1;体1
MOVLW 00H;1:2TMRO比例
MOVWF OPTION_REG;分频1/2
MOVLW 0H
MOVWF TRISA;设置A口为输出口
MOVLW 06H
MOVWF ADCON1;设置A口为普通I/O口模式
movlw 0FFH
movwf TRISB;设定RB为输入
BCF STATUS,RP0
BCF STATUS,RP1;体0
MOVLW 0FFH;
MOVFW TMR0;初值
MOVLW 0FFH
MOVWF PORTA;A口输出高电平
MOVLW 1;位1显示数
MOVWF 50H;
MOVLW 2;位2显示数
MOVWF 51H;
MOVLW 3;位3显示数
MOVWF 52H;
MOVLW 4;位4显示数
MOVWF 53H;
MOVLW 4;显示位数
MOVWF 40H;
MOVLW B00000001;位码
MOVWF 41H;
MOVLW 50H;
MOVWF FSR ;间接寻址
BCF INTCON,INTF;清中断标志
BSF INTCON,INTE;开外部中断
BCF INTCON,T0IF;清定时中断标志
BSF INTCON,T0IE;开定时中断
BSF INTCON,GIE;开总中断
GOTO $
ZD01
BTFSS INTCON,INTF;判断是否发生外部中断
GOTO ZD02
BCF INTCON,INTE;关闭外部中断避免2次中断
BSF INTCON,GIE;开总中断允许定时
中断嵌套进来
BCF INTCON,INTF;清中断标志
BTFSS PORTB,0;;判断触发中断键是否抬起避免产生2次中断
GOTO $-1;
COMF PORTA,1;取反A口
BSF INTCON,INTE;开外部中断
RETFIE ;中断标志结束
ZD02 BTFSS INTCON,T0IF;判断是否产生定时中断
GOTO ZD04;否跳出是继续执行
;***************************************************
; 保护现场
MOVWF W_TEMP;W备份到W_TEMP中
SWAPF STATUS,0;STATUS半字交换后送W
CLRF STATUS;选择体0为当前体备份
MOVWF STATUS_TEMP;将原来的STATUS送体0上的
MOVF PCLATH,0;PCLATH送W
MOVWF PCLATH_TEMP;W送备份寄存器中
CLRF PCLATH ;设置为0页
;***************************************************
BCF INTCON,T0IF
BSF STATUS,RP0;体1
BCF STATUS,RP1;
MOVLW 0;
MOVWF TRISC;RB口设为输出口
MOVWF TRISD;RD口设为输出口
BCF STATUS,RP0;体0
BCF STATUS,RP1;
MOVLW 0FFH;
MOVWF PORTC;RB口输出高电平
MOVLW 0
MOVWF PORTD;RD口输出低电平起清屏作用
MOVFW INDF;间接寻址显示数据
CALL Q1;查数据表
MOVWF PORTC;显示断码输出到RB口
INCF FSR,1;间接寻址地址加1
MOVFW 41H ;位码
MOVWF PORTD;位码输出到RD口
RLF 41H,0;处理C
RLF 41H,1;左移位码
DECFSZ 40H,1;判断是否显示完4位
GOTO ZD03;否则继续显示
MOVLW 4;显示位数
MOVWF 40H;
MOVLW B00000001;位码
MOVWF 41H;
MOVLW 50H;
MOVWF FSR ;间接寻址
ZD03
;***************************************************
; 恢复现场
CLRF STATUS;恢复到体0
MOVF PCLATH_TEMP,0;开始恢复数据
MOVWF PCLATH;恢复PCLATH
SWAPF STATUS_TEMP,0
MOVWF STATUS;恢复STATUS
SWAPF W_TEMP,1;半字交换后放回
SWAPF W_TEMP,0;再半字交换后送W
;***************************************************
MOVLW 0FFH;
MOVFW TMR0;重装初值
ZD04
RETFIE ;中断结束
;********************************************
; 数据表
;********************************************
Q1 ADDWF PCL,1
RETLW 00C0H ;0
RETLW 00F9H ;1
RETLW 00A4H ;2
RETLW 00B0H ;3
RETLW 0099H ;4
RETLW 0092H ;5
RETLW 0082H ;6
RETLW 00F8H ;7
RETLW 0080H ;8
RETLW 0090H ;9
RETLW 0088H ;A
RETLW 0083H ;B
RETLW 00C6H ;C
RETLW 00A1H ;D
RETLW 0086H ;E
RETLW 008EH ;F
END
评论