31 lines
678 B
Common Lisp
31 lines
678 B
Common Lisp
|
NAME lcdcomm
|
||
|
|
|
||
|
|
INCLUDE p_std.h
|
||
|
|
INCLUDE p_object.h
|
||
|
|
INCLUDE olib.g
|
||
|
|
INCLUDE comman.g
|
||
|
|
|
||
|
|
CLASS lcdcomm comman
|
||
|
|
LCD Test command manager
|
||
|
|
{
|
||
|
|
REPLACE com_init !
|
||
|
|
REPLACE com_exit ! Exit application
|
||
|
|
ADD cm_backlight ! Turn backlight on/off
|
||
|
|
ADD cm_sound ! Make a beep by calling p_sound()
|
||
|
|
TYPES
|
||
|
|
{
|
||
|
|
typedef struct
|
||
|
|
{
|
||
|
|
INT duration; ticks
|
||
|
|
INT pitch; frequency = 512/pitch kHz
|
||
|
|
} LCDCOMM_SOUND_INFO;
|
||
|
|
}
|
||
|
|
PROPERTY
|
||
|
|
{
|
||
|
|
UBYTE Status;
|
||
|
|
UBYTE Prefs;
|
||
|
|
LCDCOMM_SOUND_INFO sound;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|