39 0841 D3 80 out porta
40 0843 D3 81 out portb
41 0845 3E 04 mvi a,4
42 0847 D3 80 out porta
43 0849 4A mov c,d
44 084A CD 82 08 z1: call sec ;временная задержка
45 084D 0D dcr c
46 084E C2 4A 08 jnz z1
47 0851 3E 40 mvi a,64d
48 0853 D3 81 out portb ;включение четвертого двигателя
49 0855 4A mov c,d
50 0856 CD 82 08 z2: call sec ;временная задержка
51 0859 0D dcr c
52 085A C2 56 08 jnz z2
53 085D 3E 44 mvi a,68d
54 085F D3 80 out porta ;включение второго двигателя
55 0861 4A mov c,d
56 0862 CD 82 08 z3: call sec ;временная задержка
57 0865 0D dcr c
58 0866 C2 62 08 jnz z3
59 0869 3E 44 mvi a,68d
60 086B D3 81 out portb ;включение третьего двигателя
61 086D C3 11 08 jmp strt
62 0870 3E 01 regim: mvi a,1 ;подпрограмма смены режима
63 0872 A0 ana b
64 0873 CA 7D 08 jz reg5
65 0876 06 00 mvi b,0
66 0878 16 0A mvi d,10
67 087A C3 81 08 jmp ext
68 087D 06 01 reg5: mvi b,1
69 087F 16 0F mvi d,15
70 0881 C9 ext: ret
71 0882 21 47 9A sec: lxi h,delay ;подпрограмма задержки на одну секунду
72 0885 DB 82 sec1: in portc ;проверка на нажатие клавиши
73 0887 E6 12 ani keycod
74 0889 CA BE 08 jz sec7 ;не было нажатия
75 088C E5 push h ;сохранение регистровой пары
76 088D 1E FE sec2: mvi e,repdr
77 088F DB 82 sec3: in portc ;защита от дребезга при нажатии
78 0891 E6 12 ani keycod
79 0893 CA 8D 08 jz sec2
80 0896 1D dcr e
81 0897 C2 8F 08 jnz sec3
82 089A DB 82 in portc
83 089C 21 C5 08 lxi h,key
84 089F 77 mov m,a ;сохранение кода считанной клавиши в памяти
85 08A0 1E FE sec4: mvi e,repdr
86 08A2 DB 82 sec5: in portc ;защита от дребезга при отпускании
87 08A4 A7 ana a
88 08A5 C2 A0 08 jnz sec4
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.