2 * Emulation of processor ioports.
4 * Copyright 1995 Morten Welinder
5 * Copyright 1998 Andreas Mohr, Ove Kaaven
9 - only a few ports are emulated.
10 - real-time clock in "cmos" is bogus. A nifty alarm() setup could
25 #include "debugtools.h"
27 DEFAULT_DEBUG_CHANNEL(int)
29 static WORD tmr_8253_countmax
[3] = {0xffff, 0x12, 1}; /* [2] needs to be 1 ! */
30 /* if byte_toggle is TRUE, then hi byte has already been written */
31 static BOOL16 tmr_8253_byte_toggle
[3] = {FALSE
, FALSE
, FALSE
};
32 static WORD tmr_8253_latch
[3] = {0, 0, 0};
34 /* 4th contents are dummy */
35 static BOOL16 tmr_8253_latched
[4] = {FALSE
, FALSE
, FALSE
, FALSE
};
36 static BYTE tmr_8253_ctrlbyte_ch
[4] = {0x06, 0x44, 0x86, 0};
38 static int dummy_ctr
= 0;
40 static BYTE parport_8255
[4] = {0x4f, 0x20, 0xff, 0xff};
42 static BYTE cmosaddress
;
44 static BYTE cmosimage
[64] =
46 0x27, 0x34, 0x31, 0x47, 0x16, 0x15, 0x00, 0x01,
47 0x04, 0x94, 0x26, 0x02, 0x50, 0x80, 0x00, 0x00,
48 0x40, 0xb1, 0x00, 0x9c, 0x01, 0x80, 0x02, 0x00,
49 0x1c, 0x00, 0x00, 0xad, 0x02, 0x10, 0x00, 0x00,
50 0x08, 0x00, 0x00, 0x26, 0x00, 0x00, 0x00, 0x00,
51 0x00, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x03, 0x19,
52 0x00, 0x1c, 0x19, 0x81, 0x00, 0x0e, 0x00, 0x80,
53 0x1b, 0x7b, 0x21, 0x00, 0x00, 0x00, 0x05, 0x5f
56 #if defined(linux) && defined(__i386__)
57 # define DIRECT_IO_ACCESS
59 # undef DIRECT_IO_ACCESS
60 #endif /* linux && __i386__ */
62 #ifdef DIRECT_IO_ACCESS
64 extern int iopl(int level
);
66 static char do_direct_port_access
= -1;
67 static char port_permissions
[0x10000];
72 #endif /* DIRECT_IO_ACCESS */
74 static void IO_FixCMOSCheckSum(void)
79 for (i
=0x10; i
< 0x2d; i
++)
81 cmosimage
[0x2e] = sum
>> 8; /* yes, this IS hi byte !! */
82 cmosimage
[0x2f] = sum
& 0xff;
83 TRACE("calculated hi %02x, lo %02x\n", cmosimage
[0x2e], cmosimage
[0x2f]);
86 static void set_timer_maxval(unsigned timer
, unsigned maxval
)
89 case 0: /* System timer counter divisor */
90 DOSVM_SetTimer(maxval
);
92 case 1: /* RAM refresh */
93 FIXME("RAM refresh counter handling not implemented !");
95 case 2: /* cassette & speaker */
97 if (((BYTE
)parport_8255
[1] & 3) == 3)
99 TRACE("Beep (freq: %d) !\n", 1193180 / maxval
);
100 Beep(1193180 / maxval
, 20);
106 /**********************************************************************
110 /* set_IO_permissions(int val1, int val)
111 * Helper function for IO_port_init
113 #ifdef DIRECT_IO_ACCESS
114 static void set_IO_permissions(int val1
, int val
, char rw
)
118 if (val
== -1) val
= 0x3ff;
119 for (j
= val1
; j
<= val
; j
++)
120 port_permissions
[j
] |= rw
;
122 do_direct_port_access
= 1;
125 } else if (val
!= -1) {
126 do_direct_port_access
= 1;
128 port_permissions
[val
] |= rw
;
133 /* do_IO_port_init_read_or_write(char* temp, char rw)
134 * Helper function for IO_port_init
137 static void do_IO_port_init_read_or_write(char* temp
, char rw
)
139 int val
, val1
, i
, len
;
140 if (!strcasecmp(temp
, "all")) {
141 MESSAGE("Warning!!! Granting FULL IO port access to"
142 " windoze programs!\nWarning!!! "
143 "*** THIS IS NOT AT ALL "
144 "RECOMMENDED!!! ***\n");
145 for (i
=0; i
< sizeof(port_permissions
); i
++)
146 port_permissions
[i
] |= rw
;
148 } else if (!(!strcmp(temp
, "*") || *temp
== '\0')) {
152 for (i
= 0; i
< len
; i
++) {
155 if (temp
[i
+1] == 'x' || temp
[i
+1] == 'X') {
156 sscanf(temp
+i
, "%x", &val
);
159 sscanf(temp
+i
, "%d", &val
);
161 while (isxdigit(temp
[i
]))
168 set_IO_permissions(val1
, val
, rw
);
173 if (val1
== -1) val1
= 0;
176 if (temp
[i
] >= '0' && temp
[i
] <= '9') {
177 sscanf(temp
+i
, "%d", &val
);
178 while (isdigit(temp
[i
]))
183 set_IO_permissions(val1
, val
, rw
);
187 static inline BYTE
inb( WORD port
)
190 __asm__
__volatile__( "inb %w1,%0" : "=a" (b
) : "d" (port
) );
194 static inline WORD
inw( WORD port
)
197 __asm__
__volatile__( "inw %w1,%0" : "=a" (w
) : "d" (port
) );
201 static inline DWORD
inl( WORD port
)
204 __asm__
__volatile__( "inl %w1,%0" : "=a" (dw
) : "d" (port
) );
208 static inline void outb( BYTE value
, WORD port
)
210 __asm__
__volatile__( "outb %b0,%w1" : : "a" (value
), "d" (port
) );
213 static inline void outw( WORD value
, WORD port
)
215 __asm__
__volatile__( "outw %w0,%w1" : : "a" (value
), "d" (port
) );
218 static inline void outl( DWORD value
, WORD port
)
220 __asm__
__volatile__( "outl %0,%w1" : : "a" (value
), "d" (port
) );
223 #endif /* DIRECT_IO_ACCESS */
225 static void IO_port_init(void)
227 #ifdef DIRECT_IO_ACCESS
230 do_direct_port_access
= 0;
231 /* Can we do that? */
235 PROFILE_GetWineIniString( "ports", "read", "*",
236 temp
, sizeof(temp
) );
237 do_IO_port_init_read_or_write(temp
, IO_READ
);
238 PROFILE_GetWineIniString( "ports", "write", "*",
239 temp
, sizeof(temp
) );
240 do_IO_port_init_read_or_write(temp
, IO_WRITE
);
242 #endif /* DIRECT_IO_ACCESS */
243 IO_FixCMOSCheckSum();
247 /**********************************************************************
250 * Note: The size argument has to be handled correctly _externally_
251 * (as we always return a DWORD)
253 DWORD
IO_inport( int port
, int size
)
257 TRACE("%d-byte value from port 0x%02x\n", size
, port
);
259 #ifdef DIRECT_IO_ACCESS
260 if (do_direct_port_access
== -1) IO_port_init();
261 if ((do_direct_port_access
)
262 /* Make sure we have access to the port */
263 && (port_permissions
[port
] & IO_READ
))
268 case 1: res
= inb( port
); break;
269 case 2: res
= inw( port
); break;
270 case 4: res
= inl( port
); break;
272 ERR("invalid data size %d\n", size
);
283 res
= (DWORD
)VGA_ioport_in( port
);
289 BYTE chan
= port
& 3;
292 if (tmr_8253_latched
[chan
] == TRUE
)
294 tempval
= tmr_8253_latch
[chan
];
295 tmr_8253_latched
[chan
] = FALSE
;
299 dummy_ctr
-= 1+(int) (10.0*rand()/(RAND_MAX
+1.0));
300 if (chan
== 0) /* System timer counter divisor */
301 /* FIXME: DOSVM_GetTimer() returns quite rigid values */
302 tempval
= dummy_ctr
+(WORD
)DOSVM_GetTimer();
304 { /* FIXME: intelligent hardware timer emulation needed */
308 switch (tmr_8253_ctrlbyte_ch
[chan
] & 0x30)
311 break; /* correct ? */
312 case 0x10: /* read lo byte */
315 case 0x30: /* read lo byte, then hi byte */
316 tmr_8253_byte_toggle
[chan
] ^= TRUE
; /* toggle */
317 if (tmr_8253_byte_toggle
[chan
] == TRUE
)
322 /* else [fall through if read hi byte !] */
323 case 0x20: /* read hi byte */
324 res
= (BYTE
)tempval
>>8;
330 res
= INT_Int09ReadScan();
331 #if 0 /* what's this port got to do with parport ? */
332 res
= (DWORD
)parport_8255
[0];
336 res
= (DWORD
)parport_8255
[1];
339 res
= (DWORD
)parport_8255
[2];
342 res
= (DWORD
)cmosaddress
;
345 res
= (DWORD
)cmosimage
[cmosaddress
& 0x3f];
349 res
= 0xffffffff; /* no joystick */
352 WARN("Direct I/O read attempted from port %x\n", port
);
356 TRACE(" returning ( 0x%lx )\n", res
);
361 /**********************************************************************
364 void IO_outport( int port
, int size
, DWORD value
)
366 TRACE("IO: 0x%lx (%d-byte value) to port 0x%02x\n",
369 #ifdef DIRECT_IO_ACCESS
370 if (do_direct_port_access
== -1) IO_port_init();
371 if ((do_direct_port_access
)
372 /* Make sure we have access to the port */
373 && (port_permissions
[port
] & IO_WRITE
))
378 case 1: outb( LOBYTE(value
), port
); break;
379 case 2: outw( LOWORD(value
), port
); break;
380 case 4: outl( value
, port
); break;
382 WARN("Invalid data size %d\n", size
);
393 VGA_ioport_out( port
, (BYTE
)value
);
396 DOSVM_PIC_ioport_out( port
, (BYTE
)value
);
402 BYTE chan
= port
& 3;
405 if ( ((tmr_8253_ctrlbyte_ch
[chan
] & 0x30) != 0x30) ||
406 /* we need to get the oldval before any lo/hi byte change has been made */
407 (tmr_8253_byte_toggle
[chan
] == FALSE
) )
408 oldval
= tmr_8253_countmax
[chan
];
409 switch (tmr_8253_ctrlbyte_ch
[chan
] & 0x30)
412 break; /* correct ? */
413 case 0x10: /* write lo byte */
414 tmr_8253_countmax
[chan
] =
415 (tmr_8253_countmax
[chan
] & 0xff00) | (BYTE
)value
;
417 case 0x30: /* write lo byte, then hi byte */
418 tmr_8253_byte_toggle
[chan
] ^= TRUE
; /* toggle */
419 if (tmr_8253_byte_toggle
[chan
] == TRUE
)
421 tmr_8253_countmax
[chan
] =
422 (tmr_8253_countmax
[chan
] & 0xff00) | (BYTE
)value
;
425 /* else [fall through if write hi byte !] */
426 case 0x20: /* write hi byte */
427 tmr_8253_countmax
[chan
] =
428 (tmr_8253_countmax
[chan
] & 0xff)|((BYTE
)value
<< 8);
432 /* programming finished ? */
433 ( ((tmr_8253_ctrlbyte_ch
[chan
] & 0x30) != 0x30) ||
434 (tmr_8253_byte_toggle
[chan
] == FALSE
) )
435 /* update to new value ? */
436 && (tmr_8253_countmax
[chan
] != oldval
)
438 set_timer_maxval(chan
, tmr_8253_countmax
[chan
]);
443 BYTE chan
= ((BYTE
)value
& 0xc0) >> 6;
445 /* ctrl byte for specific timer channel */
446 tmr_8253_ctrlbyte_ch
[chan
] = (BYTE
)value
;
448 FIXME("8254 timer readback not implemented yet\n");
451 if (((BYTE
)value
&0x30)==0) { /* latch timer */
452 tmr_8253_latched
[chan
] = TRUE
;
453 dummy_ctr
-= 1+(int) (10.0*rand()/(RAND_MAX
+1.0));
454 if (chan
== 0) /* System timer divisor */
455 tmr_8253_latch
[0] = dummy_ctr
+(WORD
)DOSVM_GetTimer();
457 { /* FIXME: intelligent hardware timer emulation needed */
458 tmr_8253_latch
[chan
] = dummy_ctr
;
461 if ((value
& 0x30) == 0x30) /* write lo byte, then hi byte */
462 tmr_8253_byte_toggle
[((BYTE
)value
& 0xc0) >> 6] = FALSE
; /* init */
466 parport_8255
[1] = (BYTE
)value
;
467 if ((((BYTE
)parport_8255
[1] & 3) == 3) && (tmr_8253_countmax
[2] != 1))
469 TRACE("Beep (freq: %d) !\n", 1193180 / tmr_8253_countmax
[2]);
470 Beep(1193180 / tmr_8253_countmax
[2], 20);
474 cmosaddress
= (BYTE
)value
& 0x7f;
477 cmosimage
[cmosaddress
& 0x3f] = (BYTE
)value
;
480 WARN("Direct I/O write attempted to port %x\n", port
);