Texas Instruments 990 User Manual page 121

Applications Programming
C THIS TASK EXECUTES IN A PRIMARY SYSTEM AND SENDS A MESSAGE TO
C A SECONDARY WITH A NETWORK ID OF 0503. AFTER SENDING THE
C MESSAGE THE TASK REQUESTS ACTIVATIONS SERVICES TO AWAKEN IT IF
C ANY MESSAGES ARRIVE DESTINED FOR IT. AFTER REACTIVATION, THE
C TASK READS ANY RESPONSE FROM THE SECONDARY (DID)
C
INTEGER*2 DID,SID,BUFFER(2),COUNT,STATUS,OPTION,BUFLEN
DATA
DID/>503/,SID/O/,COUNT/4/,BUFFER(1),BUFFER(2)/~HI~/
DATA OPTION/2/,BUFLEN/4/
C
C WRITE THE MESSAGE TO THE SECONDARY
C
C
CALL WRIT4D(BUFFER,COUNT,DID,SID,STATUS)
WRITE(6,101) STATUS,BUFFER
C CALL ACTIVATION SERVICES WITH THE OPTION SET TO INDICATE THAT
C THIS TASK WILL BE IN A TIME DELAY WHEN/IF A MESSAGE COMES IN
C
C
CALL WKUP4D(OPTION,STATUS)
WRITE (6 ,10 2)
C DELAY FOR FIVE SECONDS
C
CALL WAIT(5,2,STATUS)
C
C REACTIVATED HERE EITHER BY ACTIVATION SERVICES OR BY THE
C TIME DELAY EXPIRING
C READ ANY MESSAGES DESTINED FOR THIS TASK (I.E., THIS SID)
C
C
CALL READ4D(BUFFER,BUFLEN,COUNT,DID,SID,STATUS)
WRITE(6,103) STATUS
WRITE(6,104) BUFFER, SID, DID
C TERMINATE
C
STOP
101 FORMAT
(~WRITE4D
CALL
STATUS=~,
Z4,
~MESSAGE SENT="~
,A2 ,A2,
~"~)
102
FORMAT(~WAITING
5 SECONDS FOR
RESPONSE~)
103
FORMAT(~READ4D
CALL
STATUS=~,Z4)
104 FORMAT(~MESSAGE RETURNED="~ ,A2,A2,~"~ ,~SID=~ ,Z4,~DID=~ ,Z4)
END
Figure 4-8 FORTRAN Program in Primary Station
2270526-9701 4-35