; SAMPLE CODE

; Global Storage definition

;---------------------------

STRU_aax in_cp, out_cp

STRU_aax in_ip, out_ip

in_ip.axp[1] = IP(1)

in_ip.axp[2] = IP(2)

in_ip.axp[3] = IP(3)

; When the compiler is ready you write:

; esito = PLANAR_COMP_IP (in_ip, out_ip);

; until the compiler it's not ready... using the right files:

; C:\Robox\Rc3e\33.5.16\include\parnames.def

; C:\Robox\Rc3e\33.5.16\include\prdf_str.inr

; C:\Robox\Rc3e\33.5.16\include\struser.h

; C:\Robox\Rc3e\33.5.16\cpu-ppc-p2020\include\rrt\interrt.h

; C:\Robox\Rc3e\33.5.16\cpu-ppc-g2\include\rrt\interrt.h

; you can use the function in the following way

$LIN_STEP planar_comp_ip(&in_ip, &out_ip)

rr(120+1) = out_ip.axp[1]

rr(120+2) = out_ip.axp[2]

rr(120+3) = out_ip.axp[3]

in_cp.axp[1] = CP(1)

in_cp.axp[2] = CP(2)

in_cp.axp[3] = CP(3)

; when the compiler is ready you write:

; esito = PLANAR_COMP_CP (in_cp, out_cp);

$LIN_STEP planar_comp_cp(&in_cp, &out_cp)

rr(160+1) = out_cp.axp[1]

rr(160+2) = out_cp.axp[2]

rr(160+3) = out_cp.axp[3]