newcop.inc

;*******************************************************************************
; Purpose: Special COP reset sequence for DZ/FL and compatible derivatives
; Input  : None
; Output : None
; Note(s):
          #ifmdef COP
                    #Drop     COP
          #endif
COP                 macro     #SAVE#              ;kick the COP watchdog
          #ifdef NO_COP||!COP
                    mexit
          #endif
          #ifparm ~1~ = #SAVE#
            #ifdef KickCop
                    merror    KickCop proc is already defined
            #endif
                    #push
                    #MapOff
                    #Cycles
KickCop             proc
                    psha
                    lda       #$55
                    sta       COP
                    coma
                    sta       COP
                    pula
                    rtc
KICKCOP_CYCLES      equ       :cycles
                    #pull
                    mexit
          #endif
          #ifdef KickCop
                    #temp1    :ocycles
                    #temp2    :cycles
                    call      KickCop
                    #temp     :cycles+KICKCOP_CYCLES
                    #Cycles   :temp1
                    #Cycles   :temp2+:temp
          #endif
                    endm