Skip to content

Commit

Permalink
also add diskio.status_code() in other comp targets
Browse files Browse the repository at this point in the history
  • Loading branch information
irmen committed Mar 27, 2024
1 parent 551e568 commit 119040f
Show file tree
Hide file tree
Showing 2 changed files with 38 additions and 0 deletions.
32 changes: 32 additions & 0 deletions compiler/res/prog8lib/diskio.p8
Original file line number Diff line number Diff line change
Expand Up @@ -460,6 +460,38 @@ io_error:
goto done
}

; similar to above, but instead of fetching the entire string, it only fetches the status code and returns it as ubyte
; in case of IO error, returns 255 (CBM-DOS itself is physically unable to return such a value)
sub status_code() -> ubyte {
if cbm.READST()==128 {
return 255
}

cbm.SETNAM(0, list_filename)
cbm.SETLFS(15, drivenumber, 15)
void cbm.OPEN() ; open 15,8,15
if_cs
goto io_error
void cbm.CHKIN(15) ; use #15 as input channel

list_filename[0] = cbm.CHRIN()
list_filename[1] = cbm.CHRIN()
list_filename[2] = 0

while cbm.READST()==0 {
cbm.CHRIN()
}

cbm.CLRCHN() ; restore default i/o devices
cbm.CLOSE(15)
return conv.str2ubyte(list_filename)

io_error:
cbm.CLRCHN()
cbm.CLOSE(15)
return 255
}

sub save(uword filenameptr, uword start_address, uword savesize) -> bool {
cbm.SETNAM(string.length(filenameptr), filenameptr)
cbm.SETLFS(1, drivenumber, 0)
Expand Down
6 changes: 6 additions & 0 deletions compiler/res/prog8lib/virtual/diskio.p8
Original file line number Diff line number Diff line change
Expand Up @@ -145,6 +145,12 @@ diskio {
return "unknown"
}

sub status_code() -> ubyte {
; -- return status code instead of whole CBM-DOS status string. (in this case always 255, which means 'unable to return sensible value')
return 255
}


sub save(uword filenameptr, uword start_address, uword savesize) -> bool {
%ir {{
load.b r65532,0
Expand Down

0 comments on commit 119040f

Please sign in to comment.