;redcode-b
;name Uvavu P!
;author Scott Manley
;strategy 0.6 c Mod 2 Vamp -> core clear
;strategy now added Pspaced paper with FIXED boot up bug.
;strategy NO! I mean it's really fixed now......
;assert 1

        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
last    DAT     1,1
lost    DAT     1,1
plyd    DAT     1,1
strat   DAT     1,1
think   LDP.A   #0,last ;Won/lost
        LDP.A   #1,lost ;Battles lost
        LDP.A   #2,plyd ;Battles Played
        LDP.A   #3,strat ;Dominant Strategy
        ADD.A   #1,plyd
        SNE.AB  last,#0
        ADD.A   #1,lost
        SLT.AB  plyd, #20
        JMP     think2
        JMP     store
think2  STP.AB  lost,#1
        STP.AB  plyd,#2
        SUB.A   lost,plyd
        SLT.A   plyd,lost
        JMP     decided
        STP.AB  #0,#1
        STP.AB  #0,#2
        SEQ.AB  strat,#0
        MOV.A   #-1,strat
        ADD.A   #1,strat
        STP.AB  strat,#3
decided SEQ.A   #0,strat
        JMP     paper
        JMP     boot
 store  STP.AB  lost,#1
        STP.AB  plyd,#2
        SEQ.A   #0,strat
        JMP     paper
boot    SPL     1,0
        SPL     1,1
        SPL     1,2
        SPL     1,3
        MOV     }copy,>copy
        DJN     2,#1
        JMP     2434,#1
        MOV     }-10,>-10       
copy    DAT     0, 2430
jmpb    JMP     -2  , <-6 
begin   MOV.I   splb , @targ
        MOV.I   jmpb , *targ
targ    MOV.I   *-2430,@-2432
        ADD.F   inc,targ
        DJN     -4,#799
splb    SPL     0,1
        MOV     1,<-2
inc     DAT     }-2430,>-2430
        DAT     1,1
        DAT     1,1
        DAT     1,1
paper   SPL     1, <300
        SPL     1, <400
        SPL     1,<500
silk    SPL     @0,{2200
        MOV.I   }-1,>-1 
silk1   SPL     @0,<3740
        MOV.I   }-1,>-1
        MOV.I   bom,>933
        MOV     {silk1,<silk2
silk2   JMP     @0,>-1278
bom     DAT     <2667,<1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1
        DAT     1,1

        END     think