운영체제 세마포어 p,v연산 예제 질문 있습니다 !!

function TS(var X:boolean);boolean;
begin 
  TS := X;
  X := false;
end {TS}
 
 
then, we can implement P and V operations on binary sepamore a with TS(X)
 by declaring a boolean variable s, initially set true.
Write a code equivalent to P(S) and V(S).
(Hint : using TS(S) and while statement for P(S))
 
혹시 아시겠는 분 계신가요??? p와 v를 그냥 따로 구현하라고 하면 할 수 있겠는데 
ts(s)를 사용하라고 하니까 전혀 감이 안와서요 ㅠㅠ 
ts함수에서 왜 스위치를 해주는 건지도 모르겠구요 ㅠㅠ 
도와주세요 ㅠㅜㅜㅠㅠㅠ