+1       LA       09/23/74       #C00
*********************************************************************
*M*      P2CCI    CONTROL COMMAND INTERPRETER FOR PASS2             *
*********************************************************************
+65,65   LA       10/11/74       #C00
         DEF      READCONT
+76,76   LA       09/23/74       #C00
         DEF      SCPUFLG
         REF      SCPU
+90,90   LA       10/07/74       #C00
         DEF      SVDFTP
+93,93   LA       10/13/74       #C00
         DEF      BIGLOC
         DEF      HAND2FLG
         DEF      MINCOCFL
+110,110 LA       09/30/74       #C00
         REF      UBCHAN
+131,133 LA       10/07/74       #C00
CCBUFRS  EQU      BASESTAC+5        BASE OF BUFFERS
+145,153 LA       10/07/74       #C00
SCPUFLG  EQU      CCBUFRS+60        SLAVE CPU'S PRESENCE FLAG
         PAGE
CHANFLG  EQU      SCPUFLG+1         CHAN CC ENCOUNTERED
P2OVLOP  EQU      SCPUFLG+2         FLGS FOR OPTION MON. OVERLAYS
P2ERR    EQU      SCPUFLG+3         COUNT OF # OF ERR MESSAGES
P2ABRT   EQU      SCPUFLG+4         PASS2 DELAYED ABORT FLAG
MINCOCFL EQU      SCPUFLG+5         MINICOC PRESENCE FLAG
****
RCHAN    EQU      SCPUFLG+6         #CHAN CMNDS FOR UBCHAN
+158,163 LA       10/07/74       #C00
DYSTORND EQU      CCPTR+1           END AVAILABLE CORE
SAVEPAGE EQU      CCPTR+2           #PAGES CORE, 1ST PAGE ADR.
GETPGPTR EQU      CCPTR+3           LAST ADR. OF PAGE GOTTEN
#PAGES   EQU      CCPTR+4           #PAGES GOTTEN FOR PERM AREA
ENDUSED  EQU      CCPTR+5           END OF CURRENT USED AREA
+172,174 LA       10/13/74       #C00
BIGLOC   EQU      COCS+11           BIG FLAG SET IN XMONITOR MODULE
****
*                                   AND # PHY CYLIN IN RIGHT HALF
+176,176 LA       10/14/74       #C00
HAND2FLG EQU      SCYLPSA+2         HANDLERS2 PRESENCE FLAG
PRIVDEV  EQU      SCYLPSA+3         TOT # OF PRIVATE PACKS
+181,184 LA       10/07/74       #C00
TBSZPTR  EQU      DCTSIZE+3         PTR TO TB:SZ     :MUST
TBMAXPTR EQU      DCTSIZE+4         PTR TO TB:MAX    : BE
TBFLGSPTR EQU     DCTSIZE+5         PTR TO TB:FLGS   :IN
TBFLGS1PTR EQU    DCTSIZE+6         PTR TO TB:FLGS1  :ORDER
+186,188 LA       10/07/74       #C00
BTXPTR   EQU      DCTSIZE+8         PTR TO BTX TBL
OTXPTR   EQU      DCTSIZE+9         PTR TO OTX TBL
GTXPTR   EQU      DCTSIZE+10        PTR TO GTX TBL
+200,200 LA       10/07/74       #C00
#MXSTRM  EQU      SYMBPTR+7         # MXSTRM ENTRIES
+317     LA       10/14/74       #C00
         CW,SR4   XHAND
         BNE      $+2
         MTW,1    HAND2FLG,R3       SET FLAG WHEN :HANDLERS2 ENCOUNTERED
+440     LA       10/11/74       #C00
         LI,R1    3                 THIS CODE CHECKS FOR DUPLICATE
         LB,R1    CURKEY,R1         CALLS TO THE COMMAND PROCESSORS
         CI,R1    1                 O.K. IF IT'S A 1
         BG       ERRBORT4          GO PRINT MESSAGE AND CHK NEXT CALL
+444,444 LA       10/13/74       #C00
+446,462 LA       10/13/74       #C00
+475,475 LA       09/29/74       #C00
         M:PRINT  (MESS,DOTDOT)
         LW,SR3   P2ERR,R3          GET COUNT OF ERR AND WARNINGS
         BEZ      CONTINU           BRANCH IF NONE
         SLS,SR3  1                 SET SR3 INTO ERR/ABN FORMAT
         BAL,SR4  CONVT             CONVERT TO EBCDIC
         LI,R1    X'F0'
         LW,R5    XBLANKS           R5 GETS 4-BLANKS
         CB,R1    R4                REMOVE LEADING ZEROES
         BNE      PUTNMSG
         SLD,R4   8                 IF 'F0' SHIFT IT OFF
         B        $-3
PUTNMSG  STW,R4   P2ERRMSG+3        STORE COUNT IN MESSAGE
         M:PRINT  (MESS,P2ERRMSG)    PRINT # OF ERR. AND WARNINGS
CONTINU  EQU      $
+477     LA       10/12/74       #C00
         LB,R1    DOTDOT
         AI,R1    24                EXPAND DOT-LINE TO INCLUDE
         STB,R1   DOTDOT            'END OF PASS2 ' MESSAGE
+516,516 LA       09/30/74       #C00
+538,538 LA       10/07/74       #C00
         BNE      $+4
+539     LA       09/30/74       #C00
         MTW,1    P2ERR,R3
+570,570 LA       10/19/74       #C00
*        NOTE THAT ANY CODE CALLING THIS ROUTINE MUST HAVE R5 SET
*        TO THE START OF P2CCI'S TEMPSTACK.  NORMALLY R3 IS ALWAYS
*        POINTING THERE, BUT THERE ARE SOME EXCEPTIONS
*
*
         MTW,1    P2ERR,R5          INCREMENT ERROR COUNT
+610,610 LA       09/30/74       #C00
         BAL,SR4  UNKCCMSG+1
+647,647 LA       09/30/74       #C00
         BAL,SR4  UNKCCMSG+1
+651,651 LA       10/13/74       #C00
         LI,SR4   PASS2DUN
+658,658 LA       10/13/74       #C00
ERRBORT3 LI,SR4   PASS2DUN
+662,662 LA       10/11/74       #C00
ERRBORT4 LI,SR4   READSTRG          AFTER PRINTOUT RETURN TO NEXT
*                                   CONTROL COMMAND READ
+666,666 LA       10/11/74       #C00
                  '  DUPLICATE IGNORED'
+671,671 LA       10/12/74       #C00
DOTDOT   TEXTC    '...................................'
         TEXT     '..... END OF PASS2 .....'
+848,848 LA       09/30/74       #C00
+859,859 LA       09/30/74       #C00
+1107,1107 LA     09/30/74       #C00
+1121,1121 LA     09/30/74       #C00
+1145    LA       10/17/74       #C00
XHAND    DATA     ':HAN'            FOR HANDLERS2 C C
+1147    LA       09/23/74       #C00
         DATA     ':SCP'
+1173    LA       10/17/74       #C00
         DATA     X'03C8C100'       HA (HANDLERS2 CC)
+1174    LA       09/23/74       #C00
         DATA     X'03E2C300'       SC
+1253    LA       10/17/74       #C00
         B        READSTRG          NO PROCESSING REQUIRED
*                                   FOR HANDLERS2 CC
+1254    LA       09/23/74       #C00
         B        SCPU
+1482,1482 LA     09/29/74       #C00
         SLS,D3   1                 SHIFT OFF NO-ENTRY FLAG
+1495,1496 LA     09/29/74       #C00
         MTB,-2   SR3,R4            DECREMENT # OF VAL. STILL TO FOLLOW
         AI,SR3   1                 UPDATE PTR TO NEXT WORD IN TSTACK
+1730,1730 LA     09/29/74       #C00
         BL       ERREND            NO
+1737,1737 LA     09/29/74       #C00
+1775,1775 LA     09/29/74       #C00
+1792    LA       09/29/74       #C00
P2ERRMSG TEXTC    '#######        ERRORS AND OR WARNINGS IN',;
                  ' THIS PASS2        #######'
+2059,2059 LA     10/18/74       #C00
         AI,SR1   2                 ROUND SIZE TO DOUBLE-WORD LENGTH
+END
