list p=16F84A               ; dyrektywa procesora dla którego pisany jest program

                                ; deklarowanie stałych za pomocą dyrektyw kompilatora equ
status equ 3                    ; deklaracja zmiennej 'status' na 3 adresie w pamięci danych
porta equ 5
portb equ 6
trisa equ 5
trisb equ 6

    org 00                      ; adres absolutny programu, od tego miejsca zaczyna się program w pamięci

start
    bsf status, 5               ; wybór banku-1 poprzez zmianę piątego bitu RP0 na 1
    movlw B'00000011'           ; przypisanie do akumulatora wartości '00000011', bity 0 i 1
    movwf trisa                 ; ustawienie ostatnich 2 bitów portu A na pozycję wyjściową

    movlw 0                     ; przypisanie do akumulatora wartości 0
    movwf trisb                 ; ustawienie wszystkich bitów portu B na pozycję wyjściową

    bcf status, 5               ; wybór banku-0 poprzez zmianę piątego bitu RP0 na 0
    clrf porta                  ; inicjalizacja portu A poprzez wyzerowanie jego bitów
    clrf portb                  ; inicjalizacja portu B poprzez wyzerowanie jego bitów

loop
    movf porta, 0               ; przesłanie zawartości portu A do akumulatora
    movwf portb                 ; przesłanie zawartości akumulatora na port B
    goto loop                   ; skok do etykiety loop, pętla
    end                         ; zakonczenie działania programu