;======================================================================
; MAIN PROGRAM AND GLUE

 include common.inc
 code

;----------
vector_reset

 set_f qqTRISA
 set_f qqTRISB
 set_f qqTRISC
 set_f qqTRISD
 set_f qqTRISE
 mov_lw 0xaa
 mov_wf qqLATA
 mov_wf qqLATB
 mov_wf qqLATC
 mov_wf qqLATD
 mov_wf qqLATE

	clr_f	INTCON
	bs_f	RCON, IPEN	; interrupt priorities

	call	idlocs_init

	tst_f_ifnz picno
	goto	slave
	bra	master

;----------
master_interrupt_low
	enter_interrupt_low
	call	i2cm_interrupt
	call	serial_interrupt
	return_interrupt_low

;======================================================================
; MASTER/SLAVE deviations

;----------
message_for_master
; Either transmits the message to the master, or if we are the master,
; handles it as an incoming message from the notional `slave 0'.
;  W		message		unchanged
;  GIEH		set		set
	bt_f_if1 idloc1,idloc1_master
	goto	loopback_read_byte
	goto	slave_add_short_message

;======================================================================
; UNIMPLEMENTED STUFF

;----------
loopback_read_byte
	panic	morse_UL

 include final.inc