1 files changed, 537 insertions, 0 deletions
diff --git a/v4.0/src/CMD/PRINT/PRIDEFS.INC b/v4.0/src/CMD/PRINT/PRIDEFS.INC
new file mode 100644
index 0000000..c0efae8
--- /dev/null
+++ b/v4.0/src/CMD/PRINT/PRIDEFS.INC
@@ -0,0 +1,537 @@
+;                       $SALUT (4,25,30,41)
+;******************* START OF SPECIFICATIONS ***********************************
+;
+; MODULE NAME:          PRINT.COM
+;
+; DESCRIPTIVE NAME:     DOS PRINT program for background printing of
+;                       text files to the list device.
+;
+; FUNCTION:             DOS PRINT program for background printing of
+;                       text files to the list device.  The utility is
+;                       constructed of 3 .SAL files. They are:
+;
+;                               PRINT_R.SAL  - The resident portion of PRINT
+;                               PRINT_T.SAL  - The transient portion of PRINT
+;                               PRINT_SR.SAL - The service routines of PRINT
+;
+;                       NOTE:   The Link order is VERY important for this module.
+;                               This is due to the Resident/Transient nature of
+;                               PRINT.
+;
+;                               INT 28H is a software interrupt generated by the
+;                               DOS in  its  I/O  wait  loops.   This spooler
+;                               can be assembled for operation using only this
+;                               interrupt  which  is  portable  from system to
+;                               system.  It may also be assembled to use a
+;                               hardware timer interrupt in addition to the
+;                               software  INT  28H.   The purpose  of  using
+;                               hardware interrupts is to allow printing to
+;                               continue during programs which do not  enter
+;                               the system and therefore causes the INT 28H to
+;                               go away.  A timer interrupt is chosen in
+;                               preference to a "printer buffer empty" interrupt
+;                               because PRINT in the timer form is generic.  It
+;                               can be given the name of any currently installed
+;                               character device as the "printer", this makes it
+;                               portable to devices which are installed by the
+;                               user even in the hardware case.  It could be
+;                               Revised to use a buffer empty interrupt (no
+;                               code is given for this case), if this is done
+;                               the PROMPT and BADMES messages and their
+;                               associated  code should be removed as PRINT will
+;                               then be device specific.
+;
+;       NOTE From Aaron Reynolds
+;
+; BEWARE ALL YEE WHO ENTER HERE.
+;    PRINT is an amazingly complex program.  MS-DOS versions below 3.00 are
+;    NOT re-entrant, this means that this utility is basically not a
+;    possibility.  It gets by on the fact that it is written by the same
+;    person who wrote the OS.  Since you are not that person, you must be very
+;    careful about making any modification to this utility.  There are a
+;    number of things which may seem to be unnecessary on first examination.
+;    BEWARE, almost every line of code is there for a very good reason.  The
+;    order of things is very carefully chosen.  PRINT is full of potential
+;    windows, make sure that you do not open one by careless modification.  Do
+;    not look for a lot of help from the comments, a complete explanation
+;    would probably fill a book.  A succesful modifier will have an in-depth
+;    knowledge of the internal function of MS-DOS, and of the PRINT utility
+;    itself through in depth study of the comments AND the code.
+;
+; ENTRY POINT:
+;
+; INPUT:
+;
+; EXIT NORMAL:
+;
+; EXIT ERROR:
+;
+; INTERNAL REFERENCES:
+;
+;       ROUTINES:
+;
+;       DATA AREAS:
+;
+; EXTERNAL REFERENCES:
+;
+;       ROUTINES:
+;
+;       DATA AREAS:
+;
+; NOTES:
+;
+; REVISION HISTORY: Ax000  Version 4.0  05/01/87 - first release              FG
+;                   Ax001  DCR D201              - Extended Atrib change      FG
+;                   Ax002  P 1175                - move msgs back to TRANS    FG
+;                   Ax003  P 1487                - PARSE error message problemFG
+;                   Ax004  P 1546                - PARSE error trailing :     FG
+;                   Ax005  P 1717                - multiples of same switch   FG
+;                   Ax006  P 1996                - Extended open error        FG
+;                   Ax007  P 2052                - [PRN] prompt lpt1 error    FG
+;                   Ax008  P 2053                - CPSW prints empty file     FG
+;                   Ax009  P 2229                - filename truncation        FG
+;                   Ax010  D  389                - use transname /server DOS  FG
+;                   Ax011  P 3122                - attrib missing /server DOS FG
+;                   Ax012  P 3949                - Error in opening an open   FG
+;                   Ax013  P 3949                - open mode - second attempt FG
+;                   Ax014  P 4396                - some messages need STDOUT  FG
+;                   Ax015  P 4880                - DRIVERS not recognized     FG
+;
+; PRE-VERSION 4.0 HISTORY:
+;
+;       V1.00   07/03/82
+;       V2.00   07/05/83        A.R
+;               New INT 2FH interface, Pathnames, context switch.
+;       V2.50   09/14/83        M.A.U
+;               Turned it back to a print
+;               11/21/83        M.A.U
+;               Repaired bug in file cancel code
+;               11/28/83        M.A.U
+;               Added int 23 and 24 handlers to transient.
+;               01/27/84        M.A.U
+;               Allways checks for valid drive.
+;       V3.00   02/03/84        M.A.U
+;               Partitioned so as to assemble on a PC
+;               By the by, it is V3.00 now.
+;               05/23/85        K.G.S
+;               Chains into INT19 (bootstrap) to unhook
+;               INT_1C (timer) and INT_15 (AT's Wait On Event)
+;
+; COPYRIGHT: "The DOS PRINT Utility"
+;            "Version 4.00 (C) Copyright 1988 Microsoft
+;            "Licenced Material - Program Property of Microsoft"
+;
+;
+;******************* END OF SPECIFICATIONS *************************************
+                        subttl PRINT - Program Organization
+                        page
+;******************* START PROGRAM ORGANIZATION *******************************
+;
+;
+;Group / Label        Contents              File
+;              �����������������Ŀ Ŀ
+;CODER         �  Data buffer    �  � PRINT_RM
+;              �����������������ʹ ��
+;              �                 � Ŀ
+;              �  Resident       �  �
+;              �    Code         �  �
+;              �                 �  �
+;filequeue --- �����������������Ĵ  �
+;              �  Resident       �  �
+;              �    Initalization�  ��  PRINT_R
+;              �      Code       �  �
+;              �����������������Ĵ  �
+;              �����������������ʹ ��
+;              �  CL1 data       �  �
+;              �����������������Ĵ  �
+;              �  CL2 data       �
+;              �����������������Ĵ  �
+;              �  CLB data       �  �
+;              �����������������Ĵ  ��  PRINT_TM
+;              �  CLC data       �  �
+;              �����������������Ĵ  �
+;              �  CLD data       �  �
+;              �����������������ʹ ��
+;DG            �  Transient      � Ŀ
+;              �    code         �  �
+;              �����������������Ĵ  �
+;              �  DispMsg        �  �
+;              �����������������Ĵ  �
+;              �  SYSMSG         �  �
+;              �    Code         �  �
+;              �  Parser         �  �
+;              �����������������Ĵ  �
+;              �  Transient      �  ��  PRINT_T
+;              �    data         �  �
+;              �����������������Ĵ  �
+;              �  Stack          �  �
+;transsize --- ������������������� ��
+;
+;
+;*******************  END  ROGRAM ORGANIZATION  ********************************
+                        subttl PRINT - Data Space
+                        page
+INCLUDE SYSVAR.INC
+FALSE                   EQU  0
+TRUE                    EQU  NOT FALSE
+IBM                      EQU  IBMVER
+;IBMVER                  EQU  IBM
+;MSVER                   EQU  FALSE
+                        IF   MSVER
+HARDINT                     EQU  FALSE  ;No hardware ints
+AINT                        EQU  FALSE  ;No need to do interrupt acknowledge
+                        ENDIF
+                        IF   IBM
+HARDINT                     EQU  TRUE
+INTLOC                      EQU  1CH    ;Hardware interrupt location (Timer)
+REBOOT                      EQU  19H    ;ROM BIOS "Bootstrap"
+AINT                        EQU  TRUE   ;Acknowledge interrupts
+EOI                         EQU  20H    ;End Of Interrupt "instruction"
+AKPORT                      EQU  20H    ;Interrupt Acknowledge port
+                        ENDIF
+;  The following values have to do with the ERRCNT variable and the CNTMES
+;  message.  The values define levels at wich it is assumed an off-line error
+;  exists.  ERRCNT1 defines the value of ERRCNT above which the CNTMES message
+;  is printed by the transient.  ERRCNT2 defines the value of ERRCNT above
+;  which the resident will give up trying to print messages on the printer, it
+;  is much greater than ERRCNT1 because a much tighter loop is involved.  The
+;  bounding event which determines the correct value is the time required to
+;  do a form feed.
+                        IF   IBM
+ERRCNT1                     EQU  1500
+ERRCNT2                     EQU  20000
+                        ELSE
+ERRCNT1                     EQU  1500
+ERRCNT2                     EQU  20000
+                        ENDIF
+;WARNING DANGER WARNING:
+;   PRINT is a systems utility. It is clearly understood that it may have
+;   to be entirely re-written for future versions of MS-DOS. The following
+;   TWO vectors are version specific, they may not exist at all in future
+;   versions. If they do exist, they may function differently.
+; ANY PROGRAM WHICH IMITATES PRINTS USE OF THESE VECTORS IS ALSO A SYSTEMS
+; UTILITY AND IS THEREFORE NOT VERSION PORTABLE IN ANY WAY SHAPE OR FORM.
+; YOU HAVE BEEN WARNED, "I DID IT THE SAME WAY PRINT DID" IS NOT AN REASON
+; TO EXPECT A PROGRAM TO WORK ON FUTURE VERSIONS OF MS-DOS.
+SOFTINT                 EQU  28H        ;Software interrupt generated by DOS
+ComInt                  EQU  2FH        ;Communications interrupt used by PSPRINT
+                                        ;    Multiplex number 0 and 1
+;----- Default (and Maximal / Minimal) Print queue length
+MinQueueLen             equ  4          ; 4 files worth min
+MaxQueueLen             equ  32         ; 32 files worth max.
+DefQueueLen             equ  10         ; 10 files worth
+;----- Default (and Maximal / Minimal) Print buffer length
+MinBufferLen            equ  512        ; set minimum to 512 bytes
+MaxBufferLen            equ  1024 * 16  ; maximum is 16 K bytes
+DefBufferLen            equ  MinBufferLen ; set default to minimum
+;----- Default (and Maximal / Minimal) Time Slice
+MinTimeSlice            equ  1          ; set minimum to 1
+MaxTimeSlice            equ  255        ; maximum is 255
+DefTimeSlice            equ  10         ; set default to 10
+;----- Default (and Maximal / Minimal) Busy Tick
+MinBusyTick             equ  1          ; set minimum to 1
+MaxBusyTick             equ  255        ; maximum is 255
+DefBusyTick             equ  MinBusyTick ; set default to minimum
+;----- Default (and Maximal / Minimal) Max Tick
+MinMaxTick             equ  1          ; set minimum to 1
+MaxMaxTick             equ  255        ; maximum is 255
+DefMaxTick             equ  2          ; set default to 2
+;----- Maximum length of a file name (incl nul)
+MaxFileLen              equ  64
+; **************** Bogosity Warning *****************
+;  Below is the equate that MaxFile SHOULD be.  Since the 3.0/3.1 documentation
+;  documents each queue entry as being 64 chars long.  Yes it is known that
+;  that causes Print to misbehave on files deep in trees.  But for
+;  compatibilities sake, IBM insisted that we change the code back to the
+;  way it was.
+;MaxFileLen equ  63 + 2 + 12             ; 63 characters as Command.com's
+                                        ;         max. path length
+                                        ; 2  character for the Drive ext.
+                                        ; 12 characters for the max. valid
+                                        ;    DOS filename
+                                        ;----------------------------------------
+                                        ;  definition of the MODE bits
+                                        ;     for an extended open
+                                        ;----------------------------------------
+;                 BITS DEFINED FOR THE MODE WORD
+;                       FORMAT = 0WF00000ISSS0AAA
+;              Write   �����������ٳ     ��   ���� Access code
+;                0 = no commit     �     ��             0 = read
+;                1 = auto commit   �     ��             1 = write
+;                                  �     ��             2 = read/write
+;          Fail action �������������     ��             3 = execute
+;            0 = INT 24h                 ��             4 = FCB
+;            1 = return error            ��
+;                                        �����  Sharing mode
+;                                        �         0 = compatability
+;                                        �         1 = deny read/write
+;                                        �         2 = deny write
+;                                        �         3 = deny read
+;                                        �         4 = deny none
+;                                      Inherit
+;                                        0 = pass handle to child
+;                                        1 = no inherit
+;
+MODE_COM                equ  0100000000000000b ; Auto Commit
+MODE_NO24               equ  0010000000000000b ; No 24 - return error
+MODE_NOINH              equ  0000000010000000b ; No child procees access
+;                                            Sharing mode
+MODE_SH_COMP            equ  0000000000000000b ;    0 = compatability
+MODE_SH_D_RW            equ  0000000000010000b ;    1 = deny read/write
+MODE_SH_D_W             equ  0000000000100000b ;    2 = deny write
+MODE_SH_D_R             equ  0000000000110000b ;    3 = deny read
+MODE_SH_D_NONE          equ  0000000001000000b ;    4 = deny none
+;                                            Access code
+MODE_AC_R               equ  0000000000000000b ;    0 = read
+MODE_AC_W               equ  0000000000000001b ;    1 = write
+MODE_AC_RW              equ  0000000000000010b ;    2 = read/write
+MODE_AC_EXE             equ  0000000000000011b ;    3 = execute
+MODE_AC_FCB             equ  0000000000000100b ;    4 = FCB
+GET_CPSW                equ  3          ; Get state of CPSW
+CPSW_on                 equ  1          ; CPSW is active
+major_code              equ  0ADh       ; INT 2F PRINT semaphore
+minor_code              equ  040h       ; INT 2F PRINTER set and lock CP
+                                        ;
+                                        ; The Extended Open mode is set as:
+                                        ;    Shareing Mode - Compatability
+                                        ;    Access        - Read
+                                        ;    Inharitance   - yes
+                                        ;  -- WARNING ----
+                                        ;        These MUST be set this way
+                                        ;        in order to do a second open
+                                        ;        of a file accross the network
+open_mode               equ  MODE_NO24+MODE_SH_COMP+MODE_AC_R                  ;AC013;
+ignore_cp               equ  1          ; dont validate CP - it may be different
+                                        ;  than CON
+openit                  equ  1          ; extended open 'exsists' action
+failopen                equ  0          ; extended open 'does not exsist' action
+Cap_ASCIIZ              equ  22h        ; Capitalize ASCIIZ string (INT 21 - 65)
+;----- Message  related information
+ ;================================================
+ ; PRINT Message Skeleton File
+ ;================================================
+;util   PRINT
+;class  1
+;use   EXTEND19
+;use   EXTEND20
+;use   EXTEND21
+;use   EXTEND22
+;use   EXTEND23
+;use   EXTEND24
+;use   EXTEND25
+;use   EXTEND26
+;use   EXTEND27
+;use   EXTEND28
+;use   EXTEND29
+;use   EXTEND30
+;use   EXTEND31
+;class  2
+                                         ;1 - Too many operands
+                                         ;2 - Required operand missing
+;use   PARSE3                            ;3 - Not in switch list provided
+                                         ;4 - Not in keyword list provided
+;use   PARSE6                            ;6 - Out of range specified
+                                         ;7 - Not in value list provided
+                                         ;8 - Not in string list provided
+;use   PARSE9                            ;9 - Invalid Parameter
+;class  A
+;def 6  " error reading file",CR,LF,"$"
+;def 7  "File not found",CR,LF,"$"
+;def 8  CR,LF,LF,"File $"
+;def 9  " canceled by operator$"
+;def 10 CR,LF,LF,"All files canceled by operator$"
+;def 11 "File allocation table bad drive "
+;def 12 "A.",CR,LF,"$"
+;def 13 "List output is not assigned to a device",CR,LF
+;def 14 "Resident part of PRINT installed",CR,LF
+;class  B
+;use 1  COMMON1
+;def 2  CR,LF
+;def 15 "Cannot use PRINT - Use NET PRINT",CR,LF
+;def 17 "PRINT queue is full",CR,LF
+;def 18 "PRINT queue is empty",CR,LF
+;def 19 "Access denied",CR,LF
+;def 20 "Invalid drive specification",CR,LF
+;def 21 "Errors on list device indicate that it",CR,LF
+;       "may be off-line. Please check it.",CR,LF
+;class  C
+;def 22 CR,LF,LF,"  %1 is currently being printed",CR,LF
+;def 23 "  %1 is in queue",CR,LF
+;use 24 EXTEND2
+;def 25 "Pathname too long",CR,LF
+;def 26 "File not in PRINT queue",CR,LF
+;class  D
+;def 27 "Name of list device [PRN]: "
+;end
+                                        ;--------------------------------------
+                                        ; PRINT Equates
+                                        ;--------------------------------------
+MesSerCLASS equ 0                       ; Message Service class
+DOS_error equ 1                         ; DOS extended error
+Parse_error equ 2                       ; Parse error
+CLASS_A equ 0Ah                         ; PRINT_R message
+CLASS_B equ 0Bh                         ; PRINT_T message
+CLASS_C equ 0Ch                         ; PRINT_T message with insert
+CLASS_D equ 0Dh                         ; PRINT_T message with input buffer where:
+CLASS_Util equ 0FFh                     ; PRINT utility message (Class A - D)
+buffered_input equ 0Ah                  ; Buffered keyboard input
+; CLASS 1
+ERR0 equ 19
+ERR12 equ 31
+; CLASS 2
+INVPARM                 equ  9         ; Invalid parameter   (PARSE)
+; CLASS A
+ERRMEST                 equ  6          ;  error reading file
+ErrMesT2                equ  7          ; File not found
+CanMes                  equ  8          ; File
+CanFilNam               equ  9          ;  canceled by operator
+AllCan                  equ  10         ; All files canceled by operator
+FATMES                  equ  11         ; File allocation table bad drive
+BADDRVM                 equ  12         ; A.
+BADMES                  equ  13         ; List output is not assigned to a device
+GOODMES                 equ  14         ; Resident part of PRINT installed
+; CLASS B
+NEXT_LINE               equ   2         ; advance to next line
+CONFLICTMES             equ  15         ; Cannot use PRINT - Use NET PRINT
+FULLMES                 equ  17         ; PRINT queue is full
+NoFils                  equ  18         ; PRINT queue is empty
+AccDen                  equ  19         ; Access denied
+InvDrvMes               equ  20         ; Invalid drive specification
+CNTMES                  equ  21         ; Errors on list device indicate that it
+                                        ; may be off-line. Please check it.
+; CLASS C
+FstMes                  equ  22         ; %1 is currently being printed
+SecMes                  equ  23         ; %1 is in queue
+BadNameMes              equ  24         ; %1 File not found
+NamTMes                 equ  25         ; %1 Pathname too long
+BadCanMes               equ  26         ; %1 File not in PRINT queue
+; CLASS D
+PROMPT                  equ  27         ; Name of list device [PRN]:
+DOLLAR                  equ  "$"
+Std_Out_Dev             equ  1
+;                                       $SALUT (0,41,46,52)
+.xlist
+.xcref
+BREAK                                   MACRO subtitle
+                                        SUBTTL subtitle
+                                        PAGE
+ENDM
+SaveReg                                 MACRO reglist ;; push those registers
+IRP                                     reg,<reglist>
+                                        PUSH reg
+ENDM
+ENDM
+.xcref                                  SaveReg
+RestoreReg                              MACRO reglist ;; pop those registers
+IRP                                     reg,<reglist>
+                                        POP  reg
+ENDM
+ENDM
+;                       $SALUT (4,25,30,41)
+                        INCLUDE DEVSYM.INC
+                        INCLUDE SYSCALL.INC
+                        INCLUDE ERROR.INC
+                        INCLUDE FIND.INC
+                        include dpl.asm
+                        INCLUDE PDB.INC
+                        INCLUDE SYSCALL.INC
+                        INCLUDE MI.INC
+                        INCLUDE SYSMSG.INC
+                        include versiona.inc
+.list
+.cref
+                        MSG_UTILNAME <PRINT>
+error_busy              EQU  9
+error_queue_full        EQU  8
+error_name_too_long     EQU  12
+get_ea_by_handle equ 2
+IF1
+                        IF   IBM
+;                            %out IBM VERSION
+                        ELSE
+                            %out MS-DOS VERSION
+                        ENDIF
+ENDIF
+BREAK                   <Segment Definitions>
+CodeR                   Segment public para
+CodeR                   EndS
+Code                    Segment public para
+Code                    EndS
+Data                    Segment public byte
+Data                    EndS
+Stack                   Segment Stack
+Stack                   Ends
+DG                      group Code,Data,Stack

diff --git a/v4.0/src/CMD/PRINT/PRIDEFS.INC b/v4.0/src/CMD/PRINT/PRIDEFS.INC new file mode 100644 index 0000000..c0efae8 --- /dev/null +++ b/v4.0/src/CMD/PRINT/PRIDEFS.INC
@@ -0,0 +1,537 @@
	1	; $SALUT (4,25,30,41)
	2	;***************** START OF SPECIFICATIONS *********************************
	3	;
	4	; MODULE NAME: PRINT.COM
	5	;
	6	; DESCRIPTIVE NAME: DOS PRINT program for background printing of
	7	; text files to the list device.
	8	;
	9	; FUNCTION: DOS PRINT program for background printing of
	10	; text files to the list device. The utility is
	11	; constructed of 3 .SAL files. They are:
	12	;
	13	; PRINT_R.SAL - The resident portion of PRINT
	14	; PRINT_T.SAL - The transient portion of PRINT
	15	; PRINT_SR.SAL - The service routines of PRINT
	16	;
	17	; NOTE: The Link order is VERY important for this module.
	18	; This is due to the Resident/Transient nature of
	19	; PRINT.
	20	;
	21	; INT 28H is a software interrupt generated by the
	22	; DOS in its I/O wait loops. This spooler
	23	; can be assembled for operation using only this
	24	; interrupt which is portable from system to
	25	; system. It may also be assembled to use a
	26	; hardware timer interrupt in addition to the
	27	; software INT 28H. The purpose of using
	28	; hardware interrupts is to allow printing to
	29	; continue during programs which do not enter
	30	; the system and therefore causes the INT 28H to
	31	; go away. A timer interrupt is chosen in
	32	; preference to a "printer buffer empty" interrupt
	33	; because PRINT in the timer form is generic. It
	34	; can be given the name of any currently installed
	35	; character device as the "printer", this makes it
	36	; portable to devices which are installed by the
	37	; user even in the hardware case. It could be
	38	; Revised to use a buffer empty interrupt (no
	39	; code is given for this case), if this is done
	40	; the PROMPT and BADMES messages and their
	41	; associated code should be removed as PRINT will
	42	; then be device specific.
	43	;
	44	; NOTE From Aaron Reynolds
	45	;
	46	; BEWARE ALL YEE WHO ENTER HERE.
	47	; PRINT is an amazingly complex program. MS-DOS versions below 3.00 are
	48	; NOT re-entrant, this means that this utility is basically not a
	49	; possibility. It gets by on the fact that it is written by the same
	50	; person who wrote the OS. Since you are not that person, you must be very
	51	; careful about making any modification to this utility. There are a
	52	; number of things which may seem to be unnecessary on first examination.
	53	; BEWARE, almost every line of code is there for a very good reason. The
	54	; order of things is very carefully chosen. PRINT is full of potential
	55	; windows, make sure that you do not open one by careless modification. Do
	56	; not look for a lot of help from the comments, a complete explanation
	57	; would probably fill a book. A succesful modifier will have an in-depth
	58	; knowledge of the internal function of MS-DOS, and of the PRINT utility
	59	; itself through in depth study of the comments AND the code.
	60	;
	61	; ENTRY POINT:
	62	;
	63	; INPUT:
	64	;
	65	; EXIT NORMAL:
	66	;
	67	; EXIT ERROR:
	68	;
	69	; INTERNAL REFERENCES:
	70	;
	71	; ROUTINES:
	72	;
	73	; DATA AREAS:
	74	;
	75	; EXTERNAL REFERENCES:
	76	;
	77	; ROUTINES:
	78	;
	79	; DATA AREAS:
	80	;
	81	; NOTES:
	82	;
	83	; REVISION HISTORY: Ax000 Version 4.0 05/01/87 - first release FG
	84	; Ax001 DCR D201 - Extended Atrib change FG
	85	; Ax002 P 1175 - move msgs back to TRANS FG
	86	; Ax003 P 1487 - PARSE error message problemFG
	87	; Ax004 P 1546 - PARSE error trailing : FG
	88	; Ax005 P 1717 - multiples of same switch FG
	89	; Ax006 P 1996 - Extended open error FG
	90	; Ax007 P 2052 - [PRN] prompt lpt1 error FG
	91	; Ax008 P 2053 - CPSW prints empty file FG
	92	; Ax009 P 2229 - filename truncation FG
	93	; Ax010 D 389 - use transname /server DOS FG
	94	; Ax011 P 3122 - attrib missing /server DOS FG
	95	; Ax012 P 3949 - Error in opening an open FG
	96	; Ax013 P 3949 - open mode - second attempt FG
	97	; Ax014 P 4396 - some messages need STDOUT FG
	98	; Ax015 P 4880 - DRIVERS not recognized FG
	99	;
	100	; PRE-VERSION 4.0 HISTORY:
	101	;
	102	; V1.00 07/03/82
	103	; V2.00 07/05/83 A.R
	104	; New INT 2FH interface, Pathnames, context switch.
	105	; V2.50 09/14/83 M.A.U
	106	; Turned it back to a print
	107	; 11/21/83 M.A.U
	108	; Repaired bug in file cancel code
	109	; 11/28/83 M.A.U
	110	; Added int 23 and 24 handlers to transient.
	111	; 01/27/84 M.A.U
	112	; Allways checks for valid drive.
	113	; V3.00 02/03/84 M.A.U
	114	; Partitioned so as to assemble on a PC
	115	; By the by, it is V3.00 now.
	116	; 05/23/85 K.G.S
	117	; Chains into INT19 (bootstrap) to unhook
	118	; INT_1C (timer) and INT_15 (AT's Wait On Event)
	119	;
	120	; COPYRIGHT: "The DOS PRINT Utility"
	121	; "Version 4.00 (C) Copyright 1988 Microsoft
	122	; "Licenced Material - Program Property of Microsoft"
	123	;
	124	;
	125	;***************** END OF SPECIFICATIONS ***********************************
	126	subttl PRINT - Program Organization
	127	page
	128	;***************** START PROGRAM ORGANIZATION *****************************
	129	;
	130	;
	131	;Group / Label Contents File
	132	; ��Ŀ Ŀ
	133	;CODER � Data buffer � � PRINT_RM
	134	; ��ʹ ��
	135	; � � Ŀ
	136	; � Resident � �
	137	; � Code � �
	138	; � � �
	139	;filequeue --- ��Ĵ �
	140	; � Resident � �
	141	; � Initalization� �� PRINT_R
	142	; � Code � �
	143	; ��Ĵ �
	144	; ��ʹ ��
	145	; � CL1 data � �
	146	; ��Ĵ �
	147	; � CL2 data �
	148	; ��Ĵ �
	149	; � CLB data � �
	150	; ��Ĵ �� PRINT_TM
	151	; � CLC data � �
	152	; ��Ĵ �
	153	; � CLD data � �
	154	; ��ʹ ��
	155	;DG � Transient � Ŀ
	156	; � code � �
	157	; ��Ĵ �
	158	; � DispMsg � �
	159	; ��Ĵ �
	160	; � SYSMSG � �
	161	; � Code � �
	162	; � Parser � �
	163	; ��Ĵ �
	164	; � Transient � �� PRINT_T
	165	; � data � �
	166	; ��Ĵ �
	167	; � Stack � �
	168	;transsize --- ��
	169	;
	170	;
	171	;***************** END ROGRAM ORGANIZATION ******************************
	172
	173	subttl PRINT - Data Space
	174	page
	175
	176	INCLUDE SYSVAR.INC
	177
	178	FALSE EQU 0
	179	TRUE EQU NOT FALSE
	180
	181	IBM EQU IBMVER
	182	;IBMVER EQU IBM
	183	;MSVER EQU FALSE
	184
	185	IF MSVER
	186	HARDINT EQU FALSE ;No hardware ints
	187	AINT EQU FALSE ;No need to do interrupt acknowledge
	188	ENDIF
	189
	190	IF IBM
	191	HARDINT EQU TRUE
	192	INTLOC EQU 1CH ;Hardware interrupt location (Timer)
	193	REBOOT EQU 19H ;ROM BIOS "Bootstrap"
	194	AINT EQU TRUE ;Acknowledge interrupts
	195	EOI EQU 20H ;End Of Interrupt "instruction"
	196	AKPORT EQU 20H ;Interrupt Acknowledge port
	197	ENDIF
	198
	199	; The following values have to do with the ERRCNT variable and the CNTMES
	200	; message. The values define levels at wich it is assumed an off-line error
	201	; exists. ERRCNT1 defines the value of ERRCNT above which the CNTMES message
	202	; is printed by the transient. ERRCNT2 defines the value of ERRCNT above
	203	; which the resident will give up trying to print messages on the printer, it
	204	; is much greater than ERRCNT1 because a much tighter loop is involved. The
	205	; bounding event which determines the correct value is the time required to
	206	; do a form feed.
	207
	208	IF IBM
	209	ERRCNT1 EQU 1500
	210	ERRCNT2 EQU 20000
	211	ELSE
	212	ERRCNT1 EQU 1500
	213	ERRCNT2 EQU 20000
	214	ENDIF
	215
	216
	217	;WARNING DANGER WARNING:
	218	; PRINT is a systems utility. It is clearly understood that it may have
	219	; to be entirely re-written for future versions of MS-DOS. The following
	220	; TWO vectors are version specific, they may not exist at all in future
	221	; versions. If they do exist, they may function differently.
	222	; ANY PROGRAM WHICH IMITATES PRINTS USE OF THESE VECTORS IS ALSO A SYSTEMS
	223	; UTILITY AND IS THEREFORE NOT VERSION PORTABLE IN ANY WAY SHAPE OR FORM.
	224	; YOU HAVE BEEN WARNED, "I DID IT THE SAME WAY PRINT DID" IS NOT AN REASON
	225	; TO EXPECT A PROGRAM TO WORK ON FUTURE VERSIONS OF MS-DOS.
	226
	227	SOFTINT EQU 28H ;Software interrupt generated by DOS
	228	ComInt EQU 2FH ;Communications interrupt used by PSPRINT
	229	; Multiplex number 0 and 1
	230
	231	;----- Default (and Maximal / Minimal) Print queue length
	232	MinQueueLen equ 4 ; 4 files worth min
	233	MaxQueueLen equ 32 ; 32 files worth max.
	234	DefQueueLen equ 10 ; 10 files worth
	235
	236	;----- Default (and Maximal / Minimal) Print buffer length
	237	MinBufferLen equ 512 ; set minimum to 512 bytes
	238	MaxBufferLen equ 1024 * 16 ; maximum is 16 K bytes
	239	DefBufferLen equ MinBufferLen ; set default to minimum
	240
	241	;----- Default (and Maximal / Minimal) Time Slice
	242	MinTimeSlice equ 1 ; set minimum to 1
	243	MaxTimeSlice equ 255 ; maximum is 255
	244	DefTimeSlice equ 10 ; set default to 10
	245
	246	;----- Default (and Maximal / Minimal) Busy Tick
	247	MinBusyTick equ 1 ; set minimum to 1
	248	MaxBusyTick equ 255 ; maximum is 255
	249	DefBusyTick equ MinBusyTick ; set default to minimum
	250
	251	;----- Default (and Maximal / Minimal) Max Tick
	252	MinMaxTick equ 1 ; set minimum to 1
	253	MaxMaxTick equ 255 ; maximum is 255
	254	DefMaxTick equ 2 ; set default to 2
	255
	256	;----- Maximum length of a file name (incl nul)
	257	MaxFileLen equ 64
	258
	259	; ************** Bogosity Warning ***************
	260	; Below is the equate that MaxFile SHOULD be. Since the 3.0/3.1 documentation
	261	; documents each queue entry as being 64 chars long. Yes it is known that
	262	; that causes Print to misbehave on files deep in trees. But for
	263	; compatibilities sake, IBM insisted that we change the code back to the
	264	; way it was.
	265	;MaxFileLen equ 63 + 2 + 12 ; 63 characters as Command.com's
	266	; max. path length
	267	; 2 character for the Drive ext.
	268	; 12 characters for the max. valid
	269	; DOS filename
	270
	271	;----------------------------------------
	272	; definition of the MODE bits
	273	; for an extended open
	274	;----------------------------------------
	275
	276	; BITS DEFINED FOR THE MODE WORD
	277	; FORMAT = 0WF00000ISSS0AAA
	278	; Write ��ٳ �� Access code
	279	; 0 = no commit � �� 0 = read
	280	; 1 = auto commit � �� 1 = write
	281	; � �� 2 = read/write
	282	; Fail action �� 3 = execute
	283	; 0 = INT 24h �� 4 = FCB
	284	; 1 = return error ��
	285	; �� Sharing mode
	286	; � 0 = compatability
	287	; � 1 = deny read/write
	288	; � 2 = deny write
	289	; � 3 = deny read
	290	; � 4 = deny none
	291	; Inherit
	292	; 0 = pass handle to child
	293	; 1 = no inherit
	294	;
	295	MODE_COM equ 0100000000000000b ; Auto Commit
	296	MODE_NO24 equ 0010000000000000b ; No 24 - return error
	297	MODE_NOINH equ 0000000010000000b ; No child procees access
	298	; Sharing mode
	299	MODE_SH_COMP equ 0000000000000000b ; 0 = compatability
	300	MODE_SH_D_RW equ 0000000000010000b ; 1 = deny read/write
	301	MODE_SH_D_W equ 0000000000100000b ; 2 = deny write
	302	MODE_SH_D_R equ 0000000000110000b ; 3 = deny read
	303	MODE_SH_D_NONE equ 0000000001000000b ; 4 = deny none
	304	; Access code
	305	MODE_AC_R equ 0000000000000000b ; 0 = read
	306	MODE_AC_W equ 0000000000000001b ; 1 = write
	307	MODE_AC_RW equ 0000000000000010b ; 2 = read/write
	308	MODE_AC_EXE equ 0000000000000011b ; 3 = execute
	309	MODE_AC_FCB equ 0000000000000100b ; 4 = FCB
	310
	311	GET_CPSW equ 3 ; Get state of CPSW
	312	CPSW_on equ 1 ; CPSW is active
	313	major_code equ 0ADh ; INT 2F PRINT semaphore
	314	minor_code equ 040h ; INT 2F PRINTER set and lock CP
	315	;
	316	; The Extended Open mode is set as:
	317	; Shareing Mode - Compatability
	318	; Access - Read
	319	; Inharitance - yes
	320	; -- WARNING ----
	321	; These MUST be set this way
	322	; in order to do a second open
	323	; of a file accross the network
	324
	325	open_mode equ MODE_NO24+MODE_SH_COMP+MODE_AC_R ;AC013;
	326
	327
	328	ignore_cp equ 1 ; dont validate CP - it may be different
	329	; than CON
	330
	331	openit equ 1 ; extended open 'exsists' action
	332	failopen equ 0 ; extended open 'does not exsist' action
	333
	334	Cap_ASCIIZ equ 22h ; Capitalize ASCIIZ string (INT 21 - 65)
	335
	336	;----- Message related information
	337
	338	;================================================
	339	; PRINT Message Skeleton File
	340	;================================================
	341
	342	;util PRINT
	343
	344	;class 1
	345
	346	;use EXTEND19
	347	;use EXTEND20
	348	;use EXTEND21
	349	;use EXTEND22
	350	;use EXTEND23
	351	;use EXTEND24
	352	;use EXTEND25
	353	;use EXTEND26
	354	;use EXTEND27
	355	;use EXTEND28
	356	;use EXTEND29
	357	;use EXTEND30
	358	;use EXTEND31
	359
	360	;class 2
	361	;1 - Too many operands
	362	;2 - Required operand missing
	363	;use PARSE3 ;3 - Not in switch list provided
	364	;4 - Not in keyword list provided
	365	;use PARSE6 ;6 - Out of range specified
	366	;7 - Not in value list provided
	367	;8 - Not in string list provided
	368	;use PARSE9 ;9 - Invalid Parameter
	369
	370	;class A
	371
	372	;def 6 " error reading file",CR,LF,"$"
	373	;def 7 "File not found",CR,LF,"$"
	374	;def 8 CR,LF,LF,"File $"
	375	;def 9 " canceled by operator$"
	376	;def 10 CR,LF,LF,"All files canceled by operator$"
	377	;def 11 "File allocation table bad drive "
	378	;def 12 "A.",CR,LF,"$"
	379	;def 13 "List output is not assigned to a device",CR,LF
	380	;def 14 "Resident part of PRINT installed",CR,LF
	381
	382	;class B
	383
	384	;use 1 COMMON1
	385	;def 2 CR,LF
	386	;def 15 "Cannot use PRINT - Use NET PRINT",CR,LF
	387	;def 17 "PRINT queue is full",CR,LF
	388	;def 18 "PRINT queue is empty",CR,LF
	389	;def 19 "Access denied",CR,LF
	390	;def 20 "Invalid drive specification",CR,LF
	391	;def 21 "Errors on list device indicate that it",CR,LF
	392	; "may be off-line. Please check it.",CR,LF
	393
	394	;class C
	395
	396	;def 22 CR,LF,LF," %1 is currently being printed",CR,LF
	397	;def 23 " %1 is in queue",CR,LF
	398	;use 24 EXTEND2
	399	;def 25 "Pathname too long",CR,LF
	400	;def 26 "File not in PRINT queue",CR,LF
	401
	402	;class D
	403
	404	;def 27 "Name of list device [PRN]: "
	405
	406	;end
	407	;--------------------------------------
	408	; PRINT Equates
	409	;--------------------------------------
	410
	411	MesSerCLASS equ 0 ; Message Service class
	412	DOS_error equ 1 ; DOS extended error
	413	Parse_error equ 2 ; Parse error
	414	CLASS_A equ 0Ah ; PRINT_R message
	415	CLASS_B equ 0Bh ; PRINT_T message
	416	CLASS_C equ 0Ch ; PRINT_T message with insert
	417	CLASS_D equ 0Dh ; PRINT_T message with input buffer where:
	418	CLASS_Util equ 0FFh ; PRINT utility message (Class A - D)
	419	buffered_input equ 0Ah ; Buffered keyboard input
	420
	421	; CLASS 1
	422
	423	ERR0 equ 19
	424	ERR12 equ 31
	425
	426	; CLASS 2
	427
	428	INVPARM equ 9 ; Invalid parameter (PARSE)
	429
	430	; CLASS A
	431
	432	ERRMEST equ 6 ; error reading file
	433	ErrMesT2 equ 7 ; File not found
	434	CanMes equ 8 ; File
	435	CanFilNam equ 9 ; canceled by operator
	436	AllCan equ 10 ; All files canceled by operator
	437	FATMES equ 11 ; File allocation table bad drive
	438	BADDRVM equ 12 ; A.
	439	BADMES equ 13 ; List output is not assigned to a device
	440	GOODMES equ 14 ; Resident part of PRINT installed
	441
	442	; CLASS B
	443
	444	NEXT_LINE equ 2 ; advance to next line
	445	CONFLICTMES equ 15 ; Cannot use PRINT - Use NET PRINT
	446	FULLMES equ 17 ; PRINT queue is full
	447	NoFils equ 18 ; PRINT queue is empty
	448	AccDen equ 19 ; Access denied
	449	InvDrvMes equ 20 ; Invalid drive specification
	450	CNTMES equ 21 ; Errors on list device indicate that it
	451	; may be off-line. Please check it.
	452
	453	; CLASS C
	454
	455	FstMes equ 22 ; %1 is currently being printed
	456	SecMes equ 23 ; %1 is in queue
	457	BadNameMes equ 24 ; %1 File not found
	458	NamTMes equ 25 ; %1 Pathname too long
	459	BadCanMes equ 26 ; %1 File not in PRINT queue
	460
	461	; CLASS D
	462
	463	PROMPT equ 27 ; Name of list device [PRN]:
	464
	465	DOLLAR equ "$"
	466	Std_Out_Dev equ 1
	467
	468	; $SALUT (0,41,46,52)
	469
	470	.xlist
	471	.xcref
	472	BREAK MACRO subtitle
	473	SUBTTL subtitle
	474	PAGE
	475	ENDM
	476
	477	SaveReg MACRO reglist ;; push those registers
	478	IRP reg,<reglist>
	479	PUSH reg
	480	ENDM
	481	ENDM
	482	.xcref SaveReg
	483
	484	RestoreReg MACRO reglist ;; pop those registers
	485	IRP reg,<reglist>
	486	POP reg
	487	ENDM
	488	ENDM
	489	; $SALUT (4,25,30,41)
	490
	491	INCLUDE DEVSYM.INC
	492	INCLUDE SYSCALL.INC
	493	INCLUDE ERROR.INC
	494	INCLUDE FIND.INC
	495	include dpl.asm
	496	INCLUDE PDB.INC
	497	INCLUDE SYSCALL.INC
	498	INCLUDE MI.INC
	499	INCLUDE SYSMSG.INC
	500	include versiona.inc
	501	.list
	502	.cref
	503
	504
	505	MSG_UTILNAME <PRINT>
	506
	507
	508	error_busy EQU 9
	509	error_queue_full EQU 8
	510	error_name_too_long EQU 12
	511	get_ea_by_handle equ 2
	512
	513	IF1
	514	IF IBM
	515	; %out IBM VERSION
	516	ELSE
	517	%out MS-DOS VERSION
	518	ENDIF
	519	ENDIF
	520
	521	BREAK <Segment Definitions>
	522
	523
	524	CodeR Segment public para
	525	CodeR EndS
	526
	527	Code Segment public para
	528	Code EndS
	529
	530	Data Segment public byte
	531	Data EndS
	532
	533	Stack Segment Stack
	534	Stack Ends
	535
	536	DG group Code,Data,Stack
	537