Чт мар 11, 2021 05:18:29
Чт мар 11, 2021 09:30:34
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4l equ 0x20
f4h equ 0x21
f5 equ 0x22
f6l equ 0x23
f6m equ 0x24
f6h equ 0x25
k equ 0x26
org 00h
goto Start
Start
clrf f6h
clrf f6l
clrf f6m
movlw 0x8
movwf k
bcf STATUS,C
m1
rrf f5,1
btfss STATUS,C ;btfsc STATUS,C
goto m3 ;goto m2
;goto m3
;m2
movf f4l,0
addwf f6l,1
btfsc STATUS,C ;btfsc STATUS,C
;goto m4
;goto m5
;m5
incf f6m ;incf f6m
;m4
movf f4h,0
addwf f6m,1
btfsc STATUS,C ;btfss STATUS,C
;goto m3
;goto m6
;m6
incf f6h ;incf f6h
m3
rlf f4l,1
rlf f4h,1
decfsz k,1 ;decf k,1
;btfss STATUS,Z
goto m1
nop
end
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4l equ 0x20
f4m equ 0x21
f4h equ 0x22
f5 equ 0x23
f6l equ 0x24
f6m equ 0x25
f6h equ 0x26
k equ 0x27
org 00h
goto Start
Start
clrf f6l
clrf f6m
clrf f6h
clrf f4h
movlw 0x8
movwf k
bcf STATUS,C
m1
rrf f5
btfss STATUS,C
goto m3
movf f4l, W
addwf f6l
btfsc STATUS,C
incf f6m
movf f4m, W
addwf f6m
btfsc STATUS,C
incf f6h
movf f4h, W
addwf f6h
m3
rlf f4l
rlf f4m
rlf f4h
decfsz k
goto m1
nop
end
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4l equ 0x20
f4h equ 0x21
f5 equ 0x22
f6l equ 0x23
f6m equ 0x24
f6h equ 0x25
k equ 0x26
org 00h
goto Start
Start
clrf f6l
clrf f6m
clrf f6h
movlw 0x8
movwf k
bcf STATUS,C
m1
rlf f5
btfss STATUS,C
goto m3
movf f4l, W
addwf f6l
btfsc STATUS,C
incf f6m
movf f4h, W
addwf f6m
btfsc STATUS,C
incf f6h
m3
rlf f6l
rlf f6m
rlf f6h
decfsz k
goto m1
nop
end
Чт мар 11, 2021 09:49:10
Чт мар 11, 2021 16:09:01
Чт мар 11, 2021 18:00:12
Чт мар 18, 2021 23:22:48
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4 equ 0x20
f5 equ 0x21
f6 equ 0x22
f6ost equ 0x23
k equ 0x24
z equ 0x25
goto Start
Start
clrf f6
clrf f6ost
movlw 0x08
movwf k
movf f4,W
movwf f6
m2
rlf f6,1
movf f6,W
movwf f6ost
movf f5,W
subwf f6ost,1
btfsc STATUS,C
goto m4
goto m3
m4
movwf z ; делитель там
movf f6,W
movlw 0x0
movwf f6
movf z,W
movwf f5
comf f6ost
addwf f6ost,1
bsf f6ost,1
bcf STATUS,C
comf f6ost
m3
rlf f6,1
decf k,1
btfss STATUS,Z
goto m2
nop
end
Пт мар 19, 2021 08:00:36
Сб мар 20, 2021 17:31:08
Сб мар 20, 2021 18:19:26
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4 equ 0x20
f5 equ 0x21
f6 equ 0x22
f6ost equ 0x23
k equ 0x24
goto Start
Start
clrf f6
clrf f6ost
movlw 0x08
movwf k
movf f4,W
movwf f6
m2
rlf f6,W
rlf f6ost
movf f5,W
subwf f6ost,1
btfss STATUS,C
goto m3
addwf f6ost,1
bcf STATUS,C
m3
rlf f6,1
decfsz k
goto m2
nop
end
Сб мар 20, 2021 18:56:02
Сб мар 20, 2021 20:07:48
Сб мар 20, 2021 23:49:28
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4 equ 0x20
f4l equ 0x21
f5 equ 0x22
f6 equ 0x23
f6l equ 0x24
f6ost equ 0x25
k equ 0x26
goto Start
Start
clrf f6
clrf f6l
clrf f6ost
movlw 0x08
movwf k
movf f4,W
movwf f6
movf f4l,W
movwf f6l
m2
rlf f6,W
rlf f6ost
movf f5,W
subwf f6ost,1
btfsc STATUS,C
goto m3
addwf f6ost,1
bcf STATUS,C
m3
rlf f6,1
decfsz k
goto m2
m1
rlf f6l,W
rlf f6ost
movf f5,W
subwf f6ost,1
btfsc STATUS,C
goto m4
addwf f6ost,1
bcf STATUS,C
m4
rlf f6l,1
decfsz k
goto m1
nop
end
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4 equ 0x20
f4l equ 0x21
f5 equ 0x22
f6 equ 0x23
f6l equ 0x24
f6ost equ 0x25
k equ 0x26
goto Start
Start
clrf f6
clrf f6l
clrf f6ost
movlw 0x8
movwf k
movf f4,W
movwf f6
movf f4l,W
movwf f6l
m2
rlf f6,W
rlf f6ost
movf f5,W
subwf f6ost,1
btfsc STATUS,C
goto m3
addwf f6ost,1
bcf STATUS,C
m3
rlf f6,1
decfsz k
goto m2
movlw 0x8
movwf k ; новый ЦИКЛ
m1
rlf f6l,W
rlf f6ost
movf f5,W
subwf f6ost,1
btfsc STATUS,C
goto m4
addwf f6ost,1
bcf STATUS,C
m4
rlf f6l,1
decfsz k
goto m1
nop
end
Вс мар 21, 2021 09:23:53
title "PIC16f877 sample"
list p=16f877
#include <p16f877.inc>
f4l equ 0x20
f4 equ 0x21
f5 equ 0x22
f6l equ 0x23
f6 equ 0x24
f6ost equ 0x25
k equ 0x26
goto Start
Start
clrf f6l
clrf f6
clrf f6ost
movlw 0x10
movwf k
movf f4l,W
movwf f6l
movf f4,W
movwf f6
m2
rlf f6l,W
rlf f6, 1
rlf f6ost, 1
movf f5,W
subwf f6ost,1
btfsc STATUS,C
goto m3
addwf f6ost,1
bcf STATUS,C
m3
rlf f6l,1
decfsz k
goto m2
nop
end