/ > LocalError 0.20 15-Oct-2016 J.G.Harston = Implement LOCAL ERROR and ON ERROR LOCAL for 6502 BASIC : (4 PROCerr_local(1) to enable local error handler 27 PROCerr_local(0) to restore default error handler <; Usage: LOCAL ERROR:ON ERROR LOCAL local error handler F: Perr_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_%119:B%=01:P%=err_%:[OPT 0 !LDY#0:LDA(&FD),Y:CMP#16:BNEE% +LDY&0A:DEY:LDA(&0B),Y:CMP#&EA:BNEE%:.C% -INY:LDA(&0B),Y:CMP#32:BEQC%:CMP#&85:BNEE% +INY:STY&0A:INC&1FB:LDA4:SBC#8:STA4:LDA5 /SBC#0:STA5:LDY#7:LDA&1F9:STA(&04),Y:DEY:.D% 'LDA&12,Y:STA(&04),Y:DEY:CPY#3:BNED% -LDA#0:STA(&04),Y:DEY:LDA#4:STA(&04),Y:DEY 5LDA#0:STA(&04),Y:DEY:LDA#&16:STA(&04),Y:BNEG%:.E% 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:.G%:LDX#&F5:TXS:JMPA%!1:]: +?&202=err_%:?&203=err_%256:err_0%=F%!1