Previous File Previous Page Single Page Next Page Next File

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

2329 02571 0 04 00044 STA LVAL+1 ON ENTRY IN LVAL 2330 02572 0 10 03031 JST POP X 2331 02573 0 04 00043 STA LVAL X 2332 02574 0 10 03031 JST POP GET RETURN ADDRESS 2333 02575 0 04 02443 STA EXPA X 2334 02576 0 10 03031 JST POP GET PRECEDENCE TRIGGER FOR OPERATOR 2335 02577 0 04 00055 STA LOP PRECEEDING CURRENT ONE 2336 02600 0 10 00000 JST L$22 LEAVE LVAL IN A + B 2337 02601 0 000043 DAC LVAL X 2338 02602 -0 01 02443 JMP* EXPA AND EXIT 2339 * 2340 * EVALUATE PARENTHETICAL TERM 2341 * 2342 02603 140040 EX10 CRA EVALUATE EXPRESSION WITHIN 2343 02604 0 10 02443 JST EXPA THE PARENTHESIS 2344 02605 0 02 00411 LDA C251 MAKE SURE DELIMITER IS ')' 2345 02606 0 10 03104 JST GCCK X 2346 02607 0 01 02547 JMP EX09 NOW WORK ON OPERATOR THAT FOLLOWS 2347 * 2348 * HERE FOR PROCESSING SYSTEM FUNCTION 2349 * 2350 02610 0 10 03022 EX11 JST PUSH CHAR IS FUNCTION IDENTIFIER 2351 02611 0 02 00410 LDA C250 MAKE SURE '(' AFETER FUNCTION NAME 2352 02612 0 10 03104 JST GCCK X 2353 02613 140040 CRA EVALUATE THE ARGUMENT 2354 02614 0 10 02443 JST EXPA X 2355 02615 0 02 00411 LDA C251 MAKE SURE IT ENDS WITH A ')' 2356 02616 0 10 03104 JST GCCK X 2357 02617 0 10 03031 JST POP FETCH THE FUNCTION IDENTIFIER 2358 02620 0 07 00510 SUB SYSL REDUCE IT FOR TABLE ACCESSING 2359 02621 0 04 00000 STA 0 X 2360 02622 -1 10 00530 JST* SFNL,1 EVALAUTE THE FUNCTION 2361 02623 0 000041 DAC CVAL ARGUMENT WAS LEFT IN CVAL 2362 02624 0 01 02546 JMP EX22 GO SAVE CVAL AND CONTINUE 2363 * 2364 * HERE FOR ADDITION OPERATOR 2365 * 2366 02625 0 02 00371 EX16 LDA C1 + IS AT PRECEDENCE LEVEL 1 2367 02626 0 10 02664 JST EXPC TEST FOR PRECEEDING HIGHER OP 2368 02627 0 10 02443 JST EXPA EVALUATE UNTIL = OR < PRTY. OP 2369 02630 0 10 00000 JST A$22 CVAL=LVAL+CVAL 2370 02631 0 000041 DAC CVAL X 2371 02632 0 10 03207 EX24 JST SCVL SAVE THE RESULT 2372 02633 0 01 02547 JMP EX09 CONTINUE 2373 * 2374 * HERE FOR SUBTRACTION OPERATOR 2375 * 2376 02634 0 02 00371 EX17 LDA C1 - IS AT PRECEDENCE LEVEL 1 2377 02635 0 10 02664 JST EXPC TEST FOR PRECEEDING HIGHER OP 2378 02636 0 10 02443 JST EXPA EVALUATE UNTIL = 0R < PRTY. OP
Previous File Previous Page Single Page Next Page Next File