lib2_bm_delete: __stw <_ax jsr lib2_bm_open bcs .out stw $8006,<_bx ; ptr to end stw <_si,<_di ; setup currptr as dest stw <_dx,<_si ; setup nextptr as src subw <_dx,<_bx ; #bytes = end-next + 2 addw #2,<_bx subw <_cx,$8006 ; adjust ptr to end lda <_bh ldx <_bl jsr _memcpy.3 jsr lib2_bm_disable stz _bm_error clx cla clc.out: rts
lda _nullity ldx _bullets inx txa sbc _nullity jsr _cheap_funeral nop rts