Method 3: Bar Code from the 82162 Small HP-IL Thermal Printer
But using the CCD ROM and the HP-IL Development ROM

Back to main page | Email me at: Gene!

The program presented below was written by Gehard Kruse and appeared in the V2N3P23 (April/May/June 1985) CHHU Chronicle. Thanks to Gehard.

Requirements:
1) This program requires the HP-IL Module, the HP-IL 82162 thermal printer and an HP-41CX or HP-41CV with extended functions/memory, the HP-IL Development Module and the CCD Module. (Note: That is all four ports on an HP-41CV and three of the four on an HP-41CX!).

2) Note: The program also requires Black thermal paper. You won't get proper results if you try to use BLUE thermal paper in the HP-41 printer. It also uses LOTS of thermal paper! SIZE should be 021.

Instructions:
1) Put the name (global label) of the program you want to print bar code for into the alpha register.
2) Then just XEQ BCP. Sit back and watch the bar code print.

Program Listing: You need your printer plugged in to be able to key this program into the HP-41.

Line      Instruction
01         LBL "BCP"
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         CF 23
17         9.018
18         STO 03
19         LBL 00
20         SF 22
21         RCL 00
22         A-
23         X <> 00
24         PEEKB
25         STO IND 03
26         ST+ 06
27         DSE 01
28         GTO 01
29         143
30         -
31         X < = 0?
32         97
33         64
34         -
35         X < = 0?
36         34
37         32
38         -
39         X < = 0?
40         3
41         STO 01
42         STO 04
43         LBL 01
44         ISG 03
45         GTO 04
46         LBL 02
47         CF 22
48         RCL 05
49         16
50         MOD
51         LASTX
52         FC? 23
53         ST+ X
54         +
55         ST+ 06
56         STO 07
57         ISG 05
58         CLX
59         RCL 04
60         RCL 01
61         DSE X
62         -
63         RCL 08
64         +
65         STO 08
66         RCL 06
67         +
68         255
69         MOD
70         X = 0?
71         LASTX
72         STO 06
73         RCL 05
74         CLA
75         ARCLI
76         ACA
77         ADV
78         ADV
79         CLA
80         SF 17
81         CLX
82         ACCOL
83         121
84         RCL 03
85         INT
86         +
87         XTOA
88         LASTX
89         DSE X
90         1 E3
91         /
92         9
93         +
94         STO 03
95         3
96         -
97         OUTA
98         LBL 03
99         RCL IND X
100        CLA
101        XTOA
102        SF 25
103        X = 0?
104        ACCOL
105        X NE O?
106        OUTA
107        RDN
108        ISG X
109        GTO 03
110        ADV
111        ADV
112        ADV
113        ADV
114        ADV
115        ADV
116        16
117        RCL 01
118        DSE X
119        *
120        STO 08
121        LBL 04
122        DSE 02
123        GTO 00
124        FS? 22
125        GTO 02
126        LN
127        END

That's it. Hope it's useful!