10 REM Program S1DEB5 Rel.1.0 per GPC 011 della GRIFO(R)
20 REM Via Dante 1 40016 S.Giorgio di Piano (BOLOGNA) Tel.(051) 89.20.52
30 REM Programma che inizializza Port A in output,Port B e C in input
40 REM e riporta sul Port A il negato di C se il bit 0 di B e'0
50 REM e si riporta C negli altri casi.
60 REM By Bartolai Massimiliano  21-12-90
70 REM INIZIALIZZAZIONE PORT A IN OUTPUT
80 OUT 84,255
90 REM INIZIALIZZAZIONE PORT B E C IN INPUT
100 OUT 85,0
110 OUT 86,0
120 REM LETTURA VALORE PRESENTE SU PORT B E CONTROLLO PARITA'
130 A=INP(31)
140 V=INT(A/2)
150 K=V*2
160 IF K<>A THEN GOTO 210
170 A=INP(81)
180 T=255-A
190 OUT 80,T
200 GOTO 230
210 A=INP(81)
220 OUT 80,A
230 REM END

160 IF K<>A THEN GOTO 210
170 A=INP(81)
180 T=255