home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ABBUC Magazin 43B
/
ABBUC_Magazin_43_199x_ABBUC_Side_B.atr
/
lcd600.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
3KB
|
174 lines
********************************
*HAENDLER FUER ARGS LCD-DISPLAY*
* Soft- u. Hardware by RoBue *
* 14.12.1993 *
********************************
*Funktionen: Ausgabe
* Loeschen (125)
* Scrollen bei Ausgabe
* GET-Routine vom K:-Handler
*HANDLERNAME : "A:"
ORG $0600
PACTL EQU 54546
PORTA EQU 54544
PBCTL EQU 54547
PORTB EQU 54545
PHENTV EQU $E486
TIMER EQU $14
DLEFT EQU 24
DRIGHT EQU 28
CLEFT EQU 16
CRIGHT EQU 20
FUNCTION EQU 56
DON EQU 15
DCLEAR EQU 1
CMOVE EQU 7
CSTOP EQU 6
CHOME EQU 2
START PLA BASIC
*
LDX #'A A:-HANDLER
LDA #TABELLE:H EINTAGEN
LDY #TABELLE:L
SEC
JSR PHENTV
BCC START1
RTS KEIN EINTRAG
*
START1 LDA #48 PIA UND
STA PACTL DISPLAY
STA PBCTL INITIALI-
LDA #255 SIEREN
STA PORTA
STA PORTB
LDA #52
STA PACTL
STA PBCTL
LDA #FUNCTION 8BIT
JSR BEFEHL
LDA #DON LCD AN
JSR BEFEHL
LDA #DCLEAR LCD LOESCHEN
JSR BEFEHL
EXIT RTS
TABELLE DFW OPEN-1 Handlertabelle
DFW CLOSE-1
DFW GET-1
DFW PUT-1
DFW EXIT-1
DFW EXIT-1
JMP EXIT
DFB 0
OPEN LDA #DON
JSR BEFEHL
LDA #DCLEAR
JSR BEFEHL
LDA #0
STA CURSPOS
STA LINE
LDY #1
RTS
CLOSE LDY #1
RTS
GET JSR $F2FD
CPY #1
BNE GETEND
STA GETWERT
JSR PUT
LDA GETWERT
GETEND RTS
GETWERT DFB 0
PUT TAX
PUT0 CPX #125 CLEAR?
BNE PUT1
PUT00 LDA #1
JSR BEFEHL
LDA #0
STA CURSPOS
STA LINE
LDY #1
RTS
PUT1 CPX #155 EOL?
BNE PUT2
LDA #CHOME
JSR BEFEHL
LDY #0
STY CURSPOS
STY LINE
INY
RTS
PUT2 JSR SCROLL AUSGABE
TXA
JSR ZEICHEN
INC CURSPOS
LDY #1
RTS
CURSPOS DFB 0
LINE DFB 0
* SCROLL-ROUTINE FUER DISPLAY
* ab Position 12 wandert Display
* ab Position 36 steht es wieder
* beim Ruecksprung in Zeile 1
* wird Display geloescht
SCROLL LDY CURSPOS
CPY #40
BNE SCR2
LDA LINE
BNE PUT00
INC LINE
SCR LDA #25
STA CURSPOS
SCR1 DEC CURSPOS
BEQ SCREND
LDA #DRIGHT
JSR BEFEHL
JMP SCR1
SCR2 CPY #36
BPL SCREND
SCR3 CPY #12
BMI SCREND
LDA #DLEFT
JSR BEFEHL
SCREND RTS
* PROGRAMMIEREN DES DISPLAYS
* Wert steht im Akku
BEFEHL STA PORTB
LDA #4
BEFEHL1 STA PORTA
LDA #0
STA PORTA
LDY TIMER
INY
INY
WAIT CPY TIMER
BNE WAIT
RTS
* AUSGABE EINES ZEICHENS
* AUF DAS DISPLAY
* Wert steht im Akku
ZEICHEN STA PORTB
LDA #5
STA PORTA
NOP
LDA #0
STA PORTA
NOP
NOP
RTS¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯