;*******************************************************************************
; 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
          #ifndef COP
                    mexit
          #endif
          #ifparm ~1~ = #SAVE#
                    #push
                    #MapOff
KickCop             proc
                    psha
                    lda       #$55
                    sta       COP
                    coma
                    sta       COP
                    pula
                    rtc
                    #pull
                    mexit
          #endif
                    call      KickCop
                    endm