; Code by Fabbroz75; Omaggio all'italia campione del mondo 2006; Ringrazio iAN CooG/HF per i suggerimenti e per il koalview ; ( riadattato da me per questo piccolo omaggio ).; Da ottimizzare ed ampliare; scrpos = $7f40scr = $5c00colpos = $8328col = $d800bkgcol = $8710startaddsong = $1000startplaysong = $1006startkoala = $6000nplaysong = $00 *= $0f00 ; cancello lo schermo e setto il colore nerocls lda #$00; colore 0 sta $d020; centro sta $d021; bordo ; iAN CooG/HF ldx #$00copy lda scrpos ,x sta scr ,x lda scrpos+$100,x sta scr +$100,x lda scrpos+$200,x sta scr +$200,x lda scrpos+$300,x sta scr +$300,x lda colpos ,x sta col ,x lda colpos+$100,x sta col +$100,x lda colpos+$200,x sta col +$200,x lda colpos+$300,x sta col +$300,x dex bne copy lda bkgcol sta $d021 lda #$2e sta $d012 lda #$78 sta $d018 lda #$02 sta $dd00 lda #$d8 sta $d016 lda #$3b sta $d011; end iAN CooG/HF ; faccio partire la musicastart sei lda #$0f ;volume al max sta $d418;del sid. ;Nota: non servirebbe adesso ;ma mi preparo per ulteriori aggiunte lda #nplaysong jsr startaddsong ; rasterlp lda #$80 wt cmp $d012 bne wt jsr startplaysong ; play veloceloop lda $dc01; premere spazio per accellerare la song and #$10 bne lp jsr wt *=startaddsong INCPRG mus.dat *= startkoala INCPRG cann.koa
Colgo l'occasione per chiedere se esiste qlcosa di meglio per ottimizzare bene i colori in fase di conversione.
P.S.:madinitaly,non ci siamo ancora salutati.Benvenuto!
