ZADANIE5

 LJMP START
    ORG 100H
    ;poczatek kazdego programu
START:
    LCALL LCD_CLR; PODPROGRAM CZYSZCZACY EKRAN
    ;USTAWIAMY BANK ZEROWY
    CLR RS0; BIT USTAWIA NA WARTOSC ZEROWA
    CLR RS1;  BIT USTAWIA NA WARTOSC ZEROWA
    MOV R7,#0 ; DO REJESTRU 7 WPISZE 0
    ;USTAWIAMY BANK PIERWSZY
    SETB RS0; BIT USTAWIA NA WARTOSC JEDYNKE
    CLR RS1;  BIT USTAWIA NA WARTOSC ZEROWA
    MOV R7,#1
    ;USTAWIAMY BANK DRUGI
    CLR RS0; BIT USTAWIA NA WARTOSC ZEROWA
    SETB RS1;  BIT USTAWIA NA WARTOSC JEDYNKE
    MOV R7,#2
    ;USTAWIAMY BANK TRZECI
    SETB  RS0; BIT USTAWIA NA WARTOSC JEDYNKE
    SETB RS1;  BIT USTAWIA NA WARTOSC JEDYNKE
    MOV R7,#3

    CLR RS0; BIT USTAWIA NA WARTOSC ZEROWA
    CLR RS1;  BIT USTAWIA NA WARTOSC ZEROWA
    LCALL PROGRAM
    SETB RS0; BIT USTAWIA NA WARTOSC JEDYNKE
    CLR RS1;  BIT USTAWIA NA WARTOSC ZEROWA
    LCALL PROGRAM
    CLR RS0; BIT USTAWIA NA WARTOSC ZEROWA
    SETB RS1;  BIT USTAWIA NA WARTOSC JEDYNKE
    LCALL PROGRAM
    SETB  RS0; BIT USTAWIA NA WARTOSC JEDYNKE
    SETB RS1;  BIT USTAWIA NA WARTOSC JEDYNKE
    LCALL PROGRAM

   SJMP START;
    NOP

PROGRAM:
    MOV A ,R7 ;WYSWIELTA TO CO W R7 DO AKUMULATORA
    LCALL WRITE_HEX ;WYPISUJEMY NA EKRAN
    LCALL DELAY_100MS; JEZELI NIE BEDZIE ZADNEGOI OPUZNEINIA TO NIC NIE ZAUWAZYMY
    LCALL LCD_CLR ;CZYSCIWMY EKRAN
    RET