Prev: A906 Up: Map Next: A928
A909: scan for next BASIC line
Used by the routines at A8A0 and A93B.
returns Y as index to [EOL]
A909 A2 00 LDX #$00 set alternate search character = [EOL]
A90B 86 07 STX $07 store alternate search character
A90D A0 00 LDY #$00 set search character = [EOL]
A90F 84 08 STY $08 save the search character
A911 A5 08 LDA $08 get search character
A913 A6 07 LDX $07 get alternate search character
A915 85 07 STA $07 make search character = alternate search character
A917 86 08 STX $08 make alternate search character = search character
A919 B1 7A LDA ($7A),Y get BASIC byte
A91B F0 E8 BEQ $A905 exit if null [EOL]
A91D C5 08 CMP $08 compare with search character
A91F F0 E4 BEQ $A905 exit if found
A921 C8 INY else increment index
A922 C9 22 CMP #$22 compare current character with open quote
A924 D0 F3 BNE $A919 if found go swap search character for alternate search character
A926 F0 E9 BEQ $A911 loop for next character, branch always
Prev: A906 Up: Map Next: A928