UI-D-2WIRE.asm

;; Target: Atmel ATTiny13

;;

.include "tn13def.inc"

;; Takt: 128 kHz intern

;;

.equ XTAL = 128000

;; Register-Definition

;; (verschwenderisch, wird aber sonst nicht genutzt)

.def sendenaktiv = r0

.def vorherigeabfrage = r1

.def fernversorgung = r2

.def sendezaehler = r3

.def multipliziert = r4

.def varausgabe = r5

.def mulzaehler = r6

.def pinvar = r7

.def temp1 = r16

.def temp2 = r17

.def temp3 = r18

;; Eingänge: 4 (PB0 - PB3)

;;

;; Ausgänge: 1 (PB4)

;;

;; Genutzte Interrupts:

;;

;; Timer0 Overflow (500 * 1/s @ 128000 Hz)

;; PinChange (Spannungsversorgung wird unterbrochen, "ich" darf senden)

;;

.org 0x00

rjmp init    ;; Reset-Vektor

.org 0x02    ;; Pin-Change

rjmp pcint

.org 0x03    ;; Timer0-Overflow

rjmp timer

.org 0x0A    ;; Programm-Start

init:

  ldi temp1, LOW(RAMEND)

  out SPL, temp1        ;; Stackpointer init

  ldi temp1, 0b00010000    ;; DDRB setzen,

  out DDRB, temp1        ;; nur PB4 als Ausgang.

  ldi temp1, 0x01        ;; Timer-Interrupt

  out TCCR0B, temp1      ;; Kein Vorteiler!

  ldi temp1, 0x02        ;; Timer Overflow Interrupt aktivieren

  out TIMSK0, temp1

  ldi temp1, 0x20        ;; PC-Interrupt aktivieren

  out GIMSK, temp1      ;; 

  ldi temp1, 0x08        ;; Auf PCINT3 reagieren (PB3)

  out PCMSK, temp1

  sbis PORTB, PB3        ;; "fernversorgung" auf den richtigen Status

  ldi temp1, 0x00        ;; bringen. Falls diese schon wieder aus ist,

  sbic PORTB, PB3        ;; kann der Interrupt noch nicht ausgeführt

  ldi temp1, 0xFF        ;; werden, aber es wird bereits der richtige Status

  mov fernversorgung, temp1  ;; "gespeichert" und das Programm geht weiter.

  sei              ;; Enable interrupt handling

  rjmp main          ;; Sprung zur Haupt-Endlos-Schleife

;; Soll-Funktion der Hauptschleife:

;; Eingänge lesen: Eine Änderung des Eingangs muss mindestens 3 Lesevorgänge

;; hintereinander stabil bleiben, um als gültig übernommen zu werden.

main:

  ldi temp1, 0x00

  cp sendenaktiv, temp1    ;; Wurde bereits ein Sende-Vorgang

  brne main          ;; ausgelöst? Ja: Wieder zur Hauptschleife.

  cbi PORTB, PB4        ;; Nein: Ausgang (wieder) auf 0 setzen.

  mov temp2, temp3      ;; Vorherigen PINB-Status in temp2 sichern.

  in temp3, PINB        ;; Aktuellen PINB-Status einlesen

  andi temp3, 0x07      ;; Nur die unteren 3 Bits übernehmen (PB0-PB2)

  cp temp2, temp3        ;; Vorherigen PINB-Status mit jetzigem vergleichen.

  brne main          ;; Stimmt nicht überein, also wieder zur Hauptschleife

  ldi temp2, 0xFF        ;; Stimmt überein, also: Vorherigeabfrage positiv?

  cp vorherigeabfrage, temp2

  brne vorher          ;; Nein? Springe zu "vorher".

  mov pinvar, temp3      ;; Ja: pinvar auf Einlese-Status setzen,

  rjmp main          ;; und zur Hauptschleife zurück.

vorher:

  mov vorherigeabfrage, temp2  ;; Dann positiv setzen,

  rjmp main          ;; und zur Hauptschleife zurück.

;; Interrupt-Handling

;; PinChange-Interrupt:

;;

pcint:

ldi temp1, 0xFF        ;; Wurde das Senden beits aktiviert? (Abfrage durch

cp sendenaktiv, temp1    ;; Rückkopplung nötig)

breq PCEnd          ;; Ja: Springe zu PCEnd (Interrupt beenden)

brne PCWei          ;; Nein: Springe zu PCWei

RemOff:

ldi temp1, 0x00        ;; Spannungsversorgung wurde getrennt, Status in einem

mov fernversorgung, temp1  ;; Register speichern, und für den Timer-Interrupt

rjmp PCEnd          ;; zugänglich machen. Dann zu PCEnd springen (Int. beenden)

PCWei:

sbis PORTB, PB3        ;; Senden noch nicht aktiv. "Prüfe", ob Versorgung beendet.

rjmp RemOff          ;; Spannung wurde entfernt -> Springe zu RemOff

ldi temp1, 0xFF        ;; Spannung wurde nicht entfernt, also fernversorgung weiterhin

mov fernversorgung, temp1  ;; eingeschaltet lassen.

PCEnd:

reti            ;; Interrupt korrekt verlassen.

;; Timer-Overflow-Interrupt:

;;

timer:

ldi temp1, 0x00

cpse fernversorgung, temp1  ;; Interrupt verlassen, wenn "fernversorgung" eingeschaltet.

reti

ldi temp1, 0xFF

cp sendenaktiv, temp1    ;; Andernfalls prüfen, ob bereits ein Sende-Vorgang aktiv ist.

brne T1SNA          ;; Springe zu T1SNA, wenn nicht aktiv.

breq T1SA          ;; Springe zu T1SA, wenn aktiv.

T1SNA:

ldi temp1, 0x00        ;; Nicht aktiv, also aktivieren.

mov sendezaehler, temp1    ;; Gesendet wird Bit 0

ldi temp1, 0xFF

mov sendenaktiv, temp1    ;; "sendenaktiv" wird gesetzt.

sbi PORTB, PB4        ;; Ausgabe wird 1 gesetzt. (Vor den Daten wird "1 1 0 0 1 1 1 1"

inc sendezaehler      ;; gesendet, zur Geschwindigkeitserkennung) - Und Anzahl der

              ;; gesendeten Bits um 1 erhöhen. (von 0 auf 1)

reti            ;; Interrupt verlassen, in 256 Takten gehts weiter.

T1SA:            ;; Aktiv, also passendes Bit "suchen" und senden.

ldi temp1, 0x02

cp sendezaehler, temp1    ;; Sendezähler kleiner 2?

brsh Z1            ;; Größer od. gleich 2: weiter zu Z1

sbi PORTB, PB4        ;; Ausgang (wieder) auf 1 setzen.

inc sendezaehler      ;; Anzahl der gesendeten Bits um 1 erhöhen. (von 1 auf 2)

reti            ;; Und wieder: Interrupt verlassen, in 256 Takten gehts weiter.

Z1:

ldi temp1, 0x04        ;; Größer gleich 2 aber auch kleiner als 4?

cp sendezaehler, temp1    ;; [der vergleich...]

brsh Z2            ;; Nein: Weiter zu Z2

cbi PORTB, PB4        ;; Ja: Jetzt müssen "wir" 0 senden

inc sendezaehler      ;; Und wieder: Anzahl der gesendeten Bits um 1 erhöhen.

              ;; (von 2 auf 3 ODER von 3 auf 4 - wird 2 mal genutzt)

reti            ;; Und wieder: Interrupt verlassen, in 256 Takten gehts weiter.

Z2:

ldi temp1, 0x08        ;; Größer gleich 4 aber auch kleiner als 8?

cp sendezaehler, temp1    ;; [der vergleich...]

brsh Z3            ;; Nein: Weiter zu Z3

sbi PORTB, PB4        ;; Ja: Jetzt müssen "wir" wieder 1 senden

inc sendezaehler      ;; Und wieder: Anzahl der gesendeten Bits um 1 erhöhen.

              ;; (4>5, 5>6, 6>7, 7>8 - wird 4 mal genutzt)

reti            ;; Und wieder: Interrupt verlassen, in 256 Takten gehts weiter.

Z3:

ldi temp1, 0xFF        ;; Jetzt gehts um "Multiplizieren". Tiny13 hat kein Hardware-MUL,

cp multipliziert, temp1    ;; als Manuell. Wurde das Bereits gemacht?

breq IsMUL          ;; Ja: Springe zu "IsMul"

brne IsNMul          ;; Nein: Springe zu "IsNMul"

IsNMul:

ldi temp1, 0x00

mov varausgabe, temp1    ;; Ausgabe-Variable auf 0 setzen

ldi temp1, 0x00

mov mulzaehler, temp1    ;; Mul-Zähler auf 0 setzen

Marke:            ;; Sprung-Marke für den Mul-Zähler

ldi temp1, 0x23        ;; Mul-Zähler auf 35 (0x23 HEX)?

cp mulzaehler, temp1    ;; [der vergleich...]

breq IsMul          ;; "mulzaehler" = 35, also fertig - Springe zu "IsMul"

add varausgabe, pinvar    ;; Nicht fertig, zu varausgabe den Wert von "pinvar" addieren.

inc mulzaehler        ;; und den "mulzaehler" erhöhen. Damit "man" auch weiß, mit

              ;; welcher Zahl "pinvar" Multipliziert wurde.

rjmp Marke          ;; Sprung zur "Marke". Findet nicht mehr Statt, wenn Mul

              ;; einmal den Wert 0x23 (35 Dez.) erreicht hat.

IsMul:

ldi temp1, 0xF0        ;; Sendezaehler größer gleich 8, aber auch kleiner als 16?

cp sendezaehler, temp1    ;; [der vergleich...]

breq AllSent        ;; Nein: Alles gesendet. Also den Status unter "AllSent" mitteilen.

sbrc varausgabe, 7      ;; Bit7 von varausgabe "extrahieren".

rjmp An            ;; Registerbit ist "1", Senden.

rjmp Aus          ;; Registerbit ist "0", Senden.

An:

sbi PORTB, PB4        ;; Senden einer 1 für das gesetzte Register-Bit

lsl varausgabe        ;; "varausgabe" um 1 Bit nach links verschieben.

rjmp Ende          ;; und Interrupt am "Ende" verlassen.

Aus:

cbi PORTB, PB4        ;; Senden einer 0 für das gelöschte Register-Bit

lsl varausgabe        ;; "varausgabe" um 1 Bit nach links verschieben.

rjmp Ende          ;; und Interrupt am "Ende" verlassen.

Ende:

reti            ;; Interrupt verlassen.

AllSent:          ;; Es wurde alles gesendet.

ldi temp1, 0x00        ;; Also löschen wir

mov multipliziert, temp1  ;; den "multipliziert"-Status

mov sendenaktiv, temp1    ;; den "sendenaktiv"-Status und setzen

mov sendezaehler, temp1    ;; den "sendezaehler" wieder auf 0.

reti            ;; Dann wird der Interrupt wieder verlassen.