;redcode-b test ;name Instantaneous-Coffe v0.1 ;strat Div-Scanner ;assert CORESIZE==8000 FOR 0 Div-Scanner: ptr dat #0, #STEP eye dat #0, #DES+STEP c: mov.i bomb, >ptr ;carpet a: add.ab #STEP, eye d: div.b @eye, @eye ;@eye.b==0 -> ; the proc die ;@eye.b!=0 -> ; @eye.b=1 m: mov.ba @eye, ptr ;ptr.a=@eye.b n: mov.i *ptr, ptr ;@eye.b==ptr.a==0 -> ; ptr.b=ptr.b ;@eye.b==ptr.a==1 -> ; ptr.b=eye.b PROC QUEUE: [...]admnc[...]admnc[...]admnc[...]admnc ... ROF STEP EQU (3315) DES EQU (1) org start sc spl 1 spl 1 spl 1 spl 1 b1 ptr spl #DES+STEP, #0 ;scan eye add.ab #STEP, #DES-(STEP*((16*4)))+(STEP*2) mov.i b1, }ptr ;scan mov.ba eye, @ptr-1 mov.b @eye, ptr-1 hit div.b @eye, @eye jmn.b b3, eye spl #0, #0 ;scan clear mov.i *bp,