.NLIST
	.ENABL	LC
;+
;
;			  Free software BY
;		Project Software & Development, Inc.
;
; This  software  is  furnished  for  free and may be used and copied as
; desired.  This software or any other copies thereof may be provided or
; otherwise  made  available  to  any  other  person.  No  title  to and
; ownership of the software is hereby transferred or allowed. 
;
; The  information  in this software is subject to change without notice
; and  should  not  be  construed  as  a commitment  by PROJECT SOFTWARE
; AND DEVELOPMENT, INC.
;
; PROJECT SOFTWARE assumes no responsibility for the use or  reliability  
; of this software on any equipment whatsoever.
;
;	Project Software & Development, Inc.
;	14 Story St.
;	Cambridge, Ma. 02138
;	617-661-1444
;
;
; Title:	SHTPRE.MAC
; Author:	Robin Miller
; Date:		January 4, 1985
;
; Description:
;
;	Assembly prefix file for the show terminal program (SHT).
;
; Modification History:
;
;-

	SHLUN	=	4		; ASSIGN THIS LUN TO THE
	SHEFN	=	4		;   TERMINAL TO SHOW
	TILUN	=	5		; LOGICAL UNIT # FOR TI0:
	TIEFN	=	5		; EVENT FLAG FOR TI0:
	TOLUN	=	6		; LUN FOR TERMINAL OUTPUT
	TOEFN	=	6		; AND THE EVENT FLAG
	WTEFN	=	7		; EVENT FLAG FOR MARK TIME
	BELL	=	7		; ASCII FOR BELL
	HT	=	11		; HORIZONTAL TAB
	CR	=	15		; CARRIAGE RETURN
	LF	=	12		; LINE FEED
	ESC	=	33		; ESCAPE
	SPACE	=	40		; SPACE
	COMMA	=	54		; COMMA

;
; MVS - Macro to move an ASCII string to output buffer in R0.
;
; Inputs:
;	STRING	The ASCII string to copy.
;	FMAX	The maximum field width.
;
	.MACRO	MVS	STRING,FMAX
	.NCHR	$$$,<STRING>
	.PSECT	$STRS,RO,D,REL,CON
$$$STR=.
	.ASCIZ	"STRING"
	.PSECT
	.IF NB FMAX
		CLR	FLDSIZ
		MOV	#FMAX,FLDMAX
	.ENDC	; FMAX
	MOV	#$$$STR,R1
	CALL	MOVE
	.ENDM	MVS
;
;	Macro to call NEWLIN routine to append <CR><LF>.
;
	.MACRO	CRLF
	CALL	NEWLIN
	.ENDM	CRLF
;
;	Macro to clear the current field size.
;
	.MACRO	CLF
	CLR	FLDSIZ			; Reset the field size.
	.ENDM
;
;	Macro to call routine to move "No " string.
;
	.MACRO	MVN
	CALL	MOVENO			; Copy the ASCII "No " string.
	.ENDM
;
;	Macro to call routine to move prefix string.
;
	.MACRO	MVP	FMAX
	CALL	MOVPRE			; Copy the prefix string.
	.IF NB FMAX
		MOV	#FMAX,FLDMAX
	.ENDC	; FMAX
	.ENDM
;
;	Macro to call the PADFLD routine.
;
	.MACRO	PAD
	CALL	PADFLD			; Pad the field with spaces.
	.ENDM

	.LIST