mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-25 04:30:59 +00:00
Kernel 0.92+
This commit is contained in:
parent
cac9b2f668
commit
951e3c8a1b
Binary file not shown.
Binary file not shown.
@ -146,8 +146,8 @@ CMD.CD.1 >SYSCALL realpath
|
||||
dey
|
||||
lda #'/'
|
||||
sta (ZPPtr2),y
|
||||
pla
|
||||
phx
|
||||
lda ZPPtr3
|
||||
>SYSCALL freemem
|
||||
pla
|
||||
*--------------------------------------
|
||||
|
@ -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
|
||||
|
@ -173,7 +173,7 @@ LIB.LOAD ldx RefCount
|
||||
.8 inc RefCount
|
||||
|
||||
clc
|
||||
.9 rts
|
||||
rts
|
||||
*--------------------------------------
|
||||
LIB.UNLOAD dec RefCount
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user