From af47834eaf38f79739ae27279af1060517f92a0c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Tue, 20 Oct 2015 10:31:11 +0200 Subject: [PATCH] Added SYS.LoadFileYA to API --- INC/A2osX.API.I.txt | 7 ++++--- SYS/KERNEL.S.FS.txt | 7 +++++-- SYS/KERNEL.S.txt | 4 ++-- 3 files changed, 11 insertions(+), 7 deletions(-) diff --git a/INC/A2osX.API.I.txt b/INC/A2osX.API.I.txt index 514501f5..345ae8ab 100644 --- a/INC/A2osX.API.I.txt +++ b/INC/A2osX.API.I.txt @@ -93,10 +93,11 @@ SYS.GetPSByIDA .EQ $98 SYS.CheckPrefixA .EQ $A0 SYS.FileSearch .EQ $A2 SYS.LoadFileA .EQ $A4 -SYS.ListDirInitA .EQ $A6 +SYS.LoadFileYA .EQ $A6 -SYS.ListDirNextA .EQ $A8 -SYS.ListDirCloseA .EQ $AA +SYS.ListDirInitA .EQ $A8 +SYS.ListDirNextA .EQ $AA +SYS.ListDirCloseA .EQ $AC *-------------------------------------- SYS.AddNetCfg .EQ $B0 SYS.SetNetCfg .EQ $B2 diff --git a/SYS/KERNEL.S.FS.txt b/SYS/KERNEL.S.FS.txt index e3470674..1c0787ef 100644 --- a/SYS/KERNEL.S.FS.txt +++ b/SYS/KERNEL.S.FS.txt @@ -99,9 +99,12 @@ S.FileSearch >PULLA Get Search path * X = hMem of Loaded File *-------------------------------------- S.LoadFileA jsr S.MLIOpenA - bcs .99 + bcc S.LoadFile +S.LoadFile.RTS rts +S.LoadFileYA jsr S.MLIOpenYA + bcs S.LoadFile.RTS - sta R.AL save ref_num +S.LoadFile sta R.AL save ref_num stx R.AH save Prodos Buffer for freemem jsr S.MLIGetEOFA bcs .98 diff --git a/SYS/KERNEL.S.txt b/SYS/KERNEL.S.txt index c94bd752..1e296557 100644 --- a/SYS/KERNEL.S.txt +++ b/SYS/KERNEL.S.txt @@ -122,12 +122,12 @@ KERNEL jmp S.KernelInit KERNEL.COLDBOOT .DA S.CheckPrefixA $A0 .DA S.FileSearch .DA S.LoadFileA - .DA S.ListDirInitA + .DA S.LoadFileYA + .DA S.ListDirInitA .DA S.ListDirNextA .DA S.ListDirCloseA .DA 0 - .DA 0 *-------------------------------------- .DA S.AddNetCfg $B0 .DA S.SetNetCfg