Subversion Repositories SvarDOS

Rev

Rev 2043 | Rev 2045 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2043 Rev 2044
Line 48... Line 48...
48 
#include "stack.h"
 48 
#include "stack.h"
49 
 
 49 
 
50 
/* DOS disk accesses */
 50 
/* DOS disk accesses */
51 
#include "dosdisk.h"
 51 
#include "dosdisk.h"
52 
 
 52 
 
53 
 
 - 
 
54 
/* Define getdrive so it returns current drive, 0=A,1=B,...           */
 - 
 
55 
#define getdrive() getdisk()
 - 
 
56 
 
 - 
 
57 
#include <conio.h>  /* for getch()   */
 53 
#include <conio.h>  /* for getch()   */
58 
 
 54 
 
59 
 
 55 
 
60 
/* The default extended forms of the lines used. */
 56 
/* The default extended forms of the lines used. */
61 
#define VERTBAR_STR  "\xB3   "                 /* |    */
 57 
#define VERTBAR_STR  "\xB3   "                 /* |    */
Line 168... Line 164...
168 
 
 164 
 
169 
 
 165 
 
170 
/* Procedures */
 166 
/* Procedures */
171 
 
 167 
 
172 
 
 168 
 
- 
 
 169 
/* returns the current drive (A=0, B=1, etc) */
- 
 
 170 
static unsigned char getdrive(void);
- 
 
 171 
#pragma aux getdrive = \
- 
 
 172 
"mov ah, 0x19" \
- 
 
 173 
"int 0x21" \
- 
 
 174 
modify [ah] \
- 
 
 175 
value [al]
- 
 
 176 
 
- 
 
 177 
 
173 
#define FILE_TYPE_UNKNOWN 0x00
 178 
#define FILE_TYPE_UNKNOWN 0x00
174 
#define FILE_TYPE_DISK    0x01
 179 
#define FILE_TYPE_DISK    0x01
175 
#define FILE_TYPE_CHAR    0x02
 180 
#define FILE_TYPE_CHAR    0x02
176 
#define FILE_TYPE_PIPE    0x03
 181 
#define FILE_TYPE_PIPE    0x03
177 
#define FILE_TYPE_REMOTE  0x80
 182 
#define FILE_TYPE_REMOTE  0x80