From a553549b187ec52379cbff147f6e9258760c251e Mon Sep 17 00:00:00 2001
From: hugova <hugova@kth.se>
Date: Thu, 8 May 2025 20:11:04 +0200
Subject: [PATCH] found place were old 16-bit zeropage format was used, fix
 that!

---
 wip-hugo/routines/memory/mem.inc      |  2 +-
 wip-hugo/routines/memory/pixel_draw.s | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/wip-hugo/routines/memory/mem.inc b/wip-hugo/routines/memory/mem.inc
index 2148d71..2d1551a 100644
--- a/wip-hugo/routines/memory/mem.inc
+++ b/wip-hugo/routines/memory/mem.inc
@@ -6,7 +6,7 @@
         B_end = $FE        ; 16-bit value (uses FF)
 ;;In use of by pixel_draw
         Y_pos = $FB
-        X_pos = $FCFD
+        X_pos = $FC        ; 16-bit value (uses FD)
         byte_to_paint = $FE
         btp_mem_pos = $F9  ; 16-bit value (uses FA), byte to paint memory position
         C = $F7            ; 16-bit value (uses F8)
diff --git a/wip-hugo/routines/memory/pixel_draw.s b/wip-hugo/routines/memory/pixel_draw.s
index a8b3611..ac80794 100755
--- a/wip-hugo/routines/memory/pixel_draw.s
+++ b/wip-hugo/routines/memory/pixel_draw.s
@@ -1,13 +1,13 @@
 ;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
 
 ;;Screen print. Draws a pixel at a specified position.
-;; Destroys A X Y
-.proc pixel_draw;; Draws a pixel at  [Y = FB , X = FC, FD].  Y = 0 - 320, X= 0 - 200
+.proc pixel_draw; user-procedure :clobbers (A X Y) :clobbers-arguments 0
+;; Draws a pixel at Y_pos, X_pos se mem.inc
         .include "mem.inc"
         Bitmap = $4000
         Bitmap_end = $5F3F
         ;; X = X_pos (mod 8)
-	LDA >X_pos ; X (mod 8)
+	LDA X_pos ; X (mod 8)
 	AND #%00000111
 	TAX
 
@@ -33,11 +33,11 @@ end__:
 
 	;;pos = x_offset
 	LDA #%11111000
-	AND >X_pos
+	AND X_pos
 	STA btp_mem_pos
 
-	LDA <X_pos
-	STA btp_mem_pos +1
+	LDA X_pos + 1
+	STA btp_mem_pos + 1
 
 	;;The y_pos adds offset because chunk offsets + inside chunk offset.
 	;; Adding inside chunk offset