Przeglądarka plików PGF
Poniżej kod kolejnej przeglądarki plików. VIEWPGF służy do podglądu plików graficznych z mikrokomputera Atari Portfolio.
Jak w poprzednich przeglądarkach można (i zachęcam) w pliku RUNEXT.CFG dodać skojarzenie typu pliku z przeglądarką. W podanym niżej przykładzie przeglądarka została umieszczona w folderze A:\DOS. Pliki PGF to nieskompresowane dane obrazu o rozdzielczości 240×64 punkty z odwróconym względem 8 bitowego Atari znaczeniem bitów (negatyw).
RUNEXT.CFG:
PGF,A:\DOS\VIEWPGF.COM
;PGF Viewer, AtariFan 210529
BYTE
DMACTLS=$022F,
COLPF1S=$02C5,
COLPF2S=$02C6,
GTIACTLS=$026F, ;cien GTIACTL
ICCMD =$0362,
HPOSP0 =$D000, ;pozycja Gracz0
HPOSP1 =$D001, ;pozycja Gracz1
SIZEP0 =$D008, ;rozmiar GRACZ0
SIZEP1 =$D009, ;rozmiar GRACZ1
GRAFP0 =$D00D, ;wzor Gracz0
GRAFP1 =$D00E, ;wzor Gracz1
PMCNTL =$D01D
CARD
X,Y,
BUF =$000A,
DLPTR =$0230,
COLPM01S=$02C0,
ICBUFA =$0364,
ICBUFL =$0368
CHAR ARRAY
F(15),P=0,
DL=[ $70$70$70$70$70$70$70$70$70$70
$4F$00$82$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F
$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F
$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F
$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F
$41$00$80]
Proc KEY=$F302()
Proc VIEW_PGF2()
DMACTLS=0
MOVEBLOCK($8000,DL,80)
DLPTR=$8000
COLPF1S=$80
COLPF2S=$8D
;zeruj miejsce pod duszkami
FOR X=$8200 TO $89FF STEP 32
DO
P(X)=0 P(X+31)=0
OD
;duszki dwa maskują krawędzie obrazu
COLPM01S=0
SIZEP0=0 SIZEP1=0
GRAFP0=240 GRAFP1=240
GTIACTLS=1
PMCNTL=1
HPOSP0=64 HPOSP1=188
;obróbka wiersza poleceń
X=BUF+$3F DO IF P(X)=$20 THEN EXIT FI X==+1 OD
X==+1 Y=X DO Y==+1 IF P(Y)=$9B THEN EXIT FI OD
Y=Y-X F(0)=Y+2 MOVEBLOCK(F+3,X,Y)
F(1)=$44 F(2)=$3A
;odczyt pliku
X=2 CLOSE(X) OPEN(X,F,4,0)
ICCMD=7 ICBUFL=30
FOR Y=$8201 TO $89FF STEP 32
DO
ICBUFA=Y [$AD X $0A$0A$0A$0A$AA$20$56$E4]
OD
CLOSE(X)
DMACTLS=33
KEY()
HPOSP0=0
HPOSP1=0
CLOSE(0) OPEN(0,”E:”,12,0)
[$6C$0A$00] ;powrót do SDX
Biblioteka: