Read=-$2a
Write=-$30
Input=-$36
Output=-$3c

start:
  lea name,a1
copyLoop:
  move.b (a0)+,(a1)+
  dbf d0,copyLoop
  move.l #dosname,a1
  move.l 4,a6
  jsr -408(a6)
  move.l d0,dosbase

  cmp.l #$fc0cd8,$6c       ;ist dort nicht der alte Vector ???
  bne SoundControllAktive  ;nein etwas anderes....
  clr.l d0
  rts
SoundControllAktive:
  move.l #text,a0
  bsr print
  move.l #5,d0             ;CLI-WARNING
  rts

print:
  move.l a0,-(a7)
  move.l DosBase,a6
  jsr    OutPut(a6)
  move.l d0,d1
  move.l (a7)+,a0
  move.l a0,d2
  andi.w #-2,d2
NullFind:
  tst.b  (a0)+
  bne.s  NullFind
  move.l a0,d3
  sub.l d2,d3
  move.l DosBase,a6
  jsr    write(a6)
  rts

text:
 dc.b 10
 dc.b 'Please Remove SOUND-CONTROLLER before starting '
name:
 blk.b 25,' '
 dc.b 10,10,0

dosname: dc.b 'dos.library',0
even
dosbase: dc.l 0

.