;**************************************************************************
;** timing.i
;** Copyright (c) 1996 Daniel Kahlin <tlr@stacken.kth.se>
;**
;** timing macros for 6502
;**
;******



;**************************************************************************
;**
;** DELAY x cycles
;**
;******
	MAC	DELAY
	IF	[{1}]>27
	echo 	"WARNING! DELAY to big!"
	ENDIF
	IF	[{1}]==1
	echo 	"WARNING! One cycle DELAY not possible!"
	ENDIF
	IF	[{1}]<0
	echo 	"WARNING! DELAY negative!"
	ENDIF

	IF	[{1}]==27
	jsr	Twentyseven	;27
	ENDIF
	IF	[{1}]==26
	jsr	Twentysix	;26
	ENDIF
	IF	[{1}]==25
	jsr	Twentyfive	;25
	ENDIF
	IF	[{1}]==24
	jsr	Twentyfour	;24
	ENDIF
	IF	[{1}]==23
	jsr	Twentythree	;23
	ENDIF
	IF	[{1}]==22
	jsr	Twentytwo	;22
	ENDIF
	IF	[{1}]==21
	jsr	Twentyone	;21
	ENDIF
	IF	[{1}]==20
	jsr	Twenty		;20
	ENDIF
	IF	[{1}]==19
	jsr	Nineteen	;19
	ENDIF
	IF	[{1}]==18
	jsr	Eighteen	;18
	ENDIF
	IF	[{1}]==17
	jsr	Seventeen	;17
	ENDIF
	IF	[{1}]==16
	jsr	Sixteen		;16
	ENDIF
	IF	[{1}]==15
	jsr	Fifteen		;15
	ENDIF
	IF	[{1}]==14
	jsr	Fourteen	;14
	ENDIF
	IF	[{1}]==13
	nop			;2
	nop			;2
	nop			;2
	nop			;2
	nop			;2
	bit	$ea		;3
	ENDIF
	IF	[{1}]==12
	jsr	Twelve		;12
	ENDIF
	IF	[{1}]==11
	nop			;2
	nop			;2
	nop			;2
	nop			;2
	bit	$ea		;3
	ENDIF
	IF	[{1}]==10
	nop			;2
	nop			;2
	nop			;2
	nop			;2
	nop			;2
	ENDIF
	IF	[{1}]==9
	nop			;2
	nop			;2
	nop			;2
	bit	$ea		;3
	ENDIF
	IF	[{1}]==8
	nop			;2
	nop			;2
	nop			;2
	nop			;2
	ENDIF
	IF	[{1}]==7
	nop			;2
	nop			;2
	bit	$ea		;3
	ENDIF
	IF	[{1}]==6
	nop			;2
	nop			;2
	nop			;2
	ENDIF
	IF	[{1}]==5
	nop			;2
	bit	$ea		;3
	ENDIF
	IF	[{1}]==4
	nop			;2
	nop			;2
	ENDIF
	IF	[{1}]==3
	bit	$ea		;3
	ENDIF
	IF	[{1}]==2
	nop			;2
	ENDIF
	ENDM