Path: utzoo!attcan!uunet!seismo!sundc!pitstop!texsun!sun-barr!apple!rutgers!tut.cis.ohio-state.edu!ucbvax!VAXB.ASTON.AC.UK!WILDDJ
From: WILDDJ@VAXB.ASTON.AC.UK
Newsgroups: comp.sys.atari.st
Subject: AUXOUT.TOS (Re: CON -> RS232)
Message-ID: <8905121053.AA00643@ucbvax.Berkeley.EDU>
Date: 12 May 89 11:46:27 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 67


Here is the source code (assembler) and UUEncoded form of a program I've
written called AUXOUT.TOS which redirects _all_ TOS output to the RS232
port. Hope it is of some use to some of you out there!

- David

-------------------8<---------Cut-Here------------------------------------


; AUXOUT.TOS
; ==========

; Written by David Wild, 62 Lascelles Avenue, Withernsea,
; North Humberside, HU19 2EB
; JANET EMAIL to WILDDJ@UK.AC.ASTON.VAXB

; This is a dirty routine that redirects all screen text output to the
; RS232 port. It works by setting the con_state system variable to
; point to the BIOS routine to send a character to the AUX port.
; The auxout routine vector address was found from the BIOS listing
; in Atari ST internals.
; To test the program out, run it, then try double clicking on a non
; program file & showing it - it should be sent to AUX.


supexec 	equ	38		; XBIOS supexec call
con_state	equ	$4a8		; con_state sys. variable
auxout		equ	$FC08E4		; contents point to auxout

		; Install new vector

		move.l #install,-(sp)
		move.w #supexec,-(sp)	; Execute install routine
		trap #14		; in supervisor mode
		addq.l #8,sp
		clr.w -(sp)
		trap #1			; Exit

install		move.l auxout,con_state	; Make con_state point to
		rts			; auxout
-------------------8<---------Cut-Here------------------------------------

The UUEncoded version of AUXOUT.TOS....

-------------------8<---------Cut-Here------------------------------------
table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]N_
begin 644 AUXOUT.TOS
M8!H    >                             "\\    $C\\ "9.3E"/0F=.a
202/Y /P(Y   !*A.=0    ( a
 a
end
-------------------8<---------Cut-Here------------------------------------

+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
                     ! JANET   wilddj@uk.ac.aston.vaxb                         !
***      *  *     *  ! BITNET  wilddj@vaxb.aston.ac.uk                         !
*  *     *  *  *  *  ! ARPA    wilddj%vaxb.aston.ac.uk@cunyvm.cuny.edu         !
*  *     *  *  *  *  ! UUCP   ...psuvax1!cunyvm.bitnet!vaxb.aston.ac.uk!wilddj !
*  * *   *  *  *  *  !---------------------------------------------------------+
***   ***    ** **   ! Home Address: 62 Lascelles Avenue, Withernsea, North    !
                     !               Humberside, HU19 2EB, England             !
   David J  Wild     ! University  : Dept of Computer Science,                 !
                     !               Aston University, Birmingham, England     !
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-