Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - please.c08
There is 1 other file named please.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	D.P.Mastrovito /DPM/PJT/PGW/NT	1-Jan-82
 WIT
	SUBTTL	D.P.Mastrovito /DPM/PJT/PGW/NT/LWS	3-Nov-83
 REP 33/1	;08C2
		PLSEDT==111			;Edit level
 WIT
		PLSEDT==113			;Edit level
 INS 40/3	;08C3
	112	Part 3 of EDIT 110 didn't quite work. Fix it.
		SPR 10-33632 1-Nov-83 /LWS

	113	When in DIALOG mode don't display messages that may have been
		from a previous PLEASE (WTOR) command. Build an ACK code from
		job number and UDT. Check for this ACK code on a RESPONSE from
		operator. If ACKs don't match, pitch message and wait.
		SPR 10-34007 3-Nov-83 /LWS
 REP 23/4	;08C4
	USRJOB:	BLOCK	1			;User job number
 WIT
		ACK.JB==777000,,0		;[113] Mask for job # in ACK code
		ACK.UT==777,,777777		;[113] Mask for UDT part of ACK code
	USRACK:	BLOCK	1			;[113] User ACK code
 REP 18/9	;08C5
		MOVEM	S2,USRJOB		;Store it
 WIT
	;**;[113] Change 1 line at PLEASE+13L. 1-Nov-83 /LWS
		STORE	S2,USRACK,ACK.JB	;[113] Store it	in ACK code
 REP 26/11	;08C6
		JUMPE	T3,DIA.4A		;DONE ?
 WIT
	;**;[112] Change 1 line at DIAL.2+1L. 1-Nov-83 /LWS
		JUMPE	T3,DIAL.4		;[112] Done ?
 REP 30/11	;08C7
		  JRST	DIAL.4			; Yes, go finish up	
 WIT
		  JRST	DIAL.4			; Yes, go finish up
 REP 43/11	;08C8
	DIAL.4:	SETZ	S1,			; Make a null
		DPB	S1,T2			; Overwrite the terminator
	DIA.4A:	SKIPE	CMDMOD			; Are we in dialog mode?
		 JRST	DIAL.5			; No, handle the command
		MOVE	S1,TCSB			; Get the address of arguement block	
 WIT
	;**;[112] Delete 2 lines after DIAL.3+1L. 1-Nov-83 /LWS
	DIAL.4:	SKIPE	CMDMOD			;[112] Are we in dialog mode?
		 JRST	DIAL.5			; No, handle the command
		MOVE	S1,TCSB			; Get the address of arguement block
 REP 62/11	;08C9
	DIAL.5:	MOVE	S1,CR.FLG(S2)		;Get command flags
 WIT
	;**;[112] Insert 2 lines at DIAL.5+0L. 1-Nov-83 /LWS
	DIAL.5:	SETZ	S1,			;[112] Make a null
		DPB	S1,T2			;[112] Overwrite the terminator
		MOVE	S1,CR.FLG(S2)		;Get command flags
 REP 68/11	;08C10
	WTOR:	$WTOR	(,<^T/ATMBUF/>,,USRJOB,<$WTNOD(OPRNOD),$WTFLG(WT.NFY)>)
 WIT
	;**;[113] Add 2 lines at WTOR+0L. 1-Nov-83 /LWS
	WTOR:	$CALL	I%NOW			;[113] Get UDT for ACK code
		STORE	S1,USRACK,ACK.UT	;[113] Store it
		$WTOR	(,<^T/ATMBUF/>,,USRACK,<$WTNOD(OPRNOD),$WTFLG(WT.NFY)>) ;[113]
 REP 6/15	;08C11
		MOVEI	P3,.OHDRS(P1)		;Point to the blocks
 WIT
	;**;[113] Insert 5 lines and change 1 line after IPCSER+2L. 3-Nov-83 /LWS
		LOAD	S1,.MSCOD(P1)		;[113] Get the ACK code
		CAMN	S1,USRACK		;[113] Is it the one we're waiting for?
		  JRST	IPCS.0			;[113] Yes,,continue
		$CALL	C%REL			;[113] No,,release msg and
		JRST	IPCSER			;[113]  go wait for one we're expecting

	IPCS.0:	MOVEI	P3,.OHDRS(P1)		;[113] Point to the blocks
 SUM 31797