IN:IN1,IN2(any)

TEMP:tAnyPointerIn1,tAnyPointerIn2(any),RETVAL(INT)

L P##IN1

TAR2

AD DW#16#FFFFFF

+D

LAR1

L W[AR1,P#0.0]

T LW0

L W[AR1,P#2.0]

T LW2

L W[AR1,P#4.0]

T LW4

L D[AR1,P#6.0]

T LD6

L P##IN2

TAR2

AD DW#16#FFFFFF

+D

LAR1

L W[AR1,P#0.0]

T LW10

L W[AR1,P#2.0]

T LW12

L W[AR1,P#4.0]

T LW14

L D[AR1,P#6.0]

T LD16

CALL "SFC20"

SCRBLK:=#tAnyPointerIn1

RET_VAL:RETVAL

DSTBLK:#tAnyPointerIn1