2474
|
1 ***************************************
|
|
2
|
|
3 * Subroutine to print one character.
|
|
4
|
|
5 * OTHER MODULES NEEDED: none
|
|
6
|
|
7 * ENTRY: A=path
|
|
8 * B=char to print
|
|
9
|
|
10 * EXIT: CC carry set if error (from I$WritLn)
|
|
11 * B error code if any
|
|
12
|
|
13 nam Output Single Char.
|
|
14 ttl Assembler Library Module
|
|
15
|
|
16
|
|
17 psect FPUTC,0,0,0,0,0
|
|
18
|
|
19 FPUTC:
|
|
20 pshs b,x,y
|
|
21 ldy #1 number of char to print
|
|
22 tfr s,x point x at char to print
|
|
23 os9 I$WritLn
|
|
24 leas 1,s don't care about char anymore (B now = error)
|
|
25 puls x,y,pc
|
|
26
|
|
27 endsect
|
|
28
|