;Bake für 30kHz Sende- und 1kHz Modulationsfrequenz
;Michael Kinz  http://www.team-iwan.de

PORTC	EQU	$1003
DDRC	EQU	$1007
OPTION	equ	$1039

temp	rmb	1

	ORG	$b600	;start im internem EEPROM
	ldab	#$FF
	stab	DDRC	;Ausgang
	ldaa	#$0f	;Variable für die 
	staa	temp	;Modulationsfrequenz (30kHz/30=1kHz) 

out:	ldab	#$ff
	stab	portc	; kompletten Port C einschalten weil
	jsr	delay	;alle 8 Ports parallel einen FET treiben
	nop
	clrb		; Akku löschen
	stab	portc	;Port C wieder aus
	jsr	delay1
	deca		;Modulationszähler (15 mal)
	bne	out	;ist er Null?
	ldaa	temp

out2:	ldab	#$00
	stab	portc	; Port C diesmal nicht einschalten
	jsr	delay
	nop
	clrb		; wegen gleichmässigem Duty-Cycle
	stab	portc	;dasselbe wie oben
	jsr	delay1
	deca
	bne	out2			
	ldaa	temp
	bra	out	; von vorn 


delay:	
	rts
delay1:	nop		;sorry für die krummen delays
	nop		;und nops, musste mit dem Oszi eine 
	nop		;Weile rumprobieren
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	rts
;------------------------------------------------------------------
	end