mirror-uxn
/
nasu
mirror of https://git.sr.ht/~rabbits/nasu
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Fixed issue with nametable

main
neauoire 2 years ago
parent
72102aaec0
commit
179da087ad
1 changed files with 5 additions and 3 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 8
      src/nasu.tal

8
src/nasu.tal
Unescape View File

@ -727,13 +727,15 @@ JMP2r
@draw-nametable ( -- ) @draw-nametable ( -- )
.nametableview/y LDZ2 .Screen/y DEO2 #00 .Screen/auto DEO
#1000 #1000
&ver &ver ( -- )
( > y ) #00 OVR #30 SFT2 .nametableview/y LDZ2 ADD2 .Screen/y DEO2
STHk STHk
.nametableview/x LDZ2 .Screen/x DEO2 .nametableview/x LDZ2 .Screen/x DEO2
#1000 #1000
&hor &hor ( -- )
( > x ) #00 OVR #30 SFT2 .nametableview/x LDZ2 ADD2 .Screen/x DEO2
( id ) #00 OVR STHkr #40 SFT ADD ( id ) #00 OVR STHkr #40 SFT ADD
( addr* ) #0003 MUL2 ;nametable ADD2 ( addr* ) #0003 MUL2 ;nametable ADD2
LDA2k ;spritesheet ADD2 .Screen/addr DEO2 LDA2k ;spritesheet ADD2 .Screen/addr DEO2

Write Preview
Loading…
Cancel
Save