home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 254a.lha / PCQ / Runtime / writeln.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-10  |  330 b   |  26 lines
  1.  
  2. *    WriteLn.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    Just write a line feed to a text file.
  6.  
  7.     SECTION    ONE
  8.  
  9.     XREF    _p%DOSBase
  10.     XREF    _LVOWrite
  11.  
  12.     XDEF    _p%writeln
  13. _p%writeln
  14.  
  15.     move.l    #eoln,d2
  16.     moveq    #1,d3
  17.     move.l    4(sp),d1
  18.     move.l    _p%DOSBase,a6
  19.     jsr    _LVOWrite(a6)
  20.     rts
  21.  
  22.     SECTION    TWO
  23. eoln    dc.b    10,0
  24.     END
  25.  
  26.