m7-4.lst

该源码与书本配套

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


    1               ; ************************************************
    2               ;   LCD-2021 自己造字并通过P2端口上驱动发光二极管
    3               ;		  
    4               ; ************************************************
    5                          	
    6   0000                   		ORG 00H
    7   0000   75 81 50        	START	MOV   SP,#50H
    8   0003   75 90 01        		MOV   P1,#01H       
    9   0006   12 00 51        		CALL  ENABLE
   10                          	
   11   0009   75 90 38        		MOV   P1,#38H
   12   000C   12 00 51        		CALL  ENABLE       
   13                          	
   14   000F   75 90 0E        		MOV   P1,#0EH
   15   0012   12 00 51        		CALL  ENABLE       
   16   0015   7A 40           		MOV   R2,#40H       
   17   0017   90 00 BB        		MOV   DPTR,#TXT0	       
   18   001A   12 00 73        		CALL  WRITECG
   19   001D   7A 48           		MOV   R2,#48H
   20   001F   90 00 C3        		MOV   DPTR,#TXT1
   21   0022   12 00 73        		CALL  WRITECG
   22   0025   7A 50           		MOV   R2,#50H
   23   0027   90 00 CB        		MOV   DPTR,#TXT2
   24   002A   12 00 73        		CALL  WRITECG
   25                          	
   26   002D   75 90 06        		MOV   P1,#06H
   27   0030   12 00 51        	    CALL  ENABLE
   28                          	
   29   0033   75 90 80        		MOV   P1,#080H
   30   0036   12 00 51        		CALL  ENABLE
   31   0039   90 00 91        		MOV   DPTR,#TABLE1       
   32   003C   12 00 5B        		CALL  REPRINT
   33                          	
   34   003F   75 90 C0        		MOV   P1,#0C0H
   35   0042   12 00 51        	    CALL  ENABLE
   36   0045   90 00 A7        		MOV   DPTR,#TABLE2      
   37   0048   12 00 5B        		CALL  REPRINT
   38                          	
   39   004B   B2 A0           	LOOP	CPL P2.0	       
   40   004D   11 84           		ACALL DELAY
   41   004F   01 4B           	        JMP   LOOP
   42                          	
   43   0051   C2 B5           	ENABLE	CLR   P3.5
   44   0053   C2 B7           		CLR   P3.7
   45   0055   12 00 84        		CALL  DELAY	       
   46   0058   D2 B7           		SETB  P3.7
   47   005A   22              		RET
   48 
   49   005B   7F 00           	REPRINT	MOV   R7,#00H	       
   50   005D   EF              	PRINT1	MOV   A,R7
   51   005E   93              		MOVC  A,@A+DPTR
   52   005F   12 00 67        		CALL  REWRITE
   53   0062   0F              		INC   R7
   54   0063   B4 FE F7        		CJNE  A,#0FEH,PRINT1
   55   0066   22              		RET
   56                          	
   57   0067   F5 90           	REWRITE	MOV   P1,A	       
   58   0069   D2 B5           		SETB  P3.5
   59   006B   C2 B7           		CLR   P3.7
   60   006D   12 00 84        		CALL  DELAY
   61   0070   D2 B7           		SETB  P3.7
   62   0072   22              		RET
   63                          	
   64                          	
   65                          	
   66   0073   7E 00           	WRITECG	MOV   R6,#00H	       
   67   0075   EA              	WRITE	MOV   A,R2
   68   0076   F5 90           		MOV   P1,A
   69   0078   11 51           		CALL  ENABLE
   70   007A   EE              		MOV   A,R6
   71   007B   93              		MOVC  A,@A+DPTR
   72   007C   11 67           		CALL  REWRITE
   73   007E   0E              		INC   R6
   74   007F   0A              		INC   R2
   75   0080   B4 00 F2        		CJNE  A,#00H,WRITE
   76   0083   22              		RET
   77                          	
   78   0084   7C 01           	DELAY	MOV   R4,#01H	       
   79   0086   7D 40           	DL2	MOV   R5,#40H
   80   0088   78 00           	DL3	MOV   R0,#00H
   81   008A   D8 FE           		DJNZ  R0,$
   82   008C   DD FA           		DJNZ  R5,DL3
   83   008E   DC F6           		DJNZ  R4,DL2
   84   0090   22              		RET
   85                          	
   86   0091   57 72 69 74 65  	TABLE1	DB 'Writer Fu-Chao Chung ',0FEH
        0096   72 20 46 75 2D 
        009B   43 68 61 6F 20 
        00A0   43 68 75 6E 67 
        00A5   20 FE 
   87   00A7   32 30 30 35 02  	TABLE2	DB '2005',02H,'11',01H,'27',00H,' 01:05AM',0FEH
        00AC   31 31 01 32 37 
        00B1   00 20 30 31 3A 
        00B6   30 35 41 4D FE 
   88   00BB   1F 11 11 1F 11  	TXT0	DB 1FH,11H,11H,1FH,11H,11H,1FH,00H		 ; ら
        00C0   11 1F 00 
   89   00C3   0F 09 0F 09 0F  	TXT1	DB 0FH,09H,0FH,09H,0FH,09H,12H,00H		 ; る
        00C8   09 12 00 
   90   00CB   08 0F 12 0F 0A  	TXT2	DB 08H,0FH,12H,0FH,0AH,1FH,02H,00H		 ;