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