...

Author: chitselb

Makefile

@@ -14,7 +14,7 @@ all: pristine remote
 
 remote: mkd64
 	scp pettil.d64 samosa:pettil/
-	samosa perturb
+	samosa DISPLAY=:0.0 ./bin/mkperturb
 # build a fresh PETTIL from source
 #~
 mkpettil:

doc/pettil-sparecode.a65

@@ -1,4 +1,4 @@
-pettil-sparecode.a65
+; pettil-sparecode.a65
 
 
 ;--------------------------------------------------------------
@@ -706,49 +706,3 @@ wdump03
 #include "pass.i65"
     .word exit
 
-;--------------------------------------------------------------
-#if 0
-name=INDEX
-stack=( -- )
-tags=secondary,extra
-
-```
-: index
-    #blk @ 0 do i block 40 type loop ;
-```
-#endif
-#include "align.i65"
-_index
-    jsr enter
-#include "page.i65"
-    .word numblk
-#include "page.i65"
-    .word fetch
-#include "page.i65"
-    .word zero
-#include "pass.i65"
-    .word pqdo
-    .byt <(index02-*+1)
-#include "page.i65"
-index01
-    .word i
-#include "page.i65"
-    .word _block
-#include "page.i65"
-    .word vidram
-#include "page.i65"
-    .word i
-#include "page.i65"
-    .word fortytimes
-#include "page.i65"
-    .word plus
-#include "page.i65"
-    .word forty
-#include "page.i65"
-    .word cmove
-#include "pass.i65"
-    .word ploop
-    .byt <(index01-*+1)
-#include "pass.i65"
-index02
-    .word exit

doc/sizes.csv0

@@ -664,6 +664,7 @@ L2,11
 >NP,25
 N2,9
 P2,9
+INDEX,33
 ASSEMBLER,4
 Z1,4
 UP1,4
@@ -691,9 +692,9 @@ M/CPU1,11
 "THEN,1",25
 "BEGIN,1",13
 "WHILE,1",19
-"UNTIL,1",21
+"UNTIL,1",24
 "AGAIN,1",13
-"REPEAT,1",19
+"REPEAT,1",17
 NOT1,9
 CS1,4
 0=1,4

doc/sizes.csv1

@@ -664,6 +664,7 @@ L2,11
 >NP,25
 N2,9
 P2,9
+INDEX,33
 ASSEMBLER,4
 Z1,4
 UP1,4
@@ -691,9 +692,9 @@ M/CPU1,11
 "THEN,1",25
 "BEGIN,1",13
 "WHILE,1",19
-"UNTIL,1",21
+"UNTIL,1",24
 "AGAIN,1",13
-"REPEAT,1",19
+"REPEAT,1",17
 NOT1,9
 CS1,4
 0=1,4

doc/sizes.csv2

@@ -664,6 +664,7 @@ L2,11
 >NP,25
 N2,9
 P2,9
+INDEX,33
 ASSEMBLER,4
 Z1,4
 UP1,4
@@ -691,9 +692,9 @@ M/CPU1,11
 "THEN,1",25
 "BEGIN,1",13
 "WHILE,1",19
-"UNTIL,1",21
+"UNTIL,1",24
 "AGAIN,1",13
-"REPEAT,1",19
+"REPEAT,1",17
 NOT1,9
 CS1,4
 0=1,4

doc/sizes.csv3

@@ -664,6 +664,7 @@ L2,11
 >NP,25
 N2,9
 P2,9
+INDEX,33
 ASSEMBLER,4
 Z1,4
 UP1,4
@@ -691,9 +692,9 @@ M/CPU1,11
 "THEN,1",25
 "BEGIN,1",13
 "WHILE,1",19
-"UNTIL,1",21
+"UNTIL,1",24
 "AGAIN,1",13
-"REPEAT,1",19
+"REPEAT,1",17
 NOT1,9
 CS1,4
 0=1,4

doc/sizes.csv4

@@ -664,6 +664,7 @@ L2,11
 >NP,25
 N2,9
 P2,9
+INDEX,33
 ASSEMBLER,4
 Z1,4
 UP1,4
@@ -691,9 +692,9 @@ M/CPU1,11
 "THEN,1",25
 "BEGIN,1",13
 "WHILE,1",19
-"UNTIL,1",21
+"UNTIL,1",24
 "AGAIN,1",13
-"REPEAT,1",19
+"REPEAT,1",17
 NOT1,9
 CS1,4
 0=1,4

pettil.d64

@@ -1769,3 +1769,50 @@ _p
     .word _donp
 #include "pass.i65"
     .word exit
+
+;--------------------------------------------------------------
+#if 0
+name=INDEX
+stack=( -- )
+tags=secondary,extra
+
+```
+: index
+    #blk @ 0 do i block 40 type loop ;
+```
+#endif
+#include "align.i65"
+_index
+    jsr enter
+#include "page.i65"
+    .word numblk
+#include "page.i65"
+    .word fetch
+#include "page.i65"
+    .word zero
+#include "pass.i65"
+    .word pqdo
+    .byt <(index02-*+1)
+#include "page.i65"
+index01
+    .word i
+#include "page.i65"
+    .word _block
+#include "page.i65"
+    .word vidram
+#include "page.i65"
+    .word i
+#include "page.i65"
+    .word fortytimes
+#include "page.i65"
+    .word plus
+#include "page.i65"
+    .word forty
+#include "page.i65"
+    .word cmove
+#include "pass.i65"
+    .word ploop
+    .byt <(index01-*+1)
+#include "pass.i65"
+index02
+    .word exit