|
© MCS Electronics, 1995-2007 |
Const Sock_udp = $0f |
' Status Of Udp |
Const Sock_raw = $10 |
' Status of IP RAW |
'we do the usual |
' display a |
Print "Init TCP" |
|
message |
' before we use |
Enable Interrupts |
config tcpip , we need to enable the interrupts
Config Tcpip = Int0 , Mac = 12.128.12.34.56.78 , Ip = 192.168.0.8 , Submask = 255.255.255.0 , Gateway = 192.168.0.1 , Localport = 1000 , Tx = $55 , Rx = $55 , Twi = &H80 , Clock = 400000
Print "Init done"
'set the IP address to 192.168.0.135
Settcp 12.128.12.24.56.78 , 192.168.0.135 , 255.255.255.0 , 192.168.0.88
Dim L As Long |
|
'now read the IP address direct from the registers |
|
L = Gettcpregs(&H91 , 4) |
|
Print Ip2str(l) |
|
Dim B4 As Byte At L Overlay |
' this byte is the |
same as the LSB of L |
|
'now make the IP address 192.168.0.136 by writing to the LSB |
|
B4 = 136 |
'write |
Settcpregs &H91 , L , 4 |
|
'and check if it worked L = Gettcpregs(&H91 , 4)
Print Ip2str(l)
'while the address has the right value now the chip needs a reset in order to
use the new settings |
' set sysinit and |
L = &B10000001 |
|
swrest bits |
' write 1 register |
Settcpregs &H00 , L , 1 |
|
'and with PING you can check again that now it works |
|
End |
|
SENDSCAN
Action
Sends scan codes to the PC.
Syntax
SENDSCAN label
Remarks
Label |
The name of the label that contains the scan codes. |
|
page -634- |
© MCS Electronics, 1995-2007
The SENDSCAN statement can send multiple scan codes to the PC.
The label is used to specify the start of the scan codes. The first byte specifies the number of bytes that follow.
The following table lists all mouse scan codes.
Emulated Action |
Data sent to host |
Move up one |
08,00,01 |
Move down one |
28,00,FF |
Move right one |
08,01,00 |
Move left one |
18,FF,00 |
Press left button |
09,00,00 |
Release left button |
08,00,00 |
Press middle button |
0C,00,00 |
Release middle button |
08,00,00 |
Press right button |
0A,00,00 |
Release right button |
08,00,00 |
To emulate a left mouse click, the data line would look like this:
DATA 6 , &H09, &H00, &H00, &H08 , &H00, &H00
^send 6 bytes
^left click
^ release
See also
PS2MOUSEXY , CONFIG PS2EMU
Example
'----------------------------------------------------------------------------- |
|
------------ |
: ps2_emul.bas |
'name |
|
'copyright |
: (c) 1995-2005, MCS Electronics |
'purpose |
: PS2 Mouse emulator |
'micro |
: 90S2313 |
'suited for demo |
: NO, commercial addon needed |
'commercial addon needed |
: yes |
'-----------------------------------------------------------------------------
------------
$regfile = "2313def.dat" |
' specify the used |
micro |
' used crystal |
$crystal = 4000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
|
$lib "mcsbyteint.lbx" |
' use optional lib |
since we use only bytes |
|
|
page -635- |
© MCS Electronics, 1995-2007
See also
CONFIG ATEMU
Example
'----------------------------------------------------------------------------- |
|
------------ |
: ps2_kbdemul.bas |
'name |
|
'copyright |
: (c) 1995-2005, MCS Electronics |
'purpose |
: PS2 AT Keyboard emulator |
'micro |
: 90S2313 |
'suited for demo |
: no, ADD ON NEEDED |
'commercial addon needed |
: yes |
'-----------------------------------------------------------------------------
------------
$regfile = "2313def.dat" |
' specify the used |
|
micro |
|
' used crystal |
$crystal = 4000000 |
|
|
frequency |
|
' use baud rate |
$baud = 19200 |
|
|
$hwstack = 32 |
|
' default use 32 |
for the hardware stack |
' default use 10 |
|
$swstack = 10 |
|
|
for the SW stack |
|
' default use 40 |
$framesize = 40 |
|
|
for the frame space |
|
|
$lib "mcsbyteint.lbx" |
' use optional lib |
|
since we use only bytes |
|
|
'configure PS2 AT pins |
' you need to turn |
|
Enable Interrupts |
|
|
on interrupts yourself since an INT is used |
|
|
Config Atemu = Int1 , Data = Pind.3 , Clock = Pinb.0 |
||
' |
^------------------------ |
used interrupt |
' |
^----------- |
pin connected to DATA |
' |
^-- |
pin connected to clock |
'Note that the DATA must be connected to the used interrupt pin |
||
Waitms 500 |
|
' optional delay |
'rcall _AT_KBD_INIT
Print "Press t for test, and set focus to the editor window"
Dim Key2 As Byte , Key As Byte
Do |
' get key from |
Key2 = Waitkey() |
|
terminal |
|
Select Case Key2 |
|
Case "t" : |
|
Waitms 1500 |
' send a scan code |
Sendscankbd Mark |
|
Case Else |
|
End Select |
|
Loop |
|
Print Hex(key) |
|
Mark: |
' send mark |
Data 12 , &H3A , &HF0 , &H3A , &H1C , &HF0 , &H1C , &H2D , &HF0 , &H2D , &H42
, &HF0 , &H42
'^ send 12 bytes
page -639-