fc是用stl写的
OPN "TaskFromMCT"
L DW#16#84000000

T #task2
L 1
T #cycle2
//=============================
zz6: L #task2
LAR1
L DBW [AR1,P#0.0]
L 1
==I
JC zz12
//=============================

L DBW [AR1,P#0.0]
L 2
==I
JCN zz9
L DBD [AR1,P#2.0]
L 0
==D
JC zz9
L DBD [AR1,P#2.0]
T MD 16 //把要删除的任务号暂时保存
//=============================
L 3
T DBW [AR1,P#0.0]
L 5
T DBW [AR1,P#18.0]
JC zz23
//=============================

zz9: L #cycle2
L 100
==I
JC zz14
L #task2
L 192
+D
T #task2
L #cycle2
INC 1
T #cycle2
JU zz6
//=============================

L DBW [AR1,P#18.0]
L 0
==I
JC zz12
L DBW [AR1,P#18.0]
L 1
==I
JC zz12
L DBW [AR1,P#18.0]
L -1
==I
//JCN zz9
JC zz12
L DBW [AR1,P#18.0]
L 3
==I
JC zz12
JU zz9

zz12: L DBD [AR1,P#2.0]
T #New1

L DBW [AR1,P#6.0]
T #TU1

L DBW [AR1,P#14.0]
T #Conv1
//=============================
// OPN "TaskNoStore"
// L #Conv1
// L 1
// // JC zz11
// L #Conv1
// L 1
// -I
// L 8
// *I
// SLD 3
// L DW#16#84000000
// +D
// LAR2
// L DBD [AR2,P#0.0]
// L 0
// <>D
// JC zz9
// JC zz15
//=============================
L L#0
T #DB_Limit

L #Conv1
L 0
<=I
JC zz11

OPN "TaskNoStore_New"
L 0
T #No

L DBLG
SLD 3
L DW#16#84000000
+D
T #DB_Limit

y001: L #No
L 10
*I
SLD 3
L DW#16#84000000
+D
LAR2

TAR2
L #DB_Limit
>=D
JC zz11

L DBW [AR2,P#0.0]
L #Conv1
==I
JC y002

L #No
INC 1
T #No
JU y001

y002: L DBD [AR2,P#2.0]
L 0
<>D
JC zz15

//=============================
L #New1
T DBD [AR2,P#2.0]
L #TU1
T DBW [AR2,P#6.0]

OPN "TaskFromMCT"
L 3
T DBW [AR1,P#0.0]
// L 3
L 2
T DBW [AR1,P#18.0]
JU zz9


zz11: OPN "TaskFromMCT"
L 4
T DBW [AR1,P#18.0]
JU zz9
zz15: OPN "TaskFromMCT"
L 3
T DBW [AR1,P#18.0]
JU zz9


//=============================
JU zz14