20 lines
752 B
Mathematica
20 lines
752 B
Mathematica
LAH717H ;SLC/DLG - HITACHI 717 WITH JT-717 PROTOCOL CONTROLLER ;7/20/90 09:10 ;
|
|
;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|
;;
|
|
;Call with T set to Instrument data is to/from
|
|
RCHK S CTRL=$P(IN,"~",2),IN=$P(IN,"~",1) G:CTRL]"" @CTRL
|
|
Q
|
|
B ;
|
|
D ;
|
|
F Q
|
|
C ;
|
|
W I "CEKN"'[$E(IN,3) S OUT=$C(4),T=T-BASE Q
|
|
S FTN=$E(IN,1,2) I FTN'=51,FTN'=55 Q
|
|
S C=^LA(T,"C",0)+2 I '$D(^(C-1))#2 S OUT=$C(4),T=T-BASE Q
|
|
S ^LA(T,"C",0)=C,OUT=$C(2)_FTN_^LA(T,"C",C-1)_$C(23)
|
|
S LRECORD=$C(2)_FTN_^LA(T,"C",C)_$C(3)
|
|
L ^LA(T,"O") S (O,^LA(T,"O"))=^LA(T,"O")+2,^("O",O-1)=OUT,^(O)=LRECORD,^(0)=^LA(T,"O",0)+1 L ^LA("Q") S (Q,^LA("Q"))=^LA("Q")+1,^LA("Q",Q)=T,T=T-BASE L
|
|
Q
|
|
U S Q=^LA(T,"O",0)-1,^LA(T,"O",0)=Q,OUT=^(Q) L ^LA("Q") S Q=^LA("Q")+1,^("Q")=Q,^("Q",Q)=T,T=T-BASE L
|
|
Q
|