Merge branch 'master' of https://github.com/dschmenk/PLASMA

2025-08-07 18:25:03 +00:00 · 2014-06-16 19:27:13 -07:00
parent 117ed34748 b16225ece5
commit 95adcb8fef
4 changed files with 13 additions and 18 deletions
--- a/src/samplesrc/hgr1test.pla
+++ b/src/samplesrc/hgr1test.pla
@@ -104,11 +104,9 @@ PIX	=	$83
 	LDA	ESTKH+1,X
 	ADC	WFIXH
 	STA	WFIXH
-	LDA	#$00
-	ADC	WINT
-	STA	WINT
-	BNE	-
-	BEQ	-
+	BCC	-
+	INC	WINT
+	BCS	-
 ++	INX
 	RTS
 end
--- a/src/vmsrc/a1cmd.pla
+++ b/src/vmsrc/a1cmd.pla
@@ -350,12 +350,11 @@ asm dcitos
 	STA	SRCH
 	LDY	#$00
 -	LDA	(SRC),Y
-	INY
-	PHA
 	AND	#$7F
+	CMP	(SRC),Y
+	INY
 	STA	(DST),Y
-	PLA
-	BMI	-
+	BCS	-
 	TYA
 	LDY	#$00
 	STA	(DST),Y
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -504,12 +504,11 @@ asm dcitos
 	STA	SRCH
 	LDY	#$00
 -	LDA	(SRC),Y
-	INY
-	PHA
 	AND	#$7F
+	CMP	(SRC),Y
+	INY
 	STA	(DST),Y
-	PLA
-	BMI	-
+	BCS	-
 	TYA
 	LDY	#$00
 	STA	(DST),Y
--- a/src/vmsrc/soscmd.pla
+++ b/src/vmsrc/soscmd.pla
@@ -391,12 +391,11 @@ asm dcitos
 	STA	SRCH
 	LDY	#$00
 -	LDA	(SRC),Y
-	INY
-	PHA
 	AND	#$7F
+	CMP	(SRC),Y
+	INY
 	STA	(DST),Y
-	PLA
-	BMI	-
+	BCS	-
 	TYA
 	LDY	#$00
 	STA	(DST),Y