;=============================================================================
; Konfigurirane
;=============================================================================
processor 16f628A
#include <p16f628A.inc>
__CONFIG (_CP_OFF & _DATA_CP_OFF & _LVP_OFF & _BOREN_OFF & _MCLRE_OFF & _PWRTE_ON & _INTOSC_OSC_NOCLKOUT & _WDT_OFF)
;=============================================================================
#define RTS PORTA,3 ;izhod za podavane na zaqvka za predavane po RS232
#define PTT PORTA,7 ;izhod za vkliuchvane na radioto
;================================================================
; makrosi, izpolzvani za izbor na banka
;================================================================
Bank0 MACRO
bcf STATUS,RP0
bcf STATUS,RP1
ENDM
Bank1 MACRO
bsf STATUS,RP0
bcf STATUS,RP1
ENDM
Bank2 MACRO
bcf STATUS,RP0
bsf STATUS,RP1
ENDM
Bank3 MACRO
bsf STATUS,RP0
bsf STATUS,RP1
ENDM
;==================================================================
; nachalo na programata
;==================================================================
org 0
goto Main
;vektor na prekasvane:
org 0x04
goto Interrupt
;=======================================
; Inicializaciq
;========================================
Main:
Bank1
movlw B'11000100' ;delitel za TMR0 - 1:32, pull-up zabraneni
movwf OPTION_REG
Bank0
;nulirane na portovete
clrf PORTA
clrf PORTB
movlw 0x07 ;izkliuchvane na komparatorite
movwf CMCON
;konfigurirane na vhodove/izhodi:
Bank1
movlw B'00110010'
movwf TRISA
movlw B'11111011'
movwf TRISB
movlw B'11010000' ;bit 6 -> razreshava prekusvaniq ot periferiqta
movwf INTCON
clrf OutCounter
clrf OutGetIndex
clrf OutPutIndex
clrf tempOut
clrf tempOut+1
Bank0
clrf T1CON
clrf PORTA
clrf FlagRegister
clrf cntD
clrf InCounter
clrf InPutIndex
clrf InGetIndex
clrf tempIn
clrf tempIn+1
Bank1
movlw D'25'
movwf SPBRG
bsf TXSTA,BRGH
bcf TXSTA,SYNC
Bank0
bsf RCSTA,SPEN
Bank1
bsf TXSTA,TX9
bsf TXSTA,TXEN
Bank0
bsf RCSTA,CREN
Bank1
bsf PIE1,RCIE
Bank0
bsf TOE
movlw 5
movwf USART_send_Counter
movwf USART_receive_Counter
movlw 8
movwf count_8
movlw 0xFF
call Send_Char
;********************
bsf RTS
bsf PTT
goto $
;******************
