;redcode-94
;name DTfT
;strategy Run Carbonite if won, else TimeScape.
;assert CORESIZE == 8000

        org     think

; *** 2 cycle switcher

switch  dat     1, 1
think   ldp.ab  #0, switch
        jmz.a   strat2, @switch

; *** TimeScape by Juha Pohjalainen

TSTEP equ 1800
CSTEP equ 3740
NSTEP equ -1922
FSTEP equ 1870

strat1  spl     1,              <-200
        spl     1,              <-300
        mov.i   -1,             0

tim1    spl     @tim1,          }TSTEP
        mov.i   }tim1,          >tim1
cel1    spl     @cel1,          }CSTEP
        mov.i   }cel1,          >cel1
        mov.i   {-FSTEP,        <FSTEP
        mov.i   {cel1,          <ncl1
ncl1    jmp     @ncl1,          >NSTEP

        dat     0, 0
        dat     0, 0

; *** Carbonite by Ian Sutton

dbomb   dat     >-1, >1
strat2  spl     #0, <-100
        mov     dbomb, tar-197*3500
tar     add     #197, -1        ; gets bombed to start coreclear
        djn.f   -2, <-1151

        end