Dec 162017
 
Useful dos functions for PC based FORTRAN compilers.
File FATDOS.ZIP from The Programmer’s Corner in
Category Miscellaneous Language Source Code
Useful dos functions for PC based FORTRAN compilers.
File Name File Size Zip Size Zip Type
DOS.LIB 11776 4369 deflated
FATD0.DOC 11300 3477 deflated
FATD1.DOC 24400 5924 deflated
FATD2.DOC 9410 2649 deflated
FATD3.DOC 3912 1213 deflated
README 8212 2083 deflated

Download File FATDOS.ZIP Here

Contents of the README file




Getting Started with FAT-DOS 1.00
----------------------------------

Notice:
-------
This software is shareware, please read the manual
for more info on the use of this package, and for info
on the available support for this product.
This package provides a library of functions designed
for use with the Microsoft, and Lahey, Fortran compilers.
There is also a manual on disk, divided into 4 sections,
for printing. To see how to call each function from Fortran,
see the manual regarding that funtion. At the end of this
readme file is a list of the available functions in the
library.

Installation on Hard Disk:
--------------------------
First copy the disk contents to an empty sub-directory
on your hard disk.
To extract files from the registered archive file,
Type >arce FD100
To extract files from the shareware archive file,
Type >arce FD100

Installation on Floppy Systems Only:
------------------------------------
Same as above except you must specify an output path.
Type >arce FD100 b:\FATDOS
Note: In the example you must first make the subdirectory
and name it fatvid on drive B:.

Manual:
-------
The manual consisits of 4 sections: fatd0.doc, fatd1.doc, fatd2.doc
fatd3.doc. These may be printed on any printer.

Demo:
-----
There is a demo program called demo.exe. Once unarchived, you
need only type demo and the demo will start. The demo source code
is a good source of examples.



FAT-DOS 1.00 Pricing Structure
--------------------------------


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
& window Fortran source code
If you bought your shareware 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(Reg users only) $ 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




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



 December 16, 2017  Add comments

Leave a Reply