;**********************************************************************
;                                                                     *
;    Filename:	    Sea Launch 08/06/05                               *
;    Date:          07/27/05                                          *
;    File Version:  1.1                                               *
;                                                                     *
;    Author:      Alberto Gassol                                      *
;    Company:     Inverse Engineering                                 *
;                                                                     * 
;                                                                     *
;**********************************************************************
;                                                                     *
;    Files required:                                                  *
;                                                                     *
;                                                                     *
;                                                                     *
;**********************************************************************
;                                                                     *
;    Notes:    San Diego Sea Launch with Dan Pollino                                                       *
;                                                                     *
;                                                                     *
;                                                                     *
;                                                                     *
;**********************************************************************


	list      p=16F84A            ; list directive to define processor

;**********************************************************************
	movlw	b'00000000'
	movwf	06h
	movlw	b'00000'
	movwf	05h

COUNT         equ       08h
COUNT1        equ       08h

	bsf		03h,5
	movlw	b'00000000'
	movwf	86h
	movlw	b'00000'
	movwf	85h
	bcf		03h,5


Start

	call Tarda			; main long delay
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda
	call Tarda

	movlw	b'00000010'	; Start camera on event
	movwf	06h
	call Tarda
	movlw	b'00000000'	; end camera on event
	movwf	06h

	call Tarda

	movlw	b'00010'	; Camera tigger timer event
	movwf	05h
	movlw	b'00000'
	movwf	05h
	call Tarda


	movlw	b'00001'	; Main engine event
	movwf	05h
	movlw	b'00000'
	movwf	05h
	call Tarda
	call Tarda			; First chute delay

	movlw	b'00100'	; First chute event
	movwf	05h
	movlw	b'00000'
	movwf	05h
	call Tarda			; Second chute delay
	call Tarda
	call Tarda

	movlw	b'01000'	; Second chute event
	movwf	05h
	movlw	b'00000'
	movwf	05h

	goto	Start

Routine

Loop1          decfsz              COUNT,1
               goto           	   Loop1
COUNT         equ       08h
	call Run
	return 
Run

Loop2          decfsz              COUNT1,1
               goto           	   Loop2
COUNT1         equ       08h
	return
Tarda
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	call Routine
	Call Run
	return
	end