10 REM ****************************************************************** 11 REM * Programa S1DEB1 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 * 15 REM * Program S1DEB1.B rel. 1.0 by Vecchiattini Maurizio. * 16 REM * Riporta sul port A, il codice esadecimale del tasto * 17 REM * premuto da tastiera. * 18 REM ****************************************************************** 80 REM Inizializzazione del PIO 90 OUT 6,207 \ REM Si inizializza il port A in modo 3 (bit input-output) 91 OUT 6,0 \ REM Il port A e` programmato in output 92 OUT 7,207 \ REM Si inizializza il port B in modo 3 (bit input-output) 93 OUT 7,0 \ REM Il port B e` programmato in output 110 REM Main Program 115 OUT 5,255 120 PRINT "INSERIRE IL CARATTERE ASCHII" 125 A$=INCHAR$(0) 130 B=ASC(A$) 140 IF B>=65 AND B<=70 THEN 160 \ REM CONTROLLO SE E` UNA LETTERA 150 GOTO 170 160 B=B-55 \ REM TRASFORMA LA LETTERA NEL CORRISPONDENTE VALORE DECIMALE 161 GOTO 180 170 IF B>=48 AND B<=57 THEN B=B-48 \ REM CONTROLLO SE E` UN NUMERO 180 IF B>15 THEN 125 \ REM SI CONTROLLA SE IL DATO E` UN CODICE ASCHII 185 B=255-B 190 OUT 4,B \ REM SCRITTURA SUL PORT A DEL DATO 200 GOTO 125 210 END