0 REM INSTRING (C. KLUEPFEL, APR/85) : 1 : 2 REM 0 STATEMENTS, 1 FUNCTION 3 : 4 REM KEYWORD CHARACTERS: 6 5 : 6 REM KEYWORD ROUTINE LINE SER # 7 REM F/INSTR( INSTR 6210 080 8 : 9 REM ================================ 10 : 613 .ASC "INSTR": .BYTE $A8 1613 .WORD INSTR-1 6210 INSTR LDA #2 6212 JSR $A3FB 6214 JSR $AD9E 6216 JSR $B6A3 6218 STA T3 6220 PHA 6222 TXA 6224 PHA 6226 TYA 6228 PHA 6230 LDA T3 6232 JSR $B47D 6234 JSR $AEFD 6236 JSR $AD9E 6238 JSR $B6A3 6240 STX $22 6242 STY $23 6244 STA T3 6246 PLA 6248 STA $25 6250 PLA 6252 STA $24 6254 PLA 6256 STA T2 6258 STA T4 6260 DEC T4 6262 LDX #$AF 6264 JSR $79 6266 CMP #")" 6268 BEQ INS1 6270 JSR $AEFD 6272 TAX 6274 JSR $73 6276 INS1 JSR $AEF7 6278 SEC 6280 LDA T2 6282 BEQ INS6 6284 SBC T3 6286 ROR T6 6288 TAY 6290 LDA T3 6292 BEQ INS6 6294 LDA #0 6296 STA INSCTR 6298 CPX #$AF 6300 BEQ INS2 6302 CPX #$B0 6304 BEQ INS3 6306 CPX #$A8 6308 BEQ INS3 6310 JMP $AF08 6312 INS2 BIT T6 6314 BPL INS6 6316 STY T4 6318 INS3 LDY #0 6320 INS4 LDA ($24),Y 6322 CPX #$AF 6324 BNE INS9 6326 CMP ($22),Y 6328 BNE INS7 6330 INY 6332 CPY T3 6334 BNE INS4 6336 INS5 LDY INSCTR 6338 .BYTE $2C 6340 INS6 LDY #$FF 6342 INY 6344 JMP $B3A2 6346 INS7 INC INSCTR 6348 LDA T4 6350 CMP INSCTR 6352 BCC INS6 6354 INC $24 6356 BNE INS8 6358 INC $25 6360 INS8 BNE INS3 6362 INS9 LDY T3 6364 CPX #$A8 6366 BEQ INS11 6368 INS10 DEY 6370 CPY #$FF 6372 BEQ INS7 6374 CMP ($22),Y 6376 BNE INS10 6378 BEQ INS5 6380 INS11 DEY 6382 CPY #$FF 6384 BEQ INS5 6386 CMP ($22),Y 6388 BNE INS11 6390 BEQ INS7 6392 ; 6394 INSCTR .BYTE 0 6396 ;