home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / DATASEGM.M < prev    next >
Encoding:
Text File  |  1994-01-14  |  458 b   |  25 lines
  1. MODULE DataSegment;
  2.  
  3. (*
  4.  * Lädt Ptr auf DATA-Segment. Sollte mit "-D"-Option gelinkt werden.
  5.  *)
  6.  
  7. FROM PrgCtrl IMPORT GetBasePageAddr;
  8. FROM SysTypes IMPORT PtrBP;
  9. FROM SYSTEM IMPORT ADDRESS, ASSEMBLER;
  10.  
  11. VAR bp: PtrBP;
  12.     dataPtr: ADDRESS;
  13.     dataLen: LONGCARD;
  14.  
  15. BEGIN
  16.   GetBasePageAddr (bp);
  17.   dataPtr:= bp^.p_dbase;
  18.   dataLen:= bp^.p_dlen;
  19.   ASSEMBLER
  20.     MOVE.L  dataPtr,A0
  21.     MOVE.L  dataLen,D0
  22.     BREAK
  23.   END
  24. END DataSegment.
  25.