asm.txt

来自「用汇编语言编写程序」· 文本 代码 · 共 211 行

        ORG    	0000H 
MAIN:	MOV    	P1,#0
	MOV    	P2,#0
L0:     MOV    	R1,#8
        MOV    	A,#00000001B
L01:    MOV    	P1,A
        LCALL  	DEL
        RL     	A
        DJNZ   	R1,L01
       
L00:    MOV    	R1,#7
        MOV    	A,#00000001B
L02:    MOV    	P2,A
        LCALL  	DEL
        RL     	A
        DJNZ   	R1,L02

L1:     MOV    	R1,#7
        MOV    	A,#01000000B
L10:    MOV    	P2,A
        LCALL  	DEL
        RR     	A
        DJNZ   	R1,L10
       
L11:    MOV    	R1,#8
        MOV    	A,#10000000B
L12:    MOV   	P1,A
        LCALL 	DEL
        RR    	A
        DJNZ   	R1,L12
      
L2:     MOV    	R1,#8
        MOV    	A,#00000001B
L21:    MOV    	P1,A
        LCALL  	DEL
        RL     	A
        ORL    	A,P1
        DJNZ   	R1,L21
       
L22:    MOV    	R1,#7
        MOV    	A,#00000001B
L20:    MOV    	P2,A
        LCALL  	DEL
        RL     	A
        ORL    	A,P2
        DJNZ   	R1,L20
       
L3:     MOV    	R1,#8
L30:    MOV    	A,#11111111B
        MOV    	P1,A
        MOV    	P2,A
        LCALL  	DEL
        CPL    	A
        MOV    	P1,A
        MOV    	P2,A
        LCALL  	DEL
        DJNZ   	R1,L30
       
L4:     MOV    	R1,#8
L40:    MOV    	A,#01010101B
        MOV    	P1,A
        MOV    	P2,A
        LCALL  	DEL
        CPL    	A
        MOV    	P1,A
        MOV    	P2,A
        LCALL 	DEL
        DJNZ   	R1,L40

L5:	MOV	R1,#8	
	MOV	A,#01111111B
L50:	MOV	P2,A
	LCALL	DEL
	RR	A
	DJNZ	R1,L50

L51:	MOV	R1,#8
	MOV	A,#11111111B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#01111111B
L52:	MOV	P1,A
	LCALL	DEL
	RR	A
	DJNZ 	R1,L52

L6:	MOV	R1,#8
	MOV	A,#01111111B
L60:	MOV	P2,A
	LCALL	DEL
	RR	A
	ANL	A,P2
	DJNZ	R1,L60

L61:	MOV	R1,#8 
	MOV	A,#11111111B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#01111111B
L62:	MOV	P1,A
 	LCALL	DEL
	RR	A
	ANL	A,P1
	DJNZ	R1,L62

L7:	MOV	R1,#8
L70:	MOV	A,#00001111B
	MOV	P1,A
	MOV	P2,A
	LCALL	DEL
	CPL	A
	MOV	P1,A
	MOV	P2,A
	LCALL	DEL	
	DJNZ	R1,L70

L8:	MOV	A,#10000000B
	MOV	P1,A
	LCALL	DEL
	RL	A
	MOV	P2,A
	LCALL	DEL
	MOV	A,#01000000B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#00000010B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#00100000B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#00000100B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#00010000B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#00001000B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#00001000B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#00010000B
	MOV 	P2,A
	LCALL	DEL
	MOV	A,#00000100B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#00100000B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#00000010B
	MOV	P1,A
	LCALL	DEL
	MOV	A,#01000000B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#00000001B
	MOV	P1,A
	LCALL	DEL

L9:	MOV	A,#10000000B
	MOV	P1,A
     	MOV	A,#00000001B
	MOV 	P2,A
	LCALL	DEL
	MOV	A,#11000000B
	MOV	P1,A
 	MOV	A,#00000011B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#11100000B
	MOV	P1,A
	MOV	A,#00000111B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#11110000B
	MOV	P1,A
	MOV	A,#00001111B
	MOV	P2,A
	LCALL	DEL
	MOV 	A,#11111000B
	MOV	P1,A
	MOV	A,#00011111B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#11111100B
	MOV	P1,A
	MOV	A,#00111111B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#11111110B
	MOV	P1,A
	MOV	A,#01111111B
	MOV	P2,A
	LCALL	DEL
	MOV	A,#0FFH
	MOV	P1,A
	MOV	P2,A
	LCALL	DEL

        AJMP   	MAIN
DEL:   
        MOV    	R2,#0FFH
DEL1:  	MOV    	R3,#0FFH
       	DJNZ   	R3,$
	DJNZ   	R2,DEL1
       	RET

       	END