wip-hugo/routines/line/line_down.s

@@ -10,6 +10,7 @@
 
 .proc line_down
         .include "line.inc"; Defines memory positions, ex X_pos
+
         ;;We need to clear this memory
         LDA #$00
         STA <V
@@ -59,8 +60,8 @@ for_x:
         ORA (>btp_mem_pos), Y
         STA (>btp_mem_pos), Y
 increment_pixel_x:
-        ;CLC
-        LSR byte_to_paint
+        CLC
+        ROR byte_to_paint
         BCS move_8px_left
         JMP increment_pixel_x_end
 move_8px_left:

wip-hugo/routines/line/line_test_time.s

@@ -1,9 +1,6 @@
 ;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
 
         .include "line.inc"
-
-        ;;START TIME HERE
-
         ;;for testing stuff
         Y_pos_ = $0D
         X_pos_ = $0E
@@ -18,7 +15,8 @@
         LDA #$30
         STA Y_end
 
-
+        ;; Short test for timing
+        time_start
 @loop:;; mem f1
         LDA Y_pos_
         STA Y_pos
@@ -32,20 +30,7 @@
         BEQ end__
         jmp @loop
 end__:
-        ;;Lets cleer bitmap
-        LDA #>VIC_bank
-        STA $FC
-        LDA #<VIC_bank
-        STA $FB
-
-        LDA #>$5f3f
-        STA $FE
-        LDA #<$5f3f
-        STA $FD
-
-        LDA #$0
-        jsr memory_rec
-
+        time_stop
         jmp exit
 
 .include "line_down.s"