The BBC and Master Computer Public Domain Library

B707 RETURN

Submitted by Steve Fewell

Description:

Call routine &9BA6 to check that the statement terminates correctly with a ':', '<cr>' or 'ELSE-token' character,
issuing 'Syntax error' if it doesn't.

If the GOSUB Level value (at location &25) is zero, then no outstanding GOSUB calls have been executed, so issue
'No GOSUB' error.

Decrement the &25 GOSUB Level value (so that its value is the return address offset) to reduce the number of active
GOSUBs.
Retrieve the return address value from the GOSUB return address Stack (The LSB of the return address is retrieved from
location &05CC + ?&25. The MSB of the return address is retrieved from location &05E6 + ?&25).
Store the return address value in the BASIC Text Pointer A (&0B-&0C).

Jump to &9005 to continue executing from the program position after the original GOSUB statement.

Disassembly for the RETURN routine