1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
/*
This file is part of SUPPL - the supplemental library for DOS
Copyright (C) 1996-2000 Steffen Kaiser
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* Portable include file for Watcom C */
#ifdef __WATCOMC__
#include <direct.h>
#include <stdlib.h>
/* Global argc/argv variables */
#define G_ARGV _argv /* global char **argv variable */
#define G_ARGC _argc /* global int argc variable */
#define G_ARG_DEF /* definition of global variables */
#define G_ARG_INIT /* initialization of global variables */
/* byte/word/dword type */
typedef unsigned char byte;
typedef unsigned word;
typedef unsigned FLAG;
typedef unsigned FLAG8;
typedef unsigned long dword;
#ifndef _CLIB_
#define peekb(segm,ofs) (*(byte far*)MK_FP((segm),(ofs)))
#define peekw(segm,ofs) (*(word far*)MK_FP((segm),(ofs)))
#define pokeb(segm,ofs,value) (peekb((segm),(ofs)) = (byte)(value))
#define pokew(segm,ofs,value) (peekw((segm),(ofs)) = (word)(value))
#endif
#define _osversion MK_OSVERS(_osmajor, _osminor)
/* get/set interrupt vector */
typedef void (__interrupt __far *isr)();
#define set_isrfct(num,fct) _dos_setvect((num), (isr)(fct))
#define get_isr(num,var) ((var) = _dos_getvect(num))
#define set_isr(num,var) _dos_setvect((num), (var))
/* calling an interrupt */
typedef struct {
unsigned int r_ax;
unsigned int r_bx;
unsigned int r_cx;
unsigned int r_dx;
unsigned int r_bp;
unsigned int r_si;
unsigned int r_di;
unsigned int r_ds;
unsigned int r_es;
unsigned int r_flags;
} IREGS;
#define intrpt(num,regs) intr((num), (union REGPACK*)(regs))
/* get/set current working drive */
extern short getdisk(void);
#pragma aux getdisk = \
"mov ah, 19h" \
"int 21h" \
"xor ah, ah" \
value [ax]
extern short setdisk(int newdrive);
#pragma aux setdisk = \
"mov ah, 0eh" \
"int 21h" \
"xor ah, ah" \
parm [dx] \
modify [dx] \
value [ax]
#endif
|
