load initial values with a loop

projects/nibble-dice-tracker.tal

@@ -35,6 +35,7 @@
 %die-color-normal { #53 } 
 %die-color-invert { #5b }
 %column-size { #08 }
+%num-bytes { #30 } ( number of bytes shown as dice )
 
 %col-sep { #0024 } ( separation between byte columns )
 
@@ -78,41 +79,19 @@
 	#1c37 .System/b DEO2
 
 
-	( initial conditions )
-
-  #10 .dev0/period STZ
-	#77 .dev0/pattern STZ
-	#08 .dev0/beatcount STZ
-  #1ff1 .dev0/adsr STZ2
-	#77 .dev0/volume STZ
-  #0100 .dev0/sample STZ2
-  #2d29 .dev0/melody STZ2
-  #2629 .dev0/melody #02 ADD STZ2
-  #2d29 .dev0/melody #04 ADD STZ2
-  #262d .dev0/melody #06 ADD STZ2
-
-  #08 .dev1/period STZ
-	#f7 .dev1/pattern STZ
-	#08 .dev1/beatcount STZ
-  #1ff1 .dev1/adsr STZ2
-	#aa .dev1/volume STZ
-  #2100 .dev1/sample STZ2
-  #3935 .dev1/melody STZ2
-  #3235 .dev1/melody #02 ADD STZ2
-  #3935 .dev1/melody #04 ADD STZ2
-  #3239 .dev1/melody #06 ADD STZ2
-
-  #10 .dev2/period STZ
-	#55 .dev2/pattern STZ
-	#08 .dev2/beatcount STZ
-  #1121 .dev2/adsr STZ2
-	#77 .dev2/volume STZ
-  #18ff .dev2/sample STZ2
-  #4541 .dev2/melody STZ2
-  #3e45 .dev2/melody #02 ADD STZ2
-  #413e .dev2/melody #04 ADD STZ2
-  #4541 .dev2/melody #06 ADD STZ2
- 
+	( set initial values )
+	#00
+	&loop-load
+		STHk ( store and keep counter )
+		#00 SWP ( make short )
+		;initial-values ADD2 LDA ( load value ) 
+		 STHkr ( retrieve and keep counter )
+		.dev0 ADD ( add counter to address )
+		STZ ( store byte )
+		STHr #01 ADD ( retrieve and increment counter )
+		DUP num-bytes LTH ,&loop-load JCN
+	POP
+  
   #00 .ptr-register-nibbles STZ
 
 	;on-frame .Screen/vector DEO2 
@@ -120,6 +99,13 @@
 
 BRK
 
+@initial-values
+( period pattern beatcount adsr volume sample melody )
+&dev0 10 77 08 1ff1 77 0100 2d29 2629 2d29 262d
+&dev1 08 f7 08 1ff1 aa 2100 3935 3235 3935 3239
+&dev2 10 55 08 1121 77 18ff 4541 3e45 413e 4541
+00
+
 @pos-x-dev0  000c 
 @pos-x-dev1  005e 
 @pos-x-dev2  00af