BASIC-16A

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

2379 02637 0 10 00000 JST S$22 CVAL=LVAL-CVAL 2380 02640 0 000041 DAC CVAL X 2381 02641 0 01 02632 JMP EX24 GO SAVE RESULT AND CONTINUE 2382 * 2383 * HERE FOR MULTIPLICATION OPERATOR 2384 * 2385 02642 0 02 00376 EX05 LDA C2 * IS AT PRECEDENCE LEVEL 2 2386 02643 0 10 02664 JST EXPC TEST FOR PRECEEDING HIGHER OP 2387 02644 0 10 02443 JST EXPA EVALUATE UNTIL = OT < PRTY. OP 2388 02645 0 10 00000 JST M$22 CVAL=LVAL*CVAL 2389 02646 0 000041 DAC CVAL X 2390 02647 0 01 02632 JMP EX24 GO SAVE RESULT AND CONTINUE 2391 * 2392 * HERE FOR DIVISION OPERATOR 2393 * 2394 02650 0 02 00376 EX19 LDA C2 / IS AT PRECEDENCE LEVEL 2 2395 02651 0 10 02664 JST EXPC TEST FOR PRECEEDING HIGHER OP 2396 02652 0 10 02443 JST EXPA EVALAUATE UNTIL = OT < PRTY. OP 2397 02653 0 10 00000 JST D$22 CVAL=LVAL/CVAL 2398 02654 0 000041 DAC CVAL X 2399 02655 0 01 02632 JMP EX24 SAVE RESULT AND CONTINUE 2400 * 2401 * HERE FOR EXPONENTIATION OPERATOR 2402 * 2403 02656 0 02 00426 EX20 LDA C3 ^ IS AT PRECEDENCE LEVEL 3 2404 02657 0 10 02664 JST EXPC TEST FOR PRECEEDING ^ 2405 02660 0 10 02443 JST EXPA EVALAUTE UNTIL = OR < PRTY. OP 2406 02661 0 10 00000 JST E$22 CVAL=LVAL**CVAL 2407 02662 0 000041 DAC CVAL X 2408 02663 0 01 02632 JMP EX24 SAVE THE RESULT AND CONTINUE 2409 * 2410 * PRECEDENCE COMPARISON ROUTINE 2411 * 2412 * IF THE PRECEDENCE OF THE PRECEEDING 2413 * OPERATOR IS < THAT OF THE CURRENT OPERATOR, 2414 * RETURN IS MADE FOLLOWING THE CALL. IF NOT 2415 * CONTROL IS TRANSFERED TO THE NORMAL EXPA 2416 * EXIT SEQUENCE. 2417 * 2418 02664 0 000000 EXPC DAC ** 2419 02665 0 11 00055 CAS LOP COMPARE THE PRECEDENCE LEVELS 2420 02666 -0 01 02664 JMP* EXPC CURRENT OP IS GREATER 2421 02667 0 01 02567 JMP EX21-1 LAST OP WAS THE SAME 2422 02670 0 01 02567 JMP EX21-1 LAST OP WAS HIGHER 2423 * 2424 * 2425 * PROCESS CALL TO PROGRAMMER DEFINED FUNCTION 2426 * 2427 * 2428 02671 0 10 04606 EX30 JST SDFI LOOK UP FUNCTION NAME IN TABLE