TAR1 #AR1_SAVE
TAR2 #AR2_SAVE
L DBNO
T #DBNO_SAVE

SET
R #HAVE_MODLE
R #NO_COLOR

L #STATION_ID
T #STA_ID

L #MODLE_ID
L 1
>=I
JNB EMT1
SET
S #HAVE_MODLE
L #COLOR_ID
L 1
>=I
JNB EMT2
JU OK

EMT1: LAR1 P##PART_MODLE
L 0
T B [AR1,P#1.0]

LAR1 P##PART_PHN
L 0
T B [AR1,P#1.0]


EMT2: LAR1 P##COLOR
L 0
T B [AR1,P#1.0]

LAR1 P##CUSTOMER_NUM
L 0
T B [AR1,P#1.0]

LAR1 P##INALFA_NUM
L 0
T B [AR1,P#1.0]

LAR1 P##SHADE_BC1
L 0
T B [AR1,P#1.0]

LAR1 P##SHADE_BC2
L 0
T B [AR1,P#1.0]

LAR1 P##SN
L 0
T B [AR1,P#1.0]
SET
S #NO_COLOR

A #HAVE_MODLE
JC OK
JU END

OK: OPN "SYSTEM_PART_DATA"


L #MODLE_ID
L 1
-I
L P#300.0
*D
T #SOURE_POINT
T #SOURE_START_POINT
L #COLOR_ID
L 1
-I
L P#70.0
*D
L P#20.0
+D
L #SOURE_START_POINT
+D
T #COLOR_START_POINT


//MODLE
L P##PART_MODLE
T #DEST_POINT


L 13
LP1: T #COUNT

LAR1 #SOURE_POINT
LAR2 #DEST_POINT
L DBB [AR1,P#0.0]
T B [AR2,P#0.0]

L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT


L #COUNT
LOOP LP1




//PHN
L #SOURE_START_POINT
L P#14.0
+D
T #SOURE_POINT
L P##PART_PHN
T #DEST_POINT

L 5
LP2: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT
L DBB [AR1,P#0.0]
T B [AR2,P#0.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT

L #COUNT
LOOP LP2
A #NO_COLOR
JCB END
//COLOR
L #COLOR_START_POINT
T #SOURE_POINT
L P##COLOR
T #DEST_POINT

L 13
LP3: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT

L DBB [AR1,P#0.0]
T B [AR2,P#0.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT



L #COUNT
LOOP LP3

//CUSTOMER_NUM
L #COLOR_START_POINT
L P#14.0
+D
T #SOURE_POINT
L P##CUSTOMER_NUM
T #DEST_POINT

L 13
LP4: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT

L DBB [AR1,P#0.0]
T B [AR2,P#0.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT


L #COUNT
LOOP LP4


//PN
L #COLOR_START_POINT
L P#28.0
+D
T #SOURE_POINT
L P##INALFA_NUM
T #DEST_POINT

L 13
LP5: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT

L DBB [AR1,P#0.0]
T B [AR2,P#0.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT


L #COUNT
LOOP LP5



L #COLOR_START_POINT
L P#42.0
+D
T #SOURE_POINT
L P##SHADE_BC1
T #DEST_POINT

//SH1
L 13
LP6: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT

L DBB [AR1,P#0.0]
T B [AR2,P#0.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT


L #COUNT
LOOP LP6

//SH2
L #COLOR_START_POINT
L P#56.0
+D
T #SOURE_POINT
L P##SHADE_BC2
T #DEST_POINT

L 13
LP7: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT

L DBB [AR1,P#0.0]
T B [AR2,P#0.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT




L #COUNT
LOOP LP7



//SN
L #STA_ID
L 1
>=I
JNB END
OPN "UP_STA_CTRL_SDB"
L #STA_ID
L 1
-I
L P#102.0
*D
L P#4.0
+D
T #SOURE_POINT
L P##SN
T #DEST_POINT

LAR2 #DEST_POINT
L 11
T B [AR2,P#1.0]
L 11
LP8: T #COUNT
LAR1 #SOURE_POINT

LAR2 #DEST_POINT

L DBB [AR1,P#2.0]
T B [AR2,P#2.0]
L #SOURE_POINT
L 8
+D
T #SOURE_POINT
L #DEST_POINT
L 8
+D
T #DEST_POINT

L #COUNT
LOOP LP8




END: OPN DB [#DBNO_SAVE]
LAR1 #AR1_SAVE
LAR2 #AR2_SAVE