;redcode-tour ;name ln(8192)=9.01091 ;author John Metcalf ;strategy stone/imp ;assert CORESIZE==8192 sStep equ 3598 iStep equ 3277 sDist equ (pGo+2555) iDist equ (sDist+50+iStep) sInc:spl #-sStep, >sStep sPtr:mov >-sStep*2,1+sStep*2 add sInc, sPtr djn.f sPtr, >sInc+sStep imp: mov.i #iStep, *0 pGo: mov imp, *iBoo spl 1, {-790 spl 1, {-780 mov {pGo, {sBoo sBoo:djn sDist+4, #1 spl 1, {-770 spl 1, {-760 spl 1, {-750 spl 1, {-740 spl 2, {-730 iBoo:jmp iDist,