type semaphore=record
                value interger；
                L：list of process
                 end
汇编语言吗？  求大神 说一下这个东东要学什么才能看懂

procedure wait(S)
      var S:semaphore;
      begin
        S.vbalue<S.value-1;
        if S.value< then block(S.L);
     end
再发一段