Mercurial > hg > Members > kono > nitros9-code

comparison lib/alib/print_asc.as @ 2783:03f26e88b809 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed files and setup for lwasm/lwlink work
author Boisy Pitre <boisy.pitre@nuance.com>
date Sat, 26 Jan 2013 17:18:24 -0600
parents lib/alib/print_asc.a@aaba193af04f
children
comparison
equal deleted inserted replaced
2782:aaba193af04f 2783:03f26e88b809
1 ***************************************
2
3 * Print binary number to standard out.
4
5 * ENTRY: D=value to print
6
7 * EXIT: CC carry set if error (from I$WritLn)
8 * B error code, if any
9
10 nam Print # as ASCII String to Std. Out
11 ttl Assembler Library Module
12
13
14 section .text
15
16 PRINT_ASC:
17 pshs a,x
18 leas -18,s buffer
19 tfr s,x
20 lbsr BIN_ASC convert to ascii
21 lbsr PUTS print to standard out
22 leas 18,s clean stack
23 puls a,x,pc return with error in B
24
25 endsect
26