Pfad:AVR-DE => Anwendungen => LCD-Experimentierboard => Beispielanwendung Include-Routinen
tn24_lcd_Experimentierboard klein Anwendungen von
AVR-Einchip-Prozessoren AT90S, ATtiny, ATmega und ATxmega
Experimentierboard mit einem ATtiny24/44/84 und einer LCD Beispielanwendung des Include-Routinen-Quellcodes (ohne Interrupts)
Logo

Anwendung der Include-Routinen in linearen Programmen für das ATtiny24/44/84 Experimentierboard

Quellcode-Link: hier.

;
; ******************************************
; * Beispiel-LCD-Ansteuerungsprogramm      *
; * ohne Interrupts mit tn24_lcd_busy.inc  *
; * (C)2018 http://www.av-asm-tutorial,net *
; ******************************************
;
.nolist
.include "tn24def.inc" ; Define device ATtiny24
.list
;
; **********************************
;        H A R D W A R E
; **********************************
;
; **********************************
;  P O R T S   A N D   P I N S
; **********************************
;
; (Port A Portbits PA0..PA3 frei verfuegbar)
;
; **********************************
;   A D J U S T A B L E   C O N S T
; **********************************
;
; Default-Prozessor-Taktfrequenz
;   maximal zulaessige Taktfrequenz: 8 MHz
;   bei hoeheren Taktfrequenzen: Makro LcdEDly
;   entsprechend erweitern!
;
.equ clock=1000000 ; Define clock frequency
;
; Verzoegerung zwischen der LCD-Init-Textausgabe
;   und der LCD-Masken-Textausgabe, in Vielfachen
;   von 250 ms
;
.equ cLcdDelay = 20 ; Maskenausgabeverzoegerung
;
; Schalter fuer die Verwendung von
;   LCD-Ausgabe-Routinen fuer Zahlen
;   Nicht verwendete Ausgabe-Routinen mit ;
;   auskommentieren
;
.set sLcdDec8 = 1 ; Ausgabe von 8-Bit-Dezimalzahlen
.set sLcdDec16 = 1 ; Ausgabe von 16-Bit-Dezimalzahlen
.set sLcdHex8 = 1 ; Ausgabe von 8-Bit-Hexadecimalzahlen
.set sLcdHex16 = 1 ; Ausgabe von 16-Bit-Hexadezimalzahlen
.set sLcdBin8 = 1 ; Ausgabe von 8-Bit-Binaerzahlen
.set sLcdBin16 = 1 ; Ausgabe von 16-Bit-Binaerzahlen
.set LcdZahl8 = 123 ; Auszugebende 8-Bit-Zahl
.set LcdZahl16 = 12345 ; Auszugebende 16-Bit-Zahl
;
; Erzeugen von eigenen Zeichen auf der LCD
;
.set sLcdChars = 1 ; Erzeuge eigene Zeichen und zeige an
;
; **********************************
;  F I X  &  D E R I V.  C O N S T
; **********************************
;
; **********************************
;       R E G I S T E R S
; **********************************
;
; frei: R0 bis R15 (R0 und R1 werden von Include-
;       routinen benutzt, aber wieder hergestellt)
; rmp muss definiert sein (Include-Routinen)
.def rmp = R16 ; Define multipurpose register
; frei: R17 bis R29
; benutzt: R31:R30 = Z temporaer fuer Include-Routinen
;
; **********************************
;           S R A M
; **********************************
;
.dseg
.org SRAM_START
;
; **********************************
;       C O D E - S E G M E N T
; **********************************
;
.cseg
.org 000000
;
; **********************************
;  M A I N   P R O G R A M   I N I T
; **********************************
;
Main:
  ; Stapel initiieren
;  ldi rmp,High(RAMEND) ; Nur bei ATtiny84!
;  out SPH,rmp
  ldi rmp,Low(RAMEND)
  out SPL,rmp
  ; LCD initiieren
  rcall LcdInit
  ; Ausgabe von Zahlen in diversen Formaten
  .ifdef sLcdBin8 ; 8-Bit-Binaerzahl ausgeben?
    rcall LcdLine1
    ldi rmp,'0'
    rcall LcdChar
    ldi rmp,'x'
    rcall LcdChar
    ldi rmp,LcdZahl8
    rcall LcdBin8
    ldi rmp,' '
    rcall LcdChar
    ldi rmp,'='
    rcall LcdChar
    .endif
  .ifdef sLcdHex8 ; 8-Bit-Hexadezimalzahl ausgeben?
    ; 8-Bit-Hexadezimalzahl in Zeile 1 ausgeben
    ldi ZH,0 ; in Zeile 1
    ldi ZL,cLcdColumns-7 ; in die Mitte der Zeile
    rcall LcdPos
    ldi rmp,'$'
    rcall LcdChar ; an LCD ausgeben
    ldi rmp,LcdZahl8 ; Auszugebende Zahl
    rcall LcdHex8
    .ifdef sLcdDec8
      ldi rmp,'=' ; Gleicheitszeichen
      rcall LcdChar
      .endif
    .endif
  .ifdef sLcdDec8 ; 8-Bit-Dezimalzahl ausgeben?
    ; 8-Bit-Dezimalzahl in Zeile 1 ausgeben
    ldi ZH,0 ; in Zeile 1
    ldi ZL,cLcdColumns-3 ; ans Ende der Zeile
    rcall LcdPos
    ldi rmp,LcdZahl8 ; Auszugebende Zahl
    rcall LcdDec8
    .endif
  .ifdef sLcdHex16 ; 16-Bit-Hexadezimalzahl ausgeben?
    ; 16-Bit-Hexadezimalzahl in Zeile 2 ausgeben
    ldi ZH,1 ; Zeile 2
    ldi ZL,9 ; in zehnte Spalte
    rcall LcdPos
    ldi rmp,'$' ; Dollarzeichen fuer Hex
    rcall LcdChar
    ldi ZH,High(LcdZahl16) ; Auszugebende Zahl
    ldi ZL,Low(LcdZahl16)
    rcall LcdHex16
    .ifdef sLcdDec16
      ldi rmp,'='
      rcall LcdChar
      .endif
    .endif
  .ifdef sLcdDec16 ; 16-Bit-Dezimalzahl ausgeben?
    ldi ZH,1 ; Zeile 2
    ldi ZL,cLcdColumns-5
    rcall LcdPos
    ldi ZH,High(LcdZahl16)
    ldi ZL,Low(LcdZahl16)
    rcall LcdDec16
    .endif
  .ifdef sLcdBin16 ; 16-Bit-Binaerzahl ausgeben?
    rcall LcdLine3 ; An den Anfang von Zeile 3
    ldi rmp,'='
    rcall LcdChar
    ldi rmp,' '
    rcall LcdChar
    ldi ZH,High(LcdZahl16)
    ldi ZL,Low(LcdZahl16)
    rcall LcdBin16
    .endif
  .ifdef sLcdChars
    ldi ZH,High(2*Codezeichen)
    ldi ZL,Low(2*Codezeichen)
    rcall LcdChars
    rcall LcdLine4 ; in Zeile 4
    ldi ZH,High(2*Codezeile)
    ldi ZL,Low(2*Codezeile)
    rcall LcdTextC
    .endif
;
Loop:
  rjmp Loop

;
; Die LCD-Routinen
;
.include "tn24_lcd_busy_4x20.inc"
;
; Spezialzeichen fuer LCD
;
.ifdef sLcdChars
  ;
  ; Tabelle der Codezeichen
  Codezeichen:
  .db 64,0,0,0,0,10,10,12,8,16 ; Z = 0, mikro
  .db 72,0,0,14,17,17,17,10,27,0 ; Z = 1, Omega
  .db 80,0,0,0,10,17,21,10,0,0 ; Z = 2, omega
  .db 88,0,1,27,1,1,0,0,0,0 ; Z = 3, hoch-1
  .db 0,0
  Codezeile:
  .db '1',0,"F, R=8",1,", ",2,"=0.1s",3,0xFE,0xFE
  .endif
;
; End of source code
;




Seitenanfang




Lob, Tadel, Fehlermeldungen, Genöle und Geschimpfe oder Spam bitte über das Kommentarformular an mich.

©2018 by http://www.avr-asm-tutorial.net