Google
 

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

1)17		0
****
2)17	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 1 OF 6
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:36
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0101:
2)		VECTB4			;UBA 4
2)	;**********************************************************************
2)		0
**************
1)25	>;END IFN M.KS10
****
2)25	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 2 OF 6
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:36
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0102:
2)	VECTB4::			;UBA 4 VECTOR TABLE
2)	;REPEAT	^D128,<0>		;THIS IS WHAT IS XLISTED
2)		XLIST
2)	REPEAT	^D128,<0
2)	>
2)		LIST
2)	;**********************************************************************
2)	>;END IFN M.KS10
**************
1)95	>
****
2)95	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 3 OF 6
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:36
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0103:
2)		XP UBA4PI,PCACHN		;PCL20 PI
2)	;**********************************************************************
2)	>
**************
1)170		PURGE UB1IMR,UB3IMR
****
2)170	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 4 OF 6
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:36
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0104:
2)		X P0I,PCLBDA,20		;PCL20 INPUT CHANNEL PAGE REGISTER COUNT
2)		X P0O,PCLBDA,20		;PCL20 OUTPUT CHANNEL PAGE REGISTER COUNT
2)	;**********************************************************************
File 1)	DSK:COMMON.MAC[226,5463,MARTIN,DEC701]	created: 0934 25-Jul-80
File 2)	DSK:COMMON.MAC[226,5463,MARTIN,PCL701]	created: 1142 13-Feb-81

2)		PURGE UB1IMR,UB3IMR
**************
1)184		  POPJ	P,		;NO--SO DON'T TRY TO INIT IT
1)		MOVSI	T2,3		;UBA #3
****
2)184	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 5 OF 6
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:36
2)	;
2)	;THE FOLLOWING OLD CODE WAS DELETED:
2)	;	  POPJ	P,		;NO--SO DON'T TRY TO INIT IT
2)	BP0105:
2)		JRST	UBAPCL		;NO-SO DON'T INIT IT, GO ON
2)	;**********************************************************************
2)		MOVSI	T2,3		;UBA #3
**************
1)184		POPJ	P,		;RETURN
****
2)184	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 6 OF 6
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:36
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	BP0106:
2)	UBAPCL:	MOVE	T1,[4,,UNBSTW]		;UBA #4 STATUS REGISTER
2)		PUSHJ	P,UBGOOD##	;IS UBA #4 THERE?
2)		POPJ	P,		;NO--SO DON'T TRY TO INIT IT
2)		MOVSI	T2,4		;UBA #4
2)		MOVEI	T1,UBINIT	;GET UNIBUS INIT BIT
2)		WRIO	T1,UNBSTW(T2)	;INIT IT
2)		MOVEI	T1,UBA4PI	;GET UBA #4 PI
2)		IORI	T1,UNBDTR	;SET DISABLE XFER BIT
2)		WRIO	T1,UNBSTW(T2)	;SET UP UBA #4
2)	;**********************************************************************
2)		POPJ	P,		;RETURN
**************