10 REM ******************************************************************
11 REM *    Programa S1DEB8 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 S1DEB8.B rel. 1.0 by Vecchiattini Maurizio             *
15 REM * Effettua un loop di conteggio, e lo visualizza sui LED         *
17 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 ***** REM Reset delle uscite *****
120 OUT 4,255 \ REM Reset port A
130 OUT 5,255 \ REM Reset port B
140 REM ***** Main Program *****
143 X=0
144 Z=1
145 A=255-Z
150 OUT 4,A
155 FOR I=1 TO 500
156 NEXT I
160 Z=Z+1
170 IF Z=256 THEN 190
180 GOTO 145
185 REM ***** Inizio gestione del port B *****
190 OUT 4,255
195 X=X+1
200 C=255-X
210 OUT 5,C
230 IF X=255 THEN 250
240 GOTO 144
250 OUT 5,255
255 OUT 4,255
260 GOTO 143