;------------------- 4MHz-es időzítőrutinok ------------------
delay100us
			;94 cycles
	movlw	0x1F
	movwf	delay1
delay100us_0
	decfsz	delay1, f
	goto	delay100us_0

			;2 cycles
	goto	$+1

			;4 cycles (including call)
	return
;----------------------------------------------------
delay1ms
			;993 cycles
	movlw	0xC6
	movwf	delay1
	movlw	0x01
	movwf	delay2
delay1ms_0
	decfsz	delay1, f
	goto	$+2
	decfsz	delay2, f
	goto	delay1ms_0

			;3 cycles
	goto	$+1
	nop

			;4 cycles (including call)
	return
;----------------------------------------------------
delay10ms
			;9993 cycles
	movlw	0xCE
	movwf	delay1
	movlw	0x08
	movwf	delay2
delay10ms_0
	decfsz	delay1, f
	goto	$+2
	decfsz	delay2, f
	goto	delay10ms_0

			;3 cycles
	goto	$+1
	nop

			;4 cycles (including call)
	return
;----------------------------------------------------
delay100ms
			;99993 cycles
	movlw	0x1E
	movwf	delay1
	movlw	0x4F
	movwf	delay2
delay100ms_0
	decfsz	delay1, f
	goto	$+2
	decfsz	delay2, f
	goto	delay100ms_0

			;3 cycles
	goto	$+1
	nop

			;4 cycles (including call)
	return
;----------------------------------------------------
delay1s
			;999990 cycles
	movlw	0x07
	movwf	delay1
	movlw	0x2F
	movwf	delay2
	movlw	0x03
	movwf	delay3
delay1s_0
	decfsz	delay1, f
	goto	$+2
	decfsz	delay2, f
	goto	$+2
	decfsz	delay3, f
	goto	delay1s_0

			;6 cycles
	goto	$+1
	goto	$+1
	goto	$+1

			;4 cycles (including call)
	return
;----------------------------------------------------