The BBC and Master Computer Public Domain Library

B6D9 GOSUB

Submitted by Steve Fewell

Description:

Call routine &B82A to get the Line Number after the GOTO keyword, Issue 'No such line' error if the Line doesn't exist
and set &3D-&3E to the start address of the specified Program Line.
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 (at location &25) is more than or equal to &1A (26) then issue 'Too many GOSUBs' error, as
the maximum nested GOSUB level is 26.

Store the current Text Pointer A location on the GOSUB return address stack, so that the correct position in the program
can be returned to when the RETURN statement corresponding to this GOSUB is reached.
The LSB Byte of the current program position is placed on the GOSUB return address stack at position &05CC + Y
(where Y is the current GOSUB level, i.e. the value of &25 before it is incremented (in the range 0-24)).
The MSB Byte of the current program position is placed on the GOSUB return address stack at position &05E6 + Y
(where Y is the current GOSUB level, i.e. the value of &25 before it is incremented (in the range 0-24)).

Increment the GOSUB level [&25] (to increase the current number of active GOSUBs and the GOSUB Stack level value).

Jump to &B723 to position BASIC Text Pointer A at the start of the specified Line
and begin execution of the GOSUB routine, as follows:

* If the TRACE flag (location &20) is not zero, then call routine &9C4B to display the Line Number

    (located in the IWA) on the screen [if TRACE is currently active].

* Set BASIC Text Pointer A to the start of the specified program line (&3D-&3E, offset by 4 bytes).

* Jump to &900B to start executing the code at the GOTO Line (the new BASIC Text Pointer A location).

Disassembly for the GOSUB routine