mymacros.i12

;Bügelt die lästige C-Inversion bei Subtraktion

skpb	macro		;Aussetzen wenn Subtraktion Überlauf generierte
	skpnc
	endm
skpnb	macro		;Aussetzen wenn Subtraktion keinen Überlauf generierte
	skpc
	endm
loop	macro	reg,lbl	;Schleifenfuß
	decfsz	reg,f
	 goto	lbl
	endm
movlwf	macro	co,reg	;Konstante in Register laden
	movlw	co
	movwf	reg
	endm
movlwf2	macro	co,reg	;16-Bit-Konstante laden
	movlwf	high(co),reg+1
	movlwf	low(co),reg
	endm
addlwf2	macro	co,reg	;16-Bit-Konstante + W laden
	addlw	low(co)
	movwf	reg
	movlwf	high(co),reg+1
	endm
movfwf	macro	s,d
	movfw	s
	movwf	d
	endm
movfwf2	macro	s,d
	movfwf	s,d
	movfwf	s+1,d+1
	endm

Detected encoding: UTF-8