6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-10 06:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Update sane to use new fileio API

Browse Source
This commit is contained in:
David Schmenk 2017-12-05 20:30:55 -08:00
parent 3c47c5067c
commit 5fecde7eef
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/libsrc/fileio.pla
View File

@ -59,10 +59,6 @@ word = @a1newline, @a13readblock, @a13writeblock
// //
export byte perr export byte perr
// //
// ProDOS default system buffer
//
word iobuf = $0000
//
// ProDOS/SOS routines // ProDOS/SOS routines
// //
def a1getpfx(path) def a1getpfx(path)
@ -127,13 +123,9 @@ def a1open(path)
end end
def a2open(path) def a2open(path)
byte params[6] byte params[6]
if !iobuf
iobuf = sysbuf
fin
params.0 = 3 params.0 = 3
params:1 = path params:1 = path
params:3 = iobuf params:3 = sysbuf
params.5 = 0 params.5 = 0
perr = syscall($C8, @params) perr = syscall($C8, @params)
return params.5 return params.5

2
src/libsrc/sane.pla
View File

@ -703,7 +703,7 @@ def loadcode(codefile)
//puts(codefile); puts(":\n") //puts(codefile); puts(":\n")
pcode = 0 pcode = 0
ref = fileio:open(codefile, sysbuf) ref = fileio:open(codefile)
if ref if ref
pcode = heapmark pcode = heapmark
fileio:read(ref, pcode, 512) fileio:read(ref, pcode, 512)