Код
; use regisers cnt, reg
; input W = data to transmit
; RB.7 shift strobe
; RB.6 data
shift_out
movwf reg
movlw 8
movwf cnt
shift_out1
bcf PORTB,6
btfsc reg,7
bsf PORTB,6
bsf PORTB,7
bcf PORTB,7
rlf reg,f
decfsz cnt,f
goto shift_out1
return
Сообщение отредактировал _Pasha - Dec 13 2011, 22:29