'****************************************************************************
'
'  Ermitteln ob das Betriebssystem Long File Names untersttzt
'
'  entwickelt von / developed by    :  Thomas Gohel
'                           FidoNet :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

SELECT CASE LFNSupport%
    CASE 1   : PRINT "LFN Support enabled"
    CASE ELSE: PRINT "LFN Support not found"
END SELECT

FUNCTION LFNSupport% public
        Dummy% = 0
        ! mov  ax, &h3306                ; wahre DOS Version ermitteln,
        ! mov  bx, &h0                   ; unter Umgehung von SETVER
        ! int  &h21
        ! cmp  bx, 7                     ; => 7 dann MS-DOS 7.0
        ! jc NoLFN
        ! mov  ax, &h714F                ; NextDir als Dummy aufrufen, denn
        ! int  &h21                      ; hier erfolgt immer ein Carry-Flag.
                                         ' Allerdings erkennen wir dann an AX
                                         ' ob der LFN-Support vorhanden ist.
        ! cmp  ax, &h7100                ; Ab MS-DOS 7 bedeutet hier ein
        ! jz   NoLFN                     ; Wert von &h7100: Use DOS 8.3
        ! mov  Dummy%, 1                 ; functions!
        NoLFN:
        LFNSupport% = Dummy%
END FUNCTION