2474
|
1 ***************************************
|
|
2
|
|
3 * Print decimal 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 Decimal String to Std Out
|
|
12 ttl Assembler Library Module
|
|
13
|
|
14
|
|
15 psect PRINT_DEC,0,0,0,0,0
|
|
16
|
|
17 PRINT_DEC:
|
|
18 pshs a,x
|
|
19 leas -8,s buffer
|
|
20 tfr s,x
|
|
21 lbsr BIN_DEC convert to decimal
|
|
22 lbsr PUTS print to standard out
|
|
23 leas 8,s clean stack
|
|
24 puls a,x,pc return with error in B
|
|
25
|
|
26 endsect
|
|
27
|