frederik
/
oscar64
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix kernal io return values

This commit is contained in:
drmortalwombat 2025-05-22 08:11:49 +02:00
parent 1fa4c39a20
commit c6b794db3a
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
include/c64/kernalio.c
View File

@ -69,7 +69,7 @@ BANKINLINE bool krnio_open(char fnum, char device, char channel)
{ {
krnio_pstatus[fnum] = KRNIO_OK; krnio_pstatus[fnum] = KRNIO_OK;
return __asm return char(__asm
{ {
lda #0 lda #0
sta accu sta accu
@ -94,8 +94,7 @@ BANKINLINE bool krnio_open(char fnum, char device, char channel)
BANKOUT BANKOUT
E2: E2:
}; });
} }
#pragma native(krnio_open) #pragma native(krnio_open)
@ -131,7 +130,7 @@ BANKINLINE krnioerr krnio_status(void)
BANKINLINE bool krnio_load(char fnum, char device, char channel) BANKINLINE bool krnio_load(char fnum, char device, char channel)
{ {
return __asm return char(__asm
{ {
BANKIN BANKIN
lda fnum lda fnum
@ -149,14 +148,14 @@ BANKINLINE bool krnio_load(char fnum, char device, char channel)
rol rol
eor #1 eor #1
sta accu sta accu
}; });
} }
#pragma native(krnio_load) #pragma native(krnio_load)
BANKINLINE bool krnio_save(char device, const char* start, const char* end) BANKINLINE bool krnio_save(char device, const char* start, const char* end)
{ {
return __asm return char(__asm
{ {
BANKIN BANKIN
lda #0 lda #0
@ -175,14 +174,14 @@ BANKINLINE bool krnio_save(char device, const char* start, const char* end)
rol rol
eor #1 eor #1
sta accu sta accu
}; });
} }
#pragma native(krnio_save) #pragma native(krnio_save)
BANKINLINE bool krnio_chkout(char fnum) BANKINLINE bool krnio_chkout(char fnum)
{ {
return __asm return char(__asm
{ {
BANKIN BANKIN
ldx fnum ldx fnum
@ -193,14 +192,14 @@ BANKINLINE bool krnio_chkout(char fnum)
rol rol
eor #1 eor #1
sta accu sta accu
}; });
} }
#pragma native(krnio_chkout) #pragma native(krnio_chkout)
BANKINLINE bool krnio_chkin(char fnum) BANKINLINE bool krnio_chkin(char fnum)
{ {
return __asm return char(__asm
{ {
BANKIN BANKIN
ldx fnum ldx fnum
@ -211,7 +210,7 @@ BANKINLINE bool krnio_chkin(char fnum)
rol rol
eor #1 eor #1
sta accu sta accu
}; });
} }
#pragma native(krnio_chkin) #pragma native(krnio_chkin)
@ -230,14 +229,14 @@ BANKINLINE void krnio_clrchn(void)
BANKINLINE bool krnio_chrout(char ch) BANKINLINE bool krnio_chrout(char ch)
{ {
return __asm return char(__asm
{ {
BANKIN BANKIN
lda ch lda ch
jsr $ffd2 // chrout jsr $ffd2 // chrout
sta accu sta accu
BANKOUT BANKOUT
}; });
} }
#pragma native(krnio_chrout) #pragma native(krnio_chrout)