home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / TIMBRE.txt < prev    next >
Text File  |  2020-08-13  |  817b  |  34 lines
  1. ; TIMBRE TESTER
  2. ;
  3. ; load timbfle with delay values between zero crossings
  4. ; load tflength with numnber of zero crossings per fundamental note cycle
  5. ;
  6. ;
  7. HOME     EQU       $FC58
  8. INIT     EQU       $FB2F     ;INITIALIZE TEXT SCREEN
  9. KBDSTR   EQU       $C010
  10. IOADR    EQU       $C000
  11. SPKR     EQU       $C030
  12. TAPEOUT  EQU       $C020
  13. WAIT     EQU       $FCA8
  14. ;
  15. NOTEP    EQU       $EF       ;NOTE POINTER FOR SONGPLAY
  16. ;
  17.          ORG       $6000
  18. TIMBRE   BIT       KBDSTR
  19. RESCAN5  LDX       TFLENGTH
  20. NEXT5    DEX
  21.          BMI       RESCAN5
  22.          LDY       TIMBFLE,X
  23. LOOP5    DEY
  24.          BNE       LOOP5
  25.          BIT       SPKR
  26.          BIT       TAPEOUT
  27.          BIT       IOADR
  28.          BPL       NEXT5
  29.          BIT       KBDSTR
  30.          RTS
  31. ;
  32. TFLENGTH DFB       $08
  33. TIMBFLE  DFB       $60,$6A,$6A,$27,$27,$6A,$6A,$5E
  34.