Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-10-22 17:46:09 +02:00
parent 384aa458b0
commit 046fe81b53
3 changed files with 12 additions and 17 deletions

Binary file not shown.

Binary file not shown.

View File

@ -54,10 +54,7 @@ Cmd.Parse >STZ.G CMD.bCmd
lda (ZPCMDBuf)
beq .8
.1 >LDYA ZPCMDBuf
>SYSCALL puts
>LDA.G CMD.bCmd
.1 >LDA.G CMD.bCmd
bne .6 we already have Cmd, go check args
ldy #2
@ -257,12 +254,12 @@ Cmd.INT.CD ldx #1
beq .8 we have '/'
>PUSHEA.G CMD.Stat
>LDYA ZPPTR2
>LDYA ZPCMDBuf
>SYSCALL STAT
bcs .9
>LDA.G CMD.Stat+S.STAT.P.TYPE
cmp #$0F Directory ?
cmp #S.FI.T.DIR
bne Cmd.Exec.ERRSYN
.8 >LDYA ZPCMDBuf
@ -286,9 +283,7 @@ Cmd.Exec.ERRSYN lda #E.SYN
sec
rts
*--------------------------------------
Cmd.INT.SET >DEBUG
ldx #1
Cmd.INT.SET ldx #1
jsr Cmd.GetArgX
bcc Cmd.INT.SETVAR
@ -341,7 +336,7 @@ Cmd.INT.SET >DEBUG
.9 rts
*--------------------------------------
Cmd.INT.SETVAR >STYA ZPPTR1
>SYSCALL puts
lda (ZPPTR1)
cmp #'=' string is '=value' ?
beq .99 syntax error
@ -422,7 +417,6 @@ Cmd.INT.ECHO ldx #1
ldy #S.PS.hStdOut
lda (pPs),y
>SYSCALL fputs
>DEBUG
bcs .9
ldx #2
@ -448,10 +442,10 @@ Cmd.INT.ECHO ldx #1
.71 >LDA.G bECHO.N
bmi .8
>PUSHBI 0
>LDYA L.MSG.ECHOCRLF
>SYSCALL printf
rts
* >PUSHBI 0
* >LDYA L.MSG.ECHOCRLF
* >SYSCALL printf
* rts
.8 clc
.9 rts
@ -632,6 +626,7 @@ CMD.NextCmdBufToken
CMD.AddTokenToArgV
>LDYA ZPCmdBuf
CMD.AddYAToArgV >STYA ZPPtr1
>LDYA ZPArgVBuf
>STYA ZPPtr2