Compucolor.org – Virtual Media

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	BMPCNT - BUMP A COUNT ON THE SCREEN
;
;	VALUES ON ENTRY:
;	   HL => LOW ORDER DIGIT OF THE COUNT
;
;	RETURNS NOTHING - COUNT UPDATED ON SCREEN
;
;	DESTROYS:
;	   A, HL
;
	ENTRY	BMPCNT

BMPCNT:	MOV	A,M
	ANI	15
	ORI	'0'
	INR	A
	CPI	'9'+1
	JNZ	BMP10
	MVI	M,'0'
	DCX	H
	DCX	H
	JMP	BMPCNT
BMP10:	MOV	M,A
	RET

	END