Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-29 08:08:26 +02:00
parent f9256539e6
commit ae5290141d
4 changed files with 31 additions and 8 deletions

Binary file not shown.

View File

@ -25,4 +25,4 @@ hToDelete .BS 1
.FIN .FIN
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/BIN/X.CPMVRM.G SAVE usr/src/bin/x.cpmvrm.g

View File

@ -133,9 +133,6 @@ CS.RUN.ETCINIT >LDYAI 256
cmp #'#' cmp #'#'
beq .1 beq .1
>LDYA BufPtr
>SYSCALL puts
>PUSHW BufPtr >PUSHW BufPtr
>PUSHBI S.PS.F.NOHUP >PUSHBI S.PS.F.NOHUP
>SYSCALL ExecL >SYSCALL ExecL

View File

@ -57,6 +57,8 @@ L.MSG.DEV.OK .DA MSG.DEV.OK
L.MSG.DEV.KO .DA MSG.DEV.KO L.MSG.DEV.KO .DA MSG.DEV.KO
L.MSG.LIB .DA MSG.LIB L.MSG.LIB .DA MSG.LIB
L.MSG.EXEC .DA MSG.EXEC L.MSG.EXEC .DA MSG.EXEC
L.MSG.OK .DA MSG.OK
L.MSG.ERR .DA MSG.ERR
L.DEVNAME .DA DEVNAME L.DEVNAME .DA DEVNAME
L.IOCTL .DA IOCTL L.IOCTL .DA IOCTL
L.DCB.NIC .DA DCB.NIC L.DCB.NIC .DA DCB.NIC
@ -75,7 +77,7 @@ CS.INIT lda DevID
jsr CS.INIT.LIBS jsr CS.INIT.LIBS
bcs .9 bcs .9
jsr CS.INIT.CONF jsr CS.INIT.CONF
.9 rts .9 rts
@ -138,6 +140,7 @@ CS.INIT.LIBS lda LibCnt
ply ply
>SYSCALL LoadLib >SYSCALL LoadLib
jsr CS.RUN.CheckErr
bcs CS.INIT.LIBS.9 bcs CS.INIT.LIBS.9
ldy LibCnt ldy LibCnt
@ -218,8 +221,11 @@ CS.INIT.CONF >LDYAI 64
>SYSCALL PrintF >SYSCALL PrintF
>PUSHW pBuf >PUSHW pBuf
>PUSHBI 0 S.PS.F.HOLD+S.PS.F.NOHUP >PUSHBI S.PS.F.HOLD
>SYSCALL execL >SYSCALL execL
jsr CS.RUN.CheckErr
>SLEEP
bra .1 bra .1
.98 pha .98 pha
@ -313,6 +319,24 @@ CS.RUN.FILTER lda (pBuf)
rts rts
.FIN .FIN
*-------------------------------------- *--------------------------------------
CS.RUN.CheckErr pha
bcs .1
>LDYA L.MSG.OK
>SYSCALL PutS
pla
rts
.1 >PUSHW L.MSG.ERR
pla
pha
>PUSHA
>PUSHBI 1
>SYSCALL PrintF
pla
sec
rts
*--------------------------------------
CS.DOEVENT lda (pEvent) CS.DOEVENT lda (pEvent)
bpl .9 bpl .9
@ -360,8 +384,10 @@ CS.END
MSG.RUNNING .AZ "NETWORKD:Already loaded, exiting." MSG.RUNNING .AZ "NETWORKD:Already loaded, exiting."
MSG.DEV.KO .AZ "NETWORKD:No Device Found, exiting." MSG.DEV.KO .AZ "NETWORKD:No Device Found, exiting."
MSG.DEV.OK .AZ "NETWORKD:Bound To Device : %s\r\n" MSG.DEV.OK .AZ "NETWORKD:Bound To Device : %s\r\n"
MSG.LIB .AZ "NETWORKD:Loading %s ...\r\n" MSG.LIB .AZ "NETWORKD:Loading %s ... "
MSG.EXEC .AZ "NETWORKD:Running %s ...\r\n" MSG.EXEC .AZ "NETWORKD:Running %s ... "
MSG.OK .AZ "[OK]"
MSG.ERR .AZ "[%h]\r\n"
ETCNETWORK .AZ "${BOOT}etc/network" ETCNETWORK .AZ "${BOOT}etc/network"
.DO DBG=1 .DO DBG=1
MSG.DBG .AS "FRM ETH:%h%h%h%h%h%h.%h%h%h%h%h%h.%h%h\r\n" MSG.DBG .AS "FRM ETH:%h%h%h%h%h%h.%h%h%h%h%h%h.%h%h\r\n"