roboforum.ru

.include "2313def.inc"

.def temp0 = r16
.def temp1 = r17
.def temp2 = r18
.def temp3 = r19
.def COU_HI= r20
.def COU_LO= r21

.CSEG
.ORG 0
rjmp RESET
.org INT0addr
rjmp ECHO
   
RESET:
ldi   temp0,RAMEND   ;Locate stack
out   SPL,temp0



ldi temp1, 0x00000001    ;Pin D0 = выход (сюда тестовый светодиод подключить, будет мигать. но не обязательно : ) )
out DDRD, temp1
ldi temp1, 0xFF    ;Port B = выход
out DDRB, temp1



nop
nop
nop
nop
nop
nop



sbi PORTD,1
rcall DELAYSEK
cbi PORTD,1
rcall DELAYSEK


          rcall lcd_init     ;Display initialisieren
          rcall lcd_clear    ;Display стереть

          ldi temp1, 'P'     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, 'r'     ;знак/букву вывести
          rcall lcd_data
         
          ldi temp1, 'i'     ;знак/букву вывест
          rcall lcd_data

          ldi temp1, 'v'     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, 'e'     ;знак/букву вывести
          rcall lcd_data
         
          ldi temp1, 't'     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, ' '     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, 0xA3     ;знак/букву вывести (можно и так в шестнадцатиричном коде. коды берутся из таблицы твоего ЖКИ модуля)
          rcall lcd_data
                     
loop: ; а тут просто мигаем светодиодом. надпись на экране уже стоит.
sbi PORTD,1
rcall DELAYSEK
cbi PORTD,1
rcall DELAYSEK
rjmp loop

DELAYSEK:
; -----------------------------
; delaying 1999998 cycles:
         ldi  R25, $12
WGLOOP0A:  ldi  R23, $BC
WGLOOP1A:  ldi  R24, $C4
WGLOOP2A:  dec  R24
         brne WGLOOP2A
         dec  R23
         brne WGLOOP1A
         dec  R25
         brne WGLOOP0A
; -----------------------------
ret

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                 LCD-Routinen                ;;
;;                 ============                ;;
;;              (c)andreas-s@web.de            ;;
;;                                             ;;
;; 4bit-Interface                              ;;
;; DB4-DB7:       PD0-PD3                      ;;
;; RS:            PD4                          ;;
;; E:             PD5                          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;sendet ein Datenbyte an das LCD
lcd_data:
          mov temp2, temp1             ;"Sicherungskopie" für
                                       ;die Übertragung des 2.Nibbles
          swap temp1                   ;Vertauschen
          andi temp1, 0b00001111       ;oberes Nibble auf Null setzen
          sbr temp1, 1<<4              ;entspricht 0b00010000
          out PORTB, temp1             ;ausgeben
          rcall lcd_enable             ;Enable-Routine aufrufen
                                       ;2. Nibble, kein swap da es schon
                                       ;an der richtigen stelle ist
          andi temp2, 0b00001111       ;obere Hälfte auf Null setzen
          sbr temp2, 1<<4              ;entspricht 0b00010000
          out PORTB, temp2             ;ausgeben
          rcall lcd_enable             ;Enable-Routine aufrufen
          rcall delay50us              ;Delay-Routine aufrufen
          ret                          ;zurück zum Hauptprogramm

;sendet einen Befehl an das LCD
lcd_command:                            ;wie lcd_data, nur ohne RS zu setzen
          mov temp2, temp1
          swap temp1
          andi temp1, 0b00001111
          out PORTB, temp1
          rcall lcd_enable
          andi temp2, 0b00001111
          out PORTB, temp2
          rcall lcd_enable
          rcall delay50us
          ret

;erzeugt den Enable-Puls
lcd_enable:
          sbi PORTB, 5                 ;Enable high
rcall delay50us
          cbi PORTB, 5                 ;Enable wieder low
          ret                          ;Und wieder zurück                    

;Pause nach jeder Übertragung
delay50us:                              ;50us Pause
; =============================
;    delay loop generator
; -----------------------------
; delaying 48 cycles:
         ldi  temp1, $11
WGLOOP0:  dec  temp1
         brne WGLOOP0
; -----------------------------
; =============================
          ret                          ;wieder zurück

;Längere Pause für manche Befehle
delay5ms:                               ;5ms Pause
;ret ; !!!!!!!
; =============================
;    delay loop generator
; -----------------------------
; delaying 49995 cycles:
         ldi  temp1, $65
WGLOOP0C:  ldi  temp2, $A4
WGLOOP1C:  dec  temp2
         brne WGLOOP1C
         dec  temp1
         brne WGLOOP0C
; -----------------------------
; delaying 6 cycles:
         ldi  temp1, $02
WGLOOP2C:  dec  temp1
         brne WGLOOP2C
; =============================
          ret                          ;wieder zurück

;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden
lcd_init:
          ldi   temp3,50
powerupwait:
          rcall   delay5ms
          dec   temp3
          brne   powerupwait
          ldi temp1, 0b00000011        ;muss 3mal hintereinander gesendet
          out PORTB, temp1             ;werden zur Initialisierung
          rcall lcd_enable             ;1
          rcall delay5ms
          rcall lcd_enable             ;2
          rcall delay5ms
          rcall lcd_enable             ;und 3!
          rcall delay5ms
          ldi temp1, 0b00000010        ;4bit-Modus einstellen
          out PORTB, temp1
          rcall lcd_enable
          rcall delay5ms
          ldi temp1, 0b00101000        ;noch was einstellen...
          rcall lcd_command
          ldi temp1, 0b00001100        ;...nochwas...
          rcall lcd_command
          ldi temp1, 0b00000100        ;endlich fertig
          rcall lcd_command
          ret

;Sendet den Befehl zur Löschung des Displays
lcd_clear:
          ldi temp1, 0b00000001   ;Display löschen
          rcall lcd_command
          rcall delay5ms
          ret

ECHO:
cli ; disable global interrupts
ldi   temp0,0b00000000 ; Timer 1 -> STOP!
out   TCCR1B,temp0     ; Timer 1 -> STOP!
nop
nop
nop
reti