From 0ef28e75573620a2e6ec62b1521117b2eaa281ab Mon Sep 17 00:00:00 2001
From: Dave Schmenk <dschmenk@gmail.com>
Date: Sat, 11 Nov 2017 07:19:44 -0800
Subject: [PATCH] Use fileio module for memmgr

---
 src/libsrc/memmgr.pla | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 src/libsrc/memmgr.pla

diff --git a/src/libsrc/memmgr.pla b/src/libsrc/memmgr.pla
old mode 100644
new mode 100755
index 3464bc5..a31bfb2
--- a/src/libsrc/memmgr.pla
+++ b/src/libsrc/memmgr.pla
@@ -384,7 +384,7 @@ def swapin(hmem)
     	// Swap this block back in
     	//
     	swapfile(@filename, hmem)
-    	get_info(@filename, @info)
+    	getfileinfo(@filename, @info)
     	size   = info:2 // Size encoded in aux type
         memblk = findblk(size)
     	//puts(@swapinstr);puts(@filename);putc('@');puth(memblk);putc(':');puth(size);putln
@@ -663,7 +663,7 @@ initdata=>volparms.0 = 2
 initdata=>volparms.1 = 0
 initdata=>volparms:2 = sysbuf
 syscall($C5, @initdata=>volparms)
-initdata=>volptr   = iobuffer
+initdata=>volptr   = sysbuf
 initdata=>ramfree  = 0
 initdata=>bestfree = 0
 for sweepen = 0 to 15
@@ -671,7 +671,7 @@ for sweepen = 0 to 15
     if ^initdata=>volptr
         memcpy(@swapvol + 2, initdata=>volptr + 1, ^initdata=>volptr)
         swapvol = ^initdata=>volptr + 1
-        get_info(@swapvol, @initdata->volinfo)
+        getfileinfo(@swapvol, @initdata->volinfo)
     	initdata=>freeblks = initdata=>volinfo:2 - initdata=>volinfo:5
     	if initdata=>volptr:1 == $522F and initdata=>volptr:3 == $4D41 // '/RAM'
     	    if isugt(initdata=>freeblks, initdata=>ramfree)