Path: utzoo!utgpu!attcan!uunet!lll-winken!ames!ucsd!sdcc6!sdcc10!cs161agc
From: cs161agc@sdcc10.ucsd.EDU (John Schultz)
Newsgroups: comp.sys.amiga.tech
Subject: Re: Simple questions/Modula-2
Message-ID: <50@sdcc10.ucsd.EDU>
Date: 14 Jan 89 04:36:10 GMT
References: <341@csd4.milw.wisc.edu> <48@sdcc10.ucsd.EDU>
Reply-To: cs161agc@sdcc10.ucsd.edu.UUCP (John Schultz)
Organization: University of California, San Diego
Lines: 20




In article <48@sdcc10.ucsd.EDU> cs161agc@sdcc10.ucsd.edu.UUCP (John Schultz) writes:

[M2 joystick example deleted]

  While posting this code to the net, I removed absolute addresses
(they're still there, but disguised).  In doing so, I left out three
ADR statements, so the initialization code _should_ read:

BEGIN
  buttonloc := ADDRESS(ADR(ciaa^.pra));
  WITH custom^ DO
    joydat[0] := bitsetptr(ADR(joy0dat));
    joydat[1] := bitsetptr(ADR(joy1dat));
  END; 
END joystick.

Also, ADR must be imported from SYSTEM as well.