home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 43B / ABBUC_Magazin_43_199x_ABBUC_Side_B.atr / lcd2mini.src < prev    next >
Text File  |  2023-02-26  |  2KB  |  161 lines
  1. ************************************
  2. *MINIHAENDLER FUER ARGS LCD-DISPLAY*
  3. *          VERSION 2               *
  4. *   HARD- u. SOFTWARE v. RoBue     *
  5. *           06.12.1994             *
  6. ************************************
  7.  
  8. * Handlername: "A:"
  9. * ASCII-Ausgabe (7-Bit)
  10. * EOL (155) -> Ruecksprung an Anfang
  11. * CLR (125) -> Loeschen,
  12. *              Ruecksprung an Anfang
  13.  
  14.     ORG $0600
  15.  
  16. PACTL    EQU $D512
  17. PORTA    EQU $D510 
  18. PBCTL    EQU $D513
  19. PORTB    EQU $D511
  20. PHENTV   EQU $E486
  21. TIMER    EQU $14
  22. CONSOL    EQU $D01F
  23.  
  24. DLEFT    EQU 24
  25. DRIGHT    EQU 28
  26. CLEFT    EQU 16
  27. CRIGHT    EQU 20
  28. FUNCTION EQU 56
  29. DON    EQU 15
  30. DCLEAR    EQU 1
  31. CHOME    EQU 2
  32. CMOVE    EQU 4
  33.  
  34.  
  35. START    PLA          BASIC
  36. *
  37.     LDX #'A        A:-HANDLER
  38.     LDA #TABELLE:H    EINTAGEN
  39.     LDY #TABELLE:L
  40.          SEC
  41.          JSR PHENTV
  42.          BCC START1
  43.          RTS        KEIN EINTRAG
  44.  
  45. START1   LDA #56        PIA UND
  46.          STA PBCTL    INITIALI-
  47.     LDA #48
  48.          LDA #255
  49.          STA PORTB
  50.     LDA #0
  51.     STA PORTA
  52.     LDA #60
  53.     STA PBCTL
  54.          LDA #52
  55.          STA PACTL
  56.     LDA #0
  57.     STA PORTB
  58.          LDA #FUNCTION    8BIT
  59.          JSR BEFEHL
  60.          LDA #DON        LCD AN
  61.          JSR BEFEHL
  62.          LDA #DCLEAR    LCD LOESCHEN
  63.          JSR BEFEHL
  64.     LDA #CHOME
  65.     JSR BEFEHL
  66. READY    LDY #0        READY
  67. READY1    LDA TEXT,Y    AUF LCD
  68.          BEQ ENDE        AUSGEBEN
  69.          JSR ZEICHEN
  70.     INY
  71.     JMP READY1
  72. ENDE    RTS
  73. TEXT     ASC 'Ready'
  74.          DFB 0
  75.  
  76. TABELLE    DFW OPEN-1     Handlertabelle
  77.     DFW CLOSE-1
  78.     DFW GET-1
  79.     DFW PUT-1
  80.     DFW GET-1
  81.     DFW GET-1
  82.          JMP GET
  83.          DFB 0
  84.  
  85. OPEN     LDA #DON
  86.          JSR BEFEHL
  87. OPEN1    LDA #DCLEAR
  88.          JSR BEFEHL
  89. OPEN2    LDA #CHOME
  90.     JSR BEFEHL
  91. CLOSE    LDY #1    
  92.     RTS
  93.  
  94. GET    RTS
  95.  
  96. PUT      TAX
  97.          CPX #125        CLEAR?
  98.          BNE PUT1
  99.     JMP OPEN1
  100. PUT1     CPX #155        EOL?
  101.          BNE PUT2        NEIN ->
  102.     JMP OPEN2    
  103. PUT2    TXA
  104.          JSR ZEICHEN
  105.          LDY #1
  106.          RTS
  107.  
  108. *    PROGRAMMIEREN DES DISPLAYS
  109. *    Wert steht im Akku
  110. BEFEHL    PHA
  111.     LDA #0
  112.     STA PORTB    RS->BEFEHL  
  113.     LDA #52
  114.     STA PBCTL    WRITE
  115.     JSR WAIT
  116.     LDA #60
  117.     STA PACTL
  118. *    JSR WAIT
  119.     PLA
  120.     AND #%01111111 
  121.     STA PORTB
  122. *    JSR WAIT
  123.     LDA #52
  124.     STA PACTL
  125.     LDA #0
  126.     STA PORTB
  127.     LDA #60
  128.     STA PBCTL
  129.          RTS         
  130.  
  131. *    AUSGABE EINES ZEICHENS
  132. *    AUF DAS DISPLAY
  133. *    Wert steht im Akku
  134. ZEICHEN  PHA 
  135.     LDA #128
  136.     STA PORTB
  137.          LDA #52
  138.          STA PBCTL
  139.     JSR WAIT
  140.     LDA #60
  141.     STA PACTL
  142. *    JSR WAIT
  143.     PLA
  144.     ORA #%10000000
  145.     STA PORTB
  146. *    JSR WAIT
  147.     LDA #52
  148.     STA PACTL
  149.     LDA #0
  150.     STA PORTB
  151.     LDA #60
  152.     STA PBCTL
  153.          RTS
  154.  
  155. WAIT    LDA #0
  156.     STA W
  157. WAIT1    INC W
  158.     BNE WAIT1
  159.     RTS
  160. W    EQU 0
  161. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯