Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/print_hex.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 hex 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 | |
11 nam Print # as Hex String to Std Out | |
12 ttl Assembler Library Module | |
13 | |
14 | |
2782
aaba193af04f
Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2474
diff
changeset
|
15 section .text |
2474 | 16 |
17 PRINT_HEX: | |
18 pshs a,x | |
19 leas -6,s buffer | |
20 tfr s,x | |
21 lbsr BIN_HEX convert to hex | |
22 lbsr PUTS print to standard out | |
23 leas 6,s clean stack | |
24 puls a,x,pc return with error in B | |
25 | |
26 endsect | |
27 |