home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / REDTONE.txt < prev    next >
Text File  |  2020-08-13  |  962b  |  47 lines
  1. ; REDTONE - red book tones, by don lancaster
  2. ;
  3. ;to play a single tone- 
  4. ;  put pitch in pitch5 at 6b3a
  5. ;  put dur at durat5 at 6b37
  6. ;  jsr redtone at 6b00
  7. ;
  8. ;to play a song
  9. ;  put start adrs of song in to songloc at 6944,6945
  10. ;  then jsr songply at 6910
  11. ;
  12. ;tarzan song: jsr 6900
  13. ;
  14. ;gotchas- tempo change hardcoded.  square waves only.
  15. ;
  16. ;hooks
  17. ;
  18. HOME     EQU       $FC58
  19. INIT     EQU       $FB2F     ;INITIALIZE TEXT SCREEN
  20. KBDSTR   EQU       $C010
  21. IOADR    EQU       $C000
  22. SPKR     EQU       $C030
  23. TAPEOUT  EQU       $C020
  24. WAIT     EQU       $FCA8
  25. ;
  26. NOTEP    EQU       $EF       ;NOTE POINTER FOR SONGPLAY
  27. ;
  28. ; CONSTANTS: PITCH LABELS
  29. ;
  30. A1       EQU       232       ;A BELOW MIDDLE C
  31. A1S      EQU       219
  32. B1F      EQU       219
  33. B1       EQU       207
  34. C1       EQU       195
  35. C1S      EQU       184
  36. D1F      EQU       174
  37. D1       EQU       164
  38. D1S      EQU
  39. E1F      EQU
  40. E1       EQU
  41. F1       EQU
  42. F1S      EQU
  43. G1F      EQU
  44. G1       EQU
  45. G1S      EQU
  46. A1F      EQU
  47.