home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 43B / ABBUC_Magazin_43_199x_ABBUC_Side_B.atr / lcdmini.src < prev    next >
Text File  |  2023-02-26  |  2KB  |  126 lines

  1. ************************************
  2. *MINIHAENDLER FUER ARGS LCD-DISPLAY*
  3. *   HARD- u. SOFTWARE v. RoBue     *
  4. *           12.12.1993             *
  5. ************************************
  6.  
  7. * Kann nur Zeichen auf LCD ausgeben
  8. * und LCD loeschen
  9. * Handlername: "A:"
  10.  
  11.     ORG $0600
  12.  
  13. PACTL    EQU 54546
  14. PORTA    EQU 54544 
  15. PBCTL    EQU 54547
  16. PORTB    EQU 54545
  17. PHENTV   EQU $E486
  18. TIMER    EQU $14
  19.  
  20. DLEFT    EQU 24
  21. DRIGHT    EQU 28
  22. CLEFT    EQU 16
  23. CRIGHT    EQU 20
  24. FUNCTION EQU 56
  25. DON    EQU 15
  26. DCLEAR    EQU 1
  27. CMOVE    EQU 4
  28.  
  29.  
  30. START    PLA          BASIC
  31. *
  32.     LDX #'A        A:-HANDLER
  33.     LDA #TABELLE:H    EINTAGEN
  34.     LDY #TABELLE:L
  35.          SEC
  36.          JSR PHENTV
  37.          BCC START1
  38.          RTS        KEIN EINTRAG
  39. *
  40. START1   LDA #48        PIA UND
  41.          STA PACTL    DISPLAY
  42.          STA PBCTL    INITIALI-
  43.          LDA #255        SIEREN
  44.          STA PORTA
  45.          STA PORTB
  46.          LDA #52
  47.          STA PACTL
  48.          STA PBCTL
  49.          LDA #FUNCTION    8BIT
  50.          JSR BEFEHL
  51.          LDA #DON        LCD AN
  52.          JSR BEFEHL
  53.          LDA #DCLEAR    LCD LOESCHEN
  54.          JSR BEFEHL
  55. READY    LDY #0        READY
  56. READY1    LDA TEXT,Y    AUF LCD
  57.          BEQ ENDE        AUSGEBEN
  58.          JSR ZEICHEN
  59.          LDX #255
  60. WARTEN   DEX
  61.          BNE WARTEN
  62.          INY
  63.          JMP READY1
  64. ENDE    RTS
  65. TEXT     ASC ' ARGS-LCD Ready'
  66.          DFB 0
  67.  
  68. TABELLE    DFW OPEN-1     Handlertabelle
  69.     DFW CLOSE-1
  70.     DFW GET-1
  71.     DFW PUT-1
  72.     DFW GET-1
  73.     DFW GET-1
  74.          JMP GET
  75.          DFB 0
  76.  
  77. OPEN     LDA #DON
  78.          JSR BEFEHL
  79.          LDA #DCLEAR
  80.          JSR BEFEHL
  81.          LDY #1
  82.     RTS
  83.  
  84. CLOSE    LDY #1    
  85.     RTS
  86.  
  87. GET    RTS
  88.  
  89. PUT      TAX
  90.          CPX #125        CLEAR?
  91.          BNE PUT1
  92.          LDA #1
  93.          JSR BEFEHL
  94.          LDY #1
  95.          RTS
  96. PUT1     CPX #155        EOL?
  97.          BNE PUT2
  98.          LDY #1
  99.          RTS
  100. PUT2    TXA
  101.          JSR ZEICHEN
  102.          LDY #1
  103.          RTS
  104.  
  105. BEFEHL   STA PORTB  
  106.          LDA #4
  107. BEFEHL1  STA PORTA
  108.          LDA #0
  109.          STA PORTA
  110. WAIT     LDY TIMER
  111.          INY
  112.          INY
  113.          INY
  114. WAIT1    CPY TIMER
  115.          BNE WAIT1
  116.          RTS         
  117.  
  118. ZEICHEN  STA PORTB 
  119.          LDA #5
  120.          STA PORTA
  121.          NOP
  122.          LDA #0
  123.          STA PORTA
  124.          NOP
  125.          NOP
  126.          RTS¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯