Added SYS.LoadFileYA to API

This commit is contained in:
Rémy GIBERT 2015-10-20 10:31:11 +02:00
parent 6006ab7370
commit af47834eaf
3 changed files with 11 additions and 7 deletions

View File

@ -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

View File

@ -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

View File

@ -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