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
|
|
15 psect PRINT_HEX,0,0,0,0,0
|
|
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
|