LIST P=16F1936, R=DEC
#include "P16F1936.inc"
OSCFREQ = 4		; 1,2,4,8,16 MHz
;
 __CONFIG _CONFIG1, 0x09A4
 __CONFIG _CONFIG2, 0x1433
;
cblock 0x20

endc
;
trisamask 		EQU b'00000000'
trisbmask		EQU b'00000000'
triscmask 		EQU b'00000000'
;
commandport		EQU PORTC
dataport		EQU PORTC
RS				EQU .0
EN				EQU .1
D0				EQU .2
D1				EQU .3
D2				EQU .4
D3				EQU .5
;
dsport			SET PORTA
dstris			SET TRISA
dsbit			SET .0
portx			SET b'00000001'
IF OSCFREQ == 1
adctimerefmask	EQU b'10000000'	; 1 MHz
oscmask			EQU b'01011010'	; 1 MHz
ENDIF
;
IF OSCFREQ == 2
adctimerefmask	EQU b'10010000'	; 2 MHz
oscmask			EQU b'01100010'	; 2 MHz
ENDIF
;
IF OSCFREQ == 4
adctimerefmask	EQU b'10010000'	; 4 MHz
oscmask			EQU b'01101010'	; 4 MHz
ENDIF
;
IF OSCFREQ == 8
adctimerefmask	EQU b'11010000'	; 8 MHz
oscmask			EQU b'01110010'	; 8 MHz
ENDIF
;
IF OSCFREQ == 16
adctimerefmask	EQU b'10100000'	; 16 MHz
oscmask			EQU b'01111010'	; 16 MHz
ENDIF
;
org 0x00
	goto beallitasok
org 0x04
	goto megszakitas
;
; ***************************************************************
;
foprogram


;goto makro1


ide
;

call dsport_ra0

bsf dsport,3

bsf dsport,dsbit

movf portx,0
movwf PORTC

call dsport_rb4


bsf dsport,3

bsf dsport,dsbit

movf portx,0
movwf PORTC




nop
nop
nop
nop


goto ide


dsport_ra0
dsport			SET PORTA
dstris			SET TRISA
dsbit			SET .0
portx			SET B'00000001'
return


dsport_rb4
dsport			SET PORTB
dstris			SET TRISB
dsbit			SET .5
portx			SET B'00100000'
return








makro1





























beallitasok
	banksel LATA
			clrf LATA
			clrf LATB
			clrf LATC
	banksel ANSELA
			clrf ANSELA
			clrf ANSELB
	banksel TRISA
			movlw trisamask
			movwf TRISA
			movlw trisbmask
			movwf TRISB
			movlw triscmask
			movwf TRISC
			movlw 0xFF
			movwf TRISE
	banksel OSCCON
			movlw oscmask
			movwf OSCCON
	banksel LCDCON
			clrf LCDCON
	banksel ADCON0
			clrf ADCON0
	banksel ADCON1
			movlw adctimerefmask
			movwf ADCON1
	banksel SSPMSK
			clrf SSPMSK
	banksel PORTA
			clrf PORTA
			clrf PORTB
			clrf PORTC
			clrf PORTE
goto foprogram
; ****************************************************************
megszakitas

retfie
end