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