[F6FCO]

Hello les codeurs,
Je trouve que c'est une très bonne idée ce recueil de mini-programmes, un forum c'est fait pour partager. Même si certains viendront piquer dans le tas et repartir sans un merci qu'ils jouent au hyènes si çà les amuse, ils n'en sortiront pas grandis. C'est la nouvelle société, on les laisse avec leur conscience.
Par contre çà peut bien aider les débutants complets pour se mettre le pied à l'étrier et éviter de se décourager. Et aussi apporter du sang neuf sur Fantaspic .
Pas simple quand on démarre d'arriver à pondre un truc qui tourne.

Donc voici un Hello World sur 16F88 en deux fichiers, l'un appelle l'autre, j'ai l'habitude pour plus de clarté sur des gros programmes de faire un fichier init et un main, le dernier appelant le premier. Je trouve çà plus clair, en espérant que çà ne déroutera pas les débutants.
Une led qui clignotte sur B0.

Le fichier Init:

Code : Tout sélectionner



;**********************************************************************
;                                                                     
;           F6FCO  
;        Hello World                                       
;        xtal:       4Mhz                                                 
;    
;                                                                     
;**********************************************************************



    List p=16F88    ; processeur utilisé 
    #include <p16F88.inc>

    __CONFIG    _CONFIG1, _CP_OFF & _CCP1_RB0 & _DEBUG_OFF & _WRT_PROTECT_OFF & _CPD_OFF & _LVP_OFF & _BODEN_OFF & _MCLR_ON & _PWRTE_OFF & _WDT_OFF & _XT_OSC
    __CONFIG    _CONFIG2, _IESO_OFF & _FCMEN_OFF
      
OPTIONVAL    EQU    H'0008'            

; --------------------------------------------------------------------------------------------


    CBLOCK 0x020                   
        Reg_1
        Reg_2
        Reg_3
    ENDC                                             

;**********************************************************************

    org     0x0000                ; Adresse de départ après reset
init
    clrf    PORTB                ; sorties portB à 0
    bsf    STATUS,RP0            ; bank1
    clrf    ANSEL                ; broches du CAN en I/O
    movlw    OPTIONVAL            ; charger masque
    movwf    OPTION_REG            ; initialiser registre option
    movlw    b'00000111'            ; A0 en entrée pour poussoirs
    movwf    TRISA
    clrf    TRISB                ; Bit PORTB.0 en sortie 
    bcf    STATUS,5            ; bank0
    clrf    PORTB                ; sorties portB à 0


Le fichier main:

Code : Tout sélectionner



#include <Init Hello World 88.asm>


;*********************************************************************
;                      PROGRAMME PRINCIPAL                           *
;*********************************************************************

main
    bsf    PORTB,0
    call    tempo300ms
    bcf    PORTB,0
    call    tempo300ms
    goto     main        


tempo300ms
; Délai 300 000 Cycles de la machine
; Durée du délai 300 millisecond
; Fréquence de l'oscillateur 4 MHZ
            movlw       .153
            movwf       Reg_1
            movlw       .134
            movwf       Reg_2
            movlw       .2
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
            return
            

    END