User guide

71
VTB USER GUIDE
bit 1 hidden
bit 2 system
bit 3 volume
bit 4 directory
bit 5 arch.
.name(13) Short name ex. “nomefile.ext”
.lname Pointer to long name (max 255 characters)
Example
' Function to print on the serial port of the file list in the current
' directory
function list_dir() as void
dim res as char
dim pname as *char
dim flbyte as long
res=disk.OpenDir(“”)
if res
ser_puts("No file")
ser_putchar(10)
ser_putchar(13)
return
endif
while 1
res = disk.ReadDir()
if res || disk_finfo.name(0)=0
return
endif
ser_printl("00",disk_finfo.date & 31)
ser_printl("/00",(disk_finfo.date >> 5) & 15)
ser_printl("/####",(disk_finfo.date >> 9) + 1980)
ser_printl(" 00",disk_finfo.time >> 11)
ser_printl(":00",(disk_finfo.time >> 5) & 63)
if disk_finfo.attrib & ?p1?.ATTR_DIR
ser_puts(" <DIR> ")
else
ser_printl(" ######### bytes ",disk_finfo.size)
endif
ser_puts(" - ")
ser_puts(disk_finfo.name())
ser_puts(" - ")
ser_puts(disk_finfo.lname)
ser_putchar(10)
ser_putchar(13)
loop
endfunction