700
C +5005 74 jnc neperenos7700
E 75 perenos7700:
E E583 76 mov A, DPH
14 77 dec A
8004 78 jmp gruppa7700
79 neperenos7700:
E583 80 mov A, DPH
8000 81 jmp gruppa7700
82 gruppa7700:
C3 83 clr C
98 84 subb A, R0
500D 85 jnc sravn8300
B 4 000 86 jc brak
D 89 brak:
D 0F 91 inc R7
E D2A1 92 setb P2.1
A0 D2A2 93 setb P2.2
A2 +7401 95 mov A, # 01h
A4 +3197 96 call LSDsetup
A6 +8072 97 jmp indic
A8 99 sravn8300:
A8 +7948 100 mov R1, # low (840)
AA 7803 101 mov R0, # high (840)
AC C3 102 clr C
AD E582 103 mov A, DPL
AF 99104 subb A, R1
B0 +4002 105 jc perenos8300
B2 +5005 106 jnc neperenos8300
B4 107 perenos8300:
B4 E583 108 mov A, DPH
B6 14109 dec A
B7 +8004 110 jmp gruppa8300
B9 111 neperenos8300:
B9 E583 112 mov A, DPH
BB 8000 113 jmp gruppa8300
BD 114 gruppa8300:
BD C3 115 clr C
BE 98116 subb A, R0
BF 4002 117 jc gruppa3
C1 500B 119 jnc sravn9100
C3 121 gruppa3:
C3 0E 123 inc R6
C4 C2A1 124 clr P2.1
MACRO ASSEMBLER KURS 05/15/2014 19:45:29 PAGE 3
C6 D2A2 125 setb P2.2
C8 +7401 127 mov A, # 1
CA 3197 128 call LSDsetup
CC 804C 129 jmp indic
CE 131 sravn9100:
CE 7994 132 mov R1, # low (916)
D0 7803133 mov R0, # high (916)
D2 C3 134 clr C
D3 E582 135 mov A, DPL
D5 99136 subb A, R1
D6 +4002 137 jc perenos9100
D8 +5005 138 jnc neperenos9100
DA 139 perenos9100:
DA E583 140 mov A, DPH
DC 14141 dec A
DD 8004 142 jmp gruppa9100
DF 143 neperenos9100:
DF E583 144 mov A, DPH
E1 +8000 145 jmp gruppa9100
E3 146 gruppa9100:
E3 C3 147 clr C
E4 98148 subb A, R0
E5 +4002 149 jc gruppa2
E7 500B 150 jnc sravn10000
E9 151 gruppa2:
E9 0D 154 inc R5
EA D2A1 155 setb P2.1
EC C2A2 156 clr P2.2
EE 7401 158 mov A, # 1
F0 +3197 159 call LSDsetup
F2 +8026 160 jmp indic
F4 162 sravn10000:
F4 79EF 163 mov R1, # low (1007)
F6 7803 164 mov R0, # high (1 007)
F8 C3 165 clr C
F9 E582 166 mov A, DPL
FB 99167 subb A, R1
FC 4002 168 jc perenos10000
FE 5005 169 jnc neperenos10000
170 perenos10000:
E583 171 mov A, DPH
14172 dec A
8004 173 jmp gruppa10000
174 neperenos10000:
E583 175 mov A, DPH
8000 176 jmp gruppa10000
177 gruppa10000:
C3 178 clr C
A 98179 subb A, R0
B 4002 180 jc gruppa1
D 508E 181 jnc brak
F 182 gruppa1:
010F 0C 184 inc R4
C2A1 185 clr P2.1
C2A2 186 clr P2.2
7401 187 mov A, # 1
3197 188 call LSDsetup
8000 189 jmp indic
A 190 indic:
A 7431 191 mov A, # 31h
C...
