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

View File

@ -115,9 +115,14 @@ CS.RUN
CS.RUN.LOOP >SLEEP CS.RUN.LOOP >SLEEP
jsr CS.RUN.GETLINE 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 >LDA.G LineCount
bne .22 bne .22
@ -185,8 +190,13 @@ CS.RUN.PAUSE >PUSHBI 0
bne .10 bne .10
jsr CS.RUN.ERASE jsr CS.RUN.ERASE
.40 >SLEEP
jsr CS.RUN.GETLINE jsr CS.RUN.GETLINE
bcc .5 bcc .5
tay
beq .40
cmp #MLI.E.EOF cmp #MLI.E.EOF
bne .99 bne .99
@ -228,9 +238,8 @@ CS.RUN.GETLINE >PUSHWI 256
ldy #S.PS.hStdIn ldy #S.PS.hStdIn
lda (pPS),y lda (pPS),y
.1 >SYSCALL fgets
.1 >SYSCALL fgets
bcs .9 bcs .9
lda (ZPBufPtr) lda (ZPBufPtr)

View File

@ -201,7 +201,7 @@ CS.QUIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.END 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" MSG1 .AZ "%03d %3d\% %s %03d %03d"
MSG2 .AZ " %s" MSG2 .AZ " %s"
MSG3 .AZ "\r\n" MSG3 .AZ "\r\n"

View File

@ -88,6 +88,9 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
jsr CORE.GetNextCharNB jsr CORE.GetNextCharNB
bcs CORE.Run.CSYN bcs CORE.Run.CSYN
bra .3
.21 jsr IO.Reset
.3 cmp #'.' .3 cmp #'.'
bne .4 bne .4
@ -117,7 +120,7 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
.5 >LDYA L.CORE.IO .5 >LDYA L.CORE.IO
jsr CORE.LookupInputBuf jsr CORE.LookupInputBuf
bcs .6 bcs .6
jsr CORE.SkipCharsA jsr CORE.SkipCharsA
jsr CORE.IO.JMP jsr CORE.IO.JMP
@ -137,6 +140,8 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
jsr IO.Pipe.Out jsr IO.Pipe.Out
bcs CORE.Run.RTS bcs CORE.Run.RTS
jsr CORE.IO.AMP run in background
bra CORE.ExecCmd.1 Do not skip | bra CORE.ExecCmd.1 Do not skip |
@ -177,7 +182,7 @@ CORE.ExecCmd.1 lda #0
rts rts
CORE.ExecExtCmd >PUSHB.G CORE.PSFlags CORE.ExecExtCmd >PUSHB.G CORE.PSFlags
>LDYA ZPArgVBuf >LDYA ZPArgVBuf
>SYSCALL execv >SYSCALL execv
CORE.ExecExtCmd.Exit CORE.ExecExtCmd.Exit
@ -388,12 +393,15 @@ CORE.IO.2OUT.1 jsr CORE.IO.Open
CORE.IO.Open pha Open Mode CORE.IO.Open pha Open Mode
jsr CORE.GetCharNB jsr CORE.GetCharNB
bcs .9 no arg left.... bcs .9 no arg left....
jsr CORE.ArgV.Add Get Filename
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI S.FI.T.TXT ftype >PUSHBI S.FI.T.TXT ftype
pla pla
>PUSHA flags >PUSHA flags
>LDYA ZPInputBufPtr >LDYA ZPArgVBufPrev
>STYA ZPArgVBufPtr Discard filename
>SYSCALL fopen >SYSCALL fopen
rts rts

View File

@ -210,7 +210,6 @@ CS.RUN jsr CL.Init
>LDYA L.MSG.GREETINGS >LDYA L.MSG.GREETINGS
>SYSCALL printf >SYSCALL printf
bcs CS.INIT.RTS bcs CS.INIT.RTS
bra CS.RUN.LOOP
>PUSHEA.G StatBuf >PUSHEA.G StatBuf
>LDYA L.HOME.PROFILE >LDYA L.HOME.PROFILE
@ -306,6 +305,11 @@ CS.RUN.INTERACTIVE
>LDA.G CL.bReady Something to execute ? >LDA.G CL.bReady Something to execute ?
bpl .1 bpl .1
>PUSHBI 0
>LDYA L.MSG.ECHOCRLF
>SYSCALL printf
bcs .9
lda (ZPCLBuf) lda (ZPCLBuf)
beq .8 Empty line beq .8 Empty line
@ -360,9 +364,7 @@ CS.RUN.READ jsr CL.RESET
.8 jmp CS.RUN.LOOP.END .8 jmp CS.RUN.LOOP.END
*-------------------------------------- *--------------------------------------
CS.RUN.BATCH jsr IO.Reset CS.RUN.BATCH >SYSCALL GetChar
>SYSCALL GetChar
bcs .2 bcs .2
cmp #3 test Ctrl-c 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 MSG.ECHODEL .DA #C.BS,#C.SPACE,#C.BS,#0
ENV.SHELL .AZ "SHELL" ENV.SHELL .AZ "SHELL"
ENV.HOME .AZ "HOME" ENV.HOME .AZ "HOME"
SHELL .AZ "${ROOT}BIN/SHELL" SHELL .AZ "${ROOT}BIN/SH"
HOME .AZ "${ROOT}ROOT/" HOME .AZ "${ROOT}ROOT/"
.HS 00 .HS 00
*-------------------------------------- *--------------------------------------