1. ;       - P5.0=L - z opóźnieniami
2. ;-------------------------------------------------------------------------------
3. include         REG515.INC              ;Tabela predefinicyjna SFR.
4. ;-------------------------------------------------------------------------------
5.                                                
6. code    at 1000h                                ;organizacja od adresu 1000h
7.  
8.                 ljmp    start                   ;skok do poczatku programu
9.  
10. code    at 2000h
11.  
12. start:
13.        
14.        
15.         mov R3, #00h
16.                 mov R2, #00h
17.                         mov R4, #00h
18.         mov B, #00h
19.         mov P4, #00h
20.         jmp petla
21.        
22. petla:
23.        
24.         jnb P5.3, change
25.         jnb P5.2, reset
26.         ;jnb B, stop
27.         jmp petla
28.        
29. reset:
30.         mov tmod, #00h
31.         clr TR0
32.         clr ET0
33.         clr EAL
34.         jmp start
35.        
36. startTimer:
37.         mov tmod, #01h
38.         setb TR0
39.         setb ET0
40.         setb EAL
41.         mov TH0, #3Ch
42.         mov TL0, #0AFh
43.         jmp petla
44.        
45. opozn:
46.        
47.         djnz R0, opozn
48.         djnz R1, opozn
49.         RET    
50.        
51. stopTimer:
52.         mov a, R2
53.         rl a
54.         rl a
55.         rl a
56.         rl a
57.         add a, R4
58.         mov P4, a