TITLE 'CONVERTS ASCII HEX IN A TO BINARY' PUBLIC CATH CSEG ;ENTER WITH ASCII HEX IN AL, LEAVE WITH BINARY OR BLANK IF NON ;HEX ASCII CHARACTER CATH: CMP AL,'0'-1 JC BLOUT CMP AL,'9'+1 JNC ALPHA SUB AL,'0' RET ALPHA: CMP AL,'A'-1 JC BLOUT ;BAD CMP AL,'G' JNC BLOUT SUB AL,'1' ;CONVERT TO BINARY RET BLOUT: MOV AL,' ' RET END