6502 command stream player, part 4

This commit is contained in:
tildearrow 2025-04-17 04:39:51 -05:00
parent 17a14f292f
commit b1a630f2cd

View file

@ -82,9 +82,67 @@ fcsOneByteDispatch:
jsr fcsDispatchCmd jsr fcsDispatchCmd
rts rts
fcsPrePorta:
jsr fcsReadNext
pha
and #$80
sta fcsArg0
pla
and #$40
sta fcsArg1
ldy #$0c
jsr fcsDispatchCmd
rts
fcsNoOp: fcsNoOp:
rts rts
; COMMAND TABLE
; $b4 fcsNoArgDispatch,
; $b5 fcsNoArgDispatch,
; $b6 fcsNoArgDispatch,
; $b7 fcsNoArgDispatch,
; $b8 fcsOneByteDispatch,
; $b9 fcsNoOp,
; $ba fcsNoOp,
; $bb fcsNoOp,
; $bc fcsNoOp,
; $bd fcsNoOp,
; $be fcsNoOp,
; $bf fcsNoOp,
; $c0 fcsPrePorta,
; $c1 fcsArpTime,
; $c2 fcsVibrato,
; $c3 fcsVibRange,
; $c4 fcsVibShape,
; $c5 fcsPitch,
; $c6 fcsArpeggio,
; $c7 fcsVolume,
; $c8 fcsVolSlide,
; $c9 fcsPorta,
; $ca fcsLegato,
; $cb fcsVolSlideTarget,
; $cc fcsNoOpOneByte,
; $cd fcsNoOpOneByte,
; $ce fcsNoOpOneByte,
; $cf fcsPan,
; $d0 fcsOptPlaceholder,
; $d1 fcsNoOp,
; $d2 fcsNoOp,
; $d3 fcsLoop,
; $d4 fcsNoOp,
; $d5 fcsCallI,
; $d6 fcsOffWait,
; $d7 fcsFullCmd,
; $d8 fcsCall,
; $d9 fcsRet,
; $da fcsJump,
; $db fcsTickRate,
; $dc fcsWaitS,
; $dd fcsWaitC,
; $de fcsWait1,
; $df fcsStop,
; x: channel*2 ; x: channel*2
; y: command ; y: command
fcsDispatchCmd: fcsDispatchCmd: