laenge   equ 22400         ;<=== LAENGE DES SOUNDS
Adresse  equ $7fc00-laenge
speed    equ 280           ;<=== SAMPLING PERIOD

DMACONW  EQU   $DFF096
ADKCONW  EQU   $DFF09E
AUD0LCH  EQU   $DFF0A0
AUD1LCH  EQU   $DFF0B0
AUD0LEN  EQU   $DFF0A4
AUD1LEN  EQU   $DFF0B4
AUD0PER  EQU   $DFF0A6
AUD1PER  EQU   $DFF0B6
AUD0VOL  EQU   $DFF0A8
AUD1VOL  EQU   $DFF0B8
_AbsExecBase      equ   4
_LVOOpenLibrary   equ   -552
_LVOInput         equ   -54
_LVOOpen          equ   -30
_LVOClose         equ   -36
_LVORead          equ   -42

Existing: EQU 1005
   move.l _AbsExecBase,a6
   move.l #DOS_Name,a1
   clr.l  d0
   jsr    _LVOOpenLibrary(a6)
   move.l d0,a6
   tst.l  d0
   beq    Abort

   jsr    _LVOInput(a6)
   move.l d0,StdIn
   beq    Abort

   move.l #FName,a0
   clr.b  -1(a0,d0.L)
   move.l a0,d1
   move.l #Existing,d2
   jsr    _LVOOpen(a6)
   move.l d0,FileHandle
   bne    Display_File
   bra    Abort

Display_File:
   move.l FileHandle,d1
   move.l #Adresse,d2
   move.l #laenge,d3
   jsr    _LVORead(a6)
   move.l FileHandle,d1
   jsr    _LVOClose(a6)
   MOVE.W #laenge/2,AUD0LEN
   MOVE.W #laenge/2,AUD1LEN
   MOVE.W    #speed,AUD0PER
   MOVE.W    #speed,AUD1PER
   MOVE.W       #64,AUD0VOL
   MOVE.W       #64,AUD1VOL
   MOVE.L #Adresse,AUD0LCH
   MOVE.L #Adresse,AUD1LCH
   MOVE.W #%1000001000000011,DMACONW
   clr.l  d2
   clr.l  d3
   clr.l  d5
Abort:
   clr.l  d0
   rts

   SECTION data,DATA
DOS_Name:
   dc.b 'dos.library',0
FName:
   dc.b 'df0:soundfiles/Skubidab',0  ;<=== FILENAME

   SECTION mem,BSS
StdIn      ds.l  1
FileHandle:ds.l  1

   END