BASIC-16A

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

2429 02672 0 10 05243 JST ERR ERROR...FUNCTION HAS NOT BEEN DEFINED 2430 02673 152706 BCI 1,UF (THIS EXECUTES AS AN ERA) 2431 02674 0 02 00410 LDA C250 '(' MUST FOLLOW FUNCTION NAME 2432 02675 0 10 03104 JST GCCK X 2433 02676 0 02 00000 LDA 0 SAVE TABLE POINTER IN CASE 2434 02677 0 10 03022 JST PUSH THERE IS A PDF IN ARGUMENT 2435 02700 140040 CRA EVALUATE THE FUNCTION ARGUMENT 2436 02701 0 10 02443 JST EXPA X 2437 02702 0 02 00411 LDA C251 MAKE SURE IT'S FOLLOWED BY ')' 2438 02703 0 10 03104 JST GCCK X 2439 02704 0 10 03031 JST POP FETCH THE TABLE POINTER 2440 02705 0 04 00000 STA 0 X 2441 02706 1 02 00001 LDA 1,1 GET DUMMY ARGUMENT NAME 2442 02707 0 13 00052 IMA DEFN SWAP WITH CURRENT DUMMY NAME 2443 02710 0 10 03022 JST PUSH LEAVE PREVIOUS NAME ON STACK 2444 02711 0 02 00041 LDA CVAL CVAL IS NEW D 2445 02712 0 13 00053 IMA DEFV OLD VALUE GOES ON STACK 2446 02713 0 10 03022 JST PUSH X 2447 02714 0 02 00042 LDA CVAL+1 X 2448 02715 0 13 00054 IMA DEFV+1 X 2449 02716 0 10 03022 JST PUSH X 2450 02717 1 02 00002 LDA 2,1 GET POINTER TO FUNCTION EXPRESSION 2451 02720 0 13 00037 IMA SBP SWAP WITH CURRENT EXPRESSION POINTER 2452 02721 0 10 03022 JST PUSH LEAVE OLD POINTER ON STACK 2453 02722 140040 CRA EVALUATE THE FUNCTION 2454 02723 0 10 02443 JST EXPA X 2455 02724 0 10 03116 JST GDLM IT MUST END IN : OR C/R 2456 02725 0 10 03031 JST POP RESTORE POINTER TO ORIGINAL EXPR 2457 02726 0 04 00037 STA SBP X 2458 02727 0 10 03031 JST POP RESTORE PREVIOUS DUMMY 2459 02730 0 04 00054 STA DEFV+1 VARIABLE VALUE 2460 02731 0 10 03031 JST POP X 2461 02732 0 04 00053 STA DEFV X 2462 02733 0 10 03031 JST POP RESTORE PREVIOUS DUMMY 2463 02734 0 04 00052 STA DEFN VARIABLE NAME 2464 02735 0 01 02547 JMP EX09 NOW CONTINUE WITH ORIGINAL EXPRESSION 2465 * 2466 * 2467 * 2468 EJCT