Action

Sends scan codes to the PC.

 

 

Syntax

SENDSCAN label

 

 

Remarks

 

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.

 

 

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

'-----------------------------------------------------------------------------------------

'name                     : ps2_emul.bas

'copyright                : (c) 1995-2021, 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

$crystal = 4000000                                         ' used crystal frequency

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space

 

$lib "mcsbyteint.lbx"                                     ' use optional lib since we use only bytes

 

'configure PS2 pins

Config Ps2emu = 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

 

Enable Interrupts                                         ' you need to turn on interrupts yourself since an INT is used

 

Print "Press u,d,l,r,b, or t"

Dim Key As Byte

Do

  Key = Waitkey()                                       ' get key from terminal

  Select Case Key

    Case "u" : Ps2mousexy 0 , 10 , 0                     ' up

    Case "d" : Ps2mousexy 0 , -10 , 0                     ' down

    Case "l" : Ps2mousexy -10 , 0 , 0                     ' left

    Case "r" : Ps2mousexy 10 , 0 , 0                     ' right

    Case "b" : Ps2mousexy 0 , 0 , 1                       ' left button  pressed

              Ps2mousexy 0 , 0 , 0                       ' left button released

    Case "t" : Sendscan Mouseup                           ' send a scan code

    Case Else

  End Select

Loop

 

 

Mouseup:

Data 3 , &H08 , &H00 , &H01                                 ' mouse up by 1 unit