36 lines
1.3 KiB
Mathematica
36 lines
1.3 KiB
Mathematica
|
PSXJOB ;BIR/BAB,WPB-Interface Background Job ;[ 02/12/99 1:26 PM ]
|
||
|
|
;;2.0;CMOP;**17**;11 Apr 97
|
||
|
|
;Watches line for incoming data and the outgoing queue.
|
||
|
|
;Hands off control to the Master or Slave module.
|
||
|
|
EN ;Set E TIMER
|
||
|
|
S PSXTRASH=0,PSXTME=$P($H,",",2)
|
||
|
|
READX ;Read one character, expecting ENQ
|
||
|
|
G:^PSX(553,1,"S")="S" STOP
|
||
|
|
I $P($G(^PSX(553,1,0)),"^")["LEAVENWORTH" G R1
|
||
|
|
I $G(PSXQRY)=1 G ^PSXQRY
|
||
|
|
R1 R *X:$S($O(^PSX(552.1,"AQ",0)):0,1:5)
|
||
|
|
;if read timed out, check if timer E expired or queue has outgoing
|
||
|
|
;messages then goto master, otherwise reset params & continue idling
|
||
|
|
E D CHKE^PSXUTL G:PSXTMOUT!$D(^PSX(552.1,"AQ")) BID^PSXMST D SETPAR^PSXSTRT G READX
|
||
|
|
;If ENQ,TERM send ACK0 and goto slave(Rec'd bid for master)
|
||
|
|
;Else flush garbage from buffer and continue idling
|
||
|
|
E D TRASH
|
||
|
|
G:PSXTRASH>300 EN^PSXSTP G READX
|
||
|
|
TRASH ;Trash received while idling!!
|
||
|
|
S PSXTRASH=PSXTRASH+1 D FLUSH1^PSXUTL I '(PSXTRASH#5) D JOB1,LOG^PSXUTL
|
||
|
|
Q
|
||
|
|
JOB1 K LOG
|
||
|
|
S LOG(1)="JOB1 Unexpected character ("_X_") has been received ("_PSXTRASH_") times "
|
||
|
|
S LOG(2)="while Idling. Check INTERFACE connection."
|
||
|
|
Q
|
||
|
|
STOP K LOG S LOG(1)="JOB2 Stop interface request detected from DHCP."
|
||
|
|
D LOG^PSXUTL
|
||
|
|
G EN^PSXSTP
|
||
|
|
STRT ;Enter here when starting the interface
|
||
|
|
;Flush buffers
|
||
|
|
D FLUSH1^PSXUTL
|
||
|
|
W *EOT,*TERM
|
||
|
|
K LOG S LOG(1)="JOB0 STARTING THE INTERFACE"
|
||
|
|
D LOG^PSXUTL
|
||
|
|
G EN
|