Previous File Previous Page Single Page Next Page Next File

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

4160 * SCAN FOR END OF STATEMENT 4161 * 4162 * CALLING SEQUENCE: 4163 * 4164 * 4165 * JST SES 4166 * ......RETURN A CONTAINS STMT DELIMITER (: OR C/R) 4167 * 4168 * THIS ROUTINE WILL READ THROUGH THE CURRENT 4169 * SOURCE LINE UNTIL EITHER A : OR C/R IS DETECTED. 4170 * 4171 * 4172 04540 0 000000 SES DAC ** 4173 04541 0 10 03047 JST GCHR GET NEXT CHARACTER OF STMT 4174 04542 0 10 03173 JST DLCK TEST FOR : OR C/R 4175 04543 100000 SKP NO 4176 04544 -0 01 04540 JMP* SES YES...EXIT 4177 04545 0 11 00455 CAS INTF TEST FOR INTEGER CONSTANT 4178 04546 100000 SKP NO 4179 04547 0 01 04554 JMP SES1 YES...GO SKIP 2 CHARACTERS 4180 04550 0 05 00456 ERA RELF TEST FOR REAL CONSTANT 4181 04551 100040 SZE X 4182 04552 0 01 04541 JMP SES+1 NO...GO BACK TO LOOK AT NEXT CHARACTER 4183 04553 0 10 03077 JST GCPK SKIP TWO CHARACTERS 4184 04554 0 10 03077 SES1 JST GCPK DITTO 4185 04555 0 01 04541 JMP SES+1 GO LOOK AT THE NEXT CHARACTER 4186 * 4187 * 4188 * 4189 EJCT
Previous File Previous Page Single Page Next Page Next File