s7-200与7219通讯程序用于数码管显示

SUBROUTINE_BLOCK 数显:SBR4
TITLE=
BEGIN
Network 1
// f9ff译码方式 faf8亮度 fbff扫描界限fcff正常显示
LD SM0.1
LPS
MOVW 16#F9FF, VW3626
AENO
MOVW 16#FAF8, VW3628
AENO
MOVW 16#FBFF, VW3630
AENO
MOVW 16#FCFF, VW3632
AENO
MOVW 16#FCFF, VW3632
AENO
MOVW 16#F1F8, VW3634
AENO
MOVW 16#F2F9, VW3636
LRD
MOVD &VB3626, AC2
LRD
S M20.0, 1
LPP
MOVW VW3626, VW3600
Network 2
LD SM0.0
MOVD &VB3632, AC3
Network 3
LD M20.2
= M20.1
Network 4
LD C0
= M20.2
R M20.0, 1
Network 5
LD M20.3
SLW VW3600, 1
Network 6
LD M20.0
AN C0
AN M20.3
= M20.3
Network 7
LD M20.3
LD C0
CTU C0, +16
Network 8
LDN T51
A M20.1
LPS
S M20.0, 1
AW< AC2, AC3
+I +2, AC2
AENO
MOVW *AC2, VW3600
AENO
MOVW *AC2, VW3700
LPP
AW>= AC2, AC3
MOVD &VB3624, AC2
Network 9
LD SM0.0
LPS
A M20.2
= Q0.2
LRD
A M20.3
= Q0.1

LPP
A V3600.7
= Q0.3
Network 10
LD SM0.0
MOVR VD550, VD510
*R 0.2916666, VD510
Network 11
// vw520为目前脉冲数
// vd500为初始圈数vd490初始层数
LD SM0.0
LPS
ITD VW520, VD580
AENO
DTR VD580, VD584
LRD
/R 10.0, VD584
AENO
MOVR VD500, VD600
+R VD584, VD600
LRD
MOVR VD600, VD604
AENO
/R 33.0, VD604
AENO
TRUNC VD604, VD608
LRD
DTR VD608, VD608
AENO
MOVR VD608, VD612
AENO
*R 33.0, VD612
AENO
MOVR VD600, VD616
-R VD612, VD616
LPP
DTI VD580, VW594
AENO
AW< VW594, +0
MOVW +0, VW594
Network 12
LDN T51
MOVW VW594, VW3800
AENO
IBCD VW3800
AENO
MOVW VW516, VW3802
AENO
IBCD VW3802
AENO
MOVW +0, VW3899
Network 13
LD T51
A M20.1
LPS
RLD VD3800, 4
AENO
MOVD VD3800, VD3804
ANDD 16#0000000F, VD3804
LRD
AB< VB3900, 8
INCB VB3900
LRD
MOVD VD3804, VD3598
AENO
ORD VD3898, VD3598
AENO
S M20.0, 1
LRD
LDB= VB3900, 7
OB= VB3900, 2

ALD
ORD 16#000000F0, VD3598
LPP
AB>= VB3900, 8
LPS
MOVW VW594, VW3800
AENO
IBCD VW3800
AENO
MOVW VW516, VW3802
IBCD VW3802
LRD
MOVD +0, VD3898
LPP
MOVW 16#FCFF, VW3600
Network 14
LDN SM0.1
TON T51, +50
Network 15
LD SM0.0
MOVW VW594, VW116
AENO
MOVW VW516, VW118
Network 16
LD M20.1
INCW VW520
END_SUBROUTINE_BLOCK