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:
https://technical.swissmicros.com/decoders/dm42/
You can then copy/paste the listing and post it in "code" tags.
Spationaute
Posts: 10 Joined: Fri Dec 28, 2018 8:01 pm
Post
by Spationaute » Thu Jan 10, 2019 3:46 pm
Hi, I was curious to see what was the code for each caracters. So I did a small program that printe all of them. I had to put few exceptions for "non-printable" caraters... An (partial) image of the results is at the end of this post (I might send a video also). Here is the code:
Code: Select all
00 { 176-Byte Prgm }
01▸LBL "CHAR"
02 CLA
03 1.25501
04 STO 01
05▸LBL 01
06 32
07 XTOA
08 RCL 01
09 10
10 X<>Y
11 X<Y?
12 XEQ "PZ"
13 100
14 X<>Y
15 X<Y?
16 XEQ "PZ"
17 RCL 01
18 AIP
19 IP
20 4
21 X<>Y
22 X=Y?
23 GTO "NPRT"
24 RCL 01
25 IP
26 10
27 X<>Y
28 X=Y?
29 GTO "NPRT"
30 RCL 01
31 IP
32 27
33 X<>Y
34 X=Y?
35 GTO "NPRT"
36 RCL 01
37 IP
38 256
39 X<>Y
40 X=Y?
41 GTO "NPRT"
42 32
43 XTOA
44 RCL 01
45 IP
46 XTOA
47 RCL 01
48 IP
49 4
50 MOD
51 X=0?
52 PRA
53 X=0?
54 CLA
55 RCL 01
56 IP
57 255
58 X=Y?
59 PRA
60 ISG 01
61 GTO 01
62▸LBL "PZ"
63 48
64 XTOA
65 RTN
66▸LBL "NPRT"
67 32
68 XTOA
69 32
70 XTOA
71 RCL 01
72 IP
73 4
74 X=Y?
75 PRA
76 X=Y?
77 CLA
78 RCL 01
79 1
80 +
81 STO 01
82 GTO 01
83 END
pauli
Posts: 253 Joined: Tue May 02, 2017 10:11 am
Location: Australia
Post
by pauli » Thu Jan 24, 2019 12:46 pm
For those who don't want to type this in.
Pauli
Attachments
char.raw.zip
(281 Bytes) Downloaded 263 times
pauli
Posts: 253 Joined: Tue May 02, 2017 10:11 am
Location: Australia
Post
by pauli » Thu Jan 24, 2019 12:49 pm
Inspired by this program, I've done one that prints the characters out in a 16 by 16 grid. Attached.
Pauli
Attachments
cset.raw.zip
(274 Bytes) Downloaded 260 times
Spationaute
Posts: 10 Joined: Fri Dec 28, 2018 8:01 pm
Post
by Spationaute » Fri Jan 25, 2019 2:24 am
Hey, thanks Pauli!
Here an updated version that print the extended characters, if you are lucky enough to have a HP82240
B !
It is a bit sad, it doesn't work with free42... You need your DM42 and the physical printer.
Here the code:
Code: Select all
00 { 217-Byte Prgm }
01▸LBL "CHAR"
02 CLA
03 27
04 XTOA
05 249
06 XTOA
07 PRA
08 "Table for "
09 ├"HP82240B"
10 ├":"
11 PRA
12 ADV
13 CLA
14 1.25501
15 STO 01
16▸LBL 01
17 32
18 XTOA
19 RCL 01
20 10
21 X<>Y
22 X<Y?
23 XEQ "PZ"
24 100
25 X<>Y
26 X<Y?
27 XEQ "PZ"
28 RCL 01
29 AIP
30 IP
31 4
32 X<>Y
33 X=Y?
34 GTO "NPRT"
35 RCL 01
36 IP
37 10
38 X<>Y
39 X=Y?
40 GTO "NPRT"
41 RCL 01
42 IP
43 27
44 X<>Y
45 X=Y?
46 GTO "NPRT"
47 RCL 01
48 IP
49 256
50 X<>Y
51 X=Y?
52 GTO "NPRT"
53 32
54 XTOA
55 RCL 01
56 IP
57 XTOA
58 RCL 01
59 IP
60 4
61 MOD
62 X=0?
63 PRA
64 X=0?
65 CLA
66 RCL 01
67 IP
68 255
69 X=Y?
70 PRA
71 ISG 01
72 GTO 01
73▸LBL "PZ"
74 48
75 XTOA
76 RTN
77▸LBL "NPRT"
78 32
79 XTOA
80 32
81 XTOA
82 RCL 01
83 IP
84 4
85 X=Y?
86 PRA
87 X=Y?
88 CLA
89 RCL 01
90 1
91 +
92 STO 01
93 GTO 01
94 END
A picture:
And the file (for Pauli!):
https://stellaire.nyc3.digitaloceanspac ... _print.raw
pauli
Posts: 253 Joined: Tue May 02, 2017 10:11 am
Location: Australia
Post
by pauli » Fri Jan 25, 2019 4:32 am
Scanned output from both programs attached.
Attachments
cset.png (74.97 KiB) Viewed 5177 times
chars.png (47.05 KiB) Viewed 5177 times
pauli
Posts: 253 Joined: Tue May 02, 2017 10:11 am
Location: Australia
Post
by pauli » Fri Jan 25, 2019 4:33 am
I just noticed that the original program omits the divide character (#0).
Pauli
Spationaute
Posts: 10 Joined: Fri Dec 28, 2018 8:01 pm
Post
by Spationaute » Fri Jan 25, 2019 1:42 pm
I indeed forgot 0x00... I just assumed it was the NULL character!