;redcode-94 verbose ;name Harquebus ;author M. J. Pihlaja ;strategy Tuning Harquebus, tuning brain. ;strategy Switching hsa and stone/imp resistance based on P-clear. ;strategy Thanks to Robert Macrae for all his suggestions and hints. ;kill Harquebus ;assert CORESIZE==8000 load0 z for 0 rof ;***** __meld ;***** ; ; these are relative to __meld_boot _PDIST equ ((5300/__mld_STEP)*__mld_STEP+70-(__meld_boot-load0)) _SDIST equ ((-2700/__mld_STEP)*__mld_STEP+70-(__meld_boot-load0)) __meld_boot bootpair mov #__mld_FIRST,__meld_boot+_PDIST+(paGate-Pair) ; not erased _cploop mov paGate mov dclr , >paGate djn.f -1 , >paGate sclr2 spl #0 , >Pair-paGate+2667 mov dclr , >paGate mov dclr , >paGate djn.f -1 , >paGate dat >5335 , >Pair-paGate+10 dclr dat >5335 , >Pair-paGate+10 scPair equ (scan+_PDIST-_SDIST) scan add #__mld_STEP*2667-2,paGate-Pair+scPair jmz.f -1 , @paGate-Pair+scPair spl scPair , sptr , >sptr jmn.f swipe , >sptr sscan add #sSTEP , @spptr jmz.f sscan ,