Improve performance of line-up.s in test cpu cykels got from 840893 to 840595

This commit is contained in:
hugova 2025-03-29 21:00:31 +01:00
parent 147ceb73f2
commit 963cc1b258

View file

@ -40,8 +40,9 @@ selfmod:
LDA <V LDA <V
STA case_1 +9 STA case_1 +9
end_selfmod: end_selfmod:
LDY #$01
jsr pixel_draw jsr pixel_draw
LDY #$01
Sub_16 >btp_mem_pos, <btp_mem_pos, #$01, #$00 ;; Y has always a offset of at least 1
LDX X_pos LDX X_pos
for_x: for_x:
LDA byte_to_paint LDA byte_to_paint
@ -60,18 +61,17 @@ increment_pixel_x_end:
BEQ end BEQ end
Lag_16 >D, <D, #$00, #$02, case_2 Lag_16 >D, <D, #$00, #$02, case_2
case_1: case_1:
Sub_16 >D, <D, #>V, #<V, ! Sub_16 >D, <D, #>V, #<V,!
decrement_y_pos: decrement_y_pos:
DEY DEY
CPY #$ff
BNE for_x BNE for_x
move_8px_up: move_8px_up:
LDY #$07 LDY #$08
Sub_16 >btp_mem_pos, <btp_mem_pos, #$40, #$01, ! Sub_16 >btp_mem_pos, <btp_mem_pos, #$40, #$01, !
jmp for_x jmp for_x
decrement_y_pos_end: decrement_y_pos_end:
case_2: case_2:
Add_16 >D, <D, #>dy_2, #<dy_2, ! Add_16 >D, <D, #>dy_2, #<dy_2,!
JMP for_x JMP for_x
end: end:
RTS RTS