Page 1 of 1

Small program to print all XTOA caracters on the printer

Posted: Thu Jan 10, 2019 2:46 pm
by Spationaute
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

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

Posted: Thu Jan 24, 2019 11:46 am
by pauli
For those who don't want to type this in.

Pauli

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

Posted: Thu Jan 24, 2019 11:49 am
by pauli
Inspired by this program, I've done one that prints the characters out in a 16 by 16 grid. Attached.

Pauli

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

Posted: Fri Jan 25, 2019 1:24 am
by Spationaute
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

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

Posted: Fri Jan 25, 2019 1:31 am
by Spationaute
Pauli's version with extended char:
Image

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

Posted: Fri Jan 25, 2019 3:32 am
by pauli
Scanned output from both programs attached.

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

Posted: Fri Jan 25, 2019 3:33 am
by pauli
I just noticed that the original program omits the divide character (#0).

Pauli

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

Posted: Fri Jan 25, 2019 12:42 pm
by Spationaute
I indeed forgot 0x00... I just assumed it was the NULL character!