Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
tbxx:
No to pieknie... bo ja takim ekspertem jestem, że to co piszecie jest dla mnie zrozumiałe jak chiński przeplatany staro-cerkiewno-słowianskim ;)dli:
pha
lda color
inc color
inc color
sta wsync
sta colpm0
pla
rti
ldy #0
loop: sty wsync
sty colpm0
iny
iny
jmp loop
dli:
pha
lda vcount
cmp #($20+(8+16)/2)/2
bcc ?custom
lda colpf0s
sta colpf0
lda colpf1s
sta colpf1
lda colpf2s
sta colpf2
pla
rti
?custom:
lda #kolor01
sta colpf0
lda #kolor10
sta colpf1
lda #kolor11
sta colpf2
pla
rti
lda dlptrs
sta adr
lda dlptrs+1
sta adr+1
ldy #3+3+(7-1)
lda #$80
ora (adr),y
sta (adr),y
ldy #3+3+(15-1)
lda #$80
ora (adr),y
sta (adr),y
lda #<dli
sta dliv
lda #>dli
sta dliv+1
lda #$c0
sta nmien
lda colpf0s
sta c1
lda colpf1s
sta c2
lda colpf2s
sta c3
lda dlptrs
sta adr
lda dlptrs+1
sta adr+1
ldy #3+3+(7-1)
lda #$80
ora (adr),y
sta (adr),y
lda #<dli
sta dliv
lda #>dli
sta dliv+1
lda #$c0
sta nmien
rts
dli:
pha
lda #kolor01
sta colpf0
lda #kolor10
sta colpf1
lda #kolor11
sta colpf2
sta wsync
sta wsync
sta wsync
sta wsync
sta wsync
sta wsync
sta wsync
sta wsync
c1 = *+1
lda #0
sta colpf0
c2 = *+1
lda #0
sta colpf1
c3 = *+1
lda #0
sta colpf2
pla
rti