/NAMES.SB, PAGE 1 OF 3.		(8/12/71 - C.M.MOORE, RICE U., HOUSTON)
/
/THIS FILE CONTAINS ENTRY POINT: NAMES.
/
/SEE THE LISTING OF FILE 'XPLAIN.IO' FOR A DETAILED EXPLANATION
/OF HOW TO USE THIS ROUTINE.
/
/THE BINARY FILE OF THIS PACKAGE (NAMES.RL) OCCUPIES 1 PAGE OF
/CORE, AND MUST NOT BE LOADED INTO LOCS 0000 TO 1777 OF FIELD 1.
/THIS IS THE USR OVERLAY AREA. IF LOADED INTO THIS AREA, THIS
/ROUTINE WILL TYPE FATAL MONITOR ERROR 4 WHEN CALLED.
/
OPDEF CIF10 6212
OPDEF CDF10 6211
OPDEF TADI  1400
OPDEF DCAI  3400
OPDEF JMSI  4400
OPDEF JMPI  5400
/
	LAP /DISABLE AUTOMATIC PAGING TO CONSERVE SPACE
/
P7700,	7700 /POINTS TO USR. ***MUST BE 1ST LOC ON PAGE***
P7605,	7605 /INPUT FILE NAME
P7600,	7600 /OUTPUT FILE NAME
P2600,	2600
P215,	215
P77,	77
P36,	36 /HOLDS PERMANENT DEVICE NAME TABLE ADDRESS
P17,	17
M4,	-4
M52,	-52
NDEV,	0
NDEV2,	0
SAVNAM,	0
SAVE,	0
TEM,	0
TEM2,	0
LOCKP,	LOCK
NDEV2P,	NDEV2
/
/ADDRES LOADS ARG ADDRESS FROM NAMES TO TEM
ADDRES,	0
	TAD I NAMES
	DCA CDFARG
	INC NAMES#
	TADI NAMES#
	DCA TEM
	INC NAMES#
	JMP I ADDRES /CHANGE TO CURRENT DF
/
/STORE STORES NEXT ARG AS SPECIFIED BY TEM
STORE,	0
CDFARG,	HLT /CHANGE TO DF OF ARG
	DCAI TEM
	INC TEM
	JMP I STORE /CHANGE TO CURRENT DF
/
/NAMES.SB, PAGE 2 OF 3.
/
/CHECKR CHECKS FOR INVALID CHAR (*) WHILE STORING FILE NAMES
CHECKR,	0
	CDF10
	INC TEM2
	TADI TEM2
P200,	AND P7700
	TAD P2600
	SNA CLA
	JMP ERR
	TADI TEM2
	AND P77
	TAD M52
	SNA CLA
ERR,	JMP I LOCKP /CHANGE TO CURRENT DF & REPEAT COMMAND DECODE
	TADI TEM2
	JMS STORE
	JMPI CHECKR
/
/SUBROUTINE NAMES(NDEV,NAME,NDEV2,NAME2)
	ENTRY NAMES
NAMES,	BLOCK 2
	CLA
	TAD NAMES#
	DCA SAVNAM
/LOCK USR INTO CORE
LOCK,	CIF10
	JMSI P7700
	10 /REQUEST 10
/CALL COMMAND DECODER
	CIF10
	JMSI P200
	5 /REQUEST 5
	5200 /SPECIAL MODE
	0 /PRESERVE TENTATIVE OUTPUT FILES
/TYPE A CARRIAGE RETURN SO TTY FLAG WILL BE SET
	TAD P215
	TLS
TTYLUP,	TSF
	JMP TTYLUP
/GET OUTPUT DEVICE NAME
	CDF10
	CLA CMA
	TADI P36
	DCA SAVE /1 BEFORE PERMANENT DEVICE NAME TABLE ADDRESS
	TAD P7600
	DCA TEM2
	TADI TEM2
	AND P17 /OUTPUT DEVICE #
	SNA
	JMP OUDEV
	TAD SAVE
	DCA ADDRES
	TADI ADDRES /OUTPUT DEVICE NAME
OUDEV,	DCA NDEV
/
/NAMES.SB, PAGE 3 OF 3.
/
/GET INPUT DEVICE NAME
	TAD P7605
	DCA TEM
	TADI TEM
	AND P17 /INPUT DEVICE #
	SNA
	JMP INDEV
	TAD SAVE
	DCA ADDRES
	TADI ADDRES /INPUT DEVICE NAME
INDEV,	DCA I NDEV2P /INDIRECT TO FORCE CHANGE TO CURRENT DF
/USR DISMISS FROM CORE
	CIF10
	JMSI P200
	11 /REQUEST 11
/STORE OUTPUT DEVICE & FILE NAMES
	TAD SAVNAM
	DCA NAMES#
	JMS ADDRES
	TAD NDEV
	JMS STORE
	JMS STORE /SET 2ND WORD OF DEVICE NAME=0
	TAD M4
	DCA SAVE
	JMS ADDRES
LUPA,	JMS CHECKR
	ISZ SAVE
	JMP LUPA
/STORE INPUT DEVICE & FILE NAMES
INSTO,	JMS ADDRES
	TAD NDEV2
	JMS STORE
	JMS STORE /SET 2ND WORD = 0
	TAD M4
	DCA SAVE
	TAD P7605
	DCA TEM2
	JMS ADDRES
LUP2A,	JMS CHECKR
	ISZ SAVE
	JMP LUP2A
AAPAG1,	RETRN NAMES
	END
<