Re: DEF USR and strings?

Allen Huffman via Coco <coco-uNHYcr1XS/wmlAP/[email protected]> Sat, 1 Nov 2025 10:26:03 -0500

Newsgroups	gmane.comp.hardware.tandy.coco
Message-ID	<[email protected]>

> On Oct 31, 2025, at 4:43 PM, Sean Conner via Coco <[email protected]> wrote:
> 
>  Based on all that, I think the best method might be (completely untested):
> 
> 	mycode		cmpx	#mycode
> 			beq	called_by_exec
> 		; otherwise, assume called by USR/USRn

Indeed. Needing to know the version of BASIC is a hassle.

I did a test:

start       cmpx	    #start  ;* Called by EXEC?
            beq         yes
            leax        nomsg,pcr
            lbsr        print
            rts
yes         leax        yesmsg,pcr
            lbsr        print
            rts

nomsg       fcc         "YES"
            fcb         0

yesmsg      fcc         "NO"
            fcb         0

If I EXEC &H3E00 is prints “NO”.

Then if I EXEC (it remembers that last address) is prints “YES”.

Almost.

I did a STX 1024 so I could PEEK the value from BASIC.

With EXEC xxxx, it has the xxxx value there.

With just EXEC after that, it has ABAB.

That seems to be the address of the EXEC token in Color BASIC.

ABAB A5 3E FDB EXEC EXEC A2

I’ll check that 9D location next.

Thanks for the ideas!

		- A

-- 
Coco mailing list
[email protected]
https://pairlist5.pair.net/mailman/listinfo/coco