Pixel Graphic

Contributions to this software library are always welcome. Please ensure that you post program listings rather than .raw files. They give a reasonable idea of what your program does without having to load them into a DM42 and you can also include comments in your code. Check out the following link for a decoder/encoder: http://www.swissmicros.com/dm42/decoder/

You can then copy/paste the listing and post it in "code" tags.
Post Reply
IonX
Posts: 11
Joined: Fri Jun 05, 2020 3:38 am

Pixel Graphic

Post by IonX » Thu Jun 25, 2020 6:40 am

Hi All,

Little program to help building a Pixel graph and display its characters and numbers. I was using the bindata examples from the manual to build my graphics and its was abit tedious to get the number then use XTOA. Then if I wanted to changed it, have to redo everything again. Now I can design it and export it.

So modify the program and hope this re-program helps anyone who needs to build a pixel graph and put into their program.

PGFX.bmp
PGFX.bmp (12.31 KiB) Viewed 243 times
PGFX2.bmp
PGFX2.bmp (12.31 KiB) Viewed 243 times

The way the program work:

1. Pick a column 1-6. Key in your pixel with 0 or 1. Press R/S to STO.
2. Press ↑ Up key to preview and see its character numbers. Press R/S key to advance.
3. Press ENTER to re-use pixel column and pick a new column number and press R↓ key to put into X stack, R/S to STO values in new column.

You can then use the character number displayed to key into your program or use ARCL "a" and ASTO into a new variable or REGS that you required.

Have Fun, DM42.

PGFX.raw
(532 Bytes) Downloaded 14 times

Code: Select all

00 { 529-Byte Prgm }
01▸LBL "PGFX"
02 CLLCD
03 CLA
04 CF 34
05 CF 35
06 0
07 STO "GrMod"

08 "KEY IN PIXEL "
09 ├"DOTS PER "
10 ├"COLUMN 1-6"
11 ├" R/S TO STO"
12 AVIEW
13 STOP
14 "↑ UP KEY TO"
15 ├" PREVIEW"
16 ├"[LF]R/S KEY TO"
17 ├" ADVANCE"
18 AVIEW
19 STOP

20▸LBL 00
21 SIZE 50
22 BINM
23 "1"
24 KEY 1 GTO 01
25 "2"
26 KEY 2 GTO 02
27 "3"
28 KEY 3 GTO 03
29 "4"
30 KEY 4 GTO 04
31 "5"
32 KEY 5 GTO 05
33 "6"
34 KEY 6 GTO 06
35 KEY 7 GTO 07
36 MENU

37▸LBL 01
38 CLA
39 INPUT 01
40 "" " "
41 127
42 RCL 01
43 X≤Y?
44 XEQ 50
45 AIP
46 ├" "
47 ARCL 01
48 AVIEW
49 CLA
50 RCL 01
51 XTOA
52 1
53 110
54 AGRAPH
55 STOP
56 GTO 01

57▸LBL 02
58 CLA
59 INPUT 02
60 "" " "
61 127
62 RCL 02
63 X≤Y?
64 XEQ 50
65 AIP
66 ├" "
67 ARCL 02
68 AVIEW
69 CLA
70 RCL 02
71 XTOA
72 1
73 110
74 AGRAPH
75 STOP
76 GTO 02

77▸LBL 03
78 CLA
79 INPUT 03
80 "" " "
81 127
82 RCL 03
83 X≤Y?
84 XEQ 50
85 AIP
86 ├" "
87 ARCL 03
88 AVIEW
89 CLA
90 RCL 03
91 XTOA
92 1
93 110
94 AGRAPH
95 STOP
96 GTO 03

97▸LBL 04
98 CLA
99 INPUT 04
100 "" " "
101 127
102 RCL 04
103 X≤Y?
104 XEQ 50
105 AIP
106 ├" "
107 ARCL 04
108 AVIEW
109 CLA
110 RCL 04
111 XTOA
112 1
113 110
114 AGRAPH
115 STOP
116 GTO 04

117▸LBL 05
118 CLA
119 INPUT 05
120 "" " "
121 127
122 RCL 05
123 X≤Y?
124 XEQ 50
125 AIP
126 ├" "
127 ARCL 05
128 AVIEW
129 CLA
130 RCL 05
131 XTOA
132 1
133 110
134 AGRAPH
135 STOP
136 GTO 05

137▸LBL 06
138 CLA
139 INPUT 06
140 "" " "
141 127
142 RCL 06
143 X≤Y?
144 XEQ 50
145 AIP
146 ├" "
147 ARCL 06
148 AVIEW
149 CLA
150 RCL 06
151 XTOA
152 1
153 110
154 AGRAPH
155 STOP
156 GTO 06

157▸LBL 07
158 CLLCD
159 CLA
160 RCL 01
161 AIP
162 KEY 1 GTO 07
163 CLA
164 RCL 02
165 AIP
166 KEY 2 GTO 07
167 CLA
168 RCL 03
169 AIP
170 KEY 3 GTO 07
171 CLA
172 RCL 04
173 AIP
174 KEY 4 GTO 07
175 CLA
176 RCL 05
177 AIP
178 KEY 5 GTO 07
179 CLA
180 RCL 06
181 AIP
182 KEY 6 GTO 07
183 MENU
184 PSE
185 XEQ 55
186 1
187 63
188 AGRAPH
189 STOP
190 GTO 00

191▸LBL 50
192 """
193 XTOA
194 ├"" "
195 RTN
196▸LBL 55
197 CLA
198 RCL 01
199 XTOA
200 RCL 02
201 XTOA
202 RCL 03
203 XTOA
204 RCL 04
205 XTOA
206 RCL 05
207 XTOA
208 RCL 06
209 XTOA
210 STO "a"
211 RTN
212 DECM
213 END

Post Reply