Kernel 0.92

This commit is contained in:
Rémy GIBERT 2018-11-28 22:37:18 +01:00
parent d20e379d0a
commit 12aa6c6a13
4 changed files with 22 additions and 5 deletions

Binary file not shown.

View File

@ -542,10 +542,26 @@ Cmd.INT.PAUSE lda #$FF
clc clc
rts rts
*-------------------------------------- *--------------------------------------
Cmd.INT.EXIT lda #$FF Cmd.INT.EXIT ldx #1
jsr Cmd.GetArgX
bcs .8 no arg, exit 0
>SYSCALL AToL
bcs .9
>PULLL.G M32.ACC
lda #$FF
>STA.G bExit
>LDA.G M32.ACC
sec
rts
.8 lda #$FF
>STA.G bExit >STA.G bExit
clc clc
rts .9 rts
*-------------------------------------- *--------------------------------------
Cmd.INT.MD ldx #1 Cmd.INT.MD ldx #1
jsr Cmd.GetArgX jsr Cmd.GetArgX
@ -874,8 +890,8 @@ CMD.Eval.BINARY.NUM
lsr lsr
tax tax
pla pla
eor CMD.Eval.TOKEN3.BITS,x and CMD.Eval.TOKEN3.BITS,x
bne .80 beq .80
lda #$80 true lda #$80 true
clc clc

View File

@ -347,6 +347,7 @@ CS.RUN.BATCH >SYSCALL GetChar
lda #$80 lda #$80
>STA.G bPause >STA.G bPause
clc
jmp CS.RUN.LOOP.END jmp CS.RUN.LOOP.END
.2 .DO CSH=1 .2 .DO CSH=1

View File

@ -18,4 +18,4 @@ hDstBasePath .BS 1
.FIN .FIN
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/BIN/BIN/X.FILEENUM.G SAVE USR/SRC/BIN/X.FILEENUM.G