BASIC-16A

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

2998 * EXECUTE NEXT SOURCE STATEMENT 2999 * 3000 * 3001 * THIS ROUTINE WILL DETERMINE THE TYPE OF THE 3002 * STATEMENT POINTED TO BY SBP AND BRANCH TO THE PROPER 3003 * STATEMENT PROCESSER. THE POINTER SIP IS ASSUMED TO 3004 * BE SET TO POINT TO THE STATEMENT INDEX ENTRY FOR THE 3005 * STATEMENT BEING PROCESSED, UNLESS IT IS AN IMMEADIATE 3006 * MODE STATEMENT, IN WHICH CASE SIP SHOULD BE ZERO. 3007 * BEFORE THE STATEMENT IS EXECUTED, A CHECK FOR PROGRAM 3008 * BREAK IS MADE. IF THE BREAK FLAG, BRKF, IS SET, 3009 * THE MESSAGE 'XXXX BREAK' IS PRINTED, WHERE XXXX IS THE 3010 * CURRENT LINE NUMEER, AND THE POINTERS TO THE STATEMENT 3011 * ARE SAVED FOR USE BY A FUTURE CONTINUE COMMAND. 3012 * 3013 * 3014 * 3015 03213 140040 ESMT CRA INITIALIZE THE DUMMY VARIABLE NAME CELL 3016 03214 0 04 00052 STA DEFN X 3017 03215 0 10 00000 JST BRKC CHECK FOR PROGRAM BREAK 3018 03216 0 13 00103 IMA BRKF GET THE BREAK FLAG, ALSO CLEAR IT 3019 03217 100040 SZE X 3020 03220 0 01 03255 JMP ES01 GO PROCESS PROGRAM BREAKS 3021 03221 0 10 03011 JST IPDS INITIALIZE THE PUSH DOWN STACK 3022 03222 0 10 03047 JST GCHR LOOK AT 1ST CHAR OF STMT TO GET STMT TYPE 3023 03223 0 11 00404 CAS C23 TEST FOR IMPLIED 'LET' STATEMENT 3024 03224 0 01 03253 JMP ES02 YES...GO PROCESS IT 3025 03225 101000 NOP NO 3026 03226 0 04 00000 STA 0 SET STATEMENT BRANCH LIST POINTER 3027 03227 -1 01 03227 JMP* *,1 BRANCH TO THE PROPER STATEMENT PROCESSGR 3028 * 3029 03230 0 003274 DAC ASNM LET STATEMENT 3030 03231 0 004072 DAC READ READ STATEMENT 3031 03232 0 004066 DAC INPT INPUT STATEMENT 3032 03233 0 004177 DAC RSTR RESTORE STATEMENT 3033 03234 0 004211 DAC PRNT PRINT STATEMENT 3034 03235 0 003324 DAC GOTO GOTO STATEMENT 3035 03236 0 003365 DAC IF IF STATEMENT 3036 03237 0 003340 DAC ON ON STATEMENT 3037 03240 0 003472 DAC FOR FOR STATEMENT 3038 03241 0 003622 DAC NEXT NEXT STATEMENT 3039 03242 0 003720 DAC GOSB GOSUB STATEMENT 3040 03243 0 003737 DAC RTRN RETURN STATEMENT 3041 03244 0 003752 DAC CALL CALL STATEMENT 3042 03245 0 004425 DAC REM REM STATEMENT 3043 03246 0 004427 DAC EXIT STOP STATEMENT 3044 03247 0 004427 DAC EXIT END STATEMENT 3045 03250 0 004425 DAC REM DATA STATEMENT 3046 03251 0 004425 DAC REM DIM STATEMENT 3047 03252 0 004325 DAC DEF DEF STATEMENT