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.
jsr vbl_sync
jsr player_part1
jsr calculate
jsr clear_screen
jsr player_part2
jsr draw_effect
jsr player_part3
quit ldx #3
stx $d21f
stx $d20f
ldx freqen+4
ldy freqen
stx $d210
sty $d200
ldx volume+4
ldy volume
stx $d211
sty $d201
ldx freqen+5
ldy freqen+1
stx $d212
sty $d202
ldx volume+5
ldy volume+1
stx $d213
sty $d203
ldx freqen+6
ldy freqen+2
stx $d214
sty $d204
ldx volume+6
ldy volume+2
stx $d215
sty $d205
ldx freqen+7
ldy freqen+3
stx $d216
sty $d206
ldx volume+7
ldy volume+3
stx $d217
sty $d207
sta aud1
ldx aud2
stx $d218
sta $d208
rts
10 DL=PEEK(560)+256*PEEK(561)
20 POKE DL+4,0:POKE DL+5,210
30 POKE 559,33
10 GRAPHICS 6+16
20 DL=PEEK(560)+256*PEEK(561)
30 POKE DL+4,0:POKE DL+5,208
40 POKE 559,33
99 GOTO 99
10 POKE 53791,3 :REM $D21F
20 POKE 53776,128:REM $D210
30 POKE 53777,168:REM $D211
40 GOTO 40
;* STEREOMODE equ 0..3
;* ;0 => compile RMTplayer for 4 tracks mono
;* ;1 => compile RMTplayer for 8 tracks stereo
;* ;2 => compile RMTplayer for 4 tracks stereo L1 R2 R3 L4
;* ;3 => compile RMTplayer for 4 tracks stereo L1 L2 R3 R4
...
...
...
SetPokey
IFT STEREOMODE==1 ;* L1 L2 L3 L4 R1 R2 R3 R4
ldy #$ff
v_audctl2 equ *-1
lda trackn_audf+0+4
ldx trackn_audf+0
xstastx01 sta $d210
stx $d200
lda trackn_audc+0+4
ldx trackn_audc+0
xstastx02 sta $d211
stx $d201
lda trackn_audf+1+4
ldx trackn_audf+1
xstastx03 sta $d212
stx $d202
lda trackn_audc+1+4
ldx trackn_audc+1
xstastx04 sta $d213
stx $d203
lda trackn_audf+2+4
ldx trackn_audf+2
xstastx05 sta $d214
stx $d204
lda trackn_audc+2+4
ldx trackn_audc+2
xstastx06 sta $d215
stx $d205
lda trackn_audf+3+4
ldx trackn_audf+3
xstastx07 sta $d216
stx $d206
lda trackn_audc+3+4
ldx trackn_audc+3
xstastx08 sta $d217
stx $d207
lda #$ff
v_audctl equ *-1
xstysta01 sty $d218
sta $d208
ELI STEREOMODE==0 ;* L1 L2 L3 L4
ldy #$ff
v_audctl equ *-1
lda trackn_audf+0
ldx trackn_audc+0
sta $d200
stx $d201
lda trackn_audf+1
ldx trackn_audc+1
sta $d200+2
stx $d201+2
lda trackn_audf+2
ldx trackn_audc+2
sta $d200+4
stx $d201+4
lda trackn_audf+3
ldx trackn_audc+3
sta $d200+6
stx $d201+6
sty $d208
ELI STEREOMODE==2 ;* L1 R2 R3 L4
ldy #$ff
v_audctl equ *-1
lda trackn_audf+0
ldx trackn_audc+0
sta $d200
stx $d201
sta $d210
lda trackn_audf+1
ldx trackn_audc+1
sta $d210+2
stx $d211+2
lda trackn_audf+2
ldx trackn_audc+2
sta $d210+4
stx $d211+4
sta $d200+4
lda trackn_audf+3
ldx trackn_audc+3
sta $d200+6
stx $d201+6
sta $d210+6
sty $d218
sty $d208
ELI STEREOMODE==3 ;* L1 L2 R3 R4
ldy #$ff
v_audctl equ *-1
lda trackn_audf+0
ldx trackn_audc+0
sta $d200
stx $d201
lda trackn_audf+1
ldx trackn_audc+1
sta $d200+2
stx $d201+2
lda trackn_audf+2
ldx trackn_audc+2
sta $d210+4
stx $d211+4
sta $d200+4
lda trackn_audf+3
ldx trackn_audc+3
sta $d210+6
stx $d211+6
sta $d200+6
sty $d218
sty $d208
EIF
rts
