Home     Projects     Micro     Tools     Delphi     Developer     Site map
HOME  
 
 
       
PIC Macro

DOWNLOAD    MAIN
; Macro/Shorthand replacements for MPASM commands
; by Randy Gamage
	#DEFINE skipz skpz;Skip if zero
	#DEFINE skipnz skpnz;Skip if not zero
	#DEFINE skipc skpc	;Skip if clear
	#DEFINE skipnc skpnc;Skip if not clear
	#DEFINE skipb btfsc STATUS,C;Skip if borrow
	#DEFINE skipnb btfss STATUS,C;Skip if no borrow
	#DEFINE ifclr btfss;Do next instruction if bit is clr
	#DEFINE ifset btfsc;Do next instruction if bit is set

;	***************************************
;	MACRO DEFINITIONS
;
ifpos	macro arg1
	btfss arg1,7
	endm
ifneg	macro arg1
	btfsc arg1,7
	endm
bank0 	macro
	bcf STATUS,RP1
	bcf STATUS,RP0
	endm	
bank1	macro
	bcf STATUS,RP1
	bsf STATUS,RP0
	endm
bank2 	macro
	bsf STATUS,RP1
	bcf STATUS,RP0
	endm
bank3 	macro
	bsf STATUS,RP1
	bsf STATUS,RP0
	endm
		  

Copyright(c) 2005-2008 sixca.com, All right reserved.
Best view @ 800X600, IE 6.0 up   
Terms of Use  Privacy Policy