Compucolor.org – Virtual Media

Listing of file='INCCNT.MAC;02' on disk='vmedia/laser_gun_joystick-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	INCCNT - INCREMENT AN ASCII COUNT
;
;	VALUES ON ENTRY:
;	   HL => LOW ORDER DIGIT OF THE COUNT
;	NOTE: SUFFICIENT SPACE MUST BE ALLOCATED FOR THE
;		NUMBER BECAUSE IT WILL GROW INDEFINITELY.
;
;	RETURNS NOTHING - COUNT UPDATED
;
;	DESTROYS:
;	   A, HL
;
	ENTRY	INCCNT

INCCNT:	MOV	A,M
	ANI	15	;FORCE IT TO BE ASCII
	ORI	'0'
	INR	A
	CPI	'9'+1
	JNZ	INC10
	MVI	M,'0'
	DCX	H
	JMP	INCCNT
INC10:	MOV	M,A
	RET

	END