Mercurial > hg > Members > kono > nitros9-code

view lib/alib/fputc.as @ 2784:2594295f9cc7 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged Drencor's work
author Boisy Pitre <boisy.pitre@nuance.com>
date Sat, 26 Jan 2013 17:19:06 -0600
parents 03f26e88b809
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