knjs.asm

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

          ORG   0000H
		  LJMP  MAIN
		  ORG   0200H
MAIN:
COUNT     EQU   30H
START:    MOV  A,P3
       	  ANL  A,#0FH
		  MOV  COUNT,A
		  CPL  A
		  MOV  P1,A
SK1:      JNB  P3.6,SK2
          LCALL DELAY10MS
		  JNB  P3.6,SK2
		  INC  COUNT 
		  MOV  A,COUNT
		  CJNE A,#16,NEXT1
		  MOV  A,P3
		  ANL  A,#0FH
		  MOV  COUNT,A
		  CPL  A
NEXT1:    MOV  P1,A
WAIT1:    JB   P3.6,WAIT1
          LJMP SK1
SK2:      JNB  P3.7,	SK1
          LCALL DELAY10MS
		  JNB  P3.7,SK1
		  DEC  COUNT 
		  MOV  A,COUNT
		  CJNE A,#0FFH,NEXT2
		  MOV  A,P3
		  ANL  A,#0FH
		  MOV  COUNT,A
		  CPL  A
NEXT2:    MOV  P1,A
WAIT2:    JB   P3.7,WAIT2
          LJMP SK2
DELAY10MS:MOV R6,#2000
          MOV R7,#248
D1:       DJNZ R7,$
          DJNZ R6,D1
		  RET  

		  END