Aplicatie: Comanda motorului de curent continuu *********************************************** ****; comanda motorului 1s inainte, 1s stop, 1s inapoi 1800 ORG 1800H 1800 3E FF LD A,0FFH ; programare circuit PIO 1802 D3 83 OUT (83H),A ; mod 3 1804 3C INC A ; A=0 1805 D3 83 OUT (83H),A ; B port de iesire 1807 3E 40 START: LD A,40H ; bit 6 = 1, miscare inainte 1809 D3 81 OUT (81H),A ; trimis la port B 180B CD 24 18 CALL DELAY ; apel procedura intirziere (1 s) 180E AF XOR A ; A=0 180F D3 81 OUT (81H),A ; oprire motor 1811 CD 24 18 CALL DELAY ; repaus 1 s 1814 3E 80 LD A,80H ; bit 7 = 1, miscare inapoi 1816 D3 81 OUT (81H),A 1818 CD 24 18 CALL DELAY ; timp de 1 s 181B AF XOR A ; A=0 181C D3 81 OUT (81H),A ; oprire motor 181E CD 24 18 CALL DELAY ; repaus 1 s 1821 C3 07 18 JP START ; reia ciclul 1824 2E 02 DELAY: LD L,2 1826 01 FF FF LOOP2: LD BC,0FFFFH ; aproximativ 1/2 s 1829 0D LOOP1: DEC C 182A C2 29 18 JP NZ,LOOP1 ; repeta pina C=0 182D 05 DEC B 182E C2 29 18 JP NZ,LOOP1 ; repeta pina B=0 1831 2D DEC L 1832 C2 26 18 JP NZ,LOOP2 ; intirzie inca 1/2 s 1835 C9 RET ; intoarcere in program END