Re: More HDB-DOS/16 goodies

Juan Castro via Coco <coco-uNHYcr1XS/wmlAP/[email protected]>
Newsgroups gmane.comp.hardware.tandy.coco
Message-ID <CAGhS81HZZeXbWKZNQ6saLPi+O6FxD+-6soB_9pZxSYk_5yR9Cg@mail.gmail.com>
Well, I said I was gonna do it, and I did it. Block LPEEK and LPOKE work.
It's like DSKI$ and DSKO$, but for memory!

- LPEEK$(A, N) gets a string with the N bytes starting at A (max 255 bytes
as per string limitation)
- LPOKE A, X$ pokes all characters of X$ consecutively starting at address A


Juan Castro
Enviado do meu Olivetti Programma 101
http://retropolis.com.br


Em ter., 3 de jun. de 2025 às 20:32, Juan Castro <[email protected]>
escreveu:

> I repurposed LPOKE and LPEEK thusly: they became a 16-bit version of PEEK
> and POKE. So, instead of
>
> W=256*PEEK(A)+PEEK(A+1)
>
> you just
>
> W=LPEEK(A)
>
> Conversely, LPOKE A,X will place the MSB of X in address A and the LSB of
> X in A+1.
>
> As usual, get it at
>
> https://www.dropbox.com/scl/fo/9p5ydq5hqgp4b1fbqyyif/AKnngotPgk1PLUm6kw0nn5U?rlkey=pxtfum7dzwno0ej42bfb8ucrb&st=duyykgkj&dl=0
>
> I intend to do more LPEEK/LPOKE shenanigans. My plan:
> - LPEEK$(A, N) gets a string with the N bytes starting at A (max 255 bytes
> as per string limitation)
> - LPOKE A, X$ pokes all characters of X$ consecutively starting at address
> A
>
> Thoughts?
>
> Juan Castro
> Enviado do meu Olivetti Programma 101
> http://retropolis.com.br
>

-- 
Coco mailing list
[email protected]
https://pairlist5.pair.net/mailman/listinfo/coco
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.