
 1000  *---------------------------------
 1010  *      &GOSUB <EXPRESSION>
 1020  *---------------------------------
 1030  TKN.GOSUB  .EQ $B0
 1040  *---------------------------------
 1050  AS.SYNCHR  .EQ $DEC0
 1060  AS.MEMCHK  .EQ $D3D6
 1070  AS.TXTPTR  .EQ $B8,B9
 1080  AS.LINNUM  .EQ $50,51
 1090  AS.FRMNUM  .EQ $DD67
 1100  AS.GOTO1   .EQ $D941
 1110  AS.NEWSTT  .EQ $D7D2
 1120  AS.GETADR  .EQ $E752
 1130  *---------------------------------
 1140         .OR $300
 1150  VARIABLE.GOSUB
 1160         LDA #TKN.GOSUB  CHECK IF &GOSUB
 1170         JSR AS.SYNCHR
 1180         LDA #3          CHECK IF ROOM ON STACK
 1190         JSR AS.MEMCHK
 1200         LDA AS.TXTPTR+1
 1210         PHA             STACK TXTPTR
 1220         LDA AS.TXTPTR
 1230         PHA
 1240         LDA AS.LINNUM+1
 1250         PHA             STACK CURRENT LINE NO.
 1260         LDA AS.LINNUM
 1270         PHA
 1280         LDA #TKN.GOSUB  MARK STACK
 1290         PHA
 1300         JSR AS.FRMNUM   EVALUATE FORMULA
 1310         JSR AS.GETADR   CONVERT TO INTEGER
 1320         JSR AS.GOTO1    USE GOTO CODE
 1330         JMP AS.NEWSTT

