From 0db950038cabfe8e29c0b0531b6b0986b6ab8f0b Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Wed, 31 Oct 2018 22:41:49 -0400
Subject: [PATCH] .

---
 src/fx/fx.hgr.common.a | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/src/fx/fx.hgr.common.a b/src/fx/fx.hgr.common.a
index d379b290d..ad200c0a5 100644
--- a/src/fx/fx.hgr.common.a
+++ b/src/fx/fx.hgr.common.a
@@ -33,22 +33,19 @@ HGRBlockCopy
 ; in:    A = HGR row / 8 (0x00..0x17)
 ;        Y = HGR column (0x00..0x27)
 ; out:   Y preserved
-;        X = #$FF
+;        X = #$00
 ;        Z set
 ;        all other flags and registers clobbered
-         sty   @y
          asl
          asl
          asl
          jsr   HGRCalc
+         clc
          ldx   #$08
-@y=*+1
-         ldy   #$FD                  ; modified at runtime
 @loop
          lda   ($3c),y
          sta   ($26),y
          lda   $27
-         clc
          adc   #$04
          sta   $27
          eor   #$60
@@ -61,22 +58,19 @@ HGRBlockToWhite
 ; in:    A = HGR row / 8 (0x00..0x17)
 ;        Y = HGR column (0x00..0x27)
 ; out:   Y preserved
-;        X = #$FF
+;        X = #$00
 ;        Z set
 ;        all other flags and registers clobbered
-         sty   @y
          asl
          asl
          asl
          jsr   HGRCalc
+         clc
          ldx   #$08
-@y=*+1
-         ldy   #$FD                  ; modified at runtime
 @loop
          lda   #$7F
          sta   ($26),y
          lda   $27
-         clc
          adc   #$04
          sta   $27
          eor   #$60