Mercurial > public > hwos_code

view src/wait.asm @ 601:08a0162d3ca1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix false CNS readings in logbook
author heinrichsweikamp
date Tue, 14 Aug 2018 11:01:47 +0200
parents b455b31ce022
children ca4556fb60b9
line wrap: on
line source

;=============================================================================
;
;   File wait.asm														V2.98
;
;   Wait routines
;
;   Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
;=============================================================================
; HISTORY
;   2004-01-31 : [chsw] Initial version.
;   2007-05-11 : Updated (OSTC code).
;   2011-10-18 : [mH] Timings tested with oscilloscope

#include "hwos.inc"

basic	CODE

; =============================================================================
; WAIT 1 MILLISECOND   (Not exact: 1,008ms +/- 30,5µs + worst case ISR latency)
; =============================================================================

	global	WAITMSX
WAITMSX:
	movwf	wait_counter
WAITMSX2:
	setf	TMR5H
	movlw	.255-.32 			;32 x 31,5µs = 1,008ms
	movwf	TMR5L
	bcf		PIR5,TMR5IF			; Clear flag
WAITMSX3:
	btfss	PIR5,TMR5IF
	bra		WAITMSX3			; Wait loop
	decfsz	wait_counter,F
	bra		WAITMSX2
	return

;=============================================================================

	END