BASIC-16A

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

3579 04013 0 02 00313 CL06 LDA CLT2 ANY JUNK ON THE PUSH DOWN STACK ? 3580 04014 101040 SNZ X 3581 04015 0 01 04574 JMP SEX ...NO... PROCEED TO THE NEXT STATEMENT 3582 04016 140407 TCA ESTABLISH COUNTER TO CLEAR THE STACK 3583 04017 0 04 00000 STA 0 X 3584 04020 0 10 03031 JST POP REMOVE A REAL NUMBER FROM THE STACK 3585 04021 0 10 03031 JST POP X 3586 04022 0 12 00000 IRS 0 BUMPT THE COUNTER 3587 04023 0 01 04020 JMP *-3 MORE TO GO 3588 04024 0 01 04574 JMP SEX PROCEED TO THE NEXT STATEMENT 3589 * 3590 04025 0 10 03054 CL02 JST XCHR SEE IF ISOLATED VARIABLE NAME 3591 04026 0 10 03155 JST ALFA X 3592 04027 0 01 04046 JMP CL03 NO ... IT MUST BE AN EXPRESSION 3593 04030 0 02 00037 LDA SBP MARK START OF NAME 3594 04031 0 04 00314 STA CLT3 X 3595 04032 0 10 04632 JST PVN ISOLATE/CLASSIFY VARIABLE NAME 3596 04033 0 10 04751 JST ADV LOCATE/ASSIGN DIMENSIONED VARIABLE 3597 04034 0 10 04671 JST ASV LOCATE/ASSIGN SIMPLE VARIABLE 3598 04035 0 10 03054 JST XCHR SEE IF VARIABLE NAME IS PART OF A 3599 04036 0 11 00414 CAS C254 BIGGER EXPRESSION 3600 04037 100000 SKP POSSIBLE 3601 04040 0 01 04056 JMP CL04 NO ... WE HAVE ISOLATED A PARAMETER 3602 04041 0 05 00411 ERA C251 TRY FOR ')' 3603 04042 101040 SNZ X 3604 04043 0 01 04056 JMP CL04 VARIABLE NAME STANDS ALONE 3605 04044 0 02 00314 LDA CLT3 IT'S PART OF AN EXPRESSION .... 3606 04045 0 04 00037 STA SBP ....RESET TO START OF NAME 3607 04046 140040 CL03 CRA EVALUATE EXPRESSION 3608 04047 0 10 02443 JST EXPA X 3609 04050 0 35 00035 LDX PDLP SET PARAMETER ADDRESS IN X 3610 04051 0 10 03203 JST LCVL PUT PARAMETER VALUE ON THE STACK 3611 04052 0 10 03022 JST PUSH X 3612 04053 000201 IAB X 3613 04054 0 10 03022 JST PUSH X 3614 04055 0 12 00313 IRS CLT2 BUMP <EXPRESSION> COUNT 3615 04056 0 02 00000 CL04 LDA 0 GET PARAMETER ADDRESS 3616 04057 0 35 00312 LDX CLT1 X POINTS TO NEXT WORD IN CALLING SEQ) 3617 04060 1 04 00231 STA WORK,1 SET PARAMETER ADDRESS IN CALLING SEQ. 3618 04061 0 12 00312 IRS CLT1 BUMP PARAMETER COUNT 3619 04062 0 01 03770 JMP CL05 GO TEST DELIMITER 3620 * 3621 04063 0 000000 DAC ** UNDEFINED SUBROUTINE ENTRY 3622 04064 0 10 05243 CL01 JST ERR REPORT SUBROUTINE SELECTION ERROR 3623 04065 151723 BCI 1,SS X 3624 * 3625 * 3626 * 3627 * 3628 EJCT