Obrazki z ZX Spectrum
Pliki SCR pochodzące z mikrokomputera ZX Spectrum można oglądać w pełnej krasie na komputerze Atari z kartą graficzną VBXE chociażby za pomocą programu SCR Viewer autorstwa Jerzego „Mono” Kuta.
Z braku VBXE prosty podgląd (niestety bez definiujących całokształt grafiki kolorów) można uzyskać wczytując dane na ekran działający w trybie HIRES.
Odczyt plików SCR – ZX Spectrum. Listing programu w języku Turbo Basic XL oraz Action!
0 GRAPHICS 24 : E=DPEEK(88)
1 DPOKE 709,$1F30 : POKE 712,$10
2 OPEN #%1,4,%0,”D:CLIVE.SCR”
3 FOR I=E+4 TO E+5124 STEP 2560
4 FOR J=I TO I+280 STEP 40
5 FOR K=J TO J+2240 STEP 320
6 BGET #1,K,32
7 NEXT K
8 NEXT J
9 NEXT I:GET I
;odczyt obrazu z pliku SCR ZX Spectrum
;AtariFan 250512
Byte
COLPF1S=$2C5,
COLPF2S=$2C6,
COLBAKS=$2C8,
ICCMD2 =$362
Card
A,B,C,
SAVMSC=$058,
ICBUFA2=$364,
ICBUFL2=$368
Proc CIO =$E456(BYTE A,X)
Proc KBGET=$F302()
Proc SCR()
Graphics(24)
COLPF1S=$3F
COLPF2S=$10
COLBAKS=$10
Close(2) Open(2,”D:CLIVE.SCR”,4,0)
ICCMD2=7 ICBUFL2=32 A=SAVMSC+4
For A=A To A+5120 Step 2560
Do
For B=A To A+240+40 Step 40
Do
For C=B To B+2240 Step 320
Do
ICBUFA2=C CIO(0,$20)
Od
Od
Od
Close(2)
KBGet()
Graphics(0)
Drugi, prostszy w odczycie jest plik z rozszerzeniem B, zawierający w zasadzie zrzut pamięci obrazu: 192 linie po 32 bajty – 256×192 greli*.
2. Odczyt plików B – ZX Spectrum. Listing programu w języku Turbo Basic XL oraz Action!
0 GRAPHICS 24 : E=DPEEK(88)
1 DPOKE 709,$1F30 : POKE 712,$10
2 OPEN #%1,4,%0,”D:SIRCLIVE.B”
3 FOR I=E+4 TO E+7644 STEP 40
4 BGET #%1,I,32
5 NEXT I : GET I
;odczyt obrazu z pliku B ZX Spectrum
;AtariFan 250512
ICCMD2 =$362
ICBUFL2=$368
PROC KBGET=$F302()
Proc SCR()
COLBAKS=$10
Close(2) Open(2,”D:SIRCLIVE.B”,4,0)
Od
Graphics(0)
