home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ABBUC Magazin 43B
/
ABBUC_Magazin_43_199x_ABBUC_Side_B.atr
/
lcd2mini.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
161 lines
************************************
*MINIHAENDLER FUER ARGS LCD-DISPLAY*
* VERSION 2 *
* HARD- u. SOFTWARE v. RoBue *
* 06.12.1994 *
************************************
* Handlername: "A:"
* ASCII-Ausgabe (7-Bit)
* EOL (155) -> Ruecksprung an Anfang
* CLR (125) -> Loeschen,
* Ruecksprung an Anfang
ORG $0600
PACTL EQU $D512
PORTA EQU $D510
PBCTL EQU $D513
PORTB EQU $D511
PHENTV EQU $E486
TIMER EQU $14
CONSOL EQU $D01F
DLEFT EQU 24
DRIGHT EQU 28
CLEFT EQU 16
CRIGHT EQU 20
FUNCTION EQU 56
DON EQU 15
DCLEAR EQU 1
CHOME EQU 2
CMOVE EQU 4
START PLA BASIC
*
LDX #'A A:-HANDLER
LDA #TABELLE:H EINTAGEN
LDY #TABELLE:L
SEC
JSR PHENTV
BCC START1
RTS KEIN EINTRAG
START1 LDA #56 PIA UND
STA PBCTL INITIALI-
LDA #48
LDA #255
STA PORTB
LDA #0
STA PORTA
LDA #60
STA PBCTL
LDA #52
STA PACTL
LDA #0
STA PORTB
LDA #FUNCTION 8BIT
JSR BEFEHL
LDA #DON LCD AN
JSR BEFEHL
LDA #DCLEAR LCD LOESCHEN
JSR BEFEHL
LDA #CHOME
JSR BEFEHL
READY LDY #0 READY
READY1 LDA TEXT,Y AUF LCD
BEQ ENDE AUSGEBEN
JSR ZEICHEN
INY
JMP READY1
ENDE RTS
TEXT ASC 'Ready'
DFB 0
TABELLE DFW OPEN-1 Handlertabelle
DFW CLOSE-1
DFW GET-1
DFW PUT-1
DFW GET-1
DFW GET-1
JMP GET
DFB 0
OPEN LDA #DON
JSR BEFEHL
OPEN1 LDA #DCLEAR
JSR BEFEHL
OPEN2 LDA #CHOME
JSR BEFEHL
CLOSE LDY #1
RTS
GET RTS
PUT TAX
CPX #125 CLEAR?
BNE PUT1
JMP OPEN1
PUT1 CPX #155 EOL?
BNE PUT2 NEIN ->
JMP OPEN2
PUT2 TXA
JSR ZEICHEN
LDY #1
RTS
* PROGRAMMIEREN DES DISPLAYS
* Wert steht im Akku
BEFEHL PHA
LDA #0
STA PORTB RS->BEFEHL
LDA #52
STA PBCTL WRITE
JSR WAIT
LDA #60
STA PACTL
* JSR WAIT
PLA
AND #%01111111
STA PORTB
* JSR WAIT
LDA #52
STA PACTL
LDA #0
STA PORTB
LDA #60
STA PBCTL
RTS
* AUSGABE EINES ZEICHENS
* AUF DAS DISPLAY
* Wert steht im Akku
ZEICHEN PHA
LDA #128
STA PORTB
LDA #52
STA PBCTL
JSR WAIT
LDA #60
STA PACTL
* JSR WAIT
PLA
ORA #%10000000
STA PORTB
* JSR WAIT
LDA #52
STA PACTL
LDA #0
STA PORTB
LDA #60
STA PBCTL
RTS
WAIT LDA #0
STA W
WAIT1 INC W
BNE WAIT1
RTS
W EQU 0
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯