Two Questions About 80-Col HP-IL Video

[toml_12953]

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?

[J-F Garnier]

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

[toml_12953]

(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.

[Dave Frederickson]

(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

[ThomasF]

(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