~rabbits/nasu

3726af5f5239b20ccbc7611df18c992c7aafe145 — neauoire 1 year, 6 months ago de0ee35
Minor optimization
1 files changed, 2 insertions(+), 2 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +2 -2
@@ 1207,7 1207,7 @@ RTN
	STH2
	#0c #00
	&loop
		DUP DUP TOS STH2kr ++ LDA
		DUPk TOS STH2kr ++ LDA
		SWP .path/name + STZ
		INC GTHk ,&loop JCN
	( end ) #00 SWP .path/name + STZ 


@@ 1240,7 1240,7 @@ RTN
	#1000 #0000
	&loop
		DUP2 BANK-TEMP ++ LDA STH
		DUP2 [ DUP2 8// 8** ++ ] BANK ++ STHr ROT ROT STA
		DUP2k [ 8// 8** ++ ] BANK ++ STHr ROT ROT STA
		INC2 GTH2k ,&loop JCN
	POP2 POP2