# one data image of a PIC, a write_control_byte, and a write_freq._spec.
#  using whatever is in that image, e.g. (with all other ducks in a row)  
#			= A to  @ $((PIC+pic_count))
#			call writePICcount

L PIC
allot $pic_size

L PICspec				# clobber A, DI     
	zero DI
	= @ $((PIC+pic_number)) to DI
	upshift 3 to DI
	+ 0x43 to DI

	= @ $((PIC+pic_timer)) to A
	upshift 3 to A
	= @ $((PIC+pic_mode)) to A
	upshift 2 to A
	= @ $((PIC+pic_access)) to A
	upshift A
	send byte
return

	
L writePICcount				# clobber A, DI 
	zero DI
	= @ $((PIC+pic_number)) to DI
	upshift 3 to DI
	+ 0x40 to DI
	+ @ $((PIC+pic_timer)) to DI

	= @ $((PIC+pic_count)) to A
	send byte
	downshift 8 to A
	send byte
return

