mirror of
https://github.com/irmen/prog8.git
synced 2024-07-09 02:29:02 +00:00
44 lines
1.3 KiB
Plaintext
44 lines
1.3 KiB
Plaintext
|
%import textio
|
||
|
|
%import diskio
|
||
|
|
%zeropage basicsafe
|
||
|
|
%import test_stack
|
||
|
|
%option no_sysinit
|
||
|
|
|
||
|
|
main {
|
||
|
|
sub start() {
|
||
|
|
const ubyte max_files = 8
|
||
|
|
uword[max_files] blocks
|
||
|
|
uword[max_files] names
|
||
|
|
str filenamesbuffer = "?????????????????" * max_files
|
||
|
|
|
||
|
|
ubyte num_files=0
|
||
|
|
|
||
|
|
txt.print("\nfiles starting with 'cub':\n")
|
||
|
|
num_files = diskio.listfiles(8, "cub", false, names, blocks, filenamesbuffer, max_files)
|
||
|
|
print_listing()
|
||
|
|
txt.print("\nfiles ending with 'gfx':\n")
|
||
|
|
num_files = diskio.listfiles(8, "gfx", true, names, blocks, filenamesbuffer, max_files)
|
||
|
|
print_listing()
|
||
|
|
txt.print("\nfiles, no filtering (limited number):\n")
|
||
|
|
num_files = diskio.listfiles(8, 0, false, names, blocks, filenamesbuffer, max_files)
|
||
|
|
print_listing()
|
||
|
|
;test_stack.test()
|
||
|
|
|
||
|
|
sub print_listing() {
|
||
|
|
if num_files==0
|
||
|
|
txt.print("no files found.\n")
|
||
|
|
else {
|
||
|
|
ubyte i
|
||
|
|
for i in 0 to num_files-1 {
|
||
|
|
txt.print_ub(i+1)
|
||
|
|
txt.print(": ")
|
||
|
|
txt.print(names[i])
|
||
|
|
txt.print(" = ")
|
||
|
|
txt.print_uw(blocks[i])
|
||
|
|
txt.print(" blocks\n")
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|