;Warrior VAMP
;by Stefan Roettger, D-8525 Uttenreuth
;
;
start    spl  search             ;split program execution to main task
         mov #0        start     ;initialize pointer to buffer
cbuf     mov #1       <start     ;build a buffer containing #1
         djn  cbuf     c         ;is the buffer big enough?
c        dat #41                 ;counter and end for buffer task
search   mov  bomb1   @p         ;bomb core with bomb1
         add #18       p         ;skip 18
         mov  bomb2   @p         ;bomb core with bomb2
         add #23       p         ;skip 23
         djn  search  @p         ;run into buffer?
         mov #1       @p         ;repair damaged buffer
         add #820      p         ;do not bomb own program
         jmp  search             ;continue bombing
bomb1    spl  0                  ;spl bomb to slow down opponent
bomb2    jmp  -18                ;jmp bomb to confuse and kill
p        dat #2048
         end start