|
|
|
|
|
|
| @ |
Function |
|
@(arg) |
IF @(A==1) THEN
IF @((A!=1) ．．．． |
141001 |
| @SW |
Function |
|
@SW(arg) |
IF (@SW(0)&SW(1))==1 THEN |
140901 |
| ABS |
Function |
|
ABS(arg) |
A=ABS(-100) |
090113 |
| ACOS,ATAN |
Function |
Reverse-trigonometric function．．．． |
ATAN(v)
ACOS(v) |
FP(0)=DEG(ACOS(1/SQR(2)))
F．．．． |
141001 |
| AD |
Function |
Getting AD result |
AD(ch)
AD(fnc,ch) |
A=AD(0)
IF AD(1,7)>500 THEN
．．．． |
240516 |
| AD_D |
Function |
Get a data from the results of．．．． |
AD_D(ch,n) |
a=AD_D(0,1) |
100124 |
| AD_P |
Function |
|
AD_P(axs,n) n=+/-32767
AD_P(P．．．． |
MOVS P(n) AD_P(X_A,1000)
MOVS．．．． |
100305 |
| ASC |
Function |
|
ASC( str )
ASC( arg ) |
ASC(a$)
ASC( 4 ) |
090113 |
| CHR$ |
Function |
|
CHR$(arg) |
a$=CHR$(15)
print# 1 chr$(10) |
080328 |
| CK_Z,CK_NZ |
Function |
Test zero, Test No zero |
CK_Z(arg)
CK_NZ(arg) |
IF SW(1)&SW(2)|CK_Z(A) THEN : ．．．． |
090724 |
| CMP_C |
Function |
|
CMP_C(axis)
CMP_C(port,axis) |
WAIT CMP_C(X_A)==2
A=CMP_C(16．．．． |
090414 |
| CMP_P |
Function |
Comparing the current position．．．． |
CMP_P([axs,],v) |
CMP_P(n)
CMP_P(axs,n) |
100310 |
| CSW |
Function |
|
CSW(arg) |
A=CSW(0)
IF A==1 THEN : GOSUB．．．． |
140901 |
| DATE |
Function |
Gives a hex-value of the DATE |
DATE(0)
DATE(255)
DATE(VOID)．．．． |
IF DATE(0)==&H20070731 THEN ．．．． |
181214 |
| DATE$ |
Function |
Give a string of DATE |
DATE$(n) |
a$=DATE$(1)+" "+TIME$(1) |
090529 |
| DEG |
Function |
Degrees conversion |
DEG(v) |
FLOAT A=DEG(ATAN(SQR(2)) |
090909 |
| ERR$ |
Function |
|
ERR$(n) |
PR ERR$(err_) |
140901 |
| HEX |
Function |
|
HEX(str)
HEX(arg) |
b$="ABC123 &H1234FJ &HBCDEF1 ．．．． |
090113 |
| HEX$ |
Function |
|
HEX$(arg) |
a$=HEX$(100)
t$=HEX$(DATE(0)) |
090113 |
| HIN |
Function |
|
HIN(arg) |
A=HIN(24)
A=HIN(24~Wrd) |
141002 |
| HPT |
Function |
|
HPT(arg1) |
prx HPT(0)
WAIT HPT(XIN0)==1 ．．．． |
141002 |
| HSW |
Function |
|
HSW(arg) |
A=HSW(192)
IF HSW(192)&HSW(20．．．． |
140901 |
| IN |
Function |
|
IN(arg1) |
IF IN(0)==&HAA THEN
WAIT IN(1．．．． |
141008 |
| IPA |
Function |
|
IPA(UDP_R0$)
IPA(n) |
adrs=IPA(UDP_R0$)
adrs=IPA(n) |
200116 |
| IPC |
Function |
|
IPC(string) |
str_cnt=IPC(TCP_R0$) |
191002 |
| LEN |
Function |
|
LEN(string) |
print LEN(a$)
a=LEN(a$) |
070911 |
| LMT |
Function |
|
LMT(n) |
IF LMT(X_A,LMTp)!=0 THEN
RM．．．． |
141003 |
| LOF |
Function |
|
LOF(ch) |
IF LOF(1)>10 THEN : input# 1 a．．．． |
141008 |
| MBK |
Function |
|
MBK(arg) |
a=MBK(n)
a=MBK(n~Lng)
MBK(．．．． |
221026 |
| MBK$ |
Function |
|
MBK$(adr,val) |
A$=MBK$(100,6) |
090129 |
| MKY |
Function |
|
MKY(val) |
A=MKY(0)
PRX MKY(1) |
170125 |
| MMC |
Function |
|
MMC(0)
MMC(-1)
MMC(-2) |
IF MMC(0)==0 THEN |
220509 |
| MODBUS |
Function |
|
MODBUS(CHn;(Func,Adrs)) |
a=MODBUS(4,0)
a=MODBUS(1;(4,1．．．． |
190930 |
| M_SW |
Function |
SW function with the filter |
M_SW([n,]n) |
M_SW(192)
M_SW(10,193) |
100310 |
| NOT |
Function |
|
NOT(arg) |
A=NOT(1) |
071016 |
| ON |
Function |
|
ON(n) |
WAIT ON(-1)==0
PRINT "WA．．．． |
100310 |
| P$ |
Function |
|
P$(val) |
a$=P$(100) |
181205 |
| PEEK |
Function |
|
PEEK(Str$+n) |
A=PEEK(b$+1)
B=PEEK(b$+LEN(b$．．．． |
101215 |
| PGE |
Function |
|
PGE(0)
PGE(axs,val) |
IF PGE(X_A,ALM) THEN : GOTO *E．．．． |
110803 |
| PL |
Function |
|
PL(n;m) |
MOVS PL(1;10)
JUMP PL(2;100) |
110620 |
| PTR |
Function |
|
PTR(bytes,m) |
a=PTR(2,0)
a=PTR(4,12) |
190930 |
| PTR$ |
Function |
|
PTR$(m) |
ptr_=a$
ptr_=ptr_+10
k$=PTR．．．． |
120316 |
| RAD |
Function |
Radian conversion |
RAD(v) |
FP(0)=SIN(RAD(45)) |
090909 |
| RCV |
Function |
|
RCV(arg) |
A=RCV(A$)
A=RCV(P(100))
A=RC．．．． |
101215 |
| RR |
Function |
|
RR(arg1) |
WAIT RR(X_A)==0
WAIT RR(ALL_A．．．． |
170511 |
| RR1 |
Function |
|
RR1(arg1) |
WAIT RR1(X_A)&&h8!=0
PRX RR．．．． |
170116 |
| RR3 |
Function |
|
RR3(axis)
RR3(axis,1) |
A=RR3(X_A) |
170116 |
| R_RTU |
Function |
|
R_RTU(n)
R_RTU(Typ,n) |
CRC_OK=R_RTU(7)
current_pos=R．．．． |
160122 |
| SA |
Function |
|
SA(val) |
ON SA(5)+0 |
100310 |
| SA_B |
Function |
|
SA_B(val) |
OUT &H55 SA_B(5) |
100310 |
| SEC |
Function |
|
SEC(n) |
IF SEC(0)>SEC(1) THEN : print ．．．． |
141009 |
| SERCH$ |
Function |
|
SERCH$( str ) |
ptr_=d$
ptr_=ptr_+20
a=SER．．．． |
090901 |
| SIN,COS,TAN |
Function |
Trigonometric functions |
SIN(rad),COS(rad),TAN(rad) |
FP(0)=SIN(FP(0))
FP(1)=TAN(RA．．．． |
090909 |
| SQR |
Function |
Square root |
SQR(v) |
FP(3)=SQR(3)
A=SQR(3*3+4*4) |
100306 |
| STR$ |
Function |
|
STR$(arg) |
a$="data=" +str$(A) |
110719 |
| SW |
Function |
Read the value of a input port |
SW(arg) |
A=SW(192) /*入力ポートの読ａD．．． |
140901 |
| TASK |
Function |
|
TASK(n)
TASK(n|256) |
WAIT TASK(1)!=0
a=TASK(1|256) |
140904 |
| TCP |
Function |
|
TCP(n) |
IF TCP(0)==1 THEN
dmy=TCP(-1,．．．． |
210202 |
| TIME |
Function |
Get the time data |
TIME(0)
TIME(255)
TIME(VOID) |
IF TIME(0)<&H00182800 THEN
GOTO *aho
END_IF |
090625 |
| TIME$ |
Function |
Give a string of TIME |
TIME$(n) |
a$=DATE$(1)+" "+TIME$(1) |
090529 |
| TIMEOUT |
Function |
check timer_ if it is ZERO or ．．．． |
TIMEOUT(n) |
WAIT SW(1)&SW(2) OR TIMEOUT(0) |
090724 |
| TIMER |
Function |
|
TIMER( arg ) |
a=TIMER(3)
a=TIMER(VOID|3)
a．．．． |
100312 |
| USB |
Function |
|
USB(0) |
IF USB(0)!=1 THEN : GOTO *NOUS．．．． |
191001 |
| VAL |
Function |
|
VAL( str )
VAL( arg ) |
a$="a=1000 b=-1000 c=100"
a=V．．．． |
110719 |
| VAL |
Function |
Get a Value in Floating point |
VAL(str)
VAL(0) |
FP(0)=VAL(A$) |
110527 |
| WS0,WS1 |
Function |
|
WS0(arg1) |
IF WS0(0)==1 THEN : GOTO *TMOU．．．． |
100312 |
| X Y Z U |
Function |
|
X(arg1)
Y(arg1)
U(arg1)
Z(a．．．． |
MOVS X(1)+A VOID U(1)+B VOID
．．．． |
070731 |
| XMT |
Function |
|
XMT(dst,arg) |
A=XMT(8,A$)
A=XMT(8,P(100))
．．．． |
101215 |