Post Reply 
Two Questions About 80-Col HP-IL Video
06-18-2024, 10:36 AM (This post was last modified: 06-18-2024 10:53 AM by toml_12953.)
Post: #1
Two Questions About 80-Col HP-IL Video
I was lucky enough to grab an HP-92198 80-Column Interface on eBay for my HP-71B. On reading the manual, however, I have a couple questions.

1. I'm trying to find the best way to print a word in reverse video. I've written a function which works but I'd like to know if there's a better, faster way:

Code:
DEF FNR$(X$)
FOR I9=1 TO LEN(X$)
X$[I9,I9]=CHR$(NUM(X$[I9,I9])+128)
NEXT I9
FNR$=X$
END DEF

2. The manual says the result of the memory test can be found in the status word but I don't see a way to read the status word. What am I missing?

Tom L
Cui bono?
Find all posts by this user
Quote this message in a reply
06-18-2024, 12:11 PM (This post was last modified: 06-18-2024 12:16 PM by J-F Garnier.)
Post: #2
RE: Two Questions About 80-Col HP-IL Video
Your code looks fine.
A small improvement, replace
X$[I9,I9]=CHR$(NUM(X$[I9,I9])+128)
with
X$[I9,I9]=CHR$(BINIOR(NUM(X$[I9,I9]),128))
in case X$ already holds a character >= 128

If you want to be faster, you can use the HGL$ function, present in the LEX3421 from the Data Acquisition Pac.
A standalone HGLLEX file is described here (slides 5, 6).
The name HGL$ (Highlight) comes from the equivalent function of the HP Series 80.

J-F
Visit this user's website Find all posts by this user
Quote this message in a reply
06-18-2024, 02:06 PM
Post: #3
RE: Two Questions About 80-Col HP-IL Video
(06-18-2024 12:11 PM)J-F Garnier Wrote:  Your code looks fine.
A small improvement, replace
X$[I9,I9]=CHR$(NUM(X$[I9,I9])+128)
with
X$[I9,I9]=CHR$(BINIOR(NUM(X$[I9,I9]),128))
in case X$ already holds a character >= 128

If you want to be faster, you can use the HGL$ function, present in the LEX3421 from the Data Acquisition Pac.
A standalone HGLLEX file is described here (slides 5, 6).
The name HGL$ (Highlight) comes from the equivalent function of the HP Series 80.

J-F

Thanks! I'll use BINIOR but I have no way of getting LEX files to the 71.

Tom L
Cui bono?
Find all posts by this user
Quote this message in a reply
06-19-2024, 02:06 AM
Post: #4
RE: Two Questions About 80-Col HP-IL Video
(06-18-2024 02:06 PM)toml_12953 Wrote:  ... I have no way of getting LEX files to the 71.

In the old days we used a BASIC program that would create the LEX file from a HEX dump.

The listing for MAKELEX can be found here:
https://www.hpmuseum.org/cgi-sys/cgiwrap...read=29678
Find all posts by this user
Quote this message in a reply
06-19-2024, 01:08 PM
Post: #5
RE: Two Questions About 80-Col HP-IL Video
(06-18-2024 02:06 PM)toml_12953 Wrote:  Thanks! I'll use BINIOR but I have no way of getting LEX files to the 71.

Hi Tom,

Just as Dave suggested, there is the MAKELEX way of entering LEX-files without any additional accessories.

Check e.g. page 120 in the book HP-71 Basic Made Easy.

The code for HGLLEX is provided below - with the disclaimer that I have not tested it myself!

Cheers,
Thomas

Code:
HGLLEX    ID#FE    84 bytes

000: 8474 C4C4 5485 0202  F6
001: 802E 0000 0000 0000  E2
002: 9A00 0EF1 0100 0000  D5
003: F710 0000 0000 0000  A7
004: 0810 00F7 8474 C442  DD
005: 101F F841 2A4E 94AC  5E
006: 18FC 09E0 04AC 0AC2  DA
007: 9785 0B46 17F9 4E44  FE
008: 1371 3510 8AF0 8F83  FC
009: DB08 1CBF 0BF0 BF03  71
010: 1081 C117 1A5C 4F01  87
011: 4B0E 6E14 95CE 1181  B2
012: 358D C32F 0          14

[35/45/55/65/67/97/80 21/25/29C 31E/32E/33E|C/34C/38E 41C|CV|CX 71B 10C/11C/12C/15C|CE/16C 32S|SII/42S 28C|S 48GX/49G/50G 35S 41X]
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 2 Guest(s)