Trailing-Edge
-
PDP-10 Archives
-
PCL_FOR_701
-
mongen.scm
There is 1 other file named mongen.scm in the archive. Click here to see a list.
File 1) DSK:MONGEN.MAC[226,5463,MARTIN,DEC701] created: 1007 24-Jun-80
File 2) DSK:MONGEN.MAC[226,5463,MARTIN,PCL701] created: 1111 18-Feb-81
1)1 EDITNO==221 ;EDIT NO.
****
2)1 ; THIS IS MONGEN WITH SPECIAL PCL DMA CHANNEL SUPPORT ADDED
2) EDITNO==221 ;EDIT NO.
**************
1)52 KSGEN1: FILOUT <XP M.CHN,*@>,CHN ;TOTAL NUMBER OF CHANNELS
1)53 MOVEI N,SM.KDUP ;MAXIMUM NUMBER OF DUP-11S
****
2)52 KSGEN1:
2) ;**********************************************************************
2) ;PATCH TO INSTALL PCL20 DRIVER SOFTWARE
2) ;PART 1 OF 1
2) ;INSTALLED BY FRANCIS ON 13-FEB-81 AT 11:42
2) ;
2) ;ADD PCL20 CHAN NEL DEFINITIONS
2) ;
2) ;NO OLD CODE DELETED HERE.
2) BP0101:
2) ASKDEC <PCL(0,0-1)[PCL20/PCL11B interfaces]>,N
2) FILOUT <XP M.PCHN,*@>,N ;NUMBER OF SPECIAL PCL CHANNELS
2) JUMPE N,KSGEN2 ;JUMP IF NO PCL INTERFACES
2) MOVN I,N ;GET -<# OF PCL INTERFACES>
2) HRLZ I,I ;FORM AOBJN POINTER
2) PCLOOP: FILOUT <XP M.CH*T,7@>,CHN ;SET PCL INPUT CHANNEL TYPE
2) HRRZ N,I ;GET NUMBER OF THIS INTERFACE
2) FILOUT <XP M.PC*>,N ;PUT OUT FIRST PART OF SYMBOL
2) FILOUT <I,*@>,CHN ;SPECIAL PCL INPUT CHANNEL NUMBER
2) FILOUT <XP M.*RH,0@> ;NO DISK RH11 THIS CHANNEL
2) FILOUT <XP M.*TR,0@> ;NO TAPE RH11 THIS CHANNEL
2) PUSHJ P,KSCHNO ;OUTPUT OTHER SYMBOLS FOR THIS CHANNEL
2) AOS CHN ;INCREMENT TO NEXT CHANNEL
2) FILOUT <XP M.CH*T,10@>,CHN ;SET PCL OUTPUT CHANNEL TYPE
2) HRRZ N,I ;GET NUMBER OF THIS INTERFACE
2) FILOUT <XP M.PC*>,N ;PUT OUT FIRST PART OF SYMBOL
2) FILOUT <O,*@>,CHN ;SPECIAL PCL OUTPUT CHANNEL NUMBER
2) FILOUT <XP M.*RH,0@> ;NO DISK RH11 THIS CHANNEL
2) FILOUT <XP M.*TR,0@> ;NO TAPE RH11 THIS CHANNEL
2) PUSHJ P,KSCHNO ;OUTPUT OTHER SYMBOLS FOR THIS CHANNEL
2) AOS CHN ;INCREMENT TO NEXT CHANNEL
2) AOBJN I,PCLOOP ;LOOP FOR ALL PCL INTERFACES
2) KSGEN2:
2) ;**********************************************************************
2) FILOUT <XP M.CHN,*@>,CHN ;TOTAL NUMBER OF CHANNELS
2)53 MOVEI N,SM.KDUP ;MAXIMUM NUMBER OF DUP-11S
**************