refactoring

LICENSE.md

@@ -1,9 +0,0 @@
-[MS-DOS 1.25 & 2.0 Source]
-Copyright (c) Microsoft Corporation
-All rights reserved. 
-MIT License
-Permission is hereby granted, freeof charge, to any person obtaining a copy of this software and associateddocumentation files (the Software), to deal in the Software withoutrestriction, including without limitation the rights to use, copy, modify,merge, publish, distribute, sublicense, and/or sell copies of the Software, andto permit persons to whom the Software is furnished to do so, subject to thefollowing conditions:
- 
-The above copyright notice andthis permission notice shall be included in all copies or substantial portionsof the Software.
- 
-THE SOFTWARE IS PROVIDED *AS IS*,WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TOTHE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE ANDNONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLEFOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE ORTHE USE OR OTHER DEALINGS IN THE SOFTWARE.

README.md

@@ -1,16 +0,0 @@
-<img width="150" height="150" style="float:left" alt="MS-DOS logo" src="https://github.com/Microsoft/MS-DOS/blob/master/msdos-logo.png">   
-
-# MS-DOS v1.25 and v2.0 Source Code
-This repo contains the original source-code and compiled binaries for MS-DOS 1.25 and MS-DOS 2.0.
-
-These are the same files [originally shared at the Computer History Museum on March 25th 2014]( http://www.computerhistory.org/atchm/microsoft-ms-dos-early-source-code/) and are being (re)published in this repo to make them easier to find, reference-to in external writing and works, and to allow exploration and experimentation for those interested in early PC Operating Systems.  
-
-# License
-All files within this repo are released under the [MIT (OSI) License]( https://en.wikipedia.org/wiki/MIT_License) as per the [LICENSE file](https://githib.com/microsoft/msdos/license.txt) stored in the root of this repo.
-
-# Contribute!
-The source files in this repo are for historical reference and will be kept static, so please don’t send Pull Requests suggesting any modifications to the source files, but feel free to fork this repo and experiment 😊.  
-
-If, however, you’d like to submit additional non-source content or modifications to non-source files (e.g. this README), please submit via PR and we’ll review and consider.
-
-This project has adopted the [Microsoft Open Source Code of Conduct](https://opensource.microsoft.com/codeofconduct/).  For more information see the [Code of Conduct FAQ](https://opensource.microsoft.com/codeofconduct/faq/) or contact [opencode@microsoft.com](mailto:opencode@microsoft.com) with any additional questions or comments.

v1.25/Tim_Paterson_16Dec2013_email.txt

@@ -1,23 +0,0 @@
-From: Tim Paterson 
-To: Len Shustek 
-Date: Mon, 16 Dec 2013 10:34:17 -0800
-Subject: RE: Source code to MS-DOS 1.0
-
-
-I have found and attached the source code for MS-DOS 1.25 as shipped by Seattle Computer Products.  Version 1.25 was the first general release to OEM customers other than IBM so was used by all the first clone manufacturers.
- 
-IBM's DOS 1.1 corresponds to MS-DOS 1.24.  There is one minor difference between 1.24 and 1.25, as noted in the revision history at the top of MSDOS.ASM.
- 
-Of the file attached, only STDDOS.ASM/MSDOS.ASM (DOS main code) and COMMAND.ASM (command processor) would have been used by an OEM other than Seattle Computer.  The other files:
- 
-IO.ASM - I/O system unique to SCP (equivalent to ibmbio.sys).
-ASM.ASM & HEX2BIN.ASM - Old 8086 assembler developed by SCP (used to assemble older version of DOS).
-TRANS.ASM - Z80 to 8086 assembly source code translator developed by SCP.
- 
-I also have a 6” stack of printouts of assembly listings for some of these and probably other related programs.
- 
-Tim Paterson
-Paterson Technology
-http://www.patersontech.com/
- 
- 

v1.25/source/HEX2BIN.ASM

@@ -1,214 +0,0 @@
-; HEX2BIN  version 1.02
-; Converts Intel hex format files to straight binary
-
-FCB:	EQU	5CH
-READ:	EQU	20
-SETDMA:	EQU	26
-OPEN:	EQU	15
-CLOSE:	EQU	16
-CREATE:	EQU	22
-DELETE:	EQU	19
-BLKWRT:	EQU	40
-GETSEG:	EQU	38
-BUFSIZ:	EQU	1024
-
-	ORG	100H
-	PUT	100H
-
-HEX2BIN:
-	MOV	DI,FCB+9
-	CMP	B,[DI]," "
-	JNZ	HAVEXT
-	MOV	SI,HEX
-	MOVB
-	MOVW
-HAVEXT:
-;Get load offset (default is -100H)
-	MOV	CL,4		;Needed for shifts
-	MOV	[OFFSET],-100H
-	MOV	SI,FCB+11H	;Scan second FCB for offset
-	LODB
-	CMP	AL," "		;Check if offset present
-	JZ	HAVOFF
-	MOV	B,[SIGN],0	;Assume positive sign for now
-	CMP	AL,"+"
-	JZ	GETOFF		;Get a positive offset
-	CMP	AL,"-"
-	JNZ	GETOFF1		;If not + or -, then not signed
-	MOV	B,[SIGN],1	;Flag as negative offset
-GETOFF:
-	LODB			;Eat sign
-GETOFF1:
-	CALL	HEXCHK		;Check for valid hex character
-	JC	HAVOFF		;No offset if not valid
-	XOR	BX,BX		;Intialize offset sum to 0
-CONVOFF:
-	SHL	BX,CL		;Multiply current sum by 16
-	OR	BL,AL		;Add in current hex digit
-	LODB			;Get next digit
-	CALL	HEXCHK		;And convert it to binary
-	JNC	CONVOFF		;Loop until all hex digits read
-	TEST	B,[SIGN],-1	;Check if offset was to be negative
-	JZ	SAVOFF
-	NEG	BX
-SAVOFF:
-	MOV	[OFFSET],BX
-HAVOFF:
-	MOV	DX,STARTSEG
-	MOV	AX,DS
-	ADD	DX,AX		;Compute load segment
-	MOV	AH,GETSEG
-	INT	33
-	MOV	ES,DX
-	SEG	ES
-	MOV	CX,[6]		;Get size of segment
-	MOV	[SEGSIZ],CX
-	XOR	AX,AX
-	MOV	DI,AX
-	MOV	BP,AX
-	SHR	CX
-	REP
-	STOW			;Fill entire segment with zeros
-	MOV	AH,OPEN
-	MOV	DX,FCB
-	INT	21H
-	OR	AL,AL
-	JNZ	NOFIL
-	MOV	B,[FCB+32],0
-	MOV	[FCB+14],BUFSIZ	;Set record size to buffer size
-	MOV	DX,BUFFER
-	MOV	AH,SETDMA
-	INT	33
-	MOV	AH,READ
-	MOV	DX,FCB		;All set up for sequential reads
-	MOV	SI,BUFFER+BUFSIZ ;Flag input buffer as empty
-READHEX:
-	CALL	GETCH
-	CMP	AL,":"		;Search for : to start line
-	JNZ	READHEX
-	CALL	GETBYT		;Get byte count
-	MOV	CL,AL
-	MOV	CH,0
-	JCXZ	DONE
-	CALL	GETBYT		;Get high byte of load address
-	MOV	BH,AL
-	CALL	GETBYT		;Get low byte of load address
-	MOV	BL,AL
-	ADD	BX,[OFFSET]	;Add in offset
-	MOV	DI,BX
-	CALL	GETBYT		;Throw away type byte
-READLN:
-	CMP	DI,[SEGSIZ]
-	JAE	ADERR
-	CALL	GETBYT		;Get data byte
-	STOB
-	CMP	DI,BP		;Check if this is the largest address so far
-	JBE	HAVBIG
-	MOV	BP,DI		;Save new largest
-HAVBIG:
-	LOOP	READLN
-	JP	READHEX
-
-NOFIL:
-	MOV	DX,NOFILE
-QUIT:
-	MOV	AH,9
-	INT	21H
-	INT	20H
-
-ADERR:
-	MOV	DX,ADDR
-	JMP	SHOWERR
-
-GETCH:
-	CMP	SI,BUFFER+BUFSIZ
-	JNZ	NOREAD
-	INT	21H
-	CMP	AL,1
-	JZ	ERROR
-	MOV	SI,BUFFER
-NOREAD:
-	LODB
-	CMP	AL,1AH
-	JZ	DONE
-	RET
-
-GETBYT:
-	CALL	HEXDIG
-	MOV	BL,AL
-	CALL	HEXDIG
-	SHL	BL
-	SHL	BL
-	SHL	BL
-	SHL	BL
-	OR	AL,BL
-	RET
-
-HEXCHK:
-	SUB	AL,"0"
-	JC	RET
-	CMP	AL,10
-	JC	CMCRET
-	SUB	AL,"A"-"0"-10
-	JC	RET
-	CMP	AL,16
-CMCRET:
-	CMC
-	RET
-
-HEXDIG:
-	CALL	GETCH
-	CALL	HEXCHK
-	JNC	RET
-ERROR:
-	MOV	DX,ERRMES
-SHOWERR:
-	MOV	AH,9
-	INT	21H
-DONE:
-	MOV	[FCB+9],4F00H+"C"	;"CO"
-	MOV	B,[FCB+11],"M"
-	MOV	DX,FCB
-	MOV	AH,CREATE
-	INT	21H
-	OR	AL,AL
-	JNZ	NOROOM
-	XOR	AX,AX
-	MOV	[FCB+33],AX
-	MOV	[FCB+35],AX	;Set RR field
-	INC	AX
-	MOV	[FCB+14],AX	;Set record size
-	XOR	DX,DX
-	PUSH	DS
-	PUSH	ES
-	POP	DS		;Get load segment
-	MOV	AH,SETDMA
-	INT	21H
-	POP	DS
-	MOV	CX,BP
-	MOV	AH,BLKWRT
-	MOV	DX,FCB
-	INT	21H
-	MOV	AH,CLOSE
-	INT	21H
-EXIT:
-	INT	20H
-
-NOROOM:
-	MOV	DX,DIRFUL
-	JMP	QUIT
-
-HEX:	DB	"HEX"
-ERRMES:	DB	"Error in HEX file--conversion aborted$"
-NOFILE:	DB	"File not found$"
-ADDR:	DB	"Address out of range--conversion aborted$"
-DIRFUL:	DB	"Disk directory full$"
-
-OFFSET:	DS	2
-SEGSIZ:	DS	2
-SIGN:	DS	1
-BUFFER:	DS	BUFSIZ
-
-START:
-STARTSEG EQU	(START+15)/16
-

v1.25/source/STDDOS.ASM

@@ -1,23 +0,0 @@
-	TITLE	MS-DOS version 1.25 by Tim Paterson     March 3, 1982
-	PAGE	60,132
-; Use the following booleans to set the switches 
-FALSE	EQU	0
-TRUE	EQU	NOT FALSE
-
-; Use the switches below to produce the standard Microsoft version of the IBM
-; version of the operating system
-MSVER	EQU	TRUE
-IBM	EQU	FALSE
-
-; Set this switch to cause DOS to move itself to the end of memory
-HIGHMEM	EQU	FALSE
-
-; Turn on switch below to allow testing disk code with DEBUG. It sets
-; up a different stack for disk I/O (functions > 11) than that used for
-; character I/O which effectively makes the DOS re-entrant.
-
-DSKTEST	EQU	FALSE
-
-	INCLUDE	MSDOS.ASM
-
-

v2.0/bin/DEVDRIV.DOC

@@ -1,802 +0,0 @@
-                  MS-DOS 2.0 Device Drivers
-
-INTRODUCTION
-
-    In the  past,  DOS-device  driver  (BIOS for those who are
-familiar with  CP/M)  communication  has  been  mediated  with
-registers and   a  fixed-address  jump-table.   This  approach
-has suffered heavily  from  the  following  two  observations:
-
-    o   The old jump-table ideas of  the  past  are  fixed  in
-        scope and allow no extensibility.
-
-    o   The past  device  driver  interfaces have been written
-        without regard for the true  power  of  the  hardware.
-        When   a   multitasking  system  or  interrupt  driven
-        hardware is installed  a  new  BIOS  must  be  written
-        largely from scratch.
-
-    In MSDOS  2.0, the DOS-device driver interface has changed
-from the old jump-table style  to  one  in  which  the  device
-drivers  are  linked  together  in  a  list.   This allows new
-drivers for  optional  hardware  to  be  installed  (and  even
-written) in  the  field  by other vendors or the user himself.
-This flexibility is one of the major new  features  of  MS-DOS
-2.0.
-
-    Each driver  in  the  chain  defines two entry points; the
-strategy routine and  the  interrupt  routine.   The  2.0  DOS
-does not  really make use of two entry points (it simply calls
-strategy, then immediately calls interrupt).  This dual  entry
-point scheme  is  designed  to facilitate future multi-tasking
-versions of MS-DOS.  In multi-tasking  environments  I/O  must
-be asynchronous,  to  accomplish  this  the  strategy  routine
-will be called to queue  (internally)  a  request  and  return
-quickly.  It  is  then  the  responsibility  of  the interrupt
-routine to perform the actual I/O at interrupt time by picking
-requests  off  the  internal  queue  (set  up  by the strategy
-routine), and process  them.   When  a  request  is  complete,
-it is  flagged  as  "done"  by the interrupt routine.  The DOS
-periodically scans the  list  of  requests  looking  for  ones
-flagged as  done,  and  "wakes up" the process waiting for the
-completion of the request.
-
-    In order for requests to be  queued  as  above  it  is  no
-longer sufficient  to pass I/O information in registers, since
-many requests may be  pending  at  any  one  time.   Therefore
-the new  device  interface uses data "packets" to pass request
-information.  A device is called with a pointer to  a  packet,
-this packet  is  linked  into  a  global  chain of all pending
-I/O requests maintained by the DOS.   The  device  then  links
-the packet  into  its  own  local  chain  of requests for this
-particular  device.   The  device  interrupt   routine   picks
-requests of  the  local  chain  for processing.  The DOS scans
-the  global  chain  looking  for  completed  requests.   These
-packets are  composed  of  two  pieces,  a  static piece which
-has the same  format  for  all  requests  (called  the  static
-request header),  which  is  followed  by information specific
-to the request.  Thus packets have a variable size and format.
-
-    At this points it should be  emphasized  that  MS-DOS  2.0
-does not  implement most of these features, as future versions
-will.  There is no global or local queue.   Only  one  request
-is pending at any one time, and the DOS waits for this current
-request to be completed.  For 2.0 it  is  sufficient  for  the
-strategy routine  to  simply  store  the address of the packet
-at a fixed location, and for the  interrupt  routine  to  then
-process  this  packet  by  doing  the  request  and returning.
-Remember:  the DOS just calls the strategy  routine  and  then
-immediately calls  the  interrupt  routine, it is assumed that
-the request is completed when the interrupt  routine  returns.
-This additional  functionality  is  defined  at  this  time so
-that people will be  aware  and  thinking  about  the  future.
-
-
-FORMAT OF A DEVICE DRIVER
-
-    A device  driver  is  simply  a  relocatable  memory image
-with all of the code in  it  to  implement  the  device  (like
-a .COM  file,  but  not ORGed at 100 Hex).  In addition it has
-a special header at the front of it  which  identifies  it  as
-a device,  defines  the  strategy  and interrupt entry points,
-and defines various  attributes.   It  should  also  be  noted
-that there are two basic types of devices.
-
-    The first  is  character devices.  These are devices which
-are designed to do character  I/O  in  a  serial  manner  like
-CON, AUX,  and  PRN.   These devices are named (ie.  CON, AUX,
-CLOCK, etc.), and users may open channels  (FCBs)  to  do  I/O
-to them.
-
-    The second  class  of  devices  is  block  devices.  These
-devices are the "disk drives"  on  the  system,  they  can  do
-random I/O  in  pieces  called  blocks  (usually  the physical
-sector size) and  hence  the  name.   These  devices  are  not
-"named" as  the  character  devices  are, and therefore cannot
-be "opened" directly.   Instead  they  are  "mapped"  via  the
-drive letters (A,B,C, etc.).
-
-    Block devices  also  have  units.  In other words a single
-driver may be responsible for one or more  disk  drives.   For
-instance block device driver ALPHA (please note that we cannot
-actually  refer  to  block  devices  by  a  name!)    may   be
-responsible for  drives  A,B,C  and  D, this simply means that
-it has four units (0-3) defined and therefore  takes  up  four
-drive letters.   Which units correspond to which drive letters
-is determined by the position  of  the  driver  in  the  chain
-of all  drivers:   if  driver  ALPHA is the first block driver
-in the device chain, and it defines 4 units (0-3),  then  they
-will be  A,B,C  and  D.   If  BETA  is the second block driver
-and defines three units (0-2),  then  they  will  be  E,F  and
-G and  so  on.   MS-DOS  2.0 is not limited to 16 block device
-units, as  previous  versions  were.   The  theoretical  limit
-is 63  (2^6  -  1),  but  it should be noted that after 26 the
-drive letters get a little strange (like ] \  and  ^).   NOTE:
-Character devices  cannot  define multiple units (this because
-they have only one name).
-
-
-Here is what that special device header looks like:
-
-           +--------------------------------------+
-           | DWORD Pointer to next device         |
-           | (Must be set to -1)                  |
-           +--------------------------------------+
-           | WORD Attributes                      |
-           |  Bit 15 = 1 if char device 0 if blk  |
-           |  if bit 15 is 1                      |
-           |      Bit 0 = 1 if Current sti device |
-           |      Bit 1 = 1 if Current sto output |
-           |      Bit 2 = 1 if Current NUL device |
-           |      Bit 3 = 1 if Current CLOCK dev  |
-           |      Bit 4 = 1 if SPECIAL            |
-           |  Bit 14 is the IOCTL bit (see below) |
-           |  Bit 13 is the NON IBM FORMAT bit    |
-           +--------------------------------------+
-           | WORD Pointer to Device strategy      |
-           |      entry point                     |
-           +--------------------------------------+
-           | WORD Pointer to Device interrupt     |
-           |      entry point                     |
-           +--------------------------------------+
-           | 8-BYTE character device name field   |
-           | Character devices set a device name  |
-           | For block devices the first byte is  |
-           | The number of units                  |
-           +--------------------------------------+
-
-    Note that the device entry points are  words.   They  must
-be offsets  from  the  same  segment  number  used to point to
-this table.  Ie.  if XXX.YYY  points  to  the  start  of  this
-table, then  XXX.strategy  and  XXX.interrupt  are  the  entry
-points.
-
-    A word about the Attribute  field.   This  field  is  used
-most importantly  to  tell  the  system whether this device is
-a block or character device (bit  15).   Most  of  other  bits
-are used  to  give  selected character devices certain special
-treatment (NOTE: these bits mean nothing on a  block  device).
-Let's say  a  user  has  a new device driver which he wants to
-be the standard input and  output.   Besides  just  installing
-the driver  he  needs  to  tell  SYSINIT (and the DOS) that he
-wishes his new driver to override  the  current  sti  and  sto
-(the "CON"  device).   This  is  accomplished  by  setting the
-attributes to the desired characteristics,  so  he  would  set
-Bits 0  and 1 to 1 (note that they are separate!!).  Similarly
-a  new  CLOCK  device  could  be  installed  by  setting  that
-attribute, see  the  section  at  the end on the CLOCK device.
-NOTE: that although there  is  a  NUL  device  attribute,  the
-NUL device  cannot  be  re-assigned.   This  attribute  exists
-for the DOS so that it can tell if the  NUL  device  is  being
-used.
-
-    The NON  IBM  FORMAT  bit  applies  only  to block devices
-and effects the operation of the  get  BPB  device  call  (see
-below).
-
-    The other  bit  of  interest  is  the  IOCTL bit which has
-meaning on character or block devices.   This  bit  tells  the
-DOS whether  this  device  can handle control strings (via the
-IOCTL system call).
-
-    If a driver cannot  process  control  strings,  it  should
-initially set  this  bit  to  0.  This tells the DOS to return
-an error if an attempt is made  (via  IOCTL  system  call)  to
-send or  receive  control  strings  to  this device.  A device
-which can process control  strings  should  initialize  it  to
-1.  For  drivers  of  this  type,  the  DOS will make calls to
-the IOCTL INPUT  and  OUTPUT  device  functions  to  send  and
-receive   IOCTL   strings   (see  IOCTL  in  the  SYSTEM-CALLS
-document).
-
-    The IOCTL functions allow data to  be  sent  and  received
-by the  device  itself for its own use (to set baud rate, stop
-bits, form length etc., etc.), instead of  passing  data  over
-the  device  channel  as  a  normal  read  or write does.  The
-interpretation of the passed information is up to the  device,
-but it MUST NOT simply be treated as a normal I/O.
-
-    The SPECIAL  bit  applies  only  to  character drivers and
-more particularly to  CON  drivers.   The  new  2.0  interface
-is a  much  more  general  and  consistent  interface than the
-old 1.25 DOS interface.  It allows for a number of  additional
-features of  2.0.   It  is  also slower than 1.25 if old style
-"single byte" system calls are made.  To make  most  efficient
-use of  the  interface  all  applications  should  block their
-I/O as much as possible.  This  means  make  one  XENIX  style
-system call  to  output  X  bytes  rather  than X system calls
-to output one byte each.  Also putting  a  device  channel  in
-RAW   mode  (see  IOCTL)  provides  a  means  of  putting  out
-characters even FASTER  than  1.25.   To  help  alleviate  the
-CON output  speed  problem  for  older  programs which use the
-1 - 12 system calls  to  output  large  amounts  of  data  the
-SPECIAL bit  has  been implemented.  If this bit is 1 it means
-the device is the  CON  output  device,  and  has  implemented
-an interrupt  29  Hex  handler,  where  the  29 Hex handler is
-defined as follows:
-
-        Interrupt 29h handlers
-
-        Input:
-                Character in AL
-
-        Function:
-                output the character in al to the user
-                screen.
-        Output:
-                None
-        Registers:
-                all registers except bx must be preserved.
-                No registers except for al have a known or
-                consistent value.
-
-    If a  character  device  implements  the  SPECIAL  bit, it
-is the responsibility of the  driver  to  install  an  address
-at the  correct  location in the interrupt table for interrupt
-29 Hex as part of  its  INIT  code.   IMPLICATION:  There  can
-be only  one  device  driver  with  the SPECIAL bit set in the
-system.  There is no check to insure this state.
-
-WARNING: THIS FEATURE WILL NOT BE SUPPORTED IN FUTURE VERSIONS
-    OF THE  OPERATING  SYSTEM.   IMPLICATION:  Any application
-    (not device driver)  which  uses  INT  29H  directly  will
-    not work on future versions, YOU HAVE BEEN WARNED.
-
-    In  order  to  "make"  a  device  driver  that SYSINIT can
-install, a memory image or .EXE  (non-IBM  only)  format  file
-must be  created  with  the  above  header  at the start.  The
-link field should be  initialized  to  -1  (SYSINIT  fills  it
-in).   The  attribute  field  and  entry  points  must  be set
-correctly, and if the device is a character device,  the  name
-field must  be  filled  in  with  the  name (if a block device
-SYSINIT will fill in  the  correct  unit  count).   This  name
-can be  any  8  character  "legal" file name.  In fact SYSINIT
-always installs character devices at the start of  the  device
-list, so  if  you  want  to  install  a new CON device all you
-have to do is name it "CON".  The new  one  is  ahead  of  the
-old one  in  the  list  and  thus  preempts the old one as the
-search for devices stops on  the  first  match.   Be  sure  to
-set the sti and sto bits on a new CON device!
-
-NOTE:  Since  SYSINIT  may  install  the  driver anywhere, you
-    must be very careful about  FAR  memory  references.   You
-    should NOT  expect  that  your  driver will go in the same
-    place every time (The default BIOS  drivers  are  exempted
-    from this of course).
-
-
-INSTALLATION OF DEVICE DRIVERS
-
-    Unlike past versions MS-DOS 2.0 allows new device  drivers
-to   be   installed   dynamically   at  boot  time.   This  is
-accomplished by the new SYSINIT module supplied by  Microsoft,
-which reads  and  processes  the CONFIG.SYS file.  This module
-is linked together with the OEM  default  BIOS  in  a  similar
-manner to the way FORMAT is built.
-
-    One of  the  functions  defined  for  each device is INIT.
-This routine is called once  when  the  device  is  installed,
-and never  again.  The only thing returned by the init routine
-is a location (DS:DX) which is a pointer  to  the  first  free
-byte of  memory  after  the  device  driver, (like a terminate
-and stay resident).  This pointer method can be used to "throw
-away" initialization  code  that  is  only needed once, saving
-on space.
-
-    Block devices are installed the same way and  also  return
-a first  free  byte  pointer  as above, additional information
-is also returned:
-
-    o   The number  of  units  is  returned,  this  determines
-        logical device  names.  If the current maximum logical
-        device letter is F at the time of  the  install  call,
-        and the init routine returns 4 as the number of units,
-        then they will have logical  names  G,  H,  I  and  J.
-        This mapping  is  determined  by  by  the  position of
-        the driver in the device list and the number of  units
-        on the  device (stored in the first byte of the device
-        name field).
-
-    o   A pointer to a  BPB  (Bios  Parameter  Block)  pointer
-        array is  also  returned.   This  will  be  similar to
-        the INIT table used in  previous  versions,  but  will
-        have more  information  in  it.   There  is  one table
-        for each unit defined.   These  blocks  will  be  used
-        to build  a  DPB  (Drive  Parameter Block) for each of
-        the units.  The pointer passed to  the  DOS  from  the
-        driver points  to  an array of n word pointers to BPBs
-        where n is the  number  of  units  defined.   In  this
-        way if  all  units  are  the same, all of the pointers
-        can point to the same BPB, saving space.   NOTE:  this
-        array must  be  protected  (below the free pointer set
-        by the return) since the DPB will  be  built  starting
-        at the  byte  pointed  to  by  the  free pointer.  The
-        sector size defined must be  less  than  or  equal  to
-        the maximum  sector  size defined at default BIOS init
-        time.  If it isn't the install  will  fail.   One  new
-        piece of DPB info set from this table will be a "media
-        descriptor byte".  This  byte  means  nothing  to  the
-        DOS, but  is  passed to devices so that they know what
-        form of a  DPB  the  DOS  is  currently  using  for  a
-        particular Drive-Unit.
-
-    Block devices  may  take  several  approaches; they may be
-dumb or smart.   A  dumb  device  would  define  a  unit  (and
-therefore a  DPB)  for  each possible media drive combination.
-Unit 0 = drive 0 single side, unit 1 = drive  0  double  side,
-etc.  For  this  approach  media  descriptor  bytes would mean
-nothing.  A smart device would allow multiple media per  unit,
-in this  case the BPB table returned at init must define space
-large  enough  to  accommodate  the  largest  possible   media
-supported.  Smart  drivers  will  use the "media byte" to pass
-around info about what media is currently in  a  unit.   NOTE:
-If the  DPB  is  a  "hybrid"  made  to get the right sizes, it
-should give an invalid "media byte" back to the DOS.
-
-    The BOOT  (default  BIOS)  drivers  are  installed  pretty
-much as  above.   The preset device list is scanned.  If block
-drivers are encountered they  are  installed  as  above  (with
-the exception  that  the  break is not moved since the drivers
-are already resident in the  BIOS).   Note  that  the  logical
-drive letters  are  assigned  in  list  order, thus the driver
-which is to have logical A must  be  the  first  unit  of  the
-first  block  device  in  the  list.   The  order of character
-devices is also important.  There must be at least 4 character
-devices defined  at  boot which must be the first four devices
-(of either  type),  the  first  will  become  standard  input,
-standard output,  and  standard error output.  The second will
-become standard auxiliary input and  output,  the  third  will
-become standard  list  output,  and  the forth will become the
-date/time (CLOCK) device.  Thus  the  BIOS  device  list  must
-look like this:
-
-->CON->AUX->PRN->CLOCK->any other block or character devices
-
-THE DRIVER
-
-    A device driver will define the following functions:
-
-  Command   Function
-   Code
-
-     0      INIT
-     1      MEDIA CHECK (Block only, NOP for character)
-     2      BUILD BPB      "    "     "    "   "
-     3      IOCTL INPUT (Only called if device has IOCTL)
-     4      INPUT (read)
-     5      NON-DESTRUCTIVE INPUT NO WAIT (Char devs only)
-     6      INPUT STATUS                    "     "    "
-     7      INPUT FLUSH                     "     "    "
-     8      OUTPUT (write)
-     9      OUTPUT (Write) with verify
-    10      OUTPUT STATUS                   "     "    "
-    11      OUTPUT FLUSH                    "     "    "
-    12      IOCTL OUTPUT (Only called if device has IOCTL)
-
-    As mentioned before, the first entry point is the strategy
-routine which  is called with a pointer to a data block.  This
-call does not perform the request, all it  does  is  queue  it
-(save the  data  block  pointer).   The second interrupt entry
-point is called immediately  after  the  strategy  call.   The
-"interrupt" routine  is called with no parameters, its primary
-function is to perform  the  operation  based  on  the  queued
-data block and set up any returns.
-
-    The "BUILD  BPB"  and  "MEDIA  CHECK"  are the interesting
-new ones, these are explained by  examining  the  sequence  of
-events in the DOS which occurs when a drive access call (other
-than read or write) is made:
-
-        I.  Turn drive letter  into  DPB  pointer  by  looking
-            for DPB with correct driver-unit number.
-
-        II. Call device  driver  and  request  media check for
-            Drive-Unit.   DOS   passes   its   current   Media
-            descriptor byte (from DPB).  Call returns:
-
-                Media Not Changed
-                Media Changed
-                Not Sure
-                Error
-
-            Error - If an error occurs the error  code  should
-                be set accordingly.
-
-            Media Not  changed  -  Current  DPB and media byte
-                are OK, done.
-
-            Media Changed - Current DPB and media  are  wrong,
-                invalidate any  buffers  for  this  unit,  and
-                goto III.
-
-            Not Sure - If there are  dirty  buffers  for  this
-                unit, assume  DPB  and  media  byte are OK and
-                done.  If nothing dirty, assume media changed,
-                invalidate any  buffers  for  unit,  and  goto
-                III.
-
-            NOTE:  If a hybrid  DPB  was  built  at  init  and
-                an invalid  Media  byte  was  set,  the driver
-                should return media changed when this  invalid
-                media byte is encountered.
-
-        III. Call device  driver  to build BPB with media byte
-            and buffer.
-
-    What the  driver  must  do  at  step  III is determine the
-correct media that is currently in  the  unit,  and  return  a
-pointer to  a  BPB table (same as for the install call).  This
-table will be used as at init  to  build  a  correct  DPB  for
-the unit  If the determined media descriptor byte in the table
-turns out to be the same as the one passed in,  then  the  DOS
-will not  build  a new table, but rather just use the old one.
-Therefore in this case the driver doesn't  have  to  correctly
-fill in the other entries if desired.
-
-    The build  BPB  call  also  gets a pointer to a one sector
-buffer.  What this buffer contains is determined  by  the  NON
-IBM FORMAT  bit  in  the  attribute field.  If the bit is zero
-(device is IBM format compatible)  then  the  buffer  contains
-the first  sector  of  the  first  FAT,  in particular the FAT
-ID byte is the first byte  of  this  buffer.   NOTE:  It  must
-be true  that  the  BPB is the same, as far as location of the
-FAT is concerned, for all possible  media.   This  is  because
-this first  FAT  sector  must  be  read  BEFORE the actual BPB
-is returned.  If the NON  IBM  FORMAT  bit  is  set  then  the
-pointer points  to  one  sector  of scratch space which may be
-used for anything.
-
-CALL FORMAT
-
-    When the  DOS calls a device driver to perform a finction,
-it passes a  structure  (Drive  Request  Structure)  in  ES:BX
-to perform  operations  and  does  a long call to the driver's
-strategy entry point.  This structure is a fixed length header
-(Static Request  Header)  followed  by  data  pertinent to the
-operation  being  performed.   NOTE:   It   is   the   drivers
-responsibility to preserve machine state.
-
-STATIC REQUEST HEADER ->
-               +-----------------------------+
-               | BYTE length of record       |
-               |  Length in bytes of this    |
-               |  Drive Request Structure    |
-               +-----------------------------+
-               | BYTE unit code              |
-               |  The subunit the operation  |
-               |  is for (minor device)      |
-               |  (no meaning on character   |
-               |   devices)                  |
-               +-----------------------------+
-               | BYTE command code           |
-               +-----------------------------+
-               | WORD Status                 |
-               +-----------------------------+
-               | 8 bytes reserved here for   |
-               | two DWORD links. One will   |
-               | be a link for the DOS queue |
-               | The other for the device    |
-               | queue                       |
-               +-----------------------------+
-
-STATUS WORD
-
-      15  14 13 12 11 10  9   8   7  6  5  4  3  2  1  0
-    +---+---+--+--+--+--+---+---+--+--+--+--+--+--+--+--+
-    | E |               | B | D |                       |
-    | R |   RESERVED    | U | O | ERROR CODE (bit 15 on)|
-    | R |               | I | N |                       |
-    +---+---+--+--+--+--+---+---+--+--+--+--+--+--+--+--+
-
-    The status  word is zero on entry and is set by the driver
-interrupt routine on return.
-
-    Bit 8 is the done bit, it means the operation is complete.
-For the  moment  the Driver just sets it to one when it exits,
-in the future this will be set by  the  interrupt  routine  to
-tell the DOS the operation is complete.
-
-    Bit 15 is the error bit, if it  is  set  then  the  low  8
-bits indicate the error:
-
-           0 Write Protect violation
-    (NEW)  1 Unknown Unit
-           2 Drive not ready
-    (NEW)  3 Unknown command
-           4 CRC error
-    (NEW)  5 Bad Drive Request Structure length
-           6 Seek error
-    (NEW)  7 Unknown media
-           8 Sector not found
-    (NEW)  9 Printer out of paper
-           A Write Fault
-    (NEW)  B Read Fault
-           C General Failure
-
-Bit 9 is the busy bit which is set only by status  calls  (see
-STATUS CALL below).
-
-
-   Here is the data block format for each function:
-
-READ or WRITE - ES:BX (Including IOCTL) ->
-            +------------------------------------+
-            | 13-BYTE  Static Request Header     |
-            +------------------------------------+
-            | BYTE Media descriptor  from DPB    |
-            +------------------------------------+
-            | DWORD transfer address             |
-            +------------------------------------+
-            | WORD byte/sector Count             |
-         ---+------------------------------------+---
-            | WORD starting sector number        |
-            |  (ignored on Char Devs)            |
-            +------------------------------------+
-
-    In addition to setting the status word,  the  driver  must
-set the  Sector  count  to  the  actual  number of sectors (or
-bytes) transferred.  NOTE: No  error  check  is  performed  on
-an IOCTL I/O call, driver MUST correctly set the return sector
-(byte) count  to  the  actual  number  of  bytes  transferred,
-however.
-
-NOTE: THE FOLLOWING APPLIES TO BLOCK DEVICE DRIVERS.
-
-    Under certain  circumstances  the  BIOS  may  be  asked to
-do a write operation of 64K bytes which seems to  be  a  "wrap
-around" of  the transfer address in the BIOS I/O packet.  This
-arises due to an optimization  added  to  the  write  code  in
-MS-DOS.  It will only manifest on user WRITEs which are within
-a sector size of 64K bytes on files which are  "growing"  past
-the current  EOF.   IT  IS  ALLOWABLE  FOR  THE BIOS TO IGNORE
-THE BALANCE OF  THE  WRITE  WHICH  "WRAPS  AROUND"  IF  IT  SO
-CHOOSES.   For  instance  a  WRITE  of  10000H  bytes worth of
-sectors with a transfer address  of  XXX:1  could  ignore  the
-last two bytes (remember that a user program can never request
-an I/O of more than FFFFH bytes and cannot wrap  around  (even
-to 0)  in  his  transfer segment, so in this case the last two
-bytes can be ignored).
-
-
-NON DESRUCTIVE READ NO WAIT - ES:BX ->
-            +------------------------------------+
-            | 13-BYTE Static Request Header      |
-            +------------------------------------+
-            | BYTE read from device              |
-            +------------------------------------+
-
-    This call is analogous to the console  input  status  call
-on MS-DOS  1.25.   If  the  character  device returns Busy bit
-= 0 (characters in  buffer),  then  the  next  character  that
-would be  read  is  returned.   This  character is NOT removed
-from the input buffer (hence the term Non  Destructive  Read).
-In essence  this  call  allows the DOS to look ahead one input
-character.
-
-
-MEDIA CHECK - ES:BX ->
-            +------------------------------------+
-            | 13-BYTE  Static Request Header     |
-            +------------------------------------+
-            | BYTE Media Descriptor from DPB     |
-            +------------------------------------+
-            | BYTE returned                      |
-            +------------------------------------+
-
-    In addition to setting status word, driver  must  set  the
-return byte.
-
-    Return Byte :
-        -1 Media has been changed
-         0 Don't know if media has been changed
-         1 Media has not been changed
-
-    If the driver can return -1 or 1 (by  having  a  door-lock
-or other  interlock  mechanism)  the  performance of MSDOS 2.0
-is enhanced as the DOS  need  not  reread  the  FAT  for  each
-directory access.
-
-
-BUILD BPB - ES:BX ->
-            +------------------------------------+
-            | 13-BYTE Static Request Header      |
-            +------------------------------------+
-            | BYTE Media Descriptor from DPB     |
-            +------------------------------------+
-            | DWORD Transfer Address             |
-            | (points to one sectors worth of    |
-            |  scratch space or first sector     |
-            |  of FAT depending on the value     |
-            |  of the NON IBM FORMAT bit)        |
-            +------------------------------------+
-            | DWORD Pointer to BPB               |
-            +------------------------------------+
-
-    If the NON IBM FORMAT bit  of  the  device  is  set,  then
-the DWORD  Transfer  Address  points  to  a  one sector buffer
-which can be used for any purpose.   If  the  NON  IBM  FORMAT
-bit is  0,  then  this buffer contains the first sector of the
-FAT; in this case the driver must not alter this buffer  (this
-mode is  useful  if  all  that  is  desired is to read the FAT
-ID byte).
-
-    If IBM compatible format  is  used  (NON  IBM  FORMAT  BIT
-= 0),  then it must be true that the first sector of the first
-FAT is located at the  same  sector  on  all  possible  media.
-This is  because  the FAT sector will be read BEFORE the media
-is actually determined.
-
-    In addition to setting status word, driver  must  set  the
-Pointer to the BPB on return.
-
-
-    In order to allow for many different  OEMs  to  read  each
-other's disks,  the  following  standard  is  suggested:   The
-information relating to the BPB  for  a  particular  piece  of
-media   is  kept  in  the  boot  sector  for  the  media.   In
-particular, the format of the boot sector is:
-
-            +------------------------------------+
-            | 3 BYTE near JUMP to boot code      |
-            +------------------------------------+
-            | 8 BYTES OEM name and version       |
-         ---+------------------------------------+---
-         B  | WORD bytes per sector              |
-         P  +------------------------------------+
-         B  | BYTE sectors per allocation unit   |
-            +------------------------------------+
-         |  | WORD reserved sectors              |
-         V  +------------------------------------+
-            | BYTE number of FATs                |
-            +------------------------------------+
-            | WORD number of root dir entries    |
-            +------------------------------------+
-            | WORD number of sectors in logical  |
-         ^  | image                              |
-         |  +------------------------------------+
-         B  | BYTE media descriptor              |
-         P  +------------------------------------+
-         B  | WORD number of FAT sectors         |
-         ---+------------------------------------+---
-            | WORD sectors per track             |
-            +------------------------------------+
-            | WORD number of heads               |
-            +------------------------------------+
-            | WORD number of hidden sectors      |
-            +------------------------------------+
-
-    The three  words  at the end are optional, the DOS doesn't
-care about them (since they are not part of  the  BPB).   They
-are intended  to  help the BIOS understand the media.  Sectors
-per track may be redundant (could be figured  out  from  total
-size of  the  disk).  Number of heads is useful for supporting
-different  multi-head  drives  which  have  the  same  storage
-capacity, but  a  different  number  of  surfaces.   Number of
-hidden sectors is useful  for  supporting  drive  partitioning
-schemes.
-
-
-    Currently, the media  descriptor  byte  has  been  defined
-for a small range of media:
-
-    5 1/4" diskettes:
-
-        Flag bits:
-            01h - on -> 2 double sided
-
-        All other bits must be on.
-
-    8" disks:
-        FEh - IBM  3740 format, singled-sided, single-density,
-            128 bytes per sector,  soft  sectored,  4  sectors
-            per allocation  unit,  1  reserved sector, 2 FATs,
-            68 directory entries, 77*26 sectors
-
-        FDh -   8"    IBM    3740    format,    singled-sided,
-            single-density,   128   bytes   per  sector,  soft
-            sectored,  4  sectors  per  allocation   unit,   4
-            reserved sectors,  2  FATs,  68 directory entries,
-            77*26 sectors
-
-        FEh - 8"  Double-sided,  double-density,  1024   bytes
-            per sector, soft sectored, 1 sector per allocation
-            unit, 1 reserved sector,  2  FATs,  192  directory
-            entries, 77*8*2 sectors
-
-
-STATUS Calls - ES:BX ->
-            +------------------------------------+
-            | 13-BYTE Static Request Header      |
-            +------------------------------------+
-
-    All driver must do is  set  status  word  accordingly  and
-set the busy bit as follows:
-
-    o   For output on  character  devices:   If  it  is  1  on
-        return, a  write  request  (if  made)  would  wait for
-        completion of a current request.  If it  is  0,  there
-        is no  current  request  and a write request (if made)
-        would start immediately.
-
-    o   For input on character devices with a buffer a  return
-        of 1  means,  a  read  request  (if  made) would go to
-        the physical device.  If  it  is  0  on  return,  then
-        there are  characters  in  the  devices  buffer  and a
-        read would return  quickly,  it  also  indicates  that
-        the user  has  typed  something.   The DOS assumes all
-        character devices have an  input  type  ahead  buffer.
-        Devices which  don't  have  them  should always return
-        busy = 0 so  that  the  DOS  won't  hang  waiting  for
-        something to  get  into  a buffer which doesn't exist.
-
-
-FLUSH Calls - ES:BX ->
-            +------------------------------------+
-            | 13-BYTE Static Request Header      |
-            +------------------------------------+
-
-    This  call  tells  the  driver  to  flush  (terminate) all
-pending requests  that  it  has knowledge of.  Its primary use
-is to flush the input queue on character devices.
-
-
-INIT - ES:BX ->
-            +------------------------------------+
-            | 13-BYTE Static Request Header      |
-            +------------------------------------+
-            | BYTE # of units                    |
-            +------------------------------------+
-            | DWORD Break Address                |
-         ---+------------------------------------+---
-            | DWORD Pointer to BPB array         |
-            | (not set by Character devices)     |
-            +------------------------------------+
-
-    The number of units, break address, and  BPB  pointer  are
-set by the driver.
-
-
-FORMAT OF BPB (Bios Parameter Block) -
-
-            +------------------------------------+
-            | WORD Sector size in Bytes          |
-            |    Must be at least 32             |
-            +------------------------------------+
-            | BYTE Sectors/Allocation unit       |
-            |    Must be a power of 2            |
-            +------------------------------------+
-            | WORD Number of reserved sectors    |
-            |        May be zero                 |
-            +------------------------------------+
-            | BYTE Number of FATS                |
-            +------------------------------------+
-            | WORD Number of directory entries   |
-            +------------------------------------+
-            | WORD Total number of sectors       |
-            +------------------------------------+
-            | BYTE Media descriptor              |
-            +------------------------------------+
-            | WORD Number of sectors occupied by |
-            |      FAT                           |
-            +------------------------------------+
-
-
-THE CLOCK DEVICE
-
-    One of  the  most  popular add on boards seems to be "Real
-Time CLOCK Boards".  To allow these boards  to  be  integrated
-into the  system  for TIME and DATE, there is a special device
-(determined by the attribute word) which is the CLOCK  device.
-In all  respects  this  device  defines and performs functions
-like any other character device (most functions will  be  "set
-done bit,  reset  error  bit,  return).   When a read or write
-to this device occurs, exactly 6 bytes are transferred.   This
-I/O can be thought of as transferring 3 words which correspond
-exactly to the values of AX, CX and  DX  which  were  used  in
-the old  1.25  DOS  date  and  time  routines.  Thus the first
-two bytes are a word which is the count of days since  1-1-80.
-The  third  byte  is  minutes,  the  fourth  hours,  the fifth
-hundredths of seconds, and the  sixth  seconds.   Reading  the
-CLOCK device  gets  the  date and time, writing to it sets the
-date and time.
-

v2.0/bin/DOSPATCH.TXT

@@ -1,62 +0,0 @@
-There are three locations in the DOS where OEMs may want to
-patch in information specific to their installation.
-
-
-The first is the location of the default switch character.
-This character is one byte at DEBUG location 1E5, and is
-set to '/'. To change it to '-' (XENIX compatible)
-do:
-
-        DEBUG MSDOS.SYS
-
-        >e1e5
-        XXXX:01E5   2F.         <at this point give the desired
-                                 new switch character in HEX and
-                                 hit return>
-        >w
-        Writing YYYY Bytes
-        >q
-
-If the byte at 1E5 is not 2F, look around in the immediate
-vacinity (do d1e0) for it. It is the only 2F in that area.
-
-
-The second is the location of the 24 bit user number and the
-8 bit OEM number. These values are returned by the GET_VERSION
-system call.
-The user number is 3 bytes starting at
-debug location 683, The OEM number is one byte at debug location
-686. The user number is initialized to 0, the OEM number to -1
-and they immediatly follow the Microsoft Copyright message. If these
-bytes are not zero, look for the four bytes following the
-Copyright message which should be in the vacinity of 683.
-OEMs should request an OEM number from Microsoft if they
-want one of their very own, this prevents selecting one someone
-else already has.
-
-
-The third is the location of the editing template definitions.
-This is a table which defines the two byte edit function keys
-for system call 10 and for EDLIN. This table is at debug location
-33EA, and should start with a 1B. If the byte at 33EA is not
-1B, look around in the immediate vacinity. Here is what the
-default table looks like. It is a definition for the Zenith
-Z-19 terminal:
-
-ESCCHAR DB      1BH     ;The Escape character, Nul (0) on IBM
-ESCTAB:
-	DB	"Z"	;5AH Put a ^Z in the template, F6 on IBM
-        DB      "S"     ;53H Copy one char, --> on IBM
-        DB      "V"     ;56H Skip one char, DEL on IBM
-        DB      "T"     ;54H Copy to char, F2 on IBM
-        DB      "W"     ;57H Skip to char, F4 on IBM
-        DB      "U"     ;55H Copy line, F3 on IBM
-        DB      "E"     ;45H Kill line, Not used on IBM
-        DB      "J"     ;4AH Reedit line, F5 on IBM
-        DB      "D"     ;44H Backspace, <-- on IBM
-        DB      "P"     ;50H Toggle insert mode, INS on IBM 
-        DB      "Q"     ;51H Toggle insert mode, INS on IBM 
-        DB      "R"     ;52H Escape char, F7 on IBM
-        DB      "R"     ;52H End of table, must be same as previos character
-
-

v2.0/bin/FORMAT.DOC

@@ -1,393 +0,0 @@
-FORMAT -  formats  a  new  disk,  clears the FAT and DIRECTORY
-and optionally copies  the  SYSTEM  and  COMMAND.COM  to  this
-new disk.
-
-Command syntax:
-
-        FORMAT  [drive:][/switch1][/switch2]...[/switch16]
-
-    Where "drive:"   is  a  legal  drive  specification and if
-    omitted indicates that the default  drive  will  be  used.
-    There may  be  up  to  16  legal  switches included in the
-    command line.
-
-
-    The OEM  must  supply  five (NEAR) routines to the program
-along with 6 data items.  The names of the routines are  INIT,
-DISKFORMAT, BADSECTOR,  WRTFAT  and  DONE,  and  their flow of
-control (by the Microsoft module) is like this:
-
-      |
- +---------+
- |  INIT   |
- +---------+
-      |
-      |<------------------------------+
-+------------+                        |
-| DISKFORMAT |                        |
-+------------+                        |
-      |<-------+                      |
-+-----------+  |-This loop is done    |-    This loop done
-| BADSECTOR |  | for each group of    | once for each disk
-+-----------+  | bad sectors          | to be formatted.
-      |----->--+                      | If variable HARDFLAG
-      |                               | is set then the loop
-+----------+                          | is only performed
-|          |                          | once.
-|  WRTFAT  |                          |
-+----------+                          |
-      |                               |
-  +------+                            |
-  | DONE |                            |
-  +------+                            |
-      +---->--------------------------+
-
-    The INIT,  DISKFORMAT,  and  BADSECTOR  routines  are free
-to use any MS-DOS system calls, except for  calls  that  cause
-disk accesses  on  the  disk  being  formatted.   DONE may use
-ANY calls, since by the time it is called  the  new  disk  has
-been formatted.
-
-The  following  data  must  be  declared  PUBLIC  in  a module
-provided by the OEM:
-
-    SWITCHLIST - A string of bytes.  The first byte  is  count
-        N,  followed by N characters which are the switches to
-        be accepted by the command line  scanner.   Alphabetic
-        characters   must   be  in  upper  case  (the  numeric
-        characters 0-9 are allowed).  The last three switches,
-        normally "O", "V" and "S", have pre-defined meanings.
-
-           The  "S"  switch  is  the  switch  which causes the
-        system files IO.SYS, MSDOS.SYS, and COMMAND.COM to  be
-        transfered  to  the  disk  after  it is formatted thus
-        making a "S"ystem disk.  The switch can be some letter
-        other  than  "S",  but  the last switch in the list is
-        assumed  to  have  the  meaning   "transfer   system",
-        regardles of what the particular letter is.
-
-           The  second  to the last switch, "V", causes FORMAT
-        to prompt the user for a volume label after  the  disk
-        is  formatted.   Again,  as  with  "S", the particular
-        letter is not important but rather the position in the
-        list.
-
-           The third to the last switch, "O", causes FORMAT to
-        produce an  IBM  Personal  Computer  DOS  version  1.X
-        compatible  disk.   Normally FORMAT causes a 0 byte to
-        be placed in the first byte of  each  directory  entry
-        instead  of  the  0E5 Hex free entry designator.  This
-        results in a very marked directory search  performance
-        increase  due  to  an  optimization in the DOS.  Disks
-        made  this  way  cause  trouble  on  IBM  PC  DOS  1.X
-        versions,   however,   which   did   not   have   this
-        optimization.  The 0 byte fools IBM 1.X versions  into
-        thinking  these entries are allocated instead of free,
-        NOTE that IBM Personnal Computer DOS version 2.00  and
-        MS-DOS  version  1.25  will have no trouble with these
-        disks, since they have the same optimization.  The "O"
-        switch causes FORMAT to re-do the directory with a 0E5
-        Hex byte at the start of each entry so that  the  disk
-        may  be  used with 1.X versions of IBM PC DOS, as well
-        as MS-DOS 1.25/2.00 and IBM PC DOS 2.00.  This  switch
-        should  only  be  given when needed because it takes a
-        fair  amount  of  time  for  FORMAT  to  perform   the
-        conversion,  and  it noticably decreases 1.25 and 2.00
-        performance on disks with few directory entries.
-
-        Up to 16  switches  are  permitted.   Normally  a  "C"
-        switch is  specified  for "Clear".  This switch should
-        cause the formatting operation to be bypassed  (within
-        DISKFORMAT or  BADSECTOR).   This  is  provided  as  a
-        time-saving convenience to  the  user,  who  may  wish
-        to "start  fresh"  on  a  previosly formatted and used
-        disk.
-
-    HARDFLAG -  BYTE  location  which  specifies  whether  the
-        OEM routine  is  formatting  a fixed disk or a a drive
-        with removable  media.   A  zero  indicates  removable
-        media, any  other  value  indicates a fixed disk.  The
-        status of this byte only effect the  messages  printed
-        by the  main  format  module.   This  value  should be
-        set or reset by the OEM supplied INIT routine.
-
-    FATID - BYTE location containing  the  value  to  be  used
-        in the  first  byte  of the FAT.  Must be in the range
-        F8  hex  to  FF  hex.
-
-    STARTSECTOR - WORD location containing the  sector  number
-        of the first sector of the data area.
-
-    FATSPACE -  WORD  location  containing  the address of the
-        start of the FAT area.   A  FAT  built  in  this  area
-        will be  written to disk using the OEM supplied WRTFAT
-        subroutine.  6k is sufficient to store any FAT.   This
-        area must not overlap the FREESPACE area.
-
-    FREESPACE -  WORD  location  which  contains  the  address
-        of the start of free  memory  space.   This  is  where
-        the system  will  be  loaded, by the Microsoft module,
-        for transferring to the newly formatted disk.   Memory
-        should be  available  from  this  address  to  the end
-        of memory, so it  is  typically  the  address  of  the
-        end of the OEM module.
-
-The   following  routines  must  be  declared  PUBLIC  in  the
-OEM-supplied module:
-
-    INIT - An initialization routine.  This routine  is called
-        once at the start of the FORMAT run after the switches
-        have been  processed.   This  routine  should  perform
-        any functions  that  only  need  to  be  done once per
-        FORMAT run.  An example of  what  this  routine  might
-        do is  read  the  boot  sector  into  a buffer so that
-        it can be transferred to the new disks by  DISKFORMAT.
-        If this  routine  returns  with  the CARRY flag set it
-        indicates an error,  and  FORMAT  will  print  "Format
-        failure" and quit.  This feature can be used to detect
-        conflicting switches  (like  specifying  both   single
-        and double  density)  and cause FORMAT to quit without
-        doing anything.
-
-    DISKFORMAT - Formats the disk  according  to  the  options
-        indicated by  the  switches  and  the  value  of FATID
-        must be defined when it  returns  (although  INIT  may
-        have already  done  it).   This routine is called once
-        for EACH disk  to  be  formatted.   If  neccessary  it
-        must transfer  the  Bootstrap  loader.   If  any error
-        conditions are detected, set the CARRY flag and return
-        to FORMAT.   FORMAT  will  report  a  'Format failure'
-        and prompt for another disk.   (If  you  only  require
-        a clear  directory  and  FAT  then  simply setting the
-        appropriate FATID, if not done by INIT,  will  be  all
-        that DISKFORMAT must do.)
-
-    BADSECTOR -  Reports  the sector number of any bad sectors
-        that may have been  found  during  the  formatting  of
-        the disk.   This  routine  is called at least once for
-        EACH disk to be formatted, and  is  called  repeatedly
-        until AX  is zero or the carry flag is set.  The carry
-        flag is used just as  in  DISKFORMAT  to  indicate  an
-        error, and  FORMAT  handles  it  in the same way.  The
-        first sector in the data area must be  in  STARTSECTOR
-        for the  returns  from  this routine to be interpreted
-        correctly.  If there are bad sectors,  BADSECTOR  must
-        return a  sector  number in in register BX, the number
-        of consecutive bad sectors in register AX,  and  carry
-        clear.  FORMAT  will  then  process  the  bad  sectors
-        and call  BADSECTOR  again.   When  BADSECTOR  returns
-        with AX  = 0 this means there are no more bad sectors;
-        FORMAT clears the  directory  and  goes  on  to  DONE,
-        so for  this  last return BX need not contain anything
-        meaningful.
-
-        FORMAT processes  bad  sectors  by  determining  their
-        corresponding allocation  unit  and  marking that unit
-        with an FF7 hex in the File Allocation Table.   CHKDSK
-        understands the  FF7  mark  as  a flag for bad sectors
-        and accordingly reports the  number  of  bytes  marked
-        in this way.
-
-        NOTE: Actual  formatting  of  the  disk can be done in
-        BADSECTOR instead of DISKFORMAT on a  "report  as  you
-        go" basis.   Formatting  goes  until  a  group  of bad
-        sectors is encountered, BADSECTOR  then  reports  them
-        by returning  with  AX  and  BX set.  FORMAT will then
-        call BADSECTOR  again  and  formatting  can  continue.
-
-    WRTFAT  -  This  routine  is  called  after  the  disk  is
-        formatted and  bad  sectors  have  been reported.  Its
-        purpose is to write all copies of  the  FAT  from  the
-        area of  memory  referenced  by  FATSPACE to the drive
-        just formatted.  It may be possible  to  use  INT  26H
-        to perform  the write, or a direct BIOS call.  Whether
-        this is possible depends on whether the  FAT  ID  byte
-        is used  by  the  BIOS  to  determine the media in the
-        drive.  If it is, these  methods  will  probably  fail
-        because there  is  no  FAT ID byte on the disk yet (in
-        this case WRTFATs primary job is to  get  the  FAT  ID
-        byte out  on  the  disk and thus solve the chicken and
-        egg problem).
-
-    DONE - This routine  is  called  after  the  formatting is
-        complete, the  disk  directory  has  been initialized,
-        and the system has been  transferred.   It  is  called
-        once for  EACH  disk  to be formatted.  This gives the
-        chance for any  finishing-up  operations,  if  needed.
-        If the  OEM  desires  certain  extra  files  to be put
-        on the diskette by default, or according to a  switch,
-        this could  be  done  in DONE.  Again, as in BADSECTOR
-        and DISKFORMAT, carry flag  set  on  return  means  an
-        error has  occurred:  'Format failure' will be printed
-        and FORMAT will prompt for another disk.
-
-
-The following  data  is  declared PUBLIC in Microsoft's FORMAT
-module:
-
-    SWITCHMAP - A word  with  a  bit  vector  indicating  what
-        switches  have been included in the command line.  The
-        correspondence  of  the  bits  to  the   switches   is
-        determined     by    SWITCHLIST.     The    right-most
-        (highest-addressed) switch in SWITCHLIST  (which  must
-        be   the   system   transfer   switch,  normally  "S")
-        corresponds to bit  0,  the  second  from  the  right,
-        normally   "V"   to  bit  1,  etc.   For  example,  if
-        SWITCHLIST is the string "7,'AGI2OVS'", and  the  user
-        specifies  "/G/S" on the command line, then bit 6 will
-        be 0 (A not specified), bit 5 will be 1 (G specified),
-        bits  4,3,2  and  1  will  be  0  (neither  I,2,O or V
-        specified), and bit 0 will be 1 (S specified).
-
-           Bits 0,1 and  2  are  the  only  switches  used  in
-        Microsoft's FORMAT module.  These switches are used 1)
-        after INIT has been called,  to  determine  if  it  is
-        necessary  to  load  the  system;  2)  after  the last
-        BADSECTOR call, to determine if the system  is  to  be
-        written, E5 directory conversion is to be done, and/or
-        a volume label is to be asked  for.   INIT  may  force
-        these  bits set or reset if desired (for example, some
-        drives may never be used as system disk, such as  hard
-        disks).   After  INIT,  the  "S" bit may be turned off
-        (but not on, since  the  system  was  never  read)  if
-        something  happens that means the system should not be
-        transferred.
-
-        After  INIT,  a  second  copy  of  SWITCHMAP  is  made
-        internally which  is  used  to  restore  SWITCHMAP for
-        each disk to be formatted.  FORMAT  itself  will  turn
-        off the  system  bit  if  bad  sectors are reported in
-        the system area; DISKFORMAT  and  BADSECTOR  are  also
-        allowed to  change  the  map.   However, these changes
-        affect only the current disk  being  formatted,  since
-        SWITCHMAP is   restored  after  each  disk.   (Changes
-        made to SWITCHMAP by INIT do affect ALL disks.)
-
-    DRIVE - A byte  containing  the  drive  specified  in  the
-        command line.  0=A, 1=B, etc.
-
-Once the OEM-supplied module has been prepared, it must linked
-with Microsoft's FORMAT.OBJ module and the FORMES.OBJ  module.
-If the  OEM-supplied  module  is  called  OEMFOR.OBJ, then the
-following linker command will do:
-
-        LINK FORMAT FORMES OEMFOR;
-
-This command will produce a file  called  FORMAT.EXE.   FORMAT
-has been  designed  to  run  under  MS-DOS  as a simple binary
-.COM file.  This conversion is performed by  LOCATE  (EXE2BIN)
-with the command
-
-        LOCATE FORMAT.EXE FORMAT.COM
-
-which  will  produce  the file FORMAT.COM.
-
-;*****************************************
-;
-;         A Sample OEM module
-;
-;*****************************************
-
-CODE    SEGMENT BYTE PUBLIC 'CODE'
-; This segment must be
-; named CODE, it must be
-; PUBLIC, and it's
-; classname must be 'CODE'
-                                                               
-
-        ASSUME  CS:CODE,DS:CODE,ES:CODE
-
-; Must declare data and routines PUBLIC
-        
-PUBLIC  FATID,STARTSECTOR,SWITCHLIST,FREESPACE
-PUBLIC  INIT,DISKFORMAT,BADSECTOR,DONE,WRTFAT
-PUBLIC  FATSPACE,HARDFLAG
-
-; This data defined in Microsoft-supplied module
-
-        EXTRN   SWITCHMAP:WORD,DRIVE:BYTE
-
-INIT:
-
-; Read the boot sector into memory
-        CALL    READBOOT
-        ...
-; Set FATID to double sided if "D" switch specified
-        TEST    SWITCHMAP,10H
-        JNZ     SETDBLSIDE
-        ...
-        RET
-
-DISKFORMAT:
-        ...
-        
-; Use the bit map in SWITCHMAP to determine
-; what switches are set
-
-        TEST    SWITCHMAP,8     ;Is there a "/C"?
-        JNZ     CLEAR           ; Yes -- clear operation
-                                ; requested jump around the
-                                ; format code
-        < format the disk >
-CLEAR:
-        ...
-; Transfer the boot from memory to the new disk
-        CALL    TRANSBOOT
-        ...
-        RET
-
-; Error return - set carry
-
-ERRET:
-        STC
-        RET
-
-BADSECTOR:
-        ...
-        RET
-
-
-WRTFAT:
-        ...
-
-WRTFATLOOP:
-        < Set up call to write out a fat to disk>
-        ...
-        MOV     BX,[FATSPACE]
-
-        < Write out one fat to disk>
-        JC      ERRET
-        ...
-        < Decrement fat counter >
-        JNZ     WRTFATLOOP
-        CLC                         ;Good return
-        RET
-
-
-DONE:
-        ...
-        RET
-
-; Default Single sided
-FATID           DB      0FEH
-
-HARDFLAG        DB      0
-
-STARTSECTOR     DW      9
-
-SWITCHLIST      DB      5,"DCOVS"     ; "OVS" must be the last
-                                      ; switches in the list
-
-FATSPACE        DW      FATBUF
-
-FREESPACE       DW      ENDBOOT
-
-BOOT            DB      BOOTSIZE DUP(?) ; Buffer for the
-                                        ; boot sector
-
-FATBUF          DB      6 * 1024 DUP(?) ; Fat buffer
-ENDBOOT         LABEL   BYTE
-
-CODE    ENDS
-        END     
-

v2.0/bin/PROHST.PAS

@@ -1,403 +0,0 @@
-PROGRAM prohst(input,output);
-{$debug- $line- $symtab+}
-
-{**********************************************************************}
-{*                                                                    *}
-{*                           prohst                                   *}
-{*                                                                    *}
-{* This program produces a histogram from the profile file produced   *}
-{* by the MS-DOS profile utility. It optionally reads the map file    *}
-{* generated when the program being profiled was linked, and writes   *}
-{* either the module address or, if available, the line number as     *}
-{* a prefix to the line of the graph which describes a particular     *}
-{* bucket.                                                            *}
-{*                                                                    *}
-{* After using filbm (derived from the Pascal and Fortran front end   *}
-{* command scanner) to parse its parameters, prohst opens the map     *}
-{* file if specified, searches for the heading line, and then reads   *}
-{* the lines giving the names and positions of the modules. It builds *}
-{* a linked list of module names and start addresses.                 *}
-{*                                                                    *}
-{* It then reads the bucket file header and and bucket array elements *}
-{* into a variable created on the heap. It simultaneously calculates  *}
-{* a normalization factor. It writes the profile listing header and   *}
-{* starts to write the profile lines. For each bucket, the address    *}
-{* is calculated. The first entry in the address/name linked list     *}
-{* is the lowest addressed module. This is initially the 'current'    *}
-{* module. The bucket address is compared with the current module     *}
-{* address. When it becomes the greater, the module name is written   *}
-{* to the listing and the next entry in the address/name list becomes *}
-{* the current module. If line numbers are available, the bucket      *}
-{* address is also compared to the current line/address. This is      *}
-{* read and calculated directly from the file. Since there may be     *}
-{* more than one line per bucket, several entries may be read until   *}
-{* the addresses compare within the span of addresses encompassed by  *}
-{* a bucket (its 'width'). Note that the idiosyncracies of Pascal i/o *}
-{* make it necessary to continually check for the end of the map file *}
-{* and the complexity of this code is mainly due to an attempt to     *}
-{* make it reasonably resilient to changes in the format of the map   *}
-{* file.                                                              *}
-{*                                                                    *}
-{**********************************************************************}
-
-
-CONST
-  max_file = 32;
-
-
-TYPE
-  filenam = LSTRING (max_file);
-  sets = SET OF 0..31;
-  address_pointer = ^address_record;
-  address_record = RECORD
-                     next: address_pointer;
-                     name: STRING (15);
-                     address: WORD;
-                   END;
-
-        
-
-
-
-VAR
-
-  i: INTEGER;
-  bucket: FILE OF WORD;
-  hist: TEXT;
-  map: TEXT;
-
-  first_address,
-  this_address: address_pointer; 
-  current_base: WORD;
-  bucket_name,
-  hist_name,
-  map_name: filenam;
-
-  switches: sets;
-
-  line: LSTRING (100);
-
-  map_avail: BOOLEAN;
-  line_nos_avail: BOOLEAN;
-
-  norm: REAL;
-  per_cent: INTEGER;
-  real_bucket,
-  norm_bucket: REAL;
-  cum_per_cent,
-  real_per_cent: REAL;
-
-  bucket_num,
-  clock_grain,
-  bucket_size,
-  prog_low_pa,
-  prog_high_pa,
-  dos_pa,
-  hit_io,
-  hit_dos,
-  hit_high: WORD;
-
-  seg,
-  offset,
-  parcel: WORD;
-
-  address: WORD;
-  new_line_no,
-  line_no: WORD;
-
-  dummy : LSTRING (8);
-  name: LSTRING (20);
-  line_no_part: LSTRING (17);
-  start: LSTRING (6);
-
-  buckets: ^SUPER ARRAY [1 .. *] OF REAL;
-
-  this_bucket: WORD;
-
-LABEL 1;
-
-
-PROCEDURE filbm (VAR prffil, hstfil, mapfil: filenam;
-                      VAR switches: sets); EXTERN;
-
-FUNCTION realword (w: WORD): REAL;
-BEGIN
-  IF ORD (w) < 0 THEN BEGIN
-    realword := FLOAT (maxint) + FLOAT (ORD (w - maxint));
-    END
-  ELSE BEGIN
-    realword := FLOAT (ORD(w));
-  END {IF};
-END {realword};
-
-
-
-PROCEDURE skip_spaces;
-BEGIN
-  WHILE NOT eof(map) AND THEN map^ = ' ' DO BEGIN
-    get (map);
-  END {WHILE};
-END {skip_spaces};
-
-
-FUNCTION hex_char (ch: CHAR): WORD;
-BEGIN
-  IF ch >= '0' AND THEN ch <= '9' THEN BEGIN
-    hex_char := WRD (ch) - WRD ('0');
-    END
-  ELSE IF ch >= 'A' AND THEN ch <= 'F' THEN BEGIN
-    hex_char := WRD (ch) - WRD ('A') + 10;
-    END
-  ELSE BEGIN
-    WRITELN ('Invalid hex character');
-    hex_char := 0;
-  END {IF};
-END {hex_char};
-
-
-FUNCTION read_hex (i :WORD): WORD;
-VAR
-  hex_val: WORD;
-BEGIN
-  skip_spaces;
-  hex_val := 0;
-  WHILE NOT eof (map) AND THEN i <> 0 DO BEGIN
-    hex_val := hex_val * 16 + hex_char (map^);
-    GET (map);
-    i := i - 1;
-  END {WHILE};
-    read_hex := hex_val;
-END {read_hex};
-
-FUNCTION read_h: WORD;
-BEGIN
-  read_h := read_hex (4);
-  get (map);
-  get (map);
-END;
-
-FUNCTION read_word: WORD;
-VAR 
-  int_value: WORD;
-BEGIN
-  int_value := 0;
-  IF NOT EOF (map) THEN BEGIN
-    READ (map, int_value);
-  END {IF};
-  read_word := int_value;
-END {read_word};
-
-
-FUNCTION map_digit: BOOLEAN;
-BEGIN
-  map_digit := (map^ >= '0') OR (map^ <= '9');
-END {map_digit};
-
-BEGIN {prohst}
-  writeln (output, '    Profile Histogram Utility - Version 1.0');
-  writeln (output);
-  writeln (output, '         Copyright - Microsoft, 1983');
-         
-  start := '      ';
-
-  filbm (bucket_name, hist_name, map_name, switches);
-
-  IF 31 IN switches THEN BEGIN
-    ABORT ('Map file must not be terminal', 0, 0);
-  END {IF};
-
-  IF NOT (28 IN switches) THEN BEGIN
-    ABORT ('No histogram file specified', 0, 0);
-  END {IF};
-
-  ASSIGN (bucket, bucket_name);
-  reset (bucket);
-  ASSIGN (hist, hist_name);
-  rewrite (hist);
-  
-  map_avail := 29 IN switches;
-  line_nos_avail := FALSE;
-
-  IF map_avail THEN BEGIN
-    ASSIGN (map, map_name);
-    RESET (map);
-  
-    WHILE NOT EOF (map) AND THEN start <> ' Start' DO BEGIN
-      READLN (map, start);
-    END {WHILE};
-    
-    NEW (first_address);
-    this_address := NIL;
-
-    WHILE NOT EOF(map) DO BEGIN
-      READLN (map, line);
-      IF line.len < 6 OR ELSE line [2] < '0' OR ELSE
-          line [2] > '9' THEN BEGIN
-        BREAK;
-      END {IF};
-
-      IF this_address <> NIL THEN BEGIN
-        NEW (this_address^.next);
-        this_address := this_address^.next;
-        END
-      ELSE BEGIN
-        this_address := first_address;
-      END {IF};
-      this_address^.next := NIL;
-
-      this_address^.address := (hex_char (line [2]) * 4096) + 
-                               (hex_char (line [3]) * 256) +   
-                               (hex_char (line [4]) * 16) + 
-                               hex_char (line [5]);
-
-      FOR i := 1 TO 15 DO BEGIN
-        this_address^.name [i] := line [22 + i];
-      END {FOR};
-
-    END {WHILE};
-
-    WHILE NOT EOF (map) DO BEGIN
-      READLN (map, line_no_part);
-      IF line_no_part = 'Line numbers for ' THEN BEGIN
-        line_nos_avail := TRUE;
-        BREAK;
-      END {IF};
-    END {WHILE};
-    
-  END {IF};
-
-  read (bucket, clock_grain, bucket_num, bucket_size,
-    prog_low_pa, prog_high_pa, dos_pa, hit_io, hit_dos, hit_high);
-
-  NEW (buckets,ORD (bucket_num));
-
-  norm := 0.0;
-  norm_bucket := 0.0;
-
-  FOR i := 1 TO ORD (bucket_num) DO BEGIN
-    read (bucket, this_bucket);
-    real_bucket := realword (this_bucket);
-
-    IF real_bucket > norm_bucket THEN BEGIN
-      norm_bucket := real_bucket;
-    END {IF};
-
-    norm := norm + real_bucket;
-    buckets^[i] := real_bucket;
-  END {FOR};
-  norm_bucket := 45.0/norm_bucket;
-  norm := 100.0/norm;
-
-  WRITELN (hist, 'Microsoft Profiler Output Listing');
-  
-  WRITELN (hist);
-  WRITELN (hist, ORD (bucket_num):6, bucket_size:4,'-byte buckets.');
-
-  WRITELN (hist);
-  WRITELN (hist, 'Profile taken between ', prog_low_pa*16::16,
-    ' and ', prog_high_pa*16::16, '.');
-
-  WRITELN (hist);
-  WRITELN (hist, 'DOS program address:', dos_pa::16);
-
-  WRITELN (hist);
-  WRITELN (hist, 'Number of hits in DOS: ', hit_dos:5, 
-            ' or ', realword (hit_dos) * norm:4:1, '%.');
-  WRITELN (hist, 'Number of hits in I/O: ', hit_io:5,
-            ' or ', realword (hit_io) * norm:4:1, '%.');
-  WRITELN (hist, 'Number of hits high  : ', hit_high:5,
-            ' or ', realword (hit_high) * norm:4:1, '%.');
-  WRITELN (hist);
-  WRITELN (hist, ' Hits  Addr.  Line/ Cumul.  % 0.0               ',
-                              '                         ',
-                              1.0/norm:1:1);
-
-  WRITELN (hist, '              Offset           +----------------',
-                              '----------------------------');
-  WRITELN (hist, name);
-  i := 0;
-  parcel := 0;
-  current_base := 0;
-  line_no := 0;
-  new_line_no := 0;
-  cum_per_cent := 0.0;
-
-  WHILE i < ORD (bucket_num) DO BEGIN
-    i := i + 1;
-    IF buckets^[i] < 0.9 THEN BEGIN
-      WRITELN (hist);
-      REPEAT
-        i := i + 1;
-      UNTIL (i = ORD (bucket_num)) OR ELSE buckets^[i] > 0.0;
-    END {IF};
-
-    address := bucket_size * (WRD (i) - 1);
-    
-    WHILE map_avail AND THEN
-        address >= first_address^.address DO BEGIN
-      WRITELN (hist, '      ', first_address^.name);
-      current_base := first_address^.address;
-      first_address := first_address^.next;
-    END {WHILE};
-
-    WHILE line_nos_avail AND THEN NOT eof (map) AND THEN
-                                       address >= parcel DO BEGIN
-      skip_spaces;
-      WHILE  (map^ < '0') OR (map^ > '9') DO BEGIN
-      
-        IF EOF (map) THEN BEGIN
-          goto 1;
-        END {IF};
-        READLN (map);
-        skip_spaces;
-      END {WHILE};
-
-
-      line_no := new_line_no;
-      new_line_no := read_word;
-      seg := read_hex (4);
-      IF EOF (map) THEN BEGIN
-        GOTO 1;
-      END {IF};
-      IF map^ <> ':' THEN BEGIN
-        WRITELN ('Invalid map file');
-      END {IF};
-      get (map);
-      IF EOF (map) THEN BEGIN
-        GOTO 1;
-      END {IF};
-      offset := read_hex (3) + WRD (hex_char (map^) > 0);
-      get (map);
-      IF map^ <> 'H' THEN BEGIN
-        WRITELN ('Invalid map file');
-      END {IF};
-      IF EOF (map) THEN BEGIN
-        GOTO 1;
-      END {IF};
-      get (map);
-      parcel := seg + offset;
-    END {WHILE};
-1:  real_per_cent := buckets^[i] * norm;
-    cum_per_cent := cum_per_cent + real_per_cent;
-    per_cent := ROUND ( buckets^[i] * norm_bucket);
-
-    WRITE (hist, buckets^ [i]:6:0, ' ',
-               address*16:6:16);
-    IF line_no <> 0 THEN BEGIN 
-      WRITE (hist, line_no:6);
-      line_no := 0;
-      END
-    ELSE IF map_avail AND THEN first_address <> NIL THEN BEGIN
-      WRITE (hist, ' #', address - first_address^.address:4:16);
-      END
-    ELSE BEGIN
-      WRITE (hist, '      ');
-    END {IF};
-    
-    WRITELN (hist, ' ', cum_per_cent:5:1, ' ', real_per_cent:4:1, ' |',
-               '*': per_cent);
-  END {WHILE};
-  WRITELN (hist, '                               +-----------------',
-                              '------------------');
-END.
-

v2.0/bin/README.DOC

@@ -1,177 +0,0 @@
-                         MSDOS 2.0 RELEASE
-
-
-The 2.0 Release of MSDOS includes five 5 1/4 double density single sided
-diskettes or three 8 iinch CP/M 80 format diskettes.
-
-The software/documentation on the five inch diskettes is arranged
-as follows:
-
-1.   DOS distribution diskette.  This diskette contains files which
-     should be distriibuted to all users.  This allows the DOS distri-
-     bution diskette to meet the requirements of users of high level
-     language compilers as well as users running only applications.
-     Many compilers marketed independently through the retail channel
-     (including those of Microsoft) assume LINK comes with the DOS, as
-     in the case of IBM.  How you choose to distrubute BASIC (contracted
-     for separately) is up to you.
-
-2.   Assembly Language Development System diskette.  This diskette
-     contains files of interest to assembly language programmers.
-     High level language programmers do not need these programs unless
-     they are writing assembly language subroutines.  IBM chose to
-     unbundle this package from the DOS distribution diskette (except
-     for DEBUG), but you do not have to do so.
-
-3.   PRINT and FORMAT diskette.  This diskette contains .ASM source
-     files which are necessary to assemble the print spooler, which you
-     may wish to customize for greater performance.  .OBJ files are also
-     included for the FORMAT utility.
-
-4.   Skeltal BIOS and documentation diskette.  This diskette contains
-     the skeltal BIOS source code and the SYSINIT and SYSIMES object
-     modules which must be linked with your BIOS module.  The proper
-     sequence for linking is BIOS - SYSINIT - SYSIMES.
-     A profiler utiliity is also included on the diskette, but this
-     is not intended for end-users.  This is distributed for use by
-     your development staff only and is not supported by Microsoft
-     If you do decide to distribute it, it is at your own risk!
-
-
-5.   Documentation.  Features of 2.0 are documented on this disk.
-
-The user manual contains some significant errors.  Most of these are
-due to last minute changes to achieve a greater degree of compatibility
-with IBM's implementation of MS-DOS (PC DOS).  This includes the use
-of "\" instead of "/" as the path separator, and "/" instead of "-"
-as the switch character.  For transporting of batch files across
-machines, Microsoft encourages the use of "\" and "/" respectively
-in the U.S. market.  (See DOSPATCH.TXT for how you can overide this.
-The user guide explains how the end-user can override this in CONFIG.SYS).
-Both the printer echo keys and insert mode keys have now been made to
-toggle.  The default prompt (this may also be changed by the user
-with the PROMPT command) has been changed from "A:" to "A>".
-We apologize for any inconveniences these changes may have caused
-your technical publications staff.
-
-
-Here is what you need to do to MSDOS 2.0 to create a shipable product:
-(see "Making a Bootable Diskette" below)
-
-1.  BIOS.  If you have developed a BIOS for the Beta Test 2.0 version
-    You should link your BIOS module to SYSINIT.OBJ and SYSIMES.OBJ.
-    You must modify your BIOS to accomodate the call back to the BIOS
-    at the end of SYSINIT.  If you have no need for this call, simply
-    find a far RET and label it RE_INIT and declare it public.
-    An example of this can be found in the skeletal BIOS.  In addition
-    please add support for the new fast console output routine as
-    described in the device drivers document.  We strongly recommend
-    that you adapt the standard boot sector format also described in
-    device drivers.  Once again, please refer to the skeletal BIOS.
-    If you have not yet implemented version 2.0 please read the device
-    drivers document.  Microsoft strongly recommends that machines
-    incorporating integrated display devices with memory mapped video
-    RAM implement some sort of terminal emulations through the use of
-    escape sequences.  The skeletal  BIOS includes a sample ANSI
-    terminal driver.
-
-2.  Please refer to DOSPATCH.TXT for possible changes you might wish
-    to make.  We strongly recommend that you not patch the switch
-    characters for the U.S. market.  Your one byte serial number
-    will be issued upon signing the license agreement.  Please patch
-    the DOS accordingly.  If you wish to serialize the DOS, this is
-    described in DOSPATCH.TXT.  Please patch the editing template
-    definitions.  Please note the addition of the Control-Z entry
-    at the beginning of the table.   Also note that the insert switches
-    have now both been made to toggle.
-
-3.  Utilities.  FORMAT must be configured for each specific system.
-    GENFOR is a generic example of a system independent format module,
-    but it is not recommended that this be distributed to your customers.
-    Link in the following order:  FORMAT, FORMES, (your format module).
-    The print spooler is distributed as an executable file, which only
-    prints during wait for keyboard input.  If you wish with your
-    implementation to steal some compute time when printing as well,
-    you will need to customize it and reassemble.  Please note that
-    you can use a printer-ready or timer interrupt.  The former is more
-    efficient, but ties the user to a specific device.  Sample code
-    is conditionaled out for the IBM PC timer interrupt.
-
-The following problems are known to exist:
-
-1.  Macro assembler does not support the initialization of 10-byte
-    floating point constants in 8087 emulation mode - the last two bytes
-    are zero filled.
-
-2.  LIB has not been provided.  The version which incorporates support
-    for 2.0 path names will be completed in a couple of weeks.  The
-    1.x version should work fine if you cannot wait.  Because the library
-    manager acts as a counterpart to the linker, we recommend that it
-    be distributed with the DOS distribution diskette as opposed to the
-    assembly language development system.
-
-3.  International (French, German, Japanese, and U.K.) versions will be
-    available in several months.
-
-4.  COMMAND.ASM is currently too large to assemble on a micro.  It is
-    being broken down into separate modules so it can be asembled on
-    a machine.  Source licensees should realize that the resultant
-    binaries from the new version will not correspond exactly to the
-    old version.
-
-5.  If you have any further questions regarding the MSDOS 2.0 distribution
-    please contact Don Immerwahr (OEM technical support (206) 828-8086).
-
-
-    Sincerely yours,
-
-
-    Chris Larson
-    MS-DOS Product Marketing Manager
-    (206) 828-8080
-
-
-
-            BUILDING A BOOTABLE (MSDOS FORMAT) DISKETTE
-
-
-1.  In implementing MSDOS on a new machine, it is highly recommended
-    that an MSDOS machine be available for the development.
-    Please note that utilities shipped with MSDOS 2.0 use MSDOS 2.0
-    system calls and WILL NOT not run under MSDOS 1.25.
-
-2.  Use your MSDOS development machine and EDLIN or a word processor
-    package to write BOOT.ASM, your bootstrap loader BIOS.ASM and
-    your Format module.
-
-3.  Use MASM, the Microsoft Macro-86 Assembler, to assemble these
-    modules.  LINK is then used to link together the .OBJ modules in
-    the order specified.
-
-4.  Link creates .EXE format files which are not memory image files
-    and contain relocation information in their headers.  Since your
-    BIOS and BOOT routines will not be loaded by the EXE loader in
-    MSDOS, they must first be turned into memory image files by
-    using the EXE2BIN utility.
-
-5.  The easiest thing to do is to (using your development machine)
-    FORMAT a single sided diskette without the system.  Use DEBUG
-    to load and write your BOOT.COM bootstrap loader to the BOOT
-    sector of that diskette.  You may decide to have your bootstrap
-    load BIOS and let the BIOS load MSDOS or it may load both.  Note that
-    the Bootstrap loader will have to know physically where to go on
-    the disk to get the BIOS and the DOS.   COMMAND.COM is loaded
-    by the SYSINIT module.
-
-6.  Use the COPY command to copy your IO.SYS file (what the
-    BIOS-SYSINIT-SYSIMES module is usually called) onto the disk
-    followed by MSDOS.SYS and COMMAND.COM.   You may use DEBUG
-    to change the directory attribute bytes to make these files hidden.
-
-CAUTION:
-
-At all times, the BIOS writer should be careful to preserve the state
-of the DOS - including the flags.  You should be also be cautioned that
-the MSDOS stack is not deep.  You should not count on more than one or
-two pushes of the registers.
-

v2.0/bin/UTILITY.DOC

@@ -1,813 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-                          MS-DOS 2.0
-
-                      Utility Extensions
-
-
-
-
-
-
-
-
-        The following notation is used below:
-
-        [item]      item is optional.
-        item*       item is repeated 0 or more times.
-        item+       item is repeated 1 or more times.
-        {item1 | item2}
-                    item1 is present or item 2 is present  but
-                    not both.
-        <object>    indicates a syntactic variable.
-
-
-COMMAND invokation
-
-COMMAND [[<drive>:]<path>] [<cttydev>] [-D] [-P] [-C <string>]
-
-        -P  If  present  COMMAND  will be permanent, otherwise
-            this is a transient command.
-
-        -D  If present COMMAND  will  not prompt  for DATE and
-            TIME when it comes up.
-
-        d:  Specifies  device  where  command  will  look  for
-            COMMAND.COM current default drive if absent.
-
-        <Path>  Specifies  a  directory  on  device  d:   root
-            directory if absent.
-
-        <cttydev> Name of the CTTY device.  /DEV/CON if absent
-            and  command  is permanent.  The /DEV/ may be left
-            off if AVAILDEV is TRUE (see sysinit doc).
-
-        -C <string> If present -C must  be  the  last  switch.
-            This  causes  COMMAND to try to execute the string
-            as if the user had typed it at the standard input.
-            COMMAND  executes  this  single command string and
-            then exits.  If the -P switch  is  present  it  is
-            ignored  (can't  have  a single command, permanent
-            COMMAND).  NOTE: ALL of the text  on  the  command
-            line  after  the  -C is just passed on.  It is not
-            processed for more arguments, this is why -C  must
-            be last.
-
-COMMAND extensions
-
-IF <condition> <command>
-
-    where <condition> is one of the following:
-
-        ERRORLEVEL <number>
-            true if and only if the previous program EXECed by
-            COMMAND had an exit code of <number> or higher.
-
-        <string1> == <string2>
-            true if and only if <string1>  and  <string2>  are
-            identical  after  parameter substitution.  Strings
-            may not have embedded delimiters.
-
-        EXIST <filename>
-            true if and only if <filename> exists.
-
-        NOT <condition>
-            true if and only if <condition> is false.
-
-    The IF statement allows conditional execution of commands.
-    When  the  <condition>  is  true,  then  the  <command> is
-    executed otherwise, the <command> is skipped.
-
-    Examples:
-
-    IF not exist /tmp/foo ECHO Can't find file /tmp/foo
-
-    IF $1x == x ECHO Need at least one parameter
-
-    IF NOT ERRORLEVEL 3 LINK $1,,;
-
-
-FOR %%<c> IN <set> DO <command>
-
-    <c> can be  any character but 0,1,2,3,..,9 (so there is no
-        confusion with the %0 - %9 batch parameters).
-
-    <set> is ( <item>* )
-
-    The %%<c> variable is sequentially set to each  member  of
-    <set>  and  then  <command>  is evaluated.  If a member of
-    <set> is an expression involving  *  and/or  ?,  then  the
-    variable  is  set  to each matching pattern from disk.  In
-    this case only one such <item> may  be  in  the  set,  any
-    <item>s after the first are ignored.
-
-    Example:
-
-    FOR %%f IN ( *.ASM ) DO MASM %%f;
-
-    for %%f in (FOO BAR BLECH) do REM %%f to you
-
-    NOTE:   The  '%%'  is needed so that after Batch parameter
-        (%0 - %9) processing is done, there is one  '%'  left.
-        If only '%f' were there, the batch parameter processor
-        would see the '%' then look at 'f', decide  that  '%f'
-        was  an  error (bad parameter reference) and throw out
-        the '%f' so that FOR would never see it.  If  the  FOR
-        is  NOT  in  a batch file, then only ONE '%' should be
-        used.
-
-
-SHIFT
-
-    Currently,  command  files  are  limited  to  handling  10
-    parameters:  %0 through %9.  To allow access to more  than
-    these,  the  command  SHIFT  will  perform  a 'pop' of the
-    command line parameters:
-
-        if  %0 = "foo"
-            %1 = "bar"
-            %2 = "blech"
-            %3...%9  are empty
-
-        then a SHIFT will result in the following:
-
-            %0 = "bar"
-            %1 = "blech"
-            %2...%9 are empty
-
-    If  there  are  more than 10 parameters given on a command
-    line, then the those that appear after the 10th (%9)  will
-    be shifted one at a time into %9 by successive shifts.
-
-:<label>
-
-    This  is  essentially  a no-op.  It defines a label in the
-    batch file for a subsequent GOTO.  It may also be used  to
-    put  comment  lines  in  batch  files since all lines that
-    start with ':'  are ignored.
-
-GOTO <label>
-
-    Causes commands to be taken from the batch file  beginning
-    with  the  line after the <label> definition.  If no label
-    has been defined, the current batch file will terminate.
-
-    Example:
-
-    :foo
-    REM looping...
-    GOTO foo
-
-    will  produce  a  infinite  sequence  of  messages:
-    'REM looping...'
-
-    NOTE: Labels are case insensitive, :FOO == :foo == :Foo
-
-
-ECHO [{ON | OFF | <message>}]
-
-    Normally, commands in a BATCH file  are  echoed  onto  the
-    standard  output  as  they  are seen by COMMAND.  ECHO OFF
-    turns off this feature.  ECHO ON turns  echoing  back  on.
-    If ON  or OFF is not specified and there is text following
-    the command, that text (a message) is echoed  to  standard
-    output.   If  there  are  no arguments at all, the current
-    setting of echo (on or off)  is  echoed  to  the  standard
-    output in the form:
-
-        ECHO is xxx
-
-    Where xxx is "on" or "off".
-
-Redirection of standard input/standard output.
-
-    Programs  that  read  from  the  keyboard and write to the
-    screen are said to be doing I/O to the standard input  and
-    standard  output.   Using any of the following will result
-    in I/O to these standard devices:
-
-        Writing to default  handles  1  /  read  from  default
-        handle 0.
-
-        Doing byte I/O using system calls 1, 2, 6-12.
-
-    These standard  devices may be redirected to/from files by
-    the following in command line arguments:
-
-        > <filename>
-            causes  <filename>  to be created (or truncated to
-            zero length) and then assigns standard  output  to
-            that  file.   All  output from the command will be
-            placed in the file.
-
-        < <filename>
-            causes   standard   input   to   be   assigned  to
-            <filename>.  All input to the  command  will  come
-            from  this  file.  If end-of-file is reached, then
-            system calls 1, 2, 6-12 will  return  ^Z  ,  while
-            reading from handle 0 will return zero characters.
-
-        >> <filename>
-            causes  <filename>  to  be  opened   (created   if
-            necessary) and  positions the write pointer at the
-            end of  the  file  so  that  all  output  will  be
-            appended to the file.
-
-    Note  that  the  above will not appear in the command line
-    that the program being invoked sees.
-
-    Examples:
-
-    DIR *.ASM > FOO.LST
-        Sends  the  output  of  the  dir  command  to the file
-        FOO.LST.
-
-
-    FOR %0 IN (*.ASM) DO MASM %0; >>ERRS.LST
-        Sends all error output from assembling every .ASM file
-        into the file ERRS.LST.
-
-Piping of standard I/O
-
-    It  is  often  useful  for the output of one program to be
-    sent as input to another program.  A  typical  case  is  a
-    program  that  produces columnar output that must later be
-    sorted.
-
-    The pipe feature allows this to  occur  naturally  is  the
-    programs do all of their I/O to the standard devices.
-
-    For  example,  if  we  had a program SORT that read all of
-    it's standard input, sorted it and then wrote  it  to  the
-    standard  output,  then  we  could  get a sorted directory
-    listing as follows:
-
-    DIR | SORT
-
-    The | would cause all standard  output  generated  by  the
-    left-hand command  to be sent to the standard input of the
-    right-hand command.
-
-    If we wanted the sorted directory to be sent to a file, we
-    type:
-
-    DIR | SORT >FILE
-
-    and away it goes.
-
-    The piping  feature is implemented as sequential execution
-    of the procedures with redirection to and  from  temporary
-    files.   In  the  example above, the following would be an
-    exact equivalent:
-
-    DIR >/tmp/std1
-    SORT </tmp/std1 >FILE
-
-
-
-        The  pipe  is  not a real pipe but rather a quasi-pipe
-    that uses temporary files to hold the input and output  as
-    it sequentially  executes the elements of the pipe.  These
-    files are created in the current directory, of the current
-    drive and  have the form %PIPEx%.$$$, where x will be 1 or
-    2.  This means that any program that runs in the pipe must
-    be  sure  to restore the current directory and drive if it
-    has changed them, otherwise the pipe files will be lost.
-
-
-VER
-    Prints DOS version number.
-
-VOL [<drive>:]
-    Prints the volume ID of the disk in drive d:.  No d:  does
-    default drive.
-
-CHDIR [{<drive>: | <path>}]
-    Change  directory,  or  print  current.   directory.If  no
-    argument is given, the current directory  on  the  default
-    drive  is  printed.   If  d:   alone is given, the durrent
-    directory of drive d is printed.   Otherwise  the  current
-    directory is set to path.
-
-    NOTE:"CD" is accepted as an abbreviation.
-
-MKDIR <path> - Make a directory.
-    "MD" is accepted as an abbreviation.
-
-RMDIR <path> - Remove a directory.
-    "RD" is accepted as an abbreviation.
-     The directory must be empty except for
-      '.' and '..'.
-
-    <path>  -  A  standard  XENIX style path with the optional
-        addition of a drive spec:
-
-            A:/FOO/BAR      Full path
-            /FOO/BAR        Full path, current drive
-            FOO/BAR         Current dir relative
-            A:FOO/BAR          "     "     "
-
-VERIFY [{ON | OFF}]
-    Select/deselect verify after write mode.  This  supliments
-    the  V  switch  to  the  COPY command.  Once turned ON, it
-    stays on until some program changes it (via the set verify
-    system  call)  or  the VERIFY OFF command is given.  If no
-    argument is  given,  the  current  setting  of  VERIFY  is
-    printed to the standard output in the form:
-
-        VERIFY is xxx
-
-    Where xxx is "on" or "off".
-
-PATH [<path>{;<path>}*]
-    Set command  search  paths.   This  allows  users  to  set
-    directories that  should be searched for external commands
-    after a search of the  current  directory  is  made.   The
-    default value  is /bin.  In addition there are two special
-    cases:  PATH all by itself with no  arguments  will  print
-    the current  path.  Path with the single argument ';' (ie.
-    "PATH ;") will set the NUL path (no directories other than
-    the  current  one searched).  If no argument is given, the
-    current value of PATH is printed to the standard output in
-    the form:
-
-        PATH=text of path
-          or
-        No path
-
-    NOTE:   On  IBM  systems,  the default value of path is No
-        path.
-
-EXIT
-    For COMMANDs run without the P switch, this causes COMMAND
-    to return.  For a normal COMMAND it  causes  a  return  to
-    itself.
-
-BREAK [{ON | OFF}]
-    Like in CONFIG.SYS, "BREAK ON"  turns  on  the  Control  C
-    check  in  the DOS function dispatcher.  "BREAK OFF" turns
-    it off.  If no argument is given the setting of  BREAK  is
-    printed to the standard output in the form:
-
-        BREAK is xxx
-
-    Where xxx is "on" or "off".
-
-PROMPT [<prompt-text>]
-    Set the  system  prompt.   MS-DOS  prompts  are  now  user
-    settable, all  of the text on the command line is taken to
-    be the new prompt.  If no text is present  the  prompt  is
-    set  to  the  default  prompt.  There are meta strings for
-    various special prompts.  These are of the form '$c' where
-    c is one of the following:
-
-        $ - The '$' character.
-        t - The time.
-        d - The date.
-        p - The current directory of the default drive.
-        v - The version number.
-        n - The default drive.
-        g - The '>' character.
-        l - The '<' character.
-        b - The '|' character.
-        s - The ' ' character.
-        e - The ESC character.
-        _ - A CR LF sequence.
-
-    EXAMPLE:
-        PROMPT $n:
-                Would set the normal MS-DOS prompt.
-        PROMPT $n>
-                Would det the normal PC-DOS prompt.
-        PROMPT Time = $t$_Date = $d
-                Would set a two line prompt which printed
-                Time = (current time)
-                Date = (current date)
-
-    NOTE:  For '$c' sequences, lower case =  upper  case,  and
-        any  character  not  on  the  above  list is mapped to
-        nothing.
-
-SET (ENVNAME)=(ENVTEXT)
-    Set environment  strings.  This command inserts strings in
-    COMMAND's environment.  For instance:
-
-    SET PROMPT=$n>
-        Duplicates the function of the PROMPT command.
-    SET PATH=p1;p2
-        Duplicates the function of the PATH command.
-    SET foo=bar
-        Puts the string FOO=bar into the environment (note the
-        case mapping of (ENVNAME)).
-
-    NOTE:  Environments are very flexible, almost anything can
-        be put  into the environment with the SET command; the
-        only requirement is that a single '='  be  present  in
-        the string.
-
-CLS
-    Clear screen, causes the ANSI escape sequence ESC[2J to be
-    sent to standard output.
-
-CTTY /DEV/dev - Change console TTY. For instance:
-
-                CTTY /DEV/AUX
-
-                Would move all command I/O to the AUX port.
-
-                CTTY /DEV/CON
-
-                Would move  it back to the normal device.  The
-                /dev/ prefix may be left off  if  AVAILDEV  is
-                TRUE (see configuration-file doc).
-
-COMMAND internal commands take path arguments.
-
-        DIR <path>
-
-        COPY <path> <path>
-
-        DEL(ERASE) <path>
-                If the path is a dir, all files  in  that  dir
-                are deleted.
-        NOTE: The "Are you sure  (Y/N)"  prompt  for  DEL  and
-                ERASE  now  uses  buffered  standard input, so
-                users must type a return after  their  answer.
-                This gives  them the chance to correct if they
-                type 'y' by mistake.
-
-        TYPE <path>   (must specify a file)
-
-
-
-
-FILCOM - compare two files
-
-    The  FILCOM  program compares two files and produces a log
-    of differences between them.  The comparison may  be  made
-    in  two  fashions; either on a line-by-line basis, or on a
-    byte-by-byte basis.
-
-    The line-by-line compare will isolate blocks of lines that
-    are  different  between  the  two files and will print the
-    blocks from each file.  The line-by-line  compare  is  the
-    default  when  neither of the two files being compared has
-    the extension .EXE, .COM, or .OBJ.
-
-    The byte-by-byte compare will display exactly which  bytes
-    are different between the two files.  If either file being
-    compared has extension .EXE, .COM, or .OBJ then the  files
-    will be compared in byte-by-byte mode.
-
-
-
-RECOVER - recover files from a trashed disk.
-
-    If a sector on a disk goes bad, you can recover either the
-    file that contained that sector (without  the  sector)  or
-    the entire  disk (if the bad sector was in the directory).
-
-    To recover a particular file:
-
-    RECOVER <file-to-recover>
-
-    This  will  cause the file to be read sector by sector and
-    to be have the bad sector skipped.  Note that this implies
-    that the allocation unit containing the bad sector will be
-    read as much as possible.   When  such  a  bad  sector  is
-    found,  its  containing  allocation unit is marked as bad,
-    thus preventing future allocations of that bad sector.
-
-    To recover a particular disk:
-
-    RECOVER <drive-letter>:
-
-    This will cause a scan to be made of the drive's  FAT  for
-    chains of  allocation units (files).  A new root directory
-    is then written that has entries  of  the  form  FILEnnnn.
-    Each  FILEnnnn  will  point  to  the  head  of  one of the
-    allocation unit chains.
-
-    If there are more chains than  directory  entries  in  the
-    root, RECOVER prints a message and leaves the un-RECOVERED
-    chains in the FAT so that RECOVER can be  run  again  once
-    some room has been made in the ROOT.
-
-
-
-DEBUG ON MS-DOS 2.0
-
-
-    When 2.0 DEBUG is invoked it  sets  up  a  program  header
-atoffset 0  in its program work area.  On previous versions it
-was OK to overwrite this header with impunity:  this  is  true
-of  the  default  header  set  up if no <filespec> is given to
-DEBUG.  If DEBUGging a .COM or .EXE file, however, you must be
-careful  not  to  tamper  with the header of the program below
-address 5CH, to do this will probably result in a  crash.   It
-is  also  important that an attempt is not made to "restart" a
-program once the  "program  terminated  normally"  message  is
-given.  The program must be reloaded with the N and L commands
-in order for it to run properly.
-
-NEW FEATURES
-
-The A (Assemble) Command
-
-FORMAT:    A [<address>]
-
-PURPOSE:   To assemble 8086/8087/8088 mnemonics directly into
-           memory.
-
-o   If a syntax error is encountered, DEBUG responds with
-
-               ^ Error
-
-    and redisplays the current assembly address.
-
-o   All numeric  values  are  hexadecimal  and  may be entered
-    as 1-4 characters.
-
-o   Prefix mnemonics must be entered in front  of  the  opcode
-    to  which  they  refer.   They  may  also  be entered on a
-    separate line.
-
-o   The segment override mnemonics  are  CS:,  DS:,  ES:,  and
-    SS:
-
-o   String manipulation  mnemonics  must  explictly  state the
-    string size.  For example,  the  MOVSW  must  be  used  to
-    move word  strings  and  MOVSB  must  be used to move byte
-    strings.
-
-
-o   The mnemonic for the far return is RETF.
-
-o   The assembler  will  automatically  assemble  short,  near
-    or far jumps and  calls  depending  on  byte  displacement
-    to the  destination  address.   These  may  be  overridden
-    with the NEAR or FAR prefix.  For example:
-
-    0100:0500 JMP   502             ; a 2 byte short jump
-    0100:0502 JMP   NEAR 505        ; a 3 byte near jump
-    0100:0505 JMP   FAR 50A         ; a 5 byte far jump
-
-    The NEAR prefix may be  abbreviated  to  NE  but  the  FAR
-    prefix cannot be abbreviated.
-
-o   DEBUG cannot  tell  whether  some operands refer to a word
-    memory location or a byte memroy location.  In  this  case
-    the data  type  must  be  explicity stated with the prefix
-    "WORD PTR" or "BYTE PTR".   DEBUG  will  also  except  the
-    abbreviations "WO" and "BY".  For example:
-
-        NEG     BYTE PTR [128]
-        DEC     WO [SI]
-
-o   DEBUG also cannot tell whether  an  operand  refers  to  a
-    memory location  or  to  an immediate operand.  DEBUG uses
-    the common convention that  operands  enclosed  in  square
-    brackets refer to memory.  For example:
-
-        MOV     AX,21           ;Load AX with 21H
-        MOV     AX,[21]         ;Load AX with the contents
-                                ;of memory location 21H
-
-o   Two popular  pseudo-instructions  have also been included.
-    The DB opcode will  assemble  byte  values  directly  into
-    memory.  The  DW opcode will assemble word values directly
-    into memory.  For example:
-
-        DB      1,2,3,4,"THIS IS AN EXAMPLE"
-        DB      'THIS IS A QUOTE: "'
-        DB      "THIS IS A QUOTE: '"
-
-        DW      1000,2000,3000,"BACH"
-
-
-o   All forms of the register indirect commands are supported.
-    For example:
-
-        ADD     BX,34[BP+2].[SI-1]
-        POP     [BP+DI]
-        PUSH    [SI]
-
-o   All opcode synonyms are supported, For example:
-
-         LOOPZ  100
-         LOOPE  100
-
-         JA     200
-         JNBE   200
-
-o   For  8087  opcodes  the  WAIT  or  FWAIT  prefix  must  be
-    explictly specified.  For example:
-
-        FWAIT FADD ST,ST(3)     ; This lines  will  assemble
-                                ; a FWAIT prefix
-
-        FLD TBYTE PTR [BX]      ; This line will not
-
-
-
-FORMAT enhancements
-
-    FORMAT  will  now  install  volume  id's during the format
-    process.  DIR and CHKDSK will display these volume id's.
-
-    User programs can read the volume id on a particular drive
-    by doing a 'search next' with the volume id attribute.  It
-    is impossible, using normal DOS calls, to delete a  volume
-    id  or  to  create  another one.  The only way to create a
-    volume id is to reformat the disk.
-
-    NOTE: On IBM systems the V switch must be given to  FORMAT
-    to have it do Volume IDs.
-
-
-
-
-CHKDSK FOR MS-DOS 2.0
-
-
-    MS-DOS  2.0  has  a tree structured directory scheme which
-did not exist on previous versions of  MS-DOS.   As  a  result
-CHKDSK  is  a  much  more  complex  program  than  in previous
-versions since it must perform a tree traversal to find all of
-the  files  on  a  given  disk.   It  employes  a  depth first
-traversal in order to accomplish this.
-
-    Previous  versions   of   CHKDSK   automatically   "fixed"
-disks (regardless of whether it was appropriate).  CHKDSK 2.00
-run normally will not alter the disk in  any  way,  it  simply
-reports  on  any  inconsistencies  found.  To actually "fix" a
-disk CHKDSK must be run with the F switch (Fix).  This  allows
-you to  perhaps take some alternate (to CHKDSK repairs) action
-before letting CHKDSK loose on your disk.
-
-    CHKDSK 2.00 will report on non-contiguous allocation units
-(extents)  for  specified files.  This is handy for gaging how
-"fragmented" a disk volume has become.  This is done by simply
-giving a filespec:
-
-        CHKDSK B:*.*
-
-This  would  report  extents  for  all  files  in  the current
-directory for drive B after doing a normal  consistency  check
-on  drive  B.  Files which have many extents can be copied and
-renamed to restore them to a contiguous state, thus  improving
-I/O performance to the files.
-
-    Previous    versions   of   CHKDSK   would   simply   free
-allocation units which were  marked  as  used,  but  were  not
-actually  part  of  any  file.  CHKDSK 2.00 will recover these
-"orphan" allocation units if specified.  If orphan  allocation
-units  are  found,  CHKDSK  prompts for free or recover.  Free
-just frees the orphans as previous versions did, recover  will
-employ  allocation  chain analysis to create "orphan files" in
-the root directory of the disk.  These  files  will  have  the
-form  "%ORPHAN%.l$$"  where  l  will  take on some ASCII value
-greater than '@'.  These files may then be inspected to see if
-valuable  data  was contained in them.  If there is not enough
-room to make all of the  "orphan"  files,  CHKDSK  leaves  the
-unrecovered chains  in the FAT so that CHKDSK can be run again
-(once some entries in the  ROOT  have  been  deleted).   NOTE:
-Making ORPHAN files is a SLOW process.
-
-    Verbose  mode.   CHKDSK  2.00 may be run with the V switch
-which causes a  trace  of  the  files  and  directories  being
-processed to be printed as CHKDSK runs.
-
-
-FILTERS FOR MS-DOS 2.0
-
-    A filter is a utility  that  reads  from  standard  input,
-modifies  the  information in some way, then writes the result
-to standard output.  In this way the data is said to have been
-"filtered"  by  the  program.   Since different filters can be
-piped together in many different ways a few filters  can  take
-the place of a large number of specific purpose programs.  The
-following describes the filters that are provided with  MS-DOS
-2.0:
-
-CIPHER <key word>
-
-    Cipher  reads  a  program from standard input, encrypts it
-using the key word provided  by  the  user,  then  writes  the
-result  to  standard  output.   To decrypt the file simply run
-CIPHER again using the same keyword.  For example:
-
-A>CIPHER MYSTERY <NSA.CIA  >SECRET.FIL
-
-    This command line will read file NSA.CIA, encrypt it using
-the  key  word  "MYSTERY",  then  write  the  result  to  file
-SECRET.FIL To view the original  file  the  following  command
-line could be used:
-
-A>CIPHER MYSTERY <SECRET.FIL
-
-    This will read file SECRET.FIL, decrypt the file using the
-key word "MYSTERY", then write the result to standard  output,
-which in this case is the console.
-
-FGREP
-
-    This  filter  takes as arguments a string and optionally a
-series of file names.  It will send  to  standard  output  all
-lines  from  the  files  specified  in  the  command line that
-contain the string.
-
-    If no files are specified FGREP will take the  input  from
-standard  in.   The  format for the command line invocation of
-FGREP is:
-
-FGREP [<option>] <string> <filename>*
-
-     The options available are:
-
-        /v      Will cause  FGREP  to  output  all  lines  NOT
-                containing the specified string.
-
-        /c      Will  cause  FGREP  to only print the count of
-                lines matched in each of the files.
-
-        /n      Each line matched is preceded by its  relative
-                line number in the file.
-
-    The  string  argument should be enclosed in double quotes.
-Two double quotes in succession are taken as a  single  double
-quote.  So,
-
-A>FGREP "Fool""s Paradise" book1.txt book2.txt bible
-
-will output  all lines from the book1.txt, book2.txt and bible
-(in that order that contain the  string:   Fool"s  Paradise  .
-And,
-
-A>dir b: | fgrep /v "DAT"
-
-will  output  all  names of the files in disk b:  which do not
-contain the string DAT .
-
-MORE
-
-    The filter MORE  reads  from  standard  input,  sends  one
-screen full  of information to standard output and then pauses
-with message:
-
--- More --
-
-    Pressing the RETURN key will cause another screen full  of
-information  to  be  written to standard output.  This process
-continues until all the input data is read.
-
-SORT [/R] [/+n]
-
-    Sort reads from standard input, sorts the data, the writes
-the  information  to  standard output.  The sort is done using
-the ASCII collating sequence.  There are switches which  allow
-the user to select various options:
-
-   R - Reverse the sort, that is make "Z" come before "A"
-
-  +n - Sort starting  with column "n" where n is some integer.
-       The default is start the  comparisons  with  column  1,
-       this switch allows the user to start in any column.
-
-example:
-
-A>SORT /R <UNSORT.TXT >SORT.TXT
-
-This command  line will read the file UNSORT.TXT, do a reverse
-sort, then write the output to file SORT.TXT
-
-A>DIR | SORT /+14
-
-    This command line will cause the output of  the  directory
-command  to  be piped to the sort filter, the sort filter will
-sort starting with column 14 (This is the column the file size
-starts),  then  send  the  output  to  the  console.   Thus  a
-directory sorted by file size will be the result.  To get real
-fancy:
-
-A>DIR | SORT /+14 | MORE
-
-will do the same thing except that MORE will give you a chance
-to read the directory before it scrolls off the screen.
-

v2.0/source/ALLOC.ASM

@@ -1,371 +0,0 @@
-;
-; xenix memory calls for MSDOS
-;
-; CAUTION: The following routines rely on the fact that arena_signature and
-; arena_owner_system are all equal to zero and are contained in DI.
-;
-INCLUDE DOSSEG.ASM
-
-CODE    SEGMENT BYTE PUBLIC  'CODE'
-        ASSUME  SS:DOSGROUP,CS:DOSGROUP
-
-.xlist
-.xcref
-INCLUDE DOSSYM.ASM
-INCLUDE DEVSYM.ASM
-.cref
-.list
-
-TITLE ALLOC.ASM - memory arena manager
-NAME Alloc
-
-SUBTTL memory allocation utility routines
-PAGE
-;
-; arena data
-;
-        i_need  arena_head,WORD         ; seg address of start of arena
-        i_need  CurrentPDB,WORD         ; current process data block addr
-        i_need  FirstArena,WORD         ; first free block found
-        i_need  BestArena,WORD          ; best free block found
-        i_need  LastArena,WORD          ; last free block found
-        i_need  AllocMethod,BYTE        ; how to alloc first(best)last
-
-;
-; arena_free_process
-; input:    BX - PID of process
-; output:   free all blocks allocated to that PID
-;
-        procedure   arena_free_process,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        MOV     DI,arena_signature
-        MOV     AX,[arena_head]
-        CALL    Check_Signature         ; ES <- AX, check for valid block
-
-arena_free_process_loop:
-        retc
-        PUSH    ES
-        POP     DS
-        CMP     DS:[arena_owner],BX     ; is block owned by pid?
-        JNZ     arena_free_next         ; no, skip to next
-        MOV     DS:[arena_owner],DI     ; yes... free him
-
-arena_free_next:
-        CMP     BYTE PTR DS:[DI],arena_signature_end
-                                        ; end of road, Jack?
-        retz                            ; never come back no more
-        CALL    arena_next              ; next item in ES/AX carry set if trash
-        JMP     arena_free_process_loop
-
-arena_free_process  ENDP
-
-;
-; arena_next
-; input:    DS - pointer to block head
-; output:   AX,ES - pointers to next head
-;           carry set if trashed arena
-;
-        procedure   arena_next,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        MOV     AX,DS                   ; AX <- current block
-        ADD     AX,DS:[arena_size]      ; AX <- AX + current block length
-        INC     AX                      ; remember that header!
-;
-;       fall into check_signature and return
-;
-;       CALL    check_signature         ; ES <- AX, carry set if error
-;       RET
-arena_next  ENDP
-
-;
-; check_signature
-; input:    AX - address of block header
-; output:   ES=AX, carry set if signature is bad
-;
-        procedure   check_signature,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        MOV     ES,AX                   ; ES <- AX
-        CMP     BYTE PTR ES:[DI],arena_signature_normal
-                                        ; IF next signature = not_end THEN
-        JZ      check_signature_ok      ;   GOTO ok
-        CMP     BYTE PTR ES:[DI],arena_signature_end
-                                        ; IF next signature = end then
-        JZ      check_signature_ok      ;   GOTO ok
-        STC                             ; set error
-        return
-
-check_signature_ok:
-        CLC
-        return
-Check_signature ENDP
-
-;
-; Coalesce - combine free blocks ahead with current block
-; input:    DS - pointer to head of free block
-; output:   updated head of block, AX is next block
-;           carry set -> trashed arena
-;
-        procedure   Coalesce,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        CMP     BYTE PTR DS:[DI],arena_signature_end
-                                        ; IF current signature = END THEN
-        retz                            ;   GOTO ok
-        CALL    arena_next              ; ES, AX <- next block, Carry set if error
-        retc                            ; IF no error THEN GOTO check
-
-coalesce_check:
-        CMP     ES:[arena_owner],DI
-        retnz                           ; IF next block isnt free THEN return
-        MOV     CX,ES:[arena_size]      ; CX <- next block size
-        INC     CX                      ; CX <- CX + 1 (for header size)
-        ADD     DS:[arena_size],CX      ; current size <- current size + CX
-        MOV     CL,ES:[DI]              ; move up signature
-        MOV     DS:[DI],CL
-        JMP     coalesce                ; try again
-Coalesce    ENDP
-
-SUBTTL $Alloc - allocate space in memory
-PAGE
-;
-;   Assembler usage:
-;           MOV     BX,size
-;           MOV     AH,Alloc
-;           INT     21h
-;         AX:0 is pointer to allocated memory
-;         BX is max size if not enough memory
-;
-;   Description:
-;           Alloc returns  a  pointer  to  a  free  block of
-;       memory that has the requested  size  in  paragraphs.
-;
-;   Error return:
-;           AX = error_not_enough_memory
-;              = error_arena_trashed
-;
-        procedure   $ALLOC,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-
-        XOR     AX,AX
-        MOV     DI,AX
-
-        MOV     [FirstArena],AX         ; init the options
-        MOV     [BestArena],AX
-        MOV     [LastArena],AX
-
-        PUSH    AX                      ; alloc_max <- 0
-        MOV     AX,[arena_head]         ; AX <- beginning of arena
-        CALL    Check_signature         ; ES <- AX, carry set if error
-        JC      alloc_err               ; IF error THEN GOTO err
-
-alloc_scan:
-        PUSH    ES
-        POP     DS                      ; DS <- ES
-        CMP     DS:[arena_owner],DI
-        JZ      alloc_free              ; IF current block is free THEN examine
-
-alloc_next:
-        CMP     BYTE PTR DS:[DI],arena_signature_end
-                                        ; IF current block is last THEN
-        JZ      alloc_end               ;   GOTO end
-        CALL    arena_next              ; AX, ES <- next block, Carry set if error
-        JNC     alloc_scan              ; IF no error THEN GOTO scan
-
-alloc_err:
-        POP     AX
-
-alloc_trashed:
-        error   error_arena_trashed
-
-alloc_end:
-        CMP     [FirstArena],0
-        JNZ     alloc_do_split
-
-alloc_fail:
-        invoke  get_user_stack
-        POP     BX
-        MOV     [SI].user_BX,BX
-        error   error_not_enough_memory
-
-alloc_free:
-        CALL    coalesce                ; add following free block to current
-        JC      alloc_err               ; IF error THEN GOTO err
-        MOV     CX,DS:[arena_size]
-
-        POP     DX                      ; check for max found size
-        CMP     CX,DX
-        JNA     alloc_test
-        MOV     DX,CX
-
-alloc_test:
-        PUSH    DX
-        CMP     BX,CX                   ; IF BX > size of current block THEN
-        JA      alloc_next              ;   GOTO next
-
-        CMP     [FirstArena],0
-        JNZ     alloc_best
-        MOV     [FirstArena],DS         ; save first one found
-alloc_best:
-        CMP     [BestArena],0
-        JZ      alloc_make_best         ; initial best
-        PUSH    ES
-        MOV     ES,[BestArena]
-        CMP     ES:[arena_size],CX      ; is size of best larger than found?
-        POP     ES
-        JBE     alloc_last
-alloc_make_best:
-        MOV     [BestArena],DS          ; assign best
-alloc_last:
-        MOV     [LastArena],DS          ; assign last
-        JMP     alloc_next
-
-;
-; split the block high
-;
-alloc_do_split_high:
-        MOV     DS,[LastArena]
-        MOV     CX,DS:[arena_size]
-        SUB     CX,BX
-        MOV     DX,DS
-        JE      alloc_set_owner         ; sizes are equal, no split
-        ADD     DX,CX                   ; point to next block
-        MOV     ES,DX                   ; no decrement!
-        DEC     CX
-        XCHG    BX,CX                   ; bx has size of lower block
-        JMP     alloc_set_sizes         ; cx has upper (requested) size
-
-;
-; we have scanned memory and have found all appropriate blocks
-; check for the type of allocation desired; first and best are identical
-; last must be split high
-;
-alloc_do_split:
-        CMP     BYTE PTR [AllocMethod], 1
-        JA      alloc_do_split_high
-        MOV     DS,[FirstArena]
-        JB      alloc_get_size
-        MOV     DS,[BestArena]
-alloc_get_size:
-        MOV     CX,DS:[arena_size]
-        SUB     CX,BX                   ; get room left over
-        MOV     AX,DS
-        MOV     DX,AX                   ; save for owner setting
-        JE      alloc_set_owner         ; IF BX = size THEN (don't split)
-        ADD     AX,BX
-        INC     AX                      ; remember the header
-        MOV     ES,AX                   ; ES <- DS + BX (new header location)
-        DEC     CX                      ; CX <- size of split block
-alloc_set_sizes:
-        MOV     DS:[arena_size],BX      ; current size <- BX
-        MOV     ES:[arena_size],CX      ; split size <- CX
-        MOV     BL,arena_signature_normal
-        XCHG    BL,DS:[DI]              ; current signature <- 4D
-        MOV     ES:[DI],BL              ; new block sig <- old block sig
-        MOV     ES:[arena_owner],DI
-
-alloc_set_owner:
-        MOV     DS,DX
-        MOV     AX,[CurrentPDB]
-        MOV     DS:[arena_owner],AX
-        MOV     AX,DS
-        INC     AX
-        POP     BX
-        transfer    SYS_RET_OK
-
-$alloc  ENDP
-
-SUBTTL $SETBLOCK - change size of an allocated block (if possible)
-PAGE
-;
-;   Assembler usage:
-;           MOV     ES,block
-;           MOV     BX,newsize
-;           MOV     AH,setblock
-;           INT     21h
-;         if setblock fails for growing, BX will have the maximum
-;         size possible
-;   Error return:
-;           AX = error_invalid_block
-;              = error_arena_trashed
-;              = error_not_enough_memory
-;              = error_invalid_function
-;
-        procedure   $SETBLOCK,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        MOV     DI,arena_signature
-        MOV     AX,ES
-        DEC     AX
-        CALL    check_signature
-        JNC     setblock_grab
-
-setblock_bad:
-        JMP     alloc_trashed
-
-setblock_grab:
-        MOV     DS,AX
-        CALL    coalesce
-        JC      setblock_bad
-        MOV     CX,DS:[arena_size]
-        PUSH    CX
-        CMP     BX,CX
-        JBE     alloc_get_size
-        JMP     alloc_fail
-$setblock   ENDP
-
-SUBTTL $DEALLOC - free previously allocated piece of memory
-PAGE
-;
-;   Assembler usage:
-;           MOV     ES,block
-;           MOV     AH,dealloc
-;           INT     21h
-;
-;   Error return:
-;           AX = error_invalid_block
-;              = error_arena_trashed
-;
-        procedure   $DEALLOC,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        MOV     DI,arena_signature
-        MOV     AX,ES
-        DEC     AX
-        CALL    check_signature
-        JC      dealloc_err
-        MOV     ES:[arena_owner],DI
-        transfer    SYS_RET_OK
-
-dealloc_err:
-        error   error_invalid_block
-$DEALLOC    ENDP
-
-SUBTTL $AllocOper - get/set allocation mechanism
-PAGE
-;
-;   Assembler usage:
-;           MOV     AH,AllocOper
-;           MOV     BX,method
-;           MOV     AL,func
-;           INT     21h
-;
-;   Error return:
-;           AX = error_invalid_function
-;
-        procedure   $AllocOper,NEAR
-        ASSUME  DS:NOTHING,ES:NOTHING
-        CMP     AL,1
-        JB      AllocOperGet
-        JZ      AllocOperSet
-        error   error_invalid_function
-AllocOperGet:
-        MOV     AL,BYTE PTR [AllocMethod]
-        XOR     AH,AH
-        transfer    SYS_RET_OK
-AllocOperSet:
-        MOV     [AllocMethod],BL
-        transfer    SYS_RET_OK
-$AllocOper  ENDP
-
-do_ext
-
-CODE    ENDS
-    END
-

v2.0/source/BUF.ASM

@@ -1,508 +0,0 @@
-;
-; buffer management for MSDOS
-;
-
-INCLUDE DOSSEG.ASM
-
-CODE    SEGMENT BYTE PUBLIC  'CODE'
-        ASSUME  SS:DOSGROUP,CS:DOSGROUP
-
-.xlist
-.xcref
-INCLUDE DOSSYM.ASM
-INCLUDE DEVSYM.ASM
-.cref
-.list
-
-        i_need  BuffHead,DWORD
-        i_need  PreRead,WORD
-        i_need  LastBuffer,DWORD
-        i_need  CurBuf,DWORD
-        i_need  WPErr,BYTE
-
-SUBTTL SETVISIT,SKIPVISIT -- MANAGE BUFFER SCANS
-PAGE
-        procedure   SETVISIT,near
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Inputs:
-;       None
-; Function:
-;       Set up a scan of I/O buffers
-; Outputs:
-;       All visit flags = 0
-;               NOTE: This pre-scan is needed because a hard disk error
-;                     may cause a scan to stop in the middle leaving some
-;                     visit flags set, and some not set.
-;       DS:DI Points to [BUFFHEAD]
-; No other registers altered
-
-        LDS     DI,[BUFFHEAD]
-        PUSH    AX
-        XOR     AX,AX
-SETLOOP:
-        MOV     [DI.VISIT],AL
-        LDS     DI,[DI.NEXTBUF]
-        CMP     DI,-1
-        JNZ     SETLOOP
-        LDS     DI,[BUFFHEAD]
-        POP     AX
-        return
-
-        entry   SKIPVISIT
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Inputs:
-;       DS:DI Points to a buffer
-; Function:
-;       Skip visited buffers
-; Outputs:
-;       DS:DI Points to next unvisited buffer
-;       Zero is set if skip to LAST buffer
-; No other registers altered
-
-        CMP     DI,-1
-        retz
-        CMP     [DI.VISIT],1
-        retnz
-        LDS     DI,[DI.NEXTBUF]
-        JMP     SHORT SKIPVISIT
-        return
-SetVisit    ENDP
-
-
-SUBTTL SCANPLACE, PLACEBUF -- PUT A BUFFER BACK IN THE POOL
-PAGE
-        procedure   ScanPlace,near
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Inputs:
-;       Same as PLACEBUF
-; Function:
-;       Save scan location and call PLACEBUF
-; Outputs:
-;       DS:DI Points to saved scan location
-; SI destroyed, other registers unchanged
-
-        PUSH    ES
-        LES     SI,[DI.NEXTBUF]         ; Save scan location
-        CALL    PLACEBUF
-        PUSH    ES
-        POP     DS                      ; Restore scan location
-        MOV     DI,SI
-        POP     ES
-        return
-ScanPlace   ENDP
-
-NRETJ:  JMP     SHORT NRET
-
-        procedure   PLACEBUF,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Input:
-;       DS:DI points to buffer
-; Function:
-;       Remove buffer from queue and re-insert it in proper place.
-;       If buffer doesn't go at end, and isn't free, decrement
-;       priorities.
-; NO registers altered
-;
-; DS:SI -- Curbuf, current buffer in list
-; ES:DI -- Buf, buffer passed as argument
-; BP:CX -- Pointsave, saved Buf.nextbuf
-; DX:BX -- Lastbuf, previous buffer in list
-; AL    -- Inserted, Buf has been inserted
-; AH    -- Removed, Buf has been removed
-
-        IF      IBM
-        IF      NOT IBM
-        invoke  save_world
-        XOR     AX,AX           ; Inserted = Removed = FALSE
-        LES     CX,[DI.NEXTBUF]
-        MOV     BP,ES           ; Pointsave = Buf.nextbuf
-        MOV     SI,DS
-        MOV     ES,SI           ; Buf is ES:DI
-        LDS     SI,[BUFFHEAD]   ; Curbuf = HEAD
-        CALL    POINTCOMP       ; Buf == HEAD?
-        JNZ     TNEWHEAD
-        CMP     CX,-1           ; Buf is LAST?
-        JZ      NRETJ           ; Only one buffer, nothing to do
-        MOV     WORD PTR [BUFFHEAD],CX
-        MOV     WORD PTR [BUFFHEAD+2],BP        ; HEAD = Pointsave
-        INC     AH              ; Removed = TRUE
-        MOV     DS,BP
-        MOV     SI,CX           ; Curbuf = HEAD
-TNEWHEAD:
-        MOV     BL,ES:[DI.BUFPRI]
-        CMP     BL,[SI.BUFPRI]
-        JGE     BUFLOOP
-NEWHEAD:                        ; If Buf.pri < HEAD.pri
-        MOV     WORD PTR ES:[DI.NEXTBUF],SI
-        MOV     WORD PTR ES:[DI.NEXTBUF+2],DS   ; Buf.nextbuf = HEAD
-        MOV     WORD PTR [BUFFHEAD],DI
-        MOV     WORD PTR [BUFFHEAD+2],ES        ; HEAD = Buf
-        INC     AL                              ; Inserted = TRUE
-        OR      AH,AH
-        JNZ     NRET            ; If Removed == TRUE
-BUFLOOP:
-        PUSH    DS
-        PUSH    SI
-        LDS     SI,[SI.NEXTBUF]
-        CALL    POINTCOMP
-        POP     SI
-        POP     DS
-        JNZ     TESTINS
-        MOV     WORD PTR [SI.NEXTBUF],CX        ; If Curbuf.nextbuf == buf
-        MOV     WORD PTR [SI.NEXTBUF+2],BP      ; Curbuf.nextbuf = Pointsave
-        INC     AH              ; Removed = TRUE
-        OR      AL,AL
-        JNZ     SHUFFLE         ; If Inserted == TRUE
-TESTINS:
-        OR      AL,AL
-        JNZ     LOOKBUF
-        PUSH    CX              ; If NOT Inserted
-        MOV     CL,ES:[DI.BUFPRI]
-        CMP     CL,[SI.BUFPRI]
-        POP     CX
-        JGE     LOOKBUF
-        PUSH    DS              ; If Buf.pri < Curbuf.pri
-        MOV     DS,DX
-        MOV     WORD PTR [BX.NEXTBUF],DI
-        MOV     WORD PTR [BX.NEXTBUF+2],ES      ; Lastbuf.nextbuf = Buf
-        POP     DS
-        MOV     WORD PTR ES:[DI.NEXTBUF],SI
-        MOV     WORD PTR ES:[DI.NEXTBUF+2],DS   ; Buf.nextbuf = Curbuf
-        INC     AL              ; Inserted = TRUE
-        OR      AH,AH
-        JNZ     SHUFFLE         ; If Removed == TRUE
-LOOKBUF:
-        MOV     BX,SI
-        MOV     DX,DS           ; Lastbuf = Curbuf
-        CMP     WORD PTR [SI.NEXTBUF],-1
-        JZ      ISLAST
-        LDS     SI,[SI.NEXTBUF] ; Curbuf = Curbuf.nextbuf
-        JMP     SHORT BUFLOOP
-ISLAST:                 ; If Curbuf is LAST
-        MOV     WORD PTR [SI.NEXTBUF],DI
-        MOV     WORD PTR [SI.NEXTBUF+2],ES      ; Curbuf.nextbuf = Buf
-        MOV     WORD PTR ES:[DI.NEXTBUF],-1
-        MOV     WORD PTR ES:[DI.NEXTBUF+2],-1      ; Buf is LAST
-NRET:
-        invoke  restore_world
-        return
-
-SHUFFLE:
-        LDS     DI,[BUFFHEAD]
-DECLOOP:
-        CMP     [DI.BUFPRI],FREEPRI
-        JZ      NODEC
-        DEC     [DI.BUFPRI]
-NODEC:
-        LDS     DI,[DI.NEXTBUF]
-        CMP     DI,-1
-        JNZ     DECLOOP
-        JMP     SHORT NRET
-        ENDIF
-        ENDIF
-
-        invoke  save_world
-        LES     CX,[DI.NEXTBUF]
-        CMP     CX,-1           ; Buf is LAST?
-        JZ      NRET            ; Buffer already last
-        MOV     BP,ES           ; Pointsave = Buf.nextbuf
-        PUSH    DS
-        POP     ES              ; Buf is ES:DI
-        LDS     SI,[BUFFHEAD]   ; Curbuf = HEAD
-        CALL    POINTCOMP       ; Buf == HEAD?
-        JNZ     BUFLOOP
-        MOV     WORD PTR [BUFFHEAD],CX
-        MOV     WORD PTR [BUFFHEAD+2],BP        ; HEAD = Pointsave
-        JMP     SHORT LOOKEND
-
-BUFLOOP:
-        PUSH    DS
-        PUSH    SI
-        LDS     SI,[SI.NEXTBUF]
-        CALL    POINTCOMP
-        JZ      GOTTHEBUF
-        POP     AX
-        POP     AX
-        JMP     SHORT BUFLOOP
-
-GOTTHEBUF:
-        POP     SI
-        POP     DS
-        MOV     WORD PTR [SI.NEXTBUF],CX        ; If Curbuf.nextbuf == buf
-        MOV     WORD PTR [SI.NEXTBUF+2],BP      ; Curbuf.nextbuf = Pointsave
-LOOKEND:
-        PUSH    DS
-        PUSH    SI
-        LDS     SI,[SI.NEXTBUF]
-        CMP     SI,-1
-        JZ      GOTHEEND
-        POP     AX
-        POP     AX
-        JMP     SHORT LOOKEND
-
-GOTHEEND:
-        POP     SI
-        POP     DS
-        MOV     WORD PTR [SI.NEXTBUF],DI
-        MOV     WORD PTR [SI.NEXTBUF+2],ES      ; Curbuf.nextbuf = Buf
-        MOV     WORD PTR ES:[DI.NEXTBUF],-1
-        MOV     WORD PTR ES:[DI.NEXTBUF+2],-1      ; Buf is LAST
-NRET:
-        invoke  restore_world
-        return
-
-PLACEBUF    ENDP
-
-        procedure   PLACEHEAD,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; SAME AS PLACEBUF except places buffer at head
-
-        invoke  save_world
-        PUSH    DS
-        POP     ES
-        LDS     SI,[BUFFHEAD]
-        MOV     WORD PTR [BUFFHEAD],DI
-        MOV     WORD PTR [BUFFHEAD+2],ES
-        MOV     WORD PTR ES:[DI.NEXTBUF],SI
-        MOV     WORD PTR ES:[DI.NEXTBUF+2],DS
-LOOKEND2:
-        PUSH    DS
-        PUSH    SI
-        LDS     SI,[SI.NEXTBUF]
-        CALL    POINTCOMP
-        JZ      GOTHEEND2
-        POP     AX
-        POP     AX
-        JMP     SHORT LOOKEND2
-
-GOTHEEND2:
-        POP     SI
-        POP     DS
-        MOV     WORD PTR [SI.NEXTBUF],-1
-        MOV     WORD PTR [SI.NEXTBUF+2],-1      ; Buf is LAST
-        JMP     SHORT NRET
-
-PLACEHEAD   ENDP
-
-SUBTTL POINTCOMP -- 20 BIT POINTER COMPARE
-PAGE
-        procedure   PointComp,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Compare DS:SI to ES:DI (or DS:DI to ES:SI) for equality
-; DO NOT USE FOR < or >
-; No Registers altered
-
-        CMP     SI,DI
-        retnz
-        PUSH    CX
-        PUSH    DX
-        MOV     CX,DS
-        MOV     DX,ES
-        CMP     CX,DX
-        POP     DX
-        POP     CX
-        return
-PointComp   ENDP
-
-SUBTTL GETBUFFR -- GET A SECTOR INTO A BUFFER
-PAGE
-        procedure   GETBUFFR,NEAR
-ASSUME  DS:DOSGROUP,ES:NOTHING
-
-; Input:
-;       AH = Priority buffer is to have
-;       AL = 0 means sector must be pre-read
-;          ELSE no pre-read
-;       DX = Desired physical sector number
-;       ES:BP = Pointer to drive parameters
-; Function:
-;       Get the specified sector into one of the I/O buffers
-;       And shuffle the queue
-; Output:
-;       [CURBUF] Points to the Buffer for the sector
-; DX,ES:BP unchanged, all other registers destroyed
-
-        XOR     SI,SI
-        entry   GETBUFFRB
-        MOV     [PREREAD],AX
-        MOV     AL,ES:[BP.dpb_drive]
-        LDS     DI,[LASTBUFFER]
-ASSUME  DS:NOTHING
-        CMP     DI,-1                           ; Recency pointer valid?
-        JZ      SKBUF                           ; No
-        CMP     DX,[DI.BUFSECNO]
-        JNZ     SKBUF                           ; Wrong sector
-        CMP     AL,[DI.BUFDRV]
-        JNZ     SKBUF                           ; Wrong Drive
-        JMP     SHORT JUSTBUF                   ; Just asked for same buffer
-SKBUF:
-        LDS     DI,[BUFFHEAD]
-NXTBFF:
-        CMP     DX,[DI.BUFSECNO]
-        JNZ     BUMP
-        CMP     AL,[DI.BUFDRV]
-        JNZ     BUMP
-        JMP     SHORT SETINF
-BUMP:
-        LDS     DI,[DI.NEXTBUF]
-        CMP     DI,-1
-        JNZ     NXTBFF
-        LDS     DI,[BUFFHEAD]
-        PUSH    SI
-        PUSH    DX
-        PUSH    BP
-        PUSH    ES
-        CALL    BUFWRITE        ; Write out the dirty buffer
-        POP     ES
-        POP     BP
-        POP     DX
-        POP     SI
-RDSEC:                          ; Read in the new sector
-        TEST    BYTE PTR [PREREAD],-1
-        JNZ     SETBUF
-        LEA     BX,[DI.BufInSiz]        ; Point at buffer
-        MOV     CX,1
-        PUSH    SI
-        PUSH    DI
-        PUSH    DX
-        OR      SI,SI
-        JZ      NORMSEC
-        invoke  FATSECRD
-        JMP     SHORT GOTTHESEC         ; Buffer is marked free if read barfs
-NORMSEC:
-        invoke  DREAD                   ; Buffer is marked free if read barfs
-GOTTHESEC:
-        POP     DX
-        POP     DI
-        POP     SI
-SETBUF:
-        MOV     [DI.BUFSECNO],DX
-        MOV     WORD PTR [DI.BUFDRVDP],BP
-        MOV     WORD PTR [DI.BUFDRVDP+2],ES
-        XOR     AH,AH
-        MOV     AL,ES:[BP.dpb_drive]
-        MOV     WORD PTR [DI.BUFDRV],AX
-SETINF:
-        MOV     AX,1                            ; Default to not a FAT sector
-        OR      SI,SI
-        JZ      SETSTUFFOK
-        MOV     AL,ES:[BP.dpb_FAT_count]
-        MOV     AH,ES:[BP.dpb_FAT_size]
-SETSTUFFOK:
-        MOV     WORD PTR [DI.BUFWRTCNT],AX
-        CALL    PLACEBUF
-JUSTBUF:
-        MOV     WORD PTR [CURBUF+2],DS
-        MOV     WORD PTR [LASTBUFFER+2],DS
-        PUSH    SS
-        POP     DS
-ASSUME  DS:DOSGROUP
-        MOV     WORD PTR [CURBUF],DI
-        MOV     WORD PTR [LASTBUFFER],DI
-        return
-GETBUFFR    ENDP
-
-
-SUBTTL FLUSHBUF -- WRITE OUT DIRTY BUFFERS
-PAGE
-        procedure   FlushBuf,NEAR
-ASSUME  DS:DOSGROUP,ES:NOTHING
-
-; Input:
-;       DS = DOSGROUP
-;       AL = Physical unit number
-;          = -1 for all units
-; Function:
-;       Write out all dirty buffers for unit, and flag them as clean
-; DS Preserved, all others destroyed (ES too)
-
-        LDS     DI,[BUFFHEAD]
-ASSUME  DS:NOTHING
-        MOV     AH,-1
-NXTBUFF:
-        CMP     [DI.BUFDRV],AH
-        JZ      SKIPBFF                 ; Skip free buffers
-        CMP     AH,AL
-        JZ      DOBUFFER                ; Do all dirty buffers
-        CMP     AL,[DI.BUFDRV]
-        JNZ     SKIPBFF                 ; Buffer not for this unit
-DOBUFFER:
-        CMP     BYTE PTR [DI.BUFDIRTY],0
-        JZ      SKIPBFF                 ; Buffer not dirty
-        PUSH    AX
-        PUSH    WORD PTR [DI.BUFDRV]
-        CALL    BUFWRITE
-        POP     AX
-        XOR     AH,AH                   ; Buffer is clean
-        CMP     AL,BYTE PTR [WPERR]
-        JNZ     NOZAP
-        MOV     AL,0FFH                 ; Invalidate buffer, it is inconsistent
-NOZAP:
-        MOV     WORD PTR [DI.BUFDRV],AX
-        POP     AX                      ; Search info
-SKIPBFF:
-        LDS     DI,[DI.NEXTBUF]
-        CMP     DI,-1
-        JNZ     NXTBUFF
-        PUSH    SS
-        POP     DS
-        return
-FlushBuf    ENDP
-
-
-SUBTTL BUFWRITE -- WRITE OUT A BUFFER IF DIRTY
-PAGE
-        procedure   BufWrite,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Input:
-;       DS:DI Points to the buffer
-; Function:
-;       Write out all the buffer if dirty.
-; Output:
-;       Buffer marked free
-; DS:DI Preserved, ALL others destroyed (ES too)
-
-        MOV     AX,00FFH
-        XCHG    AX,WORD PTR [DI.BUFDRV] ; Free, in case write barfs
-        CMP     AL,0FFH
-        retz                            ; Buffer is free.
-        OR      AH,AH
-        retz                            ; Buffer is clean.
-        CMP     AL,BYTE PTR [WPERR]
-        retz                            ; If in WP error zap buffer
-        LES     BP,[DI.BUFDRVDP]
-        LEA     BX,[DI.BufInSiz]        ; Point at buffer
-        MOV     DX,[DI.BUFSECNO]
-        MOV     CX,WORD PTR [DI.BUFWRTCNT]
-        MOV     AL,CH                   ; [DI.BUFWRTINC]
-        XOR     CH,CH
-        MOV     AH,CH
-        PUSH    DI
-WRTAGAIN:
-        PUSH    CX
-        PUSH    AX
-        MOV     CX,1
-        PUSH    BX
-        PUSH    DX
-        invoke  DWRITE          ; Write out the dirty buffer
-        POP     DX
-        POP     BX
-        POP     AX
-        POP     CX
-        ADD     DX,AX
-        LOOP    WRTAGAIN
-        POP     DI
-        return
-BufWrite    ENDP
-
-do_ext
-
-CODE    ENDS
-    END

v2.0/source/CHKDSK.ASM

@@ -1,901 +0,0 @@
-TITLE   CHKDSK - MS-DOS Disk consistancy checker
-
-; CHKDSK        Version 2.30
-; Verifies and repairs MS-DOS disk directory.
-
-
-; To build CHKDSK you need three modules:
-; CHKDSK CHKPROC CHKMES
-; They should be linked the that order as well.
-
-
-; REVISION HISTORY
-
-;REV 1.1
-;     05/21/82  Added rev number
-
-;REV 1.5
-;       Mod by NANCYP to report on extents
-;       Mod by AARONR to report volume ID
-
-;REV 2.0
-;       Total rewrite for directories
-
-;REV 2.1
-;       Added ^C and INT 24H handlers
-
-;REV 2.2
-;       INTERNATIONAL support
-
-;REV 2.3
-;       Split into two modules to allow assembly on a PC
-;       CHKDSK and CHKPROC
-
-FALSE   EQU     0
-TRUE    EQU     NOT FALSE
-
-DRVCHAR EQU     ":"
-
-;The following defines the ranges of DOS version numbers for which this CHKDSK
-; is good
-
-DOSVER_LOW EQU  0136H   ;1.54 in hex
-DOSVER_HIGH EQU 020BH   ;2.11 in hex
-
-
-        INCLUDE DOSSYM.ASM
-
-FCB     EQU     5CH
-
-;Drive parameter block from DOS header
-
-SUBTTL  Segments used in load order
-
-CODE    SEGMENT PUBLIC
-CODE    ENDS
-
-CONST   SEGMENT PUBLIC BYTE
-CONST   ENDS
-
-DATA    SEGMENT PUBLIC WORD
-DATA    ENDS
-
-DG      GROUP   CODE,CONST,DATA
-
-SUBTTL  Initialized Data
-PAGE
-CONST   SEGMENT PUBLIC BYTE
-
-        PUBLIC  HECODE,SWITCHAR,NOISY,DOFIX,CONBUF,ORPHCNT,ORPHSIZ,DOFIX
-        PUBLIC  HIDCNT,HIDSIZ,DIRCNT,DIRSIZ,FILCNT,FILSIZ,BADSIZ,LCLUS
-        PUBLIC  DOTENT,HAVFIX,SECONDPASS,NUL,ALLFILE,PARSTR,ERRSUB,LCLUS
-        PUBLIC  DIRTYFAT,BADSIZ,DDOTENT,CROSSCNT,ORPHFCB,ORPHEXT,ALLDRV
-        PUBLIC  FRAGMENT,USERDIR,DIRBUF,USERDIR,FIXMFLG,DOTMES,DIRCHAR
-
-        EXTRN   IDMES1:BYTE,IDPOST:BYTE,VNAME:BYTE,MONTAB:BYTE
-        EXTRN   TCHAR:BYTE,BADREAD_PRE:BYTE,BADREAD_POST:BYTE
-        EXTRN   CRLF:BYTE,BADVER:BYTE,BADSUBDIR:BYTE,CENTRY:BYTE
-        EXTRN   BADDRV:BYTE,BADCD:BYTE,BADRDMES:BYTE,OPNERR:BYTE
-        EXTRN   CONTAINS:BYTE,EXTENTS:BYTE,NOEXTENTS:BYTE
-        EXTRN   BADDRVM:BYTE,BADDRVM2:BYTE,BADIDBYT:BYTE
-
-
-DIRBUF  LABEL   BYTE                    ;Entry buffer for searches
-VOLID   DB      -1,0,0,0,0,0,8          ;Volume ID FCB
-VOLNAM  DB      0,"???????????"
-        DB      25 DUP(0)
-
-ALLFILE DB      -1,0,0,0,0,0,1EH        ;Extended FCB
-ALLDRV  DB      0,"???????????"
-        DB      25 DUP (?)
-
-ORPHFCB DB      0,"FILE0000"
-ORPHEXT DB      "CHK"
-        DB      25 DUP (?)
-
-
-;Non-message data
-
-SWITCHAR DB     "-"
-ROOTSTR LABEL   BYTE
-DIRCHAR DB      "/"
-NUL     DB      0
-PARSTR  DB      "..",0
-DOTMES  DB      ".",0
-DOTENT  DB      ".          "
-DDOTENT DB      "..         "
-HECODE  DB      ?
-FIXMFLG DB      0                       ;Flag for printing fixmes
-ERRSUB  DW      0                       ;Flag for bad subdir error
-FRAGMENT DB     0                       ;Flag for extent processing
-DIRTYFAT DB     0                       ;Dirty flag for FAT
-DIRCNT  DW      0                       ;# directories
-DIRSIZ  DW      0                       ;# alloc units in directories
-FILCNT  DW      0                       ;# reg files
-FILSIZ  DW      0                       ;# alloc units in reg files
-HIDCNT  DW      0                       ;# hidden files
-HIDSIZ  DW      0                       ;# alloc units in hidden files
-BADSIZ  DW      0                       ;# alloc units in bad sectors
-ORPHCNT DW      0                       ;# orphan files made
-ORPHSIZ DW      0                       ;# alloc units in orphan files
-LCLUS   DW      0                       ;# alloc units in lost clusters
-DISPFLG DB      0                       ;used by number routines
-CROSSCNT DW     0                       ;# crosslinked files (first pass)
-SECONDPASS DB   0                       ;Pass flag
-HAVFIX  DB      0                       ;non zero if any fixes
-DOFIX   DB      0                       ;flag for F switch
-NOISY   DB      0                       ;flag for V switch
-USERDIR DB      "/",0                   ;Users current dir for drive
-        DB      (DIRSTRLEN-1) DUP (?)
-CONBUF  DB      15,0                    ;Input buffer
-        DB      15 DUP (?)
-
-CONST   ENDS
-
-SUBTTL  Un-initialized Data
-PAGE
-DATA    SEGMENT PUBLIC WORD
-
-        PUBLIC  ZEROTRUNC,NAMBUF,MCLUS,THISDPB,STACKLIM,ERRCNT
-        PUBLIC  SRFCBPT,ISCROSS,CSIZE,DSIZE,SSIZE,FAT,FATMAP
-        PUBLIC  HARDCH,CONTCH,USERDEV,SECBUF,DOTSNOGOOD
-
-HARDCH  DD      ?                       ;Pointer to real INT 24 handler
-CONTCH  DD      ?                       ;Pointer to real INT 23 handler
-THISDPB DD      ?                       ;Pointer to drive DPB
-USERDEV DB      ?                       ;Users current device
-CSIZE   DB      ?                       ;Sectors per cluster
-SSIZE   DW      ?                       ;bytes per sector
-DSIZE   DW      ?                       ;# alloc units on disk
-MCLUS   DW      ?                       ;DSIZE + 1
-NAMBUF  DB      14 DUP (?)              ;Buffer
-DOTSNOGOOD DB   ?                       ;. or .. error flag
-ZEROTRUNC DB    ?                       ;Trimming flag
-ISCROSS DB      ?                       ;Crosslink flag
-OLDCLUS DW      ?
-SRFCBPT DW      ?
-FATMAP  DW      OFFSET DG:FAT           ;Offset of FATMAP table
-SECBUF  DW      ?                       ;Offset of sector buffer
-ERRCNT  DB      ?                       ;Used by FATread and write
-STACKLIM DW     ?                       ;Stack growth limit
-
-INTERNATVARS    internat_block <>
-                DB      (internat_block_max - ($ - INTERNATVARS)) DUP (?)
-
-FAT     LABEL   WORD
-DATA    ENDS
-
-
-SUBTTL  Start of CHKDSK
-
-CODE    SEGMENT PUBLIC
-ASSUME  CS:DG,DS:DG,ES:DG,SS:DG
-
-        PUBLIC  SUBERRP,DOTCOMBMES,FIGREC,FCB_TO_ASCZ,PRTCHR,EPRINT
-        PUBLIC  PRINT,DOCRLF,DISP16BITS,DISP32BITS,DISPCLUS,CHECKFILES
-
-        EXTRN   RDSKERR:NEAR,SETSWITCH:NEAR,PROMPTYN:NEAR,REPORT:NEAR
-        EXTRN   PRINTCURRDIRERR:NEAR,PRINTTHISEL2:NEAR,CHECKERR:NEAR
-        EXTRN   INT_23:NEAR,INT_24:NEAR,FINDCHAIN:NEAR,DONE:NEAR,AMDONE:NEAR
-        EXTRN   FATAL:NEAR,DIRPROC:NEAR,CHKMAP:NEAR,CHKCROSS:NEAR,UNPACK:NEAR
-
-        ORG     100H
-
-CHKDSK:
-        JMP     SHORT CHSTRT
-
-HEADER  DB      "Ver 2.30"
-
-CHSTRT:
-
-;Code to print header.
-;       PUSH    AX
-;       MOV     DX,OFFSET DG:HEADER
-;       CALL    PRINT
-;       POP     AX
-
-        PUSH    AX              ;Save DRIVE validity info
-        MOV     AH,GET_VERSION
-        INT     21H
-        XCHG    AH,AL           ;Turn it around to AH.AL
-        CMP     AX,DOSVER_LOW
-        JB      GOTBADDOS
-        CMP     AX,DOSVER_HIGH
-        JBE     OKDOS
-GOTBADDOS:
-        MOV     DX,OFFSET DG:BADVER
-        JMP     CERROR
-
-OKDOS:
-        POP     AX              ;Get back drive info
-        MOV     BX,0FFF0H
-        MOV     DX,SP
-        CMP     DX,BX
-        JAE     STACKOK         ;Lots of stack
-        MOV     DX,DS:[2]       ;High break
-        MOV     CX,CS
-        SUB     DX,CX
-        CMP     DX,0FFFH
-        JAE     SETSTACK        ;Lots to grab
-        MOV     CX,4            ;Suck up more stack (blast command)
-        SHL     DX,CL
-        MOV     BX,DX
-SETSTACK:
-        CLI
-        MOV     SP,BX
-        STI
-STACKOK:
-        PUSH    AX
-        MOV     AH,DISK_RESET        ;Flush everything, and invalidate
-        INT     21H
-        POP     AX
-        CMP     AL,0FFH                 ;Illegal drive specifier?
-        JNZ     FILECHK                 ;No -- check for filename
-
-DRVERR:
-        MOV     DX,OFFSET DG:BADDRV
-CERROR:
-        PUSH    CS                      ;Make sure DS is OK
-        POP     DS
-        CALL    PRINT                   ;Print error message
-        INT     20H
-
-CERROR2:
-        PUSH    DX
-        CALL    DONE                            ;Reset users disk
-        POP     DX
-        JMP     SHORT CERROR
-
-FILECHK:
-        MOV     AX,(CHAR_OPER SHL 8)
-        INT     21H
-        MOV     [SWITCHAR],DL
-        CMP     DL,"/"
-        JNZ     SLASHOK
-        MOV     [DIRCHAR],"\"
-        MOV     [USERDIR],"\"
-SLASHOK:
-        CMP     DS:(BYTE PTR FCB+1)," "         ;Filename specified?
-        JZ      DRVCHK                          ;No -- get the correct drive
-        MOV     AL,[SWITCHAR]
-        CMP     DS:(BYTE PTR FCB+1),AL          ;Filename specified?
-        JZ      DRVCHK                          ;No -- get the correct drive
-        MOV     BYTE PTR [FRAGMENT],1           ;Set flag to perform fragment
-                                                ;check on specified files
-DRVCHK:
-        CALL    SETSWITCH                       ;Look for switches
-        MOV     AH,GET_DEFAULT_DRIVE            ;Get current drive
-        INT     21H
-        MOV     [USERDEV],AL                    ;Save for later
-        MOV     AH,AL
-        INC     AH                      ;A = 1
-        MOV     BH,DS:(BYTE PTR FCB)    ;See if drive specified
-        OR      BH,BH
-        JZ      SETDSK
-        MOV     AL,BH
-        MOV     AH,AL
-        DEC     AL                      ;A = 0
-SETDSK:
-        MOV     [ALLDRV],AH             ;Target drive
-        MOV     [VOLNAM],AH             ;A = 1
-        MOV     [ORPHFCB],AH            ;A = 1
-        ADD     [BADDRVM],AL            ;A = 0
-        ADD     [BADDRVM2],AL           ;A = 0
-        MOV     DL,AH                   ;A = 1
-        MOV     AH,GET_DPB              ;Get the DPB
-        INT     21H
-ASSUME  DS:NOTHING
-        CMP     AL,-1
-        JNZ     DRVISOK                 ;Bad drive (should always be ok)
-        MOV     DX,OFFSET DG:BADDRV
-CERROR2J: JMP    CERROR2
-
-DRVISOK:
-        DEC     DL                      ;A = 0
-        MOV     AH,SET_DEFAULT_DRIVE    ;Set Target
-        INT     21H
-        CMP     [BX.dpb_current_dir],0
-        JZ      CURRISROOT              ;Save users current dir for target
-        MOV     SI,BX
-        ADD     SI,dpb_dir_text
-        MOV     DI,OFFSET DG:USERDIR + 1
-SETDIRLP:
-        LODSB
-        STOSB
-        OR      AL,AL
-        JZ      CURRISROOT
-        JMP     SHORT SETDIRLP
-CURRISROOT:
-        MOV     WORD PTR [THISDPB+2],DS
-        PUSH    CS
-        POP     DS
-ASSUME  DS:DG
-        MOV     WORD PTR [THISDPB],BX
-        MOV     AX,(GET_INTERRUPT_VECTOR SHL 8) OR 23H
-        INT     21H
-        MOV     WORD PTR [CONTCH],BX
-        MOV     WORD PTR [CONTCH+2],ES
-        MOV     AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H
-        MOV     DX,OFFSET DG:INT_23
-        INT     21H
-        MOV     AX,(GET_INTERRUPT_VECTOR SHL 8) OR 24H
-        INT     21H
-        MOV     WORD PTR [HARDCH],BX
-        MOV     WORD PTR [HARDCH+2],ES
-        MOV     AX,(SET_INTERRUPT_VECTOR SHL 8) OR 24H
-        MOV     DX,OFFSET DG:INT_24
-        INT     21H
-        PUSH    CS
-        POP     ES
-        MOV     DX,OFFSET DG:ROOTSTR
-        MOV     AH,CHDIR                        ;Start at root
-        INT     21H
-        MOV     DX,OFFSET DG:BADCD
-        JC      CERROR2J                        ;Couldn't get there
-        MOV     DX,OFFSET DG:FAT                ;Scratch space
-        MOV     AH,SET_DMA
-        INT     21H
-        MOV     DX,OFFSET DG:VOLID              ;Look for VOL ID
-        MOV     AH,DIR_SEARCH_FIRST
-        INT     21H
-        CMP     AL,-1
-        JZ      NOTVOLID
-        CALL    PRINTID                         ;Have a VOL ID
-NOTVOLID:
-        LDS     BX,[THISDPB]
-ASSUME  DS:NOTHING
-        MOV     AX,[BX.dpb_sector_size]
-        MOV     [SSIZE],AX              ;Sector size in bytes
-        MOV     AL,[BX.dpb_cluster_mask]
-        INC     AL
-        MOV     [CSIZE],AL              ;Sectros per cluster
-        MOV     AX,[BX.dpb_max_cluster]
-        MOV     [MCLUS],AX              ;Bound for FAT searching
-        DEC     AX
-        MOV     [DSIZE],AX              ;Total data clusters on disk
-        MOV     AL,[BX.dpb_FAT_size]          ;Sectors for one fat
-        XOR     AH,AH
-        MOV     CX,AX
-        MUL     [SSIZE]                 ;Bytes for FAT
-        ADD     [FATMAP],AX             ;Allocate FAT space
-        MOV     AX,[FATMAP]
-        ADD     AX,[MCLUS]
-        ADD     AX,2                    ;Insurance
-        MOV     [SECBUF],AX             ;Allocate FATMAP space
-        ADD     AX,[SSIZE]
-        ADD     AX,20                   ;Insurance
-        MOV     [STACKLIM],AX           ;Limit on recursion
-        MOV     DI,CX
-        MOV     CL,[BX.dpb_FAT_count]          ;Number of FATs
-        MOV     DX,[BX.dpb_first_FAT]          ;First sector of FAT
-        PUSH    CS
-        POP     DS
-ASSUME  DS:DG
-        MOV     BX,OFFSET DG:FAT
-        MOV     AL,[ALLDRV]
-        DEC     AL
-        MOV     AH,'1'
-RDLOOP:
-        XCHG    CX,DI
-        PUSH    DX
-        PUSH    CX
-        PUSH    DI
-        PUSH    AX
-        INT     25H                     ;Read in the FAT
-        MOV     [HECODE],AL
-        POP     AX                      ;Flags
-        JNC     RDOK
-        MOV     DX,OFFSET DG:BADREAD_PRE    ;Barfed
-        CALL    PRINT
-        POP     AX
-        PUSH    AX
-        MOV     DL,AH
-        CALL    PRTCHR
-        MOV     DX,OFFSET DG:BADREAD_POST
-        CALL    PRINT
-        POP     AX
-        POP     CX
-        POP     DI
-        POP     DX
-        INC     AH
-        ADD     DX,DI
-        LOOP    RDLOOP                  ;Try next FAT
-        CALL    RDSKERR
-        JNZ     NORETRY1
-        JMP     NOTVOLID
-NORETRY1:
-        MOV     BX,OFFSET DG:BADRDMES
-        JMP     FATAL                   ;Couldn't read any FAT, BARF
-
-RDOK:
-        POP     AX                      ;Clean up
-        POP     AX
-        POP     AX
-        POP     AX
-        MOV     SI,OFFSET DG:FAT
-        LODSB                           ;Check FAT ID byte
-        CMP     AL,0F8H
-        JAE     IDOK
-        MOV     DX,OFFSET DG:BADIDBYT   ;FAT ID bad
-        CALL    PROMPTYN                ;Ask user
-        JZ      IDOK
-        JMP     ALLDONE                 ;User said stop
-IDOK:
-        MOV     DI,[FATMAP]
-        MOV     CX,[MCLUS]
-        INC     CX
-        XOR     AL,AL
-        REP     STOSB                   ;Initialize FATMAP to all free
-        MOV     DX,OFFSET DG:DIRBUF     ;FOR ALL SEARCHING
-        MOV     AH,SET_DMA
-        INT     21H
-        XOR     AX,AX
-        PUSH    AX                      ;I am root
-        PUSH    AX                      ;Parent is root
-        CALL    DIRPROC
-        CALL    CHKMAP                  ;Look for badsectors, orphans
-        CALL    CHKCROSS                ;Check for second pass
-        CALL    DOCRLF
-        CALL    REPORT
-
-ALLDONE:
-        CALL    AMDONE
-        INT     20H                     ;Fini
-
-
-ASSUME  DS:DG
-
-SUBTTL  Check for extents in specified files
-PAGE
-CHECKFILES:
-;Search the directory for the files specified on the command line
-;and report the number of fragmented allocation units found in
-;each one.
-        CALL    DOCRLF
-        MOV     AH,SET_DMA
-        MOV     DX,[FATMAP]             ;Use the first free space available
-        MOV     BP,DX
-        ADD     BP,27                   ;cluster in the directory entry
-        INT     21H
-        MOV     AH,DIR_SEARCH_FIRST              ;Look for the first file
-FRAGCHK:
-        MOV     DX,FCB
-        INT     21H
-        OR      AL,AL                   ;Did we find it?
-        JNZ     MSGCHK                  ;No -- we're done
-        XOR     AX,AX                   ;Initialize the fragment counter
-        MOV     SI,[BP]                 ;Get the first cluster
-        CALL    UNPACK
-        CMP     DI,0FF8H                ;End-of-file?
-        JAE     NXTCHK                  ;Yes -- go report the results
-        INC     SI
-        CMP     SI,DI
-        JZ      EACHCLUS
-        INC     AX
-EACHCLUS:
-        MOV     [OLDCLUS],DI            ;Save the last cluster found
-        MOV     SI,DI                   ;Get the next cluster
-        CALL    UNPACK
-        INC     [OLDCLUS]               ;Bump the old cluster
-        CMP     DI,[OLDCLUS]            ;Are they the same?
-        JNZ     LASTCLUS                ;No -- check for end-of-file
-        JMP     SHORT EACHCLUS          ;Continue processing
-LASTCLUS:
-        CMP     DI,0FF8H                ;End-of-file?
-        JAE     NXTCHK                  ;Yes -- go report the results
-        INC     AX                      ;No -- found a fragement
-        JMP     SHORT EACHCLUS          ;Continue processing
-
-NXTCHK:
-        OR      AX,AX
-        JZ      GETNXT
-        MOV     [FRAGMENT],2            ;Signal that we output at least one file
-        PUSH    AX                      ;Save count of fragments
-        MOV     SI,[FATMAP]
-        INC     SI
-        CALL    PRINTTHISEL2
-        CALL    DOCRLF
-        MOV     DX,OFFSET DG:CONTAINS   ;Print message
-        CALL    PRINT
-        POP     SI                      ;Number of fragments found
-        INC     SI                      ;Number non-contig blocks
-        XOR     DI,DI
-        MOV     BX,OFFSET DG:EXTENTS
-        PUSH    BP
-        CALL    DISP16BITS
-        POP     BP
-GETNXT:
-        MOV     AH,DIR_SEARCH_NEXT              ;Look for the next file
-        JMP     FRAGCHK
-
-MSGCHK:
-        CMP     AH,DIR_SEARCH_FIRST
-        JNZ     FILSPOK
-        MOV     SI,FCB + 1              ;File not found error
-        CALL    PRINTTHISEL2
-        CALL    DOCRLF
-        MOV     DX,OFFSET DG:OPNERR
-        CALL    PRINT                   ;Bad file spec
-        RET
-FILSPOK:
-        CMP     BYTE PTR [FRAGMENT],2
-        JZ      CDONE
-        MOV     DX,OFFSET DG:NOEXTENTS
-        CALL    PRINT
-CDONE:
-        RET
-
-
-FIGREC:
-;Convert cluster number in BX to sector # AH of cluster in DX
-        LDS     DI,[THISDPB]
-ASSUME  DS:NOTHING
-        MOV     CL,[DI.dpb_cluster_shift]
-        MOV     DX,BX
-        DEC     DX
-        DEC     DX
-        SHL     DX,CL
-        OR      DL,AH
-        ADD     DX,[DI.dpb_first_sector]
-        PUSH    CS
-        POP     DS
-ASSUME  DS:DG
-        RET
-
-
-SUBTTL  PRINTID - Print Volume ID info
-PAGE
-PRINTID:
-ASSUME  DS:DG
-        MOV     DX,OFFSET DG:INTERNATVARS
-        MOV     AX,INTERNATIONAL SHL 8
-        INT     21H
-        MOV     [DISPFLG],1             ;Don't sub spaces for leading zeros
-        MOV     SI,OFFSET DG:FAT + 8
-        MOV     DI,OFFSET DG:VNAME
-        MOV     CX,11
-        REP     MOVSB
-        MOV     DX,OFFSET DG:IDMES1
-        CALL    PRINT                   ;Print ID message
-        ADD     SI,13
-        LODSW                           ;Get date
-        PUSH    SI
-        MOV     DX,AX
-        MOV     AX,[INTERNATVARS.Date_tim_format]
-        OR      AX,AX
-        JZ      USPDAT
-        DEC     AX
-        JZ      EUPDAT
-        CALL    P_YR
-        CALL    P_DSEP
-        CALL    P_MON
-        CALL    P_DSEP
-        MOV     CX,1000H                ;Do not supress leading zeroes
-        CALL    P_DAY
-        JMP     P_TIME
-
-USPDAT:
-        CALL    P_MONTH_NAM
-        MOV     CX,1110H                ;Supress at most 1 leading 0
-        CALL    P_DAY
-        PUSH    DX
-        MOV     DL,','
-        CALL    PRTCHR
-        MOV     DL,' '
-        CALL    PRTCHR
-        POP     DX
-PYA:
-        CALL    P_YR
-        JMP     P_TIME
-
-EUPDAT:
-        MOV     CX,1110H                ;Supress at most 1 leading 0
-        CALL    P_DAY
-        PUSH    DX
-        MOV     DL,' '
-        CALL    PRTCHR
-        POP     DX
-        CALL    P_MONTH_NAM
-        JMP     PYA
-
-P_DSEP:
-        PUSH    DX
-        MOV     DL,[INTERNATVARS.Date_sep]
-        CALL    PRTCHR
-        POP     DX
-        RET
-
-P_MONTH_NAM:
-        MOV     AX,DX
-        PUSH    DX
-        MOV     CL,5
-        SHR     AX,CL
-        AND     AX,0FH                  ;Month in AX
-        DEC     AX                      ;Make 0 indexed
-        MOV     CX,AX
-        SHL     AX,1
-        ADD     AX,CX                   ;Mult by 3 chars/mo
-        MOV     SI,OFFSET DG:MONTAB
-        ADD     SI,AX
-        LODSB
-        MOV     DL,AL
-        CALL    PRTCHR
-        LODSB
-        MOV     DL,AL
-        CALL    PRTCHR
-        LODSB
-        MOV     DL,AL
-        CALL    PRTCHR
-        MOV     DL,' '
-        CALL    PRTCHR
-        POP     DX
-        RET
-
-P_MON:
-        MOV     SI,DX
-        PUSH    DX
-        MOV     CL,5
-        SHR     SI,CL
-        AND     SI,0FH                  ;Month in SI
-        CALL    CONVERT
-        MOV     DL,AL
-        MOV     CX,1000H                ;Do not supress leading 0
-        CALL    OUTBYTE                 ;Print month
-        POP     DX
-        RET
-
-P_DAY:
-        MOV     SI,DX
-        PUSH    DX
-        PUSH    CX
-        AND     SI,01FH                 ;SI has day
-        CALL    CONVERT
-        POP     CX
-        MOV     DL,AL
-        CALL    OUTBYTE                 ;Print day
-        POP     DX
-        RET
-
-P_YR:
-        MOV     SI,DX
-        PUSH    DX
-        MOV     CL,9
-        SHR     SI,CL
-        AND     SI,07FH                 ;SI has raw year
-        ADD     SI,1980                 ;Real year
-        CALL    CONVERT
-        MOV     CX,1000H                ;Do not supress leading zeros
-        CALL    OUTWORD                 ;Print year
-        POP     DX
-        RET
-
-P_TIME:
-        MOV     DL,' '
-        CALL    PRTCHR
-        POP     SI
-        ADD     SI,-4
-        LODSW                           ;Get time
-        MOV     DI,AX
-        MOV     SI,DI
-        MOV     CL,11
-        SHR     SI,CL
-        AND     SI,01FH                 ;SI has hour
-        CMP     [INTERNATVARS.Time_24],0
-        JNZ     ISOK2                   ;24 hour time?
-        CMP     SI,12
-        JB      ISOK                    ;Is AM
-        MOV     [TCHAR],'p'
-        JZ      ISOK                    ;Is 12-1p
-        SUB     SI,12                   ;Is PM
-ISOK:
-        OR      SI,SI
-        JNZ     ISOK2
-        MOV     SI,12                   ;0 is 12a
-ISOK2:
-        CALL    CONVERT
-        MOV     CX,1110H                ;Supress at most 1 leading 0
-        MOV     DL,AL
-        CALL    OUTBYTE                 ;Print hour
-        MOV     DL,BYTE PTR [INTERNATVARS.Time_sep]
-        CALL    PRTCHR
-        MOV     SI,DI
-        MOV     CL,5
-        SHR     SI,CL
-        AND     SI,03FH                 ;SI has minute
-        CALL    CONVERT
-        MOV     CX,1000H                ;Do not supress leading zeroes
-        MOV     DL,AL
-        CALL    OUTBYTE                 ;Print minute
-        MOV     DL,[TCHAR]
-        CMP     [INTERNATVARS.Time_24],0
-        JNZ     NOAP                    ;24 hour time, no a or p
-        CALL    PRTCHR                  ;Print a or p
-NOAP:
-        MOV     DX,OFFSET DG:IDPOST
-        CALL    PRINT
-        MOV     [DISPFLG],0
-        RET
-
-CONVERT:
-        MOV     CX,16
-        XOR     AX,AX
-CNVLOOP:
-        SHL     SI,1
-        CALL    CONVWRD
-        CLC
-        LOOP    CNVLOOP
-        RET
-
-SUBTTL  Misc Routines - Mostly I/O
-PAGE
-CONVWRD:
-        ADC     AL,AL
-        DAA
-        XCHG    AL,AH
-        ADC     AL,AL
-        DAA
-        XCHG    AL,AH
-RET1:   RET
-
-UNSCALE:
-        SHR     CX,1
-        JC      RET1
-        SHL     SI,1
-        RCL     DI,1
-        JMP     SHORT UNSCALE
-
-DISP16BITS:
-        MOV     BYTE PTR DISPFLG,1
-        JMP     SHORT DISP32BITS
-
-DISPCLUS:
-        MUL     [SSIZE]
-        MOV     CL,[CSIZE]
-        XOR     CH,CH
-        MOV     SI,AX
-        MOV     DI,DX
-        CALL    UNSCALE
-
-DISP32BITS:
-        PUSH    BP
-        PUSH    BX
-        XOR     AX,AX
-        MOV     BX,AX
-        MOV     BP,AX
-        MOV     CX,32
-CONVLP:
-        SHL     SI,1
-        RCL     DI,1
-        XCHG    AX,BP
-        CALL    CONVWRD
-        XCHG    AX,BP
-        XCHG    AX,BX
-        CALL    CONVWRD
-        XCHG    AX,BX
-        ADC     AL,0
-        LOOP    CONVLP
-        ; Conversion complete
-        MOV     CX,1310H        ;Print 3-digit number with 2 leading blanks
-        CMP     BYTE PTR DISPFLG,0
-        JNZ     FOURDIG
-        MOV     CX,1810H        ;Print 8-digit number with 2 leading blanks
-        XCHG    DX,AX
-        CALL    DIGIT
-        XCHG    AX,BX
-        CALL    OUTWORD
-FOURDIG:
-        MOV     AX,BP
-        CALL    OUTWORD
-        MOV     BYTE PTR DISPFLG,0
-        POP     DX
-        CALL    PRINT
-        POP     BP
-        RET
-
-OUTWORD:
-        PUSH    AX
-        MOV     DL,AH
-        CALL    OUTBYTE
-        POP     DX
-OUTBYTE:
-        MOV     DH,DL
-        SHR     DL,1
-        SHR     DL,1
-        SHR     DL,1
-        SHR     DL,1
-        CALL    DIGIT
-        MOV     DL,DH
-DIGIT:
-        AND     DL,0FH
-        JZ      BLANKZER
-        MOV     CL,0
-BLANKZER:
-        DEC     CH
-        AND     CL,CH
-        OR      DL,30H
-        SUB     DL,CL
-        CMP     BYTE PTR DISPFLG,0
-        JZ      PRTCHR
-        CMP     DL,30H
-        JL      RET2
-PRTCHR:
-        MOV     AH,STD_CON_OUTPUT
-        INT     21H
-RET2:   RET
-
-PRINTCNT:
-        LODSB
-        MOV     DL,AL
-        INT     21H
-        LOOP    PRINTCNT
-        RET
-
-EPRINT:
-        CALL    CHECKERR
-        JNZ     RET$1
-        JMP     SHORT PRINT
-
-DOCRLF:
-        MOV     DX,OFFSET DG:CRLF
-PRINT:
-        MOV     AH,STD_CON_STRING_OUTPUT
-        INT     21H
-RET$1:  RET
-
-DOTCOMBMES:
-        CMP     [NOISY],0
-        JZ      SUBERRP
-        PUSH    DX
-        CALL    PRINTCURRDIRERR
-        MOV     DX,OFFSET DG:CENTRY
-        CALL    EPRINT
-        POP     DX
-        CALL    EPRINT
-        CALL    DOCRLF
-        RET
-
-SUBERRP:
-        MOV     AL,1
-        XCHG    AL,[ERRSUB]
-        CMP     AL,0
-        JNZ     RET32
-        MOV     SI,OFFSET DG:NUL
-        CALL    PRINTCURRDIRERR
-        MOV     DX,OFFSET DG:BADSUBDIR
-        CALL    EPRINT
-RET32:  RET
-
-
-FCB_TO_ASCZ:                            ;Convert DS:SI to ASCIIZ ES:DI
-        MOV     CX,8
-MAINNAME:
-        LODSB
-        CMP     AL,' '
-        JZ      SKIPSPC
-        STOSB
-SKIPSPC:
-        LOOP    MAINNAME
-        LODSB
-        CMP     AL,' '
-        JZ      GOTNAME
-        MOV     AH,AL
-        MOV     AL,'.'
-        STOSB
-        XCHG    AL,AH
-        STOSB
-        MOV     CL,2
-EXTNAME:
-        LODSB
-        CMP     AL,' '
-        JZ      GOTNAME
-        STOSB
-        LOOP    EXTNAME
-
-GOTNAME:
-        XOR     AL,AL
-        STOSB
-        RET
-
-CODE    ENDS
-        END     CHKDSK
-

v2.0/source/CHKMES.ASM

@@ -1,477 +0,0 @@
-TITLE   CHKDSK Messages
-
-FALSE   EQU     0
-TRUE    EQU     NOT FALSE
-
-.xlist
-.xcref
-        INCLUDE DOSSYM.ASM
-;The DOST: prefix is a DEC TOPS/20 directory prefix. Remove it for
-;   assembly in MS-DOS assembly environments using MASM. The DOSSYM.ASM
-;   file must exist though, it is included with OEM distribution.
-.cref
-.list
-CODE    SEGMENT PUBLIC BYTE
-CODE    ENDS
-
-CONST   SEGMENT PUBLIC BYTE
-        EXTRN   HIDSIZ:WORD,HIDCNT:WORD,DIRCNT:WORD,DIRSIZ:WORD,FILCNT:WORD
-        EXTRN   FILSIZ:WORD,ORPHCNT:WORD,ORPHSIZ:WORD,BADSIZ:WORD,LCLUS:WORD
-        EXTRN   DOFIX:BYTE
-CONST   ENDS
-
-DATA    SEGMENT PUBLIC BYTE
-        EXTRN   DSIZE:WORD
-DATA    ENDS
-
-DG      GROUP   CODE,CONST,DATA
-
-
-CODE    SEGMENT PUBLIC BYTE
-ASSUME  CS:DG,DS:DG,ES:DG,SS:DG
-
-        PUBLIC  RDSKERR,WDSKERR,SETSWITCH,PROMPTYN,DOINT26,CHAINREPORT,REPORT
-        EXTRN   RDONE:NEAR,PRTCHR:NEAR,PRINT:NEAR,DOCRLF:NEAR
-        EXTRN   DISP16BITS:NEAR,FINDCHAIN:NEAR
-        EXTRN   DISP32BITS:NEAR,DISPCLUS:NEAR
-
-DOINT26:
-        PUSH    CX
-        PUSH    AX
-        PUSH    DX
-        PUSH    BX
-        INT     26H
-        MOV     [HECODE],AL
-        POP     AX                      ;FLAGS
-        POP     BX
-        POP     DX
-        POP     AX
-        POP     CX
-        JNC     RET23
-        MOV     SI,OFFSET DG:WRITING
-        CALL    DSKERR
-        JZ      DOINT26
-RET23:  RET
-
-RDSKERR:
-        MOV     SI,OFFSET DG:READING
-        JMP     SHORT DSKERR
-
-WDSKERR:
-        MOV     SI,OFFSET DG:WRITING
-DSKERR:
-        PUSH    AX
-        PUSH    BX
-        PUSH    CX
-        PUSH    DX
-        PUSH    DI
-        PUSH    ES
-        MOV     AL,[HECODE]
-        CMP     AL,12
-        JBE     HAVCOD
-        MOV     AL,12
-HAVCOD:
-        XOR     AH,AH
-        MOV     DI,AX
-        SHL     DI,1
-        MOV     DX,WORD PTR [DI+MESBAS] ; Get pointer to error message
-        CALL    PRINT          ; Print error type
-        MOV     DX,OFFSET DG:ERRMES
-        CALL    PRINT
-        MOV     DX,SI
-        CALL    PRINT
-        MOV     DX,OFFSET DG:DRVMES
-        CALL    PRINT
-ASK:
-        MOV     DX,OFFSET DG:REQUEST
-        CALL    PRINT
-        MOV     AX,(STD_CON_INPUT_FLUSH SHL 8)+STD_CON_INPUT
-        INT     21H             ; Get response
-        PUSH    AX
-        CALL    DOCRLF
-        POP     AX
-        OR      AL,20H          ; Convert to lower case
-        CMP     AL,"i"          ; Ignore?
-        JZ      EEXITNZ
-        CMP     AL,"r"          ; Retry?
-        JZ      EEXIT
-        CMP     AL,"a"          ; Abort?
-        JNZ     ASK
-        JMP     RDONE
-
-EEXITNZ:
-        OR      AL,AL           ; Resets zero flag
-EEXIT:
-        POP     ES
-        POP     DI
-        POP     DX
-        POP     CX
-        POP     BX
-        POP     AX
-        RET
-
-PROMPTYN:
-;Prompt message in DX
-;Prompt user for Y or N answer. Zero set if Y
-        PUSH    SI
-        CALL    PRINT
-PAGAIN:
-        MOV     DX,OFFSET DG:YES_NO
-        CALL    PRINT
-        MOV     DX,OFFSET DG:CONBUF
-        MOV     AH,STD_CON_STRING_INPUT
-        INT     21H
-        CALL    DOCRLF
-        MOV     SI,OFFSET DG:CONBUF+2
-        CMP     BYTE PTR [SI-1],0
-        JZ      PAGAIN
-        LODSB
-        OR      AL,20H          ;Convert to lower case
-        CMP     AL,'y'
-        JZ      GOTANS
-        CMP     AL,'n'
-        JZ      GOTNANS
-        JMP     PAGAIN
-GOTNANS:
-        OR      AL,AL           ;Reset zero
-GOTANS:
-        POP     SI
-        RET
-
-SETSWITCH:
-;Look for F or V switch in command line
-        MOV     SI,80H
-        LODSB
-        MOV     DI,SI
-        MOV     CL,AL
-        XOR     CH,CH
-        JCXZ    RET10           ;No parameters
-        MOV     AL,[SWITCHAR]
-MORESCAN:
-        REPNZ   SCASB
-        JNZ     RET10
-        JCXZ    BADSWITCHA
-        MOV     AH,[DI]
-        INC     DI
-        OR      AH,20H          ;Convert to lower case
-        CMP     AH,'f'
-        JNZ     CHECKV
-        INC     [DOFIX]
-        JMP     SHORT CHEKMORE
-CHECKV:
-        CMP     AH,'v'
-        JZ      SETNOISY
-        CALL    BADSWITCH
-        JMP     SHORT CHEKMORE
-SETNOISY:
-        INC     [NOISY]
-CHEKMORE:
-        LOOP    MORESCAN
-        RET
-
-BADSWITCHA:
-        MOV     AH,' '                  ;Print a non switch
-BADSWITCH:
-        PUSH    AX
-        MOV     DL,[SWITCHAR]
-        CALL    PRTCHR
-        POP     AX
-        PUSH    AX
-        MOV     DL,AH
-        CALL    PRTCHR
-        MOV     DX,OFFSET DG:BADSWMES
-        CALL    PRINT
-        POP     AX
-RET10:  RET
-
-
-;**************************************
-; Prints XXX lost clusters found in YYY chains message
-; On entry SI is the XXX value and the YYY value is
-; in ORPHCNT.
-; NOTE:
-;       The DISP16BITS routine prints the number in DI:SI followed
-;          by the message pointed to by BX. If it is desired to
-;          print a message before the first number, point at the
-;          message with DX and call PRINT.
-
-CHAINREPORT:
-        XOR     DI,DI
-        MOV     BX,OFFSET DG:ORPHMES2
-        CALL    DISP16BITS
-        CALL    FINDCHAIN
-        MOV     BX,OFFSET DG:CHNUMMES
-        MOV     SI,[ORPHCNT]
-        XOR     DI,DI
-        CALL    DISP16BITS              ;Tell user how many chains found
-        RET
-
-;*****************************************
-;Prints all of the reporting data
-;NOTE:
-;       The DISPCLUS, DISP16BITS and DISP32BITS routines
-;          print the number in DI:SI followed
-;          by the message pointed to by BX. If it is desired to
-;          print a message before the first number, point at the
-;          message with DX and call PRINT.
-
-REPORT:
-        MOV     AX,[DSIZE]
-        MOV     BX,OFFSET DG:DSKSPC
-        CALL    DISPCLUS                ;Total size
-        CMP     [HIDCNT],0
-        JZ      USERLIN
-        MOV     AX,[HIDSIZ]             ;Hidden files
-        MOV     BX,OFFSET DG:INMES
-        CALL    DISPCLUS
-        MOV     SI,[HIDCNT]
-        XOR     DI,DI
-        MOV     BX,OFFSET DG:HIDMES
-        CALL    DISP16BITS
-USERLIN:
-        CMP     [DIRCNT],0
-        JZ      DIRLIN
-        MOV     AX,[DIRSIZ]
-        MOV     BX,OFFSET DG:INMES
-        CALL    DISPCLUS
-        MOV     SI,[DIRCNT]
-        XOR     DI,DI
-        MOV     BX,OFFSET DG:DIRMES
-        CALL    DISP16BITS
-DIRLIN:
-        CMP     [FILCNT],0
-        JZ      ORPHLIN
-        MOV     AX,[FILSIZ]             ;Regular files
-        MOV     BX,OFFSET DG:INMES
-        CALL    DISPCLUS
-        MOV     SI,[FILCNT]
-        XOR     DI,DI
-        MOV     BX,OFFSET DG:FILEMES
-        CALL    DISP16BITS
-ORPHLIN:
-        MOV     AX,[ORPHSIZ]
-        OR      AX,AX
-        JZ      BADLIN
-        MOV     BX,OFFSET DG:INMES      ;Orphans
-        CMP     [DOFIX],0
-        JNZ     ALLSET1
-        MOV     BX,OFFSET DG:INMES2     ;Orphans
-ALLSET1:
-        CALL    DISPCLUS
-        MOV     SI,[ORPHCNT]
-        XOR     DI,DI
-        MOV     BX,OFFSET DG:ORPHMES
-        CALL    DISP16BITS
-BADLIN:
-        MOV     AX,[BADSIZ]
-        OR      AX,AX
-        JZ      AVAILIN
-        MOV     BX,OFFSET DG:BADSPC     ;Bad sectors
-        CALL    DISPCLUS
-AVAILIN:
-        MOV     AX,[DSIZE]
-        SUB     AX,[DIRSIZ]
-        SUB     AX,[FILSIZ]
-        SUB     AX,[HIDSIZ]
-        SUB     AX,[BADSIZ]
-        SUB     AX,[ORPHSIZ]
-        SUB     AX,[LCLUS]
-        MOV     BX,OFFSET DG:FRESPC
-        CALL    DISPCLUS                ;Free space is whats left
-        MOV     AX,DS:WORD PTR [2]      ;Find out about memory
-        MOV     DX,16
-        MUL     DX
-        MOV     SI,AX
-        MOV     DI,DX
-        MOV     BX,OFFSET DG:TOTMEM
-        CALL    DISP32BITS
-        MOV     AX,DS:WORD PTR [2]
-        MOV     DX,CS
-        SUB     AX,DX
-        MOV     DX,16
-        MUL     DX
-        MOV     SI,AX
-        MOV     DI,DX
-        MOV     BX,OFFSET DG:FREMEM
-        CALL    DISP32BITS
-        RET
-
-CODE    ENDS
-
-
-CONST   SEGMENT PUBLIC BYTE
-
-        EXTRN   HECODE:BYTE,SWITCHAR:BYTE,NOISY:BYTE,DOFIX:BYTE,CONBUF:BYTE
-
-        PUBLIC  CRLF2,CRLF,BADVER,BADDRV
-        PUBLIC  BADSUBDIR,CENTRY,CLUSBAD,BADATT,BADSIZM
-        PUBLIC  FIXMES,DIRECMES,CDDDMES
-        PUBLIC  FREEBYMESF_PRE,FREEBYMES_PRE,FREEBYMESF_POST,FREEBYMES_POST
-        PUBLIC  CREATMES,NDOTMES
-        PUBLIC  BADTARG1,BADTARG2,BADCD,FATALMES,BADRDMES
-        PUBLIC  BADDRVM,STACKMES,BADDPBDIR
-        PUBLIC  BADDRVM2
-        PUBLIC  NULNZ,NULDMES,BADCLUS,NORECDOT
-        PUBLIC  NORECDDOT,IDMES1,IDPOST,VNAME,TCHAR
-        PUBLIC  MONTAB,BADREAD_PRE,BADREAD_POST,BADWRITE_PRE
-        PUBLIC  BADWRITE_POST,BADCHAIN,CROSSMES_PRE,CROSSMES_POST
-        PUBLIC  FREEMES
-        PUBLIC  OPNERR
-        PUBLIC  CONTAINS,EXTENTS,NOEXTENTS,INDENT
-        PUBLIC  BADIDBYT,PTRANDIR,PTRANDIR2
-
-
-MESBAS  DW      OFFSET DG:ERR0
-        DW      OFFSET DG:ERR1
-        DW      OFFSET DG:ERR2
-        DW      OFFSET DG:ERR3
-        DW      OFFSET DG:ERR4
-        DW      OFFSET DG:ERR5
-        DW      OFFSET DG:ERR6
-        DW      OFFSET DG:ERR7
-        DW      OFFSET DG:ERR8
-        DW      OFFSET DG:ERR9
-        DW      OFFSET DG:ERR10
-        DW      OFFSET DG:ERR11
-        DW      OFFSET DG:ERR12
-
-CRLF2   DB      13,10
-CRLF    DB      13,10,"$"
-
-;Messages
-
-BADVER  DB      "Incorrect DOS version",13,10,"$"
-BADDRV  DB      "Invalid drive specification$"
-
-BADSWMES  DB     " Invalid parameter",13,10,"$"
-
-BADSUBDIR DB    "   Invalid sub-directory entry.",13,10,"$"
-CENTRY  DB      "   Entry has a bad $"
-CLUSBAD DB      " link$"
-BADATT  DB      " attribute$"
-BADSIZM DB      " size$"
-
-;"BADTARG1<name of dir followed by CR LF>BADTARG2"
-BADTARG1 DB     "Cannot CHDIR to $"
-BADTARG2 DB     "   tree past this point not processed.",13,10,"$"
-
-BADCD   DB      "Cannot CHDIR to root",13,10,"$"
-
-FATALMES DB     "Processing cannot continue.",13,10,"$"
-BADRDMES DB     "File allocation table bad drive "
-BADDRVM  DB     "A.",13,10,"$"
-STACKMES DB     "Insufficient memory.",13,10,"$"
-BADDPBDIR DB    "Invalid current directory.",13,10,"$"
-
-;INT 24 MESSAGE SHOULD AGREE WITH COMMAND
-
-READING DB      "read$"
-WRITING DB      "writ$"
-ERRMES  DB      " error $"
-DRVMES  DB      "ing drive "
-BADDRVM2  DB    "A",13,10,"$"
-REQUEST DB      "Abort, Retry, Ignore? $"
-ERR0    DB      "Write protect$"
-ERR1    DB      "Bad unit$"
-ERR2    DB      "Not ready$"
-ERR3    DB      "Bad command$"
-ERR4    DB      "Data$"
-ERR5    DB      "Bad call format$"
-ERR6    DB      "Seek$"
-ERR7    DB      "Non-DOS disk$"
-ERR8    DB      "Sector not found$"
-ERR9    DB      "No paper$"
-ERR10   DB      "Write fault$"
-ERR11   DB      "Read fault$"
-ERR12   DB      "Disk$"
-
-
-NDOTMES DB      "   Does not exist.",13,10,"$"
-NULNZ   DB      "   First cluster number is invalid,",13,10
-        DB      "    entry truncated.",13,10,"$"
-NULDMES DB      "   Directory is totally empty, no . or ..",13,10,"$"
-BADCLUS DB      "   Allocation error, size adjusted.",13,10,"$"
-NORECDOT DB     "   Cannot recover . entry, processing continued.",13,10,"$"
-NORECDDOT DB    "   Cannot recover .. entry,"
-
-;VOLUME ID
-
-;"IDMES1/name at VNAME<date and time>IDPOST"
-IDPOST  DB      13,10,"$"               ;WARNING this is currently the tail of
-                                        ; the previos message!!!
-IDMES1  DB      "Volume "
-VNAME   DB      12 DUP(' ')
-        DB      "created $"
-TCHAR   DB      'a'
-MONTAB  DB      "JanFebMarAprMayJunJulAugSepOctNovDec"
-
-
-
-;"BADREAD_PRE<# of FAT>BADREAD_POST"
-BADREAD_PRE DB      "Disk error reading FAT $"
-
-;"BADWRITE_PRE<# of FAT>BADWRITE_POST"
-BADWRITE_PRE DB     "Disk error writing FAT $"
-
-BADCHAIN DB     "   Has invalid cluster, file truncated."
-
-BADREAD_POST    LABEL   BYTE
-BADWRITE_POST   LABEL   BYTE
-
-;"<name of file followed by CR LF>CROSSMES_PRE<# of cluster>CROSSMES_POST"
-CROSSMES_POST   DB  13,10,"$"           ;WARNING Is tail of previos messages
-CROSSMES_PRE    DB  "   Is cross linked on cluster $"
-
-;CHAINREPORT messages
-ORPHMES2 DB     " lost clusters found in $"
-CHNUMMES DB     " chains.",13,10,"$"
-
-FREEMES DB      "Convert lost chains to files $"
-
-;REPORT messages
-ORPHMES DB      " recovered files",13,10,"$"
-DSKSPC  DB      " bytes total disk space",13,10,"$"
-INMES   DB      " bytes in $"
-INMES2  DB      " bytes would be in",13,10
-        DB      "          $"
-FILEMES DB      " user files",13,10,"$"
-BADSPC  DB      " bytes in bad sectors",13,10,"$"
-HIDMES  DB      " hidden files",13,10,"$"
-DIRMES  DB      " directories",13,10,"$"
-FRESPC  DB      " bytes available on disk",13,10,13,10,"$"
-TOTMEM  DB      " bytes total memory",13,10,"$"
-FREMEM  DB      " bytes free",13,10,13,10,"$"
-
-;"<filename followed by CR LF>CONTAINS<# non-contig blocks>EXTENTS"
-CONTAINS DB     "   Contains $"
-EXTENTS DB      " non-contiguous blocks.",13,10,"$"
-
-NOEXTENTS DB    "All specified file(s) are contiguous.",13,10,"$"
-INDENT  DB      "      $"
-
-BADIDBYT DB     "Probable non-DOS disk."
-        DB      13,10,"Continue $"
-YES_NO  DB      "(Y/N)? $"
-PTRANDIR DB     "   Unrecoverable error in directory.",13,10
-PTRANDIR2 DB    "   Convert directory to file $"
-FIXMES  DB      13,10,"Errors found, F parameter not specified."
-        DB      13,10,"Corrections will not be written to disk.",13,10,13,10,"$"
-DIRECMES DB     "Directory $"
-CDDDMES DB      "   CHDIR .. failed, trying alternate method.",13,10,"$"
-
-
-FREEBYMESF_POST DB   " bytes disk space freed.",13,10
-FREEBYMESF_PRE  DB   "$"
-FREEBYMES_POST  DB   " bytes disk space",13,10
-                DB   "          would be freed.",13,10
-FREEBYMES_PRE   DB   "$"
-
-
-CREATMES DB     "Insufficient room in root directory."
-        DB      13,10,"Erase files in root and repeat CHKDSK.",13,10,"$"
-OPNERR  DB      "   File not found.",13,10,"$"
-
-
-CONST   ENDS
-        END
-

v2.0/source/COMEQU.ASM

@@ -1,33 +0,0 @@
-;*************************************
-; COMMAND EQUs which are not switch dependant
-
-IFDEF   IBM
-        INCLUDE IFEQU.ASM
-ENDIF
-
-
-SYM     EQU     ">"
-
-LINPERPAG       EQU     23
-NORMPERLIN      EQU     1
-WIDEPERLIN      EQU     5
-COMBUFLEN       EQU     128     ; Length of commmand buffer
-
-DRVCHAR         EQU     ":"
-
-FCB     EQU     5CH
-
-VARSTRUC        STRUC
-ISDIR   DB      ?
-SIZ     DB      ?
-TTAIL   DW      ?
-INFO    DB      ?
-BUF     DB      DIRSTRLEN + 20 DUP (?)
-VARSTRUC        ENDS
-
-WSWITCH EQU     1               ; Wide display during DIR
-PSWITCH EQU     2               ; Pause (or Page) mode during DIR
-ASWITCH EQU     4               ; ASCII mode during COPY
-BSWITCH EQU     8               ; Binary mode during COPY
-VSWITCH EQU     10H             ; Verify switch
-GOTSWITCH EQU   8000H           ; Meta switch set if switch character encountered

v2.0/source/COMMAND.ASM

@@ -1,788 +0,0 @@
-;
-; This version of COMMAND is divided into three distinct parts.  First is the
-; resident portion, which includes handlers for interrupts 22H (terminate),
-; 23H (Cntrl-C), 24H (fatal error), and 27H (stay resident); it also has code
-; to test and, if necessary, reload the transient portion.  Following the
-; resident is the init code, which is overwritten after use.  Then comes the
-; transient portion, which includes all command processing (whether internal
-; or external).  The transient portion loads at the end of physical memory,
-; and it may be overlayed by programs that need as much memory as possible.
-; When the resident portion of command regains control from a user program, a
-; checksum is performed on the transient portion to see if it must be
-; reloaded.  Thus programs which do not need maximum memory will save the time
-; required to reload COMMAND when they terminate.
-
-;
-; REV 1.17
-;    05/19/82   Fixed bug in BADEXE error (relocation error must return to
-;               resident since the EXELOAD may have overwritten the transient.
-; REV 1.18
-;    05/21/82   IBM version always looks on drive A
-;               MSVER always looks on default drive
-;
-; REV 1.19
-;    06/03/82   Drive spec now entered in command line
-;    06/07/82   Added VER command (print DOS version number) and VOL command
-;               (print volume label)
-; REV 1.20
-;    06/09/82   Prints "directory" after directories
-;    06/13/82   MKDIR, CHDIR, PWD, RMDIR added
-; REV 1.50
-;               Some code for new 2.0 DOS, sort of HACKey.  Not enough time to
-;               do it right.
-; REV 1.70
-;               EXEC used to fork off new processes
-; REV 1.80
-;               C switch for single command execution
-; REV 1.90
-;               Batch uses XENIX
-; Rev 2.00
-;               Lots of neato stuff
-;               IBM 2.00 level
-; Rev 2.01
-;               'D' switch for date time suppression
-; Rev 2.02
-;               Default userpath is NUL rather than BIN
-;                       same as IBM
-;               COMMAND split into pieces
-; Rev 2.10
-;               INTERNATIONAL SUPPORT
-; Rev 2.11      COMMAND split into more pieces
-
-        INCLUDE DOSSYM.ASM
-        INCLUDE DEVSYM.ASM
-        INCLUDE COMSW.ASM
-        INCLUDE COMEQU.ASM
-
-CODERES SEGMENT PUBLIC
-CODERES ENDS
-
-DATARES SEGMENT PUBLIC BYTE
-        EXTRN   COMBAD:BYTE,NEEDCOM:BYTE,DRVMSG:BYTE
-        EXTRN   DEFMSG:BYTE,PROMPT:BYTE,EXECEMES:BYTE,EXEBAD:BYTE
-        EXTRN   TOOBIG:BYTE,NOCOM:BYTE,RBADNAM:BYTE,INT_2E_RET:DWORD
-        EXTRN   NOHANDMES:BYTE,BMEMMES:BYTE,HALTMES:BYTE,FRETMES:BYTE
-        EXTRN   PARENT:WORD,HANDLE01:WORD,LOADING:BYTE,BATCH:WORD
-        EXTRN   TRNSEG:WORD,COMDRV:BYTE,MEMSIZ:WORD,SUM:WORD,EXTCOM:BYTE
-        EXTRN   IO_SAVE:WORD,PERMCOM:BYTE,SINGLECOM:WORD,VERVAL:WORD
-        EXTRN   PIPEFLAG:BYTE,SAVE_PDB:WORD,COMSPEC:BYTE,TRANS:WORD
-        EXTRN   TRANVARS:BYTE,LTPA:WORD,RSWITCHAR:BYTE,RDIRCHAR:BYTE
-        EXTRN   RETCODE:WORD,FORFLAG:BYTE
-
-        IF      IBMVER
-        EXTRN   SYS_CALL:DWORD,ZEXEC:WORD,EXESEG:WORD,EXESUM:WORD
-        EXTRN   USER_SS:WORD,USER_SP:WORD
-        ENDIF
-
-DATARES ENDS
-
-ENVIRONMENT SEGMENT PUBLIC PARA        ; Default COMMAND environment
-ENVIRONMENT ENDS
-
-INIT    SEGMENT PUBLIC PARA
-        EXTRN   CONPROC:NEAR
-INIT    ENDS
-
-TAIL    SEGMENT PUBLIC PARA
-TAIL    ENDS
-
-TRANCODE        SEGMENT PUBLIC PARA
-TRANCODE        ENDS
-
-TRANDATA        SEGMENT PUBLIC BYTE
-        EXTRN   TRANDATAEND:BYTE
-TRANDATA        ENDS
-
-TRANSPACE       SEGMENT PUBLIC BYTE
-        EXTRN   TRANSPACEEND:BYTE,HEADCALL:DWORD
-TRANSPACE       ENDS
-
-TRANTAIL        SEGMENT PUBLIC PARA
-TRANTAIL        ENDS
-
-ZEXEC_CODE      SEGMENT PUBLIC PARA
-ZEXEC_CODE      ENDS
-
-ZEXEC_DATA      SEGMENT PUBLIC BYTE
-ZEXEC_DATA      ENDS
-
-RESGROUP        GROUP   CODERES,DATARES,ENVIRONMENT,INIT,TAIL
-TRANGROUP       GROUP   TRANCODE,TRANDATA,TRANSPACE,TRANTAIL
-EGROUP          GROUP   ZEXEC_CODE,ZEXEC_DATA
-
-ENVIRONMENT SEGMENT PUBLIC PARA        ; Default COMMAND environment
-
-        PUBLIC  ECOMSPEC,ENVIREND,PATHSTRING
-
-        ORG     0
-ENVARENA DB     10H DUP (?)     ; Pad for mem arena
-PATHSTRING DB   "PATH="
-USERPATH LABEL  BYTE
-
-        DB      0               ; Null path
-        DB      "COMSPEC="
-ECOMSPEC DB     "/COMMAND.COM"
-        DB      134 DUP (0)
-
-ENVIREND        LABEL   BYTE
-
-ENVIRONSIZ EQU  $-PATHSTRING
-ENVIRONSIZ2 EQU $-ECOMSPEC
-ENVIRONMENT ENDS
-
-
-; START OF RESIDENT PORTION
-
-CODERES SEGMENT PUBLIC
-
-        PUBLIC  GETCOMDSK2,LODCOM,THEADFIX,CONTCTERM,LOADCOM,INT_2E,LODCOM1
-        PUBLIC  CHKSUM,SETVECT,EXT_EXEC,TREMCHECK,RESTHAND,CONTC,RSTACK
-        PUBLIC  SAVHAND
-
-        IF      IBMVER
-        PUBLIC  EXECHK,SYSCALL,EXEC_WAIT
-        ENDIF
-
-ASSUME  CS:RESGROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING
-
-        EXTRN   RPRINT:NEAR,ASKEND:NEAR,DSKERR:NEAR
-
-
-        ORG     0
-ZERO    =       $
-
-        ORG     100H
-
-PROGSTART:
-        JMP     RESGROUP:CONPROC
-
-        DB      (80H - 3) DUP (?)
-RSTACK  LABEL   WORD
-
-IF IBMVER
-SYSCALL:
-        CMP     AH,EXEC
-        JZ      do_exec
-        JMP     DWORD PTR [SYS_CALL]
-
-do_exec:
-        PUSH    ES
-        PUSH    DS
-        PUSH    BP
-        PUSH    DI
-        PUSH    SI
-        PUSH    DX
-        PUSH    CX
-        PUSH    BX
-        PUSH    AX
-        MOV     [user_ss],SS
-        MOV     [user_sp],SP
-;
-; are we running on RSTACK already?
-;
-        PUSH    CS
-        POP     BX              ; BX <- CS
-        PUSH    SS
-        POP     AX              ; AX <- SS
-        CMP     AX,BX           ; IF AX == BX then no stack switch!
-        JZ      Get_mem
-        MOV     SS,BX
-ASSUME  SS:RESGROUP
-        MOV     SP,OFFSET RESGROUP:RSTACK
-
-Get_mem:
-        MOV     BX,0FFFFH       ; allocate all of memory
-        MOV     AH,ALLOC
-        INT     int_command
-        MOV     AX,OFFSET EGROUP:ZEXECDATAEND + 15
-        MOV     CL,4
-        SHR     AX,CL
-        MOV     CX,AX          ; Save in CX
-        CMP     BX,AX          ; enough for EXEC?
-        JB      EXECMER        ; nope... cry
-        MOV     AH,ALLOC
-        INT     int_command
-        JC      EXECMER         ; Memory arenas probably trashed
-        ADD     BX,AX
-        MOV     [MEMSIZ],BX
-        SUB     BX,CX
-        MOV     [EXESEG],BX     ; exec
-        MOV     ES,AX
-        MOV     AH,DEALLOC
-        INT     int_command
-        PUSH    CS
-        POP     DS
-ASSUME  DS:RESGROUP
-        CALL    EXECHK
-        CMP     DX,[EXESUM]
-        JZ      HAVEXEC         ; EXEC OK
-        MOV     DX,OFFSET RESGROUP:COMSPEC
-        MOV     AX,OPEN SHL 8
-        INT     int_command             ; Open COMMAND.COM
-        JC      EXECMER
-        MOV     BX,AX           ; Handle
-        MOV     DX,OFFSET RESGROUP:TRANSTART
-        ADD     DX,OFFSET TRANGROUP:EXECSTART - 100H
-        XOR     CX,CX           ; Seek loc
-        MOV     AX,LSEEK SHL 8
-        INT     int_command
-        MOV     CX,OFFSET EGROUP:ZEXECCODEEND
-        MOV     DS,[EXESEG]
-ASSUME  DS:NOTHING
-        MOV     AH,READ
-        INT     int_command
-        PUSH    AX
-        MOV     AH,CLOSE
-        INT     int_command             ; Close COMMAND.COM
-        POP     CX
-        CMP     CX,OFFSET EGROUP:ZEXECCODEEND
-        JNZ     EXECMER         ; Size matched
-
-        CALL    EXECHK
-        CMP     DX,[EXESUM]
-        JNZ     EXECMER
-HAVEXEC:
-        MOV     [LOADING],0             ; Flag to DSKERR
-        CALL    DWORD PTR [ZEXEC]
-        JMP     SHORT EXECRET
-execmer:
-        LDS     SI,DWORD PTR [user_Sp]
-        MOV     [SI.user_AX],exec_not_enough_memory
-        PUSH    [SI.user_F]
-        POPF
-        STC
-        PUSHF
-        POP     [SI.user_F]
-execret:
-        MOV     SS,[user_SS]
-ASSUME  SS:NOTHING
-        MOV     SP,[user_SP]
-        POP     AX              ; PUSH    ES
-        POP     BX              ; PUSH    DS
-        POP     CX              ; PUSH    BP
-        POP     DX              ; PUSH    DI
-        POP     SI              ; PUSH    SI
-        POP     DI              ; PUSH    DX
-        POP     BP              ; PUSH    CX
-        POP     DS              ; PUSH    BX
-        POP     ES              ; PUSH    AX
-        IRET
-
-EXECHK:
-ASSUME  DS:NOTHING,ES:NOTHING,SS:NOTHING
-        PUSH    DS
-        MOV     DS,[EXESEG]
-        MOV     CX,OFFSET EGROUP:ZEXECCODEEND
-        XOR     SI,SI
-        JMP     CHECK_SUM
-ENDIF
-
-EXEC_ERR:                       ; Select the correct error message
-        MOV     DX,OFFSET RESGROUP:RBADNAM
-        CMP     AX,exec_file_not_found
-        JZ      GOTEXECEMES
-        CMP     AX,error_access_denied
-        JZ      GOTEXECEMES
-        MOV     DX,OFFSET RESGROUP:TOOBIG
-        CMP     AX,exec_not_enough_memory
-        JZ      GOTEXECEMES
-        MOV     DX,OFFSET RESGROUP:EXEBAD
-        CMP     AX,exec_bad_format
-        JZ      GOTEXECEMES
-        MOV     DX,OFFSET RESGROUP:EXECEMES
-GOTEXECEMES:
-        PUSH    CS
-        POP     DS
-        CALL    RPRINT
-        JMP     SHORT NOEXEC
-
-EXT_EXEC:
-;
-; we are now running in free space.  anything we do from here
-; on may get trashed.  Move the stack (also in free space) to
-; allocated space because since EXEC restores the stack,
-; somebody may trash what is on the stack.
-;
-        MOV     CX,CS
-        MOV     SS,CX
-        MOV     SP,OFFSET RESGROUP:RSTACK
-;
-; Oops!! We have to make sure that the EXEC code doesn't blop a newstack!
-;
-;
-        INT     int_command     ; Do the EXEC
-        JC      EXEC_ERR        ; EXEC failed
-EXEC_WAIT:
-        MOV     AH,WAIT
-        INT     int_command     ; Get the return code
-        MOV     [RETCODE],AX
-NOEXEC:
-        JMP     LODCOM
-
-CONTC:
-        STI
-        MOV     AX,CS
-        MOV     DS,AX
-ASSUME  DS:RESGROUP
-        MOV     AH,DISK_RESET
-        INT     int_command     ; Reset disks in case files were open
-        TEST    [BATCH],-1
-        JZ      CONTCTERM
-        JMP     ASKEND          ; See if user wants to terminate batch
-CONTCTERM:
-        XOR     BP,BP           ; Indicate no read
-        MOV     [FORFLAG],0     ; Turn off for processing
-        MOV     [PIPEFLAG],0    ; Turn off any pipe
-        CMP     [SINGLECOM],0   ; See if we need to set SINGLECOM
-        JZ      NOSETSING
-        MOV     [SINGLECOM],-1  ; Cause termination on pipe, batch, for
-NOSETSING:
-        CMP     [EXTCOM],0
-        JNZ     DODAB           ; Internal ^C
-        JMP     LODCOM1
-DODAB:
-        STC                     ; Tell DOS to abort
-ZZY     PROC    FAR
-        RET                     ; Leave flags on stack
-ZZY     ENDP
-
-BADMEMERR:                              ; Allocation error loading transient
-        MOV     DX,OFFSET RESGROUP:BMEMMES
-FATALC:
-        PUSH    CS
-        POP     DS
-        CALL    RPRINT
-        CMP     [PERMCOM],0
-        JZ      FATALRET
-        CMP     [SINGLECOM],0                   ; If PERMCOM and SINGLECOM
-        JNZ     FATALRET                        ; Must take INT_2E exit
-        MOV     DX,OFFSET RESGROUP:HALTMES
-        CALL    RPRINT
-STALL:
-        JMP     STALL                           ; Crash the system nicely
-
-FATALRET:
-        MOV     DX,OFFSET RESGROUP:FRETMES
-        CALL    RPRINT
-FATALRET2:
-        CMP     [PERMCOM],0                     ; If we get here and PERMCOM,
-        JNZ     RET_2E                          ; must be INT_2E
-IF IBM
-        LDS     DX,DWORD PTR [SYS_CALL]
-ASSUME  DS:NOTHING
-        MOV     AX,(SET_INTERRUPT_VECTOR SHL 8) + INT_COMMAND
-        INT     int_command
-ENDIF
-        MOV     AX,[PARENT]
-        MOV     WORD PTR CS:[PDB_Parent_PID],AX
-        MOV     AX,(EXIT SHL 8)                 ; Return to lower level
-        INT     int_command
-
-RET_2E:
-        PUSH    CS
-        POP     DS
-ASSUME  DS:RESGROUP,ES:NOTHING,SS:NOTHING
-        MOV     [SINGLECOM],0   ; Turn off singlecom
-        MOV     ES,[LTPA]
-        MOV     AH,DEALLOC
-        INT     int_command             ; Free up space used by transient
-        MOV     BX,[SAVE_PDB]
-        MOV     AH,SET_CURRENT_PDB
-        INT     int_command             ; Current process is user
-        MOV     AX,[RETCODE]
-        CMP     [EXTCOM],0
-        JNZ     GOTECODE
-        XOR     AX,AX           ; Internals always return 0
-GOTECODE:
-        MOV     [EXTCOM],1      ; Force external
-        JMP     [INT_2E_RET]    ;"IRET"
-
-INT_2E:                         ; Magic command executer
-ASSUME  DS:NOTHING,ES:NOTHING,SS:NOTHING
-        POP     WORD PTR [INT_2E_RET]
-        POP     WORD PTR [INT_2E_RET+2]    ;Get return address
-        POP     AX              ;Chuck flags
-        PUSH    CS
-        POP     ES
-        MOV     DI,80H
-        MOV     CX,64
-        REP     MOVSW
-        MOV     AH,GET_CURRENT_PDB
-        INT     int_command             ; Get user's header
-        MOV     [SAVE_PDB],BX
-        MOV     AH,SET_CURRENT_PDB
-        MOV     BX,CS
-        INT     int_command             ; Current process is me
-        MOV     [SINGLECOM],81H
-        MOV     [EXTCOM],1      ; Make sure this case forced
-
-LODCOM:                         ; Termination handler
-        CMP     [EXTCOM],0
-        JZ      LODCOM1         ; If internal, memory already allocated
-        MOV     BX,0FFFFH
-        MOV     AH,ALLOC
-        INT     int_command
-        MOV     AX,OFFSET TRANGROUP:TRANSPACEEND + 15
-        MOV     CL,4
-        SHR     AX,CL
-
-        IF      IBM
-        PUSH    AX
-        MOV     AX,OFFSET EGROUP:ZEXECDATAEND + 15
-        MOV     CL,4
-        SHR     AX,CL
-        POP     CX
-        ADD     AX,CX
-        ENDIF
-
-        ADD     AX,20H
-        CMP     BX,AX           ; Is less than 512 byte buffer worth it?
-        JNC     MEMOK
-BADMEMERRJ:
-        JMP BADMEMERR           ; Not enough memory
-MEMOK:
-        MOV     AH,ALLOC
-        INT     int_command
-        JC      BADMEMERRJ      ; Memory arenas probably trashed
-        MOV     [EXTCOM],0      ; Flag not to ALLOC again
-        MOV     [LTPA],AX       ; New TPA is base just allocated
-        ADD     BX,AX
-        MOV     [MEMSIZ],BX
-
-        MOV     AX,OFFSET TRANGROUP:TRANSPACEEND + 15
-        MOV     CL,4
-        SHR     AX,CL
-
-        IF      IBM
-        PUSH    AX
-        MOV     AX,OFFSET EGROUP:ZEXECDATAEND + 15
-        MOV     CL,4
-        SHR     AX,CL
-        POP     CX
-        ADD     AX,CX
-        ENDIF
-
-        SUB     BX,AX
-        MOV     [TRNSEG],BX     ; Transient starts here
-LODCOM1:
-        MOV     AX,CS
-        MOV     SS,AX
-ASSUME  SS:RESGROUP
-        MOV     SP,OFFSET RESGROUP:RSTACK
-        MOV     DS,AX
-ASSUME  DS:RESGROUP
-        CALL    HEADFIX     ; Make sure files closed stdin and stdout restored
-        XOR     BP,BP           ; Flag command ok
-        MOV     AX,-1
-        XCHG    AX,[VERVAL]
-        CMP     AX,-1
-        JZ      NOSETVER
-        MOV     AH,SET_VERIFY_ON_WRITE  ; AL has correct value
-        INT     int_command
-NOSETVER:
-        CMP     [SINGLECOM],-1
-        JNZ     NOSNG
-        JMP     FATALRET2       ; We have finished the single command
-NOSNG:
-        CALL    SETVECT
-
-IF IBMVER
-        CALL    EXECHK          ; Check exe loader
-        CMP     DX,[EXESUM]
-        JNZ     BOGUS_COM
-ENDIF
-
-        CALL    CHKSUM          ; Check the transient
-        CMP     DX,[SUM]
-        JZ      HAVCOM          ; Transient OK
-BOGUS_COM:
-        MOV     [LOADING],1     ; Flag DSKERR routine
-        CALL    LOADCOM
-CHKSAME:
-
-IF IBMVER
-        CALL    EXECHK
-        CMP     DX,[EXESUM]
-        JNZ     ALSO_BOGUS
-ENDIF
-
-        CALL    CHKSUM
-        CMP     DX,[SUM]
-        JZ      HAVCOM          ; Same COMMAND
-ALSO_BOGUS:
-        CALL    WRONGCOM
-        JMP     SHORT CHKSAME
-HAVCOM:
-        MOV     AX,CHAR_OPER SHL 8
-        INT     int_command
-        MOV     [RSWITCHAR],DL
-        CMP     DL,'/'
-        JNZ     USESLASH
-        MOV     [RDIRCHAR],'\'          ; Select alt path separator
-USESLASH:
-        MOV     [LOADING],0             ; Flag to DSKERR
-        MOV     SI,OFFSET RESGROUP:TRANVARS
-        MOV     DI,OFFSET TRANGROUP:HEADCALL
-        MOV     ES,[TRNSEG]
-        CLD
-        MOV     CX,8
-        REP     MOVSW                   ; Transfer INFO to transient
-        MOV     AX,[MEMSIZ]
-        MOV     WORD PTR DS:[PDB_block_len],AX  ; Adjust my own header
-        JMP     DWORD PTR [TRANS]
-
-; Far call to REMCHECK for TRANSIENT
-TREMCHECK PROC   FAR
-        CALL    REMCHECK
-        RET
-TREMCHECK ENDP
-
-REMCHECK:
-;All registers preserved. Returns zero if media removable, NZ if fixed
-; AL is drive (0=DEF, 1=A,...)
-        IF      IBM
-        PUSH    AX
-        OR      AL,AL
-        JNZ     GOTDRV2
-        MOV     AH,GET_DEFAULT_DRIVE
-        INT     int_command
-        INC     AL              ;A=1
-GOTDRV2:
-        PUSH    BX
-        MOV     BL,AL
-        INT     11H             ;IBM EQUIP CALL
-        ROL     AL,1
-        ROL     AL,1
-        AND     AL,3
-        JNZ     NOT_SINGLE
-        INC     AL
-NOT_SINGLE:
-        INC     AL              ; AL is now MAX floppy #
-        CMP     BL,AL
-        POP     BX
-        JBE     SETREM          ; Is an IBM floppy and so is removable
-        OR      AL,AL           ; Know AL is non-zero
-        JMP     SHORT SETNREM
-SETREM:
-        ELSE
-        PUSH    AX
-        ENDIF
-
-        XOR     AX,AX           ;Zero
-
-        IF      IBM
-SETNREM:
-        ENDIF
-
-        POP     AX
-        RET
-
-; Far call to HEADFIX for TRANSIENT
-THEADFIX PROC   FAR
-        CALL    HEADFIX
-        RET
-THEADFIX ENDP
-
-HEADFIX:
-        XOR     BX,BX           ; Clean up header
-        MOV     CX,[IO_SAVE]
-        MOV     DX,WORD PTR DS:[PDB_JFN_Table]
-        CMP     CL,DL
-        JZ      CHK1            ; Stdin matches
-        MOV     AH,CLOSE
-        INT     int_command
-        MOV     DS:[PDB_JFN_Table],CL   ; Restore stdin
-CHK1:
-        INC     BX
-        CMP     CH,DH           ; Stdout matches
-        JZ      CHKOTHERHAND
-        MOV     AH,CLOSE
-        INT     int_command
-        MOV     DS:[PDB_JFN_Table+1],CH ; Restore stdout
-CHKOTHERHAND:
-        ADD     BX,4                    ; Skip 2,3,4
-        MOV     CX,FilPerProc - 5       ; Already done 0,1,2,3,4
-CLOSELOOP:
-        MOV     AH,CLOSE
-        INT     int_command
-        INC     BX
-        LOOP    CLOSELOOP
-        RET
-
-SAVHAND:
-ASSUME  DS:NOTHING,ES:NOTHING,SS:NOTHING
-        PUSH    DS
-        PUSH    BX              ; Set stdin to sterr, stdout to stderr
-        PUSH    AX
-        MOV     AH,GET_CURRENT_PDB
-        INT     int_command             ; Get user's header
-        MOV     DS,BX
-        MOV     AX,WORD PTR DS:[PDB_JFN_Table]
-        MOV     [HANDLE01],AX           ; Save user's stdin, stdout
-        MOV     AL,DS:[PDB_JFN_Table+2]
-        MOV     AH,AL
-        MOV     WORD PTR DS:[PDB_JFN_Table],AX   ; Dup stderr
-        POP     AX
-        POP     BX
-        POP     DS
-        RET
-
-ASSUME  DS:RESGROUP
-GETCOMDSK2:
-        CALL    GETCOMDSK
-        JMP     LODCOM1         ; Memory already allocated
-
-RESTHAND:
-        PUSH    DS
-        PUSH    BX              ; Restore stdin, stdout to user
-        PUSH    AX
-        MOV     AH,GET_CURRENT_PDB
-        INT     int_command             ; Point to user's header
-        MOV     AX,[HANDLE01]
-        MOV     DS,BX
-ASSUME DS:NOTHING
-        MOV     WORD PTR DS:[PDB_JFN_Table],AX   ; Stuff his old 0 and 1
-        POP     AX
-        POP     BX
-        POP     DS
-        RET
-ASSUME DS:RESGROUP,SS:RESGROUP
-
-HOPELESS:
-        MOV     DX,OFFSET RESGROUP:NOCOM
-        JMP     FATALC
-
-GETCOMDSK:
-        MOV     DX,OFFSET RESGROUP:NEEDCOM
-GETCOMDSK3:
-        MOV     AL,[COMDRV]
-        CALL    REMCHECK
-        JNZ     HOPELESS                ;Non-removable media
-        CALL    RPRINT
-        MOV     DX,OFFSET RESGROUP:DRVMSG
-        CMP     [COMDRV],0
-        JNZ     GETCOM1
-        MOV     DX,OFFSET RESGROUP:DEFMSG
-GETCOM1:
-        CALL    RPRINT
-        MOV     DX,OFFSET RESGROUP:PROMPT
-        CALL    RPRINT
-        CALL    GetRawFlushedByte
-        RET
-
-; flush world and get raw input
-GetRawFlushedByte:
-        MOV     AX,(STD_CON_INPUT_FLUSH SHL 8) OR RAW_CON_INPUT
-        INT     int_command             ; Get char without testing or echo
-        MOV     AX,(STD_CON_INPUT_FLUSH SHL 8) + 0
-        INT     int_command
-        return
-
-LOADCOM:                        ; Load in transient
-        INC     BP              ; Flag command read
-        MOV     DX,OFFSET RESGROUP:COMSPEC
-        MOV     AX,OPEN SHL 8
-        INT     int_command             ; Open COMMAND.COM
-        JNC     READCOM
-        CMP     AX,open_too_many_open_files
-        JNZ     TRYDOOPEN
-        MOV     DX,OFFSET RESGROUP:NOHANDMES
-        JMP     FATALC          ; Fatal, will never find a handle
-
-TRYDOOPEN:
-        CALL    GETCOMDSK
-        JMP     SHORT LOADCOM
-
-READCOM:
-        MOV     BX,AX           ; Handle
-        MOV     DX,OFFSET RESGROUP:TRANSTART
-        XOR     CX,CX           ; Seek loc
-        MOV     AX,LSEEK SHL 8
-        INT     int_command
-        JC      WRONGCOM1
-        MOV     CX,OFFSET TRANGROUP:TRANSPACEEND - 100H
-
-        IF      IBM
-        ADD     CX,15
-        AND     CX,0FFF0H
-        ADD     CX,OFFSET EGROUP:ZEXECCODEEND
-        ENDIF
-
-        PUSH    DS
-        MOV     DS,[TRNSEG]
-ASSUME  DS:NOTHING
-        MOV     DX,100H
-        MOV     AH,READ
-        INT     int_command
-        POP     DS
-ASSUME  DS:RESGROUP
-WRONGCOM1:
-        PUSHF
-        PUSH    AX
-        MOV     AH,CLOSE
-        INT     int_command             ; Close COMMAND.COM
-        POP     AX
-        POPF
-        JC      WRONGCOM        ; If error on READ
-        CMP     AX,CX
-        JZ      RET10           ; Size matched
-WRONGCOM:
-        MOV     DX,OFFSET RESGROUP:COMBAD
-        CALL    GETCOMDSK3
-        JMP     SHORT LOADCOM   ; Try again
-
-CHKSUM:                         ; Compute transient checksum
-        PUSH    DS
-        MOV     DS,[TRNSEG]
-        MOV     SI,100H
-        MOV     CX,OFFSET TRANGROUP:TRANDATAEND - 100H
-
-CHECK_SUM:
-        CLD
-        SHR     CX,1
-        XOR     DX,DX
-CHK:
-        LODSW
-        ADD     DX,AX
-        LOOP    CHK
-        POP     DS
-RET10:  RET
-
-SETVECT:                        ; Set useful vectors
-        MOV     DX,OFFSET RESGROUP:LODCOM
-        MOV     AX,(SET_INTERRUPT_VECTOR SHL 8) OR 22H        ; Set Terminate address
-        INT     int_command
-        MOV     DX,OFFSET RESGROUP:CONTC
-        MOV     AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H        ; Set Ctrl-C address
-        INT     int_command
-        MOV     DX,OFFSET RESGROUP:DSKERR
-        MOV     AX,(SET_INTERRUPT_VECTOR SHL 8) OR 24H        ; Set Hard Disk Error address
-        INT     int_command
-        RET
-
-CODERES ENDS
-
-; This TAIL segment is used to produce a PARA aligned label in the resident
-; group which is the location where the transient segments will be loaded
-; initial.
-
-TAIL    SEGMENT PUBLIC PARA
-        ORG     0
-TRANSTART       LABEL   WORD
-TAIL    ENDS
-
-; This TAIL segment is used to produce a PARA aligned label in the transient
-; group which is the location where the exec segments will be loaded
-; initial.
-
-TRANTAIL    SEGMENT PUBLIC PARA
-        ORG     0
-EXECSTART   LABEL   WORD
-TRANTAIL    ENDS
-
-IF IBMVER
-        INCLUDE EXEC.ASM
-ENDIF
-
-        END     PROGSTART
-

v2.0/source/COMSEG.ASM

@@ -1,38 +0,0 @@
-; The following are all of the segments used in the load order
-
-CODERES SEGMENT PUBLIC
-CODERES ENDS
-
-DATARES SEGMENT PUBLIC
-DATARES ENDS
-
-ENVIRONMENT SEGMENT PUBLIC
-ENVIRONMENT ENDS
-
-INIT    SEGMENT PUBLIC
-INIT    ENDS
-
-TAIL    SEGMENT PUBLIC
-TAIL    ENDS
-
-TRANCODE        SEGMENT PUBLIC
-TRANCODE        ENDS
-
-TRANDATA        SEGMENT PUBLIC
-TRANDATA        ENDS
-
-TRANSPACE       SEGMENT PUBLIC
-TRANSPACE       ENDS
-
-TRANTAIL        SEGMENT PUBLIC
-TRANTAIL        ENDS
-
-ZEXEC_CODE      SEGMENT PUBLIC
-ZEXEC_CODE      ENDS
-
-ZEXEC_DATA      SEGMENT PUBLIC
-ZEXEC_DATA      ENDS
-
-RESGROUP        GROUP   CODERES,DATARES,ENVIRONMENT,INIT,TAIL
-TRANGROUP       GROUP   TRANCODE,TRANDATA,TRANSPACE,TRANTAIL
-EGROUP          GROUP   ZEXEC_CODE,ZEXEC_DATA

v2.0/source/COMSW.ASM

@@ -1,13 +0,0 @@
-; Use the following booleans to set assembly flags
-FALSE   EQU     0
-TRUE    EQU     NOT FALSE
-
-IBMVER  EQU     true  ; Switch to build IBM version of Command
-IBM     EQU     IBMVER
-MSVER   EQU     false   ; Switch to build MS-DOS version of Command
-
-HIGHMEM EQU     FALSE   ; Run resident part above transient (high memory)
-KANJI   EQU     false   ; Support for dual byte Microsoft KANJI standard
-IBMJAPAN        EQU     FALSE   ;MUST BE TRUE (along with IBM and KANJI)
-
-

v2.0/source/COPY.ASM

@@ -1,579 +0,0 @@
-TITLE   COMMAND COPY routines.
-
-        INCLUDE COMSW.ASM
-
-.xlist
-.xcref
-        INCLUDE DOSSYM.ASM
-        INCLUDE DEVSYM.ASM
-        INCLUDE COMSEG.ASM
-.list
-.cref
-
-        INCLUDE COMEQU.ASM
-
-DATARES SEGMENT PUBLIC
-        EXTRN   VERVAL:WORD
-DATARES ENDS
-
-TRANDATA        SEGMENT PUBLIC
-        EXTRN   BADARGS:BYTE,BADCD:BYTE,BADSWT:BYTE,COPIED_PRE:BYTE
-        EXTRN   COPIED_POST:BYTE
-        EXTRN   INBDEV:BYTE,OVERWR:BYTE,FULDIR:BYTE,LOSTERR:BYTE
-        EXTRN   NOSPACE:BYTE,DEVWMES:BYTE,NOTFND:BYTE
-TRANDATA        ENDS
-
-TRANSPACE       SEGMENT PUBLIC
-        EXTRN   MELCOPY:BYTE,SRCPT:WORD,MELSTART:WORD,SCANBUF:BYTE
-        EXTRN   DESTFCB2:BYTE,SDIRBUF:BYTE,SRCTAIL:WORD,CFLAG:BYTE
-        EXTRN   NXTADD:WORD,DESTCLOSED:BYTE,ALLSWITCH:WORD,ARGC:BYTE
-        EXTRN   PLUS:BYTE,BINARY:BYTE,ASCII:BYTE,FILECNT:WORD
-        EXTRN   WRITTEN:BYTE,CONCAT:BYTE,DESTBUF:BYTE,SRCBUF:BYTE
-        EXTRN   SDIRBUF:BYTE,DIRBUF:BYTE,DESTFCB:BYTE,FRSTSRCH:BYTE
-        EXTRN   FIRSTDEST:BYTE,DESTISDIR:BYTE,DESTSWITCH:WORD,STARTEL:WORD
-        EXTRN   DESTTAIL:WORD,DESTSIZ:BYTE,DESTINFO:BYTE,INEXACT:BYTE
-        EXTRN   CURDRV:BYTE,DESTVARS:BYTE,RESSEG:WORD,SRCSIZ:BYTE
-        EXTRN   SRCINFO:BYTE,SRCVARS:BYTE,USERDIR1:BYTE,NOWRITE:BYTE
-        EXTRN   RDEOF:BYTE,SRCHAND:WORD,CPDATE:WORD,CPTIME:WORD
-        EXTRN   SRCISDEV:BYTE,BYTCNT:WORD,TPA:WORD,TERMREAD:BYTE
-        EXTRN   DESTHAND:WORD,DESTISDEV:BYTE,DIRCHAR:BYTE
-TRANSPACE       ENDS
-
-
-; **************************************************
-; COPY CODE
-;
-
-TRANCODE        SEGMENT PUBLIC BYTE
-
-        EXTRN   RESTUDIR:NEAR,CERROR:NEAR,SWITCH:NEAR,DISP32BITS:NEAR
-        EXTRN   PRINT:NEAR,TCOMMAND:NEAR,ZPRINT:NEAR,ONESPC:NEAR
-        EXTRN   RESTUDIR1:NEAR,FCB_TO_ASCZ:NEAR,CRLF2:NEAR,SAVUDIR1:NEAR
-        EXTRN   SETREST1:NEAR,BADCDERR:NEAR,STRCOMP:NEAR,DELIM:NEAR
-        EXTRN   UPCONV:NEAR,PATHCHRCMP:NEAR,SCANOFF:NEAR
-
-        EXTRN   CPARSE:NEAR
-
-        EXTRN   SEARCH:NEAR,SEARCHNEXT:NEAR,DOCOPY:NEAR,CLOSEDEST:NEAR
-        EXTRN   FLSHFIL:NEAR,SETASC:NEAR,BUILDNAME:NEAR,COPERR:NEAR
-
-        PUBLIC  COPY,BUILDPATH,COMPNAME,ENDCOPY
-
-
-ASSUME  CS:TRANGROUP,DS:TRANGROUP,ES:TRANGROUP,SS:NOTHING
-
-DOMELCOPY:
-        cmp     [MELCOPY],0FFH
-        jz      CONTMEL
-        mov     SI,[SRCPT]
-        mov     [MELSTART],si
-        mov     [MELCOPY],0FFH
-CONTMEL:
-        xor     BP,BP
-        mov     si,[SRCPT]
-        mov     bl,'+'
-SCANSRC2:
-        mov     di,OFFSET TRANGROUP:SCANBUF
-        call    CPARSE
-        test    bh,80H
-        jz      NEXTMEL                 ; Go back to start
-        test    bh,1                    ; Switch ?
-        jnz     SCANSRC2                ; Yes
-        call    SOURCEPROC
-        call    RESTUDIR1
-        mov     di,OFFSET TRANGROUP:DESTFCB2
-        mov     ax,PARSE_FILE_DESCRIPTOR SHL 8
-        INT     int_command
-        mov     bx,OFFSET TRANGROUP:SDIRBUF + 1
-        mov     si,OFFSET TRANGROUP:DESTFCB2 + 1
-        mov     di,[SRCTAIL]
-        call    BUILDNAME
-        jmp     MELDO
-
-
-NEXTMEL:
-        call    CLOSEDEST
-        xor     ax,ax
-        mov     [CFLAG],al
-        mov     [NXTADD],ax
-        mov     [DESTCLOSED],al
-        mov     si,[MELSTART]
-        mov     [SRCPT],si
-        call    SEARCHNEXT
-        jz      SETNMELJ
-        jmp     ENDCOPY2
-SETNMELJ:
-        jmp     SETNMEL
-
-COPY:
-; First order of buisness is to find out about the destination
-ASSUME  DS:TRANGROUP,ES:TRANGROUP
-        xor     ax,ax
-        mov     [ALLSWITCH],AX          ; no switches
-        mov     [ARGC],al               ; no arguments
-        mov     [PLUS],al               ; no concatination
-        mov     [BINARY],al             ; Binary not specifically specified
-        mov     [ASCII],al              ; ASCII not specifically specified
-        mov     [FILECNT],ax            ; No files yet
-        mov     [WRITTEN],al            ; Nothing written yet
-        mov     [CONCAT],al             ; No concatination
-        mov     [MELCOPY],al            ; Not a Mel Hallerman copy
-        mov     word ptr [SCANBUF],ax   ; Init buffer
-        mov     word ptr [DESTBUF],ax   ; Init buffer
-        mov     word ptr [SRCBUF],ax    ; Init buffer
-        mov     word ptr [SDIRBUF],ax   ; Init buffer
-        mov     word ptr [DIRBUF],ax    ; Init buffer
-        mov     word ptr [DESTFCB],ax   ; Init buffer
-        dec     ax
-        mov     [FRSTSRCH],al           ; First search call
-        mov     [FIRSTDEST],al          ; First time
-        mov     [DESTISDIR],al          ; Don't know about dest
-        mov     si,81H
-        mov     bl,'+'                  ; include '+' as a delimiter
-DESTSCAN:
-        xor     bp,bp                   ; no switches
-        mov     di,offset trangroup:SCANBUF
-        call    CPARSE
-        PUSHF                           ; save flags
-        test    bh,80H                  ; A '+' argument?
-        jz      NOPLUS                  ; no
-        mov     [PLUS],1                ; yes
-NOPLUS:
-        POPF                            ; get flags back
-        jc      CHECKDONE               ; Hit CR?
-        test    bh,1                    ; Switch?
-        jz      TESTP2                  ; no
-        or      [DESTSWITCH],BP         ; Yes, assume destination
-        or      [ALLSWITCH],BP          ; keep tabs on all switches
-        jmp     short DESTSCAN
-
-TESTP2:
-        test    bh,80H                  ; Plus?
-        jnz     GOTPLUS                 ; Yes, not a separate arg
-        inc     [ARGC]                  ; found a real arg
-GOTPLUS:
-        push    SI
-        mov     ax,[STARTEL]
-        mov     SI,offset trangroup:SCANBUF ; Adjust to copy
-        sub     ax,SI
-        mov     DI,offset trangroup:DESTBUF
-        add     ax,DI
-        mov     [DESTTAIL],AX
-        mov     [DESTSIZ],cl            ; Save its size
-        inc     cx                      ; Include the NUL
-        rep     movsb                   ; Save potential destination
-        mov     [DESTINFO],bh           ; Save info about it
-        mov     [DESTSWITCH],0          ; reset switches
-        pop     SI
-        jmp     short DESTSCAN          ; keep going
-
-CHECKDONE:
-        mov     al,[PLUS]
-        mov     [CONCAT],al             ; PLUS -> Concatination
-        shl     al,1
-        shl     al,1
-        mov     [INEXACT],al            ; CONCAT -> inexact copy
-        mov     dx,offset trangroup:BADARGS
-        mov     al,[ARGC]
-        or      al,al                   ; Good number of args?
-        jz      CERROR4J                ; no, not enough
-        cmp     al,2
-        jbe     ACOUNTOK
-CERROR4J:
-        jmp    CERROR                   ; no, too many
-ACOUNTOK:
-        mov     bp,offset trangroup:DESTVARS
-        cmp     al,1
-        jnz     GOT2ARGS
-        mov     al,[CURDRV]             ; Dest is default drive:*.*
-        add     al,'A'
-        mov     ah,':'
-        mov     [bp.SIZ],2
-        mov     di,offset trangroup:DESTBUF
-        stosw
-        mov     [DESTSWITCH],0          ; no switches on dest
-        mov     [bp.INFO],2             ; Flag dest is ambig
-        mov     [bp.ISDIR],0            ; Know destination specs file
-        call    SETSTARS
-GOT2ARGS:
-        cmp     [bp.SIZ],2
-        jnz     NOTSHORTDEST
-        cmp     [DESTBUF+1],':'
-        jnz     NOTSHORTDEST            ; Two char file name
-        or      [bp.INFO],2             ; Know dest is d:
-        mov     di,offset trangroup:DESTBUF + 2
-        mov     [bp.ISDIR],0            ; Know destination specs file
-        call    SETSTARS
-NOTSHORTDEST:
-        mov     di,[bp.TTAIL]
-        cmp     byte ptr [DI],0
-        jnz     CHKSWTCHES
-        mov     dx,offset trangroup:BADCD
-        cmp     byte ptr [DI-2],':'
-        jnz     CERROR4J               ; Trailing '/' error
-        mov     [bp.ISDIR],2           ; Know destination is d:/
-        or      [bp.INFO],6
-        call    SETSTARS
-CHKSWTCHES:
-        mov     dx,offset trangroup:BADSWT
-        mov     ax,[ALLSWITCH]
-        cmp     ax,GOTSWITCH
-        jz      CERROR4J                ; Switch specified which is not known
-
-; Now know most of the information needed about the destination
-
-        TEST    AX,VSWITCH              ; Verify requested?
-        JZ      NOVERIF                 ; No
-        MOV     AH,GET_VERIFY_ON_WRITE
-        INT     int_command             ; Get current setting
-        PUSH    DS
-        MOV     DS,[RESSEG]
-ASSUME  DS:RESGROUP
-        XOR     AH,AH
-        MOV     [VERVAL],AX             ; Save current setting
-        POP     DS
-ASSUME  DS:TRANGROUP
-        MOV     AX,(SET_VERIFY_ON_WRITE SHL 8) OR 1 ; Set verify
-        INT     int_command
-NOVERIF:
-        xor     bp,bp                   ; no switches
-        mov     si,81H
-        mov     bl,'+'                  ; include '+' as a delimiter
-SCANFSRC:
-        mov     di,offset trangroup:SCANBUF
-        call    CPARSE                  ; Parse first source name
-        test    bh,1                    ; Switch?
-        jnz     SCANFSRC                ; Yes, try again
-        or      [DESTSWITCH],bp         ; Include copy wide switches on DEST
-        test    bp,BSWITCH
-        jnz     NOSETCASC               ; Binary explicit
-        cmp     [CONCAT],0
-        JZ      NOSETCASC               ; Not Concat
-        mov     [ASCII],ASWITCH         ; Concat -> ASCII copy if no B switch
-NOSETCASC:
-        push    SI
-        mov     ax,[STARTEL]
-        mov     SI,offset trangroup:SCANBUF ; Adjust to copy
-        sub     ax,SI
-        mov     DI,offset trangroup:SRCBUF
-        add     ax,DI
-        mov     [SRCTAIL],AX
-        mov     [SRCSIZ],cl             ; Save its size
-        inc     cx                      ; Include the NUL
-        rep     movsb                   ; Save this source
-        mov     [SRCINFO],bh            ; Save info about it
-        pop     SI
-        mov     ax,bp                   ; Switches so far
-        call    SETASC                  ; Set A,B switches accordingly
-        call    SWITCH                  ; Get any more switches on this arg
-        call    SETASC                  ; Set
-        call    FRSTSRC
-        jmp     FIRSTENT
-
-ENDCOPY:
-        CALL    CLOSEDEST
-ENDCOPY2:
-        MOV     DX,OFFSET TRANGROUP:COPIED_PRE
-        CALL    PRINT
-        MOV     SI,[FILECNT]
-        XOR     DI,DI
-        CALL    DISP32BITS
-        MOV     DX,OFFSET TRANGROUP:COPIED_POST
-        CALL    PRINT
-        JMP     TCOMMAND                ; Stack could be messed up
-
-SRCNONEXIST:
-        cmp     [CONCAT],0
-        jnz     NEXTSRC                 ; If in concat mode, ignore error
-        mov     dx,offset trangroup:SRCBUF
-        call    zprint
-        CALL    ONESPC
-        mov     dx,offset trangroup:NOTFND
-        jmp     COPERR
-
-SOURCEPROC:
-        push    SI
-        mov     ax,[STARTEL]
-        mov     SI,offset trangroup:SCANBUF ; Adjust to copy
-        sub     ax,SI
-        mov     DI,offset trangroup:SRCBUF
-        add     ax,DI
-        mov     [SRCTAIL],AX
-        mov     [SRCSIZ],cl             ; Save its size
-        inc     cx                      ; Include the NUL
-        rep     movsb                   ; Save this sorce
-        mov     [SRCINFO],bh            ; Save info about it
-        pop     SI
-        mov     ax,bp                   ; Switches so far
-        call    SETASC                  ; Set A,B switches accordingly
-        call    SWITCH                  ; Get any more switches on this arg
-        call    SETASC                  ; Set
-        cmp     [CONCAT],0
-        jnz     LEAVECFLAG              ; Leave CFLAG if concatination
-FRSTSRC:
-        xor     ax,ax
-        mov     [CFLAG],al              ; Flag destination not created
-        mov     [NXTADD],ax             ; Zero out buffer
-        mov     [DESTCLOSED],al         ; Not created -> not closed
-LEAVECFLAG:
-        mov     [SRCPT],SI              ; remember where we are
-        mov     di,offset trangroup:USERDIR1
-        mov     bp,offset trangroup:SRCVARS
-        call    BUILDPATH               ; Figure out everything about the source
-        mov     si,[SRCTAIL]            ; Create the search FCB
-        return
-
-NEXTSRC:
-        cmp     [PLUS],0
-        jnz     MORECP
-ENDCOPYJ2:
-        jmp     ENDCOPY                 ; Done
-MORECP:
-        xor     bp,bp                   ; no switches
-        mov     si,[SRCPT]
-        mov     bl,'+'                  ; include '+' as a delimiter
-SCANSRC:
-        mov     di,offset trangroup:SCANBUF
-        call    CPARSE                  ; Parse first source name
-        JC      EndCopyJ2               ; if error, then end (trailing + case)
-        test    bh,80H
-        jz      ENDCOPYJ2               ; If no '+' we're done
-        test    bh,1                    ; Switch?
-        jnz     SCANSRC                 ; Yes, try again
-        call    SOURCEPROC
-FIRSTENT:
-        mov     di,FCB
-        mov     ax,PARSE_FILE_DESCRIPTOR SHL 8
-        INT     int_command
-        mov     ax,word ptr [SRCBUF]    ; Get drive
-        cmp     ah,':'
-        jz      DRVSPEC1
-        mov     al,'@'
-DRVSPEC1:
-        sub     al,'@'
-        mov     ds:[FCB],al
-        mov     ah,DIR_SEARCH_FIRST
-        call    SEARCH
-        pushf                           ; Save result of search
-        call    RESTUDIR1               ; Restore users dir
-        popf
-        jz      NEXTAMBIG0
-        jmp     SRCNONEXIST             ; Failed
-NEXTAMBIG0:
-        xor     al,al
-        xchg    al,[FRSTSRCH]
-        or      al,al
-        jz      NEXTAMBIG
-SETNMEL:
-        mov     cx,12
-        mov     di,OFFSET TRANGROUP:SDIRBUF
-        mov     si,OFFSET TRANGROUP:DIRBUF
-        rep     movsb                   ; Save very first source name
-NEXTAMBIG:
-        xor     al,al
-        mov     [NOWRITE],al            ; Turn off NOWRITE
-        mov     di,[SRCTAIL]
-        mov     si,offset trangroup:DIRBUF + 1
-        call    FCB_TO_ASCZ             ; SRCBUF has complete name
-MELDO:
-        cmp     [CONCAT],0
-        jnz     SHOWCPNAM               ; Show name if concat
-        test    [SRCINFO],2             ; Show name if multi
-        jz      DOREAD
-SHOWCPNAM:
-        mov     dx,offset trangroup:SRCBUF
-        call    ZPRINT
-        call    CRLF2
-DOREAD:
-        call    DOCOPY
-        cmp     [CONCAT],0
-        jnz     NODCLOSE                ; If concat, do not close
-        call    CLOSEDEST               ; else close current destination
-        jc      NODCLOSE                ; Concat flag got set, close didn't really happen
-        mov     [CFLAG],0               ; Flag destination not created
-NODCLOSE:
-        cmp     [CONCAT],0              ; Check CONCAT again
-        jz      NOFLUSH
-        CALL    FLSHFIL                 ; Flush output between source files on CONCAT
-                                        ;  so LOSTERR stuff works correctly
-        TEST    [MELCOPY],0FFH
-        jz      NOFLUSH
-        jmp     DOMELCOPY
-
-NOFLUSH:
-        call    SEARCHNEXT              ; Try next match
-        jnz     NEXTSRCJ                ; Finished with this source spec
-        mov     [DESTCLOSED],0          ; Not created or concat -> not closed
-        jmp     NEXTAMBIG               ; Do next ambig
-
-NEXTSRCJ:
-        jmp   NEXTSRC
-
-
-
-BUILDPATH:
-        test    [BP.INFO],2
-        jnz     NOTPFILE                ; If ambig don't bother with open
-        mov     dx,bp
-        add     dx,BUF                  ; Set DX to spec
-        mov     ax,OPEN SHL 8
-        INT     int_command
-        jc      NOTPFILE
-        mov     bx,ax                   ; Is pure file
-        mov     ax,IOCTL SHL 8
-        INT     int_command
-        mov     ah,CLOSE
-        INT     int_command
-        test    dl,devid_ISDEV
-        jnz     ISADEV                  ; If device, done
-        test    [BP.INFO],4
-        jz      ISSIMPFILE              ; If no path seps, done
-NOTPFILE:
-        mov     dx,word ptr [BP.BUF]
-        cmp     dh,':'
-        jz      DRVSPEC5
-        mov     dl,'@'
-DRVSPEC5:
-        sub     dl,'@'                  ; A = 1
-        call    SAVUDIR1
-        mov     dx,bp
-        add     dx,BUF                  ; Set DX for upcomming CHDIRs
-        mov     bh,[BP.INFO]
-        and     bh,6
-        cmp     bh,6                    ; Ambig and path ?
-        jnz     CHECKAMB                ; jmp if no
-        mov     si,[BP.TTAIL]
-        cmp     byte ptr [si-2],':'
-        jnz     KNOWNOTSPEC
-        mov     [BP.ISDIR],2            ; Know is d:/file
-        jmp     short DOPCDJ
-
-KNOWNOTSPEC:
-        mov     [BP.ISDIR],1            ; Know is path/file
-        dec     si                      ; Point to the /
-DOPCDJ:
-        jmp     short DOPCD
-
-CHECKAMB:
-        cmp     bh,2
-        jnz     CHECKCD
-ISSIMPFILE:
-ISADEV:
-        mov     [BP.ISDIR],0            ; Know is file since ambig but no path
-        return
-
-CHECKCD:
-        call    SETREST1
-        mov     ah,CHDIR
-        INT     int_command
-        jc      NOTPDIR
-        mov     di,dx
-        xor     ax,ax
-        mov     cx,ax
-        dec     cx
-        repne   scasb
-        dec     di
-        mov     al,[DIRCHAR]
-        mov     [bp.ISDIR],2            ; assume d:/file
-        cmp     al,[di-1]
-        jz      GOTSRCSLSH
-        stosb
-        mov     [bp.ISDIR],1            ; know path/file
-GOTSRCSLSH:
-        or      [bp.INFO],6
-        call    SETSTARS
-        return
-
-
-NOTPDIR:
-        mov     [bp.ISDIR],0            ; assume pure file
-        mov     bh,[bp.INFO]
-        test    bh,4
-        retz                            ; Know pure file, no path seps
-        mov     [bp.ISDIR],2            ; assume d:/file
-        mov     si,[bp.TTAIL]
-        cmp     byte ptr [si],0
-        jz      BADCDERRJ2              ; Trailing '/'
-        cmp     byte ptr [si],'.'
-        jz      BADCDERRJ2              ; If . or .. pure cd should have worked
-        cmp     byte ptr [si-2],':'
-        jz      DOPCD                   ; Know d:/file
-        mov     [bp.ISDIR],1            ; Know path/file
-        dec     si                      ; Point at last '/'
-DOPCD:
-        xor     bl,bl
-        xchg    bl,[SI]                 ; Stick in a NUL
-        call    SETREST1
-        mov     ah,CHDIR
-        INT     int_command
-        xchg    bl,[SI]
-        retnc
-BADCDERRJ2:
-        JMP     BADCDERR
-
-SETSTARS:
-        mov     [bp.TTAIL],DI
-        add     [bp.SIZ],12
-        mov     ax,('.' SHL 8) OR '?'
-        mov     cx,8
-        rep     stosb
-        xchg    al,ah
-        stosb
-        xchg    al,ah
-        mov     cl,3
-        rep     stosb
-        xor     al,al
-        stosb
-        return
-
-
-COMPNAME:
-        PUSH    CX
-        PUSH    AX
-        MOV     si,offset trangroup:SRCBUF
-        MOV     di,offset trangroup:DESTBUF
-        MOV     CL,[CURDRV]
-        MOV     CH,CL
-        CMP     BYTE PTR [SI+1],':'
-        JNZ     NOSRCDRV
-        LODSW
-        SUB     AL,'A'
-        MOV     CL,AL
-NOSRCDRV:
-        CMP     BYTE PTR [DI+1],':'
-        JNZ     NODSTDRV
-        MOV     AL,[DI]
-        INC     DI
-        INC     DI
-        SUB     AL,'A'
-        MOV     CH,AL
-NODSTDRV:
-        CMP     CH,CL
-        jnz     RET81P
-        call    STRCOMP
-        jz      RET81P
-        mov     ax,[si-1]
-        mov     cx,[di-1]
-        push    ax
-        and     al,cl
-        pop     ax
-        jnz     RET81P                  ; Niether of the mismatch chars was a NUL
-; Know one of the mismatch chars is a NUL
-; Check for ".NUL" compared with NUL
-        cmp     al,'.'
-        jnz     CHECKCL
-        or      ah,ah
-        jmp     short RET81P            ; If NUL return match, else no match
-CHECKCL:
-        cmp     cl,'.'
-        jnz     RET81P                  ; Mismatch
-        or      ch,ch                   ; If NUL return match, else no match
-RET81P:
-        POP     AX
-        POP     CX
-        return
-
-TRANCODE        ENDS
-
-        END
-

v2.0/source/COPYPROC.ASM

@@ -1,526 +0,0 @@
-TITLE   COPYRPOC             ;Procedures called by COPY
-
-        INCLUDE COMSW.ASM
-
-.xlist
-.xcref
-        INCLUDE DOSSYM.ASM
-        INCLUDE DEVSYM.ASM
-        INCLUDE COMSEG.ASM
-.list
-.cref
-
-        INCLUDE COMEQU.ASM
-
-DATARES SEGMENT PUBLIC
-DATARES ENDS
-
-TRANDATA        SEGMENT PUBLIC
-
-        EXTRN   OVERWR:BYTE,FULDIR:BYTE,LOSTERR:BYTE
-        EXTRN   DEVWMES:BYTE,INBDEV:BYTE,NOSPACE:BYTE
-
-TRANDATA        ENDS
-
-TRANSPACE       SEGMENT PUBLIC
-
-        EXTRN   CFLAG:BYTE,NXTADD:WORD,DESTCLOSED:BYTE
-        EXTRN   PLUS:BYTE,BINARY:BYTE,ASCII:BYTE,FILECNT:WORD
-        EXTRN   WRITTEN:BYTE,CONCAT:BYTE,DESTBUF:BYTE,SRCBUF:BYTE
-        EXTRN   SDIRBUF:BYTE,DIRBUF:BYTE,DESTFCB:BYTE,MELCOPY:BYTE
-        EXTRN   FIRSTDEST:BYTE,DESTISDIR:BYTE,DESTSWITCH:WORD
-        EXTRN   DESTTAIL:WORD,DESTINFO:BYTE,INEXACT:BYTE
-        EXTRN   DESTVARS:BYTE,SRCINFO:BYTE,RDEOF:BYTE
-        EXTRN   USERDIR1:BYTE,NOWRITE:BYTE
-        EXTRN   SRCHAND:WORD,CPDATE:WORD,CPTIME:WORD
-        EXTRN   SRCISDEV:BYTE,BYTCNT:WORD,TPA:WORD,TERMREAD:BYTE
-        EXTRN   DESTHAND:WORD,DESTISDEV:BYTE,DIRCHAR:BYTE
-
-TRANSPACE       ENDS
-
-TRANCODE        SEGMENT PUBLIC BYTE
-
-        PUBLIC  SEARCH,SEARCHNEXT,DOCOPY,CLOSEDEST,FLSHFIL,SETASC
-        PUBLIC  BUILDNAME,COPERR
-
-        EXTRN   PRINT:NEAR,BUILDPATH:NEAR,RESTUDIR1:NEAR
-        EXTRN   COMPNAME:NEAR,ENDCOPY:NEAR
-
-ASSUME  CS:TRANGROUP,DS:TRANGROUP,ES:TRANGROUP,SS:NOTHING
-
-
-SEARCHNEXT:
-        MOV     AH,DIR_SEARCH_NEXT
-        TEST    [SRCINFO],2
-        JNZ     SEARCH                  ; Do serach-next if ambig
-        OR      AH,AH                   ; Reset zero flag
-        return
-SEARCH:
-        PUSH    AX
-        MOV     AH,SET_DMA
-        MOV     DX,OFFSET TRANGROUP:DIRBUF
-        INT     int_command             ; Put result of search in DIRBUF
-        POP     AX                      ; Restore search first/next command
-        MOV     DX,FCB
-        INT     int_command             ; Do the search
-        OR      AL,AL
-        return
-
-DOCOPY:
-        mov     [RDEOF],0               ; No EOF yet
-        mov     dx,offset trangroup:SRCBUF
-        mov     ax,OPEN SHL 8
-        INT     int_command
-        retc                            ; If open fails, ignore
-        mov     bx,ax                   ; Save handle
-        mov     [SRCHAND],bx            ; Save handle
-        mov     ax,(FILE_TIMES SHL 8)
-        INT     int_command
-        mov     [CPDATE],dx             ; Save DATE
-        mov     [CPTIME],cx             ; Save TIME
-        mov     ax,(IOCTL SHL 8)
-        INT     int_command             ; Get device stuff
-        and     dl,devid_ISDEV
-        mov     [SRCISDEV],dl           ; Set source info
-        jz      COPYLP                  ; Source not a device
-        cmp     [BINARY],0
-        jz      COPYLP                  ; ASCII device OK
-        mov     dx,offset trangroup:INBDEV  ; Cannot do binary input
-        jmp     COPERR
-
-COPYLP:
-        mov     bx,[SRCHAND]
-        mov     cx,[BYTCNT]
-        mov     dx,[NXTADD]
-        sub     cx,dx                   ; Compute available space
-        jnz     GOTROOM
-        call    FLSHFIL
-        CMP     [TERMREAD],0
-        JNZ     CLOSESRC                ; Give up
-        mov     cx,[BYTCNT]
-GOTROOM:
-        push    ds
-        mov     ds,[TPA]
-ASSUME  DS:NOTHING
-        mov     ah,READ
-        INT     int_command
-        pop     ds
-ASSUME  DS:TRANGROUP
-        jc      CLOSESRC                ; Give up if error
-        mov     cx,ax                   ; Get count
-        jcxz    CLOSESRC                ; No more to read
-        cmp     [SRCISDEV],0
-        jnz     NOTESTA                 ; Is a device, ASCII mode
-        cmp     [ASCII],0
-        jz      BINREAD
-NOTESTA:
-        MOV     DX,CX
-        MOV     DI,[NXTADD]
-        MOV     AL,1AH
-        PUSH    ES
-        MOV     ES,[TPA]
-        REPNE   SCASB                   ; Scan for EOF
-        POP     ES
-        JNZ     USEALL
-        INC     [RDEOF]
-        INC     CX
-USEALL:
-        SUB     DX,CX
-        MOV     CX,DX
-BINREAD:
-        ADD     CX,[NXTADD]
-        MOV     [NXTADD],CX
-        CMP     CX,[BYTCNT]             ; Is buffer full?
-        JB      TESTDEV                 ; If not, we may have found EOF
-        CALL    FLSHFIL
-        CMP     [TERMREAD],0
-        JNZ     CLOSESRC                ; Give up
-        JMP     SHORT COPYLP
-
-TESTDEV:
-        cmp     [SRCISDEV],0
-        JZ      CLOSESRC                ; If file then EOF
-        CMP     [RDEOF],0
-        JZ      COPYLP                  ; On device, go till ^Z
-CLOSESRC:
-        mov     bx,[SRCHAND]
-        mov     ah,CLOSE
-        INT     int_command
-        return
-
-CLOSEDEST:
-        cmp     [DESTCLOSED],0
-        retnz                           ; Don't double close
-        MOV     AL,BYTE PTR [DESTSWITCH]
-        CALL    SETASC                  ; Check for B or A switch on destination
-        JZ      BINCLOS
-        MOV     BX,[NXTADD]
-        CMP     BX,[BYTCNT]             ; Is memory full?
-        JNZ     PUTZ
-        call    TRYFLUSH                ; Make room for one lousy byte
-        jz      NOCONC
-CONCHNG:                                ; Concat flag changed on us
-        stc
-        return
-NOCONC:
-        XOR     BX,BX
-PUTZ:
-        PUSH    DS
-        MOV     DS,[TPA]
-        MOV     WORD PTR [BX],1AH       ; Add End-of-file mark (Ctrl-Z)
-        POP     DS
-        INC     [NXTADD]
-        MOV     [NOWRITE],0             ; Make sure our ^Z gets written
-        MOV     AL,[WRITTEN]
-        XOR     AH,AH
-        ADD     AX,[NXTADD]
-        JC      BINCLOS                 ; > 1
-        CMP     AX,1
-        JZ      FORGETIT                ; WRITTEN = 0 NXTADD = 1 (the ^Z)
-BINCLOS:
-        call    TRYFLUSH
-        jnz     CONCHNG
-        cmp     [WRITTEN],0
-        jz      FORGETIT                ; Never wrote nothin
-        MOV     BX,[DESTHAND]
-        MOV     CX,[CPTIME]
-        MOV     DX,[CPDATE]
-        CMP     [INEXACT],0             ; Copy not exact?
-        JZ      DODCLOSE                ; If no, copy date & time
-        MOV     AH,GET_TIME
-        INT     int_command
-        SHL     CL,1
-        SHL     CL,1                    ; Left justify min in CL
-        SHL     CX,1
-        SHL     CX,1
-        SHL     CX,1                    ; hours to high 5 bits, min to 5-10
-        SHR     DH,1                    ; Divide seconds by 2 (now 5 bits)
-        OR      CL,DH                   ; And stick into low 5 bits of CX
-        PUSH    CX                      ; Save packed time
-        MOV     AH,GET_DATE
-        INT     int_command
-        SUB     CX,1980
-        XCHG    CH,CL
-        SHL     CX,1                    ; Year to high 7 bits
-        SHL     DH,1                    ; Month to high 3 bits
-        SHL     DH,1
-        SHL     DH,1
-        SHL     DH,1
-        SHL     DH,1                    ; Most sig bit of month in carry
-        ADC     CH,0                    ; Put that bit next to year
-        OR      DL,DH                   ; Or low three of month into day
-        MOV     DH,CH                   ; Get year and high bit of month
-        POP     CX                      ; Get time back
-DODCLOSE:
-        MOV     AX,(FILE_TIMES SHL 8) OR 1
-        INT     int_command             ; Set date and time
-        MOV     AH,CLOSE
-        INT     int_command
-        INC     [FILECNT]
-        INC     [DESTCLOSED]
-RET50:
-        CLC
-        return
-
-FORGETIT:
-        MOV     BX,[DESTHAND]
-        CALL    DODCLOSE                ; Close the dest
-        MOV     DX,OFFSET TRANGROUP:DESTBUF
-        MOV     AH,UNLINK
-        INT     int_command             ; And delete it
-        MOV     [FILECNT],0             ; No files transferred
-        JMP     RET50
-
-TRYFLUSH:
-        mov     al,[CONCAT]
-        push    ax
-        call    FLSHFIL
-        pop     ax
-        cmp     al,[CONCAT]
-        return
-
-FLSHFIL:
-; Write out any data remaining in memory.
-; Inputs:
-;       [NXTADD] = No. of bytes to write
-;       [CFLAG] <>0 if file has been created
-; Outputs:
-;       [NXTADD] = 0
-
-        MOV     [TERMREAD],0
-        cmp     [CFLAG],0
-        JZ      NOTEXISTS
-        JMP     EXISTS
-NOTEXISTS:
-        call    BUILDDEST               ; Find out all about the destination
-        CALL    COMPNAME                ; Source and dest. the same?
-        JNZ     PROCDEST                ; If not, go ahead
-        CMP     [SRCISDEV],0
-        JNZ     PROCDEST                ; Same name on device OK
-        CMP     [CONCAT],0              ; Concatenation?
-        MOV     DX,OFFSET TRANGROUP:OVERWR
-        JZ      COPERRJ                 ; If not, overwrite error
-        MOV     [NOWRITE],1             ; Flag not writting (just seeking)
-PROCDEST:
-        mov     ax,(OPEN SHL 8) OR 1
-        CMP     [NOWRITE],0
-        JNZ     DODESTOPEN              ; Don't actually create if NOWRITE set
-        mov     ah,CREAT
-        xor     cx,cx
-DODESTOPEN:
-        mov     dx,offset trangroup:DESTBUF
-        INT     int_command
-        MOV     DX,OFFSET TRANGROUP:FULDIR
-        JC      COPERRJ
-        mov     [DESTHAND],ax           ; Save handle
-        mov     [CFLAG],1               ; Destination now exists
-        mov     bx,ax
-        mov     ax,(IOCTL SHL 8)
-        INT     int_command             ; Get device stuff
-        mov     [DESTISDEV],dl          ; Set dest info
-        test    dl,devid_ISDEV
-        jz      EXISTS                  ; Dest not a device
-        mov     al,BYTE PTR [DESTSWITCH]
-        AND     AL,ASWITCH+BSWITCH
-        JNZ     TESTBOTH
-        MOV     AL,[ASCII]              ; Neither set, use current setting
-        OR      AL,[BINARY]
-        JZ      EXSETA                  ; Neither set, default to ASCII
-TESTBOTH:
-        JPE     EXISTS                  ; Both are set, ignore
-        test    AL,BSWITCH
-        jz      EXISTS                  ; Leave in cooked mode
-        mov     ax,(IOCTL SHL 8) OR 1
-        xor     dh,dh
-        or      dl,devid_RAW
-        mov     [DESTISDEV],dl          ; New value
-        INT     int_command             ; Set device to RAW mode
-        jmp     short EXISTS
-
-COPERRJ:
-        jmp     SHORT COPERR
-
-EXSETA:
-; What we read in may have been in binary mode, flag zapped write OK
-        mov     [ASCII],ASWITCH         ; Set ASCII mode
-        or      [INEXACT],ASWITCH       ; ASCII -> INEXACT
-EXISTS:
-        cmp     [NOWRITE],0
-        jnz     NOCHECKING              ; If nowrite don't bother with name check
-        CALL    COMPNAME                ; Source and dest. the same?
-        JNZ     NOCHECKING              ; If not, go ahead
-        CMP     [SRCISDEV],0
-        JNZ     NOCHECKING              ; Same name on device OK
-; At this point we know in append (would have gotten overwrite error on first
-; destination create otherwise), and user trying to specify destination which
-; has been scribbled already (if dest had been named first, NOWRITE would
-; be set).
-        MOV     DX,OFFSET TRANGROUP:LOSTERR ; Tell him he's not going to get it
-        CALL    PRINT
-        MOV     [NXTADD],0              ; Set return
-        INC     [TERMREAD]              ; Tell Read to give up
-RET60:
-        return
-
-NOCHECKING:
-        mov     bx,[DESTHAND]           ; Get handle
-        XOR     CX,CX
-        XCHG    CX,[NXTADD]
-        JCXZ    RET60                   ; If Nothing to write, forget it
-        INC     [WRITTEN]               ; Flag that we wrote something
-        CMP     [NOWRITE],0             ; If NOWRITE set, just seek CX bytes
-        JNZ     SEEKEND
-        XOR     DX,DX
-        PUSH    DS
-        MOV     DS,[TPA]
-ASSUME  DS:NOTHING
-        MOV     AH,WRITE
-        INT     int_command
-        POP     DS
-ASSUME  DS:TRANGROUP
-        MOV     DX,OFFSET TRANGROUP:NOSPACE
-        JC      COPERR                  ; Failure
-        sub     cx,ax
-        retz                            ; Wrote all supposed to
-        test    [DESTISDEV],devid_ISDEV
-        jz      COPERR                  ; Is a file, error
-        test    [DESTISDEV],devid_RAW
-        jnz     DEVWRTERR               ; Is a raw device, error
-        cmp     [INEXACT],0
-        retnz                           ; INEXACT so OK
-        dec     cx
-        retz                            ; Wrote one byte less (the ^Z)
-DEVWRTERR:
-        MOV     DX,OFFSET TRANGROUP:DEVWMES
-COPERR:
-        CALL    PRINT
-        inc     [DESTCLOSED]
-        cmp     [CFLAG],0
-        jz      ENDCOPYJ                ; Never actually got it open
-        MOV     bx,[DESTHAND]
-        MOV     AH,CLOSE                ; Close the file
-        INT     int_command
-        MOV     DX,OFFSET TRANGROUP:DESTBUF
-        MOV     AH,UNLINK
-        INT     int_command             ; And delete it
-        MOV     [CFLAG],0
-ENDCOPYJ:
-        JMP   ENDCOPY
-
-
-SEEKEND:
-        xor     dx,dx                   ; Zero high half of offset
-        xchg    dx,cx                   ; cx:dx is seek location
-        mov     ax,(LSEEK SHL 8) OR 1
-        INT     int_command             ; Seek ahead in the file
-        cmp     [RDEOF],0
-        retz
-; If a ^Z has been read we must set the file size to the current
-; file pointer location
-        MOV     AH,WRITE
-        INT     int_command             ; CX is zero, truncates file
-        return
-
-SETASC:
-; Given switch vector in AX,
-;       Set ASCII switch if A is set
-;       Clear ASCII switch if B is set
-;       BINARY set if B specified
-;       Leave ASCII unchanged if neither or both are set
-; Also sets INEXACT if ASCII is ever set. AL = ASCII on exit, flags set
-        AND     AL,ASWITCH+BSWITCH
-        JPE     LOADSW                  ; PE means both or neither are set
-        PUSH    AX
-        AND     AL,BSWITCH
-        MOV     [BINARY],AL
-        POP     AX
-        AND     AL,ASWITCH
-        MOV     [ASCII],AL
-        OR      [INEXACT],AL
-LOADSW:
-        MOV     AL,[ASCII]
-        OR      AL,AL
-        return
-
-BUILDDEST:
-        cmp     [DESTISDIR],-1
-        jnz     KNOWABOUTDEST           ; Already done the figuring
-        MOV     DI,OFFSET TRANGROUP:USERDIR1
-        mov     bp,offset trangroup:DESTVARS
-        call    BUILDPATH
-        call    RESTUDIR1
-
-; Now know all about the destination
-
-KNOWABOUTDEST:
-        xor     al,al
-        xchg    al,[FIRSTDEST]
-        or      al,al
-        jnz     FIRSTDST
-        jmp     NOTFIRSTDEST
-FIRSTDST:
-        mov     si,[DESTTAIL]           ; Create an FCB of the original DEST
-        mov     di,offset trangroup:DESTFCB
-        mov     ax,PARSE_FILE_DESCRIPTOR SHL 8
-        INT     int_command
-        mov     ax,word ptr [DESTBUF]   ; Get drive
-        cmp     ah,':'
-        jz      DRVSPEC4
-        mov     al,'@'
-DRVSPEC4:
-        MOV     CL,[ASCII]              ; Save current ASCII setting
-        sub     al,'@'
-        mov     [DESTFCB],al
-        mov     al,[DESTINFO]
-        mov     ah,[SRCINFO]
-        and     ax,0202H
-        or      al,al
-        jz      NOTMELCOPY
-        cmp     al,ah
-        jnz     NOTMELCOPY
-        cmp     [PLUS],0
-        jz      NOTMELCOPY
-        inc     [MELCOPY]               ; ambig source, ambig dest, and pluses
-        xor     al,al
-        jmp     short SETCONC
-
-NOTMELCOPY:
-        xor     al,2                    ; al=2 if unambig dest, =0 if ambig dest
-        and     al,ah
-        shr     al,1                    ; al=1 if unambig dest AND ambig sorce
-                                        ;   Implies concatination
-SETCONC:
-        or      al,[PLUS]               ; al=1 if concat
-        mov     [CONCAT],al
-        shl     al,1
-        shl     al,1
-        mov     [INEXACT],al            ; Concat -> inexact copy
-        cmp     [BINARY],0
-        jnz     NOTFIRSTDEST            ; Binary explicitly given, all OK
-        mov     [ASCII],al              ; Concat -> ASCII
-        or      cl,cl
-        jnz     NOTFIRSTDEST            ; ASCII flag set before, DATA read correctly
-        or      al,al
-        JZ      NOTFIRSTDEST            ; ASCII flag did not change states
-; At this point there may already be binary read data in the read buffer.
-; We need to find the first ^Z (if there is one) and trim the amount
-; of data in the buffer correctly.
-        MOV     CX,[NXTADD]
-        JCXZ    NOTFIRSTDEST            ; No data, everything OK
-        MOV     AL,1AH
-        PUSH    ES
-        XOR     DI,DI
-        MOV     ES,[TPA]
-        REPNE   SCASB                   ; Scan for EOF
-        POP     ES
-        JNZ     NOTFIRSTDEST            ; No ^Z in buffer, everything OK
-        DEC     DI                      ; Point at ^Z
-        MOV     [NXTADD],DI             ; New buffer
-NOTFIRSTDEST:
-        mov     bx,offset trangroup:DIRBUF+1    ; Source of replacement chars
-        cmp     [CONCAT],0
-        jz      GOTCHRSRC               ; Not a concat
-        mov     bx,offset trangroup:SDIRBUF+1   ; Source of replacement chars
-GOTCHRSRC:
-        mov     si,offset trangroup:DESTFCB+1   ; Original dest name
-        mov     di,[DESTTAIL]           ; Where to put result
-
-BUILDNAME:
-        mov     cx,8
-BUILDMAIN:
-        lodsb
-        cmp     al,"?"
-        jnz     NOTAMBIG
-        mov     al,byte ptr [BX]
-NOTAMBIG:
-        cmp     al,' '
-        jz      NOSTORE
-        stosb
-NOSTORE:
-        inc     bx
-        loop    BUILDMAIN
-        mov     cl,3
-        cmp     byte ptr [SI],' '
-        jz      ENDDEST                 ; No extension
-        mov     al,'.'
-        stosb
-BUILDEXT:
-        lodsb
-        cmp     al,"?"
-        jnz     NOTAMBIGE
-        mov     al,byte ptr [BX]
-NOTAMBIGE:
-        cmp     al,' '
-        jz      NOSTOREE
-        stosb
-NOSTOREE:
-        inc     bx
-        loop    BUILDEXT
-ENDDEST:
-        xor     al,al
-        stosb                           ; NUL terminate
-        return
-
-TRANCODE    ENDS
-            END
-

v2.0/source/CPARSE.ASM

@@ -1,291 +0,0 @@
-TITLE   CPARSE
-
-        INCLUDE COMSW.ASM
-
-.xlist
-.xcref
-        INCLUDE DOSSYM.ASM
-        INCLUDE DEVSYM.ASM
-        INCLUDE COMSEG.ASM
-.list
-.cref
-
-        INCLUDE COMEQU.ASM
-
-DATARES SEGMENT PUBLIC
-DATARES ENDS
-
-TRANDATA        SEGMENT PUBLIC
-        EXTRN   BADCPMES:BYTE
-TRANDATA        ENDS
-
-TRANSPACE       SEGMENT PUBLIC
-        EXTRN   CURDRV:BYTE,ELPOS:BYTE,STARTEL:WORD
-        EXTRN   SKPDEL:BYTE,SWITCHAR:BYTE,ELCNT:BYTE
-
-TRANSPACE       ENDS
-
-TRANCODE        SEGMENT PUBLIC BYTE
-
-ASSUME  CS:TRANGROUP,DS:TRANGROUP,ES:TRANGROUP
-
-        EXTRN   DELIM:NEAR,UPCONV:NEAR,PATHCHRCMP:NEAR
-        EXTRN   SWLIST:BYTE,BADCDERR:NEAR,SCANOFF:NEAR,CERROR:NEAR
-
-        if  KANJI
-        EXTRN   TESTKANJ:NEAR
-        endif
-
-SWCOUNT EQU 5
-
-        PUBLIC  CPARSE
-
-CPARSE:
-
-;-----------------------------------------------------------------------;
-; ENTRY:                                                                ;
-;       DS:SI   Points input buffer                                     ;
-;       ES:DI   Points to the token buffer                              ;
-;       BL      Special delimiter for this call                         ;
-;                   Always checked last                                 ;
-;                   set it to space if there is no special delimiter    ;
-; EXIT:                                                                 ;
-;       DS:SI   Points to next char in the input buffer                 ;
-;       ES:DI   Points to the token buffer                              ;
-;       [STARTEL] Points to start of last element of path in token      ;
-;               points to a NUL for no element strings 'd:' 'd:/'       ;
-;       CX      Character count                                         ;
-;       BH      Condition Code                                          ;
-;                       Bit 1H of BH set if switch character            ;
-;                               Token buffer contains char after        ;
-;                               switch character                        ;
-;                               BP has switch bits set (ORing only)     ;
-;                       Bit 2H of BH set if ? or * in token             ;
-;                               if * found element ? filled             ;
-;                       Bit 4H of BH set if path sep in token           ;
-;                       Bit 80H of BH set if the special delimiter      ;
-;                          was skipped at the start of this token       ;
-;               Token buffer always starts d: for non switch tokens     ;
-;       CARRY SET                                                       ;
-;           if CR on input                                              ;
-;               token buffer not altered                                ;
-;                                                                       ;
-;       DOES NOT RETURN ON BAD PATH ERROR                               ;
-; MODIFIES:                                                             ;
-;       CX, SI, AX, BH, DX and the Carry Flag                           ;       ;
-;                                                                       ;
-; -----------------------------------------------------------------------;
-
-        xor     ax,ax
-        mov     [STARTEL],DI            ; No path element (Is DI correct?)
-        mov     [ELPOS],al              ; Start in 8 char prefix
-        mov     [SKPDEL],al             ; No skip delimiter yet
-        mov     bh,al                   ; Init nothing
-        pushf                           ; save flags
-        push    di                      ; save the token buffer addrss
-        xor     cx,cx                   ; no chars in token buffer
-moredelim:
-        LODSB
-        CALL    DELIM
-        JNZ     SCANCDONE
-        CMP     AL,' '
-        JZ      moredelim
-        CMP     AL,9
-        JZ      moredelim
-        xchg    al,[SKPDEL]
-        or      al,al
-        jz      moredelim               ; One non space/tab delimiter allowed
-        JMP     x_done                  ; Nul argument
-
-SCANCDONE:
-
-        IF      NOT KANJI
-        call    UPCONV
-        ENDIF
-
-        cmp     al,bl                   ; Special delimiter?
-        jnz     nospec
-        or      bh,80H
-        jmp     short moredelim
-
-nospec:
-        cmp     al,0DH                  ; a CR?
-        jne     ncperror
-        jmp     cperror
-ncperror:
-        cmp     al,[SWITCHAR]           ; is the char the switch char?
-        jne     na_switch               ; yes, process...
-        jmp     a_switch
-na_switch:
-        cmp     byte ptr [si],':'
-        jne     anum_chard              ; Drive not specified
-
-        IF      KANJI
-        call    UPCONV
-        ENDIF
-
-        call    move_char
-        lodsb                           ; Get the ':'
-        call    move_char
-        mov     [STARTEL],di
-        mov     [ELCNT],0
-        jmp     anum_test
-
-anum_chard:
-        mov     [STARTEL],di
-        mov     [ELCNT],0               ; Store of this char sets it to one
-        call    PATHCHRCMP              ; Starts with a pathchar?
-        jnz     anum_char               ; no
-        push    ax
-        mov     al,[CURDRV]             ; Insert drive spec
-        add     al,'A'
-        call    move_char
-        mov     al,':'
-        call    move_char
-        pop     ax
-        mov     [STARTEL],di
-        mov     [ELCNT],0
-
-anum_char:
-
-        IF      KANJI
-        call    TESTKANJ
-        jz      TESTDOT
-        call    move_char
-        lodsb
-        jmp     short notspecial
-
-TESTDOT:
-        ENDIF
-
-        cmp     al,'.'
-        jnz     testquest
-        inc     [ELPOS]                 ; flag in extension
-        mov     [ELCNT],0FFH            ; Store of the '.' resets it to 0
-testquest:
-        cmp     al,'?'
-        jnz     testsplat
-        or      bh,2
-testsplat:
-        cmp     al,'*'
-        jnz     testpath
-        or      bh,2
-        mov     ah,7
-        cmp     [ELPOS],0
-        jz      gotelcnt
-        mov     ah,2
-gotelcnt:
-        mov     al,'?'
-        sub     ah,[ELCNT]
-        jc      badperr2
-        xchg    ah,cl
-        jcxz    testpathx
-qmove:
-        xchg    ah,cl
-        call    move_char
-        xchg    ah,cl
-        loop    qmove
-testpathx:
-        xchg    ah,cl
-testpath:
-        call    PATHCHRCMP
-        jnz     notspecial
-        or      bh,4
-        test    bh,2                    ; If just hit a '/', cannot have ? or * yet
-        jnz     badperr
-        mov     [STARTEL],di            ; New element
-        INC     [STARTEL]               ; Point to char after /
-        mov     [ELCNT],0FFH            ; Store of '/' sets it to 0
-        mov     [ELPOS],0
-notspecial:
-        call    move_char               ; just an alphanum string
-anum_test:
-        lodsb
-
-        IF      NOT KANJI
-        call    UPCONV
-        ENDIF
-
-        call    DELIM
-        je      x_done
-        cmp     al,0DH
-        je      x_done
-        cmp     al,[SWITCHAR]
-        je      x_done
-        cmp     al,bl
-        je      x_done
-        cmp     al,':'                  ; ':' allowed as trailer because
-                                        ; of devices
-        IF      KANJI
-        je      FOO15
-        jmp     anum_char
-FOO15:
-        ELSE
-        jne     anum_char
-        ENDIF
-
-        mov     byte ptr [si-1],' '     ; Change the trailing ':' to a space
-        jmp     short x_done
-
-badperr2:
-        mov     dx,offset trangroup:BADCPMES
-        jmp     CERROR
-
-badperr:
-        jmp     BADCDERR
-
-cperror:
-        dec     si                      ; adjust the pointer
-        pop     di                      ; retrive token buffer address
-        popf                            ; restore flags
-        stc                             ; set the carry bit
-        return
-
-x_done:
-        dec     si                      ; adjust for next round
-        jmp     short out_token
-
-a_switch:
-        OR      BH,1                    ; Indicate switch
-        OR      BP,GOTSWITCH
-        CALL    SCANOFF
-        INC     SI
-        cmp     al,0DH
-        je      cperror
-        call    move_char               ; store the character
-        CALL    UPCONV
-        PUSH    ES
-        PUSH    DI
-        PUSH    CX
-        PUSH    CS
-        POP     ES
-ASSUME  ES:TRANGROUP
-        MOV     DI,OFFSET TRANGROUP:SWLIST
-        MOV     CX,SWCOUNT
-        REPNE   SCASB
-        JNZ     out_tokenp
-        MOV     AX,1
-        SHL     AX,CL
-        OR      BP,AX
-out_tokenp:
-        POP     CX
-        POP     DI
-        POP     ES
-ASSUME  ES:NOTHING
-out_token:
-        mov     al,0
-        stosb                           ; null at the end
-        pop     di                      ; restore token buffer pointer
-        popf
-        clc                             ; clear carry flag
-        return
-
-move_char:
-        stosb                           ; store char in token buffer
-        inc     cx                      ; increment char count
-        inc     [ELCNT]                 ; increment element count for * substi
-        return
-
-TRANCODE        ENDS
-        END
-

v2.0/source/CTRLC.ASM

@@ -1,468 +0,0 @@
-;
-; ^C status routines for MSDOS
-;
-
-INCLUDE DOSSEG.ASM
-
-CODE    SEGMENT BYTE PUBLIC  'CODE'
-        ASSUME  SS:DOSGROUP,CS:DOSGROUP
-
-.xlist
-.xcref
-INCLUDE DOSSYM.ASM
-INCLUDE DEVSYM.ASM
-.cref
-.list
-
-        i_need  DevIOBuf,BYTE
-        i_need  DidCTRLC,BYTE
-        i_need  INDOS,BYTE
-        i_need  DSKSTCOM,BYTE
-        i_need  DSKSTCALL,BYTE
-        i_need  DSKSTST,WORD
-        i_need  BCON,DWORD
-        i_need  DSKCHRET,BYTE
-        i_need  DSKSTCNT,WORD
-        i_need  IDLEINT,BYTE
-        i_need  CONSWAP,BYTE
-        i_need  user_SS,WORD
-        i_need  user_SP,WORD
-        i_need  ERRORMODE,BYTE
-        i_need  ConC_spSave,WORD
-        i_need  Exit_type,BYTE
-        i_need  PFLAG,BYTE
-        i_need  ExitHold,DWORD
-        i_need  WPErr,BYTE
-        i_need  ReadOp,BYTE
-        i_need  CONTSTK,WORD
-        i_need  Exit_Code,WORD
-        i_need  CurrentPDB,WORD
-        i_need  DIVMES,BYTE
-        i_need  DivMesLen,BYTE
-
-SUBTTL Checks for ^C in CON I/O
-PAGE
-ASSUME  DS:NOTHING,ES:NOTHING
-
-        procedure   DSKSTATCHK,NEAR ; Check for ^C if only one level in
-        CMP     BYTE PTR [INDOS],1
-        retnz                   ; Do NOTHING
-        PUSH    CX
-        PUSH    ES
-        PUSH    BX
-        PUSH    DS
-        PUSH    SI
-        PUSH    CS
-        POP     ES
-        PUSH    CS
-        POP     DS
-ASSUME  DS:DOSGROUP
-        XOR     CX,CX
-        MOV     BYTE PTR [DSKSTCOM],DEVRDND
-        MOV     BYTE PTR [DSKSTCALL],DRDNDHL
-        MOV     [DSKSTST],CX
-        MOV     BX,OFFSET DOSGROUP:DSKSTCALL
-        LDS     SI,[BCON]
-ASSUME  DS:NOTHING
-        invoke  DEVIOCALL2
-        TEST    [DSKSTST],STBUI
-        JNZ     ZRET                    ; No characters available
-        MOV     AL,BYTE PTR [DSKCHRET]
-DSK1:
-        CMP     AL,"C"-"@"
-        JNZ     RET36
-        MOV     BYTE PTR [DSKSTCOM],DEVRD
-        MOV     BYTE PTR [DSKSTCALL],DRDWRHL
-        MOV     BYTE PTR [DSKCHRET],CL
-        MOV     [DSKSTST],CX
-        INC     CX
-        MOV     [DSKSTCNT],CX
-        invoke  DEVIOCALL2              ; Eat the ^C
-        POP     SI
-        POP     DS
-        POP     BX                      ; Clean stack
-        POP     ES
-        POP     CX
-        JMP     SHORT CNTCHAND
-
-ZRET:
-        XOR     AL,AL                   ; Set zero
-RET36:
-        POP     SI
-        POP     DS
-        POP     BX
-        POP     ES
-        POP     CX
-        return
-
-NOSTOP:
-        CMP     AL,"P"-"@"
-        JZ      INCHK
-
-        IF      NOT TOGLPRN
-        CMP     AL,"N"-"@"
-        JZ      INCHK
-        ENDIF
-
-        CMP     AL,"C"-"@"
-        JZ      INCHK
-        return
-DSKSTATCHK  ENDP
-
-        procedure   SPOOLINT,NEAR
-        PUSHF
-        CMP     BYTE PTR [IDLEINT],0
-        JZ      POPFRET
-        CMP     BYTE PTR [ERRORMODE],0
-        JNZ     POPFRET                 ;No spool ints in error mode
-        INT     int_spooler
-POPFRET:
-        POPF
-RET18:  return
-SPOOLINT    ENDP
-
-        procedure   STATCHK,NEAR
-
-        invoke  DSKSTATCHK              ; Allows ^C to be detected under
-                                        ; input redirection
-        PUSH    BX
-        XOR     BX,BX
-        invoke  GET_IO_FCB
-        POP     BX
-        JC      RET18
-        MOV     AH,1
-        invoke  IOFUNC
-        JZ      SPOOLINT
-        CMP     AL,'S'-'@'
-        JNZ     NOSTOP
-        XOR     AH,AH
-        invoke  IOFUNC                  ; Eat Cntrl-S
-        JMP     SHORT PAUSOSTRT
-PRINTOFF:
-PRINTON:
-        NOT     BYTE PTR [PFLAG]
-        return
-
-PAUSOLP:
-        CALL    SPOOLINT
-PAUSOSTRT:
-        MOV     AH,1
-        invoke  IOFUNC
-        JZ      PAUSOLP
-INCHK:
-        PUSH    BX
-        XOR     BX,BX
-        invoke  GET_IO_FCB
-        POP     BX
-        JC      RET18
-        XOR     AH,AH
-        invoke  IOFUNC
-        CMP     AL,'P'-'@'
-        JZ      PRINTON
-        IF      NOT TOGLPRN
-        CMP     AL,'N'-'@'
-        JZ      PRINTOFF
-        ENDIF
-        CMP     AL,'C'-'@'
-        retnz
-STATCHK ENDP
-
-        procedure   CNTCHAND,NEAR
-; Ctrl-C handler.
-; "^C" and CR/LF is printed.  Then the user registers are restored and
-; the user CTRL-C handler is executed.  At this point the top of the stack
-; has 1) the interrupt return address should the user CTRL-C handler wish
-; to allow processing to continue; 2) the original interrupt return address
-; to the code that performed the function call in the first place.  If
-; the user CTRL-C handler wishes to continue, it must leave all registers
-; unchanged and RET (not IRET) with carry CLEAR.  If carry is SET then
-; an terminate system call is simulated.
-        MOV     AL,3                ; Display "^C"
-        invoke  BUFOUT
-        invoke  CRLF
-        PUSH    SS
-        POP     DS
-ASSUME  DS:DOSGROUP
-        CMP     BYTE PTR [CONSWAP],0
-        JZ      NOSWAP
-        invoke  SWAPBACK
-NOSWAP:
-        CLI                         ; Prepare to play with stack
-        MOV     SP,[user_SP]
-        MOV     SS,[user_SS]        ; User stack now restored
-ASSUME  SS:NOTHING
-        invoke  restore_world       ; User registers now restored
-ASSUME  DS:NOTHING
-        MOV     BYTE PTR [INDOS],0  ; Go to known state
-        MOV     BYTE PTR [ERRORMODE],0
-        MOV     [ConC_spsave],SP    ; save his SP
-        INT     int_ctrl_c          ; Execute user Ctrl-C handler
-        MOV     [user_SS],AX        ; save the AX
-        PUSHF                       ; and the flags (maybe new call)
-        POP     AX
-        CMP     SP,[ConC_spsave]
-        JNZ     ctrlc_try_new       ; new syscall maybe?
-ctrlc_repeat:
-        MOV     AX,[user_SS]        ; no...
-        transfer    COMMAND         ; Repeat command otherwise
-
-ctrlc_try_new:
-        SUB     [ConC_spsave],2     ; Are there flags on the stack?
-        CMP     SP,[ConC_spsave]
-        JZ      ctrlc_new           ; yes, new system call
-
-ctrlc_abort:
-        MOV     AX,(EXIT SHL 8) + 0
-        MOV     BYTE PTR [DidCTRLC],0FFh
-
-        transfer    COMMAND         ; give up by faking $EXIT
-
-ctrlc_new:
-        PUSH    AX
-        POPF
-        POP     [user_SS]
-        JNC     ctrlc_repeat        ; repeat operation
-        JMP     ctrlc_abort         ; indicate ^ced
-
-CNTCHAND ENDP
-
-SUBTTL DIVISION OVERFLOW INTERRUPT
-PAGE
-; Default handler for division overflow trap
-        procedure   DIVOV,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING,SS:NOTHING
-        MOV     SI,OFFSET DOSGROUP:DIVMES
-        CALL    RealDivOv
-        JMP     ctrlc_abort     ; Use Ctrl-C abort on divide overflow
-DIVOV   ENDP
-
-;
-; RealDivOv: perform actual divide overflow stuff.
-; Inputs:   none
-; Outputs:  message to BCON
-;
-        procedure   RealDivOv,NEAR  ; Do divide overflow and clock process
-
-        PUSH    CS                  ; get ES addressability
-        POP     ES
-
-        PUSH    CS                  ; get DS addressability
-        POP     DS
-ASSUME  DS:DOSGROUP
-
-        MOV     BYTE PTR [DskStCom],DevWrt
-        MOV     BYTE PTR [DskStCall],DRdWrHL
-        MOV     [DskSTST],0
-        MOV     BL,[DivMesLen]
-        XOR     BH,BH
-        MOV     [DskStCnt],BX
-        MOV     BX,OFFSET DOSGROUP:DskStCall
-        MOV     WORD PTR [DskChRet+1],SI    ; transfer address (need an EQU)
-        LDS     SI,[BCON]
-ASSUME  DS:NOTHING
-        invoke  DEVIOCALL2
-        MOV     WORD PTR [DskChRet+1],OFFSET DOSGROUP:DevIOBuf
-        MOV     [DskStCnt],1
-        return
-RealDivOv   ENDP
-
-SUBTTL CHARHRD,HARDERR,ERROR -- HANDLE DISK ERRORS AND RETURN TO USER
-PAGE
-        procedure   CHARHARD,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING,SS:DOSGROUP
-
-; Character device error handler
-; Same function as HARDERR
-
-        MOV     WORD PTR [EXITHOLD+2],ES
-        MOV     WORD PTR [EXITHOLD],BP
-        PUSH    SI
-        AND     DI,STECODE
-        MOV     BP,DS                   ;Device pointer is BP:SI
-        CALL    FATALC
-        POP     SI
-        return
-CHARHARD    ENDP
-
-        procedure   HardErr,NEAR
-ASSUME  DS:NOTHING,ES:NOTHING
-
-; Hard disk error handler. Entry conditions:
-;       DS:BX = Original disk transfer address
-;       DX = Original logical sector number
-;       CX = Number of sectors to go (first one gave the error)
-;       AX = Hardware error code
-;       DI = Original sector transfer count
-;       ES:BP = Base of drive parameters
-;       [READOP] = 0 for read, 1 for write
-                                        ;
-        XCHG    AX,DI                   ; Error code in DI, count in AX
-        AND     DI,STECODE              ; And off status bits
-        CMP     DI,WRECODE              ; Write Protect Error?
-        JNZ     NOSETWRPERR
-        PUSH    AX
-        MOV     AL,ES:[BP.dpb_drive]
-        MOV     BYTE PTR [WPERR],AL              ; Flag drive with WP error
-        POP     AX
-NOSETWRPERR:
-        SUB     AX,CX                   ; Number of sectors successfully transferred
-        ADD     DX,AX                   ; First sector number to retry
-        PUSH    DX
-        MUL     ES:[BP.dpb_sector_size]          ; Number of bytes transferred
-        POP     DX
-        ADD     BX,AX                   ; First address for retry
-        XOR     AH,AH                   ; Flag disk section in error
-        CMP     DX,ES:[BP.dpb_first_FAT]    ; In reserved area?
-        JB      ERRINT
-        INC     AH                      ; Flag for FAT
-        CMP     DX,ES:[BP.dpb_dir_sector]   ; In FAT?
-        JB      ERRINT
-        INC     AH
-        CMP     DX,ES:[BP.dpb_first_sector]       ; In directory?
-        JB      ERRINT
-        INC     AH                      ; Must be in data area
-ERRINT:
-        SHL     AH,1                    ; Make room for read/write bit
-        OR      AH,BYTE PTR [READOP]
-        entry   FATAL
-        MOV     AL,ES:[BP.dpb_drive]      ; Get drive number
-        entry   FATAL1
-        MOV     WORD PTR [EXITHOLD+2],ES
-        MOV     WORD PTR [EXITHOLD],BP  ; The only things we preserve
-        LES     SI,ES:[BP.dpb_driver_addr]
-        MOV     BP,ES                   ; BP:SI points to the device involved
-FATALC:
-        CMP     BYTE PTR [ERRORMODE],0
-        JNZ     SETIGN                  ; No INT 24s if already INT 24
-        MOV     [CONTSTK],SP
-        PUSH    SS
-        POP     ES
-ASSUME  ES:DOSGROUP
-        CLI                             ; Prepare to play with stack
-        INC     BYTE PTR [ERRORMODE]    ; Flag INT 24 in progress
-        DEC     BYTE PTR [INDOS]        ; INT 24 handler might not return
-        MOV     SS,[user_SS]
-ASSUME  SS:NOTHING
-        MOV     SP,ES:[user_SP]         ; User stack pointer restored
-        INT     int_fatal_abort         ; Fatal error interrupt vector, must preserve ES
-        MOV     ES:[user_SP],SP         ; restore our stack
-        MOV     ES:[user_SS],SS
-        MOV     SP,ES
-        MOV     SS,SP
-ASSUME  SS:DOSGROUP
-        MOV     SP,[CONTSTK]
-        INC     BYTE PTR [INDOS]        ; Back in the DOS
-        MOV     BYTE PTR [ERRORMODE],0  ; Back from INT 24
-        STI
-IGNRET:
-        LES     BP,[EXITHOLD]
-ASSUME  ES:NOTHING
-        CMP     AL,2
-        JZ      error_abort
-        MOV     BYTE PTR [WPERR],-1              ;Forget about WP error
-        return
-
-SETIGN:
-        XOR     AL,AL                   ;Flag ignore
-        JMP     SHORT IGNRET
-
-error_abort:
-        PUSH    SS
-        POP     DS
-ASSUME  DS:DOSGROUP
-        CMP     BYTE PTR [CONSWAP],0
-        JZ      NOSWAP2
-        invoke  SWAPBACK
-NOSWAP2:
-        MOV     BYTE PTR [exit_Type],Exit_hard_error
-        MOV     DS,[CurrentPDB]
-ASSUME  DS:NOTHING
-
-;
-; reset_environment checks the DS value against the CurrentPDB.  If they
-; are different, then an old-style return is performed.  If they are
-; the same, then we release jfns and restore to parent.  We still use
-; the PDB at DS:0 as the source of the terminate addresses.
-;
-; output:   none.
-;
-        entry   reset_environment
-        ASSUME  DS:NOTHING,ES:NOTHING
-        PUSH    DS                      ; save PDB of process
-
-        MOV     AL,int_Terminate
-        invoke  $Get_interrupt_vector   ; and who to go to
-        MOV     WORD PTR [EXITHOLD+2],ES ; save return address
-        MOV     WORD PTR [EXITHOLD],BX
-
-        MOV     BX,[CurrentPDB]         ; get current process
-        MOV     DS,BX                   ;
-        MOV     AX,DS:[PDB_Parent_PID]  ; get parent to return to
-        POP     CX
-;
-; AX = parentPDB, BX = CurrentPDB, CX = ThisPDB
-; Only free handles if AX <> BX and BX = CX and [exit_code].upper is not
-; Exit_keep_process
-;
-        CMP     AX,BX
-        JZ      reset_return            ; parentPDB = CurrentPDB
-        CMP     BX,CX
-        JNZ     reset_return            ; CurrentPDB <> ThisPDB
-        PUSH    AX                      ; save parent
-        CMP     BYTE PTR [exit_type],Exit_keep_process
-        JZ      reset_to_parent         ; keeping this process
-
-        invoke  arena_free_process
-
-        ; reset environment at [CurrentPDB]; close those handles
-        MOV     CX,FilPerProc
-
-reset_free_jfn:
-        MOV     BX,CX
-        PUSH    CX
-        DEC     BX                      ; get jfn
-        invoke  $CLOSE                  ; close it, ignore return
-        POP     CX
-        LOOP    reset_free_jfn          ; and do 'em all
-
-reset_to_parent:
-        POP     [CurrentPDB]            ; set up process as parent
-
-reset_return:                           ; come here for normal return
-        PUSH    CS
-        POP     DS
-        ASSUME  DS:DOSGROUP
-        MOV     AL,-1
-        invoke  FLUSHBUF                ; make sure that everything is clean
-
-        CLI
-        MOV     BYTE PTR [INDOS],0               ;Go to known state
-        MOV     BYTE PTR [WPERR],-1              ;Forget about WP error
-;
-; Snake into multitasking... Get stack from CurrentPDB person
-;
-        MOV     DS,[CurrentPDB]
-        ASSUME  DS:NOTHING
-        MOV     SS,WORD PTR DS:[PDB_user_stack+2]
-        MOV     SP,WORD PTR DS:[PDB_user_stack]
-
-        ASSUME  SS:NOTHING
-        invoke  restore_world
-        ASSUME  ES:NOTHING
-        POP     AX                      ; suck off CS:IP of interrupt...
-        POP     AX
-        POP     AX
-        MOV     AX,0F202h               ; STI
-        PUSH    AX
-        PUSH    WORD PTR [EXITHOLD+2]
-        PUSH    WORD PTR [EXITHOLD]
-        STI
-        IRET            ; Long return back to user terminate address
-HardErr ENDP
-
-        ASSUME  SS:DOSGROUP
-
-do_ext
-
-CODE    ENDS
-    END

v2.0/source/DEBCOM1.ASM

@@ -1,694 +0,0 @@
-TITLE   PART1 DEBUGGER COMMANDS
-
-; Routines to perform debugger commands except ASSEMble and UASSEMble
-
-.xlist
-.xcref
-        INCLUDE DEBEQU.ASM
-        INCLUDE DOSSYM.ASM
-.cref
-.list
-
-CODE    SEGMENT PUBLIC BYTE 'CODE'
-CODE    ENDS
-
-CONST   SEGMENT PUBLIC BYTE
-
-        EXTRN   SYNERR:BYTE
-
-        EXTRN   DISPB:WORD,DSIZ:BYTE,DSSAVE:WORD
-        if  sysver
-        EXTRN   CIN:DWORD,PFLAG:BYTE
-        endif
-
-CONST   ENDS
-
-DATA    SEGMENT PUBLIC BYTE
-
-        EXTRN   DEFLEN:WORD,BYTEBUF:BYTE,DEFDUMP:BYTE
-
-DATA    ENDS
-
-DG      GROUP   CODE,CONST,DATA
-
-
-CODE    SEGMENT PUBLIC BYTE 'CODE'
-ASSUME  CS:DG,DS:DG,ES:DG,SS:DG
-
-
-        PUBLIC  HEXCHK,GETHEX1,PRINT,DSRANGE,ADDRESS,HEXIN,PERROR
-        PUBLIC  GETHEX,GET_ADDRESS,GETEOL,GETHX,PERR
-        PUBLIC  PERR,MOVE,DUMP,ENTER,FILL,SEARCH,DEFAULT
-        if  sysver
-        PUBLIC  IN
-        EXTRN   DISPREG:NEAR,DEVIOCALL:NEAR
-        endif
-
-        EXTRN   OUT:NEAR,CRLF:NEAR,OUTDI:NEAR,OUTSI:NEAR,SCANP:NEAR
-        EXTRN   SCANB:NEAR,BLANK:NEAR,TAB:NEAR,PRINTMES:NEAR,COMMAND:NEAR
-        EXTRN   HEX:NEAR,BACKUP:NEAR
-
-
-DEBCOM1:
-
-; RANGE - Looks for parameters defining an address range.
-; The first parameter is the starting address. The second parameter
-; may specify the ending address, or it may be preceded by
-; "L" and specify a length (4 digits max), or it may be
-; omitted and a length of 128 bytes is assumed. Returns with
-; segment in AX, displacement in DX, and length in CX.
-
-DSRANGE:
-        MOV     BP,[DSSAVE]             ; Set default segment to DS
-        MOV     [DEFLEN],128            ; And default length to 128 bytes
-RANGE:
-        CALL    ADDRESS
-        PUSH    AX                      ; Save segment
-        PUSH    DX                      ; Save offset
-        CALL    SCANP                   ; Get to next parameter
-        MOV     AL,[SI]
-        CMP     AL,"L"                  ; Length indicator?
-        JE      GETLEN
-        MOV     DX,[DEFLEN]             ; Default length
-        CALL    HEXIN                   ; Second parameter present?
-        JC      GetDef                  ; If not, use default
-        MOV     CX,4
-        CALL    GETHEX                  ; Get ending address (same segment)
-        MOV     CX,DX                   ; Low 16 bits of ending addr.
-        POP     DX                      ; Low 16 bits of starting addr.
-        SUB     CX,DX                   ; Compute range
-        JAE     DSRNG2
-DSRNG1: JMP     PERROR                  ; Negative range
-DSRNG2: INC     CX                      ; Include last location
-        JCXZ    DSRNG1                  ; Wrap around error
-        POP     AX                      ; Restore segment
-        RET
-GetDef:
-        POP     CX                      ; get original offset
-        PUSH    CX                      ; save it
-        NEG     CX                      ; rest of segment
-        JZ      RngRet                  ; use default
-        CMP     CX,DX                   ; more room in segment?
-        JAE     RngRet                  ; yes, use default
-        JMP     RngRet1                 ; no, length is in CX
-
-GETLEN:
-        INC     SI                      ; Skip over "L" to length
-        MOV     CX,4                    ; Length may have 4 digits
-        CALL    GETHEX                  ; Get the range
-RNGRET:
-        MOV     CX,DX                   ; Length
-RngRet1:
-        POP     DX                      ; Offset
-        MOV     AX,CX
-        ADD     AX,DX
-        JNC     OKRET
-        CMP     AX,1
-        JAE     DSRNG1                  ; Look for wrap error
-OKRET:
-        POP     AX                      ; Segment
-        RET
-
-DEFAULT:
-; DI points to default address and CX has default length
-        CALL    SCANP
-        JZ      USEDEF                  ; Use default if no parameters
-        MOV     [DEFLEN],CX
-        CALL    RANGE
-        JMP     GETEOL
-USEDEF:
-        MOV     SI,DI
-        LODSW                           ; Get default displacement
-        MOV     DX,AX
-        LODSW                           ; Get default segment
-        RET
-
-; Dump an area of memory in both hex and ASCII
-
-DUMP:
-        MOV     BP,[DSSAVE]
-        MOV     CX,DISPB
-        MOV     DI,OFFSET DG:DEFDUMP
-        CALL    DEFAULT                 ; Get range if specified
-        MOV     DS,AX                   ; Set segment
-        MOV     SI,DX                   ; SI has displacement in segment
-
-        IF  ZIBO
-        PUSH    SI                      ; save SI away
-        AND     SI,0FFF0h               ; convert to para number
-        CALL    OutSI                   ; display location
-        POP     SI                      ; get SI back
-        MOV     AX,SI                   ; move offset
-        MOV     AH,3                    ; spaces per byte
-        AND     AL,0Fh                  ; convert to real offset
-        MUL     AH                      ; compute (AL+1)*3-1
-        OR      AL,AL                   ; set flag
-        JZ      InRow                   ; if xero go on
-        PUSH    CX                      ; save count
-        MOV     CX,AX                   ; move to convenient spot
-        CALL    Tab                     ; move over
-        POP     CX                      ; get back count
-        JMP     InRow                   ; display line
-        ENDIF
-
-ROW:
-        CALL    OUTSI                   ; Print address at start of line
-InRow:
-        PUSH    SI                      ; Save address for ASCII dump
-        CALL    BLANK
-BYTE0:
-        CALL    BLANK                   ; Space between bytes
-BYTE1:
-        LODSB                           ; Get byte to dump
-        CALL    HEX                     ; and display it
-        POP     DX                      ; DX has start addr. for ASCII dump
-        DEC     CX                      ; Drop loop count
-        JZ      ToAscii                 ; If through do ASCII dump
-        MOV     AX,SI
-        TEST    AL,CS:(BYTE PTR DSIZ)   ; On 16-byte boundary?
-        JZ      ENDROW
-        PUSH    DX                      ; Didn't need ASCII addr. yet
-        TEST    AL,7                    ; On 8-byte boundary?
-        JNZ     BYTE0
-        MOV     AL,"-"                  ; Mark every 8 bytes
-        CALL    OUT
-        JMP     SHORT BYTE1
-ENDROW:
-        CALL    ASCII                   ; Show it in ASCII
-        JMP     SHORT ROW               ; Loop until count is zero
-ToAscii:
-        MOV     AX,SI                   ; get offset
-        AND     AL,0Fh                  ; real offset
-        JZ      ASCII                   ; no loop if already there
-        SUB     AL,10h                  ; remainder
-        NEG     AL
-        MOV     CL,3
-        MUL     CL
-        MOV     CX,AX                   ; number of chars to move
-        CALL    Tab
-ASCII:
-        PUSH    CX                      ; Save byte count
-        MOV     AX,SI                   ; Current dump address
-        MOV     SI,DX                   ; ASCII dump address
-        SUB     AX,DX                   ; AX=length of ASCII dump
-        IF NOT ZIBO
-; Compute tab length. ASCII dump always appears on right side
-; screen regardless of how many bytes were dumped. Figure 3
-; characters for each byte dumped and subtract from 51, which
-; allows a minimum of 3 blanks after the last byte dumped.
-        MOV     BX,AX
-        SHL     AX,1                    ; Length times 2
-        ADD     AX,BX                   ; Length times 3
-        MOV     CX,51
-        SUB     CX,AX                   ; Amount to tab in CX
-        CALL    TAB
-        MOV     CX,BX                   ; ASCII dump length back in CX
-        ELSE
-        MOV     CX,SI                   ; get starting point
-        DEC     CX
-        AND     CX,0Fh
-        INC     CX
-        AND     CX,0Fh
-        ADD     CX,3                    ; we have the correct number to tab
-        PUSH    AX                      ; save count
-        CALL    TAB
-        POP     CX                      ; get count back
-        ENDIF
-ASCDMP:
-        LODSB                           ; Get ASCII byte to dump
-        AND     AL,7FH                  ; ASCII uses 7 bits
-        CMP     AL,7FH                  ; Don't try to print RUBOUT
-        JZ      NOPRT
-        CMP     AL," "                  ; Check for control characters
-        JNC     PRIN
-NOPRT:
-        MOV     AL,"."                  ; If unprintable character
-PRIN:
-        CALL    OUT                     ; Print ASCII character
-        LOOP    ASCDMP                  ; CX times
-        POP     CX                          ; Restore overall dump length
-        MOV     ES:WORD PTR [DEFDUMP],SI
-        MOV     ES:WORD PTR [DEFDUMP+2],DS  ; Save last address as default
-        CALL    CRLF                        ; Print CR/LF and return
-        RET
-
-
-; Block move one area of memory to another. Overlapping moves
-; are performed correctly, i.e., so that a source byte is not
-; overwritten until after it has been moved.
-
-MOVE:
-        CALL    DSRANGE                 ; Get range of source area
-        PUSH    CX                      ; Save length
-        PUSH    AX                      ; Save segment
-        PUSH    DX                      ; Save source displacement
-        CALL    ADDRESS                 ; Get destination address (same segment)
-        CALL    GETEOL                  ; Check for errors
-        POP     SI
-        MOV     DI,DX                   ; Set dest. displacement
-        POP     BX                      ; Source segment
-        MOV     DS,BX
-        MOV     ES,AX                   ; Destination segment
-        POP     CX                      ; Length
-        CMP     DI,SI                   ; Check direction of move
-        SBB     AX,BX                   ; Extend the CMP to 32 bits
-        JB      COPYLIST                ; Move forward into lower mem.
-; Otherwise, move backward. Figure end of source and destination
-; areas and flip direction flag.
-        DEC     CX
-        ADD     SI,CX                   ; End of source area
-        ADD     DI,CX                   ; End of destination area
-        STD                             ; Reverse direction
-        INC     CX
-COPYLIST:
-        MOVSB                           ; Do at least 1 - Range is 1-10000H not 0-FFFFH
-        DEC     CX
-        REP     MOVSB                   ; Block move
-RET1:   RET
-
-; Fill an area of memory with a list values. If the list
-; is bigger than the area, don't use the whole list. If the
-; list is smaller, repeat it as many times as necessary.
-
-FILL:
-        CALL    DSRANGE                 ; Get range to fill
-        PUSH    CX                      ; Save length
-        PUSH    AX                      ; Save segment number
-        PUSH    DX                      ; Save displacement
-        CALL    LIST                    ; Get list of values to fill with
-        POP     DI                      ; Displacement in segment
-        POP     ES                      ; Segment
-        POP     CX                      ; Length
-        CMP     BX,CX                   ; BX is length of fill list
-        MOV     SI,OFFSET DG:BYTEBUF    ; List is in byte buffer
-        JCXZ    BIGRNG
-        JAE     COPYLIST                ; If list is big, copy part of it
-BIGRNG:
-        SUB     CX,BX                   ; How much bigger is area than list?
-        XCHG    CX,BX                   ; CX=length of list
-        PUSH    DI                      ; Save starting addr. of area
-        REP     MOVSB                   ; Move list into area
-        POP     SI
-; The list has been copied into the beginning of the
-; specified area of memory. SI is the first address
-; of that area, DI is the end of the copy of the list
-; plus one, which is where the list will begin to repeat.
-; All we need to do now is copy [SI] to [DI] until the
-; end of the memory area is reached. This will cause the
-; list to repeat as many times as necessary.
-        MOV     CX,BX                   ; Length of area minus list
-        PUSH    ES                      ; Different index register
-        POP     DS                      ; requires different segment reg.
-        JMP     SHORT COPYLIST          ; Do the block move
-
-; Search a specified area of memory for given list of bytes.
-; Print address of first byte of each match.
-
-SEARCH:
-        CALL    DSRANGE                 ; Get area to be searched
-        PUSH    CX                      ; Save count
-        PUSH    AX                      ; Save segment number
-        PUSH    DX                      ; Save displacement
-        CALL    LIST                    ; Get search list
-        DEC     BX                      ; No. of bytes in list-1
-        POP     DI                      ; Displacement within segment
-        POP     ES                      ; Segment
-        POP     CX                      ; Length to be searched
-        SUB     CX,BX                   ;  minus length of list
-SCAN:
-        MOV     SI,OFFSET DG:BYTEBUF    ; List kept in byte buffer
-        LODSB                           ; Bring first byte into AL
-DOSCAN:
-        SCASB                           ; Search for first byte
-        LOOPNE  DOSCAN                  ; Do at least once by using LOOP
-        JNZ     RET1                    ; Exit if not found
-        PUSH    BX                      ; Length of list minus 1
-        XCHG    BX,CX
-        PUSH    DI                      ; Will resume search here
-        REPE    CMPSB                   ; Compare rest of string
-        MOV     CX,BX                   ; Area length back in CX
-        POP     DI                      ; Next search location
-        POP     BX                      ; Restore list length
-        JNZ     TEST                    ; Continue search if no match
-        DEC     DI                      ; Match address
-        CALL    OUTDI                   ; Print it
-        INC     DI                      ; Restore search address
-        CALL    CRLF
-TEST:
-        JCXZ    RET1
-        JMP     SHORT SCAN              ; Look for next occurrence
-
-; Get the next parameter, which must be a hex number.
-; CX is maximum number of digits the number may have.
-
-GETHX:
-        CALL    SCANP
-GETHX1:
-        XOR     DX,DX                   ; Initialize the number
-        CALL    HEXIN                   ; Get a hex digit
-        JC      HXERR                   ; Must be one valid digit
-        MOV     DL,AL                   ; First 4 bits in position
-GETLP:
-        INC     SI                      ; Next char in buffer
-        DEC     CX                      ; Digit count
-        CALL    HEXIN                   ; Get another hex digit?
-        JC      RETHX                   ; All done if no more digits
-        STC
-        JCXZ    HXERR                   ; Too many digits?
-        SHL     DX,1                    ; Multiply by 16
-        SHL     DX,1
-        SHL     DX,1
-        SHL     DX,1
-        OR      DL,AL                   ; and combine new digit
-        JMP     SHORT GETLP             ; Get more digits
-
-GETHEX:
-        CALL    GETHX                   ; Scan to next parameter
-        JMP     SHORT GETHX2
-GETHEX1:
-        CALL    GETHX1
-GETHX2: JC      PERROR
-RETHX:  CLC
-HXERR:  RET
-
-
-; Check if next character in the input buffer is a hex digit
-; and convert it to binary if it is. Carry set if not.
-
-HEXIN:
-        MOV     AL,[SI]
-
-; Check if AL has a hex digit and convert it to binary if it
-; is. Carry set if not.
-
-HEXCHK:
-        SUB     AL,"0"                  ; Kill ASCII numeric bias
-        JC      RET2
-        CMP     AL,10
-        CMC
-        JNC     RET2                    ; OK if 0-9
-        AND     AL,5FH
-        SUB     AL,7                    ; Kill A-F bias
-        CMP     AL,10
-        JC      RET2
-        CMP     AL,16
-        CMC
-RET2:   RET
-
-; Process one parameter when a list of bytes is
-; required. Carry set if parameter bad. Called by LIST.
-
-LISTITEM:
-        CALL    SCANP                   ; Scan to parameter
-        CALL    HEXIN                   ; Is it in hex?
-        JC      STRINGCHK               ; If not, could be a string
-        MOV     CX,2                    ; Only 2 hex digits for bytes
-        CALL    GETHEX                  ; Get the byte value
-        MOV     [BX],DL                 ; Add to list
-        INC     BX
-GRET:   CLC                             ; Parameter was OK
-        RET
-STRINGCHK:
-        MOV     AL,[SI]                 ; Get first character of param
-        CMP     AL,"'"                  ; String?
-        JZ      STRING
-        CMP     AL,'"'                  ; Either quote is all right
-        JZ      STRING
-        STC                             ; Not string, not hex - bad
-        RET
-STRING:
-        MOV     AH,AL                   ; Save for closing quote
-        INC     SI
-STRNGLP:
-        LODSB                           ; Next char of string
-        CMP     AL,13                   ; Check for end of line
-        JZ      PERR                    ; Must find a close quote
-        CMP     AL,AH                   ; Check for close quote
-        JNZ     STOSTRG                 ; Add new character to list
-        CMP     AH,[SI]                 ; Two quotes in a row?
-        JNZ     GRET                    ; If not, we're done
-        INC     SI                      ; Yes - skip second one
-STOSTRG:
-        MOV     [BX],AL                 ; Put new char in list
-        INC     BX
-        JMP     SHORT STRNGLP           ; Get more characters
-
-; Get a byte list for ENTER, FILL or SEARCH. Accepts any number
-; of 2-digit hex values or character strings in either single
-; (') or double (") quotes.
-
-LIST:
-        MOV     BX,OFFSET DG:BYTEBUF    ; Put byte list in the byte buffer
-LISTLP:
-        CALL    LISTITEM                ; Process a parameter
-        JNC     LISTLP                  ; If OK, try for more
-        SUB     BX,OFFSET DG:BYTEBUF    ; BX now has no. of bytes in list
-        JZ      PERROR                  ; List must not be empty
-
-; Make sure there is nothing more on the line except for
-; blanks and carriage return. If there is, it is an
-; unrecognized parameter and an error.
-
-GETEOL:
-        CALL    SCANB                   ; Skip blanks
-        JNZ     PERROR                  ; Better be a RETURN
-RET3:   RET
-
-; Command error. SI has been incremented beyond the
-; command letter so it must decremented for the
-; error pointer to work.
-
-PERR:
-        DEC     SI
-
-; Syntax error. SI points to character in the input buffer
-; which caused error. By subtracting from start of buffer,
-; we will know how far to tab over to appear directly below
-; it on the terminal. Then print "^ Error".
-
-PERROR:
-        SUB     SI,OFFSET DG:(BYTEBUF-1); How many char processed so far?
-        MOV     CX,SI                   ; Parameter for TAB in CX
-        CALL    TAB                     ; Directly below bad char
-        MOV     SI,OFFSET DG:SYNERR     ; Error message
-
-; Print error message and abort to command level
-
-PRINT:
-        CALL    PRINTMES
-        JMP     COMMAND
-
-; Gets an address in Segment:Displacement format. Segment may be omitted
-; and a default (kept in BP) will be used, or it may be a segment
-; register (DS, ES, SS, CS). Returns with segment in AX, OFFSET in DX.
-
-ADDRESS:
-        CALL    GET_ADDRESS
-        JC      PERROR
-ADRERR: STC
-        RET
-
-GET_ADDRESS:
-        CALL    SCANP
-        MOV     AL,[SI+1]
-        CMP     AL,"S"
-        JZ      SEGREG
-        MOV     CX,4
-        CALL    GETHX
-        JC      ADRERR
-        MOV     AX,BP                   ; Get default segment
-        CMP     BYTE PTR [SI],":"
-        JNZ     GETRET
-        PUSH    DX
-GETDISP:
-        INC     SI                      ; Skip over ":"
-        MOV     CX,4
-        CALL    GETHX
-        POP     AX
-        JC      ADRERR
-GETRET: CLC
-        RET
-SEGREG:
-        MOV     AL,[SI]
-        MOV     DI,OFFSET DG:SEGLET
-        MOV     CX,4
-        REPNE   SCASB
-        JNZ     ADRERR
-        INC     SI
-        INC     SI
-        SHL     CX,1
-        MOV     BX,CX
-        CMP     BYTE PTR [SI],":"
-        JNZ     ADRERR
-        PUSH    [BX+DSSAVE]
-        JMP     SHORT GETDISP
-
-SEGLET  DB      "CSED"
-
-; Short form of ENTER command. A list of values from the
-; command line are put into memory without using normal
-; ENTER mode.
-
-GETLIST:
-        CALL    LIST                    ; Get the bytes to enter
-        POP     DI                      ; Displacement within segment
-        POP     ES                      ; Segment to enter into
-        MOV     SI,OFFSET DG:BYTEBUF    ; List of bytes is in byte 2uffer
-        MOV     CX,BX                   ; Count of bytes
-        REP     MOVSB                   ; Enter that byte list
-        RET
-
-; Enter values into memory at a specified address. If the
-; line contains nothing but the address we go into "enter
-; mode", where the address and its current value are printed
-; and the user may change it if desired. To change, type in
-; new value in hex. Backspace works to correct errors. If
-; an illegal hex digit or too many digits are typed, the
-; bell is sounded but it is otherwise ignored. To go to the
-; next byte (with or without change), hit space bar. To
-; back   CLDto a previous address, type "-". On
-; every 8-byte boundary a new line is started and the address
-; is printed. To terminate command, type carriage return.
-;   Alternatively, the list of bytes to be entered may be
-; included on the original command line immediately following
-; the address. This is in regular LIST format so any number
-; of hex values or strings in quotes may be entered.
-
-ENTER:
-        MOV     BP,[DSSAVE]             ; Set default segment to DS
-        CALL    ADDRESS
-        PUSH    AX                      ; Save for later
-        PUSH    DX
-        CALL    SCANB                   ; Any more parameters?
-        JNZ     GETLIST                 ; If not end-of-line get list
-        POP     DI                      ; Displacement of ENTER
-        POP     ES                      ; Segment
-GETROW:
-        CALL    OUTDI                   ; Print address of entry
-        CALL    BLANK                   ; Leave a space
-        CALL    BLANK
-GETBYTE:
-        MOV     AL,ES:[DI]              ; Get current value
-        CALL    HEX                     ; And display it
-PUTDOT:
-        MOV     AL,"."
-        CALL    OUT                     ; Prompt for new value
-        MOV     CX,2                    ; Max of 2 digits in new value
-        MOV     DX,0                    ; Intial new value
-GETDIG:
-        CALL    IN                      ; Get digit from user
-        MOV     AH,AL                   ; Save
-        CALL    HEXCHK                  ; Hex digit?
-        XCHG    AH,AL                   ; Need original for echo
-        JC      NOHEX                   ; If not, try special command
-        MOV     DH,DL                   ; Rotate new value
-        MOV     DL,AH                   ; And include new digit
-        LOOP    GETDIG                  ; At most 2 digits
-; We have two digits, so all we will accept now is a command.
-DWAIT:
-        CALL    IN                      ; Get command character
-NOHEX:
-        CMP     AL,8                    ; Backspace
-        JZ      BS
-        CMP     AL,7FH                  ; RUBOUT
-        JZ      RUB
-        CMP     AL,"-"                  ; Back   CLDto previous address
-        JZ      PREV
-        CMP     AL,13                   ; All done with command?
-        JZ      EOL
-        CMP     AL," "                  ; Go to next address
-        JZ      NEXT
-        MOV     AL,8
-        CALL    OUT                     ; Back   CLDover illegal character
-        CALL    BACKUP
-        JCXZ    DWAIT
-        JMP     SHORT GETDIG
-
-RUB:
-        MOV     AL,8
-        CALL    OUT
-BS:
-        CMP     CL,2                    ; CX=2 means nothing typed yet
-        JZ      PUTDOT                  ; Put back the dot we backed     CLDover
-        INC     CL                      ; Accept one more character
-        MOV     DL,DH                   ; Rotate out last digit
-        MOV     DH,CH                   ; Zero this digit
-        CALL    BACKUP                  ; Physical backspace
-        JMP     SHORT GETDIG            ; Get more digits
-
-; If new value has been entered, convert it to binary and
-; put into memory. Always bump pointer to next location
-
-STORE:
-        CMP     CL,2                    ; CX=2 means nothing typed yet
-        JZ      NOSTO                   ; So no new value to store
-; Rotate DH left 4 bits to combine with DL and make a byte value
-        PUSH    CX
-        MOV     CL,4
-        SHL     DH,CL
-        POP     CX
-        OR      DL,DH                   ; Hex is now converted to binary
-        MOV     ES:[DI],DL              ; Store new value
-NOSTO:
-        INC     DI                      ; Prepare for next location
-        RET
-NEXT:
-        CALL    STORE                   ; Enter new value
-        INC     CX                      ; Leave a space plus two for
-        INC     CX                      ;  each digit not entered
-        CALL    TAB
-        MOV     AX,DI                   ; Next memory address
-        AND     AL,7                    ; Check for 8-byte boundary
-        JNZ     GETBYTE                 ; Take 8 per line
-NEWROW:
-        CALL    CRLF                    ; Terminate line
-        JMP     GETROW                  ; Print address on new line
-PREV:
-        CALL    STORE                   ; Enter the new value
-; DI has been bumped to next byte. Drop it 2 to go to previous addr
-        DEC     DI
-        DEC     DI
-        JMP     SHORT NEWROW            ; Terminate line after backing   CLD
-
-EOL:
-        CALL    STORE                   ; Enter the new value
-        JMP     CRLF                    ; CR/LF and terminate
-
-; Console input of single character
-
-        IF      SYSVER
-IN:
-        PUSH    DS
-        PUSH    SI
-        LDS     SI,CS:[CIN]
-        MOV     AH,4
-        CALL    DEVIOCALL
-        POP     SI
-        POP     DS
-        CMP     AL,3
-        JNZ     NOTCNTC
-        INT     23H
-NOTCNTC:
-        CMP     AL,'P'-'@'
-        JZ      PRINTON
-        CMP     AL,'N'-'@'
-        JZ      PRINTOFF
-        CALL    OUT
-        RET
-
-PRINTOFF:
-PRINTON:
-        NOT     [PFLAG]
-        JMP     SHORT IN
-
-        ELSE
-
-IN:
-        MOV     AH,1
-        INT     21H
-        RET
-        ENDIF
-
-CODE    ENDS
-        END     DEBCOM1
-

v2.0/source/DEBEQU.ASM

@@ -1,32 +0,0 @@
-FALSE   EQU     0
-TRUE    EQU     NOT FALSE
-
-IBMVER  EQU     true                   ; Set conditional switches
-MSVER   EQU     false
-
-SYSVER  EQU     FALSE                   ; if true, i/o direct to bios
-                                        ; so DOS can be debugged
-IBMJAPAN EQU    FALSE
-
-SETCNTC EQU     TRUE                    ; If this is FALSE, DEBUG will not set
-                                        ; the Control C int vector
-
-ZIBO    EQU     TRUE                    ; true if P traces over interrupts
-                                        ; and calls and dump looks pretty
-PROMPT  EQU     "-"
-FCB     EQU     5CH
-EXEFCB  EQU     FCB
-BUFLEN  EQU     80                      ; Maximum length of line input buffer
-BPMAX   EQU     10                      ; Maximum number of breakpoints
-BPLEN   EQU     5*BPMAX                 ; Length of breakpoint table
-REGTABLEN EQU   14                      ; Number of registers
-SEGDIF  EQU     0
-BUFSIZ  EQU     512
-
-BXREG   EQU     "B"+5800H               ; "BX"
-BPREG   EQU     "B"+5000H               ; "BP"
-SIREG   EQU     "S"+4900H               ; "SI"
-DIREG   EQU     "D"+4900H               ; "DI"
-COMMA   EQU     2C00H
-OPBUFLEN        EQU     35
-