BASIC-16A

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

3178 * IF STATEMENT PROCESSOR 3179 * 3180 * 3181 * STATEMENT SYNTAX: 3182 * 3183 * <IF STATEMENT>:=<LOGICAL IF STATEMENT>| 3184 * <ARITHMETIC IF STATEMENT> 3185 * 3186 * <LOGICAL IF STATEMENT>:=IF<EXPRESSION><RELATIONAL OPERATOR> 3187 * <EXPRESSION>[TEN<STATEMENT BODY> 3188 * [:<STATEMENT BODY>]|$TEN<LINE NUMBER> 3189 * |GOTO<LINE NUMBER>] 3190 * 3191 * <RELATIONAL OPERATOR]:=>|>=|=|=<|<|<> 3192 * 3193 * <ARITHMETIC IF STATEMENT>:=IF<EXPRESSION>,<LINE NUMBER>, 3194 * <LINE NUMBER>,<LINE NUMBER>[:|C/R] 3195 * 3196 * 3197 03365 140040 IF CRA CLEAR TEMP. REGISTERS USED IN 3198 03366 0 04 00312 STA IFT1 PROCESSING RELATIONAL OPS 3199 03367 0 04 00313 STA IFT2 X 3200 03370 0 10 02443 JST EXPA EVALUATE FIRST EXPRESSION 3201 03371 0 10 03054 JST XCHR TEST FOR ARITHMETIC IF 3202 03372 0 05 00414 ERA C254 BY LOOKING FOR COMMA FOLLOWING 3203 03373 101040 SNZ FIRST EXPRESSION 3204 03374 0 01 03463 JMP IF01 GO PROCESS ARITHMETIC IF 3205 * 3206 * HERE FOR LOGICAL IF 3207 * 3208 03375 0 10 03047 IF02 JST GCHR TEST NEXT CHARACTER FOR RELATIONAL OP. 3209 03376 0 11 00423 CAS C273 < ('274), = ('275), AND > ('276) ARE 3210 03377 0 11 00425 CAS C277 LEGAL REL. OPS. 3211 03400 0 01 03416 JMP IF03 NOT RELATIONAL OP 3212 03401 0 01 03416 JMP IF03 DITTO 3213 03402 0 07 00423 SUB C273 TRANSPOSE CODE TO 1 FOR <, 2 FOR =, 3214 03403 0 11 00376 CAS C2 OR 4 FOR > 3215 03404 0 02 00435 LDA C4 X 3216 03405 101000 NOP X 3217 03406 0 13 00312 IMA IFT1 CODE TO FIRST REL. OP. ACCUM. 3218 03407 101040 SNZ WAS THIS IHE FIRST REL. OP. | 3219 03410 0 01 03375 JMP IF02 YES...GO CHECK FOR ANOTHER 3220 03411 0 13 00313 IMA IFT2 MOVE 1ST REL. OP. CODE TO 2ND ACCUM. 3221 03412 101040 SNZ WAS THIS THE 2ND REL. OP. | 3222 03413 0 01 03375 JMP IF02 YES...MAKE SURE ANOTHER DOES NOT FOLLOW 3223 03414 0 10 05243 IF04 JST ERR IF STATEMENT CONDITION ERROR 3224 03415 144703 BCI 1,IC X 3225 * 3226 03416 0 10 03065 IF03 JST UCHR MOVE BACK TO 1ST NON REL. OP. CHAR. 3227 03417 0 02 00312 LDA IFT1 COMBINE THE REL. OP. CODES