From 2d04cacc5322951f187bb17e017c12920ac8ebe2 Mon Sep 17 00:00:00 2001
From: Mark Zbikowski
Date: Thu, 25 Apr 2024 21:24:10 +0100
Subject: MZ is back!

---
 v4.0/src/CMD/LABEL/LABELM.ASM | 92 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100644 v4.0/src/CMD/LABEL/LABELM.ASM

(limited to 'v4.0/src/CMD/LABEL/LABELM.ASM')

diff --git a/v4.0/src/CMD/LABEL/LABELM.ASM b/v4.0/src/CMD/LABEL/LABELM.ASM
new file mode 100644
index 0000000..abd48cc
--- /dev/null
+++ b/v4.0/src/CMD/LABEL/LABELM.ASM
@@ -0,0 +1,92 @@
+	PAGE	,132			;
+	TITLE	LABELM.SAL - MESSAGE HANDLER FOR LABEL UTILITY
+;*****************************************************************************
+;*									     *
+;*  MODULE NAME:       LABELM.SAL					     *
+;*									     *
+;*  DESCRIPTIVE NAME:  Include the DOS system MESSAGE HANDLER in the SEGMENT *
+;*		       configuration expected by the modules of LABEL.	     *
+;*									     *
+;*  FUNCTION:	       The common code of the DOS SYSTEM MESSAGE HANDLER is  *
+;*		       made a part of the LABEL module by using INCLUDE to   *
+;*		       bring in the common portion, in SYSMSG.INC.  This     *
+;*		       included code contains the routines to initialize for *
+;*		       message services, to find where a particular message  *
+;*		       is, and to display a message.			     *
+;*									     *
+;*  ENTRY POINT:       SYSDISPMSG:near					     *
+;*		       SYSLOADMSG:near					     *
+;*									     *
+;*  INPUT:	       ax = message number				     *
+;*		       bx = handle to display to			     *
+;*		       cx = number of %parms, 0 if none 		     *
+;*		       dx = class in high byte, input function in low	     *
+;*		       si = offset in es: of sublist, or 0 if none	     *
+;*									     *
+;*  EXIT-NORMAL:       CARRY is not set 				     *
+;*									     *
+;*  EXIT-ERROR:        CARRY is set					     *
+;*		       Call SYSDISPMSG					     *
+;*									     *
+;*  INTERNAL REFERENCES:						     *
+;*    Routines:    SYSDISPMSG (generated by MSG_SERVICES macro) 	     *
+;*		   SYSLOADMSG	   "      "	  "        "		     *
+;*    Data Areas:  INCLUDE SYSMSG.INC (permit Sys Msg handler definition)    *
+;*									     *
+;*  EXTERNAL REFERENCES:						     *
+;*    Routines:    None 						     *
+;*    Data Areas:  Control blocks pointed to by input registers 	     *
+;*									     *
+;*  NOTES:  This module should be processed with the SALUT pre-processor     *
+;*	    with the re-alignment not requested, as:			     *
+;*									     *
+;*		 SALUT LABELM,NUL					     *
+;*									     *
+;*	    To assemble these modules, the sequential or alphabetical	     *
+;*	    ordering of segments may be used.				     *
+;*									     *
+;*	    Sample LINK command:					     *
+;*									     *
+;*		 LINK @LABEL.ARF					     *
+;*									     *
+;*	    Where the LABEL.ARF is defined as:				     *
+;*									     *
+;*		 LABEL+ 						     *
+;*		 LABELM 						     *
+;*									     *
+;*	    These modules should be linked in this order. The load module is *
+;*	    a COM file.  It should be converted via EXE2BIN to a .COM file.  *
+;*									     *
+;*  REVISION HISTORY:							     *
+;*									     *
+;*    Prolog edited					  04/88  S. Maes     *
+;*									     *
+;*****************************************************************************
+IF1
+	%OUT	COMPONENT=LABEL MODULE=LABELM.SAL
+	%OUT	INCLUDING SYSMSG.INC
+ENDIF
+	INCLUDE sysmsg.inc
+	MSG_UTILNAME <LABL>
+
+CSEG	segment public
+	assume	cs:CSEG,ds:CSEG
+	assume	es:CSEG,ss:CSEG
+
+	PUBLIC	SYSDISPMSG,SYSLOADMSG
+
+	MSG_SERVICES <MSGDATA>
+	MSG_SERVICES <LABL.CLA,LABL.CL1,LABL.CL2> ;AN000;M Support Utility msgs
+						  ;DEFAULT=CHECK DOS VERSION
+						  ;DEFAULT=NEARmsg
+						  ;DEFAULT=INPUTmsg
+						  ;DEFAULT=NO TIMEmsg
+						  ;DEFAULT=NO DATEmsg
+						  ;DEFAULT=NO GETmsg
+	MSG_SERVICES <NEARmsg,DISPLAYmsg,CHARmsg,NUMmsg,INPUTmsg,LOADmsg>
+CSEG	ENDS					  ;AN000;M Access to svcs macro
+
+	include msgdcl.inc
+
+	END
+
\ No newline at end of file
-- 
cgit v1.2.3