Listing of file='AD2B.MAC;03' on disk='vmedia/disasm+mldp-sideB-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ASCII DECIMAL TO BINARY ; SPNOR EQU 3460H DIG EQU 3476H ADHLA EQU 3518H ENTRY AD2B AD2B: CALL SPNOR ;SKIP SPACES CALL DIG ;SEE IF DIGIT RNC LXI D,0 PUSH B ;SAVE BC AD2B10: INX H XCHG DAD H ; *2 PUSH H DAD H ; *4 DAD H ; *8 POP B DAD B ; *10 CALL ADHLA ;ADD IN NEXT DIGIT XCHG CALL DIG ;GET NEXT DIGIT JC AD2B10 POP B ;RESTORE BC MOV A,D ;TEST FOR ZERO ORA E STC ;INDICATE NUMBER FOUND RET END