RB3 equ 11b DEL1S: acall DEL200 DEL800: acall DEL400 DEL400: acall DEL200 DEL200: acall DEL100 DEL100: push acc mov a,#100 DELAY: acall DEL1MS dec a cjne a,#0,DELAY pop acc ret DEL1MS: push PSW ;schovej puvodni RB orl PSW,#RB3 shl 3 ;nastav Register Bank = 3 mov r7,#0 djnz r7,$ mov r7,#0c6h djnz r7,$ pop PSW ;obnov Register Bank ret del800u: ;2 mov R7, #198 ;1 bagr: nop nop djnz R7,bagr ; 4*198 = 792 nop nop nop RET ; 2 del200u: ; (CALL) 2SC mov R7, #97 ; 1SC del: djnz R7, del ; 2*97 = 194 SC nop RET ; 2CS del5u: ;2SC nop ;1SC RET ;2SC