5 CLS
10 bas = &H300
20 ppi1a = bas + 0: ppi1b = bas + 1: ppi1c = bas + 2: ppi1ctr = bas + 3
30 ppi2a = bas + 4: ppi2b = bas + 5: ppi2c = bas + 6: ppi2ctr = bas + 7
40 PRINT "Prom 74S287 reader. Assumes 8255 PPI @ "; HEX$(ppi2a); "."
50 INPUT "Filename: ", flnam$
100 REM config
110 OUT ppi1ctr, 128: OUT ppi2ctr, 130
150 OPEN "flnam$" FOR OUTPUT AS #1
200 FOR x = 0 TO 255 STEP 16
210 PRINT #1, HEX$(x); ": ";
215 PRINT HEX$(x); ": ";
220 FOR y = 0 TO 15
230 adr = x + y
240 OUT ppi2a, adr
250 REM
260 PRINT #1, HEX$(INP(ppi2b) AND 15); " ";
265 PRINT HEX$(INP(ppi2b) AND 15); " ";
270 NEXT y
280 PRINT #1,
285 PRINT
290 NEXT x
300 CLOSE #1