In   -
Out  Bs2Del
Type Module

DEFINE MODULE
  NAME     Bs2Del
  VERSION  0.01
  AUTHOR   Chris Johns
  HELP     BackSpace to Delete
  INIT     init
  FINAL    final
END MODULE

.init
   STMFD   r13!,{r0-r4,link}
   ADR     r1,eventcode
   XSWI    "XOS_Claim",&14,,1             ; claim enter buffer
   LDMIA   r13!,{r0-r4,pc}

.final
   STMFD   r13!,{r0-r4,link}
   ADR     r1,eventcode
   XSWI    "XOS_Release",&14,,1           ; release
   LDMIA   r13!,{r0-r4,pc}

.eventcode
   CMP     r1,#0                         ; is it keyboard ?
   MOVNES  pc,link
   CMP     r0,#8
   MOVEQ   r0,#127
   MOV     pc,link

#Post
#Run <CODE>
