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
|
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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user