Mercurial > hg > Members > kono > nitros9-code
diff lib/alib/print_asc.as @ 2783:03f26e88b809 lwtools-port
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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/alib/print_asc.as Sat Jan 26 17:18:24 2013 -0600 @@ -0,0 +1,26 @@ +*************************************** + +* Print binary number to standard out. + +* ENTRY: D=value to print + +* EXIT: CC carry set if error (from I$WritLn) +* B error code, if any + + nam Print # as ASCII String to Std. Out + ttl Assembler Library Module + + + section .text + +PRINT_ASC: + pshs a,x + leas -18,s buffer + tfr s,x + lbsr BIN_ASC convert to ascii + lbsr PUTS print to standard out + leas 18,s clean stack + puls a,x,pc return with error in B + + endsect +