home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / DISKSTATUS.S < prev    next >
Encoding:
Text File  |  1991-01-26  |  672 b   |  50 lines
  1. ORG $7FE00
  2. LOAD $7FE00
  3. J:
  4. MOVEM.L A0-A6/D0-D7,-(A7)
  5. JSR DRIVE0(PC)
  6. MOVE.L #$10000,D6
  7. J2:
  8. JSR DRIVE0(PC)
  9. SUB.L  #1,D6
  10. BEQ    DOEND
  11. BTST #3,$BFE001
  12. BNE j2
  13. DOEND:
  14. BTST #3,$BFE001
  15. BEQ NOTOK
  16. BNE YESOK
  17.  
  18. J21:
  19. MOVE.L #$10000,D6
  20. J3:
  21. JSR DRIVE0(PC)
  22. SUB.L  #1,D6
  23. BEQ    DOEND2
  24. BTST #5,$BFE001
  25. BNE j3
  26. DOEND2:
  27. BTST #5,$BFE001
  28. BNE NOTOK2
  29. BEQ YESOK2
  30. END:
  31. JSR RESTOREDISK(pc)
  32. MOVEM.L (A7)+,A0-A6/D0-D7
  33. RTS
  34. restoredisk:
  35.      move.b  #$ff,$bfd100
  36.      move.b  #$f7,$bfd100
  37.      rts
  38. DRIVE0:     move.b  #$7d,$bfd100
  39.      move.b  #$77,$bfd100
  40.      rts
  41. NOTOK:   MOVE.B #$01,$7FF02
  42.      BRA J21
  43. YESOK:     MOVE.B #$00,$7FF02
  44.      BRA J21
  45. NOTOK2:  MOVE.B #$01,$7FF00
  46.      BRA END
  47. YESOK2:     MOVE.B #$00,$7FF00
  48.      BRA END
  49. SLUT:
  50.