TITLE=
// PROGRAM COMMENTS
// Press F1 for help and example program
//
Network 1 // NETWORK TITLE (single line)
//
// NETWORK COMMENTS
//
//
LD SM0.1
CALL SBR2
LDN I0.5
ON M30.0
AN I0.6
= M0.1
LDN M0.1
R M4.0, 1
R M4.1, 1
LD SM0.0
MOVD VD180, VD130
*D +250, VD130
MOVD VD130, VD100
/D VD120, VD100
DTI VD100, VW110
AD<= VD120, 0
MOVD 5860, VD120
LD M0.1
LPS
A I0.2
AN Q0.1
S M4.0, 1
LRD
A I0.3
R M4.0, 1
R M4.1, 1
LPP
LPS
A I0.4
AN Q0.0
S M4.1, 1
LRD
A M4.0
= Q0.0
LPP
A M4.1
= Q0.1
LD SM0.0
LPS
AW<= VW90, VW110
R M4.0, 1
R M4.1, 1
LRD
AN M4.0
AN M4.1
TON T150, VW240
AN T150
= Q0.2
LPP
LPS
AW<= VW90, VW110
EU
S M7.0, 1
LRD
A M7.0
= Q0.3
LRD
A I0.7
R M7.0, 1
LRD
MOVW VW90, VW270
-I VW110, VW270
LRD
AW< 0, VW250
AW<= VW270, VW250
AN Q0.5
= Q0.4
LPP
AW< 0, VW260
AW<= VW270, VW260
= Q0.5
LD M18.0
OW<= VW90, VW110
MOVD 0, VD180
MOVD 0, VD270
R M18.0, 1
LD I0.6
= M20.3
LD I0.5
A M30.0
= M20.2
LD SM0.0
MOVW VW300, VW360
MOVW VW90, VW362
MOVW VW310, VW364
MOVW VW320, VW366
MOVW VW250, VW368
MOVW VW260, VW370
LD SM0.0
A M13.4
LPS
AW= VW350, +1
BMW VW360, VW400, 20
LRD
AW= VW350, +2
BMW VW360, VW450, 20
LRD
AW= VW350, +3
BMW VW360, VW500, 20
LRD
AW= VW350, +4
BMW VW360, VW550, 20
LRD
AW= VW350, +5
BMW VW360, VW600, 20
LRD
AW= VW350, +6
BMW VW360, VW650, 20
LRD
AW= VW350, +7
BMW VW360, VW700, 20
LRD
AW= VW350, +8
BMW VW360, VW750, 20
LRD
AW= VW350, +9
BMW VW360, VW800, 20
LRD
AW= VW350, +10
BMW VW360, VW850, 20
LRD
AW= VW350, +11
BMW VW360, VW900, 20
LRD
AW= VW350, +12
BMW VW360, VW950, 20
LRD
AW= VW350, +13
BMW VW360, VW1000, 20
LRD
AW= VW350, +14
BMW VW360, VW1050, 20
LRD
AW= VW350, +15
BMW VW360, VW1100, 20
LPP
AW= VW350, +16
BMW VW360, VW1150, 20
LD SM0.0
A M13.4
LPS
AW= VW350, +17
BMW VW360, VW1200, 20
LRD
AW= VW350, +18
BMW VW360, VW1250, 20
LRD
AW= VW350, +19
BMW VW360, VW1300, 20
LRD
AW= VW350, +20
BMW VW360, VW1350, 20
LRD
AW= VW350, +21
BMW VW360, VW1400, 20
LRD
AW= VW350, +22
BMW VW360, VW1450, 20
LRD
AW= VW350, +23
BMW VW360, VW1500, 20
LRD
AW= VW350, +24
BMW VW360, VW1550, 20
LRD
AW= VW350, +25
BMW VW360, VW1600, 20
LRD
AW= VW350, +26
BMW VW360, VW1650, 20
LRD
AW= VW350, +27
BMW VW360, VW1700, 20
LRD
AW= VW350, +28
BMW VW360, VW1750, 20
LRD
AW= VW350, +29
BMW VW360, VW1800, 20
LRD
AW= VW350, +30
BMW VW360, VW1850, 20
LPP
R M13.4, 1
LD SM0.0
A M17.5
LPS
AW= VW350, +1
BMW VW400, VW380, 20
LRD
AW= VW350, +2
BMW VW450, VW380, 20
LRD
AW= VW350, +3
BMW VW500, VW380, 20
LRD
AW= VW350, +4
BMW VW550, VW380, 20
LRD
AW= VW350, +5
BMW VW600, VW380, 20
LRD
AW= VW350, +6
BMW VW650, VW380, 20
LRD
AW= VW350, +7
BMW VW700, VW380, 20
LRD
AW= VW350, +8
BMW VW750, VW380, 20
LRD
AW= VW350, +9
BMW VW800, VW380, 20
LRD
AW= VW350, +10
BMW VW850, VW380, 20
LRD
AW= VW350, +11
BMW VW900, VW380, 20
LRD
AW= VW350, +12
BMW VW950, VW380, 20
LRD
AW= VW350, +13
BMW VW1000, VW380, 20
LRD
AW= VW350, +14
BMW VW1050, VW380, 20
LPP
AW= VW350, +15
BMW VW1100, VW380, 20
LD SM0.0
A M17.5
LPS
AW= VW350, +16
BMW VW1150, VW380, 20
LRD
AW= VW350, +17
BMW VW1200, VW380, 20
LRD
AW= VW350, +18
BMW VW1250, VW380, 20
LRD
AW= VW350, +19
BMW VW1300, VW380, 20
LRD
AW= VW350, +20
BMW VW1350, VW380, 20
LRD
AW= VW350, +21
BMW VW1400, VW380, 20
LRD
AW= VW350, +22
BMW VW1450, VW380, 20
LRD
AW= VW350, +23
BMW VW1500, VW380, 20
LRD
AW= VW350, +24
BMW VW1550, VW380, 20
LRD
AW= VW350, +25
BMW VW1600, VW380, 20
LRD
AW= VW350, +26
BMW VW1650, VW380, 20
LRD
AW= VW350, +27
BMW VW1700, VW380, 20
LRD
AW= VW350, +28
BMW VW1750, VW380, 20
LRD
AW= VW350, +29
BMW VW1800, VW380, 20
LPP
AW= VW350, +30
BMW VW1850, VW380, 20
LD SM0.0
A M17.5
MOVW VW380, VW300
MOVW VW382, VW90
MOVW VW384, VW310
MOVW VW386, VW320
MOVW VW388, VW250
MOVW VW390, VW260
LD SM0.0
A M17.5
R M17.5,1

MAIN

以上是主程式

TITLE=
Network 1 // NETWORK TITLE (single line)
//
// NETWORK COMMENTS
//
//
LD SM0.0
MOVB 16#F8, SMB37
HDEF 0, 0
MOVD +0, SMD38
MOVD +5000, SMD42
MOVB 100, SMB34
ATCH INT2, 10
ENI
HSC 0
MOVB 16#F8, SMB137
HDEF 3, 0
MOVD +0, SMD138
MOVD +5000, SMD142
HSC 3
LD SM0.0
R M16.0, 1
CRET

SBR_2
以上是子程式
TITLE=
Network 1 // NETWORK TITLE (single line)
//
// NETWORK COMMENTS
//
//
LD SM0.0
MOVD HC0, AC0
MOVD +0, SMD38
MOVB 16#C0, SMB37
HSC 0
+D AC0, VD180
+D AC0, VD190
+D 1, VD200
AD<= 10, VD200
MOVD VD190, VD210
*D 1, VD210
MOVD VD210, VD220
/D +4, VD220
DTI VD220, VW70
MOVD 0, VD190
MOVD 0, VD200
LD SM0.0
MOVD HC3, AC1
MOVD +0, SMD138
MOVB 16#C0, SMB137
HSC 3
+D AC1, VD140
+D 1, VD150
AD<= 30, VD150
MOVD VD140, VD160
*D +5, VD160
MOVD VD160, VD170
/D 1, VD170
DTI VD170, VW50
MOVD 0, VD140
MOVD 0, VD150
LD SM0.0
CRETI


INI_2