TEXT 
Begin:
  LEA       4(A7),A0
  MOVEM.L   A3-A4/D6-D7/D3,-(A7)
  MOVE.W    (A0)+,D7
  BPL       L0008 
  MOVE.W    (A0),D6 
  MOVE.L    A7,$6676.S
  LEA       $6A7A.S,A7
  MOVE.W    D7,D1 
  NOT.W     D1
  CMP.W     #$11,D1 
  BGT.S     L0001 
  LEA       $FEB306,A1
  MOVE.B    0(A1,D1.W),D3 
  EXT.W     D3
  ADD.W     D3,D3 
  LEA       L000E(PC),A4
  ADDA.W    0(A4,D3.W),A4 
  BSR.S     L0009 
  CMP.W     #$C,D3
  BEQ.S     L0002 
L0000:
  LEA       L0011(PC),A4
  BSR.S     L0009 
  BSR.S     L000D 
  BCLR      #5,D0 
  CMP.B     #$41,D0 	;#'A'
  BEQ.S     L0003 
  CMP.B     #$49,D0 
  BEQ.S     L0005 
  CMP.B     #$4E,D0 
  BEQ.S     L0004 
  BRA.S     L0000 
L0001:
  MOVEQ     #-1,D0
  BRA.S     L0008 
L0002:
  LEA       L0012(PC),A4
  BSR.S     L0009 
  BSR.S     L000D 
  MOVEQ     #0,D3 
  BRA.S     L0007 
L0003:
  MOVE.W    D7,D3 
  EXT.L     D3
  BRA.S     L0006 
L0004:
  MOVEQ     #1,D3 
  SWAP      D3
  BRA.S     L0006 
L0005:
  MOVEQ     #0,D3 
L0006:
  MOVE.W    D0,-(A7)
  MOVE.L    #$30002,-(A7) 
  TRAP      #$D 
  ADDQ.L    #6,A7 
L0007:
  LEA       L0010(PC),A3
  BSR.S     L000A 
  MOVE.L    D3,D0 
L0008:
  MOVEA.L   $6676.S,A7
  MOVEM.L   (A7)+,A3-A4/D6-D7/D3
  RTS 
L0009:
  LEA       L000F(PC),A3
  BSR.S     L000A 
  MOVEA.L   A4,A3 
L000A:
  MOVE.B    (A3)+,D0
  BEQ.S     L000C 
  CMP.B     #$25,D0 
  BNE.S     L000B 
  MOVEQ     #$41,D0 
  ADD.B     D6,D0 
L000B:
  MOVE.W    D0,-(A7)
  MOVE.L    #$30002,-(A7) 
  TRAP      #$D 
  ADDQ.L    #6,A7 
  BRA.S     L000A 
L000C:
  RTS 
L000D:
  MOVE.L    #$20002,-(A7) 
  TRAP      #$D 
  ADDQ.L    #4,A7 
  RTS 
L000E:
  DC.B      $00,$12,$00,$3E,$00,$61,$00,$7E 
  DC.B      $00,$A4,$00,$C4,$00,$C5 
L000F:
  DC.B      $1B,'l ',$00
  DC.B      'Disk in Laufwerk %: ist schreibgesch�tzt.',$0D,$0A,$00 
  DC.B      'Floppy %: antwortet nicht (?)...',$0D,$0A,$00
  DC.B      'Daten auf Disk %: defekt? ',$0D,$0A,$00
  DC.B      'Anwendung kann Disk %: nicht lesen.',$0D,$0A,$00 
  DC.B      'Ausgabeger„t antwortet nicht!',$0D,$0A,$00 
  DC.B      $00 
  DC.B      'Bitte Disk %: in Laufwerk A: einlegen!'
L0010:
  DC.B      $0D,$0A,$00 
L0011:
  DC.B      'A)bbruch, N)ochmal, I)gnorieren? ',$00 
L0012:
  DC.B      'Taste...',$00
  DC.B      $00 
ZUEND: END