请问以下代码是用什么语言写的?紧急求助!!!!!!!!!!
| $TITLE('---- TIME-INVERSED FIELD CURRENT LIMITER ----') $SUBTITLE('---- ILLIM.P86 ----') $COMPACT ROM OPTIMIZE(3) ANGLE$CHECK$MODULE:DO; Declare FIRE$ANGLE Word External; Declare ANGLE$90 Word External; ANGLE$CHK: PROCEDURE Word PUBLIC; Declare ANGLE$MARK Word; Declare T3 Word; LIM$DETERM: DO; IF FIRE$ANGLE>=ANGLE$90 THEN DO;T3=T3+1; IF T3>10 THEN ANGLE$MARK=1; END; ELSE DO; T3=0; ANGLE$MARK=0; END; END LIM$DETERM; RETURN ANGLE$MARK; END ANGEL$CHK; END ANGLE$CHECK$MODULE; |
