programa para pic 16f84a

Motor paso a paso
1. list p=16f84
2.
3. //definimos las direcciones necesarias
4.
5. STATUS equ 03h
6. PORTB equ 06h
7. TRISB equ 06h
8. PORTA equ 05h
9. TRISA equ05h
10. pc equ 02h
11. cont equ 10h
12. var_A equ 0ch
13. var_B equ 0dh
14. RP0 equ 5
15. Z equ 2
16.
17. //ponemos org = 0 para que inicie el programa, rp0 con 1 bity TRISB = 0 actuaran //como puerto de salida
18. org 0
19.
20. bsf STATUS,RP0
21. clrf TRISB
22.
23. //movemos 11 al registro y el registro se mueve a TRISA y se pone el bit rp0 del//registro estatus a cero
24.
25. movlw b'11'
26. movwf TRISA
27. bcf STATUS,RP0
28.
29. //se crea una variable inici con BUCLE y ESCULL, se limpia y se pone a 0 el //contadorse llama la función BUCLE
30.
31. INICI clrf cont
32.
33. BUCLE movf cont,0
34. call ESCULL
35. movwf PORTB
36. call RETARD
37. incf cont,1
38. movlw d'10'39. subwf cont,0
40. btfss STATUS,Z
41. goto BUCLE
42. goto INICI
43.
44. ESCULL btfsc PORTA,1 ;salta si el bit 1 = 0
45. goto BIT0
46. btfss PORTA,0 ;salta si elbit 0 = 1
47. goto ETAULA0
48. goto ETAULA1
49. BIT0 btfss PORTA,0 ;salta si el bit 0 = 1
50. goto ETAULA2
51. ETAULA3 call TAULA3 ;llama a TAULA 3
52. goto FI
53. ETAULA2call TAULA2 ;llama a TAULA 2
54. goto FI
55. ETAULA1 call TAULA1 ;llama a TAULA 1
56. goto FI
57. ETAULA0 call TAULA0 ;llama a TAULA 0
58. FI RETURN ;vuelve al programa
59.60. //se crean las tablas para poder interactuar con el motor
61.
62. TAULA0 addwf pc,1
63. retlw b' 00001010'
64. retlw b' 00001001'
65. retlw b' 00000101'
66. retlw b'00000110'
67. retlw b' 00001010'
68. retlw b' 00001001'
69. retlw b' 00000101'
70. retlw b' 00000110'
71.
72.
73. TAULA1 addwf pc,1
74. retlw b' 00001010'
75. retlw b'...