Previous File Previous Page Single Page Next Page Next File

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

3477 * GOSUB STATEMENT PROCESSOR 3478 * 3479 * 3480 * STATEMENT SYNTAX: 3481 * 3482 * <GOSUB STATEMENT>:=GOSUB<LINE NUMBER>[:|C/R] 3483 * 3484 * 3485 * 3486 03720 0 02 00036 GOSB LDA RTP SEE IF RETURN STACK IS FULL 3487 03721 0 11 00477 CAS RTM X 3488 03722 0 10 05243 JST ERR YES...>8 OUTSTANDING GOSUBS 3489 03723 143723 BCI 1,GS X 3490 03724 0 10 04556 JST ISN GET STMT NUMBER AND LEAVE IT IN SNUM 3491 03725 0 02 00034 LDA SIP FIRST WORD OF ENTRY IS 3492 03726 -0 04 00036 STA* RTP POINTER TO THIS STATEMENT 3493 03727 0 10 03116 JST GDLM MAKE SURE : OR C/R IS NEXT 3494 03730 0 05 00401 ERA C215 TEST FOR CARRIAGE RETURN 3495 03731 100040 SZE IF IT IS, SECOND WORD OF ENTRY = 0 3496 03732 0 02 00037 LDA SBP OTHERWISE SBP TO NEXT STMT ON THIS LINE 3497 03733 0 12 00036 IRS RTP X 3498 03734 -0 04 00036 STA* RTP 3499 03735 0 12 00036 IRS RTP X 3500 03736 0 01 03326 JMP GOT2 NOW HANDLE LIKE A 'GOTO' 3501 * 3502 * 3503 * 3504 EJCT
Previous File Previous Page Single Page Next Page Next File