! EEPROM clearing routine for SNK Beast Busters


INCLUDE    "68000.POD"

SETUP
   TRAP ACTIVE INTERRUPT   NO
   TRAP ACTIVE FORCE LINE  NO

PROGRAM MAIN
   REGF=10F8000
   REGA=0

   WRLOOP:
       WRITE @ REGF = 0
       
       DPY-$F

       INC REGA
       
       IF REGA > 1000 GOTO END

       INC REGF
       INC REGF

       GOTO WRLOOP

       REGF = 10F8000
       REGA = 0
   RLOOP:
       DPY-$F
       READ @ REGF
       IF REGE > 0 GOTO ERROR_MO

       INC REGA

       IF REGA > 1000 GOTO END

       INC REGF
       INC REGF
       GOTO RLOOP

   END:
   DPY-DONE
   STOP

   ERROR_MO:
       DPY-###
       DPY ERROR
       STOP