;redcode ;name Trident^2 '88 ;author John K W ;assert CORESIZE == 8000 ;strategy The name comes from 9, or 3^2 imps... ;strategy This might could be optimized a lot... let's see... ;strategy I guess this version is the happy medium. :) displacement equ (1) BOOT_DIST equ (evol+3600) BOOT equ (BOOT_DIST+1716+displacement) ;4148 S equ 24 DECSTEP equ 1624 istep equ 889 ;381 impoff equ 254 COFF equ S+5 ADDOFF equ 31 ;************* Trident^2 start evol bootme mov jclr, BOOT_DIST+COFF mov jclr, BOOT_DIST+COFF+2 mov pump+3, BOOT+3+ADDOFF mov imp, BOOT+impoff mov imp, BOOT+impoff+istep mov imp, BOOT+impoff+istep*2 spl1 spl 1, 0 mov