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