home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / PLAYVOICE.SRC.txt < prev    next >
Text File  |  2020-08-13  |  511b  |  31 lines
  1. ;PLAYVOICE - PAGE 329
  2. ;
  3. VPOINT   EQU $6
  4. VDATA    EQU $1000
  5. HIMEM    EQU $73
  6. ;
  7. KEYBOARD EQU $C000
  8. KBSTROBE EQU $C010
  9. SPEAKER  EQU $C030
  10. ;
  11.          ORG $300
  12. ;
  13.          LDA #<VDATA
  14.          STA VPOINT
  15.          LDA #>VDATA
  16.          STA VPOINT+1
  17.          LDA #0
  18.          STA LASTSPKR
  19.          JMP GETVDATA
  20. PLAYIT   LDY STALLNUM
  21. STALL    DEY
  22.          BNE STALL
  23.          EOR LASTSPKR
  24.          BMI SPKRHIT
  25.          NOP
  26.          BPL SPKRMISS
  27. SPKRHIT  LDY SPEAKER
  28. SPKRMISS EOR LASTSPKR
  29.          STA LASTSPKR
  30.          ROL
  31.