;contact jwilkinson@mail.utexas.edu ;NSFCWT Round 1 ;redcode-94 ;name Cthulhu v8 ;author John K. Wilkinson ;strategy I don't think I'm sending this in time... ;strategy Ah well, if it's too late, then I'll cry later... :) ;assert CORESIZE==8000 PIN 717 ;altered i equ imp+100 NUM_STR equ #2 BOB equ (-250+17) ;altered CTHUCODE equ #3345 _RESULT equ #0 _BROTHER equ #(999-17) ;altered _LOSS equ #222 _STR equ #333 BOUND equ #800 CDIST equ 12 IVAL equ 42 FIRST equ scan+OFFSET+IVAL OFFSET equ (2*IVAL) DJNOFF equ -431 BOMBLEN equ CDIST+2 GATE equ tie-4000 stinc equ 190 T equ res+5500 step equ 52 count equ 665 S equ -500 d equ 1143 org start nop stone, S cannonboot: mov }-1, >-1 jmp S stone mov sptr mov }sptr, >sptr mov }sptr, >sptr mov }sptr, >sptr mov }sptr, >sptr djn sandboot, #4 jmp S-7 cdie: spl 1 spl 1 mov -1, 0 spl cannonboot spl 1 spl 1 cotton: spl d+09, 0 mov.i >-1, }-1 spl 2 jmp 3 add.a #d, -1 jmp -3 mov.i #20, d for 10 mov.i #20, d rof ;*** SandBlast! sand mov bombd, *sstone mov bombd, @sstone sstone mov *(1*step)+1, *(2*step)+1 add incr, sstone jump djn.b sand, #count ;count equ 665 jmp clr dat 0, 0 dat 0, 0 clr: spl #0, #0 mov @ptr, }sstone ;art-1 djn.b -1,