Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-05 13:45:15 +00:00
parent cac9b2f668
commit 951e3c8a1b
7 changed files with 24 additions and 17 deletions

Binary file not shown.

Binary file not shown.

View File

@ -146,8 +146,8 @@ CMD.CD.1 >SYSCALL realpath
dey dey
lda #'/' lda #'/'
sta (ZPPtr2),y sta (ZPPtr2),y
pla
phx phx
lda ZPPtr3
>SYSCALL freemem >SYSCALL freemem
pla pla
*-------------------------------------- *--------------------------------------

View File

@ -58,7 +58,7 @@ CORE.GetCmd >LDYA ZPInputBufPtr
bne .1 bne .1
lda #E.SYN Line Too long !!! lda #E.SYN Line Too long !!!
sec .9 sec
rts rts
.6 sec skip CR or ; .6 sec skip CR or ;
@ -77,9 +77,6 @@ CORE.GetCmd >LDYA ZPInputBufPtr
clc clc
rts rts
.9 sec A=0
rts
*-------------------------------------- *--------------------------------------
* Input : ZPArgVBuf (String) * Input : ZPArgVBuf (String)
* Tokenize ZPArgVBuf * Tokenize ZPArgVBuf

View File

@ -173,7 +173,7 @@ LIB.LOAD ldx RefCount
.8 inc RefCount .8 inc RefCount
clc clc
.9 rts rts
*-------------------------------------- *--------------------------------------
LIB.UNLOAD dec RefCount LIB.UNLOAD dec RefCount

View File

@ -153,7 +153,7 @@ CS.INIT.LIBS lda LibCnt
*-------------------------------------- *--------------------------------------
CS.INIT.CONF >LDYAI 64 CS.INIT.CONF >LDYAI 64
>SYSCALL GetMem >SYSCALL GetMem
bcs .9 bcs .99
>STYA pBuf >STYA pBuf
stx hLineBuf stx hLineBuf
@ -164,7 +164,7 @@ CS.INIT.CONF >LDYAI 64
>LDYA L.ETCNETWORK >LDYA L.ETCNETWORK
>SYSCALL fopen >SYSCALL fopen
bcs .9 bcs .98
sta hNetworkFile sta hNetworkFile
@ -172,18 +172,27 @@ CS.INIT.CONF >LDYAI 64
>PUSHW pBuf >PUSHW pBuf
lda hNetworkFile lda hNetworkFile
>SYSCALL fgets >SYSCALL fgets
bcs .8 bcs .80
>PUSHBI 0 PS Flags >PUSHBI 0 PS Flags
>LDYA pBuf >LDYA pBuf
>SYSCALL execL >SYSCALL execL
bra .1 bra .1
.8 lda hNetworkFile .98 pha
jsr .81
pla
sec
.99 rts
.80 lda hNetworkFile
>SYSCALL fclose >SYSCALL fclose
.81 lda hLineBuf
>SYSCALL FreeMem
clc clc
.9 rts rts
*-------------------------------------- *--------------------------------------
CS.RUN >PUSHW L.IOCTL CS.RUN >PUSHW L.IOCTL
>PUSHBI IOCTL.READ >PUSHBI IOCTL.READ

View File

@ -52,17 +52,18 @@ K.UnloadLib pha
ldy #S.MEM.REFCNT ldy #S.MEM.REFCNT
lda (ZPMemMgrSPtr),y lda (ZPMemMgrSPtr),y
dec dec
sta (ZPMemMgrSPtr),y bne .8
beq .1
pla
* clc
rts
.1 ldx #LIBMGR.UNLOAD .1 ldx #LIBMGR.UNLOAD
.2 jsr $ffff Self Modified, Call LIB.UNLOAD function .2 jsr $ffff Self Modified, Call LIB.UNLOAD function
pla pla
jmp K.FreeMem jmp K.FreeMem
.8 sta (ZPMemMgrSPtr),y
pla
* clc
rts
*/-------------------------------------- */--------------------------------------
* # LoadDrv * # LoadDrv
* ## ASM * ## ASM