;redcode-94x ;name Humpty IRC5 ;author Philip Thorne ;assert 1 ; (CORESIZE==800) && (MAXLENGTH==20) DOFF EQU (-20) SOFF EQU STEP+2 STEP EQU 234 stone: spl #A, #B chuck: mov.i bmb, *SOFF norris: mov.i tbmb, @-1 add.ab #STEP, chuck djn.f @-1, DOFF mov.i #1, 1 tbmb: dat 13, 1 bmb: mov -5, -1 end