Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/print_asc.as @ 3295:6b7a7b233925 default tip
makefile: Allow PORTS with level1/2 mix
https://sourceforge.net/p/nitros9/feature-requests/10/
author | Tormod Volden <debian.tormod@gmail.com> |
---|---|
date | Tue, 19 Apr 2022 18:12:17 +0200 |
parents | 03f26e88b809 |
children |
rev | line source |
---|---|
2474 | 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 | |
2782
aaba193af04f
Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2474
diff
changeset
|
14 section .text |
2474 | 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 |