home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / HDX_BACK / HDX302.ST / TSTBUS.S < prev    next >
Encoding:
Text File  |  2001-02-09  |  564 b   |  23 lines
  1. ;+
  2. ;    test the drive is a SCSI drive or not.
  3. ;-
  4.  
  5. REGBASE    equ        $1
  6. BSCSI    equ        $FFFF8780 + REGBASE
  7. BERR    equ        $8
  8.  
  9.         .extern    _ttscsi
  10.  
  11.         .globl    _t_scsi
  12. _t_scsi:
  13.         sf        _ttscsi                ; assume SCSI doesn't exist
  14.         movea.l    BERR, a0            ; save the original bus error vector
  15.         move.l    #tscsi, BERR        ; install our vector
  16.         movea.l    sp, a1                ; save the stack pointer
  17.         move.b     BSCSI, d0            ; check the SCSI exist or not
  18.         st        _ttscsi                ; SCSI exists
  19. tscsi:    move.l     a0, BERR            ; restore original bus error vector
  20.         move.l     a1, sp                ; restore stack pointer
  21.         rts
  22.  
  23.