BASIC-16A

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

4062 * STATEMENT SEARCH ROUTINE 4063 * 4064 * 4065 * CALLING SEQUENCE: 4066 * 4067 * LDA CODE A CONTAINS 8 BIT STATEMENT IDENTIFIER 4068 * JST SSR 4069 * ......RETURN IF STMT NOT FOUND 4070 * ......RETURN IF STMT FOUND 4071 * 4072 * THE STATEMENT IDENTIFIER IS THE NUMBER CORESPONDING TO 4073 * THE STATEMENTS NAME IS THE RESERVED IDENTIFIER LIST. THE 4074 * SEARCH IS STARTED AT THE LINE FOLLOWING THE LINE POINTED TO BY 4075 * THE STATEMENL INDEX POINTER, SIP. 4076 * 4077 * 4078 04457 0 000000 SSR DAC ** 4079 04460 0 04 00100 STA TMP3 SAVE THE TARGET 4080 04461 0 10 04440 SSR1 JST ADVS ADVANCE TO NEXT STATEMENT 4081 04462 -0 01 04457 JMP* SSR PAST END OF RROGRAM...RETURN 4082 04463 0 10 03047 SSR2 JST GCHR GET STMT IDENTIFIER 4083 04464 0 05 00100 ERA TMP3 COMPARE WITH SEARCH TARGET 4084 04465 101040 SNZ SKIP IF NOT A MATCH 4085 04466 0 01 04473 JMP SSR3 FOUND STMT OF TYPE WE'RE LOOKING FOR !!! 4086 04467 0 10 04540 JST SES SCAN FOR END OF CURRENT STATEMENT 4087 04470 0 11 00401 CAS C215 TEST FOR END OF PHYSICAL LINE 4088 04471 0 01 04463 JMP SSR2 NO....TEST NEXT STMT ON THIS LINE 4089 04472 0 01 04461 JMP SSR1 YES...GO LOOK AT NEXT LINE 4090 04473 0 12 04457 SSR3 IRS SSR BUMP RETURN POINTER TO RETURN 2 4091 04474 -0 01 04457 JMP* SSR AND EXIT 4092 * 4093 * 4094 * 4095 EJCT