Previous File Previous Page Single Page Next Page Next File

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

3228 03420 0 05 00313 ERA IFT2 X 3229 03421 101040 SNZ TEST FOR NO CONDITION SELECTED OR 3230 03422 0 01 03414 JMP IF04 THE SAME CONDITION SELECTED TWICE 3231 03423 0 04 00312 STA IFT1 SAVE THE COND1TION CODE 3232 03424 140040 CRA EVALUATE THE SECOND EXPRESSION 3233 03425 0 10 02443 JST EXPA X 3234 03426 0 10 00000 JST S$22 COMPARE THE TWO EXPRESSIONS 3235 03427 0 000041 DAC CVAL X 3236 03430 0 10 03207 JST SCVL REDUCE TO -1 IF 1ST EXPR IS >, 3237 03431 0 10 00000 JST SGNF -2 IF 2ST EXPR EQUALS 2ND EXPR, OR 3238 03432 0 000041 DAC CVAL -3 IF 2ND EXPR IS > 3239 03433 0 10 00000 JST IFLT X 3240 03434 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 3241 03435 0 07 00376 SUB C2 X 3242 03436 0 04 00000 STA 0 X 3243 03437 0 02 00312 LDA IFT1 MOVE REL. OP. CODE BIT FOR THE RESULT 3244 03440 0414 64 LGL 12 TO A(1) 3245 03441 0414 77 LGL 1 X 3246 03442 0 12 00000 IRS 0 X 3247 03443 0 01 03441 JMP *-2 X 3248 03444 101400 SMI WAS THE RESULT CONDITION SELECTED | 3249 03445 0 01 04600 JMP ASQ NO....ADVANCE TO NEXT LINE 3250 03446 0 10 03047 JST GCHR YES...TEST FOR 'GOTO' 3251 03447 0 11 00454 CAS GTC X 3252 03450 100000 SKP NO 3253 03451 0 01 03324 JMP GOTO YES...PROCESS GOTO STATEMENT 3254 03452 0 05 00504 ERA THNC NO....THIS CHARACTER MUST BE 'THEN' 3255 03453 100040 SZE X 3256 03454 0 10 05243 JST ERR NO...REPORT SYNTAX ERROR 3257 03455 152310 BCI 1,TH COULD NOT FIND 'THEN' 3258 03456 0 10 03054 JST XCHR SEE WHETHER LINE NO. OF STATEMENT 3259 03457 0 11 00455 CAS INTF FOLLOWS 3260 03460 0 01 03213 JMP ESMT STATEMENT...GO PROCESS IT 3261 03461 0 01 03324 JMP GOTO LINE NUMEBR...EXECUTE 'GOTO' 3262 03462 0 01 03213 JMP ESMT STATEMENT...G0 PROCESS IT 3263 * 3264 * HERE FOR ARITHMETIC IF STATEMENT 3265 * 3266 03463 0 10 03047 IF01 JST GCHR STEP PAST THE COMMA 3267 03464 0 10 00000 JST SGNF SET A = -1 IF EXPT < 0, 0 IF 3268 03465 0 000041 DAC CVAL EXPR = 0, +1 IF EXPR > 0 3269 03466 0 10 00000 JST IFLT X 3270 03467 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 3271 03470 0 06 00376 ADD C2 A MAKE THIS LOOK LIKE AN 'ON' STATEMENT 3272 03471 0 01 03352 JMP ON3 AND GO PROCESS IT 3273 * 3274 * 3275 * 3276 EJCT
Previous File Previous Page Single Page Next Page Next File