-
Notifications
You must be signed in to change notification settings - Fork 0
/
sirene_v1.asm
102 lines (95 loc) · 1.39 KB
/
sirene_v1.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
96
97
98
99
100
101
102
#INCLUDE P16F628A.INC
__CONFIG _BOREN_ON & _CP_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _MCLRE_ON & _XT_OSC
#DEFINE BANK0 BCF STATUS,RP0
#DEFINE BANK1 BSF STATUS,RP0
#DEFINE CHAVE1 PORTA,0
#DEFINE CHAVE2 PORTA,1
#DEFINE CHAVE3 PORTA,2
#DEFINE LED1 PORTB,1
#DEFINE LED2 PORTB,2
#DEFINE SIRENE PORTB,3
FREQ EQU 20H
DL0 EQU 21H
DL1 EQU 22H
DL2 EQU 23H
FLAGS EQU 24H
SAVE_W EQU 25H
SAVE_S EQU 26H
ORG 000H
GOTO INICIO
ORG 004H
MOVWF SAVE_W
SWAPF STATUS,W
MOVWF SAVE_S
; BTFSC CHAVE3
; GOTO SHTDWN
; BTFSC FLAGS,0
; GOTO INT_TMR
; GOTO END_INT
;INT_TMR:
; MOVLW FREQ
; MOVWF TMR0
; GOTO END_INT
;SHTDWN:
; BCF FLAGS,0
; MOVLW B'00000000'
; MOVWF PORTB
; GOTO END_INT
END_INT:
SWAPF SAVE_S,W
MOVWF STATUS
SWAPF SAVE_W,F
SWAPF SAVE_W,W
RETFIE
DELAY:
MOVLW .2
MOVWF DL2
LOOP_250MS:
MOVLW .250
MOVWF DL1
LOOP_1MS:
MOVLW .200
MOVWF DL0
LOOP:
NOP
DECFSZ DL0,F
GOTO LOOP
DECFSZ DL1,F
GOTO LOOP_1MS
DECFSZ DL2,F
GOTO LOOP_250MS
RETURN
INICIO:
CLRF PORTA
CLRF PORTB
BANK1
MOVLW B'00000111'
MOVWF TRISA
MOVLW B'00000000'
MOVWF TRISB
MOVLW B'10000000'
MOVWF OPTION_REG
MOVLW B'00000000'
MOVWF INTCON
BANK0
MOVLW B'00000111'
MOVWF CMCON
BGNNG:
BTFSS CHAVE2
GOTO BGNNG
; BSF FLAGS,0
; BSF INTCON,T0IE
; BSF SIRENE
MAIN:
BSF LED1
BCF LED2
; MOVLW .99
; MOVWF FREQ
CALL DELAY
BCF LED1
BSF LED2
; MOVLW .199
; MOVWF FREQ
CALL DELAY
GOTO MAIN
END