›; (c) 1995 by Kevin Atkinson››RETL=$D4›RETH=$D5›› ORG $4000›› PLA› PLA› STA RETH› PLA› STA RETL›; find the lenth of the string and›; record it to ICBLL (the buf len)›; (ICBLH is set to 0)›› LDY #0›GETLOP: LDA (RETL),Y› INY› CMP #32› BNE SPACE› BEQ GETLOP››SPACE: CMP #155› BEQ GETDNE› TYA ; store loc.› TAX ; for later› LDA #0› CMP #0› BEQ GETLOP››GETDNE: TXA› TAY› LDA (RETL),Y ; to avoid two› CMP #155 ; returns› BEQ GGTDNE› LDA #155› INY› STA (RETL),Y›GGTDNE: STY RETL ;loc to send to› ;basic› LDA #0› STA RETH›› RTS›› END $4000