Kernel 0.92

BIN/SHELL.S.CMD.txt

@@ -35,11 +35,15 @@ CMD.Quit		ldy #CMD.hArgVBuf
 Cmd.Exec		jsr CMD.StkGet			IF,WHILE,FOR ?
 				bcs .3					no particular context, exec...
 				tax
+				
+				>LDA.G CMD.IntCmd
+				bmi .2					external ...
+				
 				and #$3F
 				cmp #C.FOR
 				bcs .3					FOR...FI : always execute
 		
-				txa
+.2				txa
 				bpl .8 					context is FALSE, skip line
 				asl
 				bpl .8					parent context is FALSE, skip line
@@ -532,23 +536,23 @@ Cmd.INT.IF		jsr CMD.StkGet
 				bra .2
 				
 .1				lda #$40
+
 .2				>STA.G CMD.Test
-				>DEBUG
+
+				bit #$40
+				beq .3
 				jsr Cmd.Eval
 				bcs .9
 
-				tax
+.3				>LDA.G CMD.IntCmd
-
-				>LDA.G CMD.IntCmd
 				cmp #C.WHILE
 				bne .8
 				
 				jsr CMD.StkPushPtr
 				bcs .9
 				
-.8				txa
+.8				>LDA.G CMD.Test
-				
+				>ORA.G CMD.IntCmd
-				>ORA.G CMD.Test
 				jmp CMD.StkPush
 				
 				clc
@@ -557,7 +561,6 @@ Cmd.INT.IF		jsr CMD.StkGet
 Cmd.INT.ELSE	jsr CMD.StkGet
 				bcs .9
 
-				>DEBUG
 				bit #$40				parent is true ?
 				beq .8					yes, skip
 
@@ -610,10 +613,7 @@ Cmd.INT.LOOP	jsr CMD.StkPull
 				sec
 .99				rts				
 *--------------------------------------
-Cmd.Eval		lda #$40				Parent = true
+Cmd.Eval		ldx #1
-				>STA.G CMD.Test
-				
-				ldx #1
 				jsr Cmd.GetArgX
 				beq .9
 				
@@ -629,9 +629,10 @@ Cmd.Eval		lda #$40				Parent = true
 				dex						1 or $ff
 				
 				txa
+
 				and #$80				true or false
-				eor #$80
+				>ORA.G CMD.Test
-				>STA.G CMD.Test
+				sta (pData),y
 				
 				ldx #2
 				jsr Cmd.GetArgX

BIN/SHELL.S.txt

@@ -632,11 +632,11 @@ CMD.Eval.TOKEN3	.AZ "="
 CMD.Eval.TOKEN3.BITS
 				.DA #%000
 				.DA #%000
-				.DA #%001
-				.DA #%110
-				.DA #%100
-				.DA #%101
 				.DA #%010
+				.DA #%101
+				.DA #%100
+				.DA #%110
+				.DA #%001
 				.DA #%011
 CMD.Eval.TOKEN4	.AZ "+"
 				.AZ "-"

X.M32.S.txt

@@ -128,13 +128,13 @@ M32.Cmp			ldx #4
 				
 				bne .4
 				
-				lda #%001				001 ACC = ARG
+				lda #%010				001 ACC = ARG
 				rts
 				
-.4				lda #%010				010 ACC > ARG
+.4				lda #%100				010 ACC > ARG
 				rts
 				
-.5				lda #%100				100	ACC < ARG
+.5				lda #%001				100	ACC < ARG
 				rts				
 *--------------------------------------
 MAN