MUL F,Elast,#D/* subtract F from R

MUL F,Elast,#D
/* subtract F from R and store into E */
SUB E.R.F
/* multiply the temporary storage (Elast) by the */
/* value N (not from storage) and store into C */
MUL C, Elast, #N
/* add the value of E together with C and store in C */
ADD C ,E
/* update the storage register for the next call */
LD Elast ,E
END
The lead-lag compensation, without Z notation, would perform
tjie same function of FIRST-ORDER (which was only a lead or a
lag circuit depending upon A and B) if FIRST-ORDER'S algorithm
were increased to second order. The PL/M program of Figure
5.35 would be
MAIN: DO;
DECLARE ( , ) BYTE
DECLARE ( , ) WORD
LAG: PROCEDURE (OUT, LAST, IN, Kt) PUBLIC;
OUT=LAST+Kt*(IN LAST);
LAST=OUT;
END LAG;
LEAD LAG: PROCEDURE PUBLIC;
CALL LAG(X,XJast,Rx,Kt);
Ry=Rx-X*Kl;
CALL LAG(Y, Ylast ,Ry,Kt);
C=Ry+Y*K2;
END LEAD LAG;
Kt=Ts/(Ts+T);
CALL LEAD LAG;
H END MAIN;

Kết quả (Việt) 2:

MUL F, ELAST, # D
/ * trừ F từ R và lưu vào E * /
SUB ERF
/ * nhân lưu trữ tạm thời (ELAST) bởi * /
/ * giá trị tồn tại (không phải từ lưu trữ) và lưu vào C * /
MUL C, ELAST, sốN
/ * thêm giá trị của E cùng với C và lưu trữ trong C * /
aDD C, E
/ * cập nhật thanh ghi lưu trữ cho các cuộc gọi tiếp theo * /
LD ELAST, E
END
việc bồi thường chì tụt hậu, mà không Z ký hiệu, sẽ thực hiện
tjie cùng chức năng của FIRST-ORDER (mà chỉ là một dẫn hoặc
mạch trễ phụ thuộc vào A và B) nếu thuật toán FIRST-tỰ cỦA
đã tăng lên đến lệnh thứ hai. PL / M chương trình của Hình
5.35 sẽ là
CHÍNH: DO;
DECLARE (,) BYTE
DECLARE (,) WORD
LAG: THỦ TỤC (OUT, LAST, IN, Kt) CÔNG;
OUT = LAST + Kt * (IN LAST);
LAST = OUT;
END LAG;
LEAD LAG: THỦ TỤC CÔNG;
CALL LAG (X, XJast, Rx, Kt);
Ry = Rx-X * Kl;
CALL LAG (Y, Ylast, Ry, Kt);
C = Ry + Y * ; K2
LEAD LAG END;
Kt = Ts / (Ts + T);
CALL LEAD LAG;
H END MAIN;