home *** CD-ROM | disk | FTP | other *** search
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- 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.
-
-