Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qsrque.c10
There are 2 other files named qsrque.c10 in the archive. Click here to see a list.
 INS 15/2	;10C1
	;**;[1230]ADD 1 LINE AT LSTITN:+1L	16-DEC-84/CTK
	PRCBLK:	BLOCK	1			;/PROCESS SWITCH FIELD HISTORY

 INS 20/14	;10C2
	;**;[1230]ADD 1 LINE AT Q$CRQE:+3L	16-DEC-84/CTK
		SETZM	PRCBLK			;[1230]CLEAR PROCESS BLOCK FLAG
 INS 47/15	;10C3
	;**;[1230]ADD DISPATCH CODE AFTER BLKTBL:+24L	16-DEC-84/CTK
		CRQAST,,.QCAST			;[1230]/ASSIST BLOCK
		CRQPRC,,.QCPRC			;[1230]/PROCESSING BLOCK - IBMCOM
 DEL 50/15	;10C4
	;CTK
 REP 29/20	;10C5
	CRQNOD:	CAIE	T2,1			;BLOCK LENGTH MUST BE 1
		$RETF				;NO,,THATS AN ERROR
	;**;[1201]REVAMP AND ADD CODE AT CRQNOD:+2L	30-MAR-84/CTK
		SKIPN	T4			;[1201]HE SET IT, SO SKIP THIS
		MOVE	T4,G$LNBR##		;[1201]DEFAULT, TO LOCAL NODE NUMBER
	;**;[1216]CHANGE 1 LINE AT CRQNOD:+4L	11-JUL-84/CTK
		STOLIM	T4,.EQLIM(P1),ONOD	;[1216]LET'S SAVE A NAME/NUMBER
		TLNN	T4,600000		;[1201]IS IT BINARY ?
		  JRST	.RETT			;[1201]YES, DON'T CONVERT AND RETURN
		MOVE	S1,T4			;[1201]GET NODE NAME/NUMBER
		PUSHJ	P,N$GNOD##		;[1201]LET'S FIND THE NODE
		JUMPF	.RETT			;[1201]DID WE FIND THE NODE ???
		MOVE	S1,NETNBR(S2)		;[1201]YES, GET THE NUMBER
		SKIPE	S1			;[1201]IS THERE A VALID NODE NUMBER ?
	;**;[1216]CHANGE 1 LINE AT CQND.1:+0L	11-JUL-84/CTK
	CQND.1:	STOLIM	S1,.EQLIM(P1),ONOD	;[1216]YES, SAVE IT IN THE EQ
		$RETT				;AND RETURN

	CRQNAM:	CAILE	T2,EQNMSZ		;SIZE MUST BE VALID
		$RETF				;ELSE THATS AN ERROR
		MOVEI	S1,.EQOWN(P1)		;GET THE DESTINATION ADDRESS
		ADDI	T2,-1(S1)		;GET THE END ADDRESS
		HRL	S1,T3			;GET THE SOURCE ADDRESS
		BLT	S1,0(T2)		;COPY IT OVER
		$RETT				;AND RETURN

	CRQOID:	CAIE	T2,1			;BLOCK LENGTH MUST BE 1
		$RETF				;NO,,THATS AN ERROR
		STORE	T4,.EQOID(P1)		;SAVE THE USER NUMBER
		$RETT				;AND RETURN
 WIT
	;**;[1230]ADD AND REVAMP CODE AT CRQNOD:+0L	16-DEC-84/CTK
	CRQNOD:	CAIE	P2,.QHTIP		;[1230]INPUT QUEUE CREATE ??
		JRST	CQPC.1			;[1230]NO, GO WRITE THE ROB WORD
		CAIE	T2,1			;[1230]BLOCK LENGTH MUST BE 1
		$RETF				;[1230]NO, THATS AN ERROR
		MOVE	S1,G$LNBR##		;[1230]DEFAULT, TO LOCAL NODE NUMBER
		SKIPN	PRCBLK			;[1230]PREVIOUS .QBPRC BLOCK ???
		STORE	S1,.EQROB+.ROBND(P1)	;[1230]NO, SAVE PROCESS NODE INFO
		SKIPN	T4			;[1230]HE SET IT, SO SKIP THIS
		MOVE	T4,G$LNBR##		;[1230]DEFAULT, TO LOCAL NODE NUMBER
		STOLIM	T4,.EQLIM(P1),ONOD	;[1230]YES, SAVE IN LIMIT WORDS
		TLNN	T4,600000		;[1230]IS IT BINARY ?
		$RETT				;[1230]YES, DON'T CONVERT AND RETURN
		MOVE	S1,T4			;[1230]NO, GET NODE NAME/NUMBER
		PUSHJ	P,N$GNOD##		;[1230]LET'S FIND THE NODE
		JUMPF	.RETT			;[1230]DID WE FIND THE NODE ???
		SKIPE	S1,NETNBR(S2)		;[1230]YES, GET THE NUMBER IF ANY
		STOLIM	S1,.EQLIM(P1),ONOD	;[1230]SAVE IN THE LIMIT WORDS
		$RETT				;[1230]AND RETURN
 INS 3/21	;10C6
	CRQPRC:	CAIE	P2,.QHTIP		;[1230]INPUT QUEUE CREATE ??
		$RETF				;[1230]NO, TAKE ERROR RETURN
		SETOM	PRCBLK			;[1230]REMEMBER WE CAME THIS WAY
	CQPC.1:	CAIE	T2,1			;[1230]BLOCK LENGTH MUST BE 1
		$RETF				;[1230]NO, THATS AN ERROR
		SKIPN	T4			;[1230]HE SET IT, SO SKIP THIS
		MOVE	T4,G$LNBR##		;[1230]DEFAULT, TO LOCAL NODE NUMBER
		STORE	T4,.EQROB+.ROBND(P1)	;[1230]NO, SAVE THE NODE NAME/NUMBER
		TLNN	T4,600000		;[1230]IS IT BINARY ?
		  $RETT				;[1230]YES, DON'T CONVERT
		MOVE	S1,T4			;[1230]NO, GET NODE NAME/NUMBER
		PUSHJ	P,N$GNOD##		;[1230]LET'S FIND THE NODE
		JUMPF	.RETT			;[1230]DID WE FIND THE NODE ???
		SKIPE	S1,NETNBR(S2)		;[1230]YES, GET THE NUMBER IF ANY
		STORE	T4,.EQROB+.ROBND(P1)	;[1230]SAVE THE NODE NAME/NUMBER
		$RETT				;[1230]NO, RETURN

	CRQNAM:	CAILE	T2,EQNMSZ		;SIZE MUST BE VALID
		$RETF				;ELSE THATS AN ERROR
		MOVEI	S1,.EQOWN(P1)		;GET THE DESTINATION ADDRESS
		ADDI	T2,-1(S1)		;GET THE END ADDRESS
		HRL	S1,T3			;GET THE SOURCE ADDRESS
		BLT	S1,0(T2)		;COPY IT OVER
		$RETT				;AND RETURN

	CRQOID:	CAIE	T2,1			;BLOCK LENGTH MUST BE 1
		$RETF				;NO,,THATS AN ERROR
		STORE	T4,.EQOID(P1)		;SAVE THE USER NUMBER
		$RETT				;AND RETURN

		;CONTINUED ON THE NEXT PAGE
		;CONTINUED FROM THE PREVIOUS PAGE

 INS 22/22	;10C7
	;**;[1230]ADD 8 LINES AT CRQFRR:+9L	22-OCT-84/CTK
	CRQAST:	CAIN	T2,1			;[1230]BLOCK LENGTH MUST BE 1
		CAIE	P2,.QHTIP		;[1230]AND QUEUE TYPE MUST BE INPUT
		$RETF				;[1230]NO, RETURN NOW
		CAIL	T4,.OPINY		;[1230]MUST BE EQUAL TO NO
		CAILE	T4,.OPINN		;[1230]   OR YES
		$RETF				;[1230]IF NOT, THATS AN ERROR
		STOLIM	T4,.EQLIM(P1),OINT	;[1230]OK, SAVE THE /ASSIST VALUE
		$RETT				;[1230]AND RETURN

 SUM 198863