[Coco] RS DOS RS232 application?

Brett Gordon beretta42 at gmail.com
Fri Apr 15 01:35:46 EDT 2016


1+ for the quick BASIC hack.

Brett M Gordon
On Apr 15, 2016 12:17 AM, "Dave Philipsen" <dave at davebiz.com> wrote:
>
> Here's something you could start out with.  I'm just doing this on the
fly without testing but you should be able to tweak it if it doesn't work:
>
> 10 POKE &HFF69,0 : 'RESET RS232 PAK
> 20 POKE &HFF6A,9 : 'ENABLE XMTR/RCVR, NO PARITY
> 30 POKE &HFF6B,?? : 'SET BIT RATE/DATA FORMAT PER YOUR SPECS (replace ??
with correct value)
> 100 IF PEEK (&HFF69) AND &H10 THEN R=PEEK (&HFF68) : PRINT CHR$ (R); :
'CHECK RECV REGISTER & PRINT
> 110 T$=INKEY$ : 'CHECK KEYBOARD
> 120 IF T$ <> "" THEN IF PEEK (&HFF69) AND &H08 THEN POKE &HFF68, ASC
(T$): 'XMT DATA IF ANY FROM KYBD
> 130 GOTO 100
>
>
> http://www.cocopedia.com/wiki/index.php/Deluxe_RS232_Pak
>


More information about the Coco mailing list