Compucolor.org – Virtual Media

Listing of file='B2AD.MAC;01' on disk='vmedia/disasm+mldp-sideB-sector.ccvf'

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

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

	ENTRY	B2AD

B2AD:	CALL	SAVE
	MVI	B,0
B2AD10:	LXI	H,10
	CALL	DIVHD
	XCHG
	MOV	A,L
	ADI	30H
	PUSH	PSW
	INR	B
	MOV	A,E
	ORA	D
	JNZ	B2AD10
B2AD20:	POP	PSW
	CALL	CO
	DCR	B
	JNZ	B2AD20
	RET

	END