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