$MOD52 $TITLE(BITE SIGNED MULTIPLY) $PAGEWIDTH(132) $DEBUG $OBJECT $NOPAGING org 00 led equ P1.0 led1 equ P1.1 led2 equ P1.2 led3 equ P1.3 led4 equ P1.4 led5 equ P1.5 led6 equ P1.6 led7 equ P1.7 ;---------------------------- smycka: acall nastav jnb P3.7,blik1 ;testovani 1tlacitka jnb P3.5,blik2 ;testovani 2tlacitka jnb P3.4,blik3 ;testovani 3tlacitka sjmp smycka blik1: acall blik11 ;zavolani podprogramu sjmp smycka blik2: acall blik22 sjmp smycka blik3: acall blik33 sjmp smycka blik11: acall nastav acall pockat1 clr led acall pockat1 setb led acall pockat1 clr led1 acall pockat1 setb led1 acall pockat1 clr led2 acall pockat1 setb led2 acall pockat1 clr led3 acall pockat1 setb led3 acall pockat1 clr led4 acall pockat1 setb led4 acall pockat1 clr led5 acall pockat1 setb led5 acall pockat1 clr led6 acall pockat1 setb led6 acall pockat1 clr led7 acall pockat1 setb led7 acall pockat1 clr led6 acall pockat1 setb led6 acall pockat1 clr led5 acall pockat1 setb led5 acall pockat1 clr led4 acall pockat1 setb led4 acall pockat1 clr led3 acall pockat1 setb led3 acall pockat1 clr led2 acall pockat1 setb led2 acall pockat1 clr led1 acall pockat1 setb led1 ret blik22: acall nastav clr led3 clr led2 clr led1 clr led acall pockat1 setb led3 setb led2 setb led1 setb led acall pockat1 clr led3 clr led2 clr led1 clr led acall pockat1 setb led3 setb led2 setb led1 setb led acall pockat1 acall pockat1 acall pockat1 acall pockat1 acall pockat1 acall pockat1 acall pockat1 clr led7 clr led6 clr led5 clr led4 acall pockat1 setb led7 setb led6 setb led5 setb led4 acall pockat1 clr led7 clr led6 clr led5 clr led4 acall pockat1 setb led7 setb led6 setb led5 setb led4 acall pockat1 acall pockat1 acall pockat1 acall pockat1 acall pockat1 acall pockat1 ret blik33: acall nastav acall pockat clr led clr led7 acall pockat setb led setb led7 clr led1 clr led6 acall pockat setb led1 setb led6 clr led2 clr led5 acall pockat setb led2 setb led5 clr led3 clr led4 acall pockat setb led3 setb led4 clr led2 clr led5 acall pockat setb led2 setb led5 clr led1 clr led6 acall pockat setb led1 setb led6 ret blik44: ljmp smycka pockat: mov R3,#100 cas_1: mov R2,#150 cas_2: djnz R2,cas_2 djnz R3,cas_1 ret pockat1:mov R3,#100 cas_1a: mov R2,#50 cas_2a: djnz R2,cas_2a djnz R3,cas_1a ret nastav: setb led setb led1 setb led2 setb led3 setb led4 setb led5 setb led6 setb led7 ret end