From b44a0c4cb6ab7821b23aad93d236e6c7a5a0c617 Mon Sep 17 00:00:00 2001
From: RochesterX <trevorisaacmaze@gmail.com>
Date: Mon, 16 Mar 2026 22:01:56 -0400
Subject: [PATCH] Drawing column going right, but lag

---
 plat.nes | Bin 40976 -> 40976 bytes
 plat.s   | 352 ++++++++++++++++++++++++++++++++++++++++++-------------
 2 files changed, 273 insertions(+), 79 deletions(-)

diff --git a/plat.nes b/plat.nes
index 0b2ffa3fca1c68564a3b426b202d2e50c7f0f7b3..74a263693ccb5782969ef64bfd0ccc67ff29a5f8 100644
GIT binary patch
delta 2264
zcmb7EO>7%Q6rSDnu7B2!*LE6jaGOj_g=&d|d$UkMrlKNs_s|0p2nl2fti<KY1rA-?
z?Zi%;MNYR!0pZdbP2~-$6vP1q)hGun;#@EY#MK;v62xIasst6Hyjk0+>lP4eYj)oE
zX1;IUzIm^<&DY?+m^fXWUzuN@r^ptxc+uhrqI_4-W{MrY>$i}>;Ragb!CqT?GWP;)
z8VFxUmV`ejZ`|T>3kimVTbwiUg5kz3fsLasHILaEm*W-Lxbvk@yX{a}hzQi35WI|+
ziiU`(wDxmSZ=lwX)jD$R_i*hFe)}>`6s<HlLZ)EDEW!Aj5-8AFHP4Y*{COGwTEc}Q
z{-Ox$wAYK;wIY?(yxkU)A&XOUVp}BQrbOLmIpWUZ-^v|iyRCa<Qv0lk518eGz$ft!
zOIR#tX&_~O%Y}70wI{Y^o8R<O{~34Jul-VF6ZlTP5)CJ~4(iI*UBks2ejXs0BHr-u
zR8Adu$T7AH<YF2wQ9p^%V~p*X!xnSco+?q80NYEWYz_rL*4>3Z^FS#Iw0olA=8Yf^
z{D#0AGOtxjeb})W?D%0z0S+fxXSDZA)>(t&)jV&Ayp=P&ytQBi_&%vET50XJxy#3N
z*(#6#d|QQtNSL^Z-#S4eU{8{GHrqh>Pxg_#H0&*qu;#r4`*jiq{A-3Q4UR^L0^naH
zOlQd){*J*%7<~2~%MtjzT;JE@>{F1qy}5({XFN%jgx*2Aoq$Q98>UL?Kp{#8DK2&z
z?cyb>sCfsmrKE#lcLm5N=uC&RJ=Py21d13yGDBxmd)Uc~n}(Qdhz8VLhy)lnh@GMe
zIhxSb3xi)yCUQ+;Y0`-wbaE4kV0(g0*rClJyFc8}P5j!^m)Yjjh5pZ5P}yd<QY^>*
zvBeKi)qpB>091#ILmiY1;z$KQzl?ho{8mMK^_9!;8rYFawzE_7K=>hR2a@7x2L_gh
z1Rxi!PnPQ#3d8Q+0prF>T@i=IKX}Y#SMprcQlMtlTy&#_T?xG*;)~^t)>@U7>=iaH
zZtVAz?)MF}GQafb#iq0PYSr{f$6r%dd}>bZlQk_7xSLz=Ruck=w&s9;6!Q6UQGk;V
z!2`$1M>v?vT$3jC(`2!^v+aR8d4@pETgRc7KwFZa3ymLD5&uVABa4S|-Tw$X+rjP)
z$iVsQ=8U8q#>)1L1_nWe#-Kq+_#t@Un0tidFxL5{VXV(BW$9${$gp+E{nmBUvrjzP
z0a!Z(cNs|CHkYE}g-j;Xj(7byUZ!!l!iia^;0A)^Uxehxn^y5Xmj3Hb!dB*?k;66E
zTC3K1VN1VKtqa1IS*^Q-t*h0#C@eNJ8ED^iBv@(Z_QZjs&I#*qSAyM-tsoJyP>j(Y
zvLj>~=#ZM5-tFEc(~BE)I%^@vyX|<_``(J<ZT7tuXH2Du5Ar#czBQ$%Gf((xzh|j0
z!LfnQu+f!qULFXHnF_p}31$;#mUd>&w9ubsKpJ|kd^6TVT`6@SY9}gc-ZiXz5{1T)
z_YBRZQyRIbzCryEjnq;^?ZpZ!6X+Utc-;pNG}m@uQ*xSQ=w@txDF%(~!-r(v8JB^5
z<1!;EtwWW_&bm(r9XJ-$`<TwPfzHU8SqQ`E+?s1y%}f8Hb9{LiO@u~=;Xp?sGV8L#
za2AF-BZq!a=Z*i+sUGS~(J0(LCdDFxHaj9^_B=<;^YWHb7<<fT<vH^wZ|HH3<5toA
lXLWUzlkS_y3x4x4-#Na#`ssr2t2d>W3#f3S_>oe;e*+Jh7i9nd

delta 2224
zcmb7E-)kdP6uvW=OlKyOok_DzhitdKimV${s3>f~!Ukj^?an`-AOtkn)K_0bWF~2E
zl8qhAl9$3#g~(kpg~g)yW5H;Bh&KBagzl4Q1-rC@FtRA?KDeGcld0(s3r@n^d%o|U
z^PMyI+}qgX8}MJqTqx!0xz!v+Uc~&>b~%D5-;bF0>>l4&UF2}Mg(^JQ*RMbQ%tQx8
z91-sg4I}uMNMp}MBtpeZL~c6>Q^AR18f`w#O<OMKq_Pkum2FA6Td8a&(&H8u@AU5z
zDc?e!=(}r3*xSL4Kk!@2_;=gQlCxwCqD_)1{C)WrkLjdQ<j5rcv4XuaeyxPRF2Oo8
zS2D{bsu)GDD@-R`&L{|7fe0HS73Vl2=5eapL*9txJ|ao;MhVB6DL{Einw-{;t{&Kp
z(3`3=`<x^3j>^yM>ki@_fv3vMuFzFHenY0QD`H<Ye=D&Ge79JcCNf+P^<(ZsSP5PL
z!4&Zp1Odl=iA*pzNG)wXR;DqMrV}jOgdZ;LhkKz+VFKY^8V(2A5)V)qd7w1zr{j$9
zjs_`8PK0-2ytz^iVBcc!bN&MGu_3#td&Rs_cIO<9H;TLy<=uiK^X}_ToDZUUQ8#OL
znmzuUrMNbM?I#-1NrH$Z=3XSDU?=miZ5Xq!Dbs{(lY}WPfwx5xfZwkGuD3WkN;Clf
zCJ8!8Fn++`F$T{)V!H{P%mv&I=gq<v?_y{S)PI(084K2CEST8+QL4e`Ct45b0?WmG
zXNhV?(MLRS+Q;xyESEF%e2?=a_b;M@;uL`7Je{1`o$|M3gz8LIr>arViOOPw*eun^
zxr}8j4t@oND9{0HlVYH66yh1J8z*ruv7xa}<Nl@1*=6QDvl#qj+hESne7^IM#fL&Q
zAQbf0&|<xZrZs%2ir=VVp@!G0<}1ti$+ghFRL%Fc8WNPRyIZg&Qdb>V5>fNbuY~EV
zDObmv6{C<^?`+pHRx65ImG#c2b!P;3K4b5N^}QXvzuiLhT;=4&pZklys5dW*PrN!_
zSB%1V5UlM+A$I%r?Rq9cQk}aHe;87fLJHvBWAK2ucLKqv=4SM4EKU~MTbmMeyxjaL
zIyPKK_uBucV`%Y-bufN7X-N3nBhVn-?PKtOxO)N-)?p<pVI5i}56w8fgS;d$>Nyt~
z1>;WtAu$%#sgZY)&u;qcYQWZfwjHqkWl3cJx`exO{({_ikf(BnV=sQ5y@h#ykmiF?
zhtcv846^{s`ZFK2gXug-!;PcdOz)t+II|x$&8krp!p<itI2c7KG~0eVK{wGD6eD)J
z*UY!8th3<Ic%!QdJaDyi)eRBa5!%wancl0U;UIr-Oy=XGGT?ZM%+Cih$t_<8vVwLW
z=!7!w4`jlWEjYlegs{31^J2{?il^x0YGFA^nhNWI<4Y8F%N*4i%K5O&dx6a5K<R|f
z_R)b(il*QKVN$FlxMqf=nqSHjRtW_^R9-^<Q$i|02rZL=IpDQ30j~nD!gOFC_=kMx
z|6hC%CG<B#GXzetSE`4eP%!k+&NRP~r=DM7Pl&-NtExI|1FMQh_~xI=RUV;FUW|SB
SW)rJFh%ej7_UsRJ8~+0fhTmHN

diff --git a/plat.s b/plat.s
index 534ca81..34effd2 100644
--- a/plat.s
+++ b/plat.s
@@ -81,11 +81,15 @@ nmi_lock:       .res 1
 nmi_count:      .res 1
 nmi_ready:      .res 1
 nmt_update_len: .res 1
+nmt_column:     .res 1
 scroll_x:       .res 1
 scroll_y:       .res 1
 scroll_nmt:     .res 1
+scroll_page:    .res 1
 temp:           .res 1
 
+PPUCTRL_default = %10101000
+
 .segment "BSS"
 nmt_update:     .res 256
 palette:        .res 32
@@ -145,18 +149,73 @@ nmi:
     ldx #0
     cpx nmt_update_len
     bcs @scroll
+
+    lda PPUCTRL_default
+    ;ora #%00000100
+    sta $2000
+
+    ldy #0
     @nmt_update_loop:
-        lda nmt_update, X
+        lda #6
+        jsr mul_y
+        tax
+
+        lda $2002
+
+        lda nmt_update+0, X
         sta $2006
-        inx
-        lda nmt_update, X
+        lda nmt_update+1, X
         sta $2006
-        inx
-        lda nmt_update, X
+
+        lda nmt_update+2, X
         sta $2007
-        cpx nmt_update_len
+        lda nmt_update+3, X
+        sta $2007
+
+
+        lda $2002
+
+        lda nmt_update+0, X
+        sta $2006
+        lda nmt_update+1, X
+        clc
+        adc #32
+        sta $2006
+
+        lda nmt_update+4, X
+        sta $2007
+        lda nmt_update+5, X
+        sta $2007
+
+
+;       lda $2002
+;       lda #$20
+;       sta $2006
+
+;       lda nmt_update, Y
+;       sec
+;       rol
+;       sta $2006
+
+;       ldx nmt_update
+;       lda level, X
+;       and #%01111111
+;       ldx #5
+;       jsr mul_x
+;       tax
+;       
+;       lda metatiles+1, X
+;       sta $2007
+;       lda metatiles+3, X
+;       sta $2007
+
+        iny
+        cpy nmt_update_len
         bcc @nmt_update_loop
 
+    lda PPUCTRL_default
+    sta $2000
+
     lda #0
     sta nmt_update_len
 @scroll:
@@ -228,66 +287,51 @@ PAD_D      = $20
 PAD_L      = $40
 PAD_R      = $80
 
-.segment "ZEROPAGE"
-gamepad: .res 1
-
-.segment "CODE"
-; gamepad_poll: this reads the gamepad state into the variable labelled "gamepad"
-;   This only reads the first gamepad, and also if DPCM samples are played they can
-;   conflict with gamepad reading, which may give incorrect results.
-gamepad_poll:
-	; strobe the gamepad to latch current button state
-	lda #1
-	sta $4016
-	lda #0
-	sta $4016
-	; read 8 bytes from the interface at $4016
-	ldx #8
-	:
-		pha
-		lda $4016
-		; combine low two bits and store in carry bit
-		and #%00000011
-		cmp #%00000001
-		pla
-		; rotate carry into gamepad variable
-		ror
-		dex
-		bne :-
-	sta gamepad
-	rts
-
-
 .segment "RODATA"
 
-level:
+default_level:
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $00,$00,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
-.byte $82,$83,$00,$00,$00,$00,$00,$00,$81,$00,$0C,$00,$81,$00,$00,$00
-.byte $84,$85,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$0C,$00,$0C,$00,$0C,$00,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$81,$00,$0C,$00,$81,$00,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $0F,$8C,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80
+.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+;.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+;.byte $00,$00,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
+;.byte $82,$83,$00,$00,$00,$00,$00,$00,$81,$00,$0C,$00,$81,$00,$00,$00
+;.byte $84,$85,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$0C,$00,$0C,$00,$0C,$00,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$81,$00,$0C,$00,$81,$00,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$81,$00,$81,$00,$81,$00,$81,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$8C,$87
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+;.byte $0F,$8C,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87,$87
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+;.byte $0F,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
 
-level2:
+default_level2:
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
 .byte $00,$8C,$8C,$8C,$8C,$8C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $00,$09,$0C,$0C,$0C,$8C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $00,$8C,$8C,$8C,$0C,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-.byte $00,$09,$0C,$0C,$0C,$8C,$00,$00,$00,$00,$00,$82,$83,$00,$00,$00
+.byte $00,$09,$01,$01,$01,$8C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$8C,$8C,$8C,$01,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+.byte $00,$09,$01,$01,$01,$8C,$00,$00,$00,$00,$00,$82,$83,$00,$00,$00
 .byte $00,$8C,$8C,$8C,$8C,$8C,$00,$00,$00,$00,$00,$84,$85,$00,$00,$00
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$0E,$00,$82,$83
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$0E,$00,$84,$85
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$82,$83,$00,$0F,$0E,$00,$0F,$0E
-.byte $00,$00,$00,$00,$00,$00,$00,$00,$84,$85,$00,$0F,$0E,$00,$0F,$0E
+.byte $87,$8C,$00,$00,$00,$00,$00,$00,$84,$85,$00,$0F,$0E,$00,$0F,$0E
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$0F,$0E,$00,$0F,$0E,$00,$0F,$0E
 .byte $00,$00,$00,$00,$00,$00,$00,$00,$0F,$0E,$00,$0F,$0E,$00,$0F,$0E
 .byte $87,$87,$87,$87,$87,$8C,$00,$00,$0F,$0E,$00,$0F,$0E,$00,$0F,$0E
@@ -343,6 +387,11 @@ example_palette:
 ; .byte $0F,$1B,$2B,$3B ; sp2 teal
 ; .byte $0F,$12,$22,$32 ; sp3 marine
 
+
+terrain:
+;     page pos  struct
+.byte $00, $00, $00
+
 .segment "ZEROPAGE"
 buttons:    .res 1
 
@@ -377,6 +426,12 @@ frame_counter: .res 1
 last_frame_jumped: .res 1
 last_frame_moving: .res 1
 
+tile_update_pos_r: .res 1
+
+.segment "BSS"
+level:      .res 240
+level2:     .res 240
+
 .segment "CODE"
 main:
 	ldx #0
@@ -456,28 +511,8 @@ move_camera:
     @end:
 
 
-    lda camera_speed
-    bmi @left
-        clc
-        adc scroll_x
-        cmp scroll_x
-        sta scroll_x
-        bcs :+
-            lda scroll_nmt
-            eor #%00000001
-            sta scroll_nmt
-        :
-        rts
-    @left:
-        clc
-        adc scroll_x
-        cmp scroll_x
-        sta scroll_x
-        bcc :+
-            lda scroll_nmt
-            eor #%00000001
-            sta scroll_nmt
-        :
+    jsr add_scroll_x
+    jsr check_column_update
     rts
 
 draw_player:
@@ -667,6 +702,7 @@ init_objects:
 
     lda #0
     sta camera_speed
+    sta tile_update_pos_r
 
     rts
 
@@ -961,6 +997,42 @@ movement:
     rts
 
 setup_background:
+    ldx #0
+    :
+        lda default_level, X
+        sta level, X
+
+        inx
+        cpx #240
+        bne :-
+
+    ldx #0
+    :
+        lda default_level2, X
+        sta level2, X
+
+        inx
+        cpx #240
+        bne :-
+
+    ldx #0
+    :
+        lda default_level, X
+        sta level, X
+
+        inx
+        cpx #240
+        bne :-
+
+    ldx #0
+    :
+        lda default_level2, X
+        sta level2, X
+
+        inx
+        cpx #240
+        bne :-
+
 	lda $2002 ; reset latch
 	lda #$20
 	sta $2006
@@ -1050,7 +1122,6 @@ setup_background:
         cpy #15
 		bne @row_start_nmt1
 
-
 	; clear attributes
     ;lda #0
 	;ldx #64 ; 64 bytes
@@ -1366,6 +1437,129 @@ setup_background:
 
     rts
 
+add_scroll_x:
+    lda camera_speed
+    bmi @left
+        clc
+        adc scroll_x
+        cmp scroll_x
+        sta scroll_x
+        bcs :+
+            lda scroll_nmt
+            eor #%00000001
+            sta scroll_nmt
+            ldx scroll_page
+            inx
+            sta scroll_page
+        :
+        rts
+    @left:
+        clc
+        adc scroll_x
+        cmp scroll_x
+        sta scroll_x
+        bcc :+
+            lda scroll_nmt
+            eor #%00000001
+            sta scroll_nmt
+            ldx scroll_page
+            dex
+            sta scroll_page
+        :
+        rts
+    
+check_column_update:
+    clc
+    lda scroll_nmt
+    beq :+
+        sec
+    :
+
+    lda scroll_x
+    ror
+    lsr
+    lsr
+    lsr
+
+    cmp tile_update_pos_r
+    bne :+
+        jsr update_nmt_column
+        lda tile_update_pos_r
+        clc
+        adc #1
+        and #%00011111
+        sta tile_update_pos_r
+
+    :
+
+    rts
+
+update_nmt_column:
+    ldx #0
+    :
+        lda #16
+        jsr mul_x
+        clc
+        adc tile_update_pos_r
+        tay
+        lda #%10000001
+        sta level, Y
+
+        and #%01111111
+        ldy #5
+        jsr mul_y
+        tay
+
+
+        txa
+        pha
+
+        lda #6
+        jsr mul_x
+        tax
+
+        lda metatiles+0, Y
+        sta nmt_update+2, X
+        lda metatiles+1, Y
+        sta nmt_update+3, X
+        lda metatiles+2, Y
+        sta nmt_update+4, X
+        lda metatiles+3, Y
+        sta nmt_update+5, X
+
+
+        pla
+        tay
+
+        lsr
+        lsr
+        clc
+        adc #$20
+        sta nmt_update+0, X
+
+        lda #64
+        jsr mul_y
+        clc
+        adc tile_update_pos_r
+        clc
+        adc tile_update_pos_r
+        sta nmt_update+1, X
+
+
+
+        tya
+        tax
+
+        inx
+        cpx #15
+        bne :-
+
+
+    lda #15
+    sta nmt_update_len
+
+    rts
+
 mul_x:
     cmp #0
     beq @zero