BASIC-16A

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

3529 * CALL STATEMENT PROCESSOR 3530 * 3531 * 3532 * STATEMENT SYNTAX: 3533 * 3534 * <CALL STATEMENT>:=CALL(<SUBROUTINE IDENTIFIER<[, 3535 * <SUBROUTINE PARAMETER>](0,*)) 3536 * 3537 * <SUBROUTINE IDENTIFIER>:=<EXPRESSION> 3538 * 3539 * <SUBROUTINE PARAMETER>:=<VARIABLE NAME>|<EXPRESSION> 3540 * 3541 * 3542 * 3543 03752 0 02 00410 CALL LDA C250 GET LEFT PAREN 3544 03753 0 10 03104 JST GCCK X 3545 03754 0 04 00312 STA CLT1 CLEAR ARGUMENT COUNTER 3546 03755 0 04 00313 STA CLT2 CLEAR <EXPRESSION> COUNTER 3547 03756 0 10 02443 JST EXPA EVALUATE SUBROUTINE IDENTIFIER 3548 03757 0 10 03203 JST LCVL CONVERT RESULT TO INTEGER 3549 03760 0 10 00000 JST IFLT X 3550 03761 0 01 04064 JMP CL01 ERROR ... IDENTIFIER OUT OF RANGE 3551 03762 0 11 00370 CAS C0 PERFORM EXCLUSIVE RANGE CHECK 3552 03763 0 11 00442 CAS CMAX X 3553 03764 0 01 04064 JMP CL01 ERROR ... OUT OF RANGE 3554 03765 0 01 04064 JMP CL01 ERROR ... OUT OF RANGE 3555 03766 0 06 00515 ADD CJST FORM SUBROUTINE CALL 3556 03767 0 04 00230 STA IBUF PUT IT AT START OF CALLING SEQUENCE 3557 03770 0 10 03047 CL05 JST GCHR CHECK EXPRESSION DELIMITER 3558 03771 0 11 00414 CAS C254 COMMA ? 3559 03772 100000 SKP NO 3560 03773 0 01 04025 JMP CL02 ......YES...... MORE ARGUMENTS FOLLOW 3561 03774 0 10 03065 JST UCHR NOT COMMA, MUST BE RIGHT PAREN 3562 03775 0 02 00411 LDA C251 X 3563 03776 0 10 03104 JST GCCK X 3564 03777 0 10 03116 JST GDLM C/R OR : MUST FOLLOW RIGHT PAREN 3565 04000 0 02 00312 LDA CLT1 GET ARGUMENT COUNT 3566 04001 0 04 00000 STA 0 IN X TO GET AT END OF PARAMETER LIST 851356603 3567 04002 0 07 00376 SUB C2 MORE THAN ONE ARGUMENT ? 3568 04003 100400 SPL X 3569 04004 0 01 04010 JMP *+4 ...NO... LIST TERMINATOR NOT NEEDED 3570 04005 140040 CRA INSERT ZERO WORD AT END OF PARAMETER LIST 3571 04006 1 04 00231 STA WORK,1 FOR FORTRAN COMPATIBILITY 3572 04007 0 12 00000 IRS 0 ACCOUNT FOR WORD JUST INSERTED 3573 04010 0 02 00530 LDA CJMP INSERT RETURN JUMP AT 3574 04011 1 04 00231 STA WORK,1 OF CALLING SEQUENCE 3575 04012 0 01 00230 JMP IBUF GO CALL THE SUBROUTINE 3576 * 3577 * HERE WHEN SUBROUTINE RETURNS 3578 *