m2-2.lst

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

                       Input  Filename : M2-2.asm
                       Output Filename : M2-2.obj


    1   0000                   		ORG	00H
    2   0000   75 90 00        		MOV	P1,#00H
    3   0003   75 A0 00        		MOV	P2,#00H
    4   0006   78 04           		MOV	R0,#04H
    5   0008   79 50           		MOV	R1,#50H
    6   000A   77 00           	Y1:	MOV	@R1,#00H
    7   000C   09              		INC	R1
    8   000D   D8 FB           		DJNZ	R0,Y1
    9   000F   75 54 3E        		MOV	54H,#3EH
   10   0012   75 55 41        		MOV	55H,#41H
   11   0015   75 56 41        		MOV	56H,#41H
   12   0018   75 57 41        		MOV	57H,#41H
   13   001B   75 58 3E        		MOV	58H,#3EH
   14   001E   78 50           	X4:	MOV	R0,#50H
   15   0020   7A 05           		MOV	R2,#05H
   16   0022   75 65 20        	X5:	MOV	65H,#20H
   17   0025   7E 00           	X3:	MOV	R6,#00H
   18   0027   7B 01           		MOV	R3,#01H
   19   0029   7C 05           		MOV	R4,#05H
   20   002B   7F 07           	LOOP:	MOV	R7,#07H
   21   002D   75 A0 00        		MOV	P2,#00H
   22   0030   E8              		MOV	A,R0
   23   0031   2E              		ADD	A,R6
   24   0032   F9              		MOV	R1,A
   25   0033   E7              		MOV	A,@R1
   26   0034   C2 90           	SHIFT:	CLR	P1.0
   27   0036   13              		RRC	A
   28   0037   92 91           		MOV	P1.1,C
   29   0039   D2 90           		SETB	P1.0
   30   003B   DF F7           		DJNZ	R7,SHIFT
   31   003D   8B A0           		MOV	P2,R3
   32   003F   75 60 04        		MOV	60H,#04H
   33   0042   75 61 80        	DEL:	MOV	61H,#80H
   34   0045   D5 61 FD        		DJNZ	61H,$
   35   0048   D5 60 F7        		DJNZ	60H,DEL
   36   004B   00              		NOP
   37   004C   00              		NOP
   38   004D   00              		NOP
   39   004E   0E              		INC	R6
   40   004F   EB              		MOV	A,R3
   41   0050   23              		RL	A
   42   0051   FB              		MOV	R3,A
   43   0052   DC D7           		DJNZ	R4,LOOP
   44   0054   D5 65 CE        		DJNZ	65H,X3
   45   0057   08              		INC	R0
   46   0058   DA C8           		DJNZ	R2,X5
   47   005A   01 1E           		AJMP	X4

   48   005C                   		END



           Lines Assembled :  48             Assembly Errors :  0