mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
Kernel 0.92
This commit is contained in:
parent
d20e379d0a
commit
12aa6c6a13
Binary file not shown.
@ -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
|
||||
|
@ -347,6 +347,7 @@ CS.RUN.BATCH >SYSCALL GetChar
|
||||
|
||||
lda #$80
|
||||
>STA.G bPause
|
||||
clc
|
||||
jmp CS.RUN.LOOP.END
|
||||
|
||||
.2 .DO CSH=1
|
||||
|
@ -18,4 +18,4 @@ hDstBasePath .BS 1
|
||||
.FIN
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/BIN/BIN/X.FILEENUM.G
|
||||
SAVE USR/SRC/BIN/X.FILEENUM.G
|
||||
|
Loading…
Reference in New Issue
Block a user