Compucolor.org – Virtual Media

Listing of file='B2AD.MAC;01' on disk='vmedia/asm_utilities_macros-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	BINARY TO ASCII DECIMAL
;

CO	EQU	3392H
DIVHD	EQU	3581H
SAVE	EQU	3FD0H

	ENTRY	B2AD

B2AD:	CALL	SAVE	;SAVE REGISTERS
	MVI	B,0	;CLEAR DIGIT COUNTER
B2AD10:	LXI	H,10	;DIVIDE BY 10
	CALL	DIVHD
	XCHG
	MOV	A,L	;GET DIGIT
	ADI	30H	;CONVERT TO ASCII
	PUSH	PSW	;SAVE ON STACK
	INR	B	;INCREMENT DIGIT COUNT
	MOV	A,E	;SEE IF NOTHING LEFT
	ORA	D
	JNZ	B2AD10
B2AD20:	POP	PSW	;PRINT DIGITS IN REVERSE ORDER
	CALL	CO
	DCR	B
	JNZ	B2AD20
	RET

	END