Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-29 01:49:22 +00:00
Code Issues Projects Releases Wiki Activity

remove 16 bit f_tell variant.

Browse Source
This commit is contained in:
Irmen de Jong 2024-05-22 21:47:02 +02:00
parent f3e3311598
commit 3ea0f0cbaa
2 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/res/prog8lib/cx16/diskio.p8
View File

@ -891,26 +891,17 @@ io_error:
reset_write_channel() ; back to the write io channel reset_write_channel() ; back to the write io channel
} }
asmsub f_tell32() -> uword @R0, uword @R1, uword @R2, uword @R3 { asmsub f_tell() -> uword @R0, uword @R1, uword @R2, uword @R3 {
; -- Returns the current read position in R0 and R1 (low + high words) ; -- Returns the current read position of the opened read file,
; and the file size in R1 and R2 (low + high words). ; in R0 and R1 (low + high words) and the file size in R2 and R3 (low + high words).
; Returns 0 as size if the command is not supported by the DOS implementation/version. ; Returns 0 as size if the command is not supported by the DOS implementation/version.
%asm {{ %asm {{
jmp internal_f_tell jmp internal_f_tell
}} }}
} }
asmsub f_tell() -> uword @R0, uword @R2 { sub internal_f_tell() {
; -- 16 bits version of f_tell32() because most file sizes will be <64Kb. ; gets the (32 bits) position + file size of the opened read file channel
; Returns the current read position in R0 and the file size in R2 (R1 is not used in this case). Both in bytes.
; Returns 0 as size if the command is not supported by the DOS implementation/version.
%asm {{
jmp internal_f_tell
}}
}
sub internal_f_tell(ubyte channel) {
; gets the (32 bits) position + file size of the given open channel
ubyte[2] command = ['t',0] ubyte[2] command = ['t',0]
command[1] = READ_IO_CHANNEL ; f_open uses this secondary address command[1] = READ_IO_CHANNEL ; f_open uses this secondary address
cbm.SETNAM(sizeof(command), &command) cbm.SETNAM(sizeof(command), &command)

17
examples/test.p8
View File

@ -9,7 +9,7 @@ main {
void diskio.f_read($6000, 9999) void diskio.f_read($6000, 9999)
} }
uword pl, ph, sl, sh uword pl, ph, sl, sh
pl, ph, sl, sh = diskio.f_tell32() pl, ph, sl, sh = diskio.f_tell()
txt.print("\npos: ") txt.print("\npos: ")
txt.print_uwhex(ph, true) txt.print_uwhex(ph, true)
@ -21,20 +21,5 @@ main {
diskio.f_close() diskio.f_close()
} }
if diskio.f_open("test.p8ir") {
repeat 5 {
void diskio.f_read($6000, 999)
}
pl, sl = diskio.f_tell()
txt.print("\npos16: ")
txt.print_uwhex(pl, true)
txt.print("\nsize16: ")
txt.print_uwhex(sl, true)
txt.nl()
diskio.f_close()
}
} }
} }