home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d183
/
pcq.lha
/
PCQ
/
Runtime
/
writebool.asm
< prev
next >
Wrap
Assembly Source File
|
1989-02-26
|
601b
|
40 lines
* WriteBool.asm (of PCQ Pascal runtime library)
* Copyright (c) 1989 Patrick Quaid
* This writes boolean values. The write routines are so much
* simpler than the read routines....
SECTION ONE
XREF _p%DOSBase
XREF outbuffer
XREF _LVOWrite
XREF _p%padout
XDEF _p%writebool
_p%writebool:
tst.b d0
beq.s 1$
move.l #TrueText,d2
moveq #4,d3
bra.s 2$
1$ move.l #FalseText,d2
moveq #5,d3
2$ move.l 6(sp),d1
move.w 4(sp),d0
ext.l d0
sub.l d3,d0
ble.s 3$
jsr _p%padout
3$ move.l _p%DOSBase,a6
jsr _LVOWrite(a6)
rts
SECTION TWO,DATA
TrueText dc.b 'TRUE'
FalseText dc.b 'FALSE'
END