Mercurial > hg > Members > kono > nitros9-code
view lib/alib/bin_asc.a @ 2668:07441dfebc27 lwtools-port
Make tocgen build with lwasm
lwasm does not treat a trailing colon as part of the symbol name. Removed
trailing colons on symbol references.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Sun, 10 Jun 2012 13:35:44 -0600 |
| parents | 7d70b7e1cb21 |
| children | aaba193af04f |
line wrap: on
line source
****************************************** * Binary word to ASCII string conversion * OTHER MODULES NEEDED: none * ENTRY: D = binary value * X = buffer for 16 bit number * EXIT: all registers (except cc) preserved nam Convert # to Ascii String ttl Assembler Library Module psect BIN_ASC,0,0,0,0,0 BIN_ASC: pshs a,b,x save registers pshs a,b save data again ldb #16 total bits to convert andcc #%11111110 clear CARRY to start binas1 lda #'0 get ASCII 0 rol 1,S get hi bit in LSB to carry rol ,S and into MSB; is it 1 or 0? bcc binas2 0, skip inca get ASCII 1 binas2 sta ,x+ put it in the buffer decb done all bits? bne binas1 no, loop clr ,x mark end of string leas 2,s clean up puls a,b,x,pc restore & return endsect