Advertisement
Guest User

Untitled

a guest
Jan 7th, 2017
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 2.15 KB | None | 0 0
  1. ;* Projet : Labo XXX *
  2. ;************************************************************************
  3. ;* Nom de fichier: Labo XXX *
  4. ;* Date: XX-XX-XXXX *
  5. ;* *
  6. ;* Auteur: YY *
  7. ;* Haute Ecole Louvain en Hainaut *
  8. ;************************************************************************
  9. ;* Fichiers nécessaires: aucun *
  10. ;************************************************************************
  11. ;* Notes: *
  12. ;************************************************************************
  13.     list p=16F887, f=INHX8M ; directive pour definir le processeur
  14.     list c=90, n=60 ; directives pour le listing
  15.     #include <p16F887.inc> ; incorporation variables spécifiques
  16.     errorlevel -302 ; pas d'avertissements de bank
  17.     errorlevel -305 ; pas d'avertissements de fdest
  18.  
  19.  
  20.     __CONFIG _CONFIG1, _LVP_OFF & _WDT_OFF & _INTOSCIO
  21.     __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF
  22.  
  23.  
  24. ;*************************************************************************
  25. ;* Définitions et Variables *
  26. ;*************************************************************************
  27.     cblock 0x020
  28.     tempo2,RESULTHI,VAR,tempo1, tempo3
  29.     endc
  30.  
  31.  
  32. ;*************************************************************************
  33. ;* Programme principal *
  34. ;*************************************************************************
  35.     ORG 0x000 ; vecteur reset
  36. START
  37.     CLRF STATUS          ; INIT
  38.     BSF STATUS,5          ; BANK 1
  39.     CLRF TRISA             ; PORTA en output
  40.     CLRF TRISC             ; PORTC en 0
  41.     COMF TRISC           ; PORTC en input
  42.     BSF STATUS,6         ; BANK 3
  43.     CLRF ANSEL           ; SIGNAL DIGITAL
  44.     CLRF STATUS         ; BANK 0
  45.     CLRF PORTA           ; INIT LES LEDS
  46.     MOVLW b'00000001'
  47.     MOVWF PORTA
  48. MAINLOOP
  49.     RLF PORTA
  50.     TEMPO2
  51.     BTFSS PORTA,7
  52.     goto LOOP2
  53.     goto MAINLOOP
  54.  
  55. LOOP2
  56.     RRF PORTA
  57.     TEMPO2
  58.     BTFSS PORTA,0
  59.     goto MAINLOOP
  60.     goto LOOP2
  61. TEMPO2
  62.     MOVLW .10
  63.     MOVWF tempo3
  64.     CALL TEMPO
  65.     DECFSZ tempo3,f
  66.     GOTO $-2
  67.    RETURN
  68. TEMPO
  69.     movlw .250
  70.     movwf tempo2
  71.     movlw .250
  72.     movwf tempo1
  73.     decfsz tempo1,f
  74.     goto $-1
  75.     decfsz tempo2,f
  76.     goto $-5
  77.     RETURN
  78. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement