home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
fortran
/
library
/
fatdos
/
fatd0.doc
< prev
next >
Wrap
Text File
|
1988-04-15
|
11KB
|
363 lines
FAT-DOS 1.0
Fortran Accessory Tools for DOS
Analytic Software Associates
Copyright (c) 1987 Marc A. Norton
All Rights Reserved.
FAT-DOS 1.0
Table of Contents
-----------------
Description Page
----------- ----
Table of Functions i
About Shareware iii
Introduction iv
Memory Management A-1
File Management B-1
Keyboard Input C-1
Screen Output D-1
Disk Control E-1
Directory Control F-1
General G-1
Date & Time H-1
Other Device I/O I-1
Ctrl-C/Break Trapping J-1
Copyright (c) 1987 Marc A. Norton All Rights Reserved.
DEC 1987 FAT-DOS 1.0 Page i
Table of Functions - DOS Library
----------------------------------
No. Function Page
--- -------- ----
1 ALLMEM(NPAR,SEG,MAXPAR) A-1
2 FREMEM(SEG,IERR) A-1
3 MODMEM(NPAR,SEG,MAXSEG,IER) A-2
4 PEEKB(OFF,SEG,VALUE) A-2
5 PEEKW(OFF,SEG,VALUE) A-3
6 PEEKL(OFF,SEG,VALUE) A-3
7 POKEB(OFF,SEG,VALUE) A-4
8 POKEW(OFF,SEG,VALUE) A-4
9 POKEL(OFF,SEG,VALUE) A-5
10 OPFILX(FILE,MODE,HANDLE,IER) B-1
11 CRFILX(FILE,ATTRIB,HANDLE,IER) B-1
12 CLFILX(HANDLE,IER) B-2
13 DLFILX(FILE,IER) B-2
14 RNFILX(OLDFILE,NEWFILE,IER) B-2
15 SCHFIL(SFILE,FFILE,ATTRIB,RATT,RTIME,RDATE, B-3
RSIZE,IER)
16 SCHFL2(FFILE,RATT,RTIME,RDATE,RSIZE,IER) B-3
17 CRTEMP(PATH,ATTRIB,HANDLE,IE B-4
18 DUPHND(OLDHANDLE,NEWHANDLE,IER) B-4
19 GETFDT(HANDLE,DATE,TIME,IER) B-5
20 SETFDT(HANDLE,DATE,TIME,IER) B-5
21 INTDAT(DATE,YR,MO,DAY) B-6
22 INTTIM(TIME,HRS,MIN,SEC) B-6
23 GETFA(FILE,ATTRIB,IER) B-6
24 SETFA(FILE,ATTRIB,IER) B-7
25 MOVPTR(HANDLE,METHOD,OFFSET,IER) B-7
26 RDFILX(BUFFER,NBYTES,HANDLE,IER) B-8
27 WTFILX(BUFFER,NBYTES,HANDLE,IER) B-8
28 CHINP(KEY) C-1
29 UCHINP(KEY) C-1
30 CHINWE(KEY) C-1
31 KBDIS(STATUS) C-2
32 CLRCON() C-2
33 GETSTR(STRING,NBYTES,IER) C-2
34 CHOUT(KEY) D-1
35 PUTSTR(STRING,NBYTES,IER) D-1
36 DSKRST() E-1
37 SETDD(DRIVE,NUMDRIVES) E-1
38 GETDD(DRIVE) E-1
39 GETAID(DRIVE,SPC,FATIB,SOS,NC) E-2
40 SETVF(VALUE) E-2
Copyright (c) 1987 Marc A. Norton All Rights Reserved.
DEC 1987 FAT-DOS 1.0 Page ii
Table of Functions - DOS Library
----------------------------------
No. Function Page
--- -------- ----
41 GETVF(VALUE) E-2
42 GETFDS(DRIVE,SPC,NAC,BPS,CPD,IER) E-3
43 SETDTA(LDTA) E-3
44 GETDTA(LDTA) E-3
45 MKDIR(DIRNAME,IER) F-1
46 RMDIR(DIRNAME,IER) F-1
47 SETDIR(DIRNAME,IER) F-1
48 GETDIR(DRIVE,DIRNAME,IER) F-2
49 COMLIN(STRING) G-1
50 GETDOS(MAJOR,MINOR) G-1
51 BEEP() G-1
52 GETPSP(SEGMENT) G-1
53 SETNUL(STRING) G-2
54 GETTIM(HRS,MIN,SEC,HSEC) H-1
55 SETTIM(HRS,MIN,SEC,HSEC) H-1
56 GETDAT(YR,MO,DAY) H-1
57 SETDAT(YR,MO,DAY) H-2
58 AUXINP(VALUE) I-1
59 AUXOUT(VALUE) I-1
60 PRNOUT(VALUE) I-1
61 INPB(PORT,VALUE) I-2
62 INPW(PORT,VALUE) I-2
63 OUTPB(PORT,VALUE) I-2
64 OUTPW(PORT,VALUE) I-2
65 GETCBF(FLAG) J-1
66 SETCBF(FLAG) J-1
67 TRAPCC(FLAG) J-2
68 TRAPCB(FLAG) J-2
Copyright (c) 1987 Marc A. Norton All Rights Reserved.
DEC 1987 FAT-DOS 1.0 Page iii
About Shareware
---------------
The FAT-DOS software is sold as shareware via user groups,
"Public Domain Software Entities", and directly from me. This
does not mean the software is free, it is not.
The software is distributed with a nominal charge, so you
may try the software out first, and be assured it works
with your system, and that you wish to use it. Once you are
satisfied it's adequate and meets your needs, I the developer
expect you to register with me and pay the registration fee.
The entire shareware concept relies on the faith of software
developers, and the honesty of users. If you abuse the privilege
of shareware software, you risk not having any shareware, so make
your choices carefully regarding your need to register for this
or any other shareware product.
The FAT-DOS shareware package may be freely distributed by
anyone, so long as not more than $12 is charged for duplicating
the disk and/or manual(the manual is on the disk). In fact this
is the best advertising I could have, so I encourage you to
make a copy and give it to a friend, or your user group, or
anyone else. Make sure you give them an unaltered version, with
the manual on the disk.
The registered users of the FAT-DOS package will be notified
of specific errors, corrections and updates by mail. There is also
telephone support for registered users.
Shareware Disk $ 12.00 Manual on disk
Registration & Disk $ 35.00 Manual on disk
If you bought your share disk from me, I'll register you for $25.00.
Printed Manual $ 15.00
Assembly source, DOS.lib $ 35.00 Requires A86 assembler.
Upgrade Disk $ 12.00 Manual on disk
Maryland residents add 5% sales tax.
For Info call 301-441-9235
To order, send check or mony order, and state items desired, to:
Analytic Software Associates
P.O. Box 425
Greenbelt MD 20770
Copyright (c) 1987 Marc A. Norton All Rights Reserved.
DEC 1987 FAT-DOS 1.0 Page iv
Introduction
------------
The Fortran Accessory Tools for DOS(FAT-DOS) software
package offers the Fortran programmer access to the low level
DOS functions. FAT-DOS requires DOS 2.0 or above, and a compatible
ROM-BIOS (most are today).
The FAT-DOS library supports the MS-Fortran compilers versions
3.0 thru 4.01. Each function can be called as is from MS-Fortran.
The FAT-DOS package supports the Lahey-F77L compiler. The DOS
library functions may be called from Lahey Fortran. You must declare
each DOS.lib function using the MSEXTERNAL keyword, and do so in each
routine using the DOS.lib functions.
The assembly source code for the FAT-DOS library functions is
available to anyone interested in modifying them, as a separate
disk for $35.00 . They are copyrighted and are not to be distributed.
You may modify and use them for personal purposes only. The assembly
source requires the A86 assembler written by Eric Isaacson, and is also
available as shareware. I recommend it over all other assemblers, its
very inexpensive compared to all others, and far superior as well. It
is also, for the novice, easier to use than any of the others I've seen.
The FAT-DOS package will be modified and improved as needed.
If you have any suggestions please write them down and send them in.
Also if you have any problems, write or call. If you write, send a
sample of the code you have trouble with .
The registered users of FAT-DOS will be notified of upgrades
to the package by mail. Upgraded versions of FAT-DOS will be
available on disk for about the same charge as the current shareware
disk. The registered users will also receive telephone support for
problems and questions related to FAT-DOS.
The FAT-DOS package is currently being adapted for several
other compilers. If you have a vested interest in another compiler
please write and let me know, and I will attempt to release the most
popular versions first.
Copyright (c) 1987 Marc A. Norton All Rights Reserved.
DEC 1987 FAT-DOS 1.0 Page v
Order Information:
------------------
Shareware Disk $ 12.00 Manual on disk
Registration & Disk $ 35.00 Manual on disk
If you bought your share disk from me, I'll register you for $25.00.
Printed Manual $ 15.00
Assembly source, DOS.lib $ 35.00 Requires A86 assembler
Upgrade Disk $ 12.00 Manual on Disk
Maryland residents add 5% sales tax.
For information call 301-441-9235
To order, send check or money order, and state items desired to:
Analytic Software Associates
P.O. Box 425
Greenbelt, MD 20770
Copyright (c) 1987 Marc A. Norton All Rights Reserved.
DEC 1987 FAT-DOS 1.0 Page vi
Using Lahey Fortran with FAT-DOS:
-----------------------------------
The Lahey compiler simply requires that the DOS library
functions be declared as MSEXTERNAL as follows, and then called
normally.
integer*2 Ier
character*60 string
msexternal setdir,getdir,...etc
call getdir(Int2(0),string,Ier)
call setdir('MyDir'//char(0),Ier)
DEFINITION OF AN ASCIIZ STRING:
-------------------------------
Any character string which is terminated with the Null
character. In Fortran this is done as follows:
character*30 FileName
FileName = 'MyFile.Dat'//char(0)
Note: I recommend the A86 assembler for any assembly language
work, novice or pro. Below is Eric's address & phone number.
Eric Isaacson
416 E. University Street
Bloomington, IN 47401
(812)-339-1811
Useful References:
------------------
1) The Peter Norton Programmer's Guide to the IBM PC
by Peter Norton
2) Advanced MS-DOS
by Ray Duncan
Copyright (c) 1987 Marc A. Norton All Rights Reserved.