1. ;===============================================================================
2. ; Program demonstracyjny DEMO1
3. ;===============================================================================
4. ; Opis: Rotacja punktu świetlnego (ciemnego) na porcie P4
5. ;       - realizacja w programie głównym
6. ;       - P5.0=H - bez opóźnień
7. ;       - P5.0=L - z opóźnieniami
8. ;-------------------------------------------------------------------------------
9. include         REG515.INC              ;Tabela predefinicyjna SFR.
10. ;-------------------------------------------------------------------------------
11.                                                
12. code    at 1000h                                ;organizacja od adresu 1000h
13.  
14.                 ljmp    start                   ;skok do poczatku programu
15.  
16. code    at 2000h
17.  
18. start:  mov     a,#001h ;wartość początkowa ACC
19.                         mov R2, #00Eh
20.                         mov R0, #000h
21.                         mov R5, #000h
22.                         mov R6, #000h
23.                         mov   B,#10d
24.  
25. timer:          mov TMOD,#01h
26.                         setb TR0
27.                         setb ET0
28.                         setb EAL
29.                         setb IT0
30.                         clr F1
31.  
32. petla:  jnb P5.2,pocz
33.                         jnb P5.1,stop
34.                         jnb P5.0,reset
35.                         ljmp petla                     
36. pocz:           setb F1
37.                         ljmp petla     
38.                        
39. stop:           clr F1
40.                         ljmp petla     
41.                        
42. reset:  mov P4,#000h
43.                         mov r0,#000h
44.                         clr F1
45.                         ljmp petla                     
46.                        
47.  
48.                         ORG 100Bh
49.                         jnb F1,aaa
50.                         djnz R2, aaa
51.                         mov R2,#00Eh   
52.          inc r0
53.          mov a, r0
54.                         mov B,#10d                                             
55.                         DIV aB
56.                         mov r5,B
57.                         mov B, #10d
58.                         DIV aB
59.          mov r6, B
60.          mov B,#16d
61.          mov a, r6
62.                         MUL aB 
63.                         add a,r5
64.               mov p4, a
65.  
66. aaa:            RETI   
67. ;-------------------------------------------------------------------------------       
68.                        
69. END