|
【USE】 |
Q3E
|
Q3E TCP|0 WRITE_BULK "D" 1000 aho(50) 30
Q3E TCP|0 READ_BULK "D" 1000 aho(10) 30
Q3E TCP|0 WRITE_BIT "M" 1000 4 1 0 1 0
Q3E (15,TCP|0) READ_BULK "D" 1000 aho(10) 30 |
| 【FORMAT】 |
【FUNCTION】 |
Q3E TCP|n func エリア 引数
Q3E (tmout,TCP|n) func エリア 引数
|
|
| 【EXPLANATION】 |
|
|
|
SET_IP TCP Telnet
SET_IP 192 168 0 20 255 255 255 0 192 168 0 248
SET_IP TCP PACKET 9000 192 168 0 195
ON_ERROR *sys_err
QUIT_FORK 1 *W_BIT
END
*WR_BULK
d=0
w=0
m=0
x=0
y=0
b=0
DO
d=d+1
X(100)=d
X(101)=d+1
'X(100)下位2バイト -> Q03 D100 (Q03のアドレスはワードのDEC表記)
'X(101)下位2バイト -> Q03 D101
Q3E TCP|0 WRITE_BULK "D" 100 X(100) 2
'Y(100)下位2バイト <- Q03 D100
'Y(101)下位2バイト <- Q03 D101
Q3E TCP|0 READ_BULK "D" 100 Y(100) 2
PRINT "DW" X(100) X(101)
PRINT "DR" Y(100) Y(101)
w=w+1
X(200)=w
X(201)=w+1
'X(200)下位2バイト -> Q03 W0C8 (Q03のアドレスはワードのHEX表記)
'X(201)下位2バイト -> Q03 W0C9
Q3E TCP|0 WRITE_BULK "W" 200 X(200) 2
'Y(200)下位2バイト <- Q03 W0C8
'Y(201)下位2バイト <- Q03 W0C9
Q3E TCP|0 READ_BULK "W" 200 Y(200) 2
PRINT "WW" X(200) X(201)
PRINT "WR" Y(200) Y(201)
m=m+1
X(300)=m
X(301)=m+1
'X(300)下位2バイト -> Q03 M300 (Q03のアドレスはビットのDEC表記)
'X(301)下位2バイト -> Q03 M316
Q3E TCP|0 WRITE_BULK "M" 300 X(300) 2
'Y(300)下位2バイト <- Q03 M300
'Y(301)下位2バイト <- Q03 M316
Q3E TCP|0 READ_BULK "M" 300 Y(300) 2
PRINT "MW" X(300) X(301)
PRINT "MR" Y(300) Y(301)
x=x+1
X(400)=x
X(401)=x+1
'X(400)下位2バイト -> Q03 X190 (Q03のアドレスはビットのHEX表記)
'X(401)下位2バイト -> Q03 X1A0
Q3E TCP|0 WRITE_BULK "X" 400 X(400) 2
'Y(400)下位2バイト <- Q03 X190
'Y(401)下位2バイト <- Q03 X1A0
Q3E TCP|0 READ_BULK "X" 400 Y(400) 2
PRINT "XW" X(400) X(401)
PRINT "XR" Y(400) Y(401)
y=y+1
X(500)=y
X(501)=y+1
'X(500)下位2バイト -> Q03 Y1F4 (Q03のアドレスはビットのHEX表記)
'X(501)下位2バイト -> Q03 Y204
Q3E TCP|0 WRITE_BULK "Y" 500 X(500) 2
'Y(500)下位2バイト <- Q03 Y1F4
'Y(501)下位2バイト <- Q03 Y204
Q3E TCP|0 READ_BULK "Y" 500 Y(500) 2
PRINT "YW" X(500) X(501)
PRINT "YR" Y(500) Y(501)
b=b+1
X(600)=b
X(601)=b+1
'X(600)下位2バイト -> Q03 B258 (Q03のアドレスはビットのHEX表記)
'X(601)下位2バイト -> Q03 B268
Q3E TCP|0 WRITE_BULK "B" 600 X(600) 2
'Y(600)下位2バイト <- Q03 B258
'Y(601)下位2バイト <- Q03 B268
Q3E TCP|0 READ_BULK "B" 600 Y(600) 2
PRINT "BW" X(600) X(601)
PRINT "BR" Y(600) Y(601)
TIME 1000
LOOP
*WR_RNDM
d=0
DO
d=d+1
'Q3E の W3E8,W3F0,W3F8 に書き込み
Q3E TCP|0 WRITE_RNDM "W" 1000 d "W" 1008 d+1 "W" 1016 d+2
'Q3E の W3E8,W3F0,W3F8 から MBK(100)~(102)に読み込み
Q3E TCP|0 READ_RNDM "W" 1000 "W" 1008 "W" 1016 MBK(100)
PRINT MBK(100) MBK(101) MBK(102)
TIME 1000
LOOP
*W_BIT
c=0
DO
c=c+1
c=c%2
Q3E TCP|0 WRITE_BIT "X" &H00000100 1 c
Q3E TCP|0 WRITE_BIT "Y" &H00000100 2 c 1-c
Q3E TCP|0 WRITE_BIT "B" &H0000010C 3 1-c c 1-c
Q3E TCP|0 READ_BULK "X" &H00000100 MBK(200) 1
Q3E TCP|0 READ_BULK "Y" &H00000100 MBK(201) 1
Q3E TCP|0 READ_BULK "B" &H00000100 MBK(202) 1
PRX MBK(200) MBK(201) MBK(202)
TIME 500
LOOP
*sys_err
PRINT "TCP(0)=" TCP(0)
PRINT "ERROR Line:" err_&&H00FFFFFF "Code:" err_>>24 "Message:" ERR$(err_)
END |
|
|
[LASTMODIFY]2022-04-05 16:15:35 |
[CREATEDATE]2019-09-30 18:27:48 |
|
|
|
|