-Т > LocalErr 0.20 15-Oct-2016 J.G.Harston >Т Simple version of ON ERROR LOCAL for PROCs in 6502 BASIC : (4Т PROCerr_local(1) to enable local error handler 27Т PROCerr_local(0) to restore default error handler <:Т Usage: LOCAL !&16:ON ERROR LOCAL local error handler F: PщРerr_local(A%):Г⌠>&FFFF:А ZГ(223─?&FFF7)<>&4C:А d)ГA%=0:?&202=err_0%:?&203=err_0%│256:А n,A%=!&202:УA%=A%+1:Щ(!A%─&8000FF)=&80004C xчerr_%33:P%=err_%:[OPT 0 ┌1LDY#0:LDA(&16),Y:CMP#&EA:BEQP%+5:.F%:JMP!&202 ▄+LDA&16:ADC#0:STA&0B:LDA&17:ADC#0:STA&0C √&LDA#0:STA&0A:LDX#&F5:TXS:JMPA%!1:] ═+?&202=err_%:?&203=err_%/256:err_0%=F%!1 ╙А Ъ