a.asm

8个发光管模拟二进制加法运算.asm 8个发光管模拟二进制加法运算.asm

      ORG 0000H
      LJMP MAIN
      ORG 0030H
MAIN:CLR C
      MOV A,#11111111B
      MOV R7,#8
 LOOP1:RLC A
      MOV P0,A
      MOV P1,A
	  MOV P2,A
	  MOV P3,A
      ACALL DELAY1S
      DJNZ R7,LOOP1
      MOV R7,#7
LOOP2:RRC A
      MOV P0,A
      MOV P1,A
	  MOV P2,A
	  MOV P3,A
      ACALL DELAY1S
      DJNZ R7,LOOP2
      MOV R7,#7
      AJMP LOOP1
 DELAY1S:MOV R6,#4
  DL1:MOV R5,#251
  DL2:MOV R4,#248
  DL3:NOP
     NOP
     DJNZ R4,DL3
     DJNZ R5,DL2
     DJNZ R6,DL1
   RET
   END