Kernel 0.92+

BIN/SH.S.CMD.txt

@@ -536,6 +536,26 @@ CMD.FUNC
 .9				jmp CMD.Exec.CSYN
 *--------------------------------------
 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
 *--------------------------------------
 * stack-1		hVALUE
@@ -573,9 +593,7 @@ CMD.CASE		jsr CORE.StkGetCtx		Get context in CORE.Test
 				cmp #C.CASE
 				bne .9
 				
-				jsr CORE.StkPull		remove C.SWITCH
-				jsr CORE.StkPull		get hVALUE
-				>SYSCALL freemem
+				jsr CORE.StkPull		remove C.CASE
 				bra CMD.CASE
 				
 .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
 				bcs .9
-				
+
 				and #$3F
 				cmp #C.SWITCH
 				beq .1
@@ -610,31 +628,11 @@ CMD.DEFAULT		jsr CORE.StkGetCtx		Get context in CORE.Test
 				
 				jsr CORE.StkPull		remove C.CASE
 
-.1				lda #$80
-				>ORA.G CORE.Test
+.1				jsr CORE.StkGet
+				and #$C0
 				ora #C.DEFAULT
 				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
 *--------------------------------------
 CMD.END			jsr CORE.StkGetCtx		Get context in CORE.Test

BIN/SH.S.CORE.txt

@@ -138,7 +138,7 @@ CORE.Run		>LDYA ZPInputBufPtr		Save Actual cmd for looping
 				bmi .45
 				
 				and #$3F
-				cmp #C.FOR				FOR....FI ?
+				cmp #C.SWITCH			SWITCH....FI ?
 				bcs .7
 
 .45				txa

BIN/SH.S.txt

@@ -30,10 +30,10 @@ C.PUSHD			.EQ 32
 C.POPD			.EQ 34
 C.FUNC			.EQ 36
 C.RETURN		.EQ 38
-C.SWITCH		.EQ 40
-C.CASE			.EQ 42
-C.DEFAULT		.EQ 44
-C.BREAK			.EQ 46
+C.BREAK			.EQ 40
+C.SWITCH		.EQ 42
+C.CASE			.EQ 44
+C.DEFAULT		.EQ 46
 C.END			.EQ 48
 *--------------------------------------
 C.FOR			.EQ 50
@@ -141,10 +141,10 @@ J.CMD			.DA CMD.NOHUP
 				.DA CMD.POPD
 				.DA CMD.FUNC
 				.DA CMD.RETURN
+				.DA CMD.BREAK
 				.DA CMD.SWITCH
 				.DA CMD.CASE
 				.DA CMD.DEFAULT
-				.DA CMD.BREAK
 				.DA CMD.END
 				.DA CMD.FOR
 				.DA CMD.WHILE
@@ -602,10 +602,10 @@ CMD				.AZ "NOHUP"
 				.AZ "POPD"
 				.AZ "FUNC"
 				.AZ "RETURN"
+				.AZ "BREAK"
 				.AZ "SWITCH"
 				.AZ "CASE"
 				.AZ "DEFAULT"
-				.AZ "BREAK"
 				.AZ "END"
 				.AZ "FOR"
 				.AZ "WHILE"

SBIN/LOGIN.S.txt

@@ -219,7 +219,7 @@ INPUT.LINEIN	ldy #INPUT.Status
 				rts
 *--------------------------------------
 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"
 MSG.LOGIN		.AZ "\r\nlogin:"
 MSG.PASSWORD	.AZ "\r\npassword:"