home *** CD-ROM | disk | FTP | other *** search
/ modiromppu / modiromppu.iso / OZ / CREATOR1.ZIP / WOWTPU.DOC < prev    next >
Text File  |  1991-12-29  |  3KB  |  83 lines
  1. WOWTPU.TPU, WOWCONST.TPU und TESTWOW.PAS Copyright (c) 1991  Jan Ole Suhr
  2.  
  3. WOWTPU.TPU und WOWCONST.TPU - 2 Turbo Pascal 6.0 Units zum Einbinden eines
  4. MODPlayers in eigene Turbo Pascal Programme.
  5.  
  6. TESTWOW.PAS - Demonstrationsprogramm der beiden Units WOWTPU.TPU & WOWCONST.TPU
  7.  
  8. 1. Einleitung
  9.  
  10. Howdy!,
  11. damit künftig noch mehr selbstgebastelte Programme das Abspielen von MODFiles
  12. ermöglichen, habe ich mich kurzerhand entschlossen, eine Turbo Pascal 6.0 Unit
  13. zum Abspielen von *.MOD-Files zu schreiben. Die Unit WOWTPU.TPU (&WOWCONST.TPU)
  14. kann von allen Registranten und nicht-Registranten des MODPlayers WOW benützt
  15. werden.
  16.  
  17. Hierbei verlange ich als Autor der beiden Units und des Demo-Sources weder eine
  18. Gebühr, noch fordere ich Vermerke über den Ursprung der Routinen bei selbst-
  19. erstellten Musikprogrammen etc. 
  20.  
  21. WICHTIG: LEDIGLICH DIE KOMMERZIELLE NUTZUNG DER BEIDEN UNITS WOWTPU.TPU & 
  22.      WOWCONST.TPU IST UNTERSAGT !!!
  23.  
  24. (Absprachen hierbei sind ggf. möglich.)
  25.  
  26.  
  27.  
  28. 2. Verwendung der Units
  29.  
  30. Die Verwendung der beiden Units ist wie bei TESTWOW.PAS dokumentiert zu 
  31. befolgen. Es sind leider nicht viele Möglichekeiten zur Beeinflussung des
  32. Abspielvorganges gegeben, allerdings steht der Nutzung der freien System-
  33. kapazität während des Abspielens fast jede Tür offen. 
  34. Ich empfehle auf Turbo Pascal eigene (Hochsprachen) Routinen zu verzichten,
  35. die während ihrer Ausführung Interrupts sperren. Hierbei kommt es nicht selten
  36. zu den gehassten "Leiereffekten". 
  37. Mein Vorschlag hierbei: Trial and Error ist die beste Methode, einen geeigneten
  38. Weg zu finden. Es ist nicht immer einfach, viele Standard-Routinen (so z.B.
  39. die CRT-Funktion KeyPressed) durch Eigene zu ersetzen.
  40.  
  41. Der Interfaceteil der Unit WOWTPU.TPU:
  42.  
  43. (* WOWTPU - MODPlayer Turbo Pascal Unit Copyright (c) 1991  Jan Ole Suhr *)
  44. {$R-,S-,I-}
  45. unit wowtpu;
  46. interface
  47. (* Aufruf: flag:=DoIt( 'TEST.MOD', $378, 0, 21000 );                     *)
  48. (* flag : byte = 0 : Kein Fehler, 1 : File not found, 2 : kein Speicher  *)
  49.   function DoIt( name : string; port1, port2, herz : word ) : byte;
  50.  
  51. (* Aufruf: endit;                                                        *)
  52.   procedure EndIt;
  53.  
  54. (* Aufruf: port1:=IdentifySB;                                            *)
  55. (* port1 : word = 0 : Keine Soundblaster vorhanden, $2xC : Portadresse   *)
  56.   function IdentifySB : word;
  57.  
  58.   var
  59. (* aktueller Pattern, Aktuelle Note*16                                   *)
  60.     pattern, nz : word;
  61.  
  62. (* Der letzte Patterneintrag                                             *)
  63.     lastpattern : byte;
  64.  
  65.  
  66.  
  67. 3. Fehler in der Unit
  68.  
  69. Bei Fehlern oder ungeklärten Abstürzen der Units erkläre ich mich selbst-
  70. verständlich bereit, "BUG-Fixes" vorzunehmen oder ggf. Problemsituationen
  71. zu erläutern/klären. Aus chronischem Zeitmangel kann ich evtl. nicht alles
  72. sofort bearbeiten, "but who cares".
  73.  
  74.                                    tschüssecken, Jan Ole
  75.  
  76.  
  77. 4. Adresse etc.
  78.  
  79. Jan Ole Suhr                            Tel.: 04207 / 2571
  80. Bockhorster Weg 28                      Fido: 2:241/2002.8
  81. 2806 Oyten
  82.  
  83.