بعد فلوكود و الميكروسي
هذا ملف عملته بالاسمبلي حيت لا مجال للشك في الاعدادات فالامور واضحة جربه لترى :
http://filaty.com/f/903/2.790/sami_3.rar.html
ملف الاسمبلي : الاعدادات مضبوطة وواضحة:
كود:
;*****************************************************************************
;* Testasm
;* Pic 16f628a
;*****************************************************************************
LIST p=16f628a; Définition de processeur
#include <p16f628a.inc>; Définitions de constantes
__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _LVP_OFF & _INTOSC_OSC_NOCLKOUT & _BODEN_OFF
;*****************************************************************************
;MACROS
;*****************************************************************************
BANK0 macro
bcf STATUS,RP1
bcf STATUS,RP0 ;passage en banque 0
endm
BANK1 macro
bcf STATUS,RP1
bsf STATUS,RP0 ;passage en banque 1
endm
BANK2 macro
bsf STATUS,RP1
bcf STATUS,RP0 ;passage en banque 2
endm
BANK3 macro
bsf STATUS,RP1
bsf STATUS,RP0 ;passage en banque 3
endm
;*****************************************************************************
;VARIABLES
;*****************************************************************************
;*****************************************************************************
; VARIABLES BANQUE 0 *
;*****************************************************************************
CBLOCK 0x20
memtmp : 1
cmpt1 : 1
cmpt2 : 1
cmpt3 : 1
ENDC
;*****************************************************************************
;DEMARRAGE SUR RESET
;*****************************************************************************
org 0x000 ; Adresse de départ après reset
goto init ; Adresse 0: initialiser
;*****************************************************************************
;Initialisation
;*****************************************************************************
init
BANK0 ;Passage en banque 0
MOVLW b'00000000'
MOVWF PORTA
MOVLW b'00000000'
MOVWF PORTB
MOVLW b'00000111'
BANK1 ;Passage en banque 1
movlw D'255'
movwf TRISA
movlw D'0'
movwf TRISB
MOVWF CMCON
MOVLW b'00000000'
MOVWF VRCON
BANK0 ;Passage en banque 0
goto start ; sauter au programme principal
;*****************************************************************************
;Routines
;*****************************************************************************
;*****************************************************************************
;* Temporisation
;*****************************************************************************
tmpT_1
nop
movlw d'185'
movwf cmpt3
b3T_1
movlw d'230'
movwf cmpt2
b2T_1
movlw d'77'
movwf cmpt1
b1T_1
decfsz cmpt1,f
goto b1T_1
decfsz cmpt2,f
goto b2T_1
decfsz cmpt3,f
goto b3T_1
return
;*****************************************************************************
;Programme principal
;*****************************************************************************
start
btfsc PORTA,0
goto Activer
goto start
Activer
movlw D'255'
movwf PORTB
call tmpT_1
movlw D'0'
movwf PORTB
goto start
END ; directive fin de programme
أرجو من الله التوفيق
