[_GetAttr]
$EXTERNAL _GetDirEntry , _GetFileAttribute , _SearchDirEntry
_GetAttr:
.OBJ 93FF
.OBJ 93EF
   rcall _SearchDirEntry_CheckFileName
   rjmp _GetAttr1
_GetAttr0:
.OBJ 93FF
.OBJ 93EF
   rcall _GetDirEntry_0
_GetAttr1:
.OBJ 91AF
.OBJ 91BF
   brcc _GetAttr2
.OBJ 2788
.OBJ 938C
.OBJ 9508
_GetAttr2:
   rjmp _GetFileAttribute
[end]

'------------------------------------------------------------------------------
'                        simulate-AVR-DOS.bas
'  simulate AVR-DOS using virtual XRAM drive
'
'------------------------------------------------------------------------------
$regfile = "M128def.dat"
$crystal = 16000000
' Adjust HW Stack, Soft-Stack and Frame size to 128 minimum each!!!
$hwstack=128 : $swstack=128 : $framesize=128
$xramsize = &H10000  'specify 64KB of XRAM for the file system
$sim 'for simulation only !
$baud = 19200

Config Clock = Soft
Enable Interrupts
Config Date = Mdy , Separator = dot

Dim Btemp1 As Byte ,battr1 as Byte, battr2 as Byte
$include "Config_XRAMDrive.bas"                             ' Does drive init too
$include "Config_AVR-DOS.BAS"

Print "Wait for Drive"
If Gbdriveerror = 0 Then
   Print "Init File System ... ";
   Btemp1 = Initfilesystem(1)                                ' Partition 1
                                          ' use 0 for drive without Master boot record
   If Btemp1 <> 0 Then
      Print  "Error: " ; Btemp1 ; " at Init file system"
   Else
      Print  " OK"
      Print  "Filesystem: " ; Gbfilesystem
      Print  "FAT Start Sector: " ; Glfatfirstsector
      Print  "Root Start Sector: " ; Glrootfirstsector
      Print  "Data First Sector: " ; Gldatafirstsector
      Print  "Max. Cluster Nummber: " ; Glmaxclusternumber
      Print  "Sectors per Cluster: " ; Gbsectorspercluster
      Print  "Root Entries: " ; Gwrootentries
      Print  "Sectors per FAT: " ; Glsectorsperfat
      Print  "Number of FATs: " ; Gbnumberoffats
   End If
Else
   Print  "Error during Drive Init: " ; Gbdriveerror
End If

Dim strDummy as String * 12
Dim Datei As String * 12 , Attribut As Byte
Datei = "Test1.txt"

Open Datei For Output As #11
Print #11 , "Testzeile1"
Close #11

open "Test2.txt" For output as #11
Print #11, "Testzeile2"
close #11

open "Test3.txt" for output as #11
Print #11, "Testzeile3"
close #11


' Set readonly Bit in Test1.txt
Attribut = &B00000001
Setattr Datei , Attribut

' Reset Archib-Bit in test1.txt
Attribut = &B00100000
clearattr Datei , Attribut

' Check for Filename with wildcard, which is not supported
' Set readonly Bit in Test1.txt
Datei = "Test*.txt"
Attribut = &B00000001
Setattr Datei , Attribut
Print gbDOSError

Datei = DIR("Test*.txt")
Attribut = &B00000001
while Datei > ""
   SetAttr Attribut
   Datei = DIR()
wend

Datei = DIR("Test*.txt")
Attribut = &B00100000
While Datei > ""
   battr1=Getattr()
   clearattr Attribut
   battr2=Getattr()
   print datei ;" "; battr1;" " ; battr2
   Datei = DIR()
wend

End