	page	60,132
;			$SALUT (4,25,30,41)

			INCLUDE pridefs.inc

BREAK			<Transient Messages>

;
;	DOS PRINT
;
;	Transient Service code
;
;	02/13/84	MAU	Fixed bug with BadCanMes
;
;	05/20/87	FJG	Change format to new Message Service
;				Routines/Parse code
;


addr			macro sym,name
			public name
			ifidn <name>,<>

			    dw	 offset dg:sym
			else

name			    dw	 offset dg:sym
			endif
			endm


			Code Segment public para

			PUBLIC SYSGETMSG, SYSLOADMSG, SYSDISPMSG

			ASSUME CS:DG,DS:nothing,ES:nothing,SS:Stack

; include msgserv.asm

			.xlist
			.xcref
			MSG_SERVICES <MSGDATA>

 public amis_sign
	even
amis_sign:
	db "ecm"
	db 5 dup (' ')
	db "lDOS"
	db 4 dup (' ')
amis_id:			; must be directly after amis_sign
	dw 0
	dw 0			; sequential number
	db amis_id_msg_end - amis_id_msg
amis_id_msg:
	db "print"		; our id name
amis_id_msg_end:

AMIS_SIGN_SEGMENT equ DG

			MSG_SERVICES <NEARmsg,LOADmsg,GETmsg,DISPLAYmsg,INPUTmsg,CHARmsg>
			.cref
			.list

; include message class 1, 2, A, B, C, and D

			.xlist
			.xcref
			MSG_SERVICES <NEARmsg,PRINT.CL1,PRINT.CL2>
			MSG_SERVICES <NEARmsg,PRINT.CLA,PRINT.CLB,PRINT.CLC,PRINT.CLD>
			.cref
			.list
;  $SALUT (4,4,9,41)


;			$SALUT (4,25,30,41)
false			=    0

DateSW			equ  false
TimeSW			equ  false
CmpxSW			equ  false
KeySW			equ  false
QusSW			equ  false
Val2SW			equ  false
Val3SW			equ  false

;  $SALUT (4,4,9,41)

   PUBLIC SYSPARSE

					; include parse.asm

					;xlist
					;xcref
   include parse.asm
					;cref
					;list

   CODE ENDS

   end

