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

2024-07-08 09:28:57 +00:00 · 2014-06-16 19:27:13 -07:00 · 2014-06-16 19:27:13 -07:00 · 95adcb8fef
commit 95adcb8fef
parent 117ed34748 b16225ece5
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
@ -124,4 +122,4 @@ draw_ground(page1)
 getc
 ^showpage1
 ^showtext
-done
+done
--- 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