Mercurial > hg > Members > kono > nitros9-code
view lib/alib/asc_bin.as @ 2852:f2e92661b4c6 lwtools-port
Makefiles: Always use macro for lwar and rm
The LWAR macro is new, rm was still used in one place.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Fri, 12 Jul 2013 22:41:18 +0200 |
| parents | 03f26e88b809 |
| children |
line wrap: on
line source
****************************************** * * ASCII String to binary byte conversion * OTHER MODULES NEEDED: IS_TERMIN * ENTRY: X = start of string of binary digits (001101) * terminated by space, comma, CR or null. * EXIT: D = value * CC carry set if error (string too long, not binary digits) * Y = terminator or error pos. nam ASCII String to Binary Conversion ttl Assembler Library Module section .text ASC_BIN: clra msb/lsb=0 clrb pshs a,b,x ascbn1 ldb ,x+ get a digit lbsr IS_TERMIN see if space/comma/null/cr beq ascbn2 subb #$30 strip off ASCII bmi error less than "0".. cmpb #1 BHI error geater than "1" rorb get bit into carry ROL 1,S into LSB ROL ,S into MSB inca bump string length cmpa #16 BLS ascbn1 length ok, loop BRA error ascbn2 clrb = no errors tsta len = 0? bne done no, skip * error -- too long or null error CLR ,S force data to 0 CLR 1,S ORCC #1 set carry flag done leay -1,x end of string/error char PULS A,B,X,PC get data; restore & return endsect