-
Notifications
You must be signed in to change notification settings - Fork 0
/
Practica2PIC_metodo1.asm
99 lines (85 loc) · 989 Bytes
/
Practica2PIC_metodo1.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
;ZONA DE DATOS*****
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
LIST P=16F84A
INCLUDE <P16F84A.INC>
;ZONA DE CODIGO****
ORG 0
INICIO
bsf STATUS,RP0
clrf TRISB
movlw b'00011111'
movwf TRISA
bcf STATUS,RP0
PRINCIPAL
movf PORTA,W
andlw b'00001111'
addwf PCL,F
TABLA
goto S0
goto S1
goto S2
goto S3
goto S4
goto S5
goto S6
goto S7
goto S8
goto S9
goto S10
goto S11
goto S12
goto S13
goto S14
goto S15
S0
movlw b'00100000'
goto SALIDA
S1
movlw b'00000000'
goto SALIDA
S2
movlw b'00100000'
goto SALIDA
S3
movlw b'00100000'
goto SALIDA
S4
movlw b'00000000'
goto SALIDA
S5
movlw b'00000000'
goto SALIDA
S6
movlw b'00100000'
goto SALIDA
S7
movlw b'00000000'
goto SALIDA
S8
movlw b'00100000'
goto SALIDA
S9
movlw b'00100000'
goto SALIDA
S10
movlw b'00000000'
goto SALIDA
S11
movlw b'00000000'
goto SALIDA
S12
movlw b'00100000'
goto SALIDA
S13
movlw b'00000000'
goto SALIDA
S14
movlw b'00100000'
goto SALIDA
S15
movlw b'00000000'
goto SALIDA
SALIDA
movwf PORTB
goto PRINCIPAL
END