;PLAYVOICE - PAGE 329
;
VPOINT   EQU $6
VDATA    EQU $1000
HIMEM    EQU $73
;
KEYBOARD EQU $C000
KBSTROBE EQU $C010
SPEAKER  EQU $C030
;
         ORG $300
;
         LDA #<VDATA
         STA VPOINT
         LDA #>VDATA
         STA VPOINT+1
         LDA #0
         STA LASTSPKR
         JMP GETVDATA
PLAYIT   LDY STALLNUM
STALL    DEY
         BNE STALL
         EOR LASTSPKR
         BMI SPKRHIT
         NOP
         BPL SPKRMISS
SPKRHIT  LDY SPEAKER
SPKRMISS EOR LASTSPKR
         STA LASTSPKR
         ROL