1 '***** Write data to 7seg. LED lamp *****
2 '
10 'EQU list
11 PIA0=$F4000B
12 PIA9=$F40009
13 BPORT1=$F40009
14 PIA1=$F4000F
15 PIA8=$F4000D
16 CPORT1=$F4000D
20 'Port Initialize
21 POKE PIA0,0,B :'clear CRA register
22 POKE PIA9,_11111111,B :'portA set output mode
23 POKE PIA0,_00000100,B :'portA stand by
24 POKE PIA1,0,B :'clear CRB register
25 POKE PIA8,_11111111,B :'portB set output mode
26 POKE PIA1,_00000100,B :'portB stand by
100 'Main start
110 DAT=FRE(4)+16
120 DAT(0).B=$3F
130 DAT(1).B=$06
140 DAT(2).B=$5B
150 DAT(3).B=$4F
160 DAT(4).B=$66
170 DAT(5).B=$6D
180 FOR I=0 TO 5
190  POKE CPORT1,I,B :'Select column position
200  POKE BPORT1,DAT(I).B,B :'Write segments pattern
201    FOR T=0 TO 100
202    NEXT T
210 NEXT I
220 GOTO 180