Mercurial > hg > Members > kono > nitros9-code
view lib/alib/bin_asc.a @ 2772:0a3f4d8ea6d5
Found ENDC in wrong location in dwread.asm and dwwrite.asm. Corrected.
Moved the native 6309 code in dwread.asm and dwwrite.asm into the H6309 labeled area and changed IFEQ H6309 to IFNE H6309. Also moved the 57600bps 6809 code to the default location. This change had been done in the old dwread.asm and dwwrite.asm files to make it easier to follow. Though these two files were overwritten from the HDBDOS project dwread.asm and dwwrite.asm files. So this conversion needed to be done again so it made the source easier to follow.
| author | drencor-xeen |
|---|---|
| date | Wed, 23 Jan 2013 12:36:55 -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