Mercurial > hg > Members > kono > nitros9-code

view lib/alib/fputc.a @ 2782:aaba193af04f lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated code to use lwasm/lwlink
author Boisy Pitre <boisy.pitre@nuance.com>
date Sat, 26 Jan 2013 08:26:31 -0600
parents 7d70b7e1cb21
children
line wrap: on
line source

***************************************

* Subroutine to print one character.

* OTHER MODULES NEEDED: none

* ENTRY: A=path
*        B=char to print

* EXIT:  CC carry set if error (from I$WritLn)
*        B  error code if any

 nam Output Single Char.
 ttl Assembler Library Module


 section .text

FPUTC:
 pshs b,x,y
 ldy #1 number of char to print
 tfr s,x point x at char to print
 os9 I$WritLn
 leas 1,s don't care about char anymore (B now = error)
 puls x,y,pc

 endsect