Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

37 lines
1.2 KiB
C
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/***************************************************************************
*
* _ l s t o u t F u n c t i o n
* -------------------------------
*
* Function "_lstout" is called to perform "write" operations to the
* list device.
*
* Calling Sequence:
* ret = _lstout(buffer,count,func);
*
* Where:
* buffer -> the output buffer (byte 0 is count)
* ret = count on return
*
****************************************************************************/
#include "portab.h"
#include "osif.h"
WORD _lstout(buffer) /***************************/
REG BYTE *buffer; /* -> 1st char output */
{ /***************************/
REG WORD count; /* = # bytes to xfer */
WORD xcount; /* save area for count */
/* */
xcount = count = (0xFF & *buffer++); /* Copy for later */
/* */
while(count-- > 0) /* Until all written */
__OSIF(LSTOUT,*buffer++); /* Output next character */
return(xcount); /* return original count */
} /***************************/
al count */
} /***************************/
al count */
} /***************************/