6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-11-01 07:07:48 +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
//
// ProDOS default system buffer
//
word iobuf = $0000
//
// ProDOS/SOS routines
//
def a1getpfx(path)
@ -127,13 +123,9 @@ def a1open(path)
end
def a2open(path)
byte params[6]
if !iobuf
iobuf = sysbuf
fin
params.0 = 3
params:1 = path
params:3 = iobuf
params:3 = sysbuf
params.5 = 0
perr = syscall($C8, @params)
return params.5

2
src/libsrc/sane.pla
View File

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