; Remove a character at index b from a string s.
; s b ->
.label remove
  $00 SWP ADDw POPxw ; xw = index of char to remove
  .label remove.loop
   PSHxw INCw LDBw STBxw ; store next char at index
   INCxw ; increment index
   ; if at end of string exit
   $00 LDBxw EQU remove.end JCNw
   remove.loop JMPw
   .label remove.end
     RTS