Abgeschickt von Carsten am 06 April, 2002 um 13:38:42
Antwort auf: Probleme mit Display-List von Bastian Moritz am 31 Maerz, 2002 um 13:14:41:
Hallo Bastian,
hier ist das Programm, alles TB :-)
( Stefan war schneller, grumpf ... :- )
100 ------------------------------
110 REM DISPLAYLISTINTERRUPT
120 REM FUER GR9+GR.5 MIX
130 ------------------------------
140 DIM A$(4)
150 FOR X=$0480 TO $048A
160 READ A$
170 POKE X,DEC(A$(%2,%3))
180 NEXT X
190 ------------------------------
200 REM ERMITTLE DISPLAYLIST GR.9
210 ------------------------------
220 GRAPHICS 9
230 DL=DPEEK($0230)
240 DLD=DL+121:REM HIER AENDERN WIR DIE DL
250 FOR X=DLD TO DLD+21
260 READ A$
270 POKE X,DEC(A$(%2,%3))
280 NEXT X
290 DPOKE DLD+21,DL:REM SETZE DL RUECKSPRUNG
300 ------------------------------
310 REM SETZE DLI VEKTOR
320 ------------------------------
330 DPOKE $0200,$0480:REM VSDLST
340 ------------------------------
350 REM DLI AKTIVIEREN
360 ------------------------------
370 POKE $D40E,$C0:REM NMIEN
380 ------------------------------
390 FOR X=0 TO $1500:POKE DPEEK(88)+X,RAND($FF):NEXT X
400 REM BILDSCHIRMSPEICHER FUELLEN
410 ------------------------------
420 GOTO 420
430 END
440 ------------------------------
450 REM DLI PROGRAMM DATEN
460 ------------------------------
470 DATA $48 : REM PHA
480 DATA $8D,$0A,$D4 :REM STA WSYNC
490 DATA $A9,$00 : REM LDA #$00
500 DATA $8D,$1B,$D0 : REM STA PRIOR
510 DATA $68 : REM PLA
520 DATA $40 : REM RTI
530 ------------------------------
540 REM DISPLAYLISTDATEN
550 ------------------------------
560 DATA $8F : GR.8 + DLI
570 DATA $0A,$0A,$0A,$0A : 19 GR. 5
580 DATA $0A,$0A,$0A,$0A
590 DATA $0A,$0A,$0A,$0A
600 DATA $0A,$0A,$0A,$0A
610 DATA $0A,$0A,$0A
620 DATA $41 : REM RUECKSPRUNG+VBI
630 DATA $00,$00 : REM -> DL
640 ------------------------------