diff options
| -rw-r--r-- | Binaeruhr.asm | 577 |
1 files changed, 118 insertions, 459 deletions
diff --git a/Binaeruhr.asm b/Binaeruhr.asm index af3a785..b2a2bbe 100644 --- a/Binaeruhr.asm +++ b/Binaeruhr.asm @@ -7,32 +7,24 @@ .INCLUDE "tn2313def.inc"
-.EQU sbuff0, 0 ; serieller Puffer 0 bis
-.EQU sbuff1, 1
-.EQU sbuff2, 2
-.EQU sbuff3, 3
-.EQU sbuff4, 4 ; 4
-.EQU lastB, 5 ; letzter Zustand von PINB
-.EQU lt1p0l, 6 ; letzte Flankenposition PINB0 (Timer 1) low
-.EQU lt1p0h, 7 ; dito high
-.EQU lt1p1l, 8 ; dito PINB1 low
-.EQU lt1p1h, 9 ; dito high
-.EQU bcnt0, 10 ; Bitzähler PINB0
-.EQU bcnt1, 11 ; Bitzähler PINB1
-.EQU t1moml, 12 ; momentane Position Timer 1 low
-.EQU t1momh, 13 ; dito high
-.EQU aender, 14 ; Änderungen in PINB
+.EQU Spalte, 31
+.EQU TicsH, 30
+.EQU TicsL, 29
+.EQU nTicsL, 28
+.EQU Stunde, 0
+.EQU Minute, 1
+.EQU Sekunde, 2
rjmp RESET
reti
reti
reti
+ rjmp TIMER1COMPA ; Timer1 Compare Match A
reti
reti
reti
reti
- reti
- rjmp TIMER0COMPA ; Timer0 Compare Match A
+ reti
reti
reti
reti
@@ -50,452 +42,119 @@ ldi r16,0x00
out CLKPR,r16 ; System-Vorteiler auf 1
- ldi r16,0x03
- out PRR,r16 ; Clocks: Timer/Counter 1 an, Timer/Counter 0 an, USI aus, ADC aus ... zum Stromsparen
- ldi r16,0x00
- out WDTCSR,r16 ; Watchdog aus
-
- ldi r16,0x02
- out PORTA,r16 ; 6x n.d., PORTA1 high (RS232-Sender), kein Pull-up an PORTA0 (RS232-Empfänger)
- ldi r16,0x00
- out PORTB,r16 ; 2x n.d., kein Pull-up an PORTB1 (IR-Empfänger 1) & PORTB0 (IR-Empfänger 0)
- ldi r16,0x06
- out DDRA,r16 ; Ausgänge: PORTA1 (RS232-Sender), PORTA2 (Test)
- ldi r16,0x00
- out DDRB,r16 ; keine Ausgänge auf PORTB
-
- ldi r16,0x02 ; Timer0 Compare-Match-A Interrupt an
- out TIMSK0,r16
-
- ldi r16,104
- out OCR0A,r16
- ldi r16,0x02 ; CTC-Modus: Periode = OCR0A = 104 -> 9600 baud
- out TCCR0A,r16
- ldi r16,0x02 ; Vorteiler 8 für Timer 0
- out TCCR0B,r16
-
- ldi r16,0x02 ; Vorteiler 8 für Timer 1
- out TCCR1B,r16
-
- ldi r16,0x21 ; Start-Bit und
- mov sbuff0,r16
- ldi r16,0x15 ; 0x48 ('H') und Start-Bit und
- mov sbuff1,r16
- ldi r16,0x56 ; 0x61 ('a') und Start-Bit und
- mov sbuff2,r16
- ldi r16,0x48 ; 0x21 ('!') und Start-Bit
- mov sbuff3,r16
- ldi r16,0x0d ; und 0x0d (CR)
- mov sbuff4,r16
-
- in lt1p0l,TCNT1L
- in lt1p0h,TCNT1H
- movw lt1p1l,lt1p0l
-
- in lastB,PINB
- ldi r16,0x03
- and lastB,r16
-
- sei
-
-MAINLOOP:
- in r16,PINB
-
- andi r16,0x03
- eor r16,lastB
- breq MAINLOOP ; keine Änderung
-
- eor lastB,r16 ; Änderung übernehmen
- mov aender,r16 ; Änderungen merken
-
- in t1moml,TCNT1L
- in t1momh,TCNT1H ; Zählerstand holen
- movw r16,t1moml ; und kopieren
-
- sbrs aender,0
- rjmp PIN0WACKELTNICHT
-
- sub r16,lt1p0l
- sbc r17,lt1p0h ; r17:r16 = TimeDiff
-
- movw lt1p0l,t1moml ; aktuellen Zählerstand als alten setzen
-
- subi r16,0xb1
- sbci r17,0x01 ; - 865/2 = 0x01b1 = halbes Bit
-
- brcs RESET0 ; zu kurzes Bit -> Fehler!
-
- subi r16,0x61
- sbci r17,0x03 ; - 865 = 0x0361 = kurzes Bit
- brcc KEINKURZESBIT0
-
- clr r16 ; wird einfach gespeichert!
- inc bcnt0
- rjmp WEITER0
-KEINKURZESBIT0:
- subi r16,0x61
- sbci r17,0x03 ; - 865 = 0x0361 = (noch ein) kurzes Bit (= langes Bit)
- brcc RESET0 ; zu langes Bit -> Fehler
-
- inc bcnt0
- inc bcnt0
- ldi r16,0x01 ; wird doppelt gespeichert!
-
-WEITER0:
- clc
- sbrs lastB,0 ; alten Pinzustand
- sec ; nach C
- lds r17,(0x0060) ; das erste der insgesamt vier Bytes von empfangenen Bits
- rol r17
- sts (0x0060),r17
- lds r17,(0x0061)
- rol r17
- sts (0x0061),r17
- lds r17,(0x0062)
- rol r17
- sts (0x0062),r17
- lds r17,(0x0063)
- rol r17
- sts (0x0063),r17
- brcs RESET0 ; es kamen mehr als 32 Bits an -> Fehler!
-
- subi r16,0x01
- brcc WEITER0
-
- ldi r16,0x1a
- cp bcnt0,r16
-
- brcs ENDE0 ; noch keine 26 klein-Bits angekommen -> Ende
-
- ldi r16,0x1c
- cp bcnt0,r16
- brcc RESET0 ; mehr als 27 klein-Bits angekommen -> Fehler!
-
- sbrs lastB,0 ; jetziger Zustand ist high?
- rjmp ENDE0 ; nein -> dann ist es auch nicht fertig!
-
- lds r16,(0x0063) ; das letzte Byte
- ori r16,0x40 ; die übrigen Bits (also die Bits, die eben nicht empfangen wurden)
- sts (0x0063),r16 ; des zuerst "empfangenen" Bytes werden alternierend auf 1 gesetzt
-
- ldi r26,0x60
- ldi r27,0x00 ; Startadresse in den Speicher,
- mov r16,bcnt0 ; Bitanzahl in r16
- rcall VERSENDEN ; und ab durch die serielle Schnittstelle
-
-RESET0:
- ldi r16,0x05 ; Startbit + '01'=0 (also 0. Empfänger)
- sts (0x0060),r16
- ldi r16,0x00
- sts (0x0061),r16
- sts (0x0062),r16
- sts (0x0063),r16 ; empfangene Bits initialisieren
- clr bcnt0 ; Bit-Zähler auf 0 setzen
-
-ENDE0:
-PIN0WACKELTNICHT:
-
- sbrs aender,1
- rjmp MAINLOOP
- movw r16,t1moml ; Zählerstand rücksichern
-
- sub r16,lt1p1l
- sbc r17,lt1p1h ; r17:r16 = TimeDiff
-
- movw lt1p1l,t1moml ; aktuellen Zählerstand als alten setzen
-
- subi r16,0xb1
- sbci r17,0x01 ; - 865/2 = 0x01b1 = halbes Bit
-
- brcs RESET1 ; zu kurzes Bit -> Fehler!
-
- subi r16,0x61
- sbci r17,0x03 ; - 865 = 0x0361 = kurzes Bit
- brcc KEINKURZESBIT1
-
- clr r16 ; wird einfach gespeichert!
- inc bcnt1
- rjmp WEITER1
-KEINKURZESBIT1:
- subi r16,0x61
- sbci r17,0x03 ; - 865 = 0x0361 = (noch ein) kurzes Bit (= langes Bit)
- brcc RESET1 ; zu langes Bit -> Fehler
-
- inc bcnt1
- inc bcnt1
- ldi r16,0x01 ; wird doppelt gespeichert!
-
-WEITER1:
- clc
- sbrs lastB,1 ; alten Pinzustand
- sec ; nach C
- lds r17,(0x0064) ; das erste der insgesamt vier Bytes von empfangenen Bits
- rol r17
- sts (0x0064),r17
- lds r17,(0x0065)
- rol r17
- sts (0x0065),r17
- lds r17,(0x0066)
- rol r17
- sts (0x0066),r17
- lds r17,(0x0067)
- rol r17
- sts (0x0067),r17
- brcs RESET1 ; es kamen mehr als 32 Bits an -> Fehler!
-
- subi r16,0x01
- brcc WEITER1
-
- ldi r16,0x1a
- cp bcnt1,r16
-
- brcs ENDE1 ; noch keine 26 klein-Bits angekommen -> Ende
-
- ldi r16,0x1c
- cp bcnt1,r16
- brcc RESET1 ; mehr als 27 klein-Bits angekommen -> Fehler!
-
- sbrs lastB,1 ; jetziger Zustand ist high?
- rjmp ENDE1 ; nein -> dann ist es auch nicht fertig!
-
- lds r16,(0x0067) ; das letzte Byte
- ori r16,0x40 ; die übrigen Bits (also die Bits, die eben nicht empfangen wurden)
- sts (0x0067),r16 ; des zuerst "empfangenen" Bytes werden alternierend auf 1 gesetzt
-
- ldi r26,0x64
- ldi r27,0x00 ; Startadresse in den Speicher,
- mov r16,bcnt1 ; Bitanzahl in r16
- rcall VERSENDEN ; und ab durch die serielle Schnittstelle
-
-RESET1:
- ldi r16,0x03 ; Startbit + '10'=0 (also 1. Empfänger)
- sts (0x0064),r16
ldi r16,0x00
- sts (0x0065),r16
- sts (0x0066),r16
- sts (0x0067),r16 ; empfangene Bits initialisieren
- clr bcnt1 ; Bit-Zähler auf 0 setzen
-
-ENDE1:
-PIN1WACKELTNICHT:
-
- rjmp MAINLOOP
-
-TIMER0COMPA:
+ out WDTCSR,r16 ; Watchdog aus
+
+ ldi r17,0xd0
+ ldi r16,0x55
+ out OCR1AH,r17
+ out OCR1AL,r16 ; TimerB bis 0xd055 laufen lassen (= 300 Hz)
+ ldi r16,0x09
+ out TCCR1B,r16 ; no prescaler
+ ldi r16,0x40
+ out TIMSK,r16 ; Counter1 Output Compare A Match Interrupt Enable
+
+ ldi r16,0x55
+ out PORTB,r16 ; Muster auf PORTB (Zeilen)
+ ldi r16,0x0c
+ out PORTD,r16 ; 2x n.d., 2x Pull-up (Taster), Muster auf Spalten
+ ldi r16,0xff
+ out DDRB,r16 ; Ausgänge: PORTB (Zeilen)
+ ldi r16,0x70
+ out DDRD,r16 ; Ausgänge: PORTD4..6 (Spalten)
+
+ ldi Spalte,1
+ ldi r16,0x12
+ mov Stunde,r16
+ ldi r16,0x34
+ mov Minute,r16
+ ldi r16,0x56
+ mov Sekunde,r16
+
+ ldi nTicsL,100
+
+ sei
+
+main_loop:
+ cp nTicsL,TicsL
+ brcc main_loop
+ mov r16,nTicsL
+ subi r16,0x80
+ mov r17,TicsL
+ subi r17,0x80
+ cp r16,r17
+ brcc main_loop
+
+neue_Sekunde:
+
+ ldi r16,100
+ add nTicsL,r16
+
+ sbis PIND,2
+ rjmp neue_Stunde
+ sbis PIND,3
+ rjmp neue_Minute
+
+ inc Sekunde
+ mov r16,Sekunde
+ cpi r16,61
+ brcs main_loop
+
+neue_Minute:
+
+ clr Sekunde
+ inc Minute
+ mov r16,Minute
+ cpi r16,61
+ brcs main_loop
+
+neue_Stunde:
+
+ clr Sekunde
+ clr Minute
+ inc Stunde
+ mov r16,Stunde
+ cpi r16,25
+ brcs main_loop
+
+ clr Stunde
+
+ rjmp main_loop
+
+TIMER1COMPA:
push r16
in r16,SREG
push r16
-
- sbrc sbuff0,0
- sbi PORTA,1
- sbrs sbuff0,0
- cbi PORTA,1
-
-; clc ; so werden die Daten zyklisch gesendet
-; sbrc r0,0
- sec
-
- ror sbuff4
- ror sbuff3
- ror sbuff2
- ror sbuff1
- ror sbuff0
-
+ push r17
+ ldi r17,0x07
+ out PORTD,r17
+
+ inc Spalte
+ cpi Spalte,2
+ brne nicht_Stunde_Anzeigen
+ ldi r17,0x60
+ mov r16,Stunde
+ rjmp anzeigen
+nicht_Stunde_Anzeigen:
+ cpi Spalte,3
+ brne nicht_Minute_Anzeigen
+ ldi r17,0x50
+ mov r16,Minute
+ rjmp anzeigen
+nicht_Minute_Anzeigen:
+ ldi r17,0x30
+ mov r16,Sekunde
+ subi Spalte,3
+ inc TicsL
+ brne anzeigen
+ inc TicsH
+anzeigen:
+ com r16
+ ori r17,0x0c
+ out PORTB,r16
+ out PORTD,r17
+ pop r17
pop r16
out SREG,r16
pop r16
-
- reti ; TIMER0COMPA
-
-WARTEAUFSENDBUFFER: ; wartet, bis der Sende-Puffer leer ist
- ldi r16,0xff
- cp sbuff4,r16
- brne WARTEAUFSENDBUFFER
- cp sbuff3,r16
- brne WARTEAUFSENDBUFFER
- cp sbuff2,r16
- brne WARTEAUFSENDBUFFER
- cp sbuff1,r16
- brne WARTEAUFSENDBUFFER
- cp sbuff0,r16
- brne WARTEAUFSENDBUFFER
- ret ; WARTEAUFSENDBUFFER
-
-VERSENDEN: ; versendet r16/2+1 Bit Manchester-kodierte Daten
- ; aus DRAM, Adresse r27:r26 (=X), base64-kodiert
-
- movw r18,r26 ; Speicheradresse merken
- sbrc r16,0
- rjmp VERSENDENNICHTSCHIEBEN
- sec
- ld r17,X
- rol r17
- st X+,r17
- ld r17,X
- rol r17
- st X+,r17
- ld r17,X
- rol r17
- st X+,r17
- ld r17,X
- rol r17
- st X+,r17
- movw r26,r18
-VERSENDENNICHTSCHIEBEN:
- lsr r16
- ldi r17,0x0d
- cpse r16,r17 ; nicht 26 halb-Bits?
- ret ; -> Fehler!
-
-; ld r18,X+
-; ld r18,X+
-; ld r18,X+
-; ld r17,X+
-; clr r16
-; rjmp AUSLESESCHLEIFENENDE
-
- ldi r20,0x03
-ALTERNIERENDTESTSCHLEIFE:
- ld r16,X+
- mov r17,r16
- lsr r16
- eor r16,r17
- andi r16,0x55
- ldi r17,0x55
- cpse r16,r17 ; Bits alternierend?
- ret ; nein -> Ende!
-
- subi r20,0x01
- brcs ALTERNIERENDTESTSCHLEIFEENDE
- rjmp ALTERNIERENDTESTSCHLEIFE
-ALTERNIERENDTESTSCHLEIFEENDE:
-
- movw r26,r18
- clr r18
- clr r17
- clr r16
-
- ldi r19,0x10 ; 16 Bits zu lesen (13 reale Bits + 3 Geistbits)
-AUSZENSCHLEIFE:
- ld r20,X+
- ldi r21,0x04 ; 4 Bits je Byte
-INNENSCHLEIFE:
- ror r20
- ror r20
- rol r18
- rol r17
- rol r16
- subi r19,0x01
- breq AUSLESESCHLEIFENENDE
- subi r21,0x01
- brne INNENSCHLEIFE
- rjmp AUSZENSCHLEIFE
-AUSLESESCHLEIFENENDE:
-
- ; die zu sendenden 18 Bit Informationen liegen in r16(2):r17(8):r18(8)
-
- rol r18
- rol r17
- rol r16
- rol r18
- rol r17
- rol r16
-
- lsr r18
- lsr r18
-
- rol r17
- rol r16
- rol r17
- rol r16
-
- lsr r17
- lsr r17
-
- rcall TOBASE64
- push r16
- mov r16,r17
- rcall TOBASE64
- push r16
- mov r16,r18
- rcall TOBASE64
- push r16
- ; die zu sendenden Zeichen liegen auf dem Stack (3., 2., 1.)
- rcall WARTEAUFSENDBUFFER
-
- cli
-
- clc
-
- ; aus logistischen Gründen füllen wir den Puffer von hinten nach vorne
-
- ldi r16,0x0d ; 0x0d (CR)
- mov sbuff4,r16
-
- pop r17
- ldi r16,0x40
- sec
- ror r17
- ror r16
- ror r17
- ror r16
- mov sbuff3,r17
-
- pop r17
- swap r17
- mov r18,r17
- andi r18,0x0f
- or r16,r18
- mov sbuff2,r16
-
- andi r17,0xf0
- ori r17,0x04
- pop r18
- clr r16
- clc
- rol r18
- rol r16
- sec
- rol r18
- rol r16
- or r16,r17
- mov sbuff1,r16
-
- mov sbuff0,r18
-
- sei
-
-VERSENDENENDE:
- ret ; VERSENDEN
-
-TOBASE64: ; konvertiert Bit 0-5 von r16 in base64
- ; 0-25: A-Z: +0x41 (=-0xbf)
- ; 26-51: a-z: +0x47 (=-0xb9)
- ; 52-61: 0-9: -0x04
- ; 62: +: -0x13
- ; 63: /: -0x10
- andi r16,0x3f ; zur Sicherheit
- cpi r16,26
- brcc NICHT0BIS25
- subi r16,0xbf
- ret ; TOBASE64
-NICHT0BIS25:
- cpi r16,52
- brcc NICHT26BIS51
- subi r16,0xb9
- ret ; TOBASE64
-NICHT26BIS51:
- cpi r16,62
- brcc NICHT52BIS61
- subi r16,0x04
- ret ; TOBASE64
-NICHT52BIS61:
- cpi r16,63
- brcc NICHT62
- subi r16,0x13
- ret ; TOBASE64
-NICHT62:
- subi r16,0x10
- ret ; TOBASE64
-
-
+ reti
|