Автоматизированный электропривод

41 ;Обработка состояния X0

42 0030 C3 x0: CLR C ;сбрасываем флаг переноса C

43 0031 75 A0 FF MOV P2, #11111111b ;обнуляем выходы порта P2 (Q2,Q1,Q0)

44 0034 12 00 91 CALL drbzg ;вызов подпрограммы обработки дребезга

45 0037 12 00 AA CALL xx0 ;вызов подпрограммы обработки условия X0

46 003A A2 20 MOV C,X0 ;записываем в C 1, если X0=1

47 003C 40 43 JC x5 ;переход на метку x5, если перенос C=1

48 003E 02 00 41 JMP x1 ;иначе переход на метку x1

49

50

51 ;Обработка состояния X1

52 0041 C3 x1: CLR C

53 0042 75 A0 F6 MOV P2, #11110110b ;записываем в P2 значения выходов и индикации

54 0045 12 00 91 CALL drbzg

55 0048 A2 96 MOV C,L40

56 004A 40 E4 JC x0

57 004C 02 00 71 JMP x4

58

59

60 ;Обработка состояния X2

61 004F C3 x2: CLR C

62 0050 75 A0 DB MOV P2, #11011011b

63 0053 12 00 91 CALL drbzg

64 0056 12 00 B1 CALL xx2

65 0059 A2 21 MOV C,X2

66 005B 40 03 JC x3

67 005D 02 00 71 JMP x4

68

69 ;Обработка состояния X3

70 0060 C3 x3: CLR C

71 0061 75 A0 ED MOV P2, #11101101b

72 0064 12 00 91 CALL drbzg

73 0067 12 00 C1 CALL xx3

74 006A A2 22 MOV C,X3

75 006C 40 D3 JC x1

76 006E 02 00 71 JMP x4

77

78

79 ;Обработка состояния X4

80 0071 C3 x4: CLR C

81 0072 75 A0 E4 MOV P2, #11100100b

82 0075 12 00 91 CALL drbzg

83 0078 12 00 C8 CALL xx4

84 007B A2 23 MOV C,X4

85 007D 40 02 JC x5

86 007F 01 4F JMP x2

87

88

89 ;Обработка состояния X5

90 0081 C3 x5: CLR C

91 0082 75 A0 D2 MOV P2, #11010010b

92 0085 12 00 91 CALL drbzg

93 0088 12 00 CF CALL xx5

94 008B A2 24 MOV C,X5

95 008D 40 C0 JC x2

96 008F 01 71 JMP x4

97

98

99 ;Подпрограмма обработки дребезга, индикации

100 0091 drbzg:

101 0091 79 40 MOV R_C, #R_N ;загрузка в регистр константы для антидребезга

102 0093 E5 90 st: MOV A, P1 ;загрузка в аккум. значение порта P1

103 0095 7B 0A MOV R3, #10 ;задержка для опред. дребезга

104 0097 DB FE DJNZ R3, $ ;

105 0099 B5 90 F5 CJNE A, P1, drbzg ;сравнение аккум. с портом и переход

106 009C D9 F5 DJNZ R_C, st ;отсчет времени для распознавания дребезга

107 009E E5 90 MOV A,S1 ;секция индикации входных сигналов

108 00A0 F4 CPL A ;инверсия значений, т.к. управление идет по 0

109 00A1 F5 80 MOV IND,A ;запись в порт для индикации

110 00A3 C3 CLR C

111 00A4 A2 B1 MOV C,L50

112 00A6 B3 CPL C

113 00A7 92 B2 MOV INDL50,C ;

114 00A9 22 RET ;возврат из подпрограммы

115

116 ;Подпрограмма обработки условия X0

117 00AA A2 90 xx0: MOV C,S1 ;

118 00AC B0 95 ANL C,/U7 ;логическое И бита и переноса

119 00AE 92 20 MOV X0,C

120 00B0 22 RET

121

122

123 ;Подпрограмма обработки условия X2

124 00B1 A2 90 xx2: MOV C,S1 ;

125 00B3 B0 91 ANL C,/S2

126 00B5 92 25 MOV PER,C

127 00B7 A2 91 MOV C,S2

128 00B9 B0 90 ANL C,/S1

129 00BB 72 25 ORL C,PER

130 00BD 82 93 ANL C,U1

131 00BF 92 21 MOV X2,C

132

133

134 ;Подпрограмма обработки условия X3

135 00C1 A2 92 xx3: MOV C,S3 ;

136 00C3 B0 B1 ANL C,/L50

137 00C5 92 22 MOV X3,C

138 00C7 22 RET

139

140

141 ;Подпрограмма обработки условия X4

142 00C8 A2 91 xx4: MOV C,S2 ;

143 00CA B0 94 ANL C,/U3

144 00CC 92 23 MOV X4,C

145 00CE 22 RET

146

147

148 ;Подпрограмма обработки условия X5

149 00CF A2 97 xx5: MOV C,L100 ;

150 00D1 92 24 MOV X5,C

151 00D3 22 RET

152 00D4

153 00D4 END

Lines Assembled : 153 Assembly Errors : 0

Образ ПЗУ для прошивки

:03000000020030CB

:10003000C375A0FF1200911200AAA2204043020043

:1000400041C375A0F6120091A29640E4020071C36C

:1000500075A0DB1200911200B1A2214003020071D1

:10006000C375A0ED1200911200C1A22240D302007C

:1000700071C375A0E41200911200C8A223400201CE

:100080004FC375A0D21200911200CFA22440C0012C

:10009000717940E5907B0ADBFEB590F5D9F5E590E6

:1000A000F4F580C3A2B1B392B222A290B09592208F

:1000B00022A290B0919225A291B090722582939243

:1000C00021A292B0B1922222A291B094922322A2B4

:0400D00097922422BD

:00000001FF

1	2	3	4

Copyright © Radioland. Все права защищены.
Дата публикации: 2008-04-09 (0 Прочтено)