m4-4.lst

单片机的几个应用设计程序源代码

                       Input  Filename : M4-4.asm
                       Output Filename : M4-4.obj


    1          0000            	NH	EQU  0H
    2          00E0            	NL	EQU  E0H
    3          00E0            	WIDTH	EQU  E0H
    4          00FA            	CLKUP	EQU  250
    5          00C8            	CKDOWN	EQU  200
    6   0000                   		ORG  0H
    7   0000   01 0D           		AJMP START
    8   000B                   		ORG  0BH
    9   000B   01 3E           		AJMP TIMER
   10                          	
   11   000D   75 89 01        	START:	MOV  TMOD,#00000001B
   12   0010   75 8A E0        		MOV  TL0,#NL
   13   0013   75 8C 00        		MOV  TH0,#NH
   14   0016   AA 8A           		MOV  R2,TL0
   15   0018   AB 8C           		MOV  R3,TH0
   16   001A   C2 D5           		CLR  F0
   17   001C   C2 20           		CLR  20H
   18   001E   C2 21           		CLR  21H
   19   0020   D2 AF           		SETB EA
   20   0022   D2 A9           		SETB ET0
   21   0024   D2 90           		SETB P1.0
   22   0026   79 02           		MOV  R1,#02H
   23   0028   7C FA           		MOV  R4,#CLKUP
   24   002A   75 30 C8        		MOV  30H,#CKDOWN
   25   002D   74 00           		MOV  A,#0H
   26   002F   90 00 9D        		MOV  DPTR,#PULSE
   27   0032   93              		MOVC A,@A+DPTR
   28   0033   FE              		MOV  R6,A
   29   0034   74 01           		MOV  A,#01H
   30   0036   93              		MOVC A,@A+DPTR
   31   0037   FD              		MOV  R5,A
   32   0038   D2 97           		SETB P1.7
   33   003A   D2 8C           		SETB TR0
   34   003C   01 3C           		AJMP $
   35                          	
   36   003E   C2 90           	TIMER:	CLR  P1.0
   37   0040   C2 8C           		CLR  TR0
   38   0042   8A 8A           		MOV  TL0,R2
   39   0044   8B 8C           		MOV  TH0,R3
   40   0046   D9 30           		DJNZ R1,X1
   41   0048   C3              		CLR  C
   42   0049   ED              		MOV  A,R5
   43   004A   94 01           		SUBB A,#01H
   44   004C   FD              		MOV  R5,A
   45   004D   EE              		MOV  A,R6
   46   004E   94 00           		SUBB A,#00H
   47   0050   FE              		MOV  R6,A

   48   0051   20 21 27        		JB   21H,DOWN
   49   0054   ED              		MOV  A,R5
   50   0055   B5 30 07        		CJNE A,30H,TEST
   51   0058   BE 00 04        		CJNE R6,#0,TEST
   52   005B   D2 21           		SETB 21H
   53   005D   01 7B           		AJMP DOWN
   54                          	
   55   005F   79 02           	TEST:	MOV  R1,#02H
   56   0061   20 D5 12        		JB  F0,X2
   57   0064   74 E0           		MOV  A,#WIDTH
   58   0066   25 8A           		ADD  A,TL0
   59   0068   F5 8A           		MOV  TL0,A
   60   006A   FA              		MOV  R2,A
   61   006B   E5 8C           		MOV  A,TH0
   62   006D   34 00           		ADDC A,#00H
   63   006F   F5 8C           		MOV  TH0,A
   64   0071   FB              		MOV  R3,A
   65   0072   DC 02           		DJNZ R4,X2
   66   0074   D2 D5           		SETB F0
   67   0076   D2 90           	X2:	SETB P1.0
   68   0078   D2 8C           	X1:	SETB TR0
   69   007A   32              	OUT:	RETI
   70                          	
   71   007B   79 02           	DOWN:	MOV  R1,#02H
   72   007D   E5 8A           		MOV  A,TL0
   73   007F   C3              		CLR  C
   74   0080   94 E0           		SUBB A,#WIDTH
   75   0082   F5 8A           		MOV  TL0,A
   76   0084   FA              		MOV  R2,A
   77   0085   E5 8C           		MOV  A,TH0
   78   0087   94 00           		SUBB A,#00H
   79   0089   F5 8C           		MOV  TH0,A
   80   008B   FB              		MOV  R3,A
   81   008C   D5 30 02        		DJNZ 30H,X3
   82   008F   01 96           		AJMP LEAVE
   83   0091   D2 90           	X3:	SETB P1.0
   84   0093   D2 8C           		SETB TR0
   85   0095   32              		RETI
   86   0096   C2 A9           	LEAVE:	CLR  ET0
   87   0098   C2 8C           		CLR  TR0
   88   009A   C2 97           		CLR  P1.7
   89   009C   32              		RETI
   90                          	
   91   009D   07D0            	PULSE	DW 2000
   92   009F                   		END



           Lines Assembled :  92             Assembly Errors :  0