âûïîëíÿåò çàäåðæàííóþ îïåðàöèþ. Çàäåðæàííàÿ îïåðàöèÿ
SUB 1 (* selector òåïåðü 0 èëè 1 *)
BOO (* ïðåâðàùåíèå â boolean *)
JMPC test2 (* if selector = 0 then *)
LD true
ST bo1 (* bo1 := true *)
LD 1 (* çàãðóçèòü äåéñòâèòåëüíîå çíà÷åíèå selector *)
RET (* end - return 1 *)
(* ïîñëåäíÿÿ âîçìîæíîñòü *)
test2: RETNC (* âîçâðàùàåò åñëè selector ñîäåðæèò *)
(* íåïðàâèëüíîå çíà÷åíèå *)
LD true
ST bo2 (* bo2 := true *)
LD 2 (* çàãðóçèòü äåéñòâèòåëüíîå çíà÷åíèå selector *)
(* êîíåö - âîçâðàò 2 *)
Îïåðàòîð “)”
Îïåðàöèÿ: âûïîëíÿåò çàäåðæàííóþ îïåðàöèþ. Çàäåðæàííàÿ îïåðàöèÿ îáîçíà÷àåòñÿ “(“
Äîïóñòèìûå ìîäèôèêàòîðû: (íåò)
Îïåðàíä: (íåò)
Ïðèìåð:
(* Ñëåäóþùàÿ ïðîãðàììà èñïîëüçóåò çàäåðæàííûå îïåðàöèè: *)
(* res := a1 + (a2 * (a3 - a4) * a5) + a6; *)
Delayed: LD a1 (* result := a1; *)
ADD( a2 (* çàäåðæàííûé ADD - result := a2; *)
MUL( a3 (* çàäåðæàííûé MUL - result := a3; *)
SUB a4 (* result := a3 - a4; *)
) (*âûïîëíèòü çàäåðæàí. MUL-result:=a2*(a3-a4); *)
MUL a5 (* result := a2 * (a3 - a4) * a5; *)
Ñîäåðæàíèå Íàçàä Âïåðåä