C=Foorumi

hmm... kuvasta kyllä löytyy D128 mutta se ei ole mustan hökötyksen alla xD

Tohotin käytössä myös todella kätevä hajonneiden piirien irrottelussa...(en suosittele)

valitettavasti ei xD

respektiä korkeintaan :p

kun foorumilla on ollut hiljaista jo jonkin aikaa niin laitetaampa
Pongaus kilpailu pystyy joskos se kirvoittaisi keskusteluun

eli oheisessa kuvassa on verstaalta kuva pongaa niin monta Commodorea kuin kykenet
ja nimeä ne myös piirustus ohjelmat kerovat myös näppärästi kordinaatit jos
tarvitsee ihan bikselien päälle kertoa missä mikäkin on xD

ammatilaiset voi sitten pongata muutakin mielenkiintoista kuvasta !

siis mitä ?
eikö tää pyörikkään Commodore 64 lla !!??!
xD

eiköhän tässä olla omasta pesästä pitämässä huolta missä ajalla ei ole merkitystä eikä vaivoja säästellä
kun sellainen ongelma kohdalle tulee
hmm... C=foorumi miittinki... *kelaa mielessä*

Nyt se sitten tempun teki vanha uskollinen musta tiiliskivi päästi savut ilmoille
powereita on kyllä nurkat väärällään mutta missähän ihmeessä ne lymyää...
paha vaan ettei nekään luultavasti kestä Chameleonin lisä kuormaa...

joten alan tässä suunitelemaan uuden powerin rakentamista ja samalla kyselen että olisiko muillakin
samoja tarpeita voisin noita tehdä sitten samalla muutaman enemmänkin
muille datat jakoon miten ite voi tehdä jos kolvi sopii käteen ja kotivakuutus on voimassa !
kunhan saan ensimmäisen sykkimään

nyt kyllä harmittaa vietävästi !! onneksi ei hajonnut pää koneiden käytössä vaan kojaukseen tulleelle levylle
helposti kärähtää muutama muukin osa jos pahasti osuu !

outoa ettei mustassa murikassa ole ollenkaan sulaketta ?!?!?
5v linja on täysin suojaamaton ja kuten nyt kävi korjaus emossa oli oikkari juurikin siinä linjassa
no eipä varmaan vahingoittunut juurikin sen vuoksi mutta powerista tuli entinen

pikaisella selaamisella löytyi muuntaja josta pukkaisi 9v / 2.78A
vaihto ehtoja on kaksi joko teen powerin kahdella tuollaisella mikä tarkoittaa sitä että 5V lähdöstä pukkaa
jotain 3A pitäisi riittää pahimpaankin käyttöön tai otan kaveriksi valmiin 5V hakkurin joka puskee vain 2A
molempien hinta on sama mutta kahden muuntajan käyttämiseen tarvitaan hieman ylimääräsiä osia
jotka luultavasti nostavat hintaa
muuntajan ja hakkurin hinta 12+12=24€ kahden muuntajan hässäkkä varmaan osineen jotain 30€
plus kotelo joka sit onkin se kallein kulu...

sama täällä sisään logautuminenkaa ei meinannut onnistua

mikäs C= foorumin palvelinta vaivaa on aika nahea käyttää ja usein saan seuraavanlaisen virheen

Resource Limit Is Reached
The website is temporarily unable to service your request as it exceeded resource limit. Please try again later.

välillä ei meinaa mikään sivu auveta ilman tuota ilmoitusta

ihan teidän kiusaksi tiiseri ettei ihan hiljaista ole projektin ympärillä xD
musa mono ja ensimmäinen Beetta joten saundit eivät vielä olleet ihan kohdallaan
sattui vain olemaan sen verran pienempi kuin täys versio niin menköön tiiserissä !

Konttorikone keskus tampereella ainakin joskus tarjosi noita tosi vanhoja matriisi nauhoja...
http://www.tampereenkonttorikone.fi/

voi olla että ovat modernoineet systemejään sitten viime näkemään...
helpoin halvin kovis viritys on X1541 kaapelilla ja 64HDD ohjelmalla käyttää jotain vanhaa läppärin kovista
http://www.64hdd.com/64hdd.html
toimii D64,D71 ja D81 formaateilla ostetulla versiolla saa sitten myös osan Turboloadereistakin toimimaan
jokunen yritelmä on viritellä kovista suoraankin koneeseeen
mutta SD kortti adapterit toimivat paremmin  ja niitä on tarjolla enemmän

yksi viritys on sattunut silmään mutta siinäkin oli paljon ongelmia
Koviksen käskyt siirtyvät 8bit infona mutta data vain 16bit joten yli puolet tilasta meni hukkaan

netti ja C64 youtube on täynnä tätä juttua !
http://www.techrepublic.com/blog/classic-tech/surf-the-web-on-your-commodore-64/182

tässä vielä hieman lisää koodia edelliseen
nyt lisäsin siihen Scroll textin
toivottavasti toimii nykimättä en viitsinyt testata aidolla
näitä emuista ei aina tiedä onko nykiminen ohjelmassa vai Emun vika xD

.word $0801 ;Turbo ei tarvitse
*=$0801

;BASIC LINE START
         .BYTE $0B,$08,$90,$06,$9E,$32
         .BYTE $30,$34,$39,$00,$A0,$00
;-------------------------------------
set_irq_hero
lda #0
sta $d021
sta $d020
sei
bit $dc0d
lda #<irq_hero
sta $0314
lda #>irq_hero
sta $0315
lda #$7f
sta $dc0d
lda #1
sta $d019
sta $d01a
lda #$30
sta $d012
lda $d011
and #$7f
sta $d011
cli
rts

irq_hero         lda #1
sta $d019
inc $d020
inc $d020
jsr scroll
lda #$3a
cm cmp $d012
bne cm
lda #8
sta $d016
jsr roll
jsr color
dec $d020
dec $d020
bit $dc0d
jmp $ea31

;-----------------------------
screen =$0400
col =$d800

color         ldx #0
colo         lda col+1,x
sta col,x
inx
cpx #40
bne colo

a_again ldx miss
cpx #20
beq back_to_start
lda list_color,x
sta col+39
inc miss
rts
;-----------------------------------------
sc .byte 7
;-----------------------------------------

scroll
lda sc
and #7
sta $d016
dec sc
rts
;-----------------------------------------
roll lda sc
beq rot
rts
rot
lda #7
sta sc
ldx #0
mer lda screen+1,x
sta screen,x
inx
cpx #40
bne mer

a_again2                ldx miss+1
                        lda texti,x
                        beq nollaa
sec ;turbo ass ei tarvitse tätä
sbc #$40 ;eikä tätä (kai xD)
                        sta $0400+39
                        inc miss+1
rts
back_to_start
lda #0
sta miss
jmp a_again

nollaa                  lda #0
                        sta miss+1
                        jmp a_again2
;-----------------------------
miss .byte 0,0
list_color
.byte 2,2,4,4,7,7,1,1,1,1,7,7,4,4,2,2,0,0,0,0
;-----------------------------
texti           .aasc "SCROLL",$60,$60,$60,$60,$60,0
;               .text "scroll       " ;Turbo A ver
; .byte 0



Vicen Monitorilla ei oikein tee mitään ja kyllä se toimii pitää vain käynnistää se Shell ikkunassa
monitori aukeaa sinne jos se ei ole auki kaatuu Vice
eli ainakin linukassa kutsulla x64 aukee vice ja shell jää auki

paras kätevin C64 Assy on Turbo Assembler tukee (kiellettyjäkin käskyjä)
http://turbo.style64.org/

kyseisen softan saa myös PC win ja Linukka versiona
ja koodi on yhteensopivaa toistensa kanssa

AX on minulla käytössä pystyy myös kääntämään muitakin prossia esim 65816 koodia

tässä musiikki osio tubla sidi valinta ohjelmalla jos
omistat laitteen missä on kaksi Sid piiriä
olisin kovastin otettu jos testaisit että tämä toimii
oikeassakin koneessa emulaatoreissa tämä toimii aivan liian hyvin...

C64 Midillä Korg ia vaan roplataan hieno löytö !

Tilanne päivitys
homma on alkanut rullaamaan vauhdilla kun loppuivat nuo työ häiritsemästä koodaamista xD

Musiikki:
musiikki rutiini käännetty takaisin assemplerille sopivaksi joten sen muokkaaminen onnistuu
musiikki rutiinin puukotukset
Mono muunnos valmis
Stereo Sid uudelleen painannus työn alla vielä kesken valinta interface

Peli:
Pelin koodaus laahaa jäljessä koska se sijaitsee edelleen C64 uumenissa
tarkoitus siirtää se myös PC alaisuuteen
hi score ruutu edistyy
taustan hieno säätöä vielä tehtävänä sama rutiini pyörii kaikkien muidenkin ruutujen alla
Musiikki NMI keskeytysten alla
pääruutu tekemättä
pelikentistä yksi koe kenttä valmis pääsen testaamaan sitä itse pelissä piakkoin

Assempler:
PCn alaisuudessa pyörivä ohjelmointi ympäristö valmis koko C64 muistin täyttävään ohjelmointiin valmis
eli pääsen koodaamaan vapaasti ilman 1541 latauksia ja käännökset valmistuvat silmän räpäyksessä
tämä tulee nopeuttamaan ohjelmointia huomattavasti ja tuo lisää joustavuutta ohjelmoinnin
vapauteen enään en ole sidottu C64 ympärille ohjelmoinnin saralla xD

Grafiikka:
Latauskuva ok
peli grafiikka ok
koreilu grafiikka puuttuu
palikoiden vieritys ilman $d011 rekistereiden tarvetta toimii hyvin
Spritet vain itse alus on valmis hienoisia ongelmia lisä sprite grafiikan sijoittelun vuoksi
kirjain grafiikka vain koe kirjaimet vaativat paremmin tehdyt

Muuta:
ohjelmakoodin, grafiikan ja musiikin sijoittaminen muistiin tehokkaasti
ja koodin yhteen liittäminen sopivaksi toistensa kanssa
kenttien pakkaus ja purkamis rutiini työn alla (vaatii hieman mietintää)

innostuin sitten ilta myöhään veivaamaan tälläiset Demojen perus kauraa olevan color scroll
mallin vääntämään eli kuusi ylintä riviä saavat väri vierityksen
mukana malli rutiini ja sorsa

koska merkkiväri muistia ei pysty mitenkään vierittämään siirtyvät palikat
yhden merkin kerran rasterikeskeytyksessä näin saamme illuusion vierivästä väri paletista xD


;-------------------------------
; color scroll
;-------------------------------       
.word $0801     ;oma assemplerini ei kirjoita
        ;ohjelma fileen alkuun lataus osoitetta joten
;kehvelivieköön kirjoitan se siis itse
*=$0801 ;kerromme  vielä assemplerille että ohjelma alkaa tästä

;BASIC LINE START
         .BYTE $0B,$08,$90,$06,$9E,$32
         .BYTE $30,$34,$39,$00,$A0,$00
;--------------------------
set_irq_hero
lda #0
sta $d021
sta $d020

sei ;Keskeytykset seis
bit $dc0d ;nollaamme Irq A ajastimen varmuuden vuoksi
lda #<irq_hero ;ala tavu XX!!
sta $0314
lda #>irq_hero ;ylätävu !!XX
sta $0315
lda #$7f ;keskeytykset pois päältä
sta $dc0d
lda #1 ;asetamme rasteri keskeytykset päälle
sta $d019
sta $d01a ;varsinainen rekisteri
lda #$fb ;millä rasterilla keskeytys tapahtuu
sta $d012
lda $d011 ;varmistamme vielä että keskeytys tapahtuu
and #$7f ;näytön näkyvällä osalla
sta $d011
cli ;keskeytykset päälle
rts ;valmista paluu Bacikkiin

irq_hero lda #1
sta $d019 ;nollataan keskeytys ettei jää looppiin
inc $d020 ;muutellaan borderi värejä +1
inc $d020
jsr color
dec $d020 ;palautetaan värit -1
dec $d020
bit $dc0d ;extra safe nollataan vielä A&B keskeytykset
jmp $ea31 ;normaali basic keskeytys rutiini
;-----------------------------
col =$d800                  ;leibelille näytön värimuistin alku osoite

color ldx #0                  ;x=0
colo lda col+1,x             ;lukeva osa yhden tavin edelle
sta col,x               ;tallennetaan
lda col+40+1,x          ;sama seuraavalle riville (+40)
sta col+40,x
lda col+80+1,x          ;ja niin edes päin
sta col+80,x
lda col+120+1,x
sta col+120,x
lda col+160+1,x
sta col+160,x
lda col+200+1,x
sta col+200,x
inx                     ;lisätään X rekisteriä yhdellä X=X+1
cpx #40                 ;joko se on 40 ?
bne colo         ;ei vielä uusi lenkki

a_again         ldx miss                ;missä mennään väri listassa ?
cpx #20                 ;ollaankko listasta jo ulkona ?
beq back_to_start       ;nollataan "miss" jos X = 20
lda list_color,x        ;otetaan väri X rekisterin määräämästä paikasta
sta col+39              ;asetamme sen näytön oikeaan laitaan
sta col+39+40           ;ja seuraavillekin riveille sama
sta col+39+80
sta col+39+120
sta col+39+160
sta col+39+200
inc miss                ;lisätään Miss iä yhdellä
rts ;ja pois
;-----------------------------
miss .byte 0
list_color                              ;käytettävät värit täällä
.byte 2,2,4,4,7,7,1,1,1,1,7,7,4,4,2,2,0,0,0,0
;-----------------------------
back_to_start
lda #0                  ;asetamme "miss" takaisin nollaksi
sta miss
jmp a_again             ;ja palaamme rutiiniimme
;-----------------------------