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
lda #'/'
sta (ZPPtr2),y
pla
phx
lda ZPPtr3
>SYSCALL freemem
pla
*--------------------------------------

View File

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

View File

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

View File

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

View File

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