Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!columbia!rutgers!ames!ucbcad!ucbvax!mtus5.BITNET!JEMCCABE
From: JEMCCABE@mtus5.BITNET
Newsgroups: comp.sys.atari.st
Subject: BITNET mail follows
Message-ID: <8701130531.AA00196@ucbvax.Berkeley.EDU>
Date: Tue, 13-Jan-87 00:31:53 EST
Article-I.D.: ucbvax.8701130531.AA00196
Posted: Tue Jan 13 00:31:53 1987
Date-Received: Tue, 13-Jan-87 06:44:56 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: JEMCCABE%MTUS5.BITNET@forsythe.stanford.edu
Organization: The ARPA Internet
Lines: 35

Date: 13 January 87 00:30-EST
From: JEMCCABE@MTUS5
To: INFO-ATARI16@SCORE.STANFORD.EDU
Subject: BITNET mail follows

Subject:  OSS Personal Pascal PEEKing

Is there a way to PEEK a memory address in Personal Pascal?  I asked
a question a while back about detecting the DCD on the RS232, and
someone was kind enough to strenthen my own guesses about how to do
it into solid assurance.  It consists of manipulating a byte
read from $FFFA01 to check the bits.  However, there is one
problem with this.  To read this address, the 68000 must be
in Supervisor mode, not the normal User mode.  To put the ST in
Supervisor mode, one can simply call GEMDOS function super().
(GEMDOS 32)  However, I unfortunately have yet another problem.
Personal Pascal doesn't have any PEEK function or MEM array like
Turbo Pascal does.  I have no way to find out how to peek it!
This really peeves me, because I know how to get the complex
stuff out of the way (entering and exiting Supervisor Mode), but
I can't perform even a simple PEEK!  This is a really important
operation, so I'm pretty sure someone out there must know how
I can PEEK($FFFA01)...  I think there may be a way to fool
Pascal into peeking with variable records and pointers, but I'm
still unknowledgable when it comes to pointers at this point.
Does anyone know how to do this?  I don't have an assembler, so
I can't write any EXTERNAL routines to INCLUDE in compilation,
and I don't know 68000 machine language anyway...  Please, if
you know how to do this, post the answer as soon as possible!
I need to know the answer very quickly...  Thanks!

(And thanks to Simon Poole for reassuring my guess...)

                                             Jim McCabe
                                             JEMCCABE@MTUS5.BITNET