ST套件8位流水灯实例程序

0

TRISA EQU 5H
TRISB EQU 6H
;---------------------- STATUS
C EQU 0
RP0 EQU 5
;--------------------
FLAG EQU 23H   ;定义用户寄存器;
;--------------------------
  ORG 00h
  CLRF PORTA
  CLRF PORTB    ;初始IO口;

  bsf STATUS,RP0    ;设置数据寄存器1;
  movlw B'00000000'
  movwf TRISA       ;定义RA口全部为输出;
  movlw B'00000000'
  movwf TRISB       ;定义RB口全部为输出;
  bcf STATUS,RP0    ;恢复数据寄存器0

  movlw 01H         ;先认RB.0为1
  movwf PORTB 
  BCF STATUS,C      ;清标志位C
  BSF FLAG,0        ;置左右移标志位,先左移;
LOOP
  BTFSS STATUS,C    ;测试C,为1则修改标志位
  GOTO LOOP1
  COMF FLAG,1       ;取反左右移标志位
LOOP1
  BTFSS FLAG,0      ;FLAG.0为1左移,为0右移
  GOTO LOOP2
  RLF PORTB,0
  MOVWF PORTB
  GOTO LOOP3
LOOP2
  RRF PORTB,0
  MOVWF PORTB
LOOP3
  CALL DELAY
  CALL DELAY       ;调用廷时
  GOTO LOOP        ;返回
;-----------------------
DELAY              ;0.2S廷时子程序
  MOVLW 0FFH
  MOVWF 20H
LP0
  MOVLW 0FFH
  MOVWF 21H
LP1

  DECFSZ 21H,1
  GOTO LP1
  DECFSZ 20H,1
  GOTO LP0
  RETURN

;---------------------
  END

五一电子是你成就未来，打装饰过去是学习者最好的屏台，有着舒适的学习环境，超强手动操作能力，高强素质教学视频方针。要想创建未来，快到我站来。

0