Reverse and inverse scrolly.

[Shaun_B]

Hi guys,

Here's a way of reversing a string (I put a method of inversing the characters as well in there):

zx81day.png (14.16 KiB) Viewed 3031 times

To inverse each character, you can do it in one line, link this:

Code: Select all

LET A=CODE A$(X)+(128*(CODE A$(X)<=127))-(128*(CODE A$(X)>=128))

Then you simply:

Code: Select all

LET MYSTR$=MYSTR$+CHR$ A

Thanks to Dr Beep for help.

The assembly at the top is Bean's disable break routine here.

Regards,

Shaun.

[XavSnap]

Thanks to Dr Beed for help.

Dr Beep!


ASM reversed chars.:

Code: Select all

http://www.sinclairzxworld.com/viewtopic.php?f=5&t=2239

[Shaun_B]

I'm generally only interested in high level languages but thanks for the hint.

If I knew anything about low-level stuff I would suggest a simple OR would convert normal ZX81 chars to inversed equivalent, but I don't.

Regards,

Shaun.

[XavSnap]

Ok!
Sorry form my low-level.

[Shaun_B]

No problems with low level, I just don't get it really, so sorry for my dumbness.

Regards,

Shaun.