TIP: Click on subject to list as thread! ANSI
echo: cis.languages
to: Richard Ries 76057,3534
from: Kevin Darling (UG Pres) 76703,4227
date: 1990-10-21 01:37:01
subject: #7608-RMA woes

#: 7621 S3/Languages
    21-Oct-90  01:37:01
Sb: #7608-RMA woes
Fm: Kevin Darling (UG Pres) 76703,4227
To: Richard Ries 76057,3534

Rich - basic09 subroutines are, well, subroutines... not programs.  That's
the key.  Basic09/runb executes a subroutine like it was part of its own
code.  Therefore your F$Exit was actually run by basic09 and so basic09
exited.   I know you said "rts" didn't work... dunno why.  Worked here
with the same program for me:

 psect beep,$21,$81,revs,0,0,entry

I$Write equ $8A
F$Exit  equ $06

entry
 leax char,pc
 lda  #1
 ldy  #1
 os9  I$Write
 clrb
 rts

char fcb $07
 ends

*******************
PROCEDURE Beeptest
RUN beep
END

However, you'll need guidance on passing parameters when you get to that
kind of thing... let me know. - kev

SOURCE: compuserve via textfiles.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.