mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2024-06-01 05:41:27 +00:00
26 lines
854 B
C
26 lines
854 B
C
/* ------------------------------------------------------------------------
|
|
System : Manx Aztec C65 Version 3.2b
|
|
MS-DOS cross-development environment
|
|
Platform : Apple IIe 128K PRODOS 8
|
|
Program : keyclr.c
|
|
Description : G2 Library Routine
|
|
|
|
Written by : Bill Buckels
|
|
Revision Date: Dec 4, 2009
|
|
|
|
Licence : You may use this code for whatever you wish as long
|
|
as you agree that Bill Buckels has no warranty or
|
|
liability obligations whatsoever from said use.
|
|
------------------------------------------------------------------------ */
|
|
|
|
|
|
clearkey()
|
|
{
|
|
|
|
char *KEYPRESS = (char*)0xC000; /* return the last key press */
|
|
char *KEYCLEAR = (char*)0xC010; /* clear the last key press */
|
|
|
|
/* clear stragglers from the keyboard buffer */
|
|
while(KEYPRESS[0] > 127)KEYCLEAR[0]=0;
|
|
}
|