BASIC-16A

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

2279 02522 0 01 02603 JMP EX10 YES...GO EVALUATE IT 2280 02523 0 11 00510 CAS SYSL TEST FOR SYSTEM FUNCTION 2281 02524 0 11 00511 CAS SYSH ( SUCH AS SIN, COS, ECT.) 2282 02525 0 01 02530 JMP *+3 NO 2283 02526 100000 SKP NO 2284 02527 0 01 02610 JMP EX11 YES...GO PROCESS IT 2285 02530 0 11 00507 CAS DEFF TEST FOR CALL TO DEFINED FUNCTION 2286 02531 100000 SKP NO 2287 02532 0 01 02671 JMP EX30 YES...GO EVALUATE IT 2288 02533 0 10 03065 JST UCHR IT MUST BE A VARIABLE 2289 02534 0 10 04632 JST PVN PROCESS THE VARIABLE NAME 2290 02535 0 01 02542 JMP EX13 GO LOCATE SUBSCRIPTED VARIABLE 2291 02536 0 10 04721 JST LSV LOOK UP NAME IN SIMPLE VARIABLE TABLE 2292 02537 0 10 05243 EX15 JST ERR ERROR...USEd BEFORE ASSIGNED 2293 02540 152726 BCI 1,UV (THIS EXECUTES AS AN ERA) 2294 02541 0 01 02544 JMP EX14 HAVE ADDRESS OF VALUE IN X...GO GET IT 2295 02542 0 10 05135 EX13 JST LDV PROCESS SUBSCRIPT AND GET ADDR OF VALUE 2296 02543 0 01 02537 JMP EX15 ERROR...USED BEFORE ASSIGNED 2297 02544 0 10 00000 EX14 JST L$22 GET VALUE OF VARIABLE 2298 02545 -0 000000 DAC* 0 X CONTAINS THE ADDRESS 2299 02546 0 10 03207 EX22 JST SCVL LEAVE VALUE IN CVAL 2300 * 2301 * HERE TO LOOK FOR AN OPERATOR 2302 * 2303 02547 0 10 03047 EX09 JST GCHR GET NEXT CHAR (IT MUST BE AN OPERATOR) 2304 02550 0 11 00413 CAS C253 TEST FOR '+' 2305 02551 100000 SKP NO 2306 02552 0 01 02625 JMP EX16 YES...GO PROCESS ADDITION OP 2307 02553 0 11 00415 CAS C255 TEST FOR '*' 2308 02554 100000 SKP NO 2309 02555 0 01 02634 JMP EX17 YES...GO PROCESS SUBTRACTION OP 2310 02556 0 11 00412 CAS C252 TEST FOR '*' 2311 02557 100000 SKP NO 2312 02560 0 01 02642 JMP EX05 YES...GO PROCESS MULTIPLICATION OP 2313 02561 0 11 00417 CAS C257 TEST FOR '/' 2314 02562 100000 SKP NO 2315 02563 0 01 02650 JMP EX19 YES...GO PROCESS DIVISION OP 2316 02564 0 11 00433 CAS C336 TEST FOR '^' 2317 02565 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 2318 02566 0 01 02656 JMP EX20 YES...GO PROCESS EXPONENTIATION OP 2319 * 2320 * BY PROCESS OF ELIMINATION, CURRENT CHARACTER 2321 * MUST BE A TERMINAL DELIMITER (OR USER SYNTAX ERROR, IN 2322 * WHICH CASE THE LAST ZERO LEVEL CALLER WILL DETECT IT). 2323 * 2324 02567 0 10 03065 JST UCHR BACK UP 1 CHAR FOR EASE ELSEWHERE 2325 * 2326 * EXIT PROCESSING 2327 * 2328 02570 0 10 03031 EX21 JST POP LEAVE VALUE THAT WAS PUT ON STACK