home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 4: The Falcon Archive / nf_archive_four_v1.0.iso / ARCHIVE / WORK / MSX / GTK08777.ZIP / GTK.DEV / SOURCES.OFF / EXEMPLE1.LST < prev    next >
File List  |  1996-11-08  |  3KB  |  55 lines
  1. ' *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
  2. ' *≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈*
  3. ' *                                                                            *
  4. ' *                             DSP-replay routine                             *
  5. ' *                     for Graoumf Tracker modules (.GT2)                     *
  6. ' *                                 Falcon 030                                 *
  7. ' *                              Code GfA Basic 3                              *
  8. ' *                                                                            *
  9. ' *                               Example of use                               *
  10. ' *                                                                            *
  11. ' *≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈*
  12. ' * Version     : 8/11/1996, v0.87                                             *
  13. ' * Tab setting : 11                                                           *
  14. ' *≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈(C)oderight L. de Soras 1994-96*
  15. ' *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
  16. '
  17. ' La description complète des routines de contrôle
  18. ' du player est dans le fichier ROUTINES.TXT.
  19. '
  20. ' Initialisations
  21. ' ---------------
  22. path$="F:\DEV.GTK\SOURCES\"                     ! Chemin d'accès du fichier REPLAY.PGT
  23. module_name$=path$+"BLOUBA.GT2"                 ! Chemin + nom du module à charger
  24. DIM rout%(16000)                                ! 64 Ko pour la routine
  25. DIM mod%(300000)                                ! 1.2 Mo pour le module (regarder la taille finale pour réduire)
  26. DIM repbuf%(65536)                              ! 256 * 1 Ko pour les buffers des samples
  27. BLOAD path$+"REPLAY.PGT",V:rout%(0)
  28. a%=ADD(V:rout%(0),28)
  29. saminf%=C:a%(L:V:rout%(0))                      ! Relocation des routines
  30. routines%=ADD(V:rout%(0),32)
  31. ~C:routines%(W:&H2,W:32,L:saminf%)              ! Installe le noyau (32 voies maxi)
  32. ~C:routines%(W:&H102)                           ! Installe le player
  33. '
  34. ' For each new module
  35. ' -------------------
  36. type_mod%=0                                     ! 0 = GT2
  37. BLOAD module_name$,V:mod%(0)                    ! Le module à charger
  38. rep_buf%=V:repbuf%(0)
  39. adr_mod%=V:mod%(0)
  40. a%=C:routines%(W:&H105,W:type_mod%,L:adr_mod%,L:adr_mod%)       ! Conversion
  41. PRINT "Converted module length: ";a%;" bytes."
  42. ~C:routines%(W:&H106,L:adr_mod%,L:rep_buf%,L:0) ! Bouclage des samples du module
  43. '
  44. ' Play / Stop
  45. ' -----------
  46. ~C:routines%(W:&H109,L:adr_mod%,L:rep_buf%,W:0,W:0)     ! Play
  47. ~GEMDOS(7)
  48. ~C:routines%(W:&H10A)                           ! Stop. Toujours arrêter avant de changer de module
  49. '
  50. ' Before leaving
  51. ' --------------
  52. ~C:routines%(W:&H103)                           ! Retire le player
  53. ~C:routines%(W:&H3)                             ! Retire le noyau
  54. END
  55.