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 >
Wrap
Assembly Source File
|
1989-11-20
|
441b
|
29 lines
* WriteLn.asm (of PCQ Pascal runtime library)
* Copyright (c) 1989 Patrick Quaid
* Just write a line feed to a text file.
* On Entry, the top of the stack holds the file rec address
XREF _p%WriteText
XREF _p%IOResult
SECTION ONE
XDEF _p%WriteLn
_p%WriteLn
tst.l _p%IOResult ; just to be sure....
bne.s 1$
move.l 4(sp),a0
lea eoln,a1
moveq.l #1,d3 ; set up for call
jsr _p%WriteText ; write it
1$ rts
eoln dc.b 10,0
END