home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff339.lzh / PCQ / Runtime.lzh / Runtime / Writers / writeln.asm < prev    next >
Assembly Source File  |  1989-11-20  |  441b  |  29 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. *    On Entry, the top of the stack holds the file rec address
  8.  
  9.     XREF    _p%WriteText
  10.     XREF    _p%IOResult
  11.  
  12.     SECTION    ONE
  13.  
  14.     XDEF    _p%WriteLn
  15. _p%WriteLn
  16.  
  17.     tst.l    _p%IOResult    ; just to be sure....
  18.     bne.s    1$
  19.     move.l    4(sp),a0
  20.     lea    eoln,a1
  21.     moveq.l    #1,d3        ; set up for call
  22.     jsr    _p%WriteText    ; write it
  23. 1$    rts
  24.  
  25. eoln    dc.b    10,0
  26.  
  27.     END
  28.  
  29.