Dariaceli's Git
Browse code

(screen.flip) Added example to test flip bit in screen/sprite port

neauoire authored on 05/08/2023 15:56:32
Showing 1 changed files
projects/examples/devices/screen.flip.tal
History View file @ d6691fd
1 1 
new file mode 100644
... ... 
@@ -0,0 +1,172 @@
1 
+( GUI Picture )
2 
+
3 
+|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1
4 
+|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
5 
+
6 
+|0100
7 
+
8 
+	( theme )
9 
+	#f0f5 .System/r DEO2
10 
+	#f00c .System/g DEO2
11 
+	#f00a .System/b DEO2
12 
+	( draw 4 versions )
13 
+	set-center
14 
+	#1010 ;dafu10x10 #05 draw-fast
15 
+	set-center
16 
+	#1010 ;dafu10x10 #1a draw-fast
17 
+	set-center
18 
+	#1010 ;dafu10x10 #2f draw-fast
19 
+	set-center
20 
+	#1010 ;dafu10x10 #3b draw-fast
21 
+
22 
+BRK
23 
+
24 
+@set-center ( -- )
25 
+
26 
+	.Screen/width DEI2 #01 SFT2 .Screen/x DEO2
27 
+	.Screen/height DEI2 #01 SFT2 .Screen/y DEO2
28 
+
29 
+JMP2r
30 
+
31 
+@draw-fast ( w h addr* color -- )
32 
+
33 
+	,&color STR
34 
+	.Screen/addr DEO2
35 
+	SWP #01 SUB #40 SFT #06 ORA .Screen/auto DEO
36 
+	#00 SWP SUB
37 
+	&times ( -- )
38 
+		[ LIT2 &color $1 -Screen/sprite ] DEO
39 
+		INC DUP ?&times
40 
+	POP
41 
+
42 
+JMP2r
43 
+
44 
+@dafu10x10
45 
+	0000 0000 0000 0000 0000 0000 0000 0000
46 
+	0000 0000 0000 0000 0000 0000 0000 0000
47 
+	0000 0000 0000 0001 0000 0000 010f 7fff
48 
+	0000 002f ffff ffff 0000 00fd ffff ffff
49 
+	0000 0000 e0fc ffff 0000 0000 0000 00e0
50 
+	0000 0000 0000 0000 0000 0000 0000 0000
51 
+	0000 0000 0000 0000 0000 0000 0000 0000
52 
+	0000 0000 0000 0000 0000 0000 0000 0000
53 
+	0000 0000 0000 0000 0000 0000 0000 0000
54 
+	0000 0000 0000 0000 0000 0000 0107 071f
55 
+	071f 3fff fffc f3cf ffff f8c7 3fff ffff
56 
+	e82f fbfb fbfb fbfb 02ff ffff ffff ffff
57 
+	bf41 feff ffff ffff fcff 1fe3 fcff ffff
58 
+	00d0 fcff 7fd2 ffff 0000 00c0 f0f8 5efe
59 
+	0000 0000 0000 0000 0000 0000 0000 0000
60 
+	0000 0000 0000 0000 0000 0000 0000 0000
61 
+	0000 0000 0000 0000 0000 0000 0000 0000
62 
+	0000 0103 0f1f 3f7e 5f7e f9f3 cf9f 7fff
63 
+	3f7f ffff ffff ffff ffff ffff ffff ffff
64 
+	f9fb fbf9 fdf9 fdfd ffff ffff ffff ffff
65 
+	ffff ffff ffff ffff ffff ffff ffff ffff
66 
+	ffff ffff ffff ffff ffff ffff feff fefe
67 
+	0000 0000 0000 0000 0000 0000 0000 0000
68 
+	0000 0000 0000 0000 0000 0000 0000 0000
69 
+	0000 0000 0000 0000 0001 002f 1f1f 1f1f
70 
+	e907 ffff ffff ffff ffff ffff ffff ffff
71 
+	ffff ffff ffff ffff ffff ffff ffff ffff
72 
+	fdfd fdfd fcff fd45 ffff ffff ffff ed37
73 
+	ffff ffff ffff b76c ffff ffff ffff ff0b
74 
+	ffff ffff ffff ffff fefc fcfc f8fc f8f8
75 
+	0000 0000 0000 0000 0000 0000 0000 0000
76 
+	0000 0000 0000 0000 0000 0000 0000 0000
77 
+	0000 0000 0000 0000 1f1f 1f0f 0f07 0703
78 
+	ffff ffff ffff ffff ffff ffff fffe fdf5
79 
+	ffff fceb 8fbf 7fff f48b 7fff ffff ffff
80 
+	bffe fefa f8fc fdff ffff 7f3f 3f7f bfff
81 
+	ffff ffff ffff ffff f8ff ffff ffff ffff
82 
+	7fd7 ffff ffff ffff f0f0 f0e0 e0e0 e0e0
83 
+	0000 0000 0000 0000 0000 0000 0000 0000
84 
+	0000 0000 0000 0000 0000 0000 0000 0000
85 
+	0000 0000 0000 0000 0301 0100 0000 0000
86 
+	ffff fffc 7d33 3f1f ef9f 7fff ffff ffff
87 
+	ffff ffff ffff f4cb ffff ffff e807 ffff
88 
+	ffff ffa0 00c0 0197 ffff 5007 1f03 5eff
89 
+	ffff a5ff ff6d bfff ffff 4de8 ff7f 6fff
90 
+	ffff ffbf a7fe fefe f0e0 f0e0 f0e0 b0d0
91 
+	0000 0000 0000 0000 0000 0000 0000 0000
92 
+	0000 0000 0000 0000 0000 0000 0000 0000
93 
+	0000 0000 0000 0000 0000 0000 0000 0000
94 
+	1f0f 0f0f 0f0e 0e12 fefa f5cf bfff ffff
95 
+	3fff ffff ffff ffff ffff ffff ffff ffff
96 
+	f8e0 e0c0 e040 c040 7f7f 5f2f 7b1b 0f0f
97 
+	ffff ffff ffff ffff ffff ffff ffff ffff
98 
+	ffff fcfd fbf5 f9d4 50f0 f0e0 f0f0 e060
99 
+	0000 0000 0000 0000 0000 0000 0000 0000
100 
+	0000 0000 0000 0000 0000 0000 0000 0000
101 
+	0000 0000 0000 0000 0000 0000 0000 0000
102 
+	1a1a 150f 0d07 1100 7fff ffff fdff ffe1
103 
+	ffff ffff baff ff55 ffff ffaa fdff fe00
104 
+	c040 d708 f0eb a800 0fa6 7f2f 3fd0 021a
105 
+	d7bf fff7 086a b8b0 feff e914 a000 0000
106 
+	ab20 e078 0000 0000 e0c0 d6e1 4084 0204
107 
+	0000 0000 0000 0000 0000 0000 0000 0000
108 
+	0000 0000 0000 0000 0000 0000 0000 0000
109 
+	0000 0000 0000 0000 0000 0000 0000 0000
110 
+	0402 010a 0200 0000 7876 39b0 5078 9018
111 
+	0892 71a9 2112 1210 aa00 ff01 7692 0000
112 
+	a01e 3628 8488 4484 a5a0 0000 0080 8000
113 
+	2003 070d 3815 0260 feff 7b69 9e60 0000
114 
+	90e0 8080 0000 0000 c004 8020 8890 8888
115 
+	0000 0000 0000 0000 0000 0000 0000 0000
116 
+	0000 0000 0000 0000 0000 0000 0000 0000
117 
+	0000 0000 0000 0000 0000 0000 0000 0000
118 
+	0300 0000 0000 0000 2848 8008 4428 0c04
119 
+	1211 1201 1d14 2a29 1200 0016 dd55 22a9
120 
+	4084 44ca 8a0d 5800 0000 0800 a02e d105
121 
+	1000 0000 0080 6a11 0000 0000 0000 8865
122 
+	0100 0100 0101 005e 2080 2040 4000 0000
123 
+	0000 0000 0000 0000 0000 0000 0000 0000
124 
+	0000 0000 0000 0000 0000 0000 0000 0000
125 
+	0000 0000 0000 0000 0000 0000 0000 0000
126 
+	0000 0000 0000 0000 0600 0a05 0303 0300
127 
+	50a0 8040 8000 8000 0000 0000 0000 0000
128 
+	0000 0000 0000 0000 0000 0000 0000 0000
129 
+	ad00 0000 0000 0000 510a 0000 0000 0000
130 
+	2214 0002 0200 0406 0000 0000 0000 0080
131 
+	0000 0000 0000 0000 0000 0000 0000 0000
132 
+	0000 0000 0000 0000 0000 0000 0000 0000
133 
+	0000 0000 0000 0000 0000 0000 0000 0000
134 
+	0000 0000 0021 010f 0407 0812 2e5c de3e
135 
+	4000 c060 f0f0 f878 0000 0000 0000 0000
136 
+	0000 0000 0000 0000 0000 502d 0200 157f
137 
+	0040 a000 0000 e0f8 0000 0000 0000 0000
138 
+	060f 0f1f 1737 336b a01c e3f0 feff ffff
139 
+	0000 407a 05c0 f0fc 0000 0000 807c 0300
140 
+	0000 0000 0000 a05a 0000 0000 0000 0004
141 
+	0000 0000 0000 030c 0001 0514 53a7 0f3f
142 
+	265c 5df9 f3e7 c7cf fbfd fbfb fbfb fbfb
143 
+	7c7e 7fbf bfff bfff 0000 0090 c0e0 f0f8
144 
+	0101 0101 0001 0020 7fc8 ff1b c6f0 7f78
145 
+	fc5c ec08 b858 30e0 0108 0001 0103 0707
146 
+	6b5b dbdf bbbf bb7f ffff ffff ffff ffff
147 
+	fefe fcfc f9f3 f3f7 6079 fffe fcfc f9f3
148 
+	0540 823f 7fff ffff d02c 03f8 feff ffff
149 
+	3040 800e 3f7f ffff 7f7f 7fff 7f7f 7f7f
150 
+	9fdf 9f9f df9f 9fdf fbfb fbf3 fbfb fbfb
151 
+	efff fff7 fffd ffff fefe ffff ffff ff7f
152 
+	0000 80e0 f0fc ffff 1f02 0000 0001 01e1
153 
+	c000 00a8 b050 590b 0f1f 1e7d 7dff ffff
154 
+	7f7f ffff ffff ffff ffff ffff ffff ffff
155 
+	e7ef cfdf 9f3f 7f3f f3e7 efcf dfbf bf3f
156 
+	ffff ffff ffff ffff fffe fcf8 f0f0 e0c0
157 
+	ffff ffff ffff ffff bfbf bfbf dfdf dfcf
158 
+	9fcf 9fcf dfcf dfcf f7fb fbf7 fbfb fbfb
159 
+	ffff ffff ffff ffff ffd7 f7fd feff ffff
160 
+	ffff ffff 7f9e e8e0 ffff fff5 8000 0001
161 
+	4f47 66a4 7056 4b43 fffe 8001 015f ffff
162 
+	ffbf 1f7f ffff ffff fefe fcfe fdf9 fbfb
163 
+	7fff feff fefe fcfe 7f7f 7f7f ffff ffff
164 
+	ffff fffe fefc f8f8 8183 070f 1f3f 3f7f
165 
+	ffff ffff 7f3f 9f8f efef eff7 f7f7 f7f7
166 
+	dfcf efdf cfff cfef fbfb fbf9 fdfd fbfc
167 
+	ffff fffe f4c0 8000 fffc e080 0000 0000
168 
+	8000 0000 0000 0000 0506 0802 0300 0000
169 
+	4925 2365 a2b2 1191 ffff ffff ff05 0000
170 
+	ffff ffff ff7f 0307 fbfb ffff ffff ffff
171 
+	fcfd fcfe fdfd fdfd ffff ffff ffff ffff
172 
+	f0e0 e1c3 8387 0f1f ffff ffff ffff fffe