C=Foorumi

On kyllä melko outo tapa nollata keskeytykset ?!?

$DC0D puoli menee kyllä ihan oikein,,, Mutta
$DC0E taas asetetaan kaikken mahdolliset päälle ainoastaan 50/60hz TOD tilaan ei kosketa ??!

bit 1 CIA timer A (ON) pitääkin olla 1
bit 2 asettaa PB6 pinnin (user-port) lähettämään A laskurin keskeytyksiä ulospäin
bit 3 Timer A output Toggle
bit 4 Timer A Run mode one shot ( A Ajastin keskeytys tehdään vain kerran ja se tarvitsee asettaa sen jälkeen uudelleen)
bit 5 Force load Timer YES ( Nollataan A ajastiin laskuri laskenta aloitetaan alusta )
bit 6 A Ajastin laskee ulkoisia CNT singnaaleja ei ajastimia (user-port shift reg.)
bit 7 CIA asetetaan ulkoisen lähetyksen tilaan (user-port shift reg.)
bit 8 TOD taajuus 50/60hz (PAL koneissa def. 50Hz)

kun asetat keskeytykset ($DC0D) takaisin päälle kaikki seuraavat jutut aktivoituvat :/

jos basicissa $DC0E asettaa tuon $7f =127 (poke56334,127)
aito kone lukkiintuu heti. Kaikki emulaattorit eivät reagoi mitenkään (esim. TC)

Basic jää jumiin näppäimistö rutiiniin odottamaan keskeysten aikaansaamaa näppis toimintaan
mutta keskeytykset eivät ole päällä muutamasta syystä

$dc0e
bit 6 Timer A counts 1=CNT
asettaa laskurin A laskemaan (user-port shift registeri ) ulkoista synkronisointi kellotusta
niitä ei yleensä tule Shift rekisteri on melko tuntematon CIA ominaisuus eikä sitä käytetä oikeastaan mihinkään
aikanaan VIC levari liikenne piti kulkea tämän lävitse mutta 6522;ssa oli valmistus virhe ja se dumpattiin
eikä siihen palattu kuin vasta C128+1571 ulkaisun yhteydessä vaikka vika oli korjattu 6526 myötä
kernaali siis jää odottamaan ulkoista keskeytys lähdettä jota ei tule ( Jumi )

bit 4 Timer A run mode 1= one shot
pakottaa A ajastimen suorittamaan yhden keskeytyksen
jos haluaa lisää pitää bitti 0 asettaa uudelleen jokaisen keskeytyksen jälkeen ( jumi )

bit 2 Timer A output on PB6=1
alkaa syöttämään näppis matriisiin ( ROW 6 )
Ajastin keskeytys A taajuutta sekoittaa näppiksen lukemisen melko hyvin

oletukseni on että tässä on käynyt joku käpy
tekijä on olettanut $DC0E rekisterin toimivan samoin kuin $DC0D
mutta näin ei ole 

itse en tuota Stack käynnisystä käytä koska se on melko arvaamaton
ja tila on kortilla helpompi tapa ja systeemi ystavallisempi on kassu puskuri
jota itse usein käytän

keskeytysten kieltämiseen riittää usein pelkästään $DC0E 1 bitin nollaaminen joka lopettaa irq keskeytykset vähän sama kuin SEI komento

Etenee mikä ehtii runko on tehty nyt ainakin 3 ellei 5 kertaan uudelleen alusta xD
lähinnä siksi ettei sorsat ole tulleet mukana kun on vaihtanut logaatiota
joten peli on nyt vähintään 3 erikoneella xD
ja eri versio tietenkin kaikissa

mutta juuh juoni ja toiminta on suuniteltu valmiiksi
toteutukseen vain tarvitsisi hieman löytää aikaa jostain...

FB Foorumilla on tietojeni mukaan tulossa ainakin yksi ellei jopa kaksi peliä

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."

Ääkkös koodikin on tulossa 

Huone datan esitys rutiini on tässä
toki sen voi järjestää monella muullakin tavalla mutta tämä lienee kaikkein simppelin
eikä tuhlaa muistia kovin paljon
muuttujiin kirjoitetut selostukset kun vievät kaksinkertaisen määrä muistia
ohjelma sovittaa kirjoittamasi kuvaukset ruudun kokoon tämä siksi että Data osioon
pystyisi kirjoittamaan vain yhden rivin textin joka on huomattavasti selkeämpi lukea
kuin rivit jotka ovat kahdella rivilla ja niiden editointi on siksi helpompaa

muuttujalla HU kerrotaan mikä listan kuvauksista halutaan esittää
huonetta 0 ei ole joten sen tilalle voi kirjoittaa vaikka pelin esittely textin
tämä selviä tulevissa ohjelma osioissa tarkemmin


10 print chr$(14)chr$(8)
11 rem "vaihdetaan isohin ja pieniin kirjaimiin
12 rem "ja lukitaan se
20 :
90 input"Huone numero:";hu
100 gosub120:gosub 150:goto 90
101:
120 rem "etsitaan oikea huone data"
121 restore:if hu=0 then:return
121 for t=0 to hu-1
122 read h$:if h$<>"$" then 122
124 next:return
125 :
150 rem " tulosta huone kuvavaus "
151 read h$:print"( "h$" )":rem " tulosta otsikko "
160 a$=""
170 read h$:a$=a$+h$+" ":if len(a$)<200 and h$<>"$" then 170
172 gosub 200:if h$<>"$" then 160
173 print "----------------------------------"
174 return
180 :
200 rem " tulostetaan a$ puskuri "
201 if h$="$" then :a$=left$(a$,len(a$)-2)
210 a=39:le=len(a$)
220 if le<39 then print left$(a$,le):return:rem "puskuri tyhja"
230 if mid$(a$,a,1)<>" " then a=a-1:goto 230
240 print left$(a$,a)
250 a$=right$(a$,le-a):goto 210
900 rem " Data osuus "
901 data "pelin esittely menu texti ehka"
902 data "koska nolla huonetta ei ole voidaan"
903 data "tilaa kayttaa vaikka siihen"
910 data "$"
1100 :
1101 data "huone 1
1102 data "Huone on hamara
1103 data "ikkunankaihtimet ovat kiinni
1104 data "ilmassa leijuu kalman loyhka
1105 data "mustavalkoinen TV suhisee
1106 data "nurkassa
1190 data "$"
1200 :
1201 data "huone 2
1202 data "tama on ilmeisesti ollut
1203 data "joskus komero mutta nyt
1204 data "sen tayttavat aikakaus
1205 data "lehdet joita on paljon"
1290 data "$"
9000 data "#":rem "end of rooms mark"


Kilpailuun voi osallistua vaikke ei ole FB;ssä tai Commodore ryhmässä tiedot välitetään täältä sinne ja päinvastoin
yksi FB foorimin onngelmista on juurikin tuotosten julkaisu fileiden siirto sitä kautta on "konstikasta"
siksi tämä topik on myös täällä mutta kuten sanottua asia elää vielä...

Jäi ilmeisesti mainitsematta tuossa alussa... että kisa on avoin kaikille plätformeille (8bit)  mutta toki olisi hyvä jos antiikkista konetta pystyisi jotenkin kaikki
emuloimaan tykönään ja siten arvioimaan pelin tason se taitaa olla ainoa rajoitus !

Juurikin siitä syystä tekniikat rajataan vain textiin ja pelin sisältö on se joka ratkaiseen voittajan
muuten koneen Gaafiset kyvyt saattaisivat antaisivat pelille liikaa etumatkaa.

en kuitenkaan sano etteikö tekijä voisi sitten tehdä kisan jälkeen pelistään jonkin Delux version joka
tosissaan hyödyntäisi koneen kykyjä...

Ilmeisesti säännöt ovat vielä hienoisessa elo tilassa joten tarkennuksia saattaa tulla jatkossa !
voi olla että jokin Ascii tai Petscii alku & loppuruutu kuitenkin sallitaan ?!?

ensimmäinen pikku proto saatu aikaiseksi

Runkoon sisältyy huoneiden Data niissä liikkuminen ja esineiden näyttö
seuraavaksi pitää lisätä esineiden haltuun otto ja jättäminen eri paikkohin ja niiden käyttäminen

sit onkin edessä se vaikein rakentaa toimiva parseri xD

säännöt ja muut lisätty !

eikun koodaamaan !

siitä onkin jo aikaa kun viimeksi on julistettu kilpailu joten on jo aikakin julistaa uusi 
FB Commodore Finland foorumilla on textiseikkailu kisa käynnissä jonka voittaja ratkeaa Jouluksi
säännöt on yksinkertaiset tee oma Texti seikkailu ilman valmista pohjaa !

.:Tässä infoa ja säännöt:.


Järjestäjä: Mika Penttinen‎

Commodore Finlandin Seikkailupeli-kilpailu!!

Säännöt:
-Tekstiseikkailu, ilman grafiikkaa, ei edes Petsciitä.

-Peliltä toivotaan sekä hyvää juonta että suunniteltua kokonaisuutta.

-Deadline 29.11.2020. Klo 21.

-Pelin tulee olla uusi tuotos, ei vanhoja projekteja.

-Omaa koodia. Mallia voi ottaa oppaista mutta valmista peliä ei saa kopioida omaan tarkoitukseen.

-Ohjelmointikielellä ei ole mitään väliä, kunhan pelin voi lopulta ajaa oikeassa koneessa tai Vice:llä.

-Koneina seuraavat Commodoren 8-bittiset: VIC-20, C64 ja C128. Ei laajennuksia, VIC-20:ssä on sallittua muistilaajennus (koko vielä selviää tässä vielä).

-Pelit julkaistaan 29.11. samassa paikassa kaikkien halukkaiden ladattaviksi ja pelattaviksi. (Julkaisupaikka tarkentuu myöhemmin.

-Parhaasta pelistä järjestetään äänestys joulukuussa 2020 Commodore Finlandin ryhmässä. Ryhmän jäsenet päättävät parhaan pelin, pelifiiliksiensä mukaan.

-Parhaan pelin tehnyt voittaa itselleen Amiga 500:sen. (Myöhemmin julkaistaan tarkemmat kuvat ja tiedot palkinnosta).

-Kaikenlaisesta vilpistä ja epäasiallisesta toiminnasta kyseinen peli ja kilpailija suljetaan pois kilpailusta.

-Pidän kilpailun järjestäjän ominaisuudessa oikeuden muuttaa parhaaksi nähdessäni kilpailun sääntöjä ja palkintoa. (Tämä nyt sen takia, ettei kaikkea ole ehtinyt miettiä valmiiksi. 😄


FB virisi kilpailu idea Texti seikkalun teko kisasta 

joten panokseni siihen voisi olla kirjoitella tänne osia ja helposti omaksuttavia koodin pätkiä joita yhdistelmällä
ja soveltamalla seikkaulun voisi rakentaa. Tämä ei tietenkään estä myös muita jakamaan asiasta tietoutta ja keskustelemasta aiheesta   

Kesälomat lähestyy ja itse aloitelen sitä järkkäämällä sarjassaan toisen C= ohjelmointiviikonlopun !

FB Commodore Finland sivulla siitä jo on kuukauden päivä ilmoiteltu
mutta laitetaanpa tännekin elikä !

10-12.7 Tampereen Epilässä järkätään koko viikonlopun kestävä C64 ohjelmointiin keskittyvä kerho tapahtuma
johon voi jokainen osallistua osamis tasosta välittämättä eikä tyhmiä kysymyksiä ole !!!
omia laitteita voi tuoda jos jaksaa roudata mutta paperilla ja kynälläkin pärjää ja Vicellä jos se on läppäriin asennettuna

samalla pääsee tutustumaan muihinkin harrastajiin
Kyseessä ei ole bileet vaan pää on tarkoitus saada sekaisin vain ohjelmoinnin opiskelulla !
muutama sauna olut on ihan ok sitten loppu illasta kun siirytään vapaaseen osioon abo 22 jälkeen kun sauna on lämminnyt tms.
huonosti käyttäytyjät heitetään mäjelle yhteisellä päätöksellä... !

paikalla voi yöpyä mutta makuupaikkoja ei varsinaisesti ole joten omat yöpymis vehkeet kannattaa ottaa mukaan ettei niska ole jäykkänä
kotiin paluun tapahtuessa tai aikaisemmin...

hotellii Haapalinna on lähin oikeaa majoitusta tarjoava hotelli muutaman korttelin päässä (500m)
https://www.hotellihaapalinna.com/

paikka on hyvien yhteyksien varrella ja bussi kulkee (about 10min keskustorille 15min rautatieasemalle )

ovet aukeavat PE 17:00
paikanpäällä kerätään osallistumis maksu käteisellä tilavuokran vuoksi 10€ per nuppi

lähempiä kordinaatteja tiedusteluita asiasta saa seuraavista sosotteista.

PUH +358402563132 numeroon en vastaile kuin ehkä satunnaisesti ennen H-hetkeä textarit kulkee joten ennen Pe kannattaa käyttää niitä

Mailia voi lähettää vanhaan tuttuun osotteeseen
genetic-point@mail.com

PE illalle 22-xx on saatu kutsu saapua Vastavirta clubille kuuntelemaan 8-Bits High orkesterin musisointia ( only C64&SID )
mestalle on pieni sisäänpääsy maksu ( 0-10€ )johon kannattaa varautua mutta luultavasti oluseen menee enemmän...
https://www.youtube.com/watch?v=u6BDNATEIvc

päivitetäämä Värkkäys osiota

DTV64: on työstön alla josko siitä saisi käytettävän koneen näppiksineen tms.
tähän mennessä rakennettu emoon lisälevy jossa IDE 44pin liitin jolla DTV kytketään
itse laite runkoon missä on kaikki lisä liittimet kuten joikkari, näppis, näyttö, virransyöttö ym.

harkinnassa vielä tekisinkö vielä siihen jonkinlaisen suoja piiristön ettei ensimmäisenä pala DTV
jos jotain kämmejä sattuu liitin puolella...

kun saan sen siihen kuntoon että sitä oikeasti voi ohjelmoida ja testa kuten C64;ta niin
ehkä lisään siihen vielä muistiväylän liittimen lisä piiristöjä varten esim. UART

A4kT: GE varasto inventaarin jäljiltä viimein löytyi kaksi kappaletta CIA piirejä
jotka voisi koittaa vaihtaa emolle konkkaremontin ohessa vahva veikkaus että sillä T heräisi takaisin eloon
sitten puuttuukin enään vain kunnon Turbo jolla siihen saisi riittävästi hönkää lisää
sama koskee kyllä normi A4k konetta joka aikaisemmin toimi BBS varakoneena

A1200T: vaatii jo kipeästi konkka remonttia ruudun raidat on sen verran ankarat että hirvittää jo pitää sitä päällä
on myös alkanut kaatuilemaan eikä aina enään jaksa lähteä käyntiin kuten ennen
vahvassa harkinnassa PPC & Bvisionini myynnistä samaan aikaan ja vaihto ehkä jonkin nykyaikaisempaan 060 korttiin

C64 BBS: josko tänäkesänä saisin sen vihdoin lopulliseen toiminta kuntoon ja pois BETA statuksesta ja voisin alkaa sitä oikeasti mainostamaan
muuallakin kuin täällä että ihan kohta se on Ok !

Amiga 2000 BBS: odottaa edelleen että saisin A4k koneelta tavaran siirrettyä ja palautettua BBS;n 100% toiminta kuntoon

J6526: testailua pitäisi jatkaa kunhan saisin vanhat piirit vietyä postiin että saisin uudemman firewaren piirit takaisin testi köyttöön

Puuh.. juu ressaa kun asiat ei etene mutta projetia vain kasaantuu jatkuvasti lisää mitä pitäisi tehdä
kohta pitää alkaa tohtorilta kysellä jotain voimapillereitä että alkais saamaan aikaiseksi muutakin kuin
kissavideoiden tuijottelua...

Seuraava Ohjelmointi viikonloppu 10.7.2020
Tampereella lisä infoa kysymällä !

Kesälomat tulossa a tämä peli voisi olla yksi monista mitä nyt ehtii pelaamaan 

Kesä tuli ja viimein sain luolastani kytkeä lämmityksen pois
säästää muuten isosti sähkölaskussa !

siitä lähtien purkki ei ole jumahtanut kertaakaan ?!?
vahva veikkaus että syyllinen löytyykin sähkönsyötön puolelta ja ilmeisesti lämmittimen termarin kipinöinti
aiheuttaa jotain häiriötä purkin powerissa ja siksi se jumahtaa ei aina mutta lopulta...

Tai syy voi löytyä myös siitä että plokkasin yhden pahimmista hyökkäys osotteista !
kun nämä kaksi asiaa tekee samaan aikaa niin ei voi olla ihan varma kumpi oli se joka oikeasti vaikutti
oma arvaus menee kuitenkin lämmittimen puoleen koska se on ainoa joka periaatteessa voisi aiheuttaa
systeemin jumahduksen mistä ei toivuta kuin resetillä tai virtojen katkaisulla
ja muisteleen että tämä asia on aina liittynyt kevääseen ja syksyy koska silloin lämmitin
renaa lämpöjä kaikkein eniten pois ja päälle

luolassani ei siis ole kiinteää lämmitystä koska kiinteistövero...

systeemi on ollut vakaa jo useamman viikon <3
mikä on aina helpottavaa että asioita selviää

kesälle siis lisää projektia varastossa on ollut jo pitkään digitaalinen termari odottamassa asennusta
en vain ole saanut aikaiseksi sitäkään samalla varmaan lisätään muutama kontaktori ja suoto konkkia
tappamaan kytkemisestä aiheutava verkkohäiriöt
mistä tulikin mieleeni että aikaisemmin totesin että A2000 runsaammat jumahdukset johtuivat UPS laitteesta
joten on loogista että isoin syylinen on taidettu löytää !!

seuraava ongelma onkin jo ovella eli ensimmäiset Ukkosvaroitukset on annettu
joten jos pirkanmaalle on sellaisia annettu voi olettaa että BBS on sammutettu ettei vahinkoa satu !

Hyvää kesää ja Jusseja kaikille !! Pidetään nokka veden pinnan päällä !!