Mercurial > public > hwos_code

view src/isr.inc @ 613:8077ee960199

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix for italian and french language
author heinrichsweikamp
date Wed, 30 Jan 2019 16:27:56 +0100
parents ca4556fb60b9
children c40025d8e750
line wrap: on
line source

;=============================================================================
;
;   File isr.inc
;
;
;   Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
;=============================================================================
; HISTORY
;  2011-08-06 : [mH] moving from OSTC code

SAFE_2BYTE_COPY MACRO from,to
	local	retry
retry:
	movff	from+1,WREG				; high byte in WREG, ...
	movff	WREG,to+1				; ... and destination
	movff	from+0,to+0				; copy low byte
	movff	from+1,TABLAT			; another bank-safe read
	xorwf	TABLAT,W				; did the high byte changed?
	bnz		retry					; YES - retry
	ENDM