Hola a todos, soy nueva en este foro y tambien en la programacion en ASM. Escibo para ver si me podriais ayudar con los comentarios de cada linea de estos 2 programas. Los detalles de cada instruccion tambien serian muy importantes.
Soy de Madrid , tengo 20 años y os lo agradeceria mucho
.Tambien estaria interesada en programas de este tipo ya resueltos y alguno tambien sobre el modulo ccp (captura,ccp y pwm). Gracias a todos. Os dejo el msn por si quereis contactar tambien.
1
; Codificación de la Práctica02
list p=18f4520
#include "p18f4520.inc"
config OSC=XT, WDT=OFF, PBADEN=OFF, LVP=OFF
UDES equ 0x000
DECS equ 0x001
org 0x00
bra inicio
org 0x08
goto inter
org 0x40
inicio clrf LATB
clrf TRISB ;PORTB salidas
movlw 0x0f
movwf ADCON1 ;No emplear analógicas
movlw 0x07
movwf CMCON ;No emplear comparadores
bcf RCON,IPEN ;Sin prioridad interrupciones (Solo una interrupción)
movlw b'10000011'
movwf T0CON
movlw b'00001011'
movwf TMR0H
movlw b'11011100'
movwf TMR0L
bsf INTCON,TMR0IE ;Habilitar int. TMR0
bcf INTCON,TMR0IF ;Reset Flag TMR0
bsf INTCON,GIE ;Habilitador global ON
clrf UDES
clrf DECS
bucle nop
bra bucle
;*****Rutina de interrupción del TMR0
inter btfss INTCON,TMR0IF
retfie
bcf INTCON,TMR0IF
movlw b'00001011'
movwf TMR0H
movlw b'11011100'
movwf TMR0L
incf UDES,F
movlw .10
subwf UDES,W
btfss STATUS,Z
bra mostrar
clrf UDES
incf DECS,F
movlw .6
subwf DECS,W
btfsc STATUS,Z
clrf DECS
mostrar swapf DECS,W
iorwf UDES,W
movwf LATB
retfie
end
2
list p=18f4520
#include "p18f4520.inc"
config OSC=XT, WDT=OFF, PBADEN=OFF, LVP=OFF
org 0
bra inicio
org 8
goto inter
org 0x50
inicio clrf LATC
clrf TRISC ;PORTC salidas
movlw 0x07
movwf CMCON ;No emplear comparadores
movlw b'00000001'
movwf ADCON0
movlw b'00001101'
movwf ADCON1 ;Sólo RA0 analógica
movlw b'00010010'
movwf ADCON2
bcf RCON,IPEN ;Sin prioridad interrupciones (Solo una interrupción)
bsf PIE1,ADIE ;Habilitar int. TMR0
bcf PIR1,ADIF ;Reset Flag TMR0
bsf INTCON,GIE ;Habilitador global ON
bsf INTCON,PEIE
bsf ADCON0,GO
bucle nop
bra bucle
inter btfss PIR1,ADIF
retfie
movff ADRESH, LATC
bsf ADCON0,GO
retfie
end
