File NAMES.SB (8k SABR macro assembler source file)

Directory of image this file is from
This file as a plain text file

/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
<



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search