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