Приложение к

(обязательное)

Пример оформления листинга управляющей программы

###############################################################

# #

# Micro Series 8051 Assembler V1.80/MD2 21/Nov/07 09:37:56 #

# #

# Source = timer.asm #

# List = timer.lst #

# Object = timer.r03 #

# Options = #

# #

# (c) Copyright IAR Systems 1985 #

################################################################

;Таймер обеспечивает включение исполнительного реле через линию Р3.7 на время до одних суток с индикацией времени окончания процесса в часах, минутах и секундах с помощью портов Р0, Р1 и Р2. Включение реле реализуется с помощью линии Р3.0 после установки времени задержки с помощью линий Т1 и Т0 этого порта

1 0000 org 0

2 0000 8059 sjmp main ;переход к основной

3 ;программе

4 001B org 1bh ;вектор прерывания по

5 ;переполнению Т/С1

6 001B D83D djnz r0,m3 ;организация

7 001D 7864 mov r0,#100 ;секундной

8 001F D939 djnz r1,m3 ;задержки

9 0021 7964 mov r1,#100

10 0023 30B410 jnb t0,m1 ;коррекция минут

11 0026 30B51A jnb t1,m2 ;коррекция часов

12 0029 E5A0 mov a,p2 ;счетчик секунд

13 002B 2499 add a,#99h

14 002D D4 da a

15 002E F5A0 mov p2,a

16 0030 B49927 cjne a,#99h,m3

17 0033 75A059 mov p2,#59h

18 0036 E590 m1: mov a,p1 ;счетчик минут

19 0038 2499 add a,#99h

20 003A D4 da a

21 003B F590 mov p1,a

22 003D B4991A cjne a,#99h,m3

23 0040 759059 mov p1,#59h

24 0043 E580 m2: mov a,p0 ;счетчик часов

25 0045 2499 add a,#99h

26 0047 D4 da a

27 0048 F580 mov p0,a

28 004A B4990D cjne a,#99h,m3

29 004D C28E clr tr1 ;остановить Т/С1

30 004F 758000 mov p0,#0 ;обнулить таймер

31 0052 759000 mov p1,#0

32 0055 75A000movp2,#0

33 0058 D2B7setbp3.7 ;выключить реле

34 005A 32 m3: reti

35 005B 758023 main: mov p0,#23H ;начальная

36 005E 759059 mov p1,#59H ;загрузка

37 0061 75A059 mov p2,#59H ;портов

38 0064 7864 movr0,#100 ;и регистров

39 0066 7964 movr1,#100

40 0068 758D9C mov th1,#156

41 006B 758920 mov tmod,#20h ;режим 2 Т/С1

42 006E75A888movie,#88h;разрешение прерываний

43 0071 20B0FDjbp3.0,$ ;ожидание пуска

44 0074 D28E setb tr1 ;включить Т/С1

45 0076 C2B7 clr p3.7 ;включить реле

46 0078 80FEsjmp$ ;зацикливание основной

47 007A end ;программы

Errors: None #########

Bytes: 97 #timer#

CRC: 5C40 #########