Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-10 - decus/20-186/imgspl-galaxy-changes.txt
There are no other files named imgspl-galaxy-changes.txt in the archive.
This file contains the Galaxy source modifications needed
to make Imgspl look like a part of Galaxy.  The changes
are in OPRCMD, GLXMAC, ORNMAC, QSRQUE, QSRMAC, GALCNF,
QSRDSP, and OPRQSR.
Required changes are marked with "[****]".


[OPRCMD.MAC]
STAF02:	$STAB
	ORNDSP(STAF03,BATCH-STREAM,BAT)
;[****]	ORNDSP(STAF04,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP(STAF03,<FAL-STREAM>,FAL)
	ORNDSP(STAF03,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP(STAF11,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP(SHD030,<NODE>,NOD)



[OPRCMD.MAC]
UNVF02:	$STAB
	ORNDSP(UNVF03,BATCH-STREAM,BAT)
;[****]	ORNDSP(UNVF04,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP(UNVF03,<FAL-STREAM>,FAL)
	ORNDSP(UNVF03,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP(UNVF04,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP(UNVF04,<PAPER-TAPE-PUNCH>,PTP)


[OPRCMD.MAC]
SHD020:	$STAB
	ORNDSP(UNVF03,BATCH-STREAM,BAT)
;[****]	ORNDSP(UNVF04,<CARD-PUNCH>,CDP)
	ORNDSP(UNVF04,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP(SHD030,NODE,NOD)


[OPRCMD.MAC]
STPF02:	$STAB
	ORNDSP(STPS01,BATCH-STREAM,BAT)
;[****]	ORNDSP(STPU01,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP(STPU01,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP(STPU01,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP(STPU01,<PAPER-TAPE-PUNCH>,PTP)


[OPRCMD.MAC]
ABO020:	$STAB
	ORNDSP	(ABO060,<BATCH-STREAM>,BAT)
;[****]	ORNDSP	(ABO030,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP	(ABO060,<FAL-STREAM>,FAL)
	ORNDSP	(ABO060,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP	(ABO030,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP	(ABO030,<PAPER-TAPE-PUNCH>,PTP)


[OPRCMD.MAC]
HLD010:	$STAB
	ORNKEY	(<BATCH-JOBS>,BAT)
;[****]	ORNKEY	(<CARD-PUNCH-JOBS>,CDP)
IFN FTFTS,<
	ORNKEY	(<FTS-JOBS>,FTS)
> ;End FTFTS conditional
	ORNKEY	(<LASER-PRINTER-JOBS>,CDP)	;[****]
	ORNKEY	(<PAPER-TAPE-PUNCH-JOBS>,PTP)


[OPRCMD.MAC]
CAN010:	$STAB
	ORNDSP	(CAN020,<BATCH-REQUEST>,BAT)
;[****]	ORNDSP	(CAN020,<CARD-PUNCH-REQUEST>,CDP)
IFN FTFTS,<
	ORNDSP	(CAN020,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
	ORNDSP	(CAN020,<LASER-PRINTER-REQUESTS>,CDP)	;[****]
	ORNDSP	(CAN040,<MOUNT-REQUEST>,MNT)


[OPRCMD.MAC]
MOD010:	$STAB
TOPS10<	ORNDSP	(MOD300,<ACTIVE-SWAPPING-LIST>,ASL) >
	ORNDSP	(MOD020,<BATCH-REQUEST>,BAT)
;[****]	ORNDSP	(MOD020,<CARD-PUNCH-REQUEST>,CDP)
TOPS10<	ORNDSP	(MOD200,<CRASH-DUMP-LIST>,CDL) >
IFN FTFTS,<
	ORNDSP	(MOD020,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
	ORNDSP	(MOD020,<LASER-PRINTER-REQUESTS>,CDP)	;[****]
	ORNDSP	(MOD020,<PAPER-TAPE-PUNCH-REQUEST>,PTP)


[OPRCMD.MAC]
SHW220:	$STAB
	ORNDSP	(SHW230,<BATCH-STREAM>,BAT)
;[****]	ORNDSP	(SHW230,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP	(SHW230,<FAL-STREAM>,FAL)
	ORNDSP	(SHW230,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP	(SHW230,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP	(SHWNOD,<NETWORK-NODE>,NOD)
	ORNDSP	(SHW230,<PAPER-TAPE-PUNCH>,PTP)


[OPRCMD.MAC]
SHW420:	$STAB
	ORNDSP	(SHW430,<ALL-JOBS>,ALL)
	ORNDSP	(SHW430,<BATCH-JOBS>,BAT)
;[****]	ORNDSP	(SHW430,<CARD-PUNCH-JOBS>,CDP)
IFN FTFTS,<
	ORNDSP	(SHW430,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
	ORNDSP	(SHW430,<LASER-PRINTER-JOBS>,CDP)	;[****]
	ORNDSP	(SHW470,<MOUNT-REQUESTS>,MNT)



[OPRCMD.MAC]
STS010:	$STAB
	ORNDSP	(STS020,<BATCH-STREAM>,BAT)
;[****]	ORNDSP	(STS020,<CARD-PUNCH>,CDP)
	ORNDSP	(STS190,<DISK-DRIVE>,DSK)
IFN FTFTS,<
	ORNDSP	(STS020,<FAL-STEAM>,FAL)
	ORNDSP	(STS020,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP	(STS020,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP	(SHWNOD,<NETWORK-NODE>,NOD)


[OPRCMD.MAC]
REQ020:	$STAB
	ORNDSP	(REQ030,<BATCH-STREAM>,BAT)
;[****]	ORNDSP	(REQ040,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP	(REQ030,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP	(REQ040,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP	(REQ040,<PAPER-TAPE-PUNCH>,PTP)



[OPRCMD.MAC]
RTEF10:	$STAB
	ORNDSP(RTEF50,<ALL-DEVICES>,ALL)
;[****]	ORNDSP(RTEF15,<CARD-PUNCH>,CDP)
	ORNDSP(RTEF15,<LASER-PRINTER>,CDP)	;[****]
	ORNDSP(RTEF15,<PAPER-TAPE-PUNCH>,PTP)



[OPRCMD.MAC]
SET010:	$STAB
	ORNDSP(SET170,BATCH-STREAM,BAT)
;[****]	ORNDSP(SET490,<CARD-PUNCH>,CDP)
TOPS20<	ORNDSP(SET700,<DISK-DRIVE>,DSK)>
	ORNDSP(SET070,JOB,JOB)
	ORNDSP(SET490,<LASER-PRINTER>,CDP)	;[****]
IFN	FTDN60,<
	ORNDSP(SETNOD,<NODE>,NOD)


[OPRCMD.MAC]
SET510:	$STAB
	ORNDSP	(SET790,<DESTINATION>,DST)
	ORNDSP	(SET330,<FORMS-TYPE>,FOT)
	ORNDSP	(SET340,LIMIT-EXCEEDED-ACTION,LEA)
;[****]	ORNDSP	(SET530,<OUTPUT-LIMIT>,OPL)
	ORNDSP	(SET530,<PAGE-LIMIT>,OPL)	;[****]
	ORNDSP	(SET260,PRIORITY-LIMITS,PRL)



[OPRCMD.MAC]
SET530:
;[****]	$RANGE(CONFRM,<maximum limit in cards or a range>)
	$RANGE(CONFRM,<maximum number of pages>)	;[****]



[OPRCMD.MAC]
NXT020:	$STAB					;[NXT]
	ORNDSP(NXT040,BATCH-STREAM,BAT)		;[NXT]
;[****]	ORNDSP(NXT030,CARD-PUNCH,CDP)		;[NXT]
	ORNDSP(NXT020,LASER-PRINTER,CDP)	;[****]
	ORNDSP(NXT030,PAPER-TAPE-PUNCH,PTP)	;[NXT]
	ORNDSP(NXT030,PLOTTER,PLT)		;[NXT]

[GLXMAC.MAC]
	DEFINE OBJCTS,<

	X	.OTRDR,Reader
	X	.OTNCU,Network-Controller
	X	.OTLPT,Printer
	X	.OTBAT,Batch-Stream
;[****]	X	.OTCDP,Card-Punch
	X	.OTCDP,Laser-Printer	;[****]
	X	.OTPTP,Papertape
[ORNMAC.MAC]
DEFINE	OBJORN,<
X	(<BATCH>,BAT)			;;BATCH-STREAM
;[****]X (<CARD-PUNCH>,CDP)		;;CARD-PUNCH
X	<CARD-READER-INTERPRETER>,BIN	;;READER INTERPRETER
IFN FTFTS,<
X	<FAL>,FAL			;;FAL-STREAM
> ;End of FTFTS conditional
TOPS20 <
X	<FILE-RETRIEVAL>,RET 		;;RETREIVAL REQUESTS
> ;END TOPS20
IFN FTFTS,<
X	<FTS>,FTS			;;FTS Messages
> ;End of FTFTS conditional
X	<LASER-PRINTER>,CDP		;[****]
X	<MOUNT>,MNT			;;MOUNT REQUESTS
[QSRQUE.MAC]
STATS:	[0,,0]				;INVALID
	[ASCIZ/reading/]		;.OTRDR (READER QUEUE)
	[ASCIZ/network/]		;.OTNET (NETWORK QUEUE)
	[ASCIZ/printing/]		;.OTLPT (PRINTER QUEUE)
	[ASCIZ/executing/]		;.OTBAT (BATCH QUEUE)
;[****]	[ASCIZ/punching/]		;.OTCDP (CARD PUNCH QUEUE)
	[ASCIZ/lasering/]		;[****]
	[ASCIZ/punching/]		;.OTPTP (PAPER TAPE PUNCH QUEUE)
	[ASCIZ/plotting/]		;.OTPLT (PLOTTER QUEUE)
[QSRMAC.MAC]
	FP.PCR==1B22		;SPOOLED CARD READER FILE
	FP.REN==1B23		;/DISPOSE:RENAME FILE
	FP.XXX==7B26		;EXTRA FLAG BITS
	FP.REV==1B24		;[****]REVERSE LASER PRINT FILES
	FP.COL==1B25		;[****]COLLATION FOR LASER PRINT COPIES
	FP.2PG==1B26		;[****]TWO FORMS PER PAGE
	FP.SDP==1B0		;[****]SCREENDUMP (IN .FPFR2)
	FP.RUL==1B1		;[****]RULES (IN .FPFR2)
	FP.OTL==1B2		;[****]OUTLINES (IN .FPFR2)
	FP.MAN==1B3		;[****]MANUAL FEED (IN .FPFR2)

	FP.FCY==777B35		;COPY COUNT

.FPFST:! BLOCK	1		;STARTING POINT INFORMATION
.FPFR1:! BLOCK	1		;/REPORT WORD 1
[GALCNF.MAC]
;Card punch output limit(0-9999 cards) [1000] 

;[****]	XP	G.ICDP,1000
	XP	G.ICDP,50	;[****]


[GALCNF.MAC]
;Do you want the standard limit computation(YES,NO) [YES] 

;[****]	XP	G.LPTM,15
;[****]	XP	G.LPTD,5
;[****]	XP	G.CDPM,33
	XP	G.LPTM,9	;[****]
	XP	G.LPTD,2	;[****]
	XP	G.CDPM,5	;[****]

	XP	G.CDPD,1
[QSRDSP.MAC]
LIMTYP:	[ASCIZ/Min:Max Lim./]	;UNDEFINED
	[ASCIZ/Min:Max Lim./]	;.OTRDR
	[ASCIZ/Min:Max Lim./]	;.OTNCU
	[ASCIZ/Page Limits /]	;.OTLPT
	[ASCIZ/  Minutes   /]	;.OTBAT
;[****]	[ASCIZ/Card Limits /]	;.OTCDP
	[ASCIZ/Page Limits /]	;[****].OTCDP
	[ASCIZ/Min:Max Feet/]	;.OTPTP
	[ASCIZ/  Minutes   /]	;.OTPLT



[QSRDSP.MAC]
	CAIN	S2,%OFLNE		;ARE WE OFFLINE ???
;[****]	MOVEI	S1,[ASCIZ/--Waiting For Operator Intervention--/] ;YES,,SAY SO
	MOVEI	S1,[ASCIZ/--Printer Out Of Paper--/]	;[****]YES,,SAY SO
	CAIN	S2,%OREWT		;ARE WE WAITING FOR OPR RESPONSE
	MOVEI	S1,[ASCIZ/--Waiting For Operator Response--/] ;YES,,SAY SO
	CAIN	S2,%ALIGN		;ARE WE ALIGNING FORMS ???
	MOVEI	S1,[ASCIZ/--Aligning Forms--/]  ;YES,,SAY SO
	PUSHJ	P,ASCOUT		;DUMP THE STATUS OUT.
	PUSHJ	P,CRLF			;OUTPUT A CRLF.
SHOW.2:	LOAD	AP,.QELNK(AP),QE.PTN	;GET THE ADDRESS OF THE NEXT ENTRY.
[OPRQSR.MAC]
Q$STAR:: $CALL	Q$SHUTDN		;PROCESS THE!FIRST PART
	$RETIT				;O.K..COMMAND FINISHED
	MOVE	S1,ARG.DA+.OHDRS+OBJ.TY(MO)	;GET THE OBJECT TYPE
	CAIE	S1,.OTLPT		;IS IT A PRINTER?
	CAIN	S1,.OTCDP		;[****]IS IT A LASER PRINTER?
	SKIPA				;[****]PRINTER OR LASER PRINTER
	$RETF				;NO..INVALID MESSAGE