
_main:

;Relay_Sequence.mbas,6 :: 		main:
;Relay_Sequence.mbas,7 :: 		OSCCON = %01110000 '8MHz
	MOVLW       112
	MOVWF       OSCCON+0 
;Relay_Sequence.mbas,8 :: 		PLLEN_bit = 1 'Enable PLL (now 48MHz)
	BSF         PLLEN_bit+0, 6 
;Relay_Sequence.mbas,9 :: 		TRISD = %00000000 'PortD all outputs
	CLRF        TRISD+0 
;Relay_Sequence.mbas,10 :: 		LATD = %00000000 'PortD all off
	CLRF        LATD+0 
;Relay_Sequence.mbas,11 :: 		while 1
L__main2:
;Relay_Sequence.mbas,12 :: 		LATD = LATD << 1 'Bitshift
	MOVF        LATD+0, 0 
	MOVWF       R0 
	RLCF        R0, 1 
	BCF         R0, 0 
	MOVF        R0, 0 
	MOVWF       LATD+0 
;Relay_Sequence.mbas,13 :: 		if LATD = 0 then
	MOVF        LATD+0, 0 
	XORLW       0
	BTFSS       STATUS+0, 2 
	GOTO        L__main7
;Relay_Sequence.mbas,14 :: 		LATD = 1
	MOVLW       1
	MOVWF       LATD+0 
L__main7:
;Relay_Sequence.mbas,16 :: 		delay_ms(500)
	MOVLW       31
	MOVWF       R11, 0
	MOVLW       113
	MOVWF       R12, 0
	MOVLW       30
	MOVWF       R13, 0
L__main9:
	DECFSZ      R13, 1, 1
	BRA         L__main9
	DECFSZ      R12, 1, 1
	BRA         L__main9
	DECFSZ      R11, 1, 1
	BRA         L__main9
	NOP
;Relay_Sequence.mbas,17 :: 		wend
	GOTO        L__main2
L_end_main:
	GOTO        $+0
; end of _main
