Google
 

Trailing-Edge - PDP-10 Archives - PCL_FOR_701 - uuocon.scm
There is 1 other file named uuocon.scm in the archive. Click here to see a list.
File 1)	DSK:UUOCON.MAC[226,5463,MARTIN,DEC701]	created: 0954 22-Jul-80
File 2)	DSK:UUOCON.MAC[226,5463,MARTIN,PCL701]	created: 1819 13-Feb-81

1)74	WAIT2B:	HRRZ	T4,DEVSER(F)	;YES, RESTORE T4 = DISPATCH ADR
****
2)74	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 1 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
2)	;TEST FOR PCL20 DEVICE TYPE BEFORE FLAGGING AN ERROR
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0101:
2)		LDB	T1,PDVTYP##	;GET DEVICE TYPE
2)		CAIN	T1,.TYPCL/.TYEST;PCL?
2)		JRST	WAIT2A		;YES, NOT REALLY AN ERROR BIT
2)	;**********************************************************************
2)	WAIT2B:	HRRZ	T4,DEVSER(F)	;YES, RESTORE T4 = DISPATCH ADR
**************
1)109		DVPDSL==.-DVPDIS	;LENGTH OF DISPATCH
****
2)109	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 2 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0102:
2)		XWD	1005,DVPCAL	;(1005)
2)		XWD	1006,DVPCAL	;(1006)
2)		XWD	1007,DVPCAL	;(1007)
2)	;**********************************************************************
2)		DVPDSL==.-DVPDIS	;LENGTH OF DISPATCH
**************
1)139		ANDCAB	S,DEVIOS(F)	; POSSIBLE RACE WITH SERVICE ROUTINE)
****
2)139	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 3 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0103:
2)		PUSH	P,T1		;SAVE T1
2)		LDB	T1,PDVTYP##	;GET DEVICE TYPE
2)		CAIN	T1,.TYPCL/.TYEST;PCL ?
2)		TRZ	S,IOTEND	;YES, THIS IS NOT AN ERROR BIT
2)		POP	P,T1		;RESTORE T1
2)	;**********************************************************************
2)		ANDCAB	S,DEVIOS(F)	; POSSIBLE RACE WITH SERVICE ROUTINE)
**************
1)140		ANDCAB	S,DEVIOS(F)
****
2)140	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 4 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
File 1)	DSK:UUOCON.MAC[226,5463,MARTIN,DEC701]	created: 0954 22-Jul-80
File 2)	DSK:UUOCON.MAC[226,5463,MARTIN,PCL701]	created: 1819 13-Feb-81

2)	;NO OLD CODE DELETED HERE.
2)	BP0104:
2)		PUSH P,T1		;SAVE T1
2)		LDB	T1,PDVTYP##	;GET DEVICE TYPE
2)		CAIN	T1,.TYPCL/.TYEST;PCL ?
2)		TRZ	S,IOTEND	;YES, THIS IS NOT AN ERROR
2)		POP	P,T1		;RESTORE T1
2)	;**********************************************************************
2)		ANDCAB	S,DEVIOS(F)
**************
1)154	OUT2B:	PUSH	P,T2		;SAVE L(WRDCNT WORD)
****
2)154	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 5 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0105:
2)		LDB	T4,PDVTYP	;GET DEVICE TYPE FROM DDB
2)		CAIN	T4,.TYPCL/.TYEST;PCL ?
2)		TRNN	S,IOWC		;AND USER SUPPLIED WORD COUNT
2)		JRST	OUT2B		;NO
2)		ADDI	T1,3-2		;ALLOW FOR PARTIALLY FILLED WORD
2)		LSH	T1,-2		;CONVERT BYTE COUNT TO WORD COUNT
2)	;**********************************************************************
2)	OUT2B:	PUSH	P,T2		;SAVE L(WRDCNT WORD)
**************
1)156		TRNE	T1,742000	;ANY ERRORS? (INCLUDE IOTEND)
1)		POPJ	P,		;RETURN (NO OUTPUT DONE)
1)	CALOU1:	PUSHJ	P,GTOEVM##	;GET EVM FOR THIS OUTPUT OPERATION
****
2)156	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 6 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
2)	;THE FOLLOWING OLD CODE WAS DELETED:
2)	;	TRNE	T1,742000	;ANY ERRORS? (INCLUDE IOTEND)
2)	;	POPJ	P,		;RETURN (NO OUTPUT DONE)
2)	BP0106:
2)		TRNE	T1,740000	;ANY ERRORS?
2)		POPJ	P,		;RETURN (NO OUTPUT DONE)
2)		LDB	T4,PDVTYP##	;GET DEVICE TYPE
2)		CAIN	T4,.TYPCL/.TYEST;PCL ?
2)		JRST	CALOU1		;YES
2)		TRNE	T1,IOTEND	;NO, CHECK IOTEND IS CLEAR ALSO
2)		POPJ	P,		;ERROR, RETURN
2)	;**********************************************************************
2)	CALOU1:	PUSHJ	P,GTOEVM##	;GET EVM FOR THIS OUTPUT OPERATION
**************
1)162		TRNN	S,IOBKTL+IODTER+IODERR+IOIMPM+IOTEND
1)		TDNE	T1,DEVAIO(F)
1)		JRST	IOPTST		;GIVE FAIL RETURN TO USER
1)		POPJ	P,
1)	IFN FTPI,<
File 1)	DSK:UUOCON.MAC[226,5463,MARTIN,DEC701]	created: 0954 22-Jul-80
File 2)	DSK:UUOCON.MAC[226,5463,MARTIN,PCL701]	created: 1819 13-Feb-81

****
2)162	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 7 OF 7
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:53
2)	;
2)	;THE FOLLOWING OLD CODE WAS DELETED:
2)	;	TRNN	S,IOBKTL+IODTER+IODERR+IOIMPM+IOTEND
2)	;	TDNE	T1,DEVAIO(F)
2)	;	JRST	IOPTST		;GIVE FAIL RETURN TO USER
2)	;	POPJ	P,
2)	BP0107:
2)		TRNN	S,IOBKTL+IODTER+IODERR+IOIMPM
2)		TDNE	T1,DEVAIO(F)
2)		JRST	IOPTST		;GIVE FAIL RETURN TO USER
2)		LDB	T1,PDVTYP##	;GET DEVICE TYPE
2)		CAIE	T1,.TYPCL/.TYEST;PCL ?
2)		TRNN	S,IOTEND	;NO
2)		POPJ	P,
2)		JRST	IOPTST
2)	;**********************************************************************
2)	IFN FTPI,<
**************