From b67bfc3d416ce946cde83e09c3ba55673078a85b Mon Sep 17 00:00:00 2001 From: peterferrie Date: Mon, 16 Jun 2014 18:37:58 -0700 Subject: [PATCH 1/4] Update a1cmd.pla slightly faster dcitos --- src/vmsrc/a1cmd.pla | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/vmsrc/a1cmd.pla b/src/vmsrc/a1cmd.pla index ca0e61d..c91f839 100644 --- 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 From 9c62ab06a0976074a27afe9515ef13eaa8b76f76 Mon Sep 17 00:00:00 2001 From: peterferrie Date: Mon, 16 Jun 2014 18:38:43 -0700 Subject: [PATCH 2/4] Update cmd.pla slightly faster dcitos --- src/vmsrc/cmd.pla | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla index 6f88fbb..b3d9a49 100644 --- 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 From ce6786215a0f51d67798918b636748d22e67ed27 Mon Sep 17 00:00:00 2001 From: peterferrie Date: Mon, 16 Jun 2014 18:43:00 -0700 Subject: [PATCH 3/4] Update hgr1test.pla avoid possibly redundant write to WINT --- src/samplesrc/hgr1test.pla | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/samplesrc/hgr1test.pla b/src/samplesrc/hgr1test.pla index 1021b70..601803d 100644 --- 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 \ No newline at end of file +done From ad26a747e2c7e8ce539672cd4df5c75bfbe12880 Mon Sep 17 00:00:00 2001 From: peterferrie Date: Mon, 16 Jun 2014 18:46:01 -0700 Subject: [PATCH 4/4] Update soscmd.pla slightly faster dcitos --- src/vmsrc/soscmd.pla | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla index f628c4d..4c72f07 100644 --- 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