Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
org 0x00
goto START
START
BANK0
movlw 0x07
movwf CMCON ; port A = I/O
clrf PORTA
clrf PORTB
BANK1
bsf OPTION_REG,7 ; disables port B pull ups
movlw B'00000000' ;
movwf TRISA ; RA3 -> A1 multiplexer, RA2 -> A0 multiplexer, RA1 -> Busy, RA0 -> Idle
movlw B'00010110' ;
movwf TrisRS ; (RS232) RB1 <- RX, RB2 <- TX, RB5 -> RTS, RB4 -> Buzzer
BANK0
bsf PortStatus,BUSY
call Config_usart ; config USART
movlw 'A'
call Trs_byte ; sends the byte in WREG
....
STANDBY
nop
goto STANDBY
Config_usart
BANK1
movlw 240 ; 4800@18.432MHz BRGH=1
movwf SPBRG
bsf TXSTA,BRGH
BANK0
bsf RCSTA,SPEN ; habilita porta série
BANK1
bcf TXSTA,SYNC ; selecciona modo assíncrono
bcf TXSTA,TX9 ; habilita transmissão de 8 bits
bsf TXSTA,TXEN ; habilita transmissão
BANK0
bcf RCSTA,RX9 ; habilita recepção de 8 bits
bsf RCSTA,CREN ; habilita recepção
bcf RCSTA,ADEN ; desabilita detecção de endereços
return
Trs_byte
BANK1
btfss TXSTA,TRMT ; verifica se não existem dados no registo de transmissão
goto $-1
BANK0
btfss PIR1,TXIF ; verifica se não existem dados no buffer de transmissão
goto $-1
movwf TXREG ; transmite byte
return
END