10 REM ******************************************************************
11 REM *    Programa S1DEB4 Rel.1.0       per GPC80 e DEB01             *
12 REM *    GRIFO (R) Via Dante 1         40016 S.Giorgio di Piano (BO) *
13 REM *    Tel.(051)89.20.52              Fax.(051)89.36.61            *
14 REM * Program S1DEB4.B rel. 1.0 by Vecchiattini Maurizio             *
15 REM * Riporta sul port A, l' immagine del dip-switch presente        *
16 REM * sulla GPC80                                                    *
17 REM ******************************************************************
40 REM ***** Inizializzazione del PIO *****
100 OUT 6,207 \ REM Si inizializza il port A in modo 3 (bit input/output)
101 OUT 6,0 \ REM Il port A viene inizializzato in output
105 OUT 7,207 \ REM Si inizializza il port B in modo 3 (bit input/output)
110 OUT 7,255 \ REM Il port A viene inizializzato in input
120 REM ***** Main Program *****
140 B=INP(31) \ REM Lettura dello stato del dip-switch
150 OUT 4,B \ REM Scrittura sul port A dello stato del dip-switch
170 GOTO 140