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
**************