BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 84

3137 * ON STATEMENT PROCESSOR 3138 * 3139 * 3140 * STATEMENT SYNTAX: 3141 * 3142 * <ON STATEMENT>:=ON<EXPRESSION>GOTO<LINE NUMBER> 3143 * [,<LINE NUMBER>](0,*)[:C/R] 3144 * 3145 * 3146 * AN 'ON' ERROR MESSAGE WILL BE ISSUED 3147 * ON THE FOLLOWING CONDITIONS: 3148 * 3149 * 1) 'GOTO' MISSING 3150 * 2) EXRRESSION ZERO OR MINUS 3151 * 3152 * 3153 03340 140040 ON CRA EVALUATE THE EXPRESSION 3154 03341 0 10 02443 JST EXPA X 3155 03342 0 10 03047 JST GCHR TEST FOR 'GOTO' 3156 03343 0 05 00454 ERA GTC ('GOTO' IS COMPRESSED TO 1 BYTE) 3157 03344 100040 SZE X 3158 03345 0 10 05243 ON1 JST ERR 'ON' STATEMENT ERROR 3159 03346 147716 BCI 1,ON (THIS WILL EXECUTE AS AN ANA) 3160 03347 0 10 03203 JST LCVL TRUNCATE EXPRESSION TO AN INTEGER 3161 03350 0 10 00000 JST IFLT X 3162 03351 0 01 03345 JMP ON1 ERROR...NUMBER TOO LARGE 3163 03352 140407 ON3 TCA TEST FOR VALUE < 1 3164 03353 101400 SMI X 3165 03354 0 01 03345 JMP ON1 ERROR ... EXPRESSION <= 0 3166 03355 0 04 00000 STA 0 SAVE VALUE FOR STEPPING THROUGH LIST 3167 03356 0 10 04556 ON2 JST ISN GET NEXT STMT NO. FROM THE LIST 3168 03357 0 12 00000 IRS 0 IS THIS THE ONE WE WANT | 3169 03360 100000 SKP NO 3170 03361 0 01 03326 JMP GOT2 YES...NOW PROCESS LIKE A GOTO 3171 03362 0 02 00414 LDA C254 TEST FOR COMMA SEPERATING THE 3172 03363 0 10 03104 JST GCCK STATEMENT NUMBERS 3173 03364 0 01 03356 JMP ON2 CONTINUE SCAN 3174 * 3175 * 3176 * 3177 EJCT