-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathS59_eepromWriteReadInterruptBusSimulation.asm
95 lines (81 loc) · 2.68 KB
/
S59_eepromWriteReadInterruptBusSimulation.asm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
;**********************************************
;Escrita de EEPROM com interrupção, simulando contador de pessoas no ônibus
LIST P=16F84A ;Tipo de dispositivo
RADIX HEX ;Sistema de numeração hexadecimal
INCLUDE "p16f84a.inc" ;Definição de registros
; CONFIG
__config 0xFFFB
;__CONFIG _FOSC_EXTRC & _WDTE_OFF & _PWRTE_OFF & _CP_OFF
;Variáveis
EEADR_VAR EQU 0X0C
EEDATA_VAR EQU 0x0D
ORG 0 ;Vetor de reset
goto INICIO
ORG 4 ;Vetor de interrupçã
goto INTER
ORG 5 ;Saltamos o vetor
;de interrupção
;Começo do programa
INICIO: bsf STATUS, RP0 ;Banco 1
clrf TRISB ;Porta B saída em todos os bits
movlw 0x1F ;Porta A entrada
movwf TRISA
bcf STATUS, RP0 ;Banco 0
movlw b'11000000' ;Bit 7 = GIE (Global Interrupt Enable)
;Bit 6 = EEIE (EE Write Complete Interrupt Enable)
movwf INTCON
call LER ;Lê EEPROM e mostra na porta B
OPCAO: btfss PORTA, 0 ;Opção a tomar
goto SOMAR ;Se RA0=0, não é o início da semana
goto INICIAR ;Se RA0=1, é o início da semana
SOMAR: btfss PORTA, 1 ;Apertou-se o botão?
goto SOMAR ;Não, continua esperando
incf EEDATA_VAR, F ;Sim, aumentar contador de pessoas e gravar na EEPROM
call ESCREVER
goto SOMAR ;Continuar contando pessoas
INICIAR: clrf EEDATA_VAR ;Iniciar contador
call ESCREVER
goto SOMAR ;Começa a contagem
LER: movlw 00
movwf EEADR_VAR ;Endereço 0 da EEPROM na variável aux
call LER_EEPROM
movf EEDATA_VAR, W ;Conteúdo da EEPROM para W
movwf PORTB ;Transfere para Porta B
return
LER_EEPROM: movf EEADR_VAR, W
movwf EEADR ;Endereço colocado em EEADR_VAR será lido
bsf STATUS, RP0 ;Banco 1
bsf EECON1, RD ;Comando para ler EEPROM
bcf STATUS, RP0 ;Banco 0
movf EEDATA, W
movwf EEDATA_VAR ;Move conteúdo da EEPROM para EEDATA_VAR
return
ESCREVER: movlw 00 ;Endereço a escrever
movwf EEADR_VAR ;vai em variável auxiliar
call ESCREVER_EEPROM
return
ESCREVER_EEPROM:movf EEADR_VAR, W ;Move o endereço
movwf EEADR ;ao seu registro
movf EEDATA_VAR, W ;Move o dado
movwf EEDATA ;ao seu registro
bsf STATUS, RP0 ;Banco 1
bcf INTCON, GIE ;Proibem-se interrupções
bsf EECON1, WREN ;Fornece permissão de escrita
;na EEPROM
;Sequência de segurança obrigatória para gravar na EEPROM:
;escrever 55h e AAh em EECON2
movlw 0x55
movwf EECON2
movlw 0xAA
movwf EECON2
bsf INTCON, GIE ;Permitem-se interrupções
bsf EECON1, WR ;Comando para salvar na EEPROM
sleep ;Vai-se ao estado de repouso do qual
;se sairá com uma interrupção
return
INTER: bcf EECON1, EEIF ;Desce a bandeira
bcf EECON1, WREN ;Desabilitação de escrita
bcf STATUS, RP0 ;Banco 0
retfie ;Volta da interrupção
FIM:
END ;Fim do programa