Read input from ports and print it on the LEDs

Wed May 15, 2013 10:21 pm

Read input from PORTS and print it to the LEDs,

Code:: TITLE "READ SWITCHES AND OUTPUT" list p= 16f877 include <p16f877.inc> BANK0 macro bcf STATUS,RP0 bcf STATUS,RP1 endm BANK1 macro bsf STATUS,RP0 bcf STATUS,RP1 endm BANK2 macro bcf STATUS,RP0 bsf STATUS,RP1 endm BANK3 macro bsf STATUS,RP0 bsf STATUS,RP1 endm ORG 0 ;START ADDRESS NOP GOTO START ;PROGRAM START ORG 0x20 START CALL INITP ;INITIALISE PORTS REPEAT MOVF PORTA,W ;READ PORT A MOVWF PORTD ;OUTPUT DATA GOTO REPEAT ;REPEAT FoREVER ;PORT INIT ROUTINE INITP BANK1 MOVLW 06 ;MAKE PORT A DIGITAL MOVWF ADCON1 MOVLW 0xFF MOVWF TRISA ;MAKE A INPUT CLRF TRISD ;MAKE PORT D OUTPUT BANK0 ; BACK To BANK 0 RETURN END