Mercurial > hg > Members > kono > nitros9-code

view lib/alib/is_xdigit.as @ 2852:f2e92661b4c6 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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

*****************************************

* See if character in "B" is a hexdigit 0..9, A..F or a..f

* OTHER MODULES NEEDED: IS_DIGIT

* ENTRY: B=character to test

* EXIT: CC zero=1 if hex digit, 0 if not

 nam Is Char a Hex Digit?
 ttl Assembler Library Module


 section .text


IS_XDIGIT:
 pshs b
 lbsr IS_DIGIT 
 beq exit digits are okay
 cmpb #'A 
 blo exit exit, zero not set
 cmpb #'f
 bhi exit zero not set
 cmpb #'a 
 bhs yes
 cmpb #'F
 bhi exit
 
yes
 orcc #%00000100 set zero

exit
 puls b,pc

 endsect