youtube törmäys
Maniac of Noise tekee ihan reipasta settiä vieläkin xD
eiku nupit kaakkoon !!
Maniacs Of Noise - Firing Up
Maniac of Noise tekee ihan reipasta settiä vieläkin xD
eiku nupit kaakkoon !!
Maniacs Of Noise - Firing Up
Tämä jakso sallii sinun katsoa tämän jäsenen kaikkia viestejä. Huomaa, että näet vain niiden alueiden viestit, joihin sinulla on nyt pääsy.
Näytä viestit Menu
*=$1000
sample =$1000
start
sei ;keskeytykset pois
lda #<sample ;asetetaan samplen osoiteen alatavu
ldx #>sample ; ---===-- ylä tavu
sta $fe ; alatavu nollasivulle
stx $ff ; ylätavu ---===---
ldy #0 ; nollataan Y
loop lda ($fe),y ; ladataan sample tavu
pha ;tallennetaan pinoon
lsr
lsr
lsr
lsr ;siirretään tavun ylin 4 bittiä alimmaiseksi
sta $d418 ; sample volume rekisteriin
sta $d020 ; vähän väriä
jsr wait ;odotetaan ettei mene liian nopeasti
pla ;palautetaan sample tavu pinosta
and #$0f ;siivotaan jo käytetyt ylimmät bitit pois
sta $d418 ; ja taas volume rekisteriin uusi sample
sta $d020 ;lisää väriä
jsr wait ;odotellaan
inc $fe ;lisätään sample osoitetta yhdellä
bne tsek ;menikö jo yli
inc $ff ;lisätään ylintä osoite tavua yhdellä
tsek
lda #$fb
cmp $dc01 ;onko CTRL näppäintä painettu
bne loop ;ei ole jatketaan
cli ;keskeytykset päälle
rts ;paluu basiciin tms.
wait ldx #0 ; x=0
loop2 dex ; x=x-1
bne loop2 ; pyöritetään looppi2 kunnes päästään taas 0
rts
sample koostuu yleisimmin kahdesta osasta koska volume rekisteri on vain 4 bittinen
yhteen tavuun siis mahtuu kaksi sample otantaa