MZ is back!HEADmain

1 files changed, 93 insertions, 0 deletions

diff --git a/v4.0/src/CMD/NLSFUNC/MSG2NLS.INC b/v4.0/src/CMD/NLSFUNC/MSG2NLS.INC
new file mode 100644
index 0000000..f52be80
--- /dev/null
+++ b/v4.0/src/CMD/NLSFUNC/MSG2NLS.INC
@@ -0,0 +1,93 @@
+BADDOS equ 1
+ALLINS equ 2
+FNF    equ 3
+FLAG1  equ LEFT_ALIGN+CHAR_FIELD_ASCIIZ
+
+;*****************************************************************************
+;******************************************************************************
+;               VALUES FOR THE MSG_DESC CONTROL BLOCK
+ONE_SUBS       EQU   1             ;ONE VARIABLE FIELD IN MESSAGE
+TWO_SUBS       EQU   2             ;TWO VARIABLE FIELDS IN MESSAGE
+THREE_SUBS     EQU   3             ;THREE VARIABLE FIELDS IN MESSAGE
+CLASS_1        EQU   EXT_ERR_CLASS ;CLASS 1 (DOS EXTENDED ERRORS)
+CLASS_2        EQU   PARSE_ERR_CLASS ;CLASS 2 (PARSE ERRORS)
+CLASS_A        EQU   UTILITY_MSG_CLASS ;CLASS A TYPE MESSAGE
+
+;THIS MESSAGE DESCRIPTOR CONTROL BLOCK IS GENERATED, ONE PER MESSAGE,
+;TO DEFINE THE SEVERAL PARAMETERS THAT ARE EXPECTED TO BE PASSED IN
+;CERTAIN REGISTERS WHEN THE SYSDISPMSG FUNCTION IS TO BE INVOKED.
+
+;MSG_DESC          STRUC
+;MSG_NUM           DW    0          ;MESSAGE NUMBER (TO AX)
+;MSG_HAND          DW    0           ;HANDLE OF OUTPUT DEVICE (TO BX)
+;MSG_SUBLIST       Dd    0          ;POINTER TO SUBLIST (TO SI)
+;MSG_COUNT         DW    0          ;SUBSTITUTION COUNT (TO CX)
+;MSG_CLASS         DB    0          ;MESSAGE CLASS (IN HIGH BYTE, TO DH)
+;                                   ; LOW BYTE HAS 0 (FUNCTION "NO INPUT", TO DL)
+;MSG_DESC          ENDS
+;               VALUES FOR THE SUBLIST CONTROL BLOCK
+PC_ID_0        EQU   0             ;ID OF " - " TRAILER TO MESSAGE
+PC_ID_1        EQU   1             ;ID OF PERCENT VARIABLE FIELD
+PC_ID_2        EQU   2             ;ID OF PERCENT VARIABLE FIELD
+PC_ID_3        EQU   3             ;ID OF PERCENT VARIABLE FIELD
+MAX_0          EQU   0             ;MAXIMUM WIDTH OF STRING FIELD (0=NO LIMIT)
+MIN_1          EQU   1             ;MINIMUM WIDTH OF STRING FIELD
+ID_0           EQU   0
+
+;Message PARM LIST Structure
+  PARMLIST1 LABEL   BYTE  ;PARM LIST
+       ;(File not found - 'PATH_SPEC')
+       DB  11         ;PARMLIST size
+       DB  0          ;reserved
+       DD  PATH_SPEC
+       DB  id_0       ;; n of %n
+       DB  FLAG1      ;; data type
+       DB  max_0      ;;max width
+       DB  min_1      ;;min width
+       DB  PAD_CHAR   ;;char defined to be space
+
+
+  PARMLIST2 LABEL   BYTE  ;PARM LIST
+       ;(NLSFUNC already installed)
+       DB  11         ;PARMLIST size
+       DB  0          ;reserved
+       DD  UTILITY    ;; ptr to data
+       DB  1          ;; n of %n
+       DB  FLAG1      ;; data type
+       DB  0          ;;max width
+       DB  1          ;;min width
+       DB  PAD_CHAR   ;;char defined
+
+  PARMLIST3 LABEL   BYTE  ;PARM LIST
+       ;(Invalid parameter 'PATH_SPEC')
+       DB  11         ;PARMLIST size
+       DB  0          ;reserved
+       DD  PATH_SPEC   ;; ptr to data
+       DB  id_0       ;; n of %n
+       DB  FLAG1      ;; data type
+       DB  0          ;;max width
+       DB  1          ;;min width
+       DB  PAD_CHAR   ;;char defined
+
+;               THE NEXT GROUP ARE ALL CLASS "1" MESSAGES
+
+;               PUBLIC MSGNUM_EXTERR
+;MSGNUeM_EXTERR  MSG_DESC <FNF,STDERR,,,CLASS_1> ;ALL EXTENDED DOS ERRORS
+                                   ;File not found - %0
+
+;               THE NEXT GROUP ARE ALL CLASS "2" MESSAGES
+
+;               PUBLIC MSGNUM_PARSE ;SO PARSE DRIVER CAN FIND IT
+;MSGNUM_PARSE   MSG_DESC <,STDERR,,,CLASS_2> ;ALL PARSING ERRORS BUT INVALID
+                                                ;SYNTAX
+                                   ;ERROR NUMBER WILL NEED TO BE FILLED IN
+
+;               THE NEXT GROUP ARE ALL CLASS "A" MESSAGES
+;               THESE ARE THE "CANNED" MESSAGES ALWAYS PRESENT
+
+;               PUBLIC MSGNUM_VER
+;MSGNUM_VER     MSG_DESC <1,STDERR> ;"Incorrect DOS Version"
+
+;               PUBLIC MSGNUM_INST
+;MSGNUM_INST    MSG_DESC <ALLINS,STDERR> ;"%1 - already installed"
+;end of MSGHAN.INC