; TALKPRE.MAC	01AUG84
;
	.TITLE	TALK  -  V07.00
;
;	TALK PREFIX FILE
;
;
;	GUIDE TO FINDING ROUTINES
;
;	  THE NAMES IN BRACKETS ARE THE SOURCE FILE NAMES IN WHICH
;	  THE ROUTINES LISTED ARE FOUND.  INDENTATION INDICATES THE
;	  OVERLAY STRUCTURE.
;
;
;	[TALK]
;	PTEDIR - PORT RECEIVE ENABLE/DISABLE ROUTINE
;	PTEDIX - PORT TRANSMIT ENABLE/DISABLE ROUTINE
;	PTINTR - PORT RECEIVE INTERRUPT SERVICE ROUTINE
;	PTINTX - PORT TRANSMIT INTERRUPT SERVICE ROUTINE
;	SENDPR - INITIATE TRANSMISSION OF CHARACTER TO PORT
;	AST    - TERMINAL AST ROUTINE
;	TALK   - TALK MAIN PROGRAM
;	CLRBRK - CLEAR THE "TRANSMIT BREAK" BIT IN THE CSR
;
;	    [CNPRT]
;	    CNPRT  - CONNECT TO PORT
;	    DCNPRT - DISCONNECT PORT
;	    ASNPRT - OBTAIN AND ASSIGN TT UNIT NUMBER FOR PORT
;	    SUMRY  - PRODUCE PROGRAM STATISTICS SUMMARY
;	    RPTERR - REPORT ANY RECEIVE ERRORS DETECTED
;
;	    [CONTRL]
;	    CONTRL - PROCESS ALL INPUT DATA AND COMMANDS
;	    PRTIN  - PROCESS PORT INPUT CHARACTERS
;	    OUTTRM - WRITE OUTPUT BUFFFER TO TERMINAL
;	    TRMIN  - PROCESS TERMINAL INPUT CHARACTERS
;	    PSLEEP - SUSPEND HOST OUTPUT
;	    PAWAKE - RESUME HOST OUTPUT
;	    BREAK  - INITIATE COMMAND MODE
;	    REDINP - REDIRECT INPUT
;	    REDOUT - REDIRECT OUTPUT
;	    SNDBRK - TRANSMIT A BREAK CHARACTER TO THE HOST
;	    CANINP - CANCEL REDIRECTED INPUT
;	    CANOUT - CANCEL REDIRECTED OUTPUT
;	    ASKNM  - REQUEST PDP FILE NAME
;	    CLSFLE - CLOSE INPUT OR OUTPUT FILE
;	    XFERP  - READ A RECORD AND TRANSFER TO THE HOST
;	    WRTBUF - WRITE BUFFER TO OUTPUT FILE
;	    WRTNUL - WRITE NULL RECORD TO OUTPUT FILE
;	    ATTDEV - ATTACH TERMINAL AND SET CHARACTERISTICS
;	    DETDEV - DETACH TERMINAL AND RESET CHARACTERISTICS
;	    CNVBIN - CONVERT OUTPUT RECORD FROM HEX
;	    TOBIN  - CONVERT INPUT RECORD TO BINARY FOR SENDING
;	    BINWRD - CONVERT SINGLE WORD TO BINARY FOR SENDING
;
;		[BUILD]
;		BUILD  - BUILD COMMAND "A" OR "B" OR FILE NAME STRING
;		OPNFLE - OPEN REDIRECTED INPUT/OUTPUT FILE
;		SNDCMD - SEND COMMAND "A" OR "B"
;		OPNBIN - OPEN FILE FOR BINARY TRANSFER (OUTPUT)
;		OPNINP - OPEN FILE FOR BINARY TRANSFER (INPUT)
;
;		[CMDIN]
;		CMDIN  - COMMAND PROCESSING
;
;		    [MENU]
;		    MENU   - DISPLAY COMMAND MENU
;
;		    [RDIHLP]
;		    RDIHLP - USER HELP FOR AUTOMATIC REDIRECTED INPUT
;		    RDOHLP - USER HELP FOR AUTOMATIC REDIRECTED OUTPUT
;		    PAUSE  - DETACH FROM TALK TEMPORARILY
;		    ASKEOR - INITIATE NEW EOR PROCESSING
;		    ENTEOR - SET UP NEW EOR CHARACTER
;
;
	.PAGE
;	MACRO DEFINITIONS AND DATA AREA
;
	.ENABL LC
;
	.MACRO	TITLE	ROUTIN,MODULE	; MACRO TO SET UP .TITLE
	.TITLE	MODULE / ROUTIN - TALK V06.T2
	.ENDM
;
	.MACRO	QIOMAC	R, D, A, C, G		; MACRO TO SET UP DPB
	.IIF	NB <D>	MOV	D, R		; AND ISSUE DIR$;
	.IIF	NB <A>	MOV	A, Q.IOPL(R)	; ANY BLANK ARGUMENT
	.IIF	NB <C>	MOV	C, Q.IOPL+2(R)	; STOPS THAT PORTION OF CODE
	.IIF	NB <G>	DIR$	R		; FROM BEING GENERATED
	.ENDM	QIOMAC
;
;		MACRO CALLS
;
	.MCALL	ALUN$S, ASTX$S, DSAR$S, GMCR$, CLEF$S, SETF$S, WTSE$S, EXIT$S
	.MCALL	HDRDF$, UCBDF$, STOP$S, GTSK$C, MRKT$S
	.MCALL	QIO$, QIOW$, DIR$
	.MCALL	FDBDF$, FDAT$A, FDRC$A, FDOP$A, FSRSZ$, FDBF$A,NMBLK$
	.MCALL	CSI$, CSI$1, CSI$2
	.MCALL	FINIT$, OPEN$R, OPEN$W, GET$, PUT$, CLOSE$
	.MCALL	CINT$, MRKT$S
;
;
;	DEFINITIONS
;
	SPNCAR = 'S-100		; SUSPEND PORT QUEUE PROCESSING - ^S
	ECOCAR = 'O-100		; DISCARD/RESTART TERMINAL ECHO COMMAND - ^O
	RESCAR = 'Q-100		; RESUME PORT QUEUE PROCESSING - ^Q
	TBCHAR = 'B-100		; TRANSMIT BREAK CHARACTER - ^B
	CMDCAR = 'W-100		; ENTER COMMAND MODE CHARACTER - ^W
	RDICAR = 'I		; REDIRECT INPUT CHARACTER - I
	CNICAR = 'J		; CANCEL REDIRECTED INPUT CHARACTER - J
	RDOCAR = 'O		; REDIRECT OUTPUT CHARACTER - O
	CNOCAR = 'P		; CANCEL REDIRECTED OUTPUT CHARACTER - P
	CNXCAR = 'X		; CANCEL BOTH REDIRECT INPUT AND OUTPUT - X
	PASCAR = 'D		; DETACH FROM TALK - D
	CGECAR = 'E		; CHANGE EOR CHARACTER - E
	EXICAR = 'Z		; EXIT PROGRAM CHARACTER - Z
	XCCCAR = 'C		; TRANSMIT CONTROL CHARACTER CHARACTER - C
	XBCCAR = 'K		; TRANSMIT BREAK CONTROL CHARACTER - K
	XCSCAR = 'H		; TRANSMIT CONTROL-S CHARACTER - H
	XCQCAR = 'Q		; TRANSMIT CONTROL-Q CHARACTER - Q
	RIHCAR = 'A		; REDIRECTED INPUT HELP CHARACTER - A
	ROHCAR = 'B		; REDIRECTED OUTPUT HELP CHARACTER - B
	RIHCA2 = 'S		; REDIRECTED INPUT HELP CHARACTER (ALTERNATE)
	ROHCA2 = 'R		; REDIRECTED OUTPUT HELP CHARACTER (ALTERNATE)
	MNUCAR = 'M		; DISPLAY MENU CHARACTER - M
	.IF DF	SIGMA9
	PROMPT = '!		; SIGMA9 PROMPT (!)
	WTCHAR = 12		; PROMPT FOR NEXT FILE READ
	.ENDC
	.IF DF	RSX11
	PROMPT = '>		; RSX-11M MCR PROMPT (>)
	WTCHAR = 12		; PROMPT FOR NEXT FILE READ
	.ENDC
	.IF DF	RSXBIN
	PROMPT = '>		; RSX-11M MCR PROMPT (>)
	WTCHAR = 12		; PROMPT FOR NEXT FILE READ
	.ENDC
	.IF DF	VAX
	PROMPT = '$		; VAX/VMS PROMPT ($)
	WTCHAR = 12		; PROMPT FOR NEXT FILE READ
	.ENDC
	.IF DF	IBMTSO
	PROMPT = '$		; IBM/TSO HAS NO PROMPT
	WTCHAR = 23		; PROMPT FOR NEXT FILE READ
	.ENDC
	OFBSIZ = 133.		; OUTPUT BUFFER SIZE
	INBSIZ = 133.		; INPUT BUFFER SIZE
;