home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / nan_news / toolkit / floptst.asm < prev    next >
Assembly Source File  |  1991-08-15  |  10KB  |  230 lines
  1. ; File......: FLOPTST.ASM
  2. ; Author....: Joseph LaCour
  3. ; Date......: $Date:   15 Aug 1991 23:07:48  $
  4. ; Revision..: $Revision:   1.2  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/floptst.asv  $
  6. ; 
  7. ; This is an original work by Joseph LaCour and is placed in the
  8. ; public domain.
  9. ;
  10. ;
  11. ;  ACKNOWLEDGEMENTS:
  12. ;
  13. ;          PAOLO RAMOZZI FOR HIS WORK IN DBDCHECK FOR SHOWING HOW TO
  14. ;          USE INT 13H.
  15. ;
  16. ;
  17. ; Modification history:
  18. ; ---------------------
  19. ;
  20. ; $Log:   E:/nanfor/src/floptst.asv  $
  21. ;  
  22. ;     Rev 1.2   15 Aug 1991 23:07:48   GLENN
  23. ;  Forest Belt proofread/edited/cleaned up doc
  24. ;  
  25. ;     Rev 1.1   11 May 1991 00:21:42   GLENN
  26. ;  File header changed to conform to Toolkit standard.
  27. ;
  28.  
  29. ;  $DOC$
  30. ;  $FUNCNAME$
  31. ;      FT_FLOPTST()
  32. ;  $CATEGORY$
  33. ;      DOS/BIOS
  34. ;  $ONELINER$
  35. ;      Test diskette drive status
  36. ;  $SYNTAX$
  37. ;      FT_FLOPTST( <nDrive> ) -> nStatus
  38. ;  $ARGUMENTS$
  39. ;      <nDrive> is the diskette drive number, 0 = A:, 1 = B:
  40. ;  $RETURNS$  
  41. ;      -1 - Wrong Parameters
  42. ;       0 - Drive Loaded and ready to read or write
  43. ;       1 - Drive Door Open or Diskette inserted upside down
  44. ;       2 - Diskette is unformatted
  45. ;       3 - Write protected
  46. ;       4 - Undetermined
  47. ;  $DESCRIPTION$
  48. ;      FT_FLOPTST() is designed as a full replacement for ISDRIVE().  Where
  49. ;      ISDRIVE() returns just .T. or .F. depending if the diskette drive is
  50. ;      ready or not, FT_FLOPTST() returns a numeric code designating the
  51. ;      diskette drive's status.
  52. ;
  53. ;      FT_FLOPTST() is particularly useful in backup and restore programs
  54. ;      that need to test the floppy drive before writing/reading from a
  55. ;      floppy disk.
  56. ;  $EXAMPLES$
  57. ;      iStatus := FT_FLOPTST( 1 )
  58.  
  59. ;      DO CASE
  60. ;         CASE iStatus == 1
  61. ;            Qout( "The door to drive A is open." )
  62. ;         CASE iStatus == 2
  63. ;            Qout( "The diskette in drive A is not formatted." )
  64. ;         CASE iStatus == 3
  65. ;            Qout( "The diskette in drive A is write-protected." )
  66. ;         CASE iStatus == 4
  67. ;            Qout( "Something is wrong with drive A, but I don't know what." )
  68. ;      ENDCASE
  69. ;  $END$
  70.  
  71.  
  72. public  FT_FLOPTST
  73.  
  74. EXTRN   __PARNI:FAR
  75. EXTRN   __PARINFO:FAR
  76. EXTRN   __RETNI:FAR
  77.  
  78. _FT_DATASEG  SEGMENT PUBLIC  'DATA'
  79.  
  80. FDRIVE          DB      0
  81. BOOT_SECT       DB      512 DUP (0)
  82.  
  83. _FT_DATASEG  ENDS
  84.  
  85. _NANFOR   SEGMENT 'CODE'
  86.         ASSUME  CS:_NANFOR,DS:_FT_DATASEG,ES:_FT_DATASEG,SS:NOTHING
  87.  
  88.  
  89. FT_FLOPTST      PROC    FAR
  90.  
  91.                 XOR     AX,AX                        ; GET # OF PARAMETERS
  92.                 PUSH    AX                           ;
  93.                 CALL    __PARINFO                    ; CALL INFORMATION FUNCTION
  94.                 ADD     SP,2                         ; FIX UP THE STACK
  95.                 CMP     AL,1                         ; # OF PARAMETERS = 1 ?
  96.                 JNB     GETTYPE                      ; YES. GET THE TYPE
  97.                 JMP     SHORT FERROR                 ; NO. RETURN ERROR
  98.  
  99. GETTYPE:
  100.                 MOV     AX,1                         ; SPECIFY FIRST PARAM
  101.                 PUSH    AX
  102.                 CALL    __PARINFO                    ; CALL INFO FUNCTION
  103.                 ADD     SP,2                         ; FIX UP THE STACK
  104.                 TEST    AX,2                         ; NUMERIC?
  105.                 JNZ     GETDRIVE                     ; YES.  GET DRIVE
  106.                 JMP     SHORT FERROR                 ; NO.  REPORT ERROR
  107.  
  108. GETDRIVE:
  109.                 MOV     AX,1                         ; GET 1ST PARAMETER (drive)
  110.                 push    ax                           ;
  111.                 call    __parni                      ; must be a integer type
  112.                 add     sp,2                         ; fix up the stack
  113.                 push    ax                           ; save drive
  114.                 int     11h                          ; get equipment list
  115.                 mov     ah,0                         ; clear high byte
  116.                 mov     cl,6                         ; set shift count
  117.                 shr     al,cl                        ; shift diskette count
  118.                 pop     bx                           ; restore drive
  119.                 cmp     bl,al                        ; does drive exist?
  120.                 jbe     ParamOk                      ; yes, so continue
  121. derror:         jmp     short Ferror                 ; Invalid drive
  122.  
  123. ParamOk:
  124.                 push    ds                           ; Save DS
  125.                 mov     dx,_FT_DATASEG               ; DATA SEGMENT
  126.                 MOV     DS,DX                        ; IN DS REGISTER
  127.                 MOV     ES,DX                        ; IN ES REGISTER
  128.                 MOV     FDRIVE,AL                    ; SAVE DRIVE NUMBER
  129.                 XOR     AX,AX                        ; RESET DISKETTE SYSTEM
  130.                 INT     13H                          ; CALL BIOS
  131.                 CALL    _FTFLOPT                     ; TEST DISKETTE TYPE
  132.                 POP     DS                           ; RESTORE DS
  133.                 JMP     SHORT EXIT                   ; RETURN
  134.  
  135. FERROR:
  136.                 MOV     AX,-1                        ; BAD PARAMETERS
  137.  
  138. EXIT:
  139.                 PUSH     AX                          ; PUSH RETURN VALUE
  140.                 CALL     __RETNI                     ; AND RETURN IT TO CLIPPER
  141.                 ADD      SP,2                        ; FIX UP THE STACK
  142.  
  143.                 RET                                  ; FAR RETURN TO CLIPPER
  144.  
  145. FT_FLOPTST      ENDP
  146.  
  147. ;-----------------------------------------------------------;
  148. ; LOCAL SUBROUTINE - CALL BIOS INT 13 FOR READ SECTOR       ;
  149. ;-----------------------------------------------------------;
  150.  
  151. _FTINT13        PROC    NEAR
  152.                 PUSH    BX                           ; SAVE REGS
  153.                 PUSH    ES                           ;
  154.                 PUSH    AX                           ;
  155.                 INT     13H                          ; CALL BIOS (read sector)
  156.                 jnc     ftIntRet                     ; Read ok. Exit
  157.                 xor     ax,ax                        ; reset diskette system
  158.                 int     13h                          ; call BIOS
  159.                 pop     ax                           ; restore regs
  160.                 pop     es                           ; for retry
  161.                 push    es                           ; save regs
  162.                 push    ax                           ;
  163.                 int     13h                          ; call BIOS (read sector)
  164.                 jnc     ftIntRet                     ; Read ok. Exit
  165.                 xor     ax,ax                        ; reset diskette system
  166.                 int     13h                          ; call BIOS
  167.                 pop     ax                           ; restore regs
  168.                 pop     es                           ; for retry
  169.                 push    es                           ; save regs
  170.                 push    ax                           ;
  171.                 int     13h                          ; call BIOS (read sector)
  172. ftIntRet:       pop     bx                           ; restore regs
  173.                 pop     es                           ;
  174.                 pop     bx                           ;
  175.                 ret                                  ; near return
  176.  
  177. _ftint13        endp
  178.  
  179. ;-----------------------------------------------------------;
  180. ; Local subroutine - check boot sector                      ;
  181. ;-----------------------------------------------------------;
  182.  
  183. _ftflopt        proc    near
  184.  
  185.                 push    di                           ; preserve
  186.                 mov     di,OFFSET _FT_DataSeg:boot_sect   ; address of buffer
  187. ftflopred:
  188.                 xor     dx,dx                        ; clear DX
  189.                 mov     dl,fdrive                    ; drive number in DL
  190.                 mov     cx,0001h                     ; track 0, sector 1
  191.                 mov     bx,di                        ; buffer addr in ES:BX
  192.                 mov     ax,0201h                     ; read one sector
  193.                 call    _ftint13                     ; call BIOS
  194.                 jnc     Flop1                        ; Read ok. Continue
  195.                 cmp     ah,80h                       ; drive not ready ?
  196.                 je      Flop_out                     ; Yes.
  197.                 cmp     ah,02h                       ; unformatted?
  198.                 je      Flop_for                     ; Yes
  199.                 mov     ax,4                         ; otherwise, unknown
  200.                 jmp     short Flop_End               ; and exit
  201. Flop1:
  202.                 xor     dx,dx                        ; clear DX
  203.                 mov     dl,fdrive                    ; drive number in DL
  204.                 mov     cx,0001h                     ; track 0, sector 1
  205.                 mov     bx,di                        ; buffer addr in ES:BX
  206.                 mov     ax,0301h                     ; write one sector
  207.                 call    _ftint13                     ; call BIOS
  208.                 jnc     Flop_OK                      ; Write ok. Disk s/b AOK
  209.                 cmp     ah,03h                       ; Write protected?
  210.                 jne     Flop_OK                      ; No disk AOK
  211.                 mov     ax,3
  212.                 jmp     short Flop_End
  213. Flop_out:
  214.                 mov     ax,1
  215.                 jmp     short Flop_End
  216. Flop_for:
  217.                 mov     ax,2
  218.                 jmp     short Flop_End
  219. Flop_OK:
  220.                 xor     ax,ax                        ; AX = 0
  221. Flop_End:
  222.                 pop     di                           ; restore
  223.                 ret                                  ; near return
  224.  
  225. _ftflopt        endp
  226.  
  227. _nanfor         ends
  228.                 end
  229.  
  230.