10 *= $0600¢20 PLA ; no. of bytes¢30 PLA ; save start address¢40 STA 1 ; of string that holds¢50 PLA ; the list of items¢60 STA 0¢70 PLA ; get & store the¢80 STA 3 ; item no. to search¢90 PLA ; in a counter¢0100 STA 2¢0110 LDA #1¢0120 STA 212 ; set BEGIN=1¢0130 LDY #0¢0140 STY 213¢0150 LDA (0),Y ; get a char from string¢0160 BPL 1579 ; is it inverse?¢0170 DEC 2 ; yes, decrement counter¢0180 BNE 1579¢0190 LDA 3¢0200 BNE 1577 ; found item yet?¢0210 INY ; yes, now find length¢0220 LDA (0),Y ;of item and¢0230 BPL 1569¢0240 STY 1 ; store in loc. 1¢0250 RTS ; return to BASIC¢0260 DEC 3 ; haven't found item yet, so¢0270 INC 212 ; BEGIN=BEGIN+1¢0280 BNE 1585¢0290 INC 213¢0300 INC 0 ; point to next¢0310 BNE 1557 ; char in string¢0320 INC 1¢0330 BNE 1557 ; branch!¢
