19 lines
933 B
Mathematica
19 lines
933 B
Mathematica
|
LAHTCCAH ;SLC/DLG - HITACHI 717 THRU CCA SYSTEM PROTOCALL CONTROLLER ;7/20/90 09:18 ;
|
||
|
|
;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
||
|
|
;;
|
||
|
|
;Call with T set to Instrument data is to/from
|
||
|
|
; P1= RESET POINT FOR INCOMING RECORDS, P3=Reset point FOR RECORDS SENT
|
||
|
|
S:'$D(^LA(T,"P2")) ^("P2")=0,^("P")="IN"
|
||
|
|
RCHK K LATYPE S LATYPE=$P(IN,"~",2),LATYPE=$S("BCDEFU"[LATYPE:LATYPE,1:"Z") D @LATYPE S T=T-BASE Q
|
||
|
|
B S ^LA(T,"P2")=0 Q ;RECIEVED STX
|
||
|
|
C F I=1:1:$L(IN)-2 S LASUM=LASUM+$A(IN,I)
|
||
|
|
S ^LA(T,"P2")=LASUM#256 I $E(IN,1)="D" S ^LA(T,"P")="D"
|
||
|
|
Q
|
||
|
|
D S ^LA(T,"P")="QUIT" Q ;REC EOT
|
||
|
|
E S ^LA(T,"P")="IN",OUT=$C(6),^LA(T,"P2")=0 Q ;REC ENQ
|
||
|
|
F S Q=^LA(T,"O",0)+1 I $D(^(Q)) S ^(0)=Q,OUT=^(Q) ;GOT ACK SEND NEXT
|
||
|
|
Q
|
||
|
|
U S OUT=^LA(T,"O",0) Q ;RECIEVED NAK RESEND
|
||
|
|
Z S OUT=$S(($L(IN)=3&+IN=^LA(T,"P2")):$C(6),1:$C(21))
|
||
|
|
S ^LA(T,"P2")=0 I ^LA(T,"P")="D" S ^("P")="OUT",Q=^LA(T,"O",0)+1 I $D(^(Q)) S ^(0)=Q L ^LA("Q") S Q=^LA("Q")+1,^("Q")=Q,^("Q",Q)=T L
|