Embedded Strings in your Code Space

[Darrel Taylor]

How dare you fix my program while I'm still posting that you were right!

Ha ha, Good job!
<br>

[mister_e]

OK as i will probably never happen again, i'll write the date/month/year in my notebook with the note

once in my life, i beat Mr Darrel Taylor
THE Canadian 1
United State 0

Just kidding Darrel I learn a lot from all of your previous posts.

Keep up the good work !!!

[Darrel Taylor]

Oh shoot,

Still has that "Padding the string" problem.

010D   26F9 1073 3A72 00255 String1 da "My string",13,10,"blah blah",13,10,125,126,127,0
       34EE 3380 000D
       000A 316C 30E8
       1062 3661 3400
       000D 000A 007D
       007E 007F 0000

Sendstring still terminates early if the string has an ODD number of charaters.

Almost there.

P.S.

THE Canadian 0.99

<br>

[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

[mister_e]

hmmpff... is it me or

    IF TwoChars <> 0 then

is unecesary since we check both character anyway???

[Darrel Taylor]

But it has to stop sometime.

When you add a final ,0 to the end of the line, DA generates a 0x0000 word. So only if the whole word is 0 will it consider it the end of the "string".

Any other 0 characters within the "string" are ignored.
<br>

[mister_e]

Got it..

StringOut:  ' Send the string out via Hserout
    Readcode Addr, TwoChars       ' Get the 14 bit packed characters
    IF TwoChars 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
    ELSE
        Addr=Addr+1
        Goto StringOut
    ENDIF
return

[mister_e]

NARGH forget the above. It depend on the previous and the next string... wich doesn't happen with my first version with DT...mmm