mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-19 05:29:32 +00:00
Kernel 0.92+
This commit is contained in:
parent
54e563f0c7
commit
902af27470
Binary file not shown.
|
@ -536,6 +536,26 @@ CMD.FUNC
|
||||||
.9 jmp CMD.Exec.CSYN
|
.9 jmp CMD.Exec.CSYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.RETURN
|
CMD.RETURN
|
||||||
|
.9 jmp CMD.Exec.CSYN
|
||||||
|
*--------------------------------------
|
||||||
|
CMD.BREAK jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
tax
|
||||||
|
and #$3F
|
||||||
|
cmp #C.CASE
|
||||||
|
bne .9
|
||||||
|
|
||||||
|
txa
|
||||||
|
bpl .8
|
||||||
|
|
||||||
|
jsr CORE.StkPull remove C.CASE
|
||||||
|
jsr CORE.StkGet
|
||||||
|
and #$7F
|
||||||
|
sta (pDATA),y
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
|
||||||
.9 jmp CMD.Exec.CSYN
|
.9 jmp CMD.Exec.CSYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* stack-1 hVALUE
|
* stack-1 hVALUE
|
||||||
|
@ -573,9 +593,7 @@ CMD.CASE jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
cmp #C.CASE
|
cmp #C.CASE
|
||||||
bne .9
|
bne .9
|
||||||
|
|
||||||
jsr CORE.StkPull remove C.SWITCH
|
jsr CORE.StkPull remove C.CASE
|
||||||
jsr CORE.StkPull get hVALUE
|
|
||||||
>SYSCALL freemem
|
|
||||||
bra CMD.CASE
|
bra CMD.CASE
|
||||||
|
|
||||||
.1 jsr EXP.GET
|
.1 jsr EXP.GET
|
||||||
|
@ -600,7 +618,7 @@ CMD.CASE jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.DEFAULT jsr CORE.StkGetCtx Get context in CORE.Test
|
CMD.DEFAULT jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
and #$3F
|
and #$3F
|
||||||
cmp #C.SWITCH
|
cmp #C.SWITCH
|
||||||
beq .1
|
beq .1
|
||||||
|
@ -610,31 +628,11 @@ CMD.DEFAULT jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
|
|
||||||
jsr CORE.StkPull remove C.CASE
|
jsr CORE.StkPull remove C.CASE
|
||||||
|
|
||||||
.1 lda #$80
|
.1 jsr CORE.StkGet
|
||||||
>ORA.G CORE.Test
|
and #$C0
|
||||||
ora #C.DEFAULT
|
ora #C.DEFAULT
|
||||||
jmp CORE.StkPush
|
jmp CORE.StkPush
|
||||||
|
|
||||||
.9 jmp CMD.Exec.CSYN
|
|
||||||
*--------------------------------------
|
|
||||||
CMD.BREAK jsr CORE.StkGetCtx Get context in CORE.Test
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
tax
|
|
||||||
and #$3F
|
|
||||||
cmp #C.CASE
|
|
||||||
bne .9
|
|
||||||
|
|
||||||
txa
|
|
||||||
bpl .8
|
|
||||||
|
|
||||||
jsr CORE.StkPull remove C.CASE
|
|
||||||
jsr CORE.StkGet
|
|
||||||
and #$7F
|
|
||||||
sta (pDATA),y
|
|
||||||
.8 clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.9 jmp CMD.Exec.CSYN
|
.9 jmp CMD.Exec.CSYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.END jsr CORE.StkGetCtx Get context in CORE.Test
|
CMD.END jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
|
|
|
@ -138,7 +138,7 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
|
||||||
bmi .45
|
bmi .45
|
||||||
|
|
||||||
and #$3F
|
and #$3F
|
||||||
cmp #C.FOR FOR....FI ?
|
cmp #C.SWITCH SWITCH....FI ?
|
||||||
bcs .7
|
bcs .7
|
||||||
|
|
||||||
.45 txa
|
.45 txa
|
||||||
|
|
12
BIN/SH.S.txt
12
BIN/SH.S.txt
|
@ -30,10 +30,10 @@ C.PUSHD .EQ 32
|
||||||
C.POPD .EQ 34
|
C.POPD .EQ 34
|
||||||
C.FUNC .EQ 36
|
C.FUNC .EQ 36
|
||||||
C.RETURN .EQ 38
|
C.RETURN .EQ 38
|
||||||
C.SWITCH .EQ 40
|
C.BREAK .EQ 40
|
||||||
C.CASE .EQ 42
|
C.SWITCH .EQ 42
|
||||||
C.DEFAULT .EQ 44
|
C.CASE .EQ 44
|
||||||
C.BREAK .EQ 46
|
C.DEFAULT .EQ 46
|
||||||
C.END .EQ 48
|
C.END .EQ 48
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
C.FOR .EQ 50
|
C.FOR .EQ 50
|
||||||
|
@ -141,10 +141,10 @@ J.CMD .DA CMD.NOHUP
|
||||||
.DA CMD.POPD
|
.DA CMD.POPD
|
||||||
.DA CMD.FUNC
|
.DA CMD.FUNC
|
||||||
.DA CMD.RETURN
|
.DA CMD.RETURN
|
||||||
|
.DA CMD.BREAK
|
||||||
.DA CMD.SWITCH
|
.DA CMD.SWITCH
|
||||||
.DA CMD.CASE
|
.DA CMD.CASE
|
||||||
.DA CMD.DEFAULT
|
.DA CMD.DEFAULT
|
||||||
.DA CMD.BREAK
|
|
||||||
.DA CMD.END
|
.DA CMD.END
|
||||||
.DA CMD.FOR
|
.DA CMD.FOR
|
||||||
.DA CMD.WHILE
|
.DA CMD.WHILE
|
||||||
|
@ -602,10 +602,10 @@ CMD .AZ "NOHUP"
|
||||||
.AZ "POPD"
|
.AZ "POPD"
|
||||||
.AZ "FUNC"
|
.AZ "FUNC"
|
||||||
.AZ "RETURN"
|
.AZ "RETURN"
|
||||||
|
.AZ "BREAK"
|
||||||
.AZ "SWITCH"
|
.AZ "SWITCH"
|
||||||
.AZ "CASE"
|
.AZ "CASE"
|
||||||
.AZ "DEFAULT"
|
.AZ "DEFAULT"
|
||||||
.AZ "BREAK"
|
|
||||||
.AZ "END"
|
.AZ "END"
|
||||||
.AZ "FOR"
|
.AZ "FOR"
|
||||||
.AZ "WHILE"
|
.AZ "WHILE"
|
||||||
|
|
|
@ -219,7 +219,7 @@ INPUT.LINEIN ldy #INPUT.Status
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
MSG.NOPASSWD .AS "\r\nA2osX-LOGIN:No ETC/PASSWD file present, Logged as ROOT.\r\n"
|
MSG.NOPASSWD .AS "\r\n\r\nA2osX-Login:No ETC/PASSWD file present, Logged as ROOT.\r\n"
|
||||||
.AZ "Consider adding ROOT password with USERADD command.\r\n\r\n"
|
.AZ "Consider adding ROOT password with USERADD command.\r\n\r\n"
|
||||||
MSG.LOGIN .AZ "\r\nlogin:"
|
MSG.LOGIN .AZ "\r\nlogin:"
|
||||||
MSG.PASSWORD .AZ "\r\npassword:"
|
MSG.PASSWORD .AZ "\r\npassword:"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user