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
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
clc
rts
.9 rts
*--------------------------------------
Cmd.INT.MD ldx #1
jsr Cmd.GetArgX
@ -874,8 +890,8 @@ CMD.Eval.BINARY.NUM
lsr
tax
pla
eor CMD.Eval.TOKEN3.BITS,x
bne .80
and CMD.Eval.TOKEN3.BITS,x
beq .80
lda #$80 true
clc

View File

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

View File

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