home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / e / e_v3.3a / src.lha / Src / Pd / threads / modules / geta4.e next >
Encoding:
Text File  |  1995-04-11  |  247 b   |  18 lines
  1. -> geta4.e - store and get the global data pointer kept in register A4
  2.  
  3. OPT MODULE
  4.  
  5. EXPORT PROC storea4()
  6.   LEA a4storage(PC),A0
  7.   MOVE.L A4,(A0)
  8. ENDPROC
  9.  
  10. EXPORT PROC geta4()
  11.   LEA a4storage(PC),A0
  12.   MOVE.L (A0),A4
  13. ENDPROC
  14.  
  15. a4storage:
  16.   LONG NIL
  17.  
  18.