tässä ääkösten lisääminen omaan koodiin
tämä on nyt kirjoitettu PC;llä ja vaatii PETCAT;in kautta ajamisen että siitä saa C64 yhteen sopivaa
jos haluaa kirjoittaa sen itse suoraan C64 niin lisää vain rivien alkuun rivinumeron
liittenä myös oikea C64 file
petcat rimpsu on seuraava (tehdän PRG file)
petcat -w2 -o test.prg -- text.bas
toisin päin sama juttu (luetaan PRG textiksi)
petcat -2 -o text.bas -- test.prg
coodi:
1 c=55296 :rem "$d000 char rom alku
2 n=57344 :rem "$e000 char uusi paikka
3 cr=53272:rem "$d018 vic näyttö & merkki muisti pointeri
4 bn=56576:rem "$dd00 vic pankki pointeri
5 ir=56334:rem "$dc00 A keskeytys kontrolli 0=off 1=on
6 sc=49152:rem "$c000 uuden näyttömuistin alku
:
rem "uusi vic pankki $c000-ffff
poke bn,peek(bn) and 255-3:rem"set $dd00
rem " kuvamuisti $c000 fontit $e000
poke cr,8:poke 648,192
rem "puhdista ruutumuisti testaa onko fontit jo muistissa"
print chr$(147)chr$(8 );:rem "puhdista uusi ruutu ja lukitaan"
if peek(2)=255 then 1000:rem "ei tehda mitaan"
print" Fonttien siirto kaynnissa odota hetki."
rem "sammuta keskeytykset ja merkkimuisti esiin
poke ir, peek(ir) and 254:poke 1, peek(1) and 251
rem "siirretään fontit uuteen paikkaan
for t=0 to 7
for x=0 to 2048 step 8:poke n+x+t,peek(c+x+t)
next x:next t
print:print "Siirto valmis."
rem "palautetaan keskeytykset ja rom muisti "
poke 1,peek(1) or 4:poke ir,peek(ir) or 1
rem "maaritellaan uudet aakos merkit "
dim a$(15)
a$(00)="11...11.":a$(08)="11...11."
a$(01)="........":a$(09)="........"
a$(02)="..111...":a$(10)="..111..."
a$(03)="11...11.":a$(11)="11...11."
a$(04)="1111111.":a$(12)="11...11."
a$(05)="11...11.":a$(13)="11...11."
a$(06)="11...11.":a$(14)="..111..."
a$(07)="........":a$(15)="........"
:
print "Viel[ [[kk]set paikalleen niin ollaan"
print "valmiita aloittamaan..."
:
for t=0 to 7:a=0:b=0:for x=1 to 7
a=a+(2*-(asc(mid$(a$(t),x,1))=49))^x
b=b+(2*-(asc(mid$(a$(t+8),x,1))=49))^x
next x
poke n+t+(27*8 ),a
poke n+t+(29*8 ),b
next t
poke 2,255:rem "merkataan siirto tehdyksi
clr:rem " muistin ja muuttujien nollaus "
end
1000 print "kaikki jo valmista."
