ICS Advent ADIO1600 Series Product Manual page 40

10 BASEADDR = &H300
20 OUT BASEADDR+&H13, &H98
30 X=INP(BASEADDR+ &H10):Y=INP(BASEADDR+&H12)
40 PRINT X;Y
50 OUT BASEADDR+&H11,255
60 OUT BASEADDR+&H12,15
'READ PORTS A,C
'PRINT THE VALUES
'TURN OFF PORT B 'RELAYS
'TURN ON 4 BITS OF C