Ctcss ID Project


Motorola GM600 with a ctcss ID module


The display module


Download Code


;======= Ctcss to lcd channel interface ===========================05/11/04==
;     standard crystal 4.0MHz XT
;	pcf2103 lcd driver
;	Bergthaller Iulian (c)2004
;------------------------------------------------------------
;     configure programmer
      LIST P=16F630;f=inhx8m
        #include "P16F630.INC"  ; Include header file
	__CONFIG	_PWRTE_ON  & _WDT_OFF & _XT_OSC & _BODEN & _CP_OFF & _MCLRE_OFF
;------------------------------------------------------------
	cblock 0x20	; Beginn General Purpose-Register
;      cpu init
;-------------------------- counters	
	count1
	count2
	count3
	count4
	count5
;-------------------------- registrii transfer
	transo
	ctcssc
	dig1
	dig2
;--------------------------
	endc
;--------------------------
#DEFINE f_in	PORTA,2
#DEFINE sclk	PORTC,0
#DEFINE sdta	PORTC,1
;--- Reset --------------------------------------------------
	org	h'00'
	goto	init		; reset -> init
;--- Interrupt ----------------------------------------------
	org	h'04'
;************************************************************
init	
	bcf	STATUS,RP0	; Bank 0
	clrf	PORTA
	clrf	PORTC
	movlw	0x05		; Turn comparators off and enable pins for I/O 
	movwf	CMCON	
	bsf	STATUS,RP0	; Bank 1
	movlw	0x0F	; input
	movwf	TRISA
	movlw	0x00	; output
	movwf	TRISC
	bcf	STATUS,RP0	; Bank 0
	movlw	0x00
	movwf	PORTC
	clrf	dig1
	clrf	dig2
	clrf	TMR0
	clrf	INTCON
	bsf	STATUS,RP0	; Bank 1
	movlw	0xA8
	movwf	OPTION_REG
	bcf	STATUS,RP0	; Bank 0
;***************************************************
;* Lcd init commands                               *
;***************************************************
lcd_ini
	call	iict	; i2c start
	movlw	0x74	; device write address (75h for read)
	call	act	; i2c send subroutine
	movlw	0x00	; Co,RS=0, set instruction register for multiple next command bytes  
	call	act
	movlw	0x31	; extended instruction set
	call	act
	movlw	0x02	; set screen configuration left to right 
	call	act
	movlw	0x05	; set display configuration 
	call	act
	movlw	0x08	; set icon mode, full mode, icon blink disable
	call	act
	movlw	0x30	; normal instruction set
	call	act
	movlw	0x0C	; set display on
	call	act
	movlw	0x06	; set cursor move direction
	call	act
	movlw	0x02	; set DDRAM address 0 in address counter
	call	act
	call	iicp	; i2c stop 
;***************************************************
;* Lcd icon sets off                               *
;***************************************************
	call	iict
	movlw	0x74
	call	act
	movlw	0x80	; Co=1, RS=0 just one next command byte
	call	act
	movlw	0x4C	; set CGRAM for icons
	call	act
	movlw	0x40	; Co=0, RS=1, set instruction register for multiple next data bytes  
	call	act
	movlw	0x00	; erase icons sequence
	call	act
	movlw	0x18
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x00
	call	act
	movlw	0x0F
	call	act
	movlw	0x10
	call	act
	call	iicp	; i2c stop 
;***************************************************
;* Lcd cursor subroutine                           *
;***************************************************		
	call	iict
	movlw	0x74
	call	act
	movlw	0x00
	call	act
	movlw	0x30
	call	act
	movlw	0x01	; clears entire display and sets DDRAM address to 0 in address counter
	call	act
	movlw	0x0C	; display on, cursor off, cursor blink off
	call	act
	call	iicp
;***************************************************
;* Lcd data subroutine                             *
;***************************************************	
nou	call	iict
	movlw	0x74
	call	act
	movlw	0x80	; Co=1, RS=0 just one next command byte
	call	act
	movlw	0x8C	; set CGRAM for characters
	call	act
	movlw	0x40	; Co=0, RS=1, set instruction register for multiple next data bytes  
	call	act
	movlw	0x20	; _ 
	call	act
	movlw	0xC9	; I
	call	act
	movlw	0xE4	; d
	call	act
	movlw	0xBA	; :
	call	act
	movlw	0x20	; _ 
	call	act
	movf	dig2,W
	addlw	0xB0
	call	act
	movf	dig1,W
	addlw	0xB0
	call	act
	call	iicp
;***************************************************
	clrf	ctcssc
	clrf	TMR0
	call	pause
	movf	TMR0,W
	movwf	ctcssc
	btfsc	STATUS,Z
	goto	plici
	movlw	0x02
	movwf	PCLATH
	movf	ctcssc,W
	call	decode
	movwf	ctcssc
plici	call	mux
stai	goto	nou
;***************************************************
act	movwf	transo	; iic data transmission 
	movlw	0x08
	movwf	count3
vbit	bcf	sclk
	call	haltb
	btfsc	transo,7	
	bsf	sdta
	btfss	transo,7
	bcf	sdta
	call	haltb
	bsf	sclk
	call	haltb
	bcf	sclk
	call	haltb
	rlf	transo,F
	decfsz	count3,F
	goto	vbit
	call	ackp
	retlw	0x00
;***************************************************
iicp	bcf	sdta	; stop condition module
	call	haltb
	bsf	sclk
	call	haltb
	bsf	sdta	; stop command
	call	haltb
	bcf	sclk
	call	haltb
	retlw	0x00
;***************************************************	
iict	bsf	sdta	; start condition module 
	bsf	sclk
	call	haltb
	bcf	sdta	; start command
	call	haltb
	bcf	sclk
	call	haltb
	retlw	0x00
;***************************************************
ackp	call	ser_in
	bsf	sclk	; one clock step for acknowledge (not read)
	call	haltb
	bcf	sclk
	call	ser_out
	retlw	0x00
;***************************************************
mux	clrf	dig1
	clrf	dig2
	movf	ctcssc,F ; zero bit test if dig=dig=0
	btfss	STATUS,Z
	goto	calc
	goto	gatam
calc	call	digi
	decfsz	ctcssc,F
	goto	calc
gatam	return
;***************************************************
digi	incf	dig1,F
	movlw	0x0A
	subwf	dig1,W
	btfss	STATUS,Z ;test zero bit
	goto	gatas
	clrf	dig1
	incf	dig2,F
	movlw	0x0A
	subwf	dig2,W
	btfss	STATUS,Z ;test zero bit
	goto	gatas
	clrf	dig2
gatas	retlw	0x00	
;************************************************************************
;	Subrutine de intarziere				 				*
;************************************************************************
;________________________________________________________________________
haltb	nop	; 10 us delay
	nop
	nop
	nop
	nop
	nop	
 	return
;________________________________________________________________________
pause	movlw	0x04 ;	cca. 1s
hopa	movwf	count3
d3	movlw	0xF9
	movwf	count1
d1	movlw	0xFA	  
	movwf	count2
d2	nop
	decfsz	count2,F	
	goto	d2		
	decfsz	count1,F	
	goto	d1		
	decfsz	count3,F    
	goto	d3          
	retlw	0x00
;************************************************************************
ser_in
	bsf	STATUS,RP0	; Bank 1
	movlw	0x02	; input
	movwf	TRISC
	bcf	STATUS,RP0	; Bank 0
	return
;************************************************************************
ser_out
	bsf	STATUS,RP0	; Bank 1
	movlw	0x00	; output
	movwf	TRISC
	bcf	STATUS,RP0	; Bank 0
	return
;************************************************************************
;*	adrese  grafica									*
;************************************************************************
	ORG	0x0200
decode	
	addwf	PCL,F
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;10
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;20
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;30
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;40
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;50
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;60
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00
	retlw 0x00	;65
	retlw 0x01
	retlw 0x01	;67
	retlw 0x02
	retlw 0x02	;69
	retlw 0x03
	retlw 0x03	;71
	retlw 0x03
	retlw 0x04
	retlw 0x04	;74
	retlw 0x04
	retlw 0x05
	retlw 0x05	;77
	retlw 0x06
	retlw 0x06	;79
	retlw 0x06
	retlw 0x07
	retlw 0x07	;82
	retlw 0x07
	retlw 0x08
	retlw 0x08	;85
	retlw 0x08
	retlw 0x09
	retlw 0x09	;88
	retlw 0x09
	retlw 0x0A
	retlw 0x0A	;91
	retlw 0x0A
	retlw 0x0B
	retlw 0x0B	;94
	retlw 0x0B
	retlw 0x0C
	retlw 0x0C	;97
	retlw 0x0C
	retlw 0x0D
	retlw 0x0D	;100
	retlw 0x0D
	retlw 0x0E
	retlw 0x0E	;103
	retlw 0x0E
	retlw 0x0E
	retlw 0x0F
	retlw 0x0F	;107
	retlw 0x0F
	retlw 0x10
	retlw 0x10	;110
	retlw 0x10
	retlw 0x11
	retlw 0x11
	retlw 0x11	;114
	retlw 0x11
	retlw 0x12
	retlw 0x12
	retlw 0x12	;118
	retlw 0x12
	retlw 0x13
	retlw 0x13
	retlw 0x13
	retlw 0x13	;123
	retlw 0x13
	retlw 0x14
	retlw 0x14
	retlw 0x14	;127
	retlw 0x14
	retlw 0x15
	retlw 0x15
	retlw 0x15	;131
	retlw 0x15
	retlw 0x16
	retlw 0x16
	retlw 0x16
	retlw 0x16	;136
	retlw 0x16
	retlw 0x17
	retlw 0x17
	retlw 0x17
	retlw 0x17	;141
	retlw 0x17
	retlw 0x18
	retlw 0x18
	retlw 0x18
	retlw 0x18	;146
	retlw 0x18
	retlw 0x19
	retlw 0x19
	retlw 0x19
	retlw 0x19	;151
	retlw 0x19
	retlw 0x1A
	retlw 0x1A
	retlw 0x1A
	retlw 0x1A	;156
	retlw 0x1A
	retlw 0x1B
	retlw 0x1B	;159
	retlw 0x1B
	retlw 0x1C
	retlw 0x1C	;162
	retlw 0x1C
	retlw 0x1D
	retlw 0x1D	;165
	retlw 0x1E
	retlw 0x1E	;167
	retlw 0x1E
	retlw 0x1F
	retlw 0x1F
	retlw 0x1F	;171
	retlw 0x20
	retlw 0x20	;173
	retlw 0x20
	retlw 0x21
	retlw 0x21
	retlw 0x21	;177
	retlw 0x22
	retlw 0x22	;179
	retlw 0x22
	retlw 0x23
	retlw 0x23
	retlw 0x23	;183
	retlw 0x23
	retlw 0x24
	retlw 0x24	;186
	retlw 0x24
	retlw 0x25
	retlw 0x25	;189
	retlw 0x25
	retlw 0x26
	retlw 0x26	;192
	retlw 0x26
	retlw 0x27
	retlw 0x27
	retlw 0x27	;196
	retlw 0x27
	retlw 0x28
	retlw 0x28	;199
	retlw 0x28
	retlw 0x29
	retlw 0x29
	retlw 0x29	;203
	retlw 0x29
	retlw 0x2A
	retlw 0x2A	;206
	retlw 0x2A
	retlw 0x2B
	retlw 0x2B
	retlw 0x2B	;210
	retlw 0x2B
	retlw 0x2C
	retlw 0x2C
	retlw 0x2C
	retlw 0x2C
	retlw 0x2C
	retlw 0x2C
	retlw 0x2C	;218
	retlw 0x2C
	retlw 0x2D
	retlw 0x2D
	retlw 0x2D
	retlw 0x2D
	retlw 0x2D
	retlw 0x2D	;225
	retlw 0x2D
	retlw 0x2E
	retlw 0x2E
	retlw 0x2E	;229
	retlw 0x2E
	retlw 0x2F
	retlw 0x2F
	retlw 0x2F	;233
	retlw 0x2F
	retlw 0x30
	retlw 0x30
	retlw 0x30
	retlw 0x30
	retlw 0x30
	retlw 0x30
	retlw 0x30	;241
	retlw 0x30
	retlw 0x31
	retlw 0x31
	retlw 0x31
	retlw 0x31
	retlw 0x31
	retlw 0x31
	retlw 0x31
	retlw 0x31	;250
	retlw 0x31
	retlw 0x32
	retlw 0x32
	retlw 0x32	;254
;============================================================
	end
;============================================================

Back to my home page

Last updated January, 2005

© Copyright 2002-2005 Bergthaller Iulian-Alexandru
eXTReMe Tracker