qdou.asm

来自「汇编语言开发的各种实用程序」· 汇编 代码 · 共 27 行

                    ORG   0000H
					LJMP  START
					;ORG   0003H
					;LJMP  L1
					ORG   0200H
START:              MOV   SP,#5FH
                    MOV   P1,#0FFH
					MOV   P3,#0FFH
L1:                 JB  P3.4,L3
                    LCALL D10MS
					JB  P3.4,L3
					CPL P1.0
L2:                 JNB P3.4,L2
L3:                 JB  P3.5,L1
                    LCALL D10MS
					JB P3.5,L1
					CPL P1.1
L4:                 JNB P3.5,L4
                    LJMP L1
D10MS:              MOV R6,#20
D1:                 MOV	R7,#248
D2:                 DJNZ R7,D2
                    DJNZ R6,D1
                    RET
					END