MAIN
 BSF 03h,5
 MOVLW b'00000000'
 MOVWF 85h
 BCF 03h,5
 
 MOVLW b'00000001'
 MOVWF 05h

 CALL DELAY

 MOVLW b'00000010'
 MOVWF 05h

 CALL DELAY

 MOVLW b'00000100'
 MOVWF 05h

 CALL DELAY

 MOVLW b'00001000'
 MOVWF 05h

 CALL DELAY

 MOVLW b'00010000'
 MOVWF 05h

 CALL DELAY

 MOVLW b'00100000'
 MOVWF 05h

 CALL DELAY

 MOVLW b'01000000'
 MOVWF 05h

 CALL DELAY

 MOVLW b'10000000'
 MOVWF 05h

 *** SUBROUTINE DECLARATION ***
 DELAY DECFSZ 08h,1
 GOTO DELAY
 DECFSZ 09h,1
 GOTO DELAY

 RETURN

 *** SUBROUTINE END ***
END