CPU = 16F876
MHZ = 10
CONFIG 16254

;***********************************************
; http://www.basicmicro.com                    
; Title : xout.bas                             
; Author : Dale Kubin                          
; Date : 04/29/02                              
; Xout command. Send control codes to X10 module
; TW523 pr PL513. Program will turn off / on
; Unit 1 and 2 with house code A every 10 seconds
;***********************************************

Dpin	Con B0	;Datapin is B0
Zpin	Con B1 	;Zeropin is B1

Main
	XOUT Dpin \ Zpin, X_A, [X_1, X_On, X_2, X_On]  ;turn unit 1 & 2on
	Pause 10000
	XOUT Dpin \ Zpin, X_A, [X_1, X_Off, X_2, X_Off]  ;turn unit 1 & 2on
	Pause 10000
Goto Main	;repeat