/*
 
   CPCADDON par OffseT 
   pour Quasar CPC 18 - Avril 2000

   Exemple de fonctions CPC en compl{ment
   de la CPCIOLIB de Juergen Weber

   A utiliser avec le compilateur Small-C
 
compilation :

   cc -M cpcaddon
   zmac cpcaddon=cpcaddon

*/
 
#include cpciolib.h
#include cpcaddon.h


int regs[4];		/* AF HL DE BC */


locate(x,y) int x,y;	/* Fonction LOCATE */
{
 regs[1]=(x*256)+y;
 oscall(SET_CUR_TXT,regs);
}

keypressed(a) int *a;	/* Fonction KEYPRESSED */
{
 regs[0]=0;
 oscall(TST_KEY,regs);
 *a=regs[0] >> 8;
}
ril 2000

   Exemple de fonctions CPC en compl{ment de la CPCIOLIB de JueIB de Juergen Weber

   A utiliser avec le compilateur Small-C
 
compilation :

   cc -M cpcaddon
   zmac cpcaddon=cpcaddon

*/
 
#include cpciolib.h
#include cpcaddon.h


int regs[4];		/* AF HL DE BC */


locate(x,y) int x,y;	/* Fonction LOCATE */
{
 regs[1]=(x*256)+y;
 oscall(SET_CUR_TXT,regs);
}

keypressed(a) int *a;	/* Fonction KEYPRESSED */
{
 regs[0