10 REM Program S1DEB1 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 Riporta su PORT A il codice esadecimale del tasto premuto da tastiera
40 REM Riporta su PORT C il valore letto su PORT B
50 REM By Bartolai Massimiliano 20.12.90
60 REM PORT A E PORT C IN OUTPUT
70 OUT 84,255
80 OUT 86,255
90 REM PORT B IN INPUT
100 OUT 85,0
110 REM INIZIALIZZAZIONE PORT A CON LED SPENTI
120 OUT 80,255
130 REM LETTURA VALORE INSERITO DA TASTIERA
140 A$=INCHAR$(0)
150 A=ASC(A$)
160 REM CONTROLLO SE IL VALORE E'UN NUMERO (0-9)
170 IF (A<48) OR (A>57) THEN GOTO 200
180 GOTO 220
190 REM CONTROLLO SE IL VALORE E' UNA LETTERA (A-F)
200 IF (A<65) OR (A>70) THEN GOTO 140
210 GOTO 240
220 K=A-48
230 GOTO 250
240 K=A-55
250 R=255-K
260 OUT 80,R
270 REM SI ASSEGNA A PORT C IL DATO LETTO SU PORT B
280 D=INP(31)
290 OUT 85,255
300 F=255-D
310 OUT 81,F
320 REM END
R
270 REM SI ASSEGNA A PORT C IL DATO LETTO SU PORT B
280 D=INP(31)
29