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 74S288 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 31 STEP 16
205 adr$ = RIGHT$("0" + HEX$(x), 2)
210 PRINT #1, adr$; ": ";
215 PRINT adr$; ": ";
220 FOR y = 0 TO 15
230 adr = x + y
240 OUT ppi2a, adr
250 REM
255 data$ = RIGHT$("0" + HEX$(INP(ppi2b)), 2)
260 PRINT #1, data$; " ";
265 PRINT data$; " ";
270 NEXT y
280 PRINT #1,
285 PRINT
290 NEXT x
300 CLOSE #1