Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-18 12:52:10 +00:00
parent 2069187dd2
commit 578f8fc22f
7 changed files with 35 additions and 14 deletions

Binary file not shown.

View File

@ -65,6 +65,7 @@ CS.RUN >LDYA L.MemStat
>PUSHBI 8
>LDYA L.MSG.Stat
>SYSCALL printf
>SLEEP
*--------------------------------------
>LDYA L.MSG.Aux
>SYSCALL puts
@ -83,6 +84,7 @@ CS.RUN >LDYA L.MemStat
>PUSHBI 8
>LDYA L.MSG.Stat
>SYSCALL printf
>SLEEP
*--------------------------------------
>LDYA L.MSG.Kernel
>SYSCALL puts

View File

@ -115,9 +115,14 @@ CS.RUN
CS.RUN.LOOP >SLEEP
jsr CS.RUN.GETLINE
bcs .13
bcc .1
>INCW.G LineNum
tay
beq CS.RUN.LOOP
bra .13
.1 >INCW.G LineNum
>LDA.G LineCount
bne .22
@ -185,8 +190,13 @@ CS.RUN.PAUSE >PUSHBI 0
bne .10
jsr CS.RUN.ERASE
.40 >SLEEP
jsr CS.RUN.GETLINE
bcc .5
tay
beq .40
cmp #MLI.E.EOF
bne .99
@ -230,7 +240,6 @@ CS.RUN.GETLINE >PUSHWI 256
lda (pPS),y
.1 >SYSCALL fgets
bcs .9
lda (ZPBufPtr)

View File

@ -201,7 +201,7 @@ CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG0 .AZ "\e[7lID CPU% Flags UID PID Command Line"
MSG0 .AZ "\e[7lID CPU\% Flags UID PID Command Line\r\n"
MSG1 .AZ "%03d %3d\% %s %03d %03d"
MSG2 .AZ " %s"
MSG3 .AZ "\r\n"

View File

@ -88,6 +88,9 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
jsr CORE.GetNextCharNB
bcs CORE.Run.CSYN
bra .3
.21 jsr IO.Reset
.3 cmp #'.'
bne .4
@ -138,6 +141,8 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
jsr IO.Pipe.Out
bcs CORE.Run.RTS
jsr CORE.IO.AMP run in background
bra CORE.ExecCmd.1 Do not skip |
CORE.Run.RTS rts
@ -389,11 +394,14 @@ CORE.IO.Open pha Open Mode
jsr CORE.GetCharNB
bcs .9 no arg left....
jsr CORE.ArgV.Add Get Filename
>PUSHWI 0 Aux type
>PUSHBI S.FI.T.TXT ftype
pla
>PUSHA flags
>LDYA ZPInputBufPtr
>LDYA ZPArgVBufPrev
>STYA ZPArgVBufPtr Discard filename
>SYSCALL fopen
rts

View File

@ -210,7 +210,6 @@ CS.RUN jsr CL.Init
>LDYA L.MSG.GREETINGS
>SYSCALL printf
bcs CS.INIT.RTS
bra CS.RUN.LOOP
>PUSHEA.G StatBuf
>LDYA L.HOME.PROFILE
@ -306,6 +305,11 @@ CS.RUN.INTERACTIVE
>LDA.G CL.bReady Something to execute ?
bpl .1
>PUSHBI 0
>LDYA L.MSG.ECHOCRLF
>SYSCALL printf
bcs .9
lda (ZPCLBuf)
beq .8 Empty line
@ -360,9 +364,7 @@ CS.RUN.READ jsr CL.RESET
.8 jmp CS.RUN.LOOP.END
*--------------------------------------
CS.RUN.BATCH jsr IO.Reset
>SYSCALL GetChar
CS.RUN.BATCH >SYSCALL GetChar
bcs .2
cmp #3 test Ctrl-c

View File

@ -224,7 +224,7 @@ MSG.ECHOCRLF .AZ "\r\n"
MSG.ECHODEL .DA #C.BS,#C.SPACE,#C.BS,#0
ENV.SHELL .AZ "SHELL"
ENV.HOME .AZ "HOME"
SHELL .AZ "${ROOT}BIN/SHELL"
SHELL .AZ "${ROOT}BIN/SH"
HOME .AZ "${ROOT}ROOT/"
.HS 00
*--------------------------------------