home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Top-Magazin 1992 August
/
Top_Magazin_1992_08_Top_Crew_de_Side_B.atr
/
hacker3.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
86 lines
*************************************
* Demo zur Hackers Corner
* Diplaylistprogrammierung
*************************************
*
DLPTR EQU 560
ZERO EPZ $A0 HILFSREGISTER
SAVMSC EPZ 88
*
ORG $A800
JMP DEMO1
*
* Hinter JMP Demonamen eintragen
* Aufruf mit ESC ESC U ESC oder
* im Monitor mit G A800
*
*************************************
*
* Einschalten einer eigenen DL mit
* selbstdefinierten Screenspeicher
*
DEMO1 LDA #DL1:L
STA DLPTR
LDA #DL1:H
STA DLPTR+1
RTS
DL1 DFB $70,$70,$70 3 Leerzeilen
DFB $40+$7,SCR1:L,SCR1:H
* eine Zeile GR.2, Zaehler laden
* mit Adresse von SCR1
DFB $70,$70 2 Leerzeilen
DFB $6,$7,$6 GR.1,GR.2,GR.1
DFB $70 1 Leerzeile
DFB $4F,$0,$10
* eine Zeile GR.8, Zaehler laden
* mit Adresse $1000
DFB $F,$F,$F,$F,$F,$F,$F,$F
DFB $F,$F,$F,$F,$F,$F,$F,$F
* noch ein paar GR.8 - Zeilen
DFB $41,DL1:L,DL1:H
* Sprung und Warten (nach DL1)
*
SCR1 ASC % DISPLAYLISTDEMO1 %
ASC $ es wird ein eigener$
ASC % Bildschirmspeicher %
ASC % definiert %
*
* eigene DL mit Original-SAVMSC
*
DEMO2 LDA SAVMSC
STA DL2+3
STA DL2+22
LDA SAVMSC+1
STA DL2+4
STA DL2+23
LDA #DL2:L
STA DLPTR
LDA #DL2:H
STA DLPTR+1
RTS
*
DL2 DFB $70,$70
DFB $46,0,0
DFB $6,$6,$6,$6,$6,$6,$6,$6
DFB $6,$6,$6,$6,$6,$6,$6,$6
DFB $42,0,0
DFB $2,$2,$2,$2,$2,$2,$2,$2
DFB $41
DFW DL2
*
* Modifikation der vorhandenen GR.0-DL
*
DEMO3 LDA DLPTR
STA ZERO
LDA DLPTR+1
STA ZERO+1
LDX #0
LDY #10
D3 LDA DL3,X
STA (ZERO),Y
INY
INX
CPX #6
BNE D3
RTS
DL3 DFB 6,6,6,6,6,6,6¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯