Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - ornmac.c08
There is 1 other file named ornmac.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
		SUBTTL	Murray Berkowitz/PJT/GAT/CTK	17-Jun-83
 WIT
		SUBTTL	Murray Berkowitz/PJT/GAT/CTK/DPM	21-Nov-83
 REP 48/1	;08C2
		%%.OPR==35			;ORNMAC VERSION NUMBER
 WIT
		%%.OPR==37			;ORNMAC VERSION NUMBER
 INS 22/3	;08C3
	36	9/18/83	Add support for OPR>ENABLE/DISABLE./CTK

 REP 27/39	;08C4
	TOPS10<	.SIABO==20514			;ABORT THE INITIALIZATION   >
 WIT
	;**;[37]ADD NEW SYMBOLS			21-NOV-83/DPM
		.SIABO==20514			;[37]ABORT THE INITIALIZATION
		.SIERA==20515			;[37]ERASE THE TAPE
		.SINEW==20516			;[37](RE-)INITIALIZE (APPENDED BY QUASAR
						;[37] FOR /NEW-VOLUME, NEVER PARSED BY OPR)
		.SILST==20517			;[37]LIST OF REELIDS (APPENDED BY QUASAR
						;[37]FOR /NEW-VOLUME, NEVER PARSED BY OPR)

	SUBTTL	ENABLE and DISABLE message for queues
	;**;[36]ADD 9 LINES AFTER SET TAPE INITIALIZE MESSAGE	18-SEP-83/CTK
		.EDQUE==20340			;[36]ENABLE OR DISABLE QUEUE BLOCK
			E.ALL==E.TAPQ!E.DSKQ!E.INPQ!E.LPTQ!E.PLTQ!E.CDPQ!E.PTPQ! ;[36]
						;[36]ALL QUEUES
			E.TAPQ==400000,,0	;[36]ENABLE/DISABLE TAPE MOUNT QUEUES
			E.DSKQ==200000,,0	;[36]ENABLE/DISABLE DISK MOUNT QUEUES
			E.INPQ==100000,,0	;[36]ENABLE/DISABLE BATCH QUEUES
			E.LPTQ==040000,,0	;[36]ENABLE/DISABLE PRINT QUEUES
			E.PLTQ==020000,,0	;[36]ENABLE/DISABLE PLOT QUEUES
			E.CDPQ==010000,,0	;[36]ENABLE/DISABLE CARD-PUNCH QUEUES
			E.PTPQ==004000,,0	;[36]ENABLE/DISABLE PAPERTAPE QUEUE
 SUM 114247