Compucolor.org – Virtual Media

Listing of file='MSEC50.MAC;04' on disk='vmedia/eprom_programmer-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	50 MILLISECOND DELAY ROUTINE
;
;	VALUES ON ENTRY ARE IRRELEVANT.
;	ALL REGISTERS ARE PRESERVED EXCEPT A.
;

STIM	EQU	63	;FUDGE FACTOR FOR DELAY-LOOP TIMING

	ENTRY	MSEC50

MSEC50:	MVI	A,100

;	USES THE 'WAIT SHORT' FROM FCS - 0.5 MSEC/COUNT

WATS:	PUSH	PSW
	MVI	A,STIM
WS1:	DCR	A
	JNZ	WS1
	POP	PSW
	DCR	A
	JNZ	WATS
	RET

	END