1        ;name Vampire 2
2
3        const EQU 2365
4
5              SPL 0            ; self splitting
6        vamp  MOV ptr, @ptr    ; throw pointer
7              ADD data, ptr    ; update pointer
8              DJN vamp, <2339  ; loop back + non-lethal attack
9
10        ptr   JMP trap, ptr    ; pointer to...
11
12        trap  SPL 1, -100      ; ...here
13              MOV data, <-1
14              JMP -2
15        data  DAT #const, #-const