BASIC-16A

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

3505 * RETURN STATEMENT PROCESSOR 3506 * 3507 * 3508 * STATEMENT SYNTAX: 3509 * 3510 * <RETURN STATEMENT>:=RETURN[:|C/R] 3511 * 3512 * 3513 * 3514 03737 0 10 03116 RTRN JST GDLM MAKE SURE : OR C/R IS NEXT 3515 03740 0 02 00036 LDA RTP GET RETURN STACK POINTER 3516 03741 0 11 00476 CAS RTB CHECK FOR EMPTY STACK 3517 03742 0 01 03745 JMP *+3 TABLE NOT EMPTY 3518 03743 0 10 05243 JST ERR ERROR...RETURN WITHOUT A GOSUB 3519 03744 151324 BCI 1,RT X 3520 03745 0 07 00376 SUB C2 DELETE LAST ENTRY 3521 03746 0 04 00036 STA RTP SAVE UPDATED POINTER 3522 03747 0 10 00000 JST L$22 FETCH SIP AND SBP TO LAST 3523 03750 -0 000036 DAC* RTP GOSUB STATEMENT 3524 03751 0 01 03665 JMP NX05 GO EXECUTE PROGRAM TRANSFER SEQUENCE 3525 * 3526 * 3527 * 3528 EJCT