138.asm

GAL设计的累加器

  ORG 00H
st:  clr P2.0
  clr P2.1         ;1
  setb  P2.2
  call delay

  clr P2.0
  setb P2.1         ;2
  clr P2.2
  call delay

  clr P2.0
  setb P2.1         ;3
  setb P2.2
  call delay

  SETB P2.0
  CLR P2.1          ;4
  clr P2.2
  call delay

  SETB P2.0
  CLR P2.1          ;5
  setb P2.2
  call delay

  SETB P2.0
  setb P2.1         ;6
  clr P2.2
  call delay

   SETB P2.0
  setb P2.1         ;7
  setb P2.2
  call delay
  jmp st
DELAY: MOV  R4,#20H ;延时;//
D1:    MOV  R6,#20H
D2:    MOV  R5,#248      ;//
       DJNZ R5,$         ;//
       DJNZ R6,D2        ;//
       DJNZ R4,D1
       RET
 END