; Test fuer 16-Bit-Schieberegister mit zwei CD4094
; Timer im CTC-Modus
;
; MC:  ATtiny2313, Taktfrequenz: 4,0 MHz REV.111108
; ************************************************
;
.nolist
.include "tn4313def.inc";"2313def.inc"
.list
;
.equ	daten = portb
.equ data = 5
.equ clck = 6
.equ strb = 4
;
.def	temp = r16		; Temporaerregister 1
.def	temp1 = r17
.def	job = r18		; Ausgabejobregister 1
.def	vorteiler = r19	; zusaetzlicher Vorteiler
;
.cseg					; Programm im Codesegment
.org	0x0000			; Beginn bei Adresse Null
rjmp	resetx
.org	0x0040			; OC1Addr Timer-Interrupt-Vector
rjmp	timercompare
;
resetx:   
ldi	temp, low(RAMEND)	; Stackpointer initialisieren
out	SPL, temp                    
ldi	temp, high(RAMEND) 
out	SPH, temp                    
ser	temp				; Portzuweisung:  
out	DDRB, temp			; Port B Ausgang Schieberegister
out portb, temp			; Pullups setzen
ldi	temp, high(39999)	; CTC-Modus, Vorteiler 1:1
out	OCR1AH, temp
ldi	temp, low(39999)
out	OCR1AL, temp
ldi	temp, 0x09			; (1<<(WGM1)|(1<<CS10)
out	TCCR1B, temp
ldi	temp, 0x40			; 1<<(OCIE1A)
out	TIMSK, temp
ldi	vorteiler, 0x00		; Reset Schieberegister-Takt-
;						; Vorteilerregister
ldi	job, 0x00			; Takt-Ausgabe nur auf Anfrage (Job) 
ldi	temp, 0x00			; Reset Clock, Data, Strobe
out	daten, temp
sbi	daten, data			; erstes Datenbit auf "high"
rcall strobe
rcall clock
sei						; generelle Interruptfreigabe
rjmp main				; Sprung in Endlosschleife
;
main:					; Ausgabe-Schleife
cpi	job, 0x00			; wenn Job-Flag nicht null gesetzt,
breq main				; Fortsetzung Ausgabe-Routinen
clr	job					; Job-Flag wieder loeschen
cbi	daten, data			; Datenbit auf "high"
rcall strobe			; Latch-Enable setzen/loeschen
rcall clock				; Clockimpuls Generierung
inc temp1
cpi temp1, 17
breq endlos
rjmp main
;
endlos:
ldi temp1, 0x00
ret
;
clock:				; Clockimpulsgenerierung
nop
sbi	daten, clck
nop
nop
nop
cbi	daten, clck
nop
ret
;
strobe:				; Strobeimpulsgenerierung
nop
sbi	daten, strb
nop
nop
nop
cbi	daten, strb
nop
ret
;
timercompare:		; Interrupt-Service-Routine
push temp			; Temporaerregister und
in temp, SREG		; Statusregister auf Stack retten
push temp
inc	vorteiler		; zusaetzlicher Vorteiler
cpi	vorteiler, 5	; fuer Taktgenerierung
brne timerend		; Sprung zur ISR-Beendigung
clr	vorteiler		; loescht Hilfsregister wieder
rjmp jobuebernahme	; springt zur Ausgabe-Aktivierung
;
jobuebernahme:		; Ausgabe-Aktivierung
ldi	job, 0x01		; setzt Job-Flag auf "eins"
rjmp timerend		; Sprung zur ISR-Beendigung
;
timerend:			; Ende Interrupt-Service-Routine
pop	temp			; Wiederherstellung Temporaer- und
out	SREG, temp		; Statusregister
pop	temp
reti				
;