[求助]延时问题

min

  LIST P=12F675
  INCLUDE "P12F675.INC"
  __config(0x31DC)
;------------------------------------------------------------------------------------------
S_TEMP   EQU   31H
W_TEMP      EQU   32H
STATUS_TEM EQU   33H
FLAG1   EQU  34H
FLAG2   EQU  35H
W    EQU  0
F    EQU  1
;COUNT1   EQU   21H            ; 延时量
RTCC   EQU  1
;RA    EQU  5
;RB    EQU  6
;F8    EQU  8
F9    EQU  9
;*********************************************************************************
    ORG     00H
    NOP
    GOTO    START
;------------------------------------------------------------------------------------------
;中断服务程序
;------------------------------------------------------------------------------------------
    ORG     04H  
  MOVWF   W_TEMP
    SWAPF   STATUS,W
    MOVWF   S_TEMP
    BTFSS   GPIO,GPIO5          ;GPIO5是否按下？
    CALL    DELAY     ;去抖
    BTFSS   GPIO,GPIO5
    GOTO    RB0         
RE        ;还原中断现场
SWAPF   S_TEMP,W  ;中断返回
    MOVWF   STATUS
    SWAPF   W_TEMP,F
    SWAPF   W_TEMP,W
    MOVF    GPIO,W   ; 唤醒标志清零 必须读取!!!
    BCF     INTCON,GPIF         ;清除RB中断标志位
    RETFIE                  
RB0   
INCF    FLAG2,F
RBB        
BTFSS   GPIO,GPIO5          ;等待GPIO5释放
    GOTO    RBB   
    GOTO    RE
;------------------------------------------------------------------------------------------
;主程序
;------------------------------------------------------------------------------------------
START         
BCF  STATUS,RP0  
    CLRF    GPIO
    MOVLW   07h
    MOVWF   CMCON
    MOVLW   0c8H
    MOVWF   INTCON           ;总中断和GPIO电平变化中断使能
   
    BSF     STATUS,RP0       ;选择数据存储器体1
    MOVLW   0FH
    MOVWF   OPTION_REG       ;开启内部弱上拉
    MOVLW   38H
    MOVWF   TRISIO           ;GPIO端口方向设定
    BSF  WPU,5
    movlw   20h
    movwf   IOC
    CLRF    ANSEL
    BCF     STATUS,RP0       ;选择数据存储器体0
    BCF     GPIO,GPIO2
; BCF     GPIO,GPIO1
    ;CLRF    FLAG2       ; 清除FLAG2
LOOP1
    BTFSS   FLAG2,0    ;判断FLAG2的标志位是否为0
    GOTO    LOP1
    BSF     GPIO,GPIO2  ;点亮(GPI2口的LED）
; BSF     GPIO,GPIO1  ;点亮(GPI1口的LED）
    CALL    DELAY2   ;调延时8S
   ; GOTO    OUT
GOTO LOP1
LOP1
BCF     GPIO,GPIO2
; BCF     GPIO,GPIO1  ;关闭(GPI1口的LED）
CLRF    FLAG2       ; 清除FLAG2
SLEEP     ;睡眠
    NOP
OUT       ;唤醒
    GOTO    LOOP1
;------------------------------------------------------------------------------------------
;延时子程序
;------------------------------------------------------------------------------------------
DELAY
MOVLW   .10
MOVWF   22H
D1
MOVLW   0FFH
MOVWF   23H
D2
DECFSZ  23H,1
GOTO    D2
DECFSZ  22H,1
GOTO    D1
RETURN
DELAY1
    MOVLW   3FH              ;外循环常数
    MOVWF   20H              ;外循环寄存器
L1
MOVLW   02H              ;内循环常数
    MOVWF   21H              ;内循环寄存器
L2         
DECFSZ  21H,1            ;内循环寄存器递减
    GOTO    L2               ;继续内循环
    DECFSZ  20H,1            ;外循环寄存器递减
    GOTO    L1               ;继续外循环
    RETURN                   ;子程序返回
;---------延时8s-------------
DELAY2
     MOVLW    D'20'
     MOVWF     20H
P1
   MOVLW     0EBH
     MOVWF     21H
P2   
  MOVLW     0ECH
     MOVWF     22H
P3        
  DECFSZ    22H,F
     GOTO      P3
     DECFSZ    21H,F
     GOTO      P2
     DECFSZ    20H,F
     GOTO      P1
     RETURN
  END
;-------------------------------------------
红色部分，为什么延时8秒程序就会跑飞了，而1秒就可以

star

不知道有没有设置看门狗的呢，程序不完整，可以打个包，全部上传上来才好看