🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.amiga.tech
Article #10952

Re: Simple questions/Modula-2

#10952
From: John Schultz
Date: Sat, 14 Jan 1989 04:36
20 lines
992 bytes


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.
Technical Details
Message-ID: <50@sdcc10.ucsd.EDU>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!attcan!uunet!lll-winken!ames!ucsd!sdcc6!sdcc10!cs161agc
References: <341@csd4.milw.wisc.edu> <48@sdcc10.ucsd.EDU>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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