; GEMINI CANNON has required considerable modification ; to run under Core War '89. Jon Newman dat 0,400 go djn 0,-1 mov #400,-2 mov #0,source mov #source-dest+offset,dest spl start,0 jmp go,0 offset equ 100 source dat 0,0 dest dat 0,source+offset loop add #1,source add #1,dest start mov @source,@dest cmp #last-source,source jmp loop,0 done mov #0,source+offset mov #source-dest+offset,dest+offset last jmp start+offset,0 end go