BASIC-16A

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

4025 * ADVANCE TO NEXT SOURCE LINE 4026 * 4027 * 4028 * CALLING SEQUENCE: 4029 * 4030 * JST ADVS 4031 * ......RETURN IF BEYOND END OF SOURCE PROGRAM 4032 * ......RETURN IF NOT PAST END OF PROGRAM 4033 * 4034 * THIS RQUTINE WILL UPDATE THE STATEMENT INDEX 4035 * POINTER (SIP), AND SET THE SOURCE BYTE POINTER (SBP) 4036 * TO POINT TO THE FIRST BYTE IN THE NEW LINE. 4037 * 4038 * 4039 04440 0 000000 ADVS DAC ** 4040 04441 0 02 00034 LDA SIP UPDATE THE STATEMENT INDEX POINTER 4041 04442 0 06 00376 ADD C2 (2 WORDS PER ENTRY) 4042 04443 0 04 00034 STA SIP X 4043 04444 0 11 00033 CAS SIT TEST AGAINST TABLE TOP 4044 04445 0 01 04454 JMP AV01 TAKE OUT OF SOURCE RETURN 4045 04446 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 4049 04447 0 04 00000 STA 0 SET INDEX FOR ACCESSING THE TABLE 4050 04450 1 02 00001 LDA 1,1 SET SBP FROM SECOND WORD OF ENTRY 4051 04451 0 04 00037 STA SBP X 4052 04452 0 12 04440 IRS ADVS BUMP THE RETURN POINTER 4053 04453 -0 01 04440 JMP* ADVS AND EXIT 4054 * 4055 04454 140040 AV01 CRA CLEAR SIP ON THE WAY OUT TO MAKE 4056 04455 0 04 00034 STA SIP THE MESSAGE '0 EXIT' WORK 4057 04456 -0 01 04440 JMP* ADVS AND LEAVE MOST HASTILY 4058 * 4059 * 4060 * 4061 EJCT