Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-21 14:34:35 +00:00
parent 0e18e6bd9f
commit e80a26105b
3 changed files with 29 additions and 19 deletions

Binary file not shown.

View File

@ -373,7 +373,7 @@ CMD.ECHO stz ZPPtr1 echo -N
bit ZPPtr1
bmi .8
\
>PUSHBI 0
>LDYA L.MSG.ECHOCRLF
>SYSCALL printf

View File

@ -219,26 +219,30 @@ CS.RUN jsr CL.Init
>PUSHBI S.PS.F.HOLD
>LDYA L.HOME.PROFILE
>SYSCALL execl
>SLEEP
*--------------------------------------
CS.RUN.LOOP
CS.RUN.LOOP >SLEEP
.1
* jsr CheckSleep
* beq .3
.1 jsr CheckSleep
beq .3
>SYSCALL feof
bcs .9
* >SYSCALL GetChar
* bcs .9 I/O err
tay
beq CS.RUN.LOOP
* cmp #3 Ctrl-C
* bne .1
>SYSCALL GetChar
bcs .9 I/O err
* >LDA.G bBatchMode batch mode ?
* beq .1
cmp #3 Ctrl-C
bne CS.RUN.LOOP
* >LDA.G bSET.C
* beq .8
* bra .1
>LDA.G bBatchMode batch mode ?
beq CS.RUN.LOOP
>LDA.G bSET.C
beq .8
bra CS.RUN.LOOP
.3 >LDA.G bPause
bpl .6
@ -329,7 +333,7 @@ CS.RUN.INTERACTIVE
CS.RUN.READ jsr CL.RESET
.1 >SYSCALL GetChar
bcs .9
bcs CS.RUN.READ.9
jsr CL.CHARIN
@ -358,17 +362,23 @@ CS.RUN.READ jsr CL.RESET
plp
.8 jmp CS.RUN.LOOP.END
.9 rts
CS.RUN.READ.9 rts
*--------------------------------------
CS.RUN.BATCH
* >SYSCALL feof
* bcs .2 unsupported
* tay
* beq .2
* >SYSCALL GetChar
* bcs .2
* bcs CS.RUN.READ.9
* cmp #3 test Ctrl-c
* bne .1
* sec
*.9 rts
* rts
*.1 cmp #19 test Ctrl-s
* bne .2