ADDR1 EQU $06
ADDR2 EQU $08
ADDR3 EQU $EB
ADDR4 EQU $ED
SCRATCH EQU $19
SCRATCH2 EQU $1E
RETADR EQU $FE
RESULT EQU $FA
RESULT2 EQU $FC
REENTRY EQU $3D0
 LDA #1
 STA ERRSTOP
 LDA #1
 STA ERRMESG
 LDA #1
 STA ERRCTRL
 JMP VARSKIP
ERRSTOP DS 1
ERRMESG DS 1
ERRCTRL DS 1
VARSKIP
RSKIP
*