Texas Instruments 990 User Manual page 105

Applications Programming
*
THIS SAMPLE PROGRAM USES THE >4D SVCs WITHOUT
*
TESTING FOR ERROR RETURNS. HOWEVER, THE USER IS REMINDED
*
THAT ERROR TESTING SHOULD ALWAYS BE DONE
TO
ENSURE THAT
*
THE CALL WAS SUCCESSFULLY MADE. THE PROGRAM WRITES THE
*
OUTPUT MESSAGE AND THE RESPONSE (INPUT) MESSAGE
TO
THE
*
SYSTEM LOG.
*
*
PC
*
*
*
SVC
LI
MOV
SVC
MOVB
SVC
SVC
@WRITE
Rl,LOGOUT
Rl,@MSGPTR
@SYSLOG
@TIMEDY,@ASCODE
@ACTSVC
@DELAY
SEND MESSAGE
TO
SECONDARY TASK,
ID IS >0200 (BCD)
POINTER
TO
OUTPUT MESG
*
WRITE OUTPUT MESG TO SYSLOG
REQ. ACT SERVICES FROM T/DELAY
*
SYSTEM TIME DELAY, 10 SECS:
AM
WAITING REPLY FROM ID >0200
**
AM ACTIVE NOW. MUST FIRST DO READ CALL
*
SVC @READ
MOVB @READ+l,RO
JEQ NOERRS
LI Rl,ERRMSG
JMP WRYTER
*
*
*
NOERRS MOVB
LI
WRYTER MOV
SVC
MOVB
*
*
SVC
SVC
@RCOUNT+l,@LOGIN
Rl,LOGIN
Rl,@MSGPTR
@SYSLOG
@BIDME,@ASCODE
@ACTSVC
@TERMIN
READ
REPLY FROM ID >0200
CHECK FOR NO REPLY
REPLY RECEIVED
NO REPLY, WRITE MESG AND QUIT
*
PROCESS THE DATA HERE AS REQUIRED,
THEN CLOSE AND TERMINATE.
PUT INPUT MESG LENGTH SYSLOG
POINTER TO INPUT MESG
FOR SYSLOG WRITE
WRITE MESG TO SYSLOG
REQUEST ACT SERVICES TO BID
ME
IF ANY SECONDARY TASK SENDS
ME A MESSAGE.
*
TERMINATE THE TASK
*
*
*
*
THE TASK CAN NOW BE ACTIVATED FROM A TERMINAL
OR BY ACTIVATION SERVICES IF AN INPUT MESSAGE
FOR THE TASK ARRIVES FROM A SECONDARY TASK.
END
Figure 4-5 Primary Station Assembly Language Program (Sheet 3 of 3)
2270526-9701 4-19