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