/* -------------------------------------------------------------------------- */ /* * DJGPP - VGA Backend for David Firth's Atari 800 emulator * * by Ivo van Poorten (C)1996 See file COPYRIGHT for policy. * */ /* -------------------------------------------------------------------------- */ #include #include #include #include #include #include #include "cpu.h" #include "colours.h" #include "ui.h" /* for ui_is_active */ #include "pcjoy.h" #ifdef AT_USE_ALLEGRO #include #endif #include "vga_gfx.h" /* -------------------------------------------------------------------------- */ #define FALSE 0 #define TRUE 1 /* note: if KEYBOARD_EXCLUSIVE is defined, then F7 switches between joysticks and keyboard (ie with joy_keyboard off joysticks do not work) #define KEYBOARD_EXCLUSIVE */ static int consol; static int trig0; static int stick0; static int trig1; static int stick1; static int trig2; static int stick2; static int trig3; static int stick3; /*stick & trig values for analog joystick*/ static int astick; static int atrig; static int joyswap = FALSE; static int first_lno = 24; static int first_col = 32; static int ypos_inc = 1; static int vga_ptr_inc = 320; static int scr_ptr_inc = ATARI_WIDTH; #ifdef MONITOR_BREAK extern UBYTE break_step; /* used to prevent switching to gfx mode while doing monitor 'step' command*/ #endif static UBYTE LEDstatus=0; /*status of disk LED*/ static int video_mode=0; /*video mode (0-3)*/ static int use_vesa=1; /*use vesa mode?*/ static int use_vret=0; /*control vertical retrace?*/ #ifdef AT_USE_ALLEGRO static BITMAP *scr_bitmap; /*allegro BITMAP*/ static UBYTE *dark_memory; /*buffer with darker lines*/ static void *scr_data=NULL; /*pointer to bitmap allocated by allegro (must be restored before freeing BITMAP*/ #else static UWORD vesa_mode; /*number of vesa2 videomode*/ static ULONG vesa_memptr; /*physical address of VESA2 Linear Frame Buffer*/ static ULONG vesa_memsize; /*size of LFB*/ static ULONG vesa_linelenght; /*size of line (in bytes)*/ static ULONG vesa_linear; /*linear address of mapped LFB*/ static int vesa_selector; /*selector for accessing LFB*/ #endif static int vga_started = 0; /*AAA needed for DOS to see text */ UBYTE POT[2]; extern int SHIFT; extern int ATKEYPRESSED; static int SHIFT_LEFT = FALSE; static int SHIFT_RIGHT = FALSE; static int norepkey = FALSE; /* for "no repeat" of some keys !RS! */ static int PC_keyboard = TRUE; static int joy_keyboard = FALSE; /* pass joystick scancodes to atari_keyboard? */ /*joystick type for each atari joystick*/ static int joytypes[4]={joy_keyset0,joy_keyset1,joy_off,joy_off}; /*if joytypes[i]==LPT_joy, lptport[i] contains port address of according LPT*/ static int lptport[4]={0,0,0,0}; /*scancodes for joysticks emulated on keyboard*/ static int keysets[4][9]={ {82,79,80,81,75,77,71,72,73}, /*standard kb-joy on numlock */ {15,44,45,46,30,32,16,17,18}, /*QWE,AD,ZXC block + TAB as fire */ {255,255,255,255,255,255,255,255,255}, /*none*/ {255,255,255,255,255,255,255,255,255}};/*none*/ /*is given keyset used?*/ static int keyset_used[4]={1,1,1,1}; /*for speeding up joystick testing*/ static int keypush[256]; /* 1 if according key is pressed */ static int keyforget[256]; /* 1 if we will ignore this scancode */ static int joycfg=0; /* 1 if joystick configuration found in atari800.cfg */ static int joy_in = FALSE; #ifndef AT_USE_ALLEGRO_JOY static int js0_centre_x; static int js0_centre_y; /* -------------------------------------------------------------------------- */ /* JOYSTICK HANDLING */ /* -------------------------------------------------------------------------- */ /*read analog joystick 0*/ int joystick0(int *x, int *y) { int jx, jy, jb; __asm__ __volatile__( "cli\n\t" "movw $0x201,%%dx\n\t" "xorl %%ebx,%%ebx\n\t" "xorl %%ecx,%%ecx\n\t" "outb %%al,%%dx\n\t" "__jloop:\n\t" "inb %%dx,%%al\n\t" "testb $1,%%al\n\t" "jz x_ok\n\t" "incl %%ecx\n\t" "x_ok:\n\t" "testb $2,%%al\n\t" "jz y_ok\n\t" "incl %%ebx\n\t" "jmp __jloop\n\t" "y_ok:\n\t" "testb $1,%%al\n\t" "jnz __jloop\n\t" "sti\n\t" "shrb $4,%%al" :"=a"(jb), "=b"(jy), "=c"(jx) : /* no input values */ :"%al", "%ebx", "%ecx", "%dx" ); *x = jx; *y = jy; return jb & 0x03; } /*read analog joystick and set astick & atrig values*/ void read_joystick(int centre_x, int centre_y) { const int threshold = 50; int jsx, jsy; astick = STICK_CENTRE; atrig = (joystick0(&jsx, &jsy) < 3) ? 0 : 1; if (jsx < (centre_x - threshold)) astick &= 0xfb; if (jsx > (centre_x + threshold)) astick &= 0xf7; if (jsy < (centre_y - threshold)) astick &= 0xfe; if (jsy > (centre_y + threshold)) astick &= 0xfd; } #endif /* AT_USE_ALLEGRO_JOY */ /*find port for given LPT joystick*/ int test_LPTjoy(int portno,int *port) { int addr; if (portno < 1 || portno > 3) return FALSE; addr = _farpeekw(_dos_ds, (portno - 1) * 2 + 0x408); if (addr == 0) return FALSE; if (port!=NULL) *port=addr; return TRUE; } void read_LPTjoy(int port, int joyport) { int state = STICK_CENTRE, trigger = 1, val; val = inportb(port + 1); if (!(val & (1 << 4))) state &= STICK_FORWARD; else if (!(val & (1 << 5))) state &= STICK_BACK; if (!(val & (1 << 6))) state &= STICK_RIGHT; else if ((val & (1 << 7))) state &= STICK_LEFT; if (!(val & (1 << 3))) trigger = 0; switch (joyport) { case 0: stick0 = state; trig0 = trigger; break; case 1: stick1 = state; trig1 = trigger; break; case 2: stick2 = state; trig2 = trigger; break; case 3: stick3 = state; trig3 = trigger; break; } } /* -------------------------------------------------------------------------- */ /* KEYBOARD HANDLER */ /* -------------------------------------------------------------------------- */ unsigned int last_raw_key; /*last key seen by Atari_Keyboard() */ unsigned int raw_key; /*key that will be processed int Atari_keyboard() */ unsigned int raw_key_r; /*key actually read from PC keyboard*/ _go32_dpmi_seginfo old_key_handler, new_key_handler; extern int SHIFT_KEY, KEYPRESSED; static int control = FALSE; static int extended_key_follows = FALSE; volatile static int key_leave=0; static int ki,kstick,ktrig,k_test; /*variables for key_handler*/ void key_handler(void) { asm("cli; pusha"); raw_key_r = inportb(0x60); if (extended_key_follows==2) { extended_key_follows=1; /*extended_key_follows==2 is used for PAUSE*/ raw_key_r=0; } else { /*now find the extended scancode of pressed key */ if (extended_key_follows) { key_leave=raw_key_r&0x80; raw_key_r=(raw_key_r & 0x7f) + 0x80; extended_key_follows=0; } else { key_leave=raw_key_r&0x80; switch (raw_key_r) { case 0xe1: extended_key_follows=2; /*start of pause sequence*/ raw_key_r=0; break; case 0xe0: extended_key_follows=1; raw_key_r=0; break; default: raw_key_r=raw_key_r & 0x7f; } } /*key-joystick*/ keypush[raw_key_r]=!key_leave; #ifdef KEYBOARD_EXCLUSIVE k_test=keyforget[raw_key_r] && joy_keyboard; #else k_test=keyforget[raw_key_r]; #endif /*forget scancodes used by keysticks*/ if (joy_keyboard && !ui_is_active && keyforget[raw_key_r]) raw_key_r=0; switch (raw_key_r) { case 0xaa: /*ignore 0xe0 0xaa sent by gray arrows*/ raw_key_r=0; key_leave=0; break; case 0x2a: SHIFT_LEFT = !key_leave; break; case 0x36: SHIFT_RIGHT = !key_leave; break; case 0x1d: case 0x9d: control = !key_leave; break; case 0x41: /*F7*/ if (!key_leave) { joy_keyboard=!joy_keyboard; outportb(0x60,0xed); /*change the scroll lock LED*/ asm(" jmp 0f 0: jmp 1f 1: "); if (joy_keyboard) outportb(0x60,0x3); else outportb(0x60,0x2); #ifdef KEYBOARD_EXCLUSIVE if (!joy_keyboard) { /* return all keyboard joysticks to default state */ if (joytypes[0]>=joy_keyset0 && joytypes[0]<=joy_keyset3) { stick0=STICK_CENTRE; trig0=1; } if (joytypes[1]>=joy_keyset0 && joytypes[1]<=joy_keyset3) { stick1=STICK_CENTRE; trig1=1; } if (joytypes[2]>=joy_keyset0 && joytypes[2]<=joy_keyset3) { stick2=STICK_CENTRE; trig2=1; } if (joytypes[3]>=joy_keyset0 && joytypes[3]<=joy_keyset3) { stick3=STICK_CENTRE; trig3=1; } } else { k_test=1; /*force updatate of all keyboard joysticks*/ } #endif } raw_key_r=0; break; case 0x3c: if (!key_leave) consol &= 0x03; /* OPTION key ON */ else consol |= 0x04; /* OPTION key OFF */ break; case 0x3d: if (!key_leave) consol &= 0x05; /* SELECT key ON */ else consol |= 0x02; /* SELECT key OFF */ break; case 0x3e: if (!key_leave) consol &= 0x06; /* START key ON */ else consol |= 0x01; /* START key OFF */ break; } if (k_test) /*keystick key was pressed*/ { for (ki=0;ki<4;ki++) if (keyset_used[ki]) { kstick=STICK_CENTRE; if (keypush[keysets[ki][1]] || keypush[keysets[ki][4]] || keypush[keysets[ki][6]]) kstick&=0xfb; /*left*/ if (keypush[keysets[ki][3]] || keypush[keysets[ki][5]] || keypush[keysets[ki][8]]) kstick&=0xf7; /*right*/ if (keypush[keysets[ki][1]] || keypush[keysets[ki][2]] || keypush[keysets[ki][3]]) kstick&=0xfd; /*down*/ if (keypush[keysets[ki][6]] || keypush[keysets[ki][7]] || keypush[keysets[ki][8]]) kstick&=0xfe; /*up*/ ktrig=keypush[keysets[ki][0]]>0 ? 0:1; if (joytypes[0]==(joy_keyset0+ki)) { stick0=kstick;trig0=ktrig; } else if (joytypes[1]==(joy_keyset0+ki)) { stick1=kstick;trig1=ktrig; } else if (joytypes[2]==(joy_keyset0+ki)) { stick2=kstick;trig2=ktrig; } else if (joytypes[3]==(joy_keyset0+ki)) { stick3=kstick;trig3=ktrig; } } } SHIFT_KEY = SHIFT_LEFT | SHIFT_RIGHT; raw_key_r=(key_leave?0x200:0)|raw_key_r; if (raw_key_r==0x200) raw_key_r=0; if (raw_key==last_raw_key && raw_key_r!=0) {raw_key=raw_key_r;raw_key_r=0;} } outportb(0x20, 0x20); asm("popa; sti"); } void key_init(void) { int i; for (i=0;i<256;i++) keypush[i]=0; /*none key is pressed*/ extended_key_follows=FALSE; /*set Scroll lock LED */ outportb(0x60,0xed); asm(" jmp 0f 0: jmp 1f 1: "); if (joy_keyboard) outportb(0x60,0x3); else outportb(0x60,0x2); raw_key_r=0;raw_key=0; new_key_handler.pm_offset = (int) key_handler; new_key_handler.pm_selector = _go32_my_cs(); _go32_dpmi_get_protected_mode_interrupt_vector(0x9, &old_key_handler); _go32_dpmi_allocate_iret_wrapper(&new_key_handler); _go32_dpmi_set_protected_mode_interrupt_vector(0x9, &new_key_handler); } void key_delete(void) { int kflags; _go32_dpmi_set_protected_mode_interrupt_vector(0x9, &old_key_handler); /*set the original keyboard LED settings*/ kflags=_farpeekb(_dos_ds,0x417); outportb(0x60,0xed); asm(" jmp 0f 0: jmp 1f 1: "); outportb(0x60,((kflags>>4)&0x7)); } /* -------------------------------------------------------------------------- */ /* VGA HANDLING */ /* -------------------------------------------------------------------------- */ void SetupVgaEnvironment() { int a, r, g, b, i; union REGS rg; __dpmi_regs d_rg; UBYTE ctab[768]; #ifdef AT_USE_ALLEGRO int allegro_mode; if (use_vesa) allegro_mode=GFX_AUTODETECT; else allegro_mode=GFX_MODEX; switch(video_mode) { case 0: set_gfx_mode(GFX_VGA, 320, 200, 0, 0); break; case 1: set_gfx_mode(allegro_mode,320,240,0,0); scr_bitmap=create_bitmap(ATARI_WIDTH,ATARI_HEIGHT); scr_data=scr_bitmap->dat; break; case 2: set_gfx_mode(allegro_mode,320,480,0,0); scr_bitmap=create_bitmap(ATARI_WIDTH,ATARI_HEIGHT*2); scr_data=scr_bitmap->dat; dark_memory=(UBYTE*)malloc(ATARI_WIDTH*ATARI_HEIGHT); memset(dark_memory,0,ATARI_WIDTH*ATARI_HEIGHT); break; case 3: set_gfx_mode(allegro_mode,320,480,0,0); scr_bitmap=create_bitmap(ATARI_WIDTH,ATARI_HEIGHT*2); scr_data=scr_bitmap->dat; dark_memory=(UBYTE*)malloc(ATARI_WIDTH*ATARI_HEIGHT); break; } #else if (use_vesa) { /*try to open VESA mode*/ use_vesa=VESA_open(vesa_mode,vesa_memptr,vesa_memsize,&vesa_linear,&vesa_selector); } if (!use_vesa) /*if '-novesa' specified or VESA_open failed */ switch(video_mode) { case 0: rg.x.ax = 0x0013; int86(0x10, &rg, &rg); /*vga 320x200*/ break; case 1: x_open(2); /*xmode 320x240*/ break; case 2: case 3: x_open(5); /*xmode 320x480*/ break; } #endif vga_started = 1; /* setting all palette at once is faster....*/ for (a = 0, i = 0; a < 256; a++) { ctab[i++]=(colortable[a] >> 18) & 0x3f; ctab[i++]=(colortable[a] >> 10) & 0x3f; ctab[i++]=(colortable[a] >> 2) & 0x3f; } /*copy ctab to djgpp transfer buffer in DOS memory*/ dosmemput(ctab,768,__tb&0xfffff); d_rg.x.ax=0x1012; d_rg.x.bx=0; d_rg.x.cx=256; d_rg.x.dx=__tb&0xf; /*offset of transfer buffer*/ d_rg.x.es=(__tb >> 4) & 0xffff; /*segment of transfer buffer*/ __dpmi_int(0x10,&d_rg); /*VGA set palette block*/ key_init(); /*initialize keyboard handler*/ } void ShutdownVgaEnvironment() { union REGS rg; if (vga_started) { #ifndef AT_USE_ALLEGRO if (use_vesa) VESA_close(&vesa_linear,&vesa_selector); else { rg.x.ax = 0x0003; int86(0x10, &rg, &rg); } #else /*when closing Allegro video mode, we must free the allocated BITMAP structure*/ switch(video_mode) { case 1: Map_bitmap(scr_bitmap,scr_data,ATARI_WIDTH,ATARI_HEIGHT); destroy_bitmap(scr_bitmap); break; case 2: case 3: Map_bitmap(scr_bitmap,scr_data,ATARI_WIDTH,ATARI_HEIGHT*2); destroy_bitmap(scr_bitmap); free(dark_memory); break; } rg.x.ax = 0x0003; int86(0x10, &rg, &rg); #endif } vga_started=FALSE; } void Atari_DisplayScreen(UBYTE * ascreen) { static int lace = 0; unsigned long vga_ptr; UBYTE *scr_ptr; int ypos; int x; #ifdef AT_USE_ALLEGRO_COUNTER static char speedmessage[200]; extern int speed_count; #endif vga_ptr = 0xa0000; scr_ptr = &ascreen[first_lno * ATARI_WIDTH + first_col]; if (ypos_inc == 2) { if (lace) { vga_ptr += 320; scr_ptr += ATARI_WIDTH; } lace = 1 - lace; } if (vga_started) /*draw screen only in graphics mode*/ { if (LEDstatus) /*draw disk LED*/ { int i,pos; if (video_mode==0) pos=first_col+first_lno*ATARI_WIDTH; else pos=first_col; for (i=0;i<12;i++) {ascreen[pos]=0xba;ascreen[pos+ATARI_WIDTH]=0xba;pos++;} LEDstatus--; } if(use_vret) v_ret(); /*vertical retrace control */ #if AT_USE_ALLEGRO /*draw screen using Allegro*/ switch(video_mode) { case 0: for (ypos = 0; ypos < 200; ypos += ypos_inc) { _dosmemputl(scr_ptr, 320 / 4, vga_ptr); vga_ptr += vga_ptr_inc; scr_ptr += scr_ptr_inc; } break; case 1: if (screen!=scr_bitmap->dat) Map_bitmap(scr_bitmap,ascreen,ATARI_WIDTH,ATARI_HEIGHT); blit(scr_bitmap,screen,first_col,0,0,0,320,240); break; case 2: if (screen!=scr_bitmap->dat) Map_i_bitmap(scr_bitmap,ascreen,dark_memory,ATARI_WIDTH,ATARI_HEIGHT*2); blit(scr_bitmap,screen,first_col,0,0,0,320,480); break; case 3: if (screen!=scr_bitmap->dat) Map_i_bitmap(scr_bitmap,ascreen,dark_memory,ATARI_WIDTH,ATARI_HEIGHT*2); make_darker(dark_memory,ascreen,ATARI_WIDTH*ATARI_HEIGHT); blit(scr_bitmap,screen,first_col,0,0,0,320,480); break; } #else if (use_vesa) /*draw screen using VESA2*/ switch(video_mode) { case 0: VESA_blit(ascreen+first_col + first_lno*ATARI_WIDTH, 320,200,ATARI_WIDTH,vesa_linelenght,vesa_selector); break; case 1: VESA_blit(ascreen+first_col, 320,240,ATARI_WIDTH,vesa_linelenght,vesa_selector); break; case 2: VESA_blit(ascreen+first_col, 320,240,ATARI_WIDTH,vesa_linelenght*2,vesa_selector); break; case 3: VESA_i_blit(ascreen+first_col, 320,240,ATARI_WIDTH,vesa_linelenght,vesa_selector); break; } else /*draw screen using vga or x-mode*/ switch(video_mode) { case 0: for (ypos = 0; ypos < 200; ypos += ypos_inc) { _dosmemputl(scr_ptr, 320 / 4, vga_ptr); vga_ptr += vga_ptr_inc; scr_ptr += scr_ptr_inc; } break; case 1: x_blit(ascreen+first_col,240,ATARI_WIDTH,80); break; case 2: x_blit(ascreen+first_col,240,ATARI_WIDTH,160); break; case 3: x_blit_i2(ascreen+first_col,240,ATARI_WIDTH,160); break; } #endif #ifdef AT_USE_ALLEGRO_COUNTER sprintf(speedmessage, "%d", speed_count); textout((BITMAP *) screen, font, speedmessage, 1, 1, 10); speed_count = 0; #endif } /* if (vga_started) */ #ifdef USE_DOSSOUND dossound_UpdateSound(); #endif } /* -------------------------------------------------------------------------- */ #ifdef SET_LED void Atari_Set_LED(int how) { LEDstatus=8*how; } #endif /* -------------------------------------------------------------------------- */ /* CONFIG & INITIALISATION */ /* -------------------------------------------------------------------------- */ void Atari_Initialise(int *argc, char *argv[]) { int i; int j; int use_lpt1=0,use_lpt2=0,use_lpt3=0; for (i = j = 1; i < *argc; i++) { if (strcmp(argv[i], "-interlace") == 0) { ypos_inc = 2; vga_ptr_inc = 320 + 320; scr_ptr_inc = ATARI_WIDTH + ATARI_WIDTH; } else if (strcmp(argv[i], "-LPTjoy1") == 0) use_lpt1=test_LPTjoy(1,NULL); else if (strcmp(argv[i], "-LPTjoy2") == 0) use_lpt2=test_LPTjoy(2,NULL); else if (strcmp(argv[i], "-LPTjoy3") == 0) use_lpt3=test_LPTjoy(3,NULL); else if (strcmp(argv[i], "-joyswap") == 0) joyswap = TRUE; else if (strcmp(argv[i], "-video") == 0) { i++; video_mode=atoi(argv[i]); if (video_mode<0 || video_mode>3) { printf("Invalid video mode, using default.\n"); getchar(); video_mode=0; } } else if (strcmp(argv[i],"-novesa") == 0) { use_vesa=FALSE; } else if (strcmp(argv[i],"-vretrace") == 0) { use_vret=TRUE; } else { if (strcmp(argv[i], "-help") == 0) { printf("\t-interlace Generate screen with interlace\n"); printf("\t-LPTjoy1 Read joystick connected to LPT1\n"); printf("\t-LPTjoy2 Read joystick connected to LPT2\n"); printf("\t-LPTjoy3 Read joystick connected to LPT3\n"); printf("\t-joyswap Swap joysticks\n"); printf("\t-video x Set video mode:\n"); printf("\t\t0 - 320x200\n\t\t1 - 320x240\n"); printf("\t\t2 - 320x240, interlaced with black lines\n"); printf("\t\t3 - 320x240, interlaced with darker lines (slower!)\n"); printf("\t-novesa Do not use vesa2 videomodes\n"); printf("\t-vretrace Use vertical retrace control\n"); printf("\nPress Return/Enter to continue..."); getchar(); printf("\r \n"); } argv[j++] = argv[i]; } } *argc = j; #ifdef AT_USE_ALLEGRO allegro_init(); #endif /* initialise sound routines */ #ifndef USE_DOSSOUND Sound_Initialise(argc, argv); #else if (dossound_Initialise(argc, argv)) exit(1); #endif /* check if joystick is connected */ printf("Joystick is checked..."); fflush(stdout); #ifndef AT_USE_ALLEGRO_JOY outportb(0x201, 0xff); usleep(100000UL); joy_in = ((inportb(0x201) & 3) == 0); if (joy_in) joystick0(&js0_centre_x, &js0_centre_y); #else joy_in = (initialise_joystick() == 0 ? TRUE : FALSE); #endif if (joy_in) printf(" found!\n"); else printf("\n\nSorry, I see no joystick. Use numeric pad\n"); #ifndef AT_USE_ALLEGRO /*find number of VESA2 video mode*/ if (use_vesa) { switch(video_mode) { case 0: use_vesa=VESA_getmode(320,200,&vesa_mode,&vesa_memptr,&vesa_linelenght,&vesa_memsize); break; case 1: use_vesa=VESA_getmode(320,240,&vesa_mode,&vesa_memptr,&vesa_linelenght,&vesa_memsize); break; case 2: case 3: use_vesa=VESA_getmode(320,480,&vesa_mode,&vesa_memptr,&vesa_linelenght,&vesa_memsize); break; } } #endif /* setup joystick */ stick0 = stick1 = stick2 = stick3 = STICK_CENTRE; trig0 = trig1 = trig2 = trig3 = 1; /* for compatibility with older versions' command line parameters */ if (use_lpt3) { for (i=3;i>0;i--) joytypes[i]=joytypes[i-1]; /*shift joystick types up*/ joytypes[0]=joy_lpt3; /*joystick 0 is on lpt3 */ } if (use_lpt2) { for (i=3;i>0;i--) joytypes[i]=joytypes[i-1]; /*see above*/ joytypes[0]=joy_lpt2; } if (use_lpt1) { for (i=3;i>0;i--) joytypes[i]=joytypes[i-1]; joytypes[0]=joy_lpt1; } if (joy_in && !joycfg) { for (i=3;i>0;i--) joytypes[i]=joytypes[i-1]; joytypes[0]=joy_analog; } if (joyswap) { int help=joytypes[0]; joytypes[0]=joytypes[1]; joytypes[1]=help; } /*end of compatibility part*/ /*check, if joystick configuration is valid*/ for (i=0;i<4;i++) switch (joytypes[i]) { case joy_lpt1: if (!test_LPTjoy(1,lptport+i)) joytypes[i]=joy_off; break; case joy_lpt2: if (!test_LPTjoy(2,lptport+i)) joytypes[i]=joy_off; break; case joy_lpt3: if (!test_LPTjoy(3,lptport+i)) joytypes[i]=joy_off; break; case joy_analog: if (!joy_in) joytypes[i]=joy_off; break; } /* do not forget any scancode */ for (i=0;i<256;i++) keyforget[i]=0; /* mark all used scancodes to forget*/ for (i=0;i<4;i++) { j=0; while (j<4 && joytypes[j]!=(i+joy_keyset0)) j++; if (j<4) /*keyset i is used */ for (j=0;j<9;j++) keyforget[keysets[i][j]]=1; else keyset_used[i]=0; } consol = 7; SetupVgaEnvironment(); } /* -------------------------------------------------------------------------- */ /* Atari_Configure(...) processes all lines not recognized by RtConfigLoad() */ int Atari_Configure(char* option,char* parameters) { int help=0; int no; int i; if (strcmp(option,"VIDEO")==0) { sscanf(parameters,"%d",&help); if (help<0 || help>3) return 0; video_mode=help; return 1; } else if (strcmp(option,"VESA")==0) { sscanf(parameters,"%d",&help); if (help!=0 && help!=1) return 0; use_vesa=help; return 1; } else if (strcmp(option,"VRETRACE")==0) { sscanf(parameters,"%d",&help); if (help!=0 && help!=1) return 0; use_vret=help; return 1; } else if (strncmp(option,"JOYSTICK_",9)==0) { no=option[9]-'0'; if (no<0 || no>3) return 0; for (i=0;i3) return 0; help=sscanf(parameters,"%d %d %d %d %d %d %d %d %d",keysets[no]+0,keysets[no]+1, keysets[no]+2,keysets[no]+3,keysets[no]+4,keysets[no]+5, keysets[no]+6,keysets[no]+7,keysets[no]+8); /* make sure that scancodes are in range 0-255*/ for (i=0;i<9;i++) if (keysets[no][i]<0 || keysets[no][i]>255) keysets[no][i]=255; if (help!=9) return 0; /*not enough parameters*/ return 1; } return 0; /* unknown option */ } /* -------------------------------------------------------------------------- */ /* ATARI EXIT */ /* -------------------------------------------------------------------------- */ int Atari_Exit(int run_monitor) { /* restore to text mode */ ShutdownVgaEnvironment(); #ifdef BUFFERED_LOG Aflushlog(); #endif key_delete(); /* enable keyboard in monitor */ if (run_monitor) if (monitor()) { #ifdef MONITOR_BREAK if (!break_step) /*do not enter videomode when stepping through the code*/ SetupVgaEnvironment(); #else SetupVgaEnvironment(); #endif return 1; /* return to emulation */ } #ifndef USE_DOSSOUND Sound_Exit(); #endif return 0; } /* -------------------------------------------------------------------------- */ /* ATARI KEYBOARD */ /* -------------------------------------------------------------------------- */ /* Note: scancodes are a bit changed: raw_key & 0x7f = standard scancode raw_key & 0x80 = 1 if key was preceeded with 0xe0 (like the gray arrows) raw_key & 0x200 = 1 if key was depressed Robert Golias */ int Atari_Keyboard(void) { int i; int keycode; int shift_mask; static int stillpressed; /* is 5200 button 2 still pressed */ #ifdef AT_USE_ALLEGRO_JOY extern volatile int joy_left, joy_right, joy_up, joy_down; extern volatile int joy_b1, joy_b2, joy_b3, joy_b4; #endif last_raw_key=raw_key; /* * Trigger and Joystick handling should * be moved into the Keyboard Interrupt Routine - done for keyboard-emulated joysticks */ if (joy_in) { #ifndef AT_USE_ALLEGRO_JOY read_joystick(js0_centre_x, js0_centre_y); /* read real PC joystick */ #else poll_joystick(); astick = ((joy_right << 3) | (joy_left << 2) | (joy_down << 1) | joy_up) ^ 0x0f; atrig = !joy_b1; #endif if (joytypes[0]==joy_analog) { stick0=astick; trig0=atrig; } if (joytypes[1]==joy_analog) { stick1=astick; trig1=atrig; } if (joytypes[2]==joy_analog) { stick2=astick; trig2=atrig; } if (joytypes[3]==joy_analog) { stick3=astick; trig3=atrig; } } /* read LPT joysticks */ for (i=0;i<4;i++) if (joytypes[i]>=joy_lpt1 && joytypes[i]<=joy_lpt3) read_LPTjoy(lptport[i],i); /* * This needs a bit of tidying up - array lookup */ /* Atari5200 stuff */ if (machine == Atari5200 && !ui_is_active) { POT[0] = 120; POT[1] = 120; if (!(stick0 & 0x04)) POT[0] = 15; if (!(stick0 & 0x01)) POT[1] = 15; if (!(stick0 & 0x08)) POT[0] = 220; if (!(stick0 & 0x02)) POT[1] = 220; switch (raw_key) { case 0x3b: keycode = AKEY_UI; break; case 0x3f: /* F5 */ /* if (SHIFT_KEY) */ keycode = AKEY_COLDSTART; /* 5200 has no warmstart */ /* else keycode = AKEY_WARMSTART; */ break; case 0x44: /* F10 */ if (!norepkey) { keycode = AKEY_SCREENSHOT; norepkey=TRUE; }else keycode = AKEY_NONE; break; case 0x43: keycode = AKEY_EXIT; break; case 0x02: keycode = 0x3f; break; case 0x03: keycode = 0x3d; break; case 0x04: keycode = 0x3b; break; case 0x0D: keycode = 0x23; /* = = * */ break; case 0x05: keycode = 0x37; break; case 0x06: keycode = 0x35; break; case 0x07: keycode = 0x33; break; case 0x08: keycode = 0x2f; break; case 0x09: keycode = 0x2d; break; case 0x0C: keycode = 0x27; /* - = * */ break; case 0x0a: keycode = 0x2b; break; case 0x0b: keycode = 0x25; break; case 0x3e: /* 1f : */ keycode = 0x39; /* start */ break; case 0x19: keycode = 0x31; /* pause */ break; case 0x13: keycode = 0x29; /* reset */ break; case 0x42: /* F8 */ if (!norepkey) { keycode = Atari_Exit(1) ? AKEY_NONE : AKEY_EXIT; /* invoke monitor */ norepkey = TRUE; } else keycode = AKEY_NONE; break; default: keycode = AKEY_NONE; norepkey = FALSE; break; } KEYPRESSED = (keycode != AKEY_NONE); /* for POKEY */ #ifdef AT_USE_ALLEGRO_JOY if (joy_b2) { if (stillpressed) { SHIFT_KEY = 1; } else { keycode = AKEY_BREAK; stillpressed = 1; SHIFT_KEY = 1; return keycode; } } else { stillpressed = 0; SHIFT_KEY = 0; } #endif if (raw_key_r!=0) {raw_key=raw_key_r;raw_key_r=0;} return keycode; } /* preinitialize of keycode */ shift_mask = SHIFT_KEY ? 0x40 : 0; keycode = shift_mask | (control ? 0x80 : 0); switch (raw_key) { case 0x3b: /* F1 */ if (control) { PC_keyboard = TRUE; /* PC keyboard mode (default) */ keycode = AKEY_NONE; } else if (SHIFT_KEY) { PC_keyboard = FALSE; /* Atari keyboard mode */ keycode = AKEY_NONE; } else keycode = AKEY_UI; break; case 0xCF: /* gray END*/ if (!norepkey) { keycode = AKEY_BREAK; norepkey = TRUE; } else keycode = AKEY_NONE; break; case 0x44: /* F10 */ if (!norepkey) { keycode = AKEY_SCREENSHOT; norepkey = TRUE; } else keycode = AKEY_NONE; break; case 0x3f: /* F5 */ keycode = SHIFT_KEY ? AKEY_COLDSTART : AKEY_WARMSTART; break; case 0x40: /* F6 */ if (machine == Atari) keycode = AKEY_PIL; else keycode = AKEY_HELP; break; case 0x42: /* F8 */ if (!norepkey) { keycode = Atari_Exit(1) ? AKEY_NONE : AKEY_EXIT; /* invoke monitor */ norepkey = TRUE; } else keycode = AKEY_NONE; break; case 0x43: /* F9 */ keycode = AKEY_EXIT; break; case 0x01: keycode |= AKEY_ESCAPE; break; case 0xD0: case 0x50: if (PC_keyboard) keycode = AKEY_DOWN; else { keycode |= AKEY_EQUAL; keycode ^= shift_mask; } break; case 0xCB: case 0x4b: if (PC_keyboard) keycode = AKEY_LEFT; else { keycode |= AKEY_PLUS; keycode ^= shift_mask; } break; case 0xCD: case 0x4d: if (PC_keyboard) keycode = AKEY_RIGHT; else { keycode |= AKEY_ASTERISK; keycode ^= shift_mask; } break; case 0xC8: case 0x48: if (PC_keyboard) keycode = AKEY_UP; else { keycode |= AKEY_MINUS; keycode ^= shift_mask; } break; case 0x29: /* "`" key on top-left */ keycode |= AKEY_ATARI; /* Atari key (inverse video) */ break; case 0x3a: keycode |= AKEY_CAPSTOGGLE; /* Caps key */ break; case 0x02: keycode |= AKEY_1; /* 1 */ break; case 0x03: if (!PC_keyboard) keycode |= AKEY_2; else if (SHIFT_KEY) keycode = AKEY_AT; else keycode |= AKEY_2; /* 2,@ */ break; case 0x04: keycode |= AKEY_3; /* 3 */ break; case 0x05: keycode |= AKEY_4; /* 4 */ break; case 0x06: keycode |= AKEY_5; /* 5 */ break; case 0x07: if (!PC_keyboard) keycode |= AKEY_6; else if (SHIFT_KEY) keycode = AKEY_CIRCUMFLEX; /* 6,^ */ else keycode |= AKEY_6; break; case 0x08: if (!PC_keyboard) keycode |= AKEY_7; else if (SHIFT_KEY) keycode = AKEY_AMPERSAND; /* 7,& */ else keycode |= AKEY_7; break; case 0x09: if (!PC_keyboard) keycode |= AKEY_8; else if (SHIFT_KEY) keycode = AKEY_ASTERISK; /* 8,* */ else keycode |= AKEY_8; break; case 0x0a: if (!PC_keyboard) keycode |= AKEY_9; else if (SHIFT_KEY) keycode = AKEY_PARENLEFT; else keycode |= AKEY_9; /* 9,( */ break; case 0x0b: if (!PC_keyboard) keycode |= AKEY_0; else if (SHIFT_KEY) keycode = AKEY_PARENRIGHT; /* 0,) */ else keycode |= AKEY_0; break; case 0x0c: if (!PC_keyboard) keycode |= AKEY_LESS; else if (SHIFT_KEY) keycode = AKEY_UNDERSCORE; else keycode |= AKEY_MINUS; break; case 0x0d: if (!PC_keyboard) keycode |= AKEY_GREATER; else if (SHIFT_KEY) keycode = AKEY_PLUS; else keycode |= AKEY_EQUAL; break; case 0x0e: keycode |= AKEY_BACKSPACE; break; case 0x0f: keycode |= AKEY_TAB; break; case 0x10: keycode |= AKEY_q; break; case 0x11: keycode |= AKEY_w; break; case 0x12: keycode |= AKEY_e; break; case 0x13: keycode |= AKEY_r; break; case 0x14: keycode |= AKEY_t; break; case 0x15: keycode |= AKEY_y; break; case 0x16: keycode |= AKEY_u; break; case 0x17: keycode |= AKEY_i; break; case 0x18: keycode |= AKEY_o; break; case 0x19: keycode |= AKEY_p; break; case 0x1a: if (!PC_keyboard) keycode |= AKEY_MINUS; else if (control | SHIFT_KEY) keycode |= AKEY_UP; else keycode = AKEY_BRACKETLEFT; break; case 0x1b: if (!PC_keyboard) keycode |= AKEY_EQUAL; else if (control | SHIFT_KEY) keycode |= AKEY_DOWN; else keycode = AKEY_BRACKETRIGHT; break; case 0x9c: case 0x1c: keycode |= AKEY_RETURN; break; case 0x1e: keycode |= AKEY_a; break; case 0x1f: keycode |= AKEY_s; break; case 0x20: keycode |= AKEY_d; break; case 0x21: keycode |= AKEY_f; break; case 0x22: keycode |= AKEY_g; break; case 0x23: keycode |= AKEY_h; break; case 0x24: keycode |= AKEY_j; break; case 0x25: keycode |= AKEY_k; break; case 0x26: keycode |= AKEY_l; break; case 0x27: keycode |= AKEY_SEMICOLON; break; case 0x28: if (!PC_keyboard) keycode |= AKEY_PLUS; else if (SHIFT_KEY) keycode = AKEY_DBLQUOTE; else keycode = AKEY_QUOTE; break; case 0x2b: /* PC key "\,|" */ case 0x56: /* PC key "\,|" */ if (!PC_keyboard) keycode |= AKEY_ASTERISK; else if (SHIFT_KEY) keycode = AKEY_BAR; else keycode |= AKEY_BACKSLASH; break; case 0x2c: keycode |= AKEY_z; break; case 0x2d: keycode |= AKEY_x; break; case 0x2e: keycode |= AKEY_c; break; case 0x2f: keycode |= AKEY_v; break; case 0x30: keycode |= AKEY_b; break; case 0x31: keycode |= AKEY_n; break; case 0x32: keycode |= AKEY_m; break; case 0x33: if (!PC_keyboard) keycode |= AKEY_COMMA; else if (SHIFT_KEY && !control) keycode = AKEY_LESS; else keycode |= AKEY_COMMA; break; case 0x34: if (!PC_keyboard) keycode |= AKEY_FULLSTOP; else if (SHIFT_KEY && !control) keycode = AKEY_GREATER; else keycode |= AKEY_FULLSTOP; break; case 0x35: keycode |= AKEY_SLASH; break; case 0x39: keycode |= AKEY_SPACE; break; case 0xc7: /* HOME key */ keycode |= 118; /* clear screen */ break; case 0xd2: /* INSERT key */ if (SHIFT_KEY) keycode = AKEY_INSERT_LINE; else keycode = AKEY_INSERT_CHAR; break; case 0xd3: /* DELETE key */ if (SHIFT_KEY) keycode = AKEY_DELETE_LINE; else keycode = AKEY_DELETE_CHAR; break; default: keycode = AKEY_NONE; norepkey = FALSE; break; } KEYPRESSED = (keycode != AKEY_NONE); /* for POKEY */ if (raw_key_r!=0) {raw_key=raw_key_r;raw_key_r=0;} return keycode; } /* -------------------------------------------------------------------------- */ int Atari_PORT(int num) { if (num == 0) return (stick1 << 4) | stick0; else return (stick3 << 4) | stick2; } /* -------------------------------------------------------------------------- */ int Atari_TRIG(int num) { switch (num) { case 0: return trig0; case 1: return trig1; case 2: return trig2; case 3: return trig3; } return 0; } /* -------------------------------------------------------------------------- */ int Atari_POT(int num) { if (machine == Atari5200) { if (num >= 0 && num < 2) return POT[num]; } return 228; } /* -------------------------------------------------------------------------- */ int Atari_CONSOL(void) { return consol; } /* -------------------------------------------------------------------------- */