;Viewer plikow P (ZXpaintyONE) AtariFan 250603
Byte
B, L, X,
COLPF1S=$2C5,
COLPF2S=$2C6,
COLBAKS=$2C8,
CRSINH =$2F0,
CHBAS =$2F4,
ICCMD0 =$342, ICAX1_0=$34A, ICAX2_0=$34B,
ICCMD2 =$362, ICAX1_2=$36A, ICAX2_2=$36B
Card
Y,
DOSVEC =$00A,
SAVMSC =$058,
ICBUFA0=$344, ICBUFL0=$348,
ICBUFA2=$364, ICBUFL2=$368
Byte Pointer ADR
Byte Array
P=0, DEVE=[’E’:$9B],
ZX81=[
$00$00$00$00$00$00$00$00$F0$F0$F0$F0$00$00$00$00$0F$0F$0F$0F$00$00$00$00
$FF$FF$FF$FF$00$00$00$00$00$00$00$00$F0$F0$F0$F0$F0$F0$F0$F0$F0$F0$F0$F0
$0F$0F$0F$0F$F0$F0$F0$F0$FF$FF$FF$FF$F0$F0$F0$F0$AA$55$AA$55$AA$55$AA$55
$00$00$00$00$AA$55$AA$55$AA$55$AA$55$00$00$00$00$00$24$24$00$00$00$00$00
$00$1C$22$78$20$20$7E$00$00$08$3E$28$3E$0A$3E$08$00$00$00$10$00$00$10$00
$00$3C$42$04$08$00$08$00$00$04$08$08$08$08$04$00$00$20$10$10$10$10$20$00
$00$00$10$08$04$08$10$00$00$00$04$08$10$08$04$00$00$00$00$3E$00$3E$00$00
$00$00$08$08$3E$08$08$00$00$00$00$00$3E$00$00$00$00$00$14$08$3E$08$14$00
$00$00$02$04$08$10$20$00$00$00$10$00$00$10$10$20$00$00$00$00$00$08$08$10
$00$00$00$00$00$18$18$00$00$3C$46$4A$52$62$3C$00$00$18$28$08$08$08$3E$00
$00$3C$42$02$3C$40$7E$00$00$3C$42$0C$02$42$3C$00$00$08$18$28$48$7E$08$00
$00$7E$40$7C$02$42$3C$00$00$3C$40$7C$42$42$3C$00$00$7E$02$04$08$10$10$00
$00$3C$42$3C$42$42$3C$00$00$3C$42$42$3E$02$3C$00$00$3C$42$42$7E$42$42$00
$00$7C$42$7C$42$42$7C$00$00$3C$42$40$40$42$3C$00$00$78$44$42$42$44$78$00
$00$7E$40$7C$40$40$7E$00$00$7E$40$7C$40$40$40$00$00$3C$42$40$4E$42$3C$00
$00$42$42$7E$42$42$42$00$00$3E$08$08$08$08$3E$00$00$02$02$02$42$42$3C$00
$00$44$48$70$48$44$42$00$00$40$40$40$40$40$7E$00$00$42$66$5A$42$42$42$00
$00$42$62$52$4A$46$42$00$00$3C$42$42$42$42$3C$00$00$7C$42$42$7C$40$40$00
$00$3C$42$42$52$4A$3C$00$00$7C$42$42$7C$44$42$00$00$3C$40$3C$02$42$3C$00
$00$FE$10$10$10$10$10$00$00$42$42$42$42$42$3C$00$00$42$42$42$42$24$18$00
$00$42$42$42$42$5A$24$00$00$42$24$18$18$24$42$00$00$82$44$28$10$10$10$00
$00$7E$04$08$10$20$7E$00]
Proc CIO =$E456(Byte A,X)
Proc KBGET=$F302()
Proc L2=*()
ICBUFA2=$600 ICBUFL2=B CIO(0,$20)
ICBUFL2=32
For X=1 to L
Do
ICBUFA2=Y CIO(0,$20) Y==+40
Od
Return
Proc GR0=*()
;zakmnij kanal 0
ICCMD0=$C CIO(0,0)
;otworz E: w kanale 0
ICCMD0=3 ICBUFA0=DEVE
ICAX1_0=12 ICAX2_0=0 CIO(0,0)
Return
Proc P_View()
GR0()
COLPF1S=$00 COLPF2S=$0A COLBAKS=$0A
CRSINH=1 ;wylacz kursor
ICCMD0=$B CIO(127,0) ;tabulacja
;przepisz tablice fonta
ADR=$8000 Y=0
Do
ADR^=ZX81(Y) ADR==+1 Y==+1
Until ADR=$81FF
Od
CHBAS=$80 ;adres fonta
;odczyt nazwy pliku
Y=DOSVEC+$3F
Do
Y==+1 If P(Y)=$20 Then Exit FI
Od
P(Y)=’: Y==-1 P(Y)=’D
;odczyt pliku P na ekran
ICCMD2=$3 ICBUFA2=Y
ICAX1_2=4 ICAX2_2=0
CIO(0,$20) ICCMD2=7
Y=SAVMSC+4
B=140 L=8 L2()
B=9 L2()
L=6 L2()
B=12 L=2 L2()
ICCMD2=$C CIO(0,$20)
KBGet()
GR0()
Na pokładzie Atari pojawiło mi się kilka plików z rozszerzeniem P. Okazały się być produktami programu ZXpaintyONE umożliwiającym rysowanie semigrafiką komputera ZX81. Nie potrafiąc odnaleźć dokumentacji postanowiłem mimo wszystko spróbować wyświetlić te obrazki na ekranie Atari.
ZX 81 posiada własną tablicę znaków o kodach 0 do 63, powyżej kodu 63 generowane są te same znaki lecz w inwersji.
