| 1 | LAH717H ;SLC/DLG - HITACHI 717 WITH JT-717 PROTOCOL CONTROLLER ;7/20/90 09:10 ;
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | ;;
|
|---|
| 4 | ;Call with T set to Instrument data is to/from
|
|---|
| 5 | RCHK S CTRL=$P(IN,"~",2),IN=$P(IN,"~",1) G:CTRL]"" @CTRL
|
|---|
| 6 | Q
|
|---|
| 7 | B ;
|
|---|
| 8 | D ;
|
|---|
| 9 | F Q
|
|---|
| 10 | C ;
|
|---|
| 11 | W I "CEKN"'[$E(IN,3) S OUT=$C(4),T=T-BASE Q
|
|---|
| 12 | S FTN=$E(IN,1,2) I FTN'=51,FTN'=55 Q
|
|---|
| 13 | S C=^LA(T,"C",0)+2 I '$D(^(C-1))#2 S OUT=$C(4),T=T-BASE Q
|
|---|
| 14 | S ^LA(T,"C",0)=C,OUT=$C(2)_FTN_^LA(T,"C",C-1)_$C(23)
|
|---|
| 15 | S LRECORD=$C(2)_FTN_^LA(T,"C",C)_$C(3)
|
|---|
| 16 | 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
|
|---|
| 17 | Q
|
|---|
| 18 | 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
|
|---|
| 19 | Q
|
|---|
