Kernel version 0.8 : Fixed bug in LoadDRV

This commit is contained in:
Rémy GIBERT 2016-10-04 08:28:43 +02:00
parent 00f9fe267e
commit 6fe1beb1ae
8 changed files with 12 additions and 12 deletions

Binary file not shown.

Binary file not shown.

View File

@ -20,12 +20,12 @@ INSDRV UTHERNET.DRV 000E3A123456
#INSDRV UTHERNET2.DRV 0008DC123456
#INSDRV UTHER2.AI.DRV 0008DC123456
#INSDRV LANCEGS.DRV
STARTPROC TCPIP
STARTPROC DHCPCLNT
#STARTPROC TCPIP
#STARTPROC DHCPCLNT
#STARTPROC HTTPD
#TELNETD
#MOUNT TFTP 192.168.1.5:/A2OSX /MNT/A2OSX
#MOUNT CIFS 192.168.1.5:/MSSHARE /MNT/MSSHARE
#NFSMOUNT 192.168.1.5:/A2OSX /MNT/A2OSX
#CIFSMOUNT 192.168.1.5:/MSSHARE /MNT/MSSHARE
# End Network Section
# GUI Section
#INSDRV DHGR.DRV

View File

@ -36,7 +36,9 @@ CS.START cld
L.MSG.DETECT .DA MSG.DETECT
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT
Dev.Detect >DEBUG
>LDYA L.MSG.DETECT
>SYSCALL SYS.PStrOutYA
clc

View File

@ -60,9 +60,7 @@ J.INTCMDS .DA Cmd.Exec.CD
.DA Cmd.Exec.TYPE
.DA 0
*--------------------------------------
CS.INIT >DEBUG
>SYSCALL SYS.GetArgC
CS.INIT >SYSCALL SYS.GetArgC
cmp #1
beq CS.INIT.INTERACTIVE no arg, continue starting interactive

View File

@ -14,7 +14,7 @@ AUTO 6
K.LoadDrvYA >STYA K.LoadDrv.CmdArray
>LDYAI ENV.DRV push ENVNAME=DRV
jsr K.GetEnvYA get value for ENV=DRV
>SYSCALL SYS.GetEnvYA get value for ENV=DRV
bcs .99
>PUSHYA Push $DRV value

View File

@ -13,7 +13,8 @@ AUTO 6
* Y,A = PSTR to FilePath (PSTRING)
* X = hMem to FilePath
*--------------------------------------
K.FileSearch >PULLW ZPQuickPtr4 ZPQuickPtr1 trashed by ExpandPStrYA
K.FileSearch >DEBUG
>PULLW ZPQuickPtr4 ZPQuickPtr1 trashed by ExpandPStrYA
>PULLYA Get Search list
>SYSCALL SYS.ExpandPStrYA Expand it (SYSCALL to BNK1)
bcs .99
@ -65,7 +66,6 @@ K.FileSearch >PULLW ZPQuickPtr4 ZPQuickPtr1 trashed by ExpandPStrYA
jsr K.FreeMemA
>LDYAI KrnBuf256
>SYSCALL SYS.NewPStrYA
clc
rts
.98 lda K.FileSearch.hSrch Discard Expanded hSrch list

View File

@ -13,7 +13,7 @@ AUTO 6
*--------------------------------------
K.LoadLibYA >STYA K.LoadLib.Name save libname for K.FileSearch
>LDYAI ENV.LIB push ENVNAME=LIB
jsr K.GetEnvYA get value for ENV=LIB
>SYSCALL SYS.GetEnvYA get value for ENV=LIB
bcs .99
>PUSHYA Push $LIB value