Compucolor.org – Virtual Media

Listing of file='DELAY.MAC;02' on disk='vmedia/asm_utility_routines-sideA-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	DELAY - TIME DELAY ROUTINE
;
;	   SIMPLE TIMING LOOP.
;
;	VALUES ON ENTRY:
;	   A  = NUMBER OF LOOPS - 0.2 MS PER LOOP
;
;	DESTROYS:
;	   NOTHING
;

	ENTRY	DELAY

DELAY:	PUSH	B	;SAVE REGISTER
	MOV	C,A
DEL1:	MVI	B,100	;DO INNER LOOP 100 TIMES
DEL2:	DCR	B
	JNZ	DEL2
	DCR	C
	JNZ	DEL1	;OUTER LOOP
	POP	B
	RET

	END