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: 2
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

Post Reply