; Piper
; Chip Wendell
;
start        add       #65     bait
lure         mov       bait    @trget
             add       #48     bait
             sub       #48     trget
             jmn       lure    trget
set          mov       #-12    ptr
bomb         mov       ptr     @ptr
             djn       bomb    ptr
             jmp       set
bait         jmp       @0
trget        dat       -48
ptr          dat       -12
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             dat       0
             spl       0
             jmp       -1
