home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 254a.lha / PCQ / Runtime / writecharray.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-10  |  386 b   |  29 lines
  1.  
  2. *    WriteCharray.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    Write a character array to a text file.
  6.  
  7.     SECTION    ONE
  8.  
  9.     XREF    _p%DOSBase
  10.     XREF    _LVOWrite
  11.     XREF    _p%padout
  12.  
  13.     XDEF    _p%writecharray
  14. _p%writecharray:
  15.  
  16.     move.l    d0,d2
  17.     move.l    6(sp),d1
  18.     move.w    4(sp),d0
  19.     ext.l    d0
  20.     sub.l    d3,d0
  21.     ble.s    1$
  22.     jsr    _p%padout
  23. 1$    move.l    _p%DOSBase,a6
  24.     jsr    _LVOWrite(a6)
  25.     rts
  26.  
  27.     END
  28.  
  29.