;redcode-94 ;name simple switching ;author Simon Wainwright ;assert 1 w0 equ boot w1 equ cloner w2 equ slDodger pstate equ 22 states equ 3 think ldp.a #0, in load ldp.a #pstate, state mod.a #states, state add.ba *in, state store stp.a *state, load state tie jmp @state, w0 win dat 0, w0 dat 1, w1 loss dat 2, w2 dat 2, w2 init dat 0, w0 dat 0, init-state in dat 0, loss-state dat 0, win-state dat 0, tie-state cloner mov {0, ptrap+1 ;********************Cloner II******************** SRC mov FIX, -1 CPY mov @SRC-1, pescape ,}pescape jmn.b -1 ,pescape preset jmp p1+5093 ,-p1-5093 psnare jmp ptrap-200,+200 ptrap mod.x #10 ,#1 stp.ab #0 ,#0 ;<-- values of the a- and b-fields can be modified during the battle djn.b -1 ,-1 pincr mov 1 ,-1 pb dat 5093+p1-pescape,-plen pescape dat 0,0 ;********************Frontwards************************ offset equ 608 step equ 12 stream equ cc-806 first equ (cc-offset+203) gate equ -50 p dat #first, {first+step dat #30, {-1 dat #30, {-1 cc spl #30, stream-660 dat 0, 0 dat 0, 0 dat 0, 0 boot mov top+5, top+offset+5 for 5 mov {boot,