START_
CLRF GPIO
MOVLW B'10000111'
OPTION
MOVLW B'11001111'
TRIS GPIO
BCF GPIO,5  ;PIC PIN 2  D0
BCF GPIO,4  ;PIC PIN 3  A15

MOVLW .8;D0 TIMING VARIABLE AJUST THIS FOR D0 O/C FROM GROUND TIME
MOVWF COUNT;LOWER NUMBER WILL REDUCE TIME FROM D0 TO O/C
CALL LONG_