found place were old 16-bit zeropage format was used, fix that!

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)

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