Paralel Portta Yürüyen Işık

Assembler Olarak :

MOVLW B'00000001 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'00000010 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'00000100 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'00001000 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'00010000 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'00100000 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'01000000; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

MOVLW B'10000000 ; Aküye Sabit Bir Sayı Yüklenir.
MOVWF PORTB ; Aküde ki sayı Port B ye yüklenir.
CALL BEKLET_100MS; 0,1 sn bekletme süresi

GOTO PROGRAM ; Algoritma Tekrarlanır.
END.

PASCAL DİLİNDE ;

USES CRT ; (ekranda göster)
Begin (başla)
Repeat (tekrarla)
Port[$378]:=1;
Delay(1600) ; (Led in geçiş Süresi)
Port[$378]:=2;
Delay(1400);
Port[$378]:=4;
Delay(1200);
Port[$378]:=8;
Delay(1000);
Port[$378]:=16;
Delay(800);
Port[$378]:32;
Delay(650);
Port[$378]:=64;
Delay(450);
Port[$378]:=128;
Until Keypressed; ( Başa Dön)
End.