home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / dev / e / dd_Modules.lha / dd_Modules / dd_system / geta4.e next >
Encoding:
Text File  |  1995-02-21  |  175 b   |  16 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC storea4()
  4.   LEA a4storage(PC),A0
  5.   MOVE.L A4,(A0)
  6. ENDPROC
  7.  
  8. EXPORT PROC geta4()
  9.   LEA a4storage(PC),A0
  10.   MOVE.L (A0),A4
  11. ENDPROC
  12.  
  13. a4storage:
  14.   LONG NIL
  15.  
  16.