WAIT100 EQU 8112h            //czeka 100ms*A
 WAIT EQU 8110h               //czeka 1 ms*A
 LJMP START
 ORG 100H

 START:






MRUGAJ:
    CPL DIODA//ZEROWANIE BITU (BEZ PITU PITU)
    CPL BUZZER
    MOV A, #10
    LCALL WAIT100
    CPL DIODA
    CPL BUZZER
    MOV A, #10
    LCALL WAIT100
    LJMP MRUGAJ

END