10 REM > LocalErr 0.20 15-Oct-2016 J.G.Harston
   20 REM Simple version of ON ERROR LOCAL for PROCs in 6502 BASIC
   30 :
   40 REM PROCerr_local(1) to enable local error handler
   50 REM PROCerr_local(0) to restore default error handler
   60 REM Usage: LOCAL !&16:ON ERROR LOCAL local error handler
   70 :
   80 DEFPROCerr_local(A%):IFHIMEM>&FFFF:ENDPROC
   90 IF(223AND?&FFF7)<>&4C:ENDPROC
  100 IFA%=0:?&202=err_0%:?&203=err_0%DIV256:ENDPROC
  110 A%=!&202:REPEATA%=A%+1:UNTIL(!A%AND&8000FF)=&80004C
  120 DIMerr_%33:P%=err_%:[OPT 0
  130 LDY#0:LDA(&16),Y:CMP#&EA:BEQP%+5:.F%:JMP!&202
  140 LDA&16:ADC#0:STA&0B:LDA&17:ADC#0:STA&0C
  150 LDA#0:STA&0A:LDX#&F5:TXS:JMPA%!1:]
  160 ?&202=err_%:?&203=err_%/256:err_0%=F%!1
  170 ENDPROC

Download LocalErr

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.