Разработка аппаратных средств МПС. Разработка структурной схемы МПС. Разработка микропроцессорного блока, страница 18

1071 AB0C           85                  mov R3,12

1073 90FF04         86  mov DPTR, #0FF04h  ; адрес АЦП канал U1

1076 D2B0           87          setb P3.0 ;установить AADC

1078 E0             88          movx A, @DPTR

1079 DBFE           89  DELN5:  djnz R3, DELN5; задержка 25мкс

107B 7B00           90                  mov R3, #0

107D C2B0           91          clr P3.0       

107F F8             92          mov R0, A; R0:=X5

1080 A3             93          inc DPTR

1081 D2B0           94          setb P3.0 ;установить AADC

1083 E0             95          movx A, @DPTR

1084 AB0C           96                  mov R3,12

1086 DBFE           97  DELN6:  djnz R3, DELN6; задержка 25мкс

1088 7B00           98                  mov R3, #0

108A C2B0           99          clr P3.0        

108C F9            100          mov R1, A; R1:=X6

108D A3            101          inc DPTR

108E E9            102          mov A,R1        ; Здесь N6

108F 2571          103          add A,0071h     ; N6+K

1091 F9            104          mov R1,A

1092 98            105          subb A,R0       ; Если N6 меньше N5, то переход по метке

1093 4004          106          jc GN6K

1095 E9            107          mov A,R1;A:=N5

1096 02109D        108          ljmp COMPQ

1099 E8            109  GN6K:   mov A, R0;A:=N6+K

Ashling Microsystems - A51 Assembler - Version 3.0.0        12-12-99 PAGE   3

LOC   OBJ            LINE   SOURCE

109A 90FF00        110          mov DPTR,#0FF00h; адрес регистра

109D 9572          111  COMPQ:  subb A, 72h

109F 4021          112          jc GQ0                  ; то переход по метке

10A1 E520          113          mov A,00100000b;установить У2

10A3 F0            114          movx @DPTR,A; вывод в регистр

10A4 7A04          115  Y2:             mov R2, #4

10A6 7964          116          mov R1, #100

10A8 7800          117  DELY2:  mov R0, #0

10AA 7830          118  mov R0,#48

10AC D8FA          119  DELR0Y2:        DJNZ R0, DELY2

10AE D9F8          120                  DJNZ R1, DELY2

10B0 7900          121                  mov R1, #0

10B2 7964          122                  mov R1, #100

10B4 DAF2          123          DJNZ R2, DELY2

10B6 7800          124          mov R0, #0

10B8 78C2          125          mov R0, #194

10BA D8FE          126  RESY2:  DJNZ R0, RESY2

10BC E500          127          mov A,0h  ; выключение Y2 

10BE F0            128          movx @DPTR,A

10BF 0210E0        129          ljmp endy

10C2 E520          130  GQ0:            mov A, 00100000b;установить У3

10C4 F0            131          movx @DPTR,A; вывод в регистр

10C5 7A04          132  Y3:             mov R2, #4

10C7 7932          133          mov R1, #50

10C9 7800          134  DELY3:  mov R0, #0

10CB 7830          135  mov R0, #48

10CD D8FA          136  DELR0Y3:        DJNZ R0, DELY3

10CF D9F8          137                  DJNZ R1, DELY3

10D1 7900          138                  mov R1, #0

10D3 7964          139                  mov R1, #100

10D5 DAF2          140          DJNZ R2, DELY3

10D7 7800          141          mov R0, #0

10D9 785E          142          mov R0, #94

10DB D8DD          143  RESY3:  DJNZ R0, RESY2

10DD E500          144          mov A, 0h  ; выключение Y3

10DF F0            145          movx @DPTR, A

146  endy:

10E0 AB0C          147                  mov R3,12

10E2 90FF04        148  mov DPTR, #0FF04h  ; адрес АЦП канал U1

10E5 D2B0          149          setb P3.0 ;установить AADC

10E7 E0            150          movx A,@DPTR

10E8 DBFE          151  DELN7:  djnz R3, DELN7; задержка 25мкс

10EA 7B00          152                  mov R3,#0

10EC C2B0          153          clr P3.0        

10EE F8            154          mov R0,A; R0:=X5

10EF A3            155          inc DPTR

10F0 D2B0          156          setb P3.0 ;установить AADC

10F2 E0            157          movx A,@DPTR;A:=N7

158  ; умножение N7 на A1

10F3 8571F0        159                  mov B, 71h