*COMDECK STATCOM
STATCOM   CTEXT    6000 STATION MESSAGE CODES AND CONTROL POINT DEFINITIONS 
          SPACE  3
*         MULTIPLEXED STATION CODES 
          SPACE  1
*         I/O COORDINATION MESSAGES TYPE CODES
          SPACE  1
 SC.RQST  EQU    00B         I/O OPERATION REQUEST TO STATION 
 SC.LNKU  EQU    20B         I/O OPERATION LINKUP FROM STATION
 SC.DLNK  EQU    23B         I/O OPERATION STATUS DELINK FROM STATION 
          SPACE  1
*         I/O OPERATION REQUEST TYPE CODES
          SPACE  1
 SC.READ  EQU    00B         I/O OPERATION READ FUNCTION
 SC.WRIT  EQU    01B         I/O OPERATION WRITE FUNCTION 
          SPACE  1
*         DATA   SUB-CHANNEL C-BLOCKS CODES TO STATION
          SPACE  1
 SC.CONI  EQU    21B         CONTINUE INPUT TRANSFER SENT TO STATION
 SC.CONO  EQU    22B         CONTINUE OUTPUT TRANSFER SENT TO STATION 
 SC.TERM  EQU    24B         TERMINATE I/O OPERATION
          SPACE  1
*         DATA SUB-CHANNEL C-BLOCK CODES FROM STATION 
 SC.CONT  EQU    00B         CONTINUE RECOVERY UNIT SENT FROM STATION 
 SC.SUSP  EQU    02B         SUSPEND DATA TRANSFER SENT FROM STATION
          SPACE  1
*         GENERAL MESSAGE SUB-CHANNEL MESSAGE CODES 
          SPACE  1
 M.MISC   EQU    1000B             MESSAGE BIAS FOR MISC MSGS 
 M.FILE   EQU    2000B             MESSAGE BIAS FOR FILE ORIENTED MSGS
 M.BTCH   EQU    3000B             MESSAGE BIAS FOR BATCH ORIENTED MSGS 
 M.SYST   EQU    4000B             MESSAGE BIAS FOR SYSTEM ORIENTED MSGS
 M.LIST   EQU    5000B             MESSAGE BIAS FOR LIST ORIENTED MSGS
* 
*         MISC MESSAGES 
* 
 MC.INIT  EQU    M.MISC            STATION INITIATE 
 MC.ACCP  EQU    MC.INIT+1         ACCEPT 
 MC.RJCT  EQU    MC.ACCP+1         REJECT 
 MC.LOGI  EQU    MC.RJCT+1         STATION LOGIN
 MC.LOGR  EQU    MC.LOGI           LOGIN REPLY
 MC.LOGO  EQU    MC.LOGI+1         LOGOUT STATION 
 MC.DEAD  EQU    MC.LOGO+1         DEAD START SIGNAL
 MC.SIFM  EQU    MC.LOGO+1         ENTER SIF MESSAGE
 MC.MLGI  EQU    1010B             REMOTE LOGIN 
 MC.MLGO  EQU    1011B             REMOTE LOGOUT
* 
*         FILE MESSAGES 
* 
 MC.FINP  EQU    M.FILE            REQUEST SPOOL INPUT FILE ENTRY 
 MC.AVAL  EQU    MC.FINP           (OLD MESSAGE CODE) 
 MC.RQFL  EQU    MC.FINP+1         (OLD REPLY SPOOL INPUT FILE ENTRY) 
 MC.FLNK  EQU    MC.RQFL+1         FILE LINK-UP 
 MC.ESFL  EQU    MC.FLNK           (OLD ESTABLISH LINKAGE)
 MC.FDLK  EQU    MC.FLNK+1         FILE DELINK
 MC.SFDL  EQU    MC.FDLK           (OLD STATION FILE DELINK)
* 
*         BATCH MESSAGES
* 
 MC.DROP  EQU    M.BTCH            DROP JOB 
 MC.KILL  EQU    MC.DROP+1         KILL JOB 
 MC.RRUN  EQU    MC.KILL+1         RERUN JOB
 MC.GOGO  EQU    MC.RRUN+1         CLEAR JOB PAUSE
 MC.RESU  EQU    MC.GOGO+1         RESUME JOB 
 MC.SUSP  EQU    MC.RESU+1         SUSPEND JOB
 MC.ENPR  EQU    MC.SUSP+1         ENTER PRIORITY 
 MC.ENTL  EQU    MC.ENPR+1         ENTER TIME LIMIT 
 MC.SSSW  EQU    MC.ENTL+1         SET SENSE SWITCH 
 MC.CSSW  EQU    MC.SSSW+1         CLEAR SENSE SWITCH 
 MC.EVCT  EQU    MC.CSSW+1         EVICT FILE 
 MC.DVRT  EQU    MC.EVCT+1         DIVERT FILE
 MC.CMNT  EQU    MC.DVRT+1         COMMENT
 MC.ENSC  EQU    MC.CMNT+1         ENTER SCM
 MC.ENLC  EQU    MC.ENSC+1         ENTER LCM
 MC.RSTG  EQU    MC.ENLC+1         RESTAGE FILE 
 MC.MOPR  EQU    MC.RSTG+1         MODIFY FILE PRIORITY 
 MC.EVCD  EQU    MC.MOPR+1         EVICT DEPENENCY STRING 
 MC.ENTD  EQU    MC.EVCD+1         ENTER DEPENDECY WAIT COUNT 
* 
*         SYSTEM MESSAGES 
* 
 MC.ASGN  EQU    M.SYST            ASSIGN ON-LINE EQUIPMENT 
 MC.ONEQ  EQU    MC.ASGN+1         ON EQUIPMENT 
 MC.OFEQ  EQU    MC.ONEQ+1         OFF EQUIPMENT
 MC.AVSN  EQU    MC.OFEQ+1         ASSIGN VSN 
 MC.SSOM  EQU    MC.AVSN+1         SET SYSTEM OPERATOR MODE 
 MC.CSOM  EQU    MC.SSOM+1         CLEAR SYSTEM OPERATOR MODE 
 MC.JCBS  EQU    MC.CSOM+1         SET NUMBER OF JCB-S TO BE USED 
 MC.ONCH  EQU    MC.JCBS+1         ON CHANNEL 
 MC.OFCH  EQU    MC.ONCH+1         OFF CHANNEL
 MC.RSOP  EQU    MC.OFCH+1         REQUEST SYSTEM OPERATOR STATUS 
 MC.CSOP  EQU    MC.RSOP+1         CLEAR SYSTEM OPERATOR STATUS 
 MC.SFTI  EQU    MC.CSOP+1         ENTER NUMBER OF INPUT SFT ENTRIES
 MC.IDAD  EQU    MC.SFTI+1         ADDID (INFORM LINKED MAINFRAME)
 MC.IDDL  EQU    MC.IDAD+1         DELID (INFORM LINKED MAINFRAME)
 MC.MONS  EQU    MC.IDDL+1         ONSTAT 
 MC.MOFF  EQU    MC.MONS+1         OFFSTAT
 MC.MAID  EQU    MC.MOFF+1         ADDID (CHANGE LINKED MF IDT) 
 MC.MDID  EQU    MC.MAID+1         DELID (CHANGE LINKED MF IDT) 
 MC.MSTM  EQU    MC.MDID+1         CHANGE NUMBER OF STREAMS 
 MC.LCOM  EQU    4023B             REQUEST/REPLY EXTENSION COMMAND
* 
*         REQUEST/REPLY MESSAGES
* 
 MC.LIOF  EQU    M.LIST            REQUEST/REPLY LIST OF FILES
 MC.LACT  EQU    MC.LIOF+1         REQUEST/REPLY LIST OF ACTIONS
 MC.LJCB  EQU    MC.LACT+1         REQUEST/REPLY LIST OF JOBS 
 MC.LSTG  EQU    MC.LJCB+1         REQUEST/REPLY STAGED FILE ENTRY
 MC.LAPF  EQU    MC.LSTG+1         REQUEST/REPLY PF ATTACH ENTRY
 MC.LJOB  EQU    MC.LAPF+1         REQUEST/REPLY JOB STATUS 
 MC.LTIM  EQU    MC.LJOB+1         REQUEST/REPLY TIME AND STATUS
 MC.LEQP  EQU    MC.LTIM+1         REQUEST/REPLY LIST OF EQUIPMENT
 MC.LSTS  EQU    MC.LEQP+1         REQUEST/REPLY LIST OF STATIONS 
 MC.LPRF  EQU    MC.LSTS+1         REQUEST/REPLY OUTPUT FILE ENTRY
 MC.LPUF  EQU    MC.LPRF+1         (SAME AS MC.LPRF)
 MC.LSCM  EQU    MC.LPUF+1         REQUEST/REPLY SCM DISPLAY
 MC.LLCM  EQU    MC.LSCM+1         REQUEST/REPLY LCM DISPLAY
 MC.LCPF  EQU    MC.LLCM+1         REQUEST/REPLY PF CATALOG ENTRY 
 MC.FSTA  EQU    MC.LCPF+1         REQUEST/REPLY SFT STATUS 
 MC.FABT  EQU    MC.FSTA+1         REQUEST/REPLY ACTIVE FILE ABORT
 MC.FGOJ  EQU    MC.FABT+1         REQUEST/REPLY ACTIVE JOB RESTART 
 MC.LSMT  EQU    MC.FGOJ+1         REQUEST 844 DISPLAY
 MC.TRAN  EQU    5023B             REQUEST/REPLY TRANSFER DISPLAY 
 MC.LMFS  EQU    5024B             REQUEST/REPLY LIST OF MAINFRAMES 
 MC.LSYN  EQU    5025B             REQUEST/REPLY STATION SYNTAX TABLE 
 MC.LDIS  EQU    5026B             REQUEST/REPLY EXTENSION DISPLAY
          SPACE  1
*         REJECT ERROR CODES
          SPACE  1
 EC.IORD  EQU    1                 ILLEGAL ORDINAL
 EC.RORD  EQU    EC.IORD+1         ORDINAL OUT OF RANGE 
 EC.NACT  EQU    EC.RORD+1         JOB NOT ACTIVE 
 EC.IPAR  EQU    EC.NACT+1         ILLEGAL PARAMETER
 EC.NSOP  EQU    EC.IPAR+1         NOT SYSTEM OPERATOR
 EC.NSOM  EQU    EC.NSOP+1         NOT IN SYSTEM OPERATOR MODE
 EC.EQNA  EQU    EC.NSOM+1         EQUIPMENT NOT AVAILABLE
 EC.STNA  EQU    EC.EQNA+1         SYSTEM TABEL NOT AVAILABLE 
 EC.DUPS  EQU    EC.STNA+1         LOGIN - DUPLICATE STATION ID 
 EC.ILOG  EQU    EC.DUPS+1         LOGIN - INVALID PARAMETER
 EC.LCTF  EQU    EC.ILOG+1         LOGIN - LCT FULL 
 EC.SCTF  EQU    EC.LCTF+1         SCT FULL 
 EC.NRUN  EQU    EC.SCTF+1         JOB NOT RERUNABLE
 EC.MFTL  EQU    EC.NRUN+1         LID TABLE FULL 
 EC.DUPL  EQU    EC.MFTL+1         DUPLICATE LOGICAL ID 
 EC.UNKL  EQU    EC.DUPL+1         UNKNOWN LOGICAL ID 
 EC.UPID  EQU    EC.UNKL+1         UNKNOWN PID
 EC.MLGI  EQU    EC.UPID+1         MAINFRAME NOT LOGGED IN
 EC.MSTM  EQU    EC.MLGI+1         TOO MANY STREAMS 
 EC.IMSG  EQU    EC.MSTM+1         ILLEGAL/UNKNOWN MESSAGE
 EC.RJCT  EQU    EC.IMSG+1
          SPACE  1
*         CONTROL POINT EQUATES 
          SPACE  1
 W.CP7SYN EQU    112B              POINTER TO SYNTAX ENTENSION TABLE
 W.CP7L   EQU    W.CP7SYN+1        LEFT SCREEN COMMUNICATION BUFFER 
 W.CP7L1  EQU    W.CP7L+1 
 W.CP7M1  EQU    W.CP7L1+1
 W.CP7R   EQU    W.CP7M1+8         RIGHT SCREEN SOMM. BUFFER
 W.CP7R1  EQU    W.CP7R+1 
 W.CP7M2  EQU    W.CP7R1+1
 W.CP7CD  EQU    W.CP7M2+8         COMMAND COMM. BUFFER 
 W.CP7C1  EQU    W.CP7CD+1
 W.CP7I   EQU    W.CP7C1+9         INTERCOM COMM. BUFFER
 W.CP7I1  EQU    W.CP7I+1 
 W.CP7I2  EQU    W.CP7I1+1
* 
* 
 W.CP7AS  EQU    W.CP7C1+1
 W.CP7EQ  EQU    W.CP7AS+1
 W.CP7EA  EQU    W.CP7EQ+1
 W.CP7DS  EQU    W.CP7EA+1
 W.CP7DD  EQU    W.CP7DS+1
 W.CP7C2  EQU    W.CP7DD+1
 W.CP7C3  EQU    W.CP7C2+1
 W.CPDAT  EQU    W.CP7C3+5
 LE.CPDAT EQU    6
 W.CPPF   EQU    W.CPDAT+LE.CPDAT 
 W.CPMTI  EQU    W.CPPF+1 
 W.CPMTO  EQU    W.CPMTI+1
 W.CPHDR  EQU    W.CPMTO+1
 W.STOFF  EQU    W.CPHDR+13B
 W.CCPDSD EQU    W.STOFF+1
 W.PISYSH EQU    0
 W.PITIME EQU    6
W.PICDAT  EQU    5
 W.PISFT  EQU    8
C.PISFTT  EQU    2
C.PISFTA  EQU    3
C.PISFTI  EQU    4
 W.PIJCB  EQU    7
C.PIJCBT  EQU    2
C.PIJCBA  EQU    3
C.PIJCBI  EQU    4
W.PIACT   EQU    9
C.PIACT1  EQU    3
C.PIACT2  EQU    4
W.PIDSD   EQU    10 
C.PIGPF   EQU    0
S.PIGPF   EQU    9
C.PISPF   EQU    0
S.PISPF   EQU    6
C.PIPPF   EQU    0
S.PIPPF   EQU    3
C.PIRTP   EQU    0
S.PIRTP   EQU    0
C.PIWTP   EQU    1
S.PIWTP   EQU    9
C.PIINP   EQU    1
S.PIINP   EQU    6
C.PIOUT   EQU    1
S.PIOUT   EQU    3
C.PISON   EQU    4
C.PISOP   EQU    4
S.PISOP   EQU    2
 C.PISPR  EQU    4
S.PISPR   EQU    1
S.PISON   EQU    0
          SPACE  1
*         MISC. EQUATES 
          SPACE  1
 NURSC    EQU    1                 NUMBER OF UNIT RECORD SUB-CHANNELS 
 NMTSC    EQU    2                 NUMBER OF MT SUB-CHANNELS
 NPFSC    EQU    1                 NUMBER OF PF SUB-CHANNELS
          IFNE   NURSC,1,1
          ERR                      ONLY 1 UNIT RECORD SUB-CHANNEL 
          IFEQ   NMTSC,0,1
          ERR                      MUST BE GREATER THAN 0 
          IFNE   NPFSC,1,1
          ERR                      ONLY 1 PAIR PF S-C IMPLEMENTED 
STATCOM   ENDX
