Bar Code from the HP-2225B Thinkjet Printer #2 - w/CCD Module

Back to main page | Email me at: Gene!


This program is taken from the V2N3P23 (April/May/June 1985) issue of the CHHU Chronicle and was written by Gehard Kruse. Thanks to Gehard!

I have modified this program to eliminate the need to construct alpha text lines synthetically. It increases the byte count of this program, but is much easier to key in.

Requirements:
1) This program requires the HP-IL Module, the HP-IL 2225B thinkjet printer, an HP-41CX or an HP-41CV with X-Functions/Memory, and the CCD Module.

Instructions: Just put the name of the program to print bar code for into alpha an XEQ "PBC2". Sit back and watch the bar code print out.


Program Listing: .
Line      Instruction
01         LBL "PBC2"
02         ALENG
03         X = 0?
04         GETAS
05         CLRG
06         PHD
07         STO 00
08         1
09         PPLNG
10         STO 02
11         -
12         A+B
13         PEEKB
14         6
15         bS?
16         FC 23
17         9.018
18         STO 03
19         PRA
20         27
21         XTOA
22         42
23         XTOA
24         114
25         XTOA
26         55
27         XTOA
28         56
29         XTOA
30         52
31         XTOA
32         83
33         XTOA
34         OUTA
35         CLA
36         128
37         XTOA
38         27
39         CRFLAS
40         LBL 00
41         SF 22
42         RCL 00
43         A-
44         X <> 00
45         PEEKB
46         STO IND 03
47         ST+ 06
48         DSE 01
49         GTO 01
50         143
51         -
52         X < = 0?
53         97
54         64
55         -
56         X < = 0?
57         34
58         32
59         -
60         X < = 0?
61         3
62         STO 01
63         STO 04
64         LBL 01
65         ISG 03
66         GTO 11
67         LBL 02
68         RCL 05
69         16
70         MOD
71         LASTX
72         FC? 23
73         ST+ X
74         +
75         ST+ 06
76         STO 07
77         ISG 05
78         CLX
79         RCL 04
80         RCL 01
81         DSE X
82         -
83         RCL 08
84         +
85         STO 08
86         RCL 06
87         +
88         255
89         MOD
90         X = 0?
91         LASTX
92         STO 06
93         RCL 03
94         INT
95         DSE X
96         1 E3
97         /
98         9
99         +
100        STO 03
101        3
102        -
103        CLA
104        RCL 05
105        CHS
106        ARCLI
107        ->"-"
108        PRA
109        CLA
110        112
111        XTOA
112        XTOA
113        RDN
114        LBL 03
115        X <> Y
116        RCL IND X
117        7
118        CHS
119        LBL 04
120        bC?
121        XEQ 07
122        LASTX
123        bS?
124        XEQ 08
125        LASTX
126        ISG X
127        GTO 04
128        APPCHR
129        CLA
130        RDN
131        ISG Y
132        GTO 03
133        XEQ 08
134        XEQ 07
135        CF 22
136        APPCHR
137        26
138        LBL 05
139        RCLPT
140        1 E3
141        *
142        CLA
143        27
144        XTOA
145        RDN
146        42
147        XTOA
148        RDN
149        98
150        XTOA
151        RDN
152        ARCL X
153        ->"W"
154        SF 17
155        OUTA
156        CLX
157        SEEKPT
158        LBL 06
159        GETREC
160        OUTA
161        FS? 17
162        GTO 06
163        X <> Y
164        DSE X
165        GTO 05
166        6
167        GTO 10
168        LBL 07
169        FS? 22
170        GTO 12
171        7
172        XTOA
173        RDN
174        CF 22
175        RTN
176        LBL 12
177        112
178        XTOA
179        RDN
180        RTN
181        LBL 08
182        FC?C 22
183        GTO 09
184        127
185        XTOA
186        RDN
187        RTN
188        LBL 09
189        7
190        XTOA
191        RDN
192        240
193        XTOA
194        RDN
195        SF 22
196        RTN
197        LBL 10
198        SF 17
199        CLA
200        27
201        XTOA
202        RDN
203        42
204        XTOA
205        RDN
206        98
207        XTOA
208        RDN
209        49
210        XTOA
211        RDN
212        87
213        XTOA
214        RDN
215        OUTA
216        CF 17
217        CLA
218        128
219        XTOA
220        RDN
221        ACA
222        DSE X
223        GTO 10
224        CLFL
225        16
226        RCL 01
227        DSE X
228        *
229        STO 08
230        LBL 11
231        DSE 02
232        GTO 00
233        FS? 22
234        GTO 02
235        PURFL
236        CLA
237        27
238        XTOA
239        42
240        RDN
241        114
242        XTOA
243        RDN
244        66
245        XTOA
246        RDN
247        OUTA
248        BEEP
249        END

That's it. Hope it's useful!
Visitors since 8/4/97