LOOP:
    MOV     DPTR,#TEXT1
    LCALL   WRITE_TEXT
    MOV     A,#10
    ACALL   TIME_N100

    MOV     DPTR,#TEXT2
    LCALL   WRITE_TEXT
    MOV     A,#10
    ACALL   TIME_N100
    SJMP    LOOP

TIME_N100:
    PUSH    ACC     ;przechowaj na stosie
                ;licznik zewn�trzny
    MOV A,#200      ;zacznij odlicza� 100ms
TIME_100:           ;odliczanie 200 * 0.5ms
    PUSH    ACC         ;2 cykle
    MOV A,#226          ;2 cykle
    DJNZ    ACC,$           ;226*2=452 cykle
    POP ACC         ;2 cykle
    DJNZ    ACC,TIME_100        ;2 cykle
                ;razem 460 cykli=0.5ms

    POP ACC     ;odtw�rz licznik
    CPL P1.7
    DJNZ    ACC,TIME_N100 ;odlicz N*100ms
    RET

TEXT1:
    DB  'VISTULA',0
TEXT2:
    DB  'UCZELNIA',0