更新优化程序

This commit is contained in:
zhusenlin
2026-02-11 17:34:41 +08:00
parent 62cf9a191c
commit cee4549e79
57 changed files with 240 additions and 123 deletions

View File

@@ -0,0 +1,10 @@
&ACCESS RV
DEFFCT INT GetInt16 (iVal:IN )
DECL INT iVal,iRet
IF iVal>32767 THEN
iRet=iVal-65536
ELSE
iRet=iVal
ENDIF
RETURN iRet
ENDFCT