;
; Now that transmit is done for this DIALOUT, maybe there are others
; we can help out with?
COMMS
; This is the entry point - usually by taskman call from ABSPOSQ2.
; Given DIALOUT = pointer into 9002313.55
; Transmit and receive as long as you have claims to be transmitted
; The task manager sets up DIALOUT in the call from ABSPOSQ2.
; When it's done with one DIALOUT, it looks around for others that
; are in need of transmit, so you could end up doing lots of
; transmissions in this one routine.
ROOTREF(DEST)
ENDJOB
;
TASKAT(ZTDTH,Q4WAIT)
; EP -
JOBMON
; temporary, for use by direct mode debugging
AGAIN
; Loop back to here ; DIALOUT may have been changed since first entry
OTHJOBS()
; any other transmit-receive jobs using DIALOUT? returns count of
SETSTAT(ABSBRXI,STAT)
UNLOCK(X)
REMEMLOG(N,SLOT)
MAXJOBS(N)
;EP - ABSPOS2A
ENDJOB99
;EP
SEND(DEST)
TRANSMIT(DIALOUT)
; returns 0 if success, nonzero error code if failure
; This does transmit/receive for ONLY the given DIALOUT
SHUTDOWN(N)
;EP - ABSPOS2A,ABSPOSAM
NOW()
LOCK(X)
TASK(Q4WAIT)
;EP - ABSPOS2D,ABSPOSQ4 ; start processing of responses