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) 1:

MUL F, Elast, #D/ * trừ F từ R và cửa hàng thành E * / SUB E.R.F/ * nhân lưu trữ tạm thời (Elast) bởi các * // * giá trị N (không phải từ lưu trữ) và các cửa hàng vào C * /MUL C, Elast, #N/ * Thêm giá trị của E cùng với C và store trong C * /THÊM C, E/ * Cập Nhật đăng ký lưu trữ cho các cuộc gọi tiếp theo * /LD Elast, EKẾT THÚC Bồi thường dẫn tụt hậu, mà không có ký hiệu Z, sẽ thực hiệntjie cùng chức năng đặt hàng đầu tiên (mà đã là chỉ là một dẫn hoặc mộttụt hậu mạch tùy theo A và B) nếu thứ tự đầu tiên của thuật toánđã tăng lên đến lệnh thứ hai. Chương trình PL/M của con số5,35 sẽ MAIN: LÀM;TUYÊN BỐ BYTE ()TUYÊN BỐ TỪ () Tụt hậu: Thủ tục (ra, cuối cùng, trong, Kt) công cộng;RA = cuối + Kt *(IN LAST);CUỐI = RA; TỤT HẬU KẾT THÚC;CHÌ LAG: THỦ TỤC CỘNG; GỌI LAG(X,XJast,Rx,Kt);Ry = Rx-X * Kl;Tụt hậu cuộc gọi (Y, Ylast, Ry, Kt); C = Ry + Y * K2; TỤT HẬU CHÌ KẾT THÚC; KT=TS/(TS+T);GỌI TỤT HẬU CHÌ; H KẾT THÚC CHÍNH;

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;