Google
 

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

1)36			;;RH=INITIAL FAIRNESS COUNT FOR POSITIONING UNITS
****
2)36	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 1 OF 5
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:34
2)	;
2)	;ADD PCL20 INPUT AND OUTPUT CHANNELS
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	;BP0101:
2)		IFE M.CH'S'T-7,<CP.22B!CP.PCI,,0>
2)		IFE M.CH'S'T-10,<CP.22B!CP.PCO,,0>
2)	;**********************************************************************
2)			;;RH=INITIAL FAIRNESS COUNT FOR POSITIONING UNITS
**************
1)36	CHNCFP:!0	;;CURRENT FAIRNESS COUNT FOR POSITIONING UNITS ON
****
2)36	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 2 OF 5
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:34
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	;BP0102:
2)		XP	CP.PCI,4000	;;=1 IF PCL20 INPUT, =0 IF NOT
2)		XP	CP.PCO,2000	;;=1 IF PCL20 OUTPUT, =0 IF NOT
2)	;**********************************************************************
2)	CHNCFP:!0	;;CURRENT FAIRNESS COUNT FOR POSITIONING UNITS ON
**************
1)36	CHNIMR::!		;;ADDRESS OF INITIAL MAPPING REGISTER FOR THIS
****
2)36	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 3 OF 5
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:34
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	;BP0103:
2)		IFE M.CH'S'T-7,<		;;IF THIS IS A PCL20 INPUT
2)			<PCLBDA&7000000>+UNBSTW
2)	>;END OF IFE M.CH'S'T-7
2)		IFE M.CH'S'T-10,<		;;IF THIS IS A PCL20 OUTPUT
2)			<PCLBDA&7000000>+UNBSTW
2)	>;END OF IFE M.CH'S'T-10
2)	;**********************************************************************
2)	CHNIMR::!		;;ADDRESS OF INITIAL MAPPING REGISTER FOR THIS
**************
1)36	CHNMRC::!		;;NUMBER OF MAPPING REGISTERS AVAILABLE TO THIS DEVICE
****
2)36	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 4 OF 5
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:34
2)	;
2)	;NO OLD CODE DELETED HERE.
File 1)	DSK:COMMOD.MAC[226,5463,MARTIN,DEC701]	created: 1121 15-Jul-80
File 2)	DSK:COMMOD.MAC[226,5463,MARTIN,PCL701]	created: 1925 13-Feb-81

2)	;BP0104:
2)		IFE M.CH'S'T-7,<		;;IF THIS IS A PCL20 INPUT
2)			P0IIMR##
2)	>;END OF IFE M.CH'S'T-7
2)		IFE M.CH'S'T-10,<		;;IF THIS IS A PCL20 OUTPUT
2)			P0OIMR##
2)	>;END OF IFE M.CH'S'T-10
2)	;**********************************************************************
2)	CHNMRC::!		;;NUMBER OF MAPPING REGISTERS AVAILABLE TO THIS DEVICE
**************
1)36	CHNIEA::!0		;;INITIAL ELEVEN STYLE ADDRESS FOR CURRENT TRANSFER
****
2)36	;**********************************************************************
2)	;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2)	;PART 5 OF 5
2)	;INSTALLED BY FRANCIS       ON 13-FEB-81 AT 11:34
2)	;
2)	;NO OLD CODE DELETED HERE.
2)	;BP0105:
2)		IFE M.CH'S'T-7,<		;;IF THIS IS A PCL20 INPUT CHANNEL
2)			P0IMRC##
2)	>;END OF IFE M.CH'S'T-7
2)		IFE M.CH'S'T-10,<		;;IF THIS IS A PCL20 OUTPUT CHANNEL
2)			P0OMRC##
2)	>;END OF IFE M.CH'S'T-10
2)	;**********************************************************************
2)	CHNIEA::!0		;;INITIAL ELEVEN STYLE ADDRESS FOR CURRENT TRANSFER
**************