TITLE "Write to port D" list p = 16f877 include <p16f877.inc> ORG 0 ;START ADDRESS GOTO START ;START OF PROGPAM
ORG 20H START CALL INITP ;INITIALISE PORTS REPEAT MOVLW #55H ;SET OUTPUT TO 55H MOVWF PORTD ;WRITE TO PORT C GOTO REPEAT ;REPEAT FOREVER INITP MOVLW 0 ;MAKE PORT D OUTPUT MOVWF TRISD ;DO IT RETURN ;RETURN END
_________________ M. S. Rakha, Ph.D. Queen's University Canada