您所在位置：主题：请问以下代码是用什么语言写的?紧急求助!!!!!!!!!!
simongbz
[专家分：0] 发布于 2005-08-06 13:40:00
$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;
$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;
