Club Amiga de Montreal

home *** CD-ROM | disk | FTP | other *** search

/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 390.lha / SampLibrary / samp.i < prev next >

Wrap

Text File | 1990-07-01 | 9.7 KB | 464 lines

;Set your editor's TAB width to 3 ;====================== SAMP.LIB LVO LABELS =========================== XDEF _LVOOpenSampWrite,_LVOWriteWaves,_LVOWriteNames,_LVOWriteMHDR XDEF _LVOWriteSampChunk,_LVOWriteSampData,_LVOCloseSamp XDEF _LVOOpenSampRead,_LVOLoadPlaymap,_LVOMixPlaymap,_LVOReadWaves XDEF _LVOMakeTransTable,_LVOSAMPErrorMsg _LVOOpenSampWrite equ -30 _LVOWriteWaves equ -36 _LVOWriteNames equ -42 _LVOWriteMHDR equ -48 _LVOWriteSampChunk equ -54 _LVOWriteSampData equ -60 _LVOCloseSamp equ -66 _LVOOpenSampRead equ -72 _LVOLoadPlaymap equ -78 _LVOMixPlaymap equ -84 _LVOReadWaves equ -90 _LVOMakeTransTable equ -96 _LVOSAMPErrorMsg equ -102 _LVOCusMakeTransTable equ -108 _LVORemoveTTable equ -114 _LVOFreeTTables equ -120 _LVOFindTNode equ -126 ;======================== SAMP.LIB ERROR CODES =========================== ; As returned by OpenSampRead, OpenSampWrite, and ReadWaves. SUCCESS equ 0 ;Operation successful LIBINUSE equ 1 ;Some other task is using samp.library NOOPENFILE equ 2 ;Cannot open the file NOTSAMP equ 3 ;Not a SAMP file BADSAMP equ 4 ;Bad SAMP file NOSUPPORT equ 5 ;SAMP file not supported OUTOFRANGE equ 6 ;Too few waves in the file OUTOFMEM equ 7 ;No mem to load the next wave NOMOREWAVES equ 8 ;No more waves in the file USERABORT equ 9 ;Application Abort ;====================== The SAMP file MHDR chunk ======================== ;MHDR size is dependant upon the size of the imbedded playMap. ;MHDR: ;NumOfWaves dc.b 0 ;The number of waves in this file ;Format dc.b 0 ;# of ORIGINAL significant bits from 8-28 ;Flags dc.b 0 ;Various bits indicate various functions ;PlayMode dc.b 0 ;determines play MODE of the playMap ;NumOfChans dc.b 4 ;# of bytes in playMap for each midi note ;Pad dc.b 0 ;PlayMap ds.b 128*4 ;a map of which wave numbers to use for ;each of 128 possible Midi Notes. Default to 4 ;bytes per midi note (i.e. numOfChans = 4) MHDR_NumOfWaves equ 0 MHDR_Format equ 1 MHDR_Flags equ 2 MHDR_PlayMode equ 3 MHDR_NumOfChans equ 4 MHDR_Pad equ 5 MHDR_PlayMap equ 6 ;PlayMode INDEPENDENT equ 0 MULTI equ 1 STEREO equ 2 PAN equ 3 ;Flags CONTINUED_FILE equ 0 STEREO_FILE equ 1 ;====================== The SAMP file BODY chunk ====================== ; Every wave has an 80 byte waveHeader, followed by its data. The waveHeader ; structure is as follows: ;waveHeader: ;WaveSize dc.l 0 ;MidiSampNum dc.w 0 ;for midi ;LoopType dc.b 0 ;for midi ;InsType dc.b 0 ;Period dc.l 0 ;Rate dc.l 0 ;LoopStart dc.l 0 ;LoopEnd dc.l 0 ;RootNote dc.b 0 ;VelStart dc.b 0 ;VelTable ds.w 16 ;ATAKsize dc.l 0 ;RLSEsize dc.l 0 ;FATKsize dc.l 0 ;FRLSsize dc.l 0 ;USERsize dc.l 0 ;USERtype dc.w 0 sizeofwaveHeader equ 80 wh_WaveSize equ 0 wh_MidiSampNum equ 4 wh_loopType equ 6 wh_InsType equ 7 wh_Period equ 8 wh_Rate equ 12 wh_LoopStart equ 16 wh_LoopEnd equ 20 wh_RootNote equ 24 wh_VelStart equ 25 wh_VelTable equ 26 wh_ATAKsize equ 58 wh_RLSEsize equ 62 wh_FATKsize equ 66 wh_FRLSsize equ 70 wh_USERsize equ 74 wh_USERtype equ 78 SPECIFIC equ 0 VOLMOD equ 1 PERMOD equ 2 LOOPING equ 3 ;================ SAMPlib SampleHeader64 structure ============= ; Used by the lib to load SAMP files ;SampleHeader64: ;OneShotAddr dc.l 0 ;Flags dc.b 0 ;VelStart dc.b 0 ;VelTable ds.w 16 ;OneShotEnd dc.l 0 ;loop start, as well ;TransTable dc.l 0 ;points to ORIGINAL_PITCH ;RootNote dc.w 0 ;LoopLength dc.l 0 ;in words, bit 31 cannot be set ;AttackRate dc.b 0 ;0 - 255 ;AttackInc dc.b 0 ;1 - 64 ;DecayRate dc.b 0 ;1 - 255 ;DecayDec dc.b 0 ;1 - 64 ;SusLevel dc.b 0 ;0 - 64 ;ReleaseRate dc.b 0 ;1 - 255 ;ReleaseDec dc.b 0 ;1 - 64 ;ClipNote dc.b 0 ;WaveSize dc.l 0 ;in bytes sizeofSampleHeader64 equ 64 sh_OneShotAddr equ 0 sh_Flags equ 4 sh_VelStart equ 5 sh_VelTable equ 6 sh_OneShotEnd equ 38 sh_TransTable equ 42 sh_RootNote equ 46 sh_LoopLength equ 48 sh_AttackRate equ 52 sh_AttackInc equ 53 sh_DecayRate equ 54 sh_DecayDec equ 55 sh_SusLevel equ 56 sh_ReleaseRate equ 57 sh_ReleaseDec equ 58 sh_ClipNote equ 59 sh_WaveSize equ 60 ;====================== For the Transpose table ==================== ; For playback of the wave ;TransposeNode: ;Next dc.l 0 ;next TransposeNode in TList ;Prev dc.l 0 ;previous TransposeNode in TList ;Period dc.l 0 ;in NANOSECONDS ;Orig dc.l 0 ;address of ORIGINAL_PITCH ;TSize dc.l 0 ;total size of node plus table ;pad dc.b 0 ;Hosts dc.b 0 ;# of waves using this table sizeofTNode equ 26 ;counting mandatory appended ORIGINAL_PITCH period entry tn_Next equ 0 tn_Prev equ 4 tn_Period equ 8 tn_Orig equ 12 tn_TSize equ 16 tn_Hosts equ 21 ;=================== the library's SAMPInfo structure ================ ;SAMPInfo: ;FileHandle dc.l 0 ;IFFTypeID dc.b 'FORM' ;could be CAT or LIST ;FileSize dc.l 0 ;SAMP dc.b 'SAMP' ;MHDR dc.b 'MHDR' ;MHDRSize dc.l 0 ;NumOfWaves dc.b 0 ;Format dc.b 0 ;Flags dc.b 0 ;PlayMode dc.b 0 ;NumOfChans dc.b 0 ;Pad dc.b 0 ;PlayMap ds.b 128*NumOfChans ;ANNOChunk dc.l 0 ;BODYChunk dc.l 0 ;NAMEChunk dc.l 0 ;AUTHChunk dc.l 0 ;COPYChunk dc.l 0 ;ATAK dc.l 0 ;RLSE dc.l 0 ;FATK dc.l 0 ;FRLS dc.l 0 ;USER dc.l 0 ;EXTRA dc.l 0 ;SeekPos dc.l 0 ;MemType dc.l 0 ;MaxChars dc.w 0 ;LowPer dc.w 0 ;HighPer dc.w 0 sizeofSAMPInfo equ 600 si_Handle equ 0 si_TypeID equ 4 si_FileSize equ 8 si_SAMP equ 12 si_MHDR equ 16 si_MHDRSize equ 20 si_NumOfWaves equ 24 si_Format equ 25 si_Flags equ 26 si_PlayMode equ 27 si_NumOfChans equ 28 si_Pad equ 29 si_PlayMap equ 30 si_ANNOChunk equ 542 si_BODYChunk equ 546 si_NAMEChunk equ 550 si_AUTHChunk equ 554 si_COPYChunk equ 558 si_ATAK equ 562 si_RLSE equ 566 si_FATK equ 570 si_FRLS equ 574 si_USER equ 578 si_EXTRA equ 582 si_SeekPos equ 586 si_MemType equ 590 si_MaxChars equ 594 si_LowPer equ 596 si_HighPer equ 598 ;======================== Instrument types ========================= ; You can construct the InsType field by OR'ing the family with the ; class. For example, ; ; InsType = STRING | VIOLA_BOW ;Instrument Families STRING equ $10 WOODWIND equ $20 KEYBOARD equ $30 GUITAR equ $40 VOICE equ $50 DRUM1 equ $60 DRUM2 equ $70 PERCUSSION1 equ $80 BRASS1 equ $90 BRASS2 equ $A0 CYMBAL equ $B0 EFFECT1 equ $C0 EFFECT2 equ $D0 SYNTH equ $E0 ; Instrument Classes ; For the STRING family, the high nibble is as follows: VIOLIN_BOW equ $1 VIOLIN_PLUCK equ $2 VIOLIN_GLIS equ $3 VIOLIN_TREM equ $4 VIOLA_BOW equ $5 VIOLA_PLUCK equ $6 VIOLA_GLIS equ $7 VIOLA_TREM equ $8 CELLO_BOW equ $9 CELLO_PLUCK equ $A CELLO_GLIS equ $B CELLO_TREM equ $C BASS_BOW equ $D BASS_PLUCK equ $E BASS_TREM equ $F ;For the BRASS1 family, the high nibble is as follows: BARITONE_SAX equ $1 BARI_GROWL equ $2 TENOR_SAX equ $3 TENOR_GROWL equ $4 ALTO_SAX equ $5 ALTO_GROWL equ $6 SOPRANO_SAX equ $7 SOPRANO_GROWL equ $8 TRUMPET equ $9 MUTED_TRUMPET equ $A TRUMPET_DROP equ $B TROMBONE equ $C TROMBONE_SLIDE equ $D TROMBONE_MUTE equ $E ;For the BRASS2 family, the high nibble is as follows: FRENCH_HORN equ $1 TUBA equ $2 FLUGAL_HORN equ $3 ENGLISH_HORN equ $4 ;For the WOODWIND family, the high nibble is as follows: CLARINET equ $1 FLUTE equ $2 PAN_FLUTE equ $3 OBOE equ $4 PICCOLO equ $5 RECORDER equ $6 BASSOON equ $7 BASS_CLARINET equ $8 HARMONICA equ $9 ;For the KEYBOARD family, the high nibble is as follows: GRAND_PIANO equ $1 ELEC_PIANO equ $2 HONKYTONK equ $3 TOY_PIANO equ $4 HARPSICHORD equ $5 CLAVINET equ $6 PIPE_ORGAN equ $7 HAMMOND_B3 equ $8 FARFISA_ORGAN equ $9 HARP equ $A ;For the DRUM1 family, the high nibble is as follows: KICK equ $1 SNARE equ $2 TOM equ $3 TIMBALES equ $4 CONGA_HIT equ $5 CONGA_SLAP equ $6 BRUSH_SNARE equ $7 ELEC_SNARE equ $8 ELEC_KICK equ $9 ELEC_TOM equ $A RIMSHOT equ $B CROSS_STICK equ $C BONGO equ $D STEEL_DRUM equ $E DOUBLE_TOM equ $F ;For the DRUM2 family, the high nibble is as follows: TIMPANI equ $1 TIMPANI_ROLL equ $2 LOG_DRUM equ $3 ;For the PERCUSSION1 family, the high nibble is as follows: BLOCK equ $1 COWBELL equ $2 TRIANGLE equ $3 TAMBOURINE equ $4 WHISTLE equ $5 MARACAS equ $6 BELL equ $7 VIBES equ $8 MARIMBA equ $9 XYLOPHONE equ $A TUBULAR_BELLS equ $B GLOCKENSPEIL equ $C ;For the CYMBAL family, the high nibble is as follows: CLOSED_HIHAT equ $1 OPEN_HIHAT equ $2 STEP_HIHAT equ $3 RIDE equ $4 BELL_CYMBAL equ $5 CRASH equ $6 CHOKE_CRASH equ $7 GONG equ $8 BELL_TREE equ $9 CYMBAL_ROLL equ $A ;For the GUITAR family, the high nibble is as follows: ELECTRIC equ $1 MUTED_ELEC equ $2 DISTORTED equ $3 ACOUSTIC equ $4 STRING_12 equ $5 NYLON_STRING equ $6 POWER_CHORD equ $7 HARMONICS equ $8 CHORD_STRUM equ $9 BANJO equ $A ELEC_BASS equ $B SLAPPED_BASS equ $C POPPED_BASS equ $D SITAR equ $E MANDOLIN equ $F ;For the VOICE family, the high nibble is as follows: MALE_AHH equ $1 FEMALE_AHH equ $2 MALE_OOO equ $3 FEMALE_OOO equ $4 FEMALE equ $5 BREATHY equ $6 LAUGH equ $7 WHISTLER equ $8 ;For the EFFECTS1 family, the high nibble is as follows: EXPLOSION equ $1 GUNSHOT equ $2 CREAKING_DOOR equ $3 DOOR_SLAM equ $4 DOOR_CLOSE equ $5 SPACEGUN equ $6 JET_ENGINE equ $7 PROPELLER equ $8 HELOCOPTER equ $9 BROKEN_GLASS equ $A THUNDER equ $B RAIN equ $C BIRDS equ $D JUNGLE_NOISES equ $E FOOTSTEP equ $F ;For the EFFECTS2 family, the high nibble is as follows: MACHINE_GUN equ $1 TELEPHONE equ $2 DOG_BARK equ $3 DOG_GROWL equ $4 BOAT_WHISTLE equ $5 OCEAN equ $6 WIND equ $7 CROWD_BOOS equ $8 APPLAUSE equ $9 ROARING_CROWDS equ $A SCREAM equ $B SWORD_CLASH equ $C AVALANCE equ $D BOUNCING_BALL equ $E BALL_ON_BAT equ $F /* OR CLUB */ ;For the SYNTH family, the high nibble is as follows: SYNTH_STRINGS equ $1 SQUARE_WAVE equ $2 SAWTOOTH_WAVE equ $3 TRI_WAVE equ $4 SINE_WAVE equ $5 NOISE equ $6