/* ataripur.c (module de base pour atari:st,ste,falcon,tt) (basse resolution) Description des instructions de ce module dans doc.txt Guillaume LAMONOCA Supelec (94) Regis ROY Supelec (95) Utiliser Pure C Pour de gros executables: Options->Compiler "Use absolute calls" (par prudence choisissez toujours cette option) N'hesitez pas non plus a mettre 0 pour warning level. (compatibilite screenblaster et joystick rajoutee par Regis ROY) Vous pouvez lancer un programme a partir de n'importe quelle resolution. Lors du retour au bureau, la resolution sera retablie. Les mouvements du joystick 1 emulent les touches flechees. Le bouton de tir du joystick 1 emule le bouton droit de la souris. Pour le son, vous pouvez choisir 2 implementations: - Son gere par interruption - Son DMA (meilleur, mais frequence egale a 12.5, 25 ou 50 khz) (pour avoir le son DMA definissez DMASOUND) L'eclatement du fichier provoque l'apparition publique de nombreux symboles qui etait "static" au paravant: si dans vos programmes vous utilisez les memes noms de variables globales ca coincera... Si cela vous arrive renommez les variables. Faites un fichier .PRJ pour compiler et linker pcstart.o, exemple.c, ataripur.c et ataripu2.s ensemble afin d'obtenir l'executable exemple.prg. ataripu2.s peut etre assemble avec l'assembleur devpac (produire alors un code objet DRI et remplacer IF par IFD). contenu d'un tel fichier exemple.prj: exemple.prg = pcstart.c ataripu2.s (ou ataripu2.o si produit par devpac) ataripur.c exemple.c PCFLTLIB.LIB PCSTDLIB.LIB PCTOSLIB.LIB */ /* si KEYMAP est defini on detourne l'it clavier (pour keymap[]) */ #define KEYMAP /* ne pas definir ce mot si vous voulez utiliser un debuggeur */ /* KEYMAP est aussi defini dans ataripu2.s */ /* #define DMASOUND */ #include "header.h" #include #include extern void mse_it(void); extern void kbd_it(void); extern void cls(void); extern void swaps2(void); extern long refreshscreen(void); extern void bmovea(void); extern void bmoveb(void); extern void copyba(void); extern void copybb(void); extern void copybc(void); extern void putpba(void); extern void putpbb(void); extern void putpbc(void); extern void getmaska(void); extern void getbloca(void); extern void affchara(void); extern void affcharb(void); extern void playsa(void); extern void unbuf(void); /********************************************************************/ /* variables globales */ long fbase; /* adresse de la fonction systeme screen blaster */ static unsigned int lineskip; static unsigned char bitoffs; static int video_proc; static long vscreen; static unsigned long bakpal[256]; static int nbcol; static long bloc32k; static unsigned int egapal[16]= { 0x0000,0x1008,0x3080,0x5088, 0x2800,0x3808,0x4880,0x5ccc, 0x3888,0x400f,0x50f0,0x60ff, 0x4f00,0x5f0f,0x7ff0,0x8fff }; static unsigned int oldpal[16]; static unsigned int tmppal[16]; int tmasque[16]= { 0x0000,0x8000,0xc000,0xe000,0xf000,0xf800,0xfc00,0xfe00, 0xff00,0xff80,0xffc0,0xffe0,0xfff0,0xfff8,0xfffc,0xfffe }; int mousefond[128]; static char defaultmouse[160]= { 0x3f,0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 0x1f,0xff,0x40,0x00,0x40,0x00,0x40,0x00,0x40,0x00, 0x0f,0xff,0x60,0x00,0x60,0x00,0x60,0x00,0x60,0x00, 0x07,0xff,0x70,0x00,0x70,0x00,0x70,0x00,0x70,0x00, 0x03,0xff,0x78,0x00,0x78,0x00,0x78,0x00,0x78,0x00, 0x01,0xff,0x7c,0x00,0x7c,0x00,0x7c,0x00,0x7c,0x00, 0x00,0xff,0x7e,0x00,0x7e,0x00,0x7e,0x00,0x7e,0x00, 0x00,0x7f,0x7f,0x00,0x7f,0x00,0x7f,0x00,0x7f,0x00, 0x00,0x3f,0x7f,0x80,0x7f,0x80,0x7f,0x80,0x7f,0x80, 0x00,0x1f,0x7c,0x00,0x7c,0x00,0x7c,0x00,0x7c,0x00, 0x01,0xff,0x6c,0x00,0x6c,0x00,0x6c,0x00,0x6c,0x00, 0x10,0xff,0x46,0x00,0x46,0x00,0x46,0x00,0x46,0x00, 0x30,0xff,0x06,0x00,0x06,0x00,0x06,0x00,0x06,0x00, 0x78,0x7f,0x03,0x00,0x03,0x00,0x03,0x00,0x03,0x00, 0xf8,0x7f,0x03,0x00,0x03,0x00,0x03,0x00,0x03,0x00, 0xfc,0x7f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 }; static int nbscreen=2; static int oldres; static long oldxbios2,oldxbios3; long pt_ecr_actif,pt_ecr_travail; static long bigbloc; char swapflag=0; char vblflag=0; static long tempo_pt_ecr; long masque; long masque2; long matrice; long matrice2; long ecran; int haut; int larg; char *recal; char *recal2; int fmask; int dec; int tmask; int cnt; int ntmask; static int ftab[200]; static int color=15; int pma= -1; int pmb= -1; int pmc= -1; int pmd= -1; static long ma= -1L; static long mb= -1L; static long tm[4]={0L,0xffff0000L,0xffffL,-1L}; static unsigned long ltime; unsigned long lastvbl; int g_oldx,g_oldy,xmax,ymax,fmousex,fmousey; long mousebob,lastbob; int tmsk,ntmsk,count; char broken=0; char startflag,mousemode,endflag; char bufferflag=1; char kbufferflag=1; char statek,lstatek; static int mouselevel=-1; static long voffset=16L; static long oldvbl[8]; static long oldtrap[8]; static long oldkbdit; int kbdcnt=0; int kbdptr=0; char kbdbuf[16]; int xcur=0; int ycur=0; long adrunbuf; int fbufnbr=0; int fbufin=0; int fbufout=0; char fbuffer[256]; int msebuffer[128]; int nbrbuffer=0; int lstbufptr=0; int msebufptr=0; int keybbufptr=0; int lstkbufptr=0; int nbrkbuffer=0; char keybbuffer[256]; static unsigned char dta[44]; long suiveuse=0L; char inuse=0; long old_118,old_134,old_400; char old_fa07,old_fa19,old_fa1f; long splstart,splend,splcour; int splvol,splfreq,splrep; char keymap[256]={ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }; unsigned char codekey[256]= { 0,27,'1','2','3','4','5','6','7','8','9','0',0,'_',8,0, 'a','z','e','r','t','y','u','i','o','p','[',']',13,0,'q','s', 'd','f','g','h','j','k','l','m','\\',0,0,'#','w','x','c','v', 'b','n',',',';','/','=',0,0,0,' ',0,0,0,0,0,0, 0,0,0,0,0,0,0,0,'^',0,'-','<',0,'>','+',0, 'v',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,'(',')','/','*','7','8','9','4','5','6','1','2','3', '0','.',13,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }; int mousex,mousey,mousek,vblclock; int msex,msey,msek,mclk; /********************************************************************/ /* fontes */ static unsigned char sysfonte[64*16]={ 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 0xc3,0xc3,0xc3,0xc3,0xc7,0xe7,0xc7,0xe7,0x1c,0x1c,0x1c,0x18,0x18,0x00,0x18,0x00, 0x81,0x81,0x81,0xdb,0xff,0xff,0xff,0xff,0x36,0x36,0x24,0x00,0x00,0x00,0x00,0x00, 0xc8,0x88,0x00,0x81,0x80,0x00,0x81,0xdb,0x13,0x33,0x7e,0x36,0x37,0x7e,0x24,0x00, 0x83,0x01,0x01,0x81,0xc0,0x00,0x80,0xc1,0x3c,0x6e,0x68,0x3e,0x0b,0x6b,0x3e,0x00, 0x9f,0x09,0x81,0xc3,0xc1,0x80,0xd8,0xfd,0x20,0x52,0x24,0x08,0x12,0x25,0x02,0x00, 0xc7,0x83,0x83,0x83,0x00,0x00,0x80,0xc6,0x18,0x24,0x34,0x38,0x4d,0x46,0x39,0x00, 0x8f,0x8f,0xcf,0x8f,0xdf,0xff,0xff,0xff,0x30,0x30,0x10,0x20,0x00,0x00,0x00,0x00, 0xf3,0xe3,0xc7,0xc7,0xc7,0xe7,0xf3,0xfb,0x04,0x08,0x18,0x10,0x18,0x08,0x04,0x00, 0xcf,0xe7,0xe3,0xf3,0xe3,0xe3,0xc7,0xef,0x10,0x08,0x0c,0x04,0x0c,0x08,0x10,0x00, 0xff,0xc9,0xe1,0x80,0xc0,0xc1,0xed,0xff,0x00,0x12,0x0c,0x3f,0x0c,0x12,0x00,0x00, 0xff,0xe3,0xe3,0x80,0xc0,0xe3,0xf3,0xff,0x00,0x0c,0x0c,0x3f,0x0c,0x0c,0x00,0x00, 0xff,0xff,0xff,0xff,0xc7,0xc7,0x87,0xcf,0x00,0x00,0x00,0x00,0x18,0x18,0x30,0x00, 0xff,0xff,0xff,0x81,0xc1,0xff,0xff,0xff,0x00,0x00,0x00,0x3e,0x00,0x00,0x00,0x00, 0xff,0xff,0xff,0xff,0xff,0x8f,0x8f,0xcf,0x00,0x00,0x00,0x00,0x00,0x30,0x30,0x00, 0xff,0xf9,0xf1,0xe3,0xc7,0x8f,0xdf,0xff,0x00,0x02,0x04,0x08,0x10,0x20,0x00,0x00, 0xc3,0x81,0x00,0x00,0x00,0x80,0xc1,0xe3,0x1c,0x26,0x63,0x63,0x63,0x32,0x1c,0x00, 0xe3,0xc3,0xe3,0xe3,0xe3,0xe3,0x80,0xc0,0x0c,0x1c,0x0c,0x0c,0x0c,0x0c,0x3f,0x00, 0x81,0x00,0x80,0xc0,0x81,0x03,0x00,0x80,0x3e,0x63,0x07,0x1e,0x3c,0x70,0x7f,0x00, 0x00,0x80,0xe1,0xc1,0xe0,0x00,0x80,0xc1,0x7f,0x06,0x0c,0x1e,0x03,0x63,0x3e,0x00, 0xe1,0xc1,0x81,0x01,0x00,0x80,0xf1,0xf9,0x0e,0x1e,0x36,0x66,0x7f,0x06,0x06,0x00, 0x01,0x01,0x01,0x80,0xf8,0x18,0x80,0xc1,0x7e,0x60,0x7e,0x03,0x03,0x63,0x3e,0x00, 0xc1,0x81,0x0f,0x01,0x00,0x00,0x80,0xc1,0x1e,0x30,0x60,0x7e,0x63,0x63,0x3e,0x00, 0x00,0x80,0xf0,0xe1,0xc3,0xc7,0xc7,0xe7,0x7f,0x03,0x06,0x0c,0x18,0x18,0x18,0x00, 0x83,0x01,0x01,0x81,0x00,0x00,0x80,0xc1,0x3c,0x62,0x72,0x3c,0x4f,0x43,0x3e,0x00, 0x81,0x00,0x00,0x80,0xc0,0xf0,0x81,0xc3,0x3e,0x63,0x63,0x3f,0x03,0x06,0x3c,0x00, 0xff,0xc7,0xc7,0xe7,0xc7,0xc7,0xe7,0xff,0x00,0x18,0x18,0x00,0x18,0x18,0x00,0x00, 0xff,0xc7,0xc7,0xe7,0xc7,0xc7,0x87,0xcf,0x00,0x18,0x18,0x00,0x18,0x18,0x30,0x00, 0xf1,0xe1,0xc3,0x87,0xc7,0xe3,0xf1,0xf9,0x06,0x0c,0x18,0x30,0x18,0x0c,0x06,0x00, 0xff,0xff,0x81,0xc1,0x81,0xc1,0xff,0xff,0x00,0x00,0x3e,0x00,0x3e,0x00,0x00,0x00, 0x8f,0xc7,0xe3,0xf1,0xe1,0xc3,0x87,0xcf,0x30,0x18,0x0c,0x06,0x0c,0x18,0x30,0x00, 0x81,0x00,0x00,0x80,0xe1,0xf3,0xe3,0xf3,0x3e,0x7f,0x63,0x06,0x0c,0x00,0x0c,0x00, 0x83,0x01,0x00,0x00,0x00,0x00,0x00,0x81,0x3c,0x42,0x99,0xa1,0xa1,0x99,0x42,0x3c, 0xc3,0x81,0x00,0x00,0x00,0x00,0x18,0x9c,0x1c,0x36,0x63,0x63,0x7f,0x63,0x63,0x00, 0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x81,0x7e,0x63,0x63,0x7e,0x63,0x63,0x7e,0x00, 0xc1,0x80,0x0c,0x1f,0x1f,0x88,0xc0,0xe1,0x1e,0x33,0x60,0x60,0x60,0x33,0x1e,0x00, 0x03,0x01,0x00,0x00,0x00,0x00,0x01,0x83,0x7c,0x66,0x63,0x63,0x63,0x66,0x7c,0x00, 0x00,0x00,0x1f,0x01,0x01,0x1f,0x00,0x80,0x7f,0x60,0x60,0x7e,0x60,0x60,0x7f,0x00, 0x00,0x00,0x1f,0x01,0x01,0x1f,0x1f,0x9f,0x7f,0x60,0x60,0x7e,0x60,0x60,0x60,0x00, 0xc0,0x80,0x0f,0x00,0x00,0x80,0xc0,0xe0,0x1f,0x30,0x60,0x6f,0x63,0x33,0x1f,0x00, 0x18,0x18,0x18,0x00,0x00,0x18,0x18,0x9c,0x63,0x63,0x63,0x7f,0x63,0x63,0x63,0x00, 0x80,0xc0,0xe3,0xe3,0xe3,0xe3,0x80,0xc0,0x3f,0x0c,0x0c,0x0c,0x0c,0x0c,0x3f,0x00, 0xf8,0xf8,0xf8,0xf8,0xf8,0x18,0x80,0xc1,0x03,0x03,0x03,0x03,0x03,0x63,0x3e,0x00, 0x18,0x10,0x01,0x03,0x03,0x01,0x10,0x98,0x63,0x66,0x6c,0x78,0x7c,0x6e,0x67,0x00, 0x8f,0x8f,0x8f,0x8f,0x8f,0x8f,0x80,0xc0,0x30,0x30,0x30,0x30,0x30,0x30,0x3f,0x00, 0x18,0x00,0x00,0x00,0x10,0x18,0x18,0x9c,0x63,0x77,0x7f,0x6b,0x63,0x63,0x63,0x00, 0x18,0x08,0x00,0x00,0x00,0x10,0x18,0x9c,0x63,0x73,0x7b,0x7f,0x6f,0x67,0x63,0x00, 0x81,0x00,0x00,0x00,0x00,0x00,0x80,0xc1,0x3e,0x63,0x63,0x63,0x63,0x63,0x3e,0x00, 0x01,0x00,0x00,0x00,0x00,0x01,0x1f,0x9f,0x7e,0x63,0x63,0x63,0x7e,0x60,0x60,0x00, 0x81,0x00,0x00,0x00,0x00,0x00,0x80,0xc2,0x3e,0x63,0x63,0x63,0x6f,0x66,0x3d,0x00, 0x01,0x00,0x00,0x00,0x00,0x01,0x10,0x98,0x7e,0x63,0x63,0x67,0x7c,0x6e,0x67,0x00, 0x83,0x01,0x01,0x81,0xc0,0x00,0x80,0xc1,0x3c,0x66,0x60,0x3e,0x03,0x63,0x3e,0x00, 0x80,0xc0,0xe3,0xe3,0xe3,0xe3,0xe3,0xf3,0x3f,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x00, 0x18,0x18,0x18,0x18,0x18,0x18,0x80,0xc1,0x63,0x63,0x63,0x63,0x63,0x63,0x3e,0x00, 0x18,0x18,0x18,0x00,0x80,0xc1,0xe3,0xf7,0x63,0x63,0x63,0x77,0x3e,0x1c,0x08,0x00, 0x18,0x18,0x18,0x00,0x00,0x00,0x08,0x9c,0x63,0x63,0x63,0x6b,0x7f,0x77,0x63,0x00, 0x18,0x00,0x80,0xc1,0x81,0x00,0x08,0x9c,0x63,0x77,0x3e,0x1c,0x3e,0x77,0x63,0x00, 0x11,0x11,0x11,0x81,0xc3,0xc7,0xc7,0xe7,0x66,0x66,0x66,0x3c,0x18,0x18,0x18,0x00, 0x00,0x80,0xe0,0xc1,0x83,0x07,0x00,0x80,0x7f,0x07,0x0e,0x1c,0x38,0x70,0x7f,0x00, 0xc3,0xc3,0xc7,0xc7,0xc7,0xc7,0xc3,0xe3,0x1c,0x18,0x18,0x18,0x18,0x18,0x1c,0x00, 0xff,0x9f,0xcf,0xe7,0xf3,0xf9,0xfd,0xff,0x00,0x20,0x10,0x08,0x04,0x02,0x00,0x00, 0xc3,0xe3,0xe3,0xe3,0xe3,0xe3,0xc3,0xe3,0x1c,0x0c,0x0c,0x0c,0x0c,0x0c,0x1c,0x00, 0xe7,0xc3,0x81,0x08,0x9c,0xff,0xff,0xff,0x08,0x1c,0x36,0x63,0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x7f,0x7f,0x7f,0x7f,0x7f,0x7f,0x7f,0x00 }; /**********************************************************************/ /* tables trigonometriques 14 bits */ static int tsn[320]={ 0,402,804,1205,1606,2006,2404,2801, 3196,3590,3981,4370,4756,5139,5520,5897, 6270,6639,7005,7366,7723,8076,8423,8765, 9102,9434,9760,10080,10394,10702,11003,11297, 11585,11866,12140,12406,12665,12916,13160,13395, 13623,13842,14053,14256,14449,14635,14811,14978, 15137,15286,15426,15557,15679,15791,15893,15986, 16069,16143,16207,16261,16305,16340,16364,16379, 16384,16379,16364,16340,16305,16261,16207,16143, 16069,15986,15893,15791,15679,15557,15426,15286, 15137,14978,14811,14635,14449,14256,14053,13842, 13623,13395,13160,12916,12665,12406,12140,11866, 11585,11297,11003,10702,10394,10080,9760,9434, 9102,8765,8423,8076,7723,7366,7005,6639, 6270,5897,5520,5139,4756,4370,3981,3590, 3196,2801,2404,2006,1606,1205,804,402, 0,-402,-804,-1205,-1606,-2006,-2404,-2801, -3196,-3590,-3981,-4370,-4756,-5139,-5520,-5897, -6270,-6639,-7005,-7366,-7723,-8076,-8423,-8765, -9102,-9434,-9760,-10080,-10394,-10702,-11003,-11297, -11585,-11866,-12140,-12406,-12665,-12916,-13160,-13395, -13623,-13842,-14053,-14256,-14449,-14635,-14811,-14978, -15137,-15286,-15426,-15557,-15679,-15791,-15893,-15986, -16069,-16143,-16207,-16261,-16305,-16340,-16364,-16379, -16384,-16379,-16364,-16340,-16305,-16261,-16207,-16143, -16069,-15986,-15893,-15791,-15679,-15557,-15426,-15286, -15137,-14978,-14811,-14635,-14449,-14256,-14053,-13842, -13623,-13395,-13160,-12916,-12665,-12406,-12140,-11866, -11585,-11297,-11003,-10702,-10394,-10080,-9760,-9434, -9102,-8765,-8423,-8076,-7723,-7366,-7005,-6639, -6270,-5897,-5520,-5139,-4756,-4370,-3981,-3590, -3196,-2801,-2404,-2006,-1606,-1205,-804,-402, 0,402,804,1205,1606,2006,2404,2801, 3196,3590,3981,4370,4756,5139,5520,5897, 6270,6639,7005,7366,7723,8076,8423,8765, 9102,9434,9760,10080,10394,10702,11003,11297, 11585,11866,12140,12406,12665,12916,13160,13395, 13623,13842,14053,14256,14449,14635,14811,14978, 15137,15286,15426,15557,15679,15791,15893,15986, 16069,16143,16207,16261,16305,16340,16364,16379 }; static int ttg[65]={ -16384,-15599,-14850,-14133,-13446,-12786,-12151,-11539, -10947,-10375,-9820,-9281,-8757,-8247,-7749,-7263, -6786,-6320,-5862,-5413,-4970,-4534,-4104,-3679, -3259,-2843,-2430,-2021,-1614,-1209,-805,-402, 0,402,805,1209,1614,2021,2430,2843, 3259,3679,4104,4534,4970,5413,5862,6320, 6786,7263,7749,8247,8757,9281,9820,10375, 10947,11539,12151,12786,13446,14133,14850,15599, 16384 }; int *sn=tsn; int *cs=tsn+64; int *tg=ttg+32; /***********************************************************/ /* Definitions pour screen blaster */ /**** Definition du header du fichier INF ****/ typedef struct { long ident; long valeur; } t_cookie; typedef struct info_header { char ident[24]; int inc1[7]; int curs[5]; int inc2[10]; long scrtyp[4]; char scrname[4][32]; } INFO_HEADER; /**** Definition de la structure d'un bloc de resolution ****/ typedef struct info_bloc { struct info_bloc *next_bloc; int inc3; char *descr; int vxmax,vymax,pxmax,pymax; int xratio,yratio; int nbplane; long nbcolor; int octpline; int inc5; int vfreq,hfreq; int inc6,inc7; long scrmask; int sblastfreq; int rsvd[13]; struct change *chglist; long rsvd1; } INFO_BLOC; struct chval { int *pos; int val; }; typedef struct change { int nbchange; struct chval chg[25]; }CHANGE; extern long initsblfunc(void); extern void getsblrez(INFO_BLOC **blact,INFO_BLOC **firstbloc); extern long setsblrez(INFO_BLOC *newbloc); extern int sblon(void); CHANGE chg_vgalow= { 21, { {(int *)0xffff82a2L,1049}, {(int *)0xffff82acL,1045}, {(int *)0xffff82a4L,943}, {(int *)0xffff82a6L,143}, {(int *)0xffff82a8L,143}, {(int *)0xffff82aaL,943}, {(int *)0xffff8282L,23}, {(int *)0xffff828cL,17}, {(int *)0xffff8284L,18}, {(int *)0xffff8286L,1}, {(int *)0xffff8288L,526}, {(int *)0xffff828aL,13}, {(int *)0xffff828eL,0}, {(int *)0xffff8290L,0}, {(int *)0xffff8210L,80}, {(int *)0xffff820eL,0}, {(int *)0xffff82c0L,0x186}, {(int *)0xffff8266L,0}, {(int *)0xffff8260L,0}, {(int *)0xffff82c2L,5}, {(int *)0xffff820aL,512} } }, chg_rgblow= { 21, { {(int *)0xffff82a2L,625}, {(int *)0xffff82acL,619}, {(int *)0xffff82a4L,613}, {(int *)0xffff82a6L,47}, {(int *)0xffff82a8L,111}, {(int *)0xffff82aaL,511}, {(int *)0xffff8282L,62}, {(int *)0xffff828cL,52}, {(int *)0xffff8284L,50}, {(int *)0xffff8286L,9}, {(int *)0xffff8288L,575}, {(int *)0xffff828aL,28}, {(int *)0xffff828eL,0}, {(int *)0xffff8290L,0}, {(int *)0xffff8210L,80}, {(int *)0xffff820eL,0}, {(int *)0xffff82c0L,0x81}, {(int *)0xffff8266L,0}, {(int *)0xffff8260L,0}, {(int *)0xffff82c2L,0}, {(int *)0xffff820aL,512} } }; INFO_BLOC myresbloc={ 0L, 0, "320*200", 319,199,319,199, 278,278, 4, 16, 160, 0, 600,310, 0,0, 0xffffffffL, 0, {0,0,0,0,0,0,0,0,0,0,0,0,0}, &chg_vgalow, 0L }; static INFO_BLOC *sblres; /*******************************************************/ /* Definition des fonctions sblater */ long gc(long target) { long old_stack; t_cookie** ptr_tab_cookie=(t_cookie **)0x5a0; /* pointeur vers le tableau */ /* des cookie */ t_cookie *tab_cookie; /* pour lire l'adresse du tableau des cookies, il faut etre en mode superviseur */ if (Super((void *)1L)==0L) /* si on est en mode utilisateur */ { old_stack=Super(0L); /* on passe en mode superviseur */ } else { old_stack=0; } tab_cookie=*ptr_tab_cookie; /* on lit cette adresse */ if (old_stack) /* si on etait en utilisateur au debut */ { Super((void *)old_stack); /* on y retourne */ } if (tab_cookie==0L) /* si le tos <1.6, on n'a pas de cookie jar */ return(-1); do /* on boucle jusqu'a avoir trouve le cookie ou avoir atteint */ /* le dernier element de la cookie jar */ { if (tab_cookie ->ident ==target) /* si le cookie est le cookie recherch‚ */ { return(tab_cookie ->valeur); /* on renvoie sa valeur */ } else { /* sinon, on passe au cookie suivant */ tab_cookie++; } } while (tab_cookie->ident!=0); /* la table des cookie est toujours */ /* terminee par un cookie dont l'ident vaut 0 */ /* si on n'a pas trouve le cookie , on renvoie -1 */ return(-1); } /******************************************************************/ /* initialisation du systeme */ static int initscreen(void) { int i; int mon_type; INFO_BLOC *blocs; long oldst=0L; sblres=0L; bigbloc=(long)memalloc(32000L+255L); if (bigbloc) { video_proc=(int)(gc('_VDO')>>16); vscreen=gc('VSCR'); if (video_proc == -1) video_proc = 0; oldxbios2=xbios(2); oldxbios3=xbios(3); if(vscreen!=-1L) { /**** Recupere les parametres de hardscroll ****/ /**** (Si jamais il y a un ecran virtuel) ****/ if(gemdos(0x20,1L)==0L) oldst = gemdos(0x20,0L); if(video_proc >= 3) lineskip = *(unsigned int*)0xffff820eL; else lineskip = (unsigned int)(*(unsigned char*)0xffff820fL); bitoffs = *(unsigned char *)0xffff8265L; *(unsigned char *)0xffff8265L = 0; if(oldst) gemdos(0x20,oldst); oldst = 0L; } switch(video_proc) { case 3: nbcol = (int)xbios(94,0,256,bakpal); xbios(94,0,nbcol,bakpal); /* Sauvegarde palette */ bloc32k = gemdos(0x15,32000L); if(initsblfunc()!=-1) /* Screen blaster est la ? */ if(sblon()) /* Est-il en fonction ?*/ { getsblrez(&sblres,&blocs); /* on recupere l'adresse de la res act */ mon_type=(int)xbios(89); if(mon_type!=0) { if(mon_type==2) /* Moniteur VGA */ myresbloc.chglist=&chg_vgalow; else /* tele ou ecran */ myresbloc.chglist=&chg_rgblow; setsblrez(&myresbloc); } } if(sblres == 0L) { oldres=(int)xbios(88,-1); xbios(5,bloc32k,bloc32k,-1); xbios(88,0x8082|(Vsetmode(-1)&0x20)); /*le bit 15 est mis a un pour la carte Blow'up*/ } break; case 2: /* sauvegarde resolution TT: pas teste */ nbcol=(int)xbios(85,0,256,bakpal); xbios(85,0,nbcol,bakpal); oldres = (int)xbios(81); xbios(5,-1L,-1L,0); break; default: oldres = (int)xbios(4); bloc32k= (long)xbios(2); if(gemdos(0x20,1L)==0L) oldst = gemdos(0x20,0L); for(i=0;i<16;i++) { ((int*)(bakpal))[i]=((int*)(0xffff8240L))[i]; } if(oldst) gemdos(0x20,oldst); oldst = 0L; } nbscreen=2; pt_ecr_travail=bigbloc; pt_ecr_travail=((pt_ecr_travail+255L)&0x00FFFF00L); pt_ecr_actif=bloc32k; xbios(5,pt_ecr_travail,pt_ecr_actif,0); return(1); } return(0); } static void killscreen(void) { long oldst=0L; long newtop; switch(video_proc) { case 3: if(sblres) { newtop=gemdos(0x15,((long)(sblres->vxmax+1)*(sblres->vymax+1)*(sblres->nbplane))/8L); xbios(5,newtop,newtop,-1); setsblrez(sblres); } else xbios(5,0l,0l,3,oldres); xbios(93,0,nbcol,bakpal); break; case 2: xbios(80,oldres); xbios(84,0,nbcol,bakpal); break; default: xbios(5,-1L,-1L,oldres); xbios(6,bakpal); } if(vscreen==-1L) xbios(5,oldxbios3,oldxbios2,-1); else { xbios(5,oldxbios3,oldxbios3,-1); if(gemdos(0x20,1L)==0L) oldst = gemdos(0x20,0L); xbios(37); *(char*)0xffff8201L=(oldxbios2&0xff0000L)>>16; *(char*)0xffff8203L=(oldxbios2&0xff00)>>8; *(char*)0xffff820dL=(oldxbios2&0xfe); if(video_proc == 3) *(unsigned int*)0xffff820eL=lineskip; else *(unsigned char*)0xffff820fL=(unsigned char)lineskip; *(unsigned char *)0xffff8265L=bitoffs; if(oldst) gemdos(0x20,oldst); } memfree((void **)&bigbloc); } static long sys_off(void) { long adr; int i; adr=0x484L; *(char*)adr|=2; for(i=0,adr=0x4ceL;i<8;i++,adr+=4L) *(long*)adr=oldvbl[i]; for(i=0,adr=8L;i<8;i++,adr+=4L) *(long*)adr=oldtrap[i]; *(long*)(xbios(34)+voffset)=oldkbdit; killscreen(); return 0; } void killsystem(void) { stopsample(); empty(); cls(); swap(); cls(); Supexec(sys_off); } int rts=0x4e75; static long sys_on(void) { long adr; int i; adr=0x484L; *(char*)adr&=0xfc; for(i=0,adr=0x4ceL;i<8;i++,adr+=4L) oldvbl[i]=*(long*)adr; for(i=0,adr=8L;i<8;i++,adr+=4L) { oldtrap[i]=*(long*)adr; } adr=0x4ceL; *(long*)adr=(long)mse_it; adrunbuf=(long)&rts; adr+=4L; for(i=0;i<7;i++,adr+=4L) *(long*)adr=0L; /* permet de detourner it clavier pour detecter relachement des touches: gestion necessaire au fonctionement de keymap[]. Cette ligne doit etre enlevee pour pouvoir utiliser un debuggeur mais cela empechera la gestion de la souris dans le module. */ #ifdef KEYMAP voffset=32L; adrunbuf=(long)unbuf; #endif oldkbdit=*(long*)(xbios(34)+voffset); *(long*)(xbios(34)+voffset)=(long)kbd_it; return 0; } int initsystem(void) { if (initscreen()) { mousebob=(long)defaultmouse; fmousex=152; fmousey=92; xmax=319; ymax=199; swapflag=startflag=mousemode=endflag=0; mouselevel= -1; Supexec(sys_on); cls(); swap(); cls(); swap(); setpalette(egapal); show(); return(1); } else return(0); } /*****************************************************************/ /* gestion des 16 couleurs */ void setcolor(int c) { color=c&15; ma=tm[color&3]; mb=tm[(color>>2)&3]; } void setpalette(unsigned int *pal) { int i; for(i=0;i<16;i++) oldpal[i]=pal[i]; for(i=0;i<16;i++) tmppal[i]=((pal[i]>>1)&0x777)+((pal[i]&0x111)<<3); xbios(6,tmppal); refresh(); } void getpalette(unsigned int *pal) { int i; for(i=0;i<16;i++) pal[i]=oldpal[i]; } /*****************************************************************/ /* instructions de gestion des ecrans graphiques */ void simplescreen(void) { if (nbscreen==2) { tempo_pt_ecr=pt_ecr_travail; pt_ecr_travail=pt_ecr_actif; nbscreen=1; } } void doublescreen(void) { if (nbscreen==1) { pt_ecr_travail=tempo_pt_ecr; nbscreen=2; } } static long swapscreen(void) { while(*(unsigned long*)0x4baL==lastvbl); while(*(unsigned long*)0x4baL==lastvbl+1L); swaps2(); return 0; } void swap(void) { if (nbscreen==2) { Supexec(swapscreen); do {} while(swapflag); } } void refresh(void) { Supexec(refreshscreen); do {} while(vblflag); } void copyscreen(void) { hide(); bmove((void *)pt_ecr_actif,(void *)pt_ecr_travail,32000L); show(); } /******************************************************************/ /* instructions graphiques de base */ #define sgn(x) ((x==0)?(0):((x<0)?(-1):(1))) #define abs(x) ((x<0)?(-(x)):(x)) void pellipse(int x,int y,int lx,int ly,int c) { register int i,r,a,s; register int ry=(ly+1)>>1; register int rx=lx>>1; if (c>=0) setcolor(c); for(i=0,a=64;is) a++; r=rx+(int)((cs[a]*(long)rx)>>14L); hline(x+r,y+i,x+lx-1-r,-1); hline(x+r,y+ly-i-1,x+lx-1-r,-1); } } void pbox(int x,int y,int lx,int ly,int c) { register int i; if (c>=0) setcolor(c); for(i=y;i=0) setcolor(c); if (!dx) vline(x1,y1,y2,-1); else if (!dy) hline(x1,y1,x2,-1); else { if (abs(dx)>abs(dy)) { d=sgn(dx); a=((long)dy<<16L)/abs(dx); for(i=x1,y=32768L+((long)y1<<16L);i!=x2;i+=d,y+=a) plot(i,(int)(y>>16),-1); } else { d=sgn(dy); a=((long)dx<<16L)/abs(dy); for(i=y1,x=32768L+((long)x1<<16L);i!=y2;i+=d,x+=a) plot((int)(x>>16),i,-1); } plot(x2,y2,-1); } } void dline(int x1,int y1,int x2,int y2,int c) { register long a,x,y; register int i; register int d; register int dx=x2-x1; register int dy=y2-y1; if (c>=0) setcolor(c); if (!dx) vline(x1,y1,y2,-1); else if (!dy) hline(x1,y1,x2,-1); else { if (abs(dx)>abs(dy)) { d=sgn(dx); a=((long)dy<<16L)/abs(dx); for(i=x1,y=32768L+((long)y1<<16L);i!=x2;i+=d,y+=a) plot(i,(int)(y>>16),-1); } else { d=sgn(dy); a=((long)dx<<16L)/abs(dy); for(i=y1,x=32768L+((long)x1<<16L);i!=y2;i+=d,x+=a) plot((int)(x>>16),i,-1); } plot(x2,y2,-1); } } void dbox(int x,int y,int lx,int ly,int c) { if (c>=0) setcolor(c); hline(x,y,x+lx-1,-1); hline(x,y+ly-1,x+lx-1,-1); vline(x,y,y+ly-1,-1); vline(x+lx-1,y,y+ly-1,-1); } void plot(int x,int y,int c) { register long *ptr; register unsigned long m,nm; if (c>=0) setcolor(c); ptr=(long *)(pt_ecr_travail+y*160L+((x&0xfff0L)>>1L)); nm=0x80008000L; nm>>=x&15; m=~nm; *(ptr++)=(*ptr&m)|(nm&ma); *(ptr++)=(*ptr&m)|(nm&mb); } void vline(int x,int y,int y1,int c) { register long *ptr; register unsigned long m,nm; register int dy=sgn(y1-y); register int i; if (c>=0) setcolor(c); if (!dy) dy++; ptr=(long *)(pt_ecr_travail+y*160L+((x&0xfff0L)>>1L)); nm=0x80008000L; nm>>=x&15; m=~nm; for(i=y;i!=y1+dy;i+=dy,ptr+=dy*40) { *(ptr++)=(*ptr&m)|(nm&ma); *(ptr--)=(*ptr&m)|(nm&mb); } } void hline(int x,int y,int x1,int c) { register long *ptr; register unsigned long m,nm; register unsigned int im; register int i,cx,cx1,bx,bx1; if (x>4; cx1=x1>>4; bx=x&15; bx1=x1&15; } else { cx1=x>>4; cx=x1>>4; bx1=x&15; bx=x1&15; } if (c>=0) setcolor(c); ptr=(long *)(pt_ecr_travail+y*160L+cx*8L); if (cx==cx1) { im=-1; im>>=(15-bx1+bx); im<<=(15-bx1); nm=im+((long)im<<16L); m=~nm; *(ptr++)=((*ptr)&m)|(nm&ma); *ptr=((*ptr)&m)|(nm&mb); } else { im=-1; im>>=bx; nm=im+((long)im<<16L); m=~nm; *(ptr++)=((*ptr)&m)|(nm&ma); *(ptr++)=((*ptr)&m)|(nm&mb); cx++; if (cx!=cx1) for(i=cx;i=0) setcolor(c); for(i=0;i=0) { d=l-x; if ((!d)||(d==1)||(d== -1)) { plot(x,y,-1); ftab[y]=x; } else { hline(x,y,l,-1); ftab[y]= -1; } } else { plot(x,y,-1); ftab[y]=x; } } static void fline(int x1,int y1,int x2,int y2) { register long a,x,y; register int i; register int d; register int dx=x2-x1; register int dy=y2-y1; if (dx|dy) if (abs(dx)>abs(dy)) { d=sgn(dx); a=((long)dy<<16L)/abs(dx); for(i=x1,y=32768L+((long)y1<<16L);i!=x2;i+=d,y+=a) fplot(i,(int)(y>>16)); } else { d=sgn(dy); a=((long)dx<<16L)/abs(dy); for(i=y1,x=32768L+((long)x1<<16L);i!=y2;i+=d,x+=a) fplot((int)(x>>16),i); } fplot(x2,y2); } void polyfill(int n,int *tp,int c) { register int i; if (c>=0) setcolor(c); for(i=0;i<200;i++) ftab[i]= -1; for(i=0;idst) bmovea(); else bmoveb(); } /******************************************************************/ /* instructions de gestion de l'horloge */ static long picktime(void) { ltime=*(unsigned long *)0x4baL; ltime+=(ltime<<2L); return 0; } unsigned long systime(void) { Supexec(picktime); return(ltime); } void waitdelay(unsigned int n) { unsigned long start; start=systime(); do {} while((systime()-start)<(unsigned long)n); } /******************************************************************/ /* fonctions aleatoires */ int randint(void) { return((int)xbios(17)&0x7fff); } int randval(int n) { return(randint()%n); } /*****************************************************************/ /* gestion de fichiers */ static void verifnom(char *s,char *s2) { while(*s) { *s2= *s; if (*s=='/') *s2='\\'; s++; s2++; } *s2=0; } int bexist(char *nom) { int r; char nom2[200]; verifnom(nom,nom2); gemdos(0x1a,dta); r=(int)gemdos(0x4e,nom2,0); if (!r) r=1; else r=0; return(r); } long bsize(char *nom) { long s=0L; if (bexist(nom)) s=dta[26]*256L*65536L+dta[27]*65536L+dta[28]*256L+(long)dta[29]; return(s); } int bload(char *nom,void *adr,long offset,long len) { int fd; char nom2[200]; verifnom(nom,nom2); fd=(int)gemdos(0x3d,nom2,0); if (fd>0) { gemdos(0x42,offset,fd,1); gemdos(0x3f,fd,len,adr); gemdos(0x3e,fd); fd=0; } return(fd); } int bsave(char *nom,void *adr,long offset,long len) { int fd; int r=0; char nom2[200]; verifnom(nom,nom2); fd=(int)gemdos(0x3d,nom2,2); if (fd>0) { gemdos(0x42,offset,fd,1); r=(int)gemdos(0x40,fd,len,adr); if (r==-1) r=-13; gemdos(0x3e,fd); fd=0; } if (r<0) fd=r; return(fd); } int bmake(char *nom,void *adr,long len) { int fd; int r=0; char nom2[200]; verifnom(nom,nom2); gemdos(0x1a,dta); r=(int)gemdos(0x4e,nom2,0); if (r==-33) r=0; if (!r) { fd=(int)gemdos(0x3c,nom2,0); if (fd>0) { gemdos(0x40,fd,len,adr); gemdos(0x3e,fd); fd=0; } else if (fd==-1) fd=-13; } else fd=r; return(fd); } int bopen(char *nom) { int fd; char nom2[200]; verifnom(nom,nom2); fd=(int)gemdos(0x3d,nom2,0); if (fd<=0) fd=-1; return(fd); } int bcreate(char *nom) { int fd; char nom2[200]; verifnom(nom,nom2); fd=(int)gemdos(0x3c,nom2,0); if (fd<=0) fd=-1; return(fd); } int bread(int fd,void *adr,long len) { int r=0; r=(int)gemdos(0x3f,fd,len,adr); return(r); } int bwrite(int fd,void *adr,long len) { int r=0; r=(int)gemdos(0x40,fd,len,adr); return(r); } int bclose(int fd) { int r=0; r=(int)gemdos(0x3e,fd); return(r); } /*************************************************************/ /* gestion de la souris et du clavier */ int kbhit(void) { #ifdef KEYMAP return(nbrkbuffer); #else return((int)bios(1,2)); #endif } int buthit(void) { return(nbrbuffer); } int keyhit(void) { return(buthit()|kbhit()); } char getch(void) { #ifdef KEYMAP char r; do {} while(!nbrkbuffer); r=keybbuffer[lstkbufptr]; lstkbufptr++; lstkbufptr&=255; nbrkbuffer--; return(r); #else return((char)bios(2,2)); #endif } void empty(void) { bufferflag=0; nbrbuffer=msebufptr=lstbufptr=0; bufferflag=1; #ifdef KEYMAP kbufferflag=0; nbrkbuffer=keybbufptr=lstkbufptr=0; kbufferflag=1; #else if (bios(1,2)) do bios(2,2); while (bios(1,2)); #endif } void confirm(void) { empty(); do {} while (!buthit()); } int getmouse(void) { int ptr; if (nbrbuffer) { ptr=(lstbufptr>>1); msek=msebuffer[ptr]; msex=msebuffer[ptr+1]; msey=msebuffer[ptr+2]; mclk=msebuffer[ptr+3]; lstbufptr+=8; lstbufptr&=255; nbrbuffer-=1; /* msek: bit 0:bouton gauche bit 1:bouton droit bit 2:0:presse 1:relache */ if (msek&64) if (msek&1) msek=1; else msek=5; else if (msek&128) if (msek&2) msek=2; else msek=6; else msek=0; return(msek); } else return(0); } void hide(void) { if (mouselevel==0) { endflag=1; do {} while(mousemode); } mouselevel-=1; } void show(void) { if (mouselevel==-1) { startflag=0; mousemode=1; do {} while(startflag); } mouselevel+=1; } /***************************************************************/ /* gestion de blocs graphiques */ typedef struct { int lx; int ly; int id; long bloc; long mask; } pixbloc; void initbloc(void **blocptr) { pixbloc *bloc; *blocptr=memalloc((long)sizeof(pixbloc)); bloc=(pixbloc *)*blocptr; if (*blocptr) bloc->id=0; } void freebloc(void **blocptr) { pixbloc *bloc; if (*blocptr) { bloc=(pixbloc *)*blocptr; if (bloc->id) memfree((void **)&bloc->bloc); if (bloc->id==2) memfree((void **)&bloc->mask); bloc->id=0; memfree(blocptr); } } void getbloc(void **blocptr,int x,int y,int lx,int ly) { pixbloc *bloc; if (*blocptr) { bloc=(pixbloc *)*blocptr; if ((!bloc->id)||(bloc->lx!=lx)||(bloc->ly!=ly)) { if (bloc->id) memfree((void **)&bloc->bloc); if (bloc->id==2) memfree((void **)&bloc->mask); bloc->id=0; bloc->bloc=(long)memalloc((4L*ly)*(lx/8L)); if (bloc->bloc) { bloc->id=1; bloc->lx=lx; bloc->ly=ly; } } if (bloc->id) { matrice=bloc->bloc; ecran=pt_ecr_travail+x/2L+y*160L; haut=ly-1; larg=(lx/16)-1; recal=(char*)(4*(40-(lx/8))); getbloca(); } } } void copybloc(void **blocptrs,int xs,int ys,int lxs,int lys, void **blocptrd,int xd,int yd) { pixbloc *blocs; pixbloc *blocd; if ((*blocptrs)&&(*blocptrd)) { blocs=(pixbloc *)*blocptrs; blocd=(pixbloc *)*blocptrd; if ((blocs->id)&&(blocd->id)) if ((xd>=0)&&(yd>=0)&&(xs>=0)&&(ys>=0)) if ((xs+lxs<=blocs->lx)&&(ys+lys<=blocs->ly)) if ((xd+lxs<=blocd->lx)&&(yd+lys<=blocd->ly)) { matrice=blocs->bloc+xs/2L+ys*(blocs->lx/2L); matrice2=blocd->bloc+xd/2L+yd*(blocd->lx/2L); haut=lys-1; larg=(lxs/16)-1; recal=(char*)((blocs->lx-lxs)/2); recal2=(char*)((blocd->lx-lxs)/2); copyba(); if ((blocs->id==2)&&(blocd->id==2)) { masque=blocs->mask+xs/8L+ys*(blocs->lx/8L); masque2=blocd->mask+xd/8L+yd*(blocd->lx/8L); haut=lys-1; larg=(lxs/16)-1; recal=(char*)((blocs->lx-lxs)/8); recal2=(char*)((blocd->lx-lxs)/8); copybb(); } } } } void putpbloc(void **blocptr,int x,int y,int xs,int ys, int lxs,int lys) { pixbloc *bloc; if (*blocptr) { bloc=(pixbloc *)*blocptr; if ((y>=0)||(y+lys<=200)) { if (y<0) { ys+=(-y); lys-=(-y); y=0; } else if (y+lys>200) { lys=200-y; } } if (lys>0) if ((x>=0)&&(y>=0)&&(xs>=0)&&(ys>=0)) if ((x<320)&&(y<200)) if ((x+lxs<=320)&&(y+lys<=200)) if (bloc->id) { dec=x&15; tmask=tmasque[dec]; ntmask=~tmask; fmask=bloc->id-1; masque=bloc->mask+xs/8L+ys*(bloc->lx/8L); matrice=bloc->bloc+xs/2L+ys*(bloc->lx/2L); ecran=pt_ecr_travail+(x&0xfff0)/2L+y*160L; recal2=(char*)((bloc->lx-lxs)/2); if (dec) { haut=lys; larg=lxs/16; recal=(char*)(4*(38-(lxs/8))); putpba(); } else { haut=lys-1; larg=(lxs/16)-1; recal=(char*)(4*(40-(lxs/8))); if (fmask) putpbb(); else putpbc(); } } } } void putbloc(void **blocptr,int x,int y) { pixbloc *bloc; if (*blocptr) { bloc=(pixbloc *)*blocptr; putpbloc(blocptr,x,y,0,0,bloc->lx,bloc->ly); } } void getmask(void **blocptr,int x,int y) { pixbloc *bloc; if (*blocptr) { bloc=(pixbloc *)*blocptr; if (bloc->id) { if (bloc->id==2) { memfree((void **)&bloc->mask); bloc->id=1; } if (bloc->id==1) { bloc->mask=(long)memalloc(bloc->ly*(bloc->lx/8L)); if (bloc->mask) bloc->id=2; } if (bloc->id==2) { matrice=bloc->mask; ecran=pt_ecr_travail+x/2L+y*160L; haut=bloc->ly-1; larg=(bloc->lx/16)-1; recal=(char*)(4*(40-(bloc->lx/8))); getmaska(); } } } } /*****************************************************************/ /* instructions de gestion de fonte */ void affchar(int x,int y,char c) { unsigned int n; if ((c>31)&&(c<=126)) { if (c>95) c-=32; n=c-32; dec=x&15; tmask=tmasque[dec]; haut=8; ntmask=~tmask; matrice=(long)&sysfonte[n*16]; ecran=pt_ecr_travail+(x&0xfff0)/2L+y*160L; pma=(int)(ma>>16); pmb=(int)(ma&0xffff); pmc=(int)(mb>>16); pmd=(int)(mb&0xffff); if (dec) { recal=(char*)(4*36); affchara(); } else { recal=(char*)(4*38); affcharb(); } } } void afftext(int x,int y,char *s) { while(*s) { affchar(x,y,*s++); x+=8; if (x>312) { x=0; y+=8; if (y>192) y=0; } } } void printchar(char c) { int t; while(ycur>192) { ycur-=8; bmove((void *)(pt_ecr_travail+8*160L),(void *)pt_ecr_travail,192*160L); t=color; pbox(0,192,320,8,0); setcolor(t); } if (c==10) xcur= -8; else if (c==13) { ycur+=8; xcur= -8; } else affchar(xcur,ycur,c); xcur+=8; if (xcur>312) { xcur=0; ycur+=8; } } void print(char *s) { while(*s) printchar(*s++); xcur=0; ycur+=8; } /*******************************************************************/ /* gestion du son DMA */ static long dmalen; static int dmafreq; static long pcm; unsigned int *DMA=(unsigned int *)0xFF8900L; static long start_dma() { DMA[1]=(unsigned int)((unsigned long)pcm>>16); DMA[2]=(unsigned int)((unsigned long)pcm>>8); DMA[3]=(unsigned int)pcm; DMA[7]=(unsigned int)((unsigned long)(pcm+dmalen)>>16); DMA[8]=(unsigned int)((unsigned long)(pcm+dmalen)>>8); DMA[9]=(unsigned int)(pcm+dmalen); DMA[16]=0x80+dmafreq; DMA[0]=1; return 0; } static long stop_dma() { DMA[0]=0; return 0; } /*******************************************************************/ /* tableau necessaire a la simulation du DAC sonore */ long spl_tab[384]= { 0x8000900L,0xA000801L,0x9000A00L,0x8010901L,0xA000802L,0x9010A00L, 0x8010901L,0xA010802L,0x9020A01L,0x8020902L,0xA020803L,0x9020A02L, 0x8030903L,0xA020803L,0x9030A03L,0x8040903L,0xA030804L,0x9040A02L, 0x8040904L,0xA030804L,0x9040A04L,0x8050905L,0xA020805L,0x9040A04L, 0x8050905L,0xA040806L,0x9050A02L,0x8050905L,0xA050806L,0x9050A04L, 0x8060906L,0xA020806L,0x9050A05L,0x8060906L,0xA040806L,0x9060A05L, 0x8070905L,0xA050807L,0x9060A04L,0x8060906L,0xA060808L,0x9050A04L, 0x8070907L,0xA040807L,0x9060A06L,0x8080906L,0xA040808L,0x9060A05L, 0x8070907L,0xA060808L,0x9070A04L,0x8080906L,0xA060807L,0x9070A07L, 0x8080908L,0xA020808L,0x9070A06L,0x8080908L,0xA040808L,0x9070A07L, 0x8090906L,0xA060808L,0x9080A06L,0x8090908L,0xA020809L,0x9070A06L, 0x8080908L,0xA070809L,0x9070A07L,0x8090909L,0xA000809L,0x9080A06L, 0x8090909L,0xA020808L,0x9080A08L,0x8090908L,0xA070809L,0x9090A05L, 0x80A0908L,0xA010809L,0x9090A06L,0x80A0908L,0xA040809L,0x9080A08L, 0x8090909L,0xA07080AL,0x9090A00L,0x80A0908L,0xA06080AL,0x9090A03L, 0x8090909L,0xA08080AL,0x9090A05L,0x80B0907L,0xA04080AL,0x9090A06L, 0x80B0908L,0xA01080AL,0x9080A08L,0x8090909L,0xA09080AL,0x90A0A00L, 0x80A090AL,0xA01080AL,0x90A0A02L,0x80A0909L,0xA08080AL,0x90A0A05L, 0x80B0908L,0xA07080AL,0x90A0A06L,0x80C0901L,0xA01080AL,0x9090A09L, 0x80A090AL,0xA07080BL,0x9080A08L,0x80B0909L,0xA07080BL,0x90A0A00L, 0x80A090AL,0xA08080BL,0x90A0A03L,0x80B0909L,0xA08080BL,0x90A0A05L, 0x80C0907L,0xA03080AL,0x90A0A09L,0x80C0906L,0xA06080BL,0x9090A09L, 0x80C0907L,0xA06080CL,0x9080A04L,0x80C0907L,0xA07080BL,0x90A0A08L, 0x80B090BL,0xA02080AL,0x90A0A0AL,0x80B090BL,0xA05080BL,0x90A0A09L, 0x80B090BL,0xA06080CL,0x9090A06L,0x80B090BL,0xA07080CL,0x9090A07L, 0x80C090AL,0xA00080CL,0x90A0A00L,0x80B090BL,0xA08080CL,0x9090A08L, 0x80B090AL,0xA0A080CL,0x90A0A05L,0x80B090BL,0xA09080DL,0x9040A03L, 0x80C0909L,0xA09080DL,0x9050A04L,0x80D0905L,0xA05080DL,0x9060A04L, 0x80C090AL,0xA08080CL,0x90B0A00L,0x80C090BL,0xA02080BL,0x90B0A0AL, 0x80C090AL,0xA09080CL,0x90B0A06L,0x80D0907L,0xA07080CL,0x90B0A07L, 0x80D0908L,0xA06080DL,0x9090A02L,0x80C090BL,0xA08080DL,0x9090A05L, 0x80B090BL,0xA0B080DL,0x9080A08L,0x80C090BL,0xA09080CL,0x90B0A09L, 0x80D0909L,0xA08080DL,0x9090A08L,0x80D090AL,0xA02080DL,0x90A0A04L, 0x80D090AL,0xA05080CL,0x90B0A0AL,0x80C090CL,0xA01080CL,0x90C0A03L, 0x80C090CL,0xA05080CL,0x90C0A06L,0x80C090CL,0xA07080DL,0x90B0A00L, 0x80D090BL,0xA00080CL,0x90C0A08L,0x80C090BL,0xA0B080DL,0x90B0A06L, 0x80C090CL,0xA09080CL,0x90C0A09L,0x80C090CL,0xA09080DL,0x90A0A0AL, 0x80D090AL,0xA0A080DL,0x90A0A0AL,0x80D090BL,0xA09080DL,0x90B0A09L, 0x80C090CL,0xA0A080CL,0x90C0A0AL,0x80C090CL,0xA0A080DL,0x90B0A0AL, 0x80D090BL,0xA0A080DL,0x90B0A0AL,0x80D090BL,0xA0A080CL,0x90C0A0BL, 0x80C090CL,0xA0B080DL,0x90C0A02L,0x80D090CL,0xA05080DL,0x90C0A06L, 0x80E0900L,0xA00080DL,0x90B0A0BL,0x80D090CL,0xA08080EL,0x9040A04L, 0x80E0905L,0xA05080DL,0x90C0A09L,0x80E0906L,0xA06080EL,0x9070A05L, 0x80E0908L,0xA00080EL,0x9070A07L,0x80E0908L,0xA06080DL,0x90C0A0AL, 0x80C090CL,0xA0C080EL,0x9090A01L,0x80E0908L,0xA08080EL,0x9090A07L, 0x80E0909L,0xA08080EL,0x9090A08L,0x80D090CL,0xA0B080EL,0x9090A09L, 0x80E0909L,0xA09080EL,0x90A0A04L,0x80D090DL,0xA00080DL,0x90D0A04L, 0x80D090DL,0xA07080DL,0x90D0A08L,0x80E090AL,0xA09080DL,0x90D0A09L, 0x80D090DL,0xA09080EL,0x90B0A00L,0x80E090BL,0xA00080EL,0x90B0A07L, 0x80D090DL,0xA0A080DL,0x90C0A0CL,0x80E090BL,0xA09080EL,0x90B0A09L, 0x80E090BL,0xA09080DL,0x90D0A0BL,0x80D090DL,0xA0B080DL,0x90D0A0BL, 0x80E090BL,0xA0A080EL,0x90B0A0AL,0x80E090BL,0xA0A080EL,0x90B0A0BL, 0x80E090BL,0xA0B080EL,0x90B0A0BL,0x80E090BL,0xA0B080EL,0x90C0A00L, 0x80E090CL,0xA00080EL,0x90C0A05L,0x80E090CL,0xA09080EL,0x90C0A09L, 0x80D090DL,0xA0C080DL,0x90D0A0CL,0x80E090CL,0xA0A080EL,0x90C0A0AL, 0x80E090CL,0xA0A080EL,0x90C0A0AL,0x80E090CL,0xA0B080EL,0x90C0A0BL, 0x80E090CL,0xA0B080EL,0x90C0A0BL,0x80E090CL,0xA0B080EL,0x90C0A0BL, 0x80E090CL,0xA0B080EL,0x90C0A0BL,0x80D090DL,0xA0D080DL,0x90D0A0DL, 0x80D090DL,0xA0D080DL,0x90D0A0DL,0x80D090DL,0xA0D080DL,0x90D0A0DL, 0x80E090DL,0xA00080EL,0x90C0A0CL,0x80E090DL,0xA0A080EL,0x90D0A0AL, 0x80E090DL,0xA0A080EL,0x90D0A0AL,0x80E090DL,0xA0B080EL,0x90D0A0BL, 0x80E090DL,0xA0B080EL,0x90D0A0BL,0x80E090DL,0xA0B080EL,0x90D0A0BL, 0x80E090DL,0xA0B080FL,0x9030A00L,0x80F0903L,0xA00080FL,0x9030A00L, 0x80F0903L,0xA00080FL,0x9030A00L,0x80F0903L,0xA00080EL,0x90D0A0CL }; /*******************************************************************/ /* gestion des samples */ void *psadr; long pslen; int psn; int psv; int psf; void playsample(void *adr,long len,long freq) { #ifdef DMASOUND Supexec(stop_dma); dmalen=len; pcm=(long)adr; dmafreq=1; /* 12.5 khz */ if (freq>18000L) dmafreq=2; /* 25 khz */ if (freq>37000L) dmafreq=3; /* 50 khz */ Supexec(start_dma); #else psadr=adr; pslen=len; psn=1; psv=15; psf=(int)freq; psv=(15-psv)>>1; playsa(); #endif } void stopsample(void) { #ifdef DMASOUND Supexec(stop_dma); #else playsample(0L,0L,0L); #endif } void fixsample(void *adr,long len) { long i; char *ptr; ptr=(char *)adr; for(i=0L;i