TSTSRDA,TSTSRDA=TSTSRDA
LB5:[22,310]P3UTIL/LB,LB4:[1,1]PA3LIB/LB
/
;EXTSCT=$$HEAP:4000
//