API tools faq
paste
ervinne

Micro Sys. Lab 6- Traffic Lights

ervinne
Sep 30th, 2012
170
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 1.21 KB | None | 0 0
raw download clone embed print report
  1.     #INCLUDE "P16F84A.INC"
  2.  
  3.     __CONFIG _XT_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF
  4.  
  5.     ERRORLEVEL -302
  6.  
  7.     ;----------------------------------------------------------
  8.     ;   variable declaration
  9.     COUNTERA EQU H'10'
  10.     COUNTERB EQU H'11'
  11.  
  12.     ORG 0x00
  13.     GOTO START
  14.  
  15.     ORG 0x04
  16.     GOTO START
  17.  
  18. START
  19.     ;----------------------------------------------------------
  20.     ;   register configurations
  21.     BSF STATUS, RP0
  22.     MOVLW 0x00
  23.     MOVWF TRISB
  24.  
  25.     MOVLW 0x07
  26.     MOVWF OPTION_REG
  27.  
  28.     BCF STATUS, RP0
  29.     CLRF PORTB
  30.  
  31. MAIN
  32.     ;---------------------------------------------------------
  33.     ;   loop of the program
  34.    
  35.     ;   5 seconds delay for each transition
  36.     MOVLW B'10111101'
  37.     MOVWF PORTB
  38.     CALL DELAY
  39.  
  40.     MOVLW B'10011011'
  41.     MOVWF PORTB
  42.     CALL DELAY
  43.  
  44.     MOVLW B'11100111'
  45.     MOVWF PORTB
  46.     CALL DELAY
  47.  
  48.     MOVLW B'11010011'
  49.     MOVWF PORTB
  50.     CALL DELAY
  51.  
  52.     GOTO MAIN
  53.  
  54. DELAY
  55.     ;---------------------------------------------------------
  56.     ;   create a delay
  57.     MOVLW D'5'
  58.     MOVWF COUNTERA
  59.  
  60. LOOPA
  61.     CALL DELAYA
  62.     DECFSZ COUNTERA, 1
  63.     GOTO LOOPA
  64.     RETLW 0x00
  65.  
  66. DELAYA
  67.     MOVLW D'15'
  68.     MOVWF COUNTERB
  69.  
  70. LOOPB
  71.     CALL DELAYB
  72.     DECFSZ COUNTERB, 1
  73.     GOTO LOOPB
  74.     RETLW 0x00
  75.  
  76. DELAYB
  77.     CLRF TMR0
  78.     BCF INTCON, T0IF
  79. LOOPC
  80.     BTFSS INTCON, T0IF
  81.     GOTO LOOPC
  82.     RETLW 0x00
  83.    
  84.     END
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!