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

Optimized dataview

main
neauoire 5 years ago
parent
39d1c036d4
commit
bdca96db18
1 changed files with 6 additions and 6 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 12
      src/main.tal

12
src/main.tal
Unescape View File

@ -953,7 +953,7 @@ RTN
STH
.Screen/y DEO2
.Screen/x DEO2
#10 #00
#10 #00
&loop
DUP STHkr > #08 * TOS ;slider-icns ++ .Screen/addr DEO2
#02 .Screen/sprite DEO
@ -972,14 +972,14 @@ RTN
.settings/focus LDZ2 BANK -- #02 ;draw-short JSR2
( depth1 )
#00 #04
#04 #00
&loop
.dataview/x1 LDZ2 .Screen/x DEO2
OVR #08 * TOS .dataview/y1 LDZ2 ++ .Screen/y DEO2
OVR #02 * TOS .settings/focus LDZ2 ++ LDA2 #03 ;draw-short JSR2
DUP #08 * TOS .dataview/y1 LDZ2 ++ .Screen/y DEO2
DUP #02 * TOS .settings/focus LDZ2 ++ LDA2 #03 ;draw-short JSR2
.dataview/x1 LDZ2 #0020 ++ .Screen/x DEO2
OVR #02 * TOS .settings/focus LDZ2 ++ #0008 ++ LDA2 #03 ;draw-short JSR2
INCR LTHk ,&loop JCN
DUP #02 * TOS .settings/focus LDZ2 ++ #0008 ++ LDA2 #03 ;draw-short JSR2
#01 + GTHk ,&loop JCN
POP2
RTN

Write Preview
Loading…
Cancel
Save