tpsm - TP Socket Messaging

Probably useless utility for socket messaging directly from a FANUC TP program.

Usage

! connect to C1: ;
! return status to R[1] ;
CALL TPSM_CONN(1,1) ;
IF R[1:status]<>0,JMP LBL[500] ;
! write 'PING' to C1: ;
CALL TPSM_WRITE(1,'PING',1) ;
IF R[1:status]<>0,JMP LBL[500] ;
! read from C1: into SR[1] ;
CALL TPSM_READ(1,1,1000,1) ;
IF R[1:status]<>0,JMP LBL[500] ;
! disconnect C1: ;
CALL TPSM_DISC(1,1) ;
IF R[1:status]<>0,JMP LBL[500] ;