Compucolor.org – Virtual Media

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