'****************************************************************************
'
'   Auslesen der Datentr„gernummer in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

PRINT "Datentr„gernummer von erster  Festplatte: "; GetDatenTraegerName$(0)
PRINT "Datentr„gernummer von zweiter Festplatte: "; GetDatenTraegerName$(1)

FUNCTION GetDatenTraegerName$(ByVal LaufWerk%) public
        Buffer$ = STRING$(512,10)
        BufferSeg?? = STRSEG(Buffer$)
        BufferOff?? = STRPTR(Buffer$)
        INCR Laufwerk%, &h80
        ! mov ah, 2
        ! mov dl, LaufWerk%
        ! mov dh, 1
        ! mov ch, 0
        ! mov cl, 1
        ! mov al, 1
        ! mov es, BufferSeg??
        ! mov bx, BufferOff??
        ! int &h13
        DiskNummerLow%  = CVI(MID$(Buffer$,40,2))
        DiskNummerHigh% = CVI(MID$(Buffer$,42,2))
        GetDatenTraegerName$ = HEX$(DiskNummerHigh%) + "-" + HEX$(DiskNummerLow%)
END FUNCTION