mirror of
https://github.com/irmen/prog8.git
synced 2024-11-04 19:05:57 +00:00
62 lines
1.7 KiB
Lua
62 lines
1.7 KiB
Lua
%import textio
|
|
%import diskio
|
|
%zeropage basicsafe
|
|
%import test_stack
|
|
%option no_sysinit
|
|
|
|
; Note: this program can be compiled for multiple target systems.
|
|
|
|
main {
|
|
sub start() {
|
|
diskio.set_drive(8)
|
|
txt.print("showing the full directory of drive ")
|
|
txt.print_ub(diskio.drivenumber)
|
|
txt.print(":\n")
|
|
void diskio.directory()
|
|
txt.nl()
|
|
|
|
if diskio.lf_start_list("cub*") {
|
|
txt.print("\nfiles starting with 'cub':\n")
|
|
while diskio.lf_next_entry() {
|
|
txt.print(diskio.list_filename)
|
|
txt.print(" ")
|
|
txt.print_uw(diskio.list_blocks)
|
|
txt.print(" blocks\n")
|
|
}
|
|
diskio.lf_end_list()
|
|
} else {
|
|
txt.print("error\n")
|
|
}
|
|
|
|
if diskio.lf_start_list("*gfx") {
|
|
txt.print("\nfiles ending with 'gfx':\n")
|
|
while diskio.lf_next_entry() {
|
|
txt.print(diskio.list_filename)
|
|
txt.print(" ")
|
|
txt.print_uw(diskio.list_blocks)
|
|
txt.print(" blocks\n")
|
|
}
|
|
diskio.lf_end_list()
|
|
} else {
|
|
txt.print("error\n")
|
|
}
|
|
|
|
if diskio.lf_start_list(0) {
|
|
txt.print("\nfirst 10 files:\n")
|
|
ubyte counter=0
|
|
while counter < 10 and diskio.lf_next_entry() {
|
|
txt.print(diskio.list_filename)
|
|
txt.print(" ")
|
|
txt.print_uw(diskio.list_blocks)
|
|
txt.print(" blocks\n")
|
|
counter++
|
|
}
|
|
diskio.lf_end_list()
|
|
} else {
|
|
txt.print("error\n")
|
|
}
|
|
|
|
; test_stack.test()
|
|
}
|
|
}
|