Embedded Strings in your Code Space

[Darrel Taylor]

Maybe this...

StringOut:  ' Send the string out via Hserout
    Readcode Addr, TwoChars       ' Get the 14 bit packed characters
    IF TwoChars <> 0 then
        Char = TwoChars >> 7      ' Separate first char
        if Char then              ' Look for Null char, Don't send if found
           hserout [Char]         ' Send first char
        endif

        Char = TwoChars & $7F     ' Separate second char
        if Char then              ' Look for Null char, Don't send if found
           hserout [Char]         ' Send the second char
       endif
       Addr = Addr + 1            ' Point to next two characters
       goto StringOut	          ' Continue with rest of the string
    ENDIF
return