程序：
l p##in0
lar1
l w [ar1,p#2.0]
t #length
l w [ar1,p#4.0]
t #dbs
l d [ar1,p#6.0]
t #dzs
//將數(shù)據(jù)源的any指針數(shù)據(jù)復(fù)制下來
l p##in1
lar1
l b#16#10 //對(duì)應(yīng)any_ji
t lb 28
l b [ar1,p#1.0]
t lb 29 //對(duì)應(yīng)any_ji
l w [ar1,p#2.0]
t lw 30 //對(duì)應(yīng)any_ji
l w [ar1,p#4.0]
t #dbji
t lw 32 //對(duì)應(yīng)tany_ji
l d [ar1,p#6.0]
t #dzji
t ld 34 //對(duì)應(yīng)any_ji
//將存放奇數(shù)的db塊的any數(shù)據(jù)進(jìn)行處理，并編寫any_ji
l p##in2
lar1
l b#16#10
t lb 38 //對(duì)應(yīng)any_ou
l b [ar1,p#1.0]
t lb 39 //對(duì)應(yīng)any_ou
l w [ar1,p#2.0]
t lw 40 //對(duì)應(yīng)any_ou
l w [ar1,p#4.0]
t #dbou
t lw 42 //對(duì)應(yīng)any_ou
l d [ar1,p#6.0]
t #dzou
t ld 44 //對(duì)應(yīng)any_ou
////將存放偶數(shù)的db塊的any數(shù)據(jù)進(jìn)行處理，并編寫any_ou
l 0
t #zero
call fill
bval :=#zero
ret_val:=#temp12
blk :=#any_ji
call fill
bval :=#zero
ret_val:=#temp13
blk :=#any_ou
//初始化，清零，調(diào)用sfc21
opn db [#dbs]
opn di [#dbji]
lar1 #dzs
lar2 #dzji
l #length
m002: t #loop_ji
l dbw [ar1,p#0.0]
srw 1
a >0
jcn m001
l dbw [ar1,p#0.0]
t diw [ar2,p#0.0]
+ar2 p#2.0
m001: +ar1 p#2.0
l #loop_ji
loop m002
//奇數(shù)
opn db [#dbs]
opn di [#dbou]
lar1 #dzs
lar2 #dzou
l #length
m004: t #loop_ou
l dbw [ar1,p#0.0]
srw 1
a >0
jc m003
l dbw [ar1,p#0.0]
t diw [ar2,p#0.0]
+ar2 p#2.0
m003: +ar1 p#2.0
l #loop_ou
loop m004
//偶數(shù)
調(diào)用：因?yàn)檫@里采用的是int數(shù)據(jù)所以在調(diào)用的時(shí)候要寫：p#db7.dbx0.0 int 10
測(cè)試效果：