commit 03517f3

Improved screen tests

 1@@ -54,8 +54,7 @@
 2 @|drawing )
 3 
 4 @<toggle-pos> ( -- )
 5-	.position/x LDZ2 #8000 NEQ2 ?{
 6-		#0000 DUP2 !<move> }
 7+	.position/x LDZ2 #8000 NEQ2 ?{ #0000 DUP2 !<move> }
 8 	#8000 DUP2 !<move>
 9 
10 @<toggle-size> ( -- )
11@@ -85,12 +84,13 @@
12 	[ LIT2 71 -Screen/auto ] DEO
13 	;fill-icn .Screen/addr DEO2
14 	#f8
15-	&>l ( -- )
16+	&>l
17 		#40 .Screen/sprite DEO
18 		INC DUP ?&>l
19-	POP
20-	OVR2 <phex> #2018 DEO
21-	DUP2 <phex> #0a18 DEO
22+	POP OVR2 <phex>
23+	#2018 DEO
24+	DUP2 <phex>
25+	#0a18 DEO
26 	( | update )
27 	.position/y STZ2
28 	.position/x STZ2
29@@ -114,9 +114,16 @@
30 	.Screen/x DEI2k #0008 ADD2 ROT DEO2
31 	.Screen/y DEI2k #0020 ADD2 ROT DEO2
32 	#a140 ORA <draw-portrait>
33+	( | pixels )
34+	[ LIT2 00 -Screen/auto ] DEO
35 	.position/x LDZ2 .Screen/x DEO2
36 	.position/y LDZ2 .Screen/y DEO2
37-	[ LIT2 00 -Screen/auto ] DEO
38+	#43 .Screen/pixel DEO
39+	.position/x LDZ2 #001f ADD2 .Screen/x DEO2
40+	.position/y LDZ2 #001f ADD2 .Screen/y DEO2
41+	#43 .Screen/pixel DEO
42+	.position/x LDZ2 #0020 SUB2 .Screen/x DEO2
43+	.position/y LDZ2 #0020 SUB2 .Screen/y DEO2
44 	#43 .Screen/pixel DEO
45 	JMP2r
46 
47@@ -170,7 +177,7 @@
48 	#e2 .Screen/auto DEO
49 	;guide-icn .Screen/addr DEO2
50 	#0f00
51-	&>l ( -- )
52+	&>l
53 		#01 .Screen/sprite DEO
54 		INC GTHk ?&>l
55 	POP2
56@@ -179,7 +186,7 @@
57 	#0008 .Screen/y DEO2
58 	#01 .Screen/auto DEO
59 	#0f00
60-	&>ll ( -- )
61+	&>ll
62 		DUP <draw-circle>
63 		INC GTHk ?&>ll
64 	POP2
65@@ -188,7 +195,7 @@
66 	#0018 .Screen/y DEO2
67 	#01 .Screen/auto DEO
68 	#0f00
69-	&>lll ( -- )
70+	&>lll
71 		DUP #80 ORA <draw-circle>
72 		INC GTHk ?&>lll
73 	POP2 JMP2r
74@@ -210,10 +217,10 @@
75 @<phex> ( short* -: )
76 	SWP /b
77 	&b ( byte -: )
78-		DUP #04 SFT /c
79+	DUP #04 SFT /c
80 	&c ( byte -: )
81-		#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
82-		JMP2r
83+	#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
84+	JMP2r
85 
86 @guide-icn [ 8000 0000 0000 0000 ]
87