displaytest2313.asm

.include "2313def.inc"         

.def temp1 = r16

.def temp2 = r17

.def temp3 = r18

.def text = r0

; Display 1.Zeile=$80

; Display 2.Zeile=$C0

; Display 3.Zeile=$94

; Display 4.Zeile=$D4

    rjmp reset ; Reset-Vector

    reti       ; Ext Int 0, nicht benutzt

    reti       ; Ext Int 1, nicht benutzt

    reti       ; Timer 1 Capture Event, nicht benutzt

    reti       ; Time@wee2423423r 1 Compare Match

    reti       ; Timer 1 Overflow, nicht benutzt

    reti       ; Timer 0 Overflow, nicht benutzt

    reti       ; UART Rx Complete

    reti       ; UART Tx data register empty, nicht benutzt

    reti       ; UART Tx All sent, nicht benutzt

reset:

    ldi temp1,RAMEND     ; Init stack pointer im SRAM

    out SPL,temp1       ; nur 8-Bit-Pointer bei 2313

    ldi temp1, 0b00001111    ; Port D = Ausgang

      out DDRB, temp1      ;Port B ist jetzt Ausgang

    ldi temp1, 0b11110000

    out portb,temp1

    ldi r16,  $ff  ;Port D durch Ausgabe von 0x00 ins

    out DDRD, r16       ;Richtungsregister DDRD als Eingang konfigurieren

    ldi r22,0

    rcall lcd_init

    rcall lcd_clear

      ldi ZH,high(2*txtstart1) ; Sende Text 

      ldi ZL,low (2*txtstart1)

      rcall lctext

      ldi temp1, $C0       ; 2. Zeile

          rcall lcd_command

      ldi ZH,high(2*txtstart2) ; Sende Text 

      ldi ZL,low (2*txtstart2)

      rcall lctext

      rcall zeit

      rcall lcd_clear

      ldi ZH,high(2*txtstart3) ; Sende Text 

      ldi ZL,low (2*txtstart3)

      rcall lctext

      ldi temp1, $C0       ; 2. Zeile

          rcall lcd_command

      ldi ZH,high(2*txtstart4) ; Sende Text 

      ldi ZL,low (2*txtstart4)

      rcall lctext

      rcall zeit

      rcall lcd_clear

      ldi ZH,high(2*initiate) ; Sende Text 

      ldi ZL,low (2*initiate)

      rcall lctext

      rcall zeit

      rcall lcd_clear

      rjmp ja1

zeit2:    ldi r19, 100    ; Zeitschleife

time6:    ldi r20, 50

time5:    ldi r21, 50

time4:    dec r21

      brne time4

      dec r20

      brne time5

      dec r19

      brne time6

      ret

; ------- Hier läuft das Hauptprogramm ---------------------------------------------

Start:    rjmp taster

      rjmp start

; --------- Hier wird meine Taster und Eingange abgefragt -------------

taster:    sbis PINB, 4

      rjmp vorlauf

      sbis PINB, 5

      rjmp ruecklauf

      rjmp Start

ja1:    rcall lcd_clear

      rcall clean

      ldi ZH,high(2*scart1) ; Sende Text 

      ldi ZL,low (2*scart1)

      rcall lctext

      ldi temp1, $c0  

          rcall lcd_command

      ldi ZH,high(2*scart11) ; Sende Text 2.Zeile

      ldi ZL,low (2*scart11)

      rcall lctext

      rcall zeit2

      rjmp Start

ja2:    rcall lcd_clear

      rcall clean

      sbi PORTB, 0

      ldi ZH,high(2*scart1) ; Sende Text 

      ldi ZL,low (2*scart1)

      rcall lctext

      ldi temp1, $c0  

          rcall lcd_command

      ldi ZH,high(2*scart22) ; Sende Text 2.Zeile

      ldi ZL,low (2*scart22)

      rcall lctext

      ;rcall zeit2

      rjmp Start

ja3:    rcall lcd_clear

      rcall clean

      sbi PORTB, 0

      sbi PORTB, 1

      ldi ZH,high(2*scart3) ; Sende Text 

      ldi ZL,low (2*scart3)

      rcall lctext

      ldi temp1, $c0  

          rcall lcd_command

      ldi ZH,high(2*scart11) ; Sende Text 2.Zeile

      ldi ZL,low (2*scart11)

      rcall lctext

      rjmp Start

ja4:    rcall lcd_clear

      rcall clean

      sbi PORTB, 2

      ldi ZH,high(2*scart3) ; Sende Text 

      ldi ZL,low (2*scart3)

      rcall lctext

      ldi temp1, $c0  

          rcall lcd_command

      ldi ZH,high(2*scart22) ; Sende Text 2.Zeile

      ldi ZL,low (2*scart22)

      rcall lctext

      rjmp Start

vorlauf:  inc r22

      cpi r22, 0

      breq ja1

      cpi r22, 1

      breq ja2

      cpi r22, 2

      breq ja3

      cpi r22, 3

      breq ja4

      cpi r22, 4

      breq ueberlauf

      rjmp Start

ruecklauf:  dec r22

      cpi r22, 0

      breq ja1

      cpi r22, 1

      breq ja2

      cpi r22, 2

      breq ja3

      cpi r22, 3

      breq ja4

      cpi r22, 255

      breq ueberlauf2

      rjmp Start

ueberlauf:  ldi r22, 3

      rjmp Start

ueberlauf2:  ldi r22, 0

      rjmp Start

clean:    cbi PORTB, 0

      cbi PORTB, 1

      cbi PORTB, 2

      cbi PORTB, 3

      ret

warte1:    sbis PINB, 4

      rjmp warte1

      ret

warte2:    sbis PINB, 5

      rjmp warte2

      ret    

; -------- Zeitschleife Eingänge und Taster ----------------------

zeit:    ldi r19, 255    ; Zeitschleife

time3:    ldi r20, 200

time2:    ldi r21, 150

time1:    dec r21

      brne time1

      dec r20

      brne time2

      dec r19

      brne time3

      ret

; -------- Hier wird mein Text für LCD aus der Datenbank geholt ----------

lctext:    lpm          ; Lese Zeichen

lcnext:    mov temp1,r0      ; Kopiere Zeichen in Senderegister

      rcall lcd_data      ; Unterprogramm aufrufen,Text ausgeben

      adiw ZL, 1       ; Zeiger auf nächstes Zeichen

      lpm          ; Lese Zeichen

      tst r0        ; Ergebnis im Register R0 hat Null erreicht?

      brne lcnext      ; Nächstes Zeichen

      ret          ; Zurück zum Sender

; --------- Hier stehen meine Texte --------------------------------------

.include "lcd-routines.asm"

txtstart1:

.DB "Cordula  Esser`s",0

txtstart2:

.DB "Scart Umschalter",0

txtstart3:

.DB "  Copyright by  ",0

txtstart4:

.DB "  Denk Andreas  ",0

scart1:

.DB "  Sat Receiver",0

scart11:

.DB "   Signal RGB",0

scart22:

.DB "Signal Composite",0

initiate:

.DB ">Initialisierung",0

scart3:

.DB "   DVD Player",0