Small program to print all XTOA caracters on the printer

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
Spationaute
Posts: 5
Joined: Fri Dec 28, 2018 7:01 pm

Small program to print all XTOA caracters on the printer

Post by Spationaute » Thu Jan 10, 2019 2: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
Image

pauli
Posts: 52
Joined: Tue May 02, 2017 8:11 am
Location: Australia

Re: Small program to print all XTOA caracters on the printer

Post by pauli » Thu Jan 24, 2019 11:46 am

For those who don't want to type this in.

Pauli
Attachments
char.raw.zip
(281 Bytes) Downloaded 27 times

pauli
Posts: 52
Joined: Tue May 02, 2017 8:11 am
Location: Australia

Re: Small program to print all XTOA caracters on the printer

Post by pauli » Thu Jan 24, 2019 11:49 am

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 28 times

Spationaute
Posts: 5
Joined: Fri Dec 28, 2018 7:01 pm

Re: Small program to print all XTOA caracters on the printer

Post by Spationaute » Fri Jan 25, 2019 1:24 am

Hey, thanks Pauli!
Here an updated version that print the extended characters, if you are lucky enough to have a HP82240B!
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:
Image

And the file (for Pauli!):
https://stellaire.nyc3.digitaloceanspac ... _print.raw

Spationaute
Posts: 5
Joined: Fri Dec 28, 2018 7:01 pm

Re: Small program to print all XTOA caracters on the printer

Post by Spationaute » Fri Jan 25, 2019 1:31 am

Pauli's version with extended char:
Image

pauli
Posts: 52
Joined: Tue May 02, 2017 8:11 am
Location: Australia

Re: Small program to print all XTOA caracters on the printer

Post by pauli » Fri Jan 25, 2019 3:32 am

Scanned output from both programs attached.
Attachments
cset.png
cset.png (74.97 KiB) Viewed 690 times
chars.png
chars.png (47.05 KiB) Viewed 690 times

pauli
Posts: 52
Joined: Tue May 02, 2017 8:11 am
Location: Australia

Re: Small program to print all XTOA caracters on the printer

Post by pauli » Fri Jan 25, 2019 3:33 am

I just noticed that the original program omits the divide character (#0).

Pauli

Spationaute
Posts: 5
Joined: Fri Dec 28, 2018 7:01 pm

Re: Small program to print all XTOA caracters on the printer

Post by Spationaute » Fri Jan 25, 2019 12:42 pm

I indeed forgot 0x00... I just assumed it was the NULL character!

Post Reply