;redcode-94 ;name Blood Thirsty v1.0 ;author Kiv ;strategy .5c vamp engine ;assert CORESIZE==8000 || CORESIZE==800 || CORESIZE==55440 ORG boot FOR CORESIZE == 55440 const EQU 11781 ROF FOR CORESIZE == 8000 const EQU 34 ROF FOR CORESIZE == 800 const EQU 17 ROF bootptr DAT dBmb, 200 boot MOV }bootptr, >bootptr MOV }bootptr, >bootptr MOV }bootptr, >bootptr DJN boot+1, #3 ADD.AB #36, bootptr MOV }bootptr, >bootptr MOV }bootptr, >bootptr ADD.AB #24, bootptr MOV }bootptr, >bootptr DJN -1, #4 JMP boot+201 dBmb DAT <2667, 0 sBmb SPL #dBmb-(ptr+60), #dBmb-(ptr+59) shell SPL #const, #-const go ADD shell, fang+36 MOV fang+36, @fang+36 MOV dBmb, *fang+36 DJN go,