;redcode-tinylp ;name ugly redcode ;author John Metcalf ;strategy qscan (jmp bomb) -> .5c lp scan ;assert CORESIZE==800 && MAXPROCESSES==8 ; benchmark - 48%w 36%l 16%t = 160 points org qGo step equ 151 ptr: add #step,#bp+step pGo: jmz.f ptr, @ptr slt ptr, #5 mov *bp, @ptr jmp ptr, qFas, {qSlo seq qd+qf+3*qs, qf+3*qs ; C djn.f >qFas, {qd+qf+3*qs+qi seq qd+qf+4*qs, qf+4*qs ; C+1 jmn >qFas, }qSlo seq qd+qf+5*qs, qf+5*qs ; B-1 jmp qFas, qBmb seq qd+qf+9*qs, qf+9*qs ; A-1 djn qFas, {qFas seq qd+qf+12*qs, qf+12*qs ; B*C-B jmn qSlo, {qSlo seq qd+qf+15*qs, qf+15*qs ; B*C-C jmp qSlo, 400, >qKil add #qd, qKil qLoo:mov *qKil,