COMS1DS 
COMMON
          CTEXT  COMS1DS - 1DS FUNCTION CODE DEFINITIONS. 
          SPACE  4,10 
          BASE   MIXED
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 1DS      SPACE  4,10 
***       COMS1DS - 1DS FUNCTION CODE DEFINITIONS.
*         C. B. LOSCHEIDER.  78/09/09.
          SPACE  4,40 
***       *DSD*/*1DS* INTERFACE DEFINITION. 
* 
*         THE FOLLOWING IS A DESCRIPTION OF THE CALLING INTERFACE FOR 
*         *1DS* USED BY *DSD*.  OTHER PROGRAMS MAY USE THIS INTERFACE 
*         AS LONG AS BITS 33-30 OF THE INPUT REGISTER ARE ZERO AND
*         THE FUNCTION CODE IS OBTAINED FROM THIS COMMON DECK.
* 
*                INPUT REGISTER.
*T        18/1DS, 6/SC, 1/, 1/CP, 1/LK, 3/LOG, 6/REQ, 12/P1, 12/P2
* 
*         SC     SYSTEM CONTROL POINT.
*         CP     NONZERO  CONTROL POINT MOVE REQUIRED.
*                (PARAMETER 2 MUST CONTAIN THE ADDRESS OF THE INPUT 
*                FILE FST FOR THE CONTROL POINT)
*         LK     LOCKED KEYBOARD MESSAGE IN CENTRAL MEMORY. 
*                (STARTING ADDRESS DEFINED BY *DSDL*) 
*         LOG    LOGGING CONTROL BITS FROM *DSD*. 
*                2**0 - ERROR LOG.
*                2**1 - SYSTEM DAYFILE. 
*                2**2 - ACCOUNT FILE. 
*         REQ    FUNCTION REQUEST CODE. 
*         P1     PARAMETER 1.  (CONTENT DEPENDS ON FUNCTION CODE) 
*         P2     PARAMETER 2.  (CONTENT DEPENDS ON CP IF CP IS NON- 
*                ZERO, ELSE CONTENT DEPENDS ON FUNCTION CODE) 
* 
*         *DSD* MAY CALL *1DS* FOR THE FOLLOWING REASONS: 
*                1.  PROCESS A COMMAND. 
*                2.  PROCESS A COMMAND AND LOG THE COMMAND. 
*                3.  LOG A COMMAND. 
* 
*         OTHER PROGRAMS MAY CALL *1DS* ONLY TO PROCESS A COMMAND.
* 
*         THE CENTRAL MEMORY BUFFER IS INTERLOCKED BY *DSD* 
*         AND CLEARED BY *1DS*.  INTERLOCK IS PRESENT IF
*         BITS 33-30 OF THE INPUT REGISTER ARE NONZERO. 
          SPACE  4,10 
**        *DSD*/*1DS* INTERFACE SYMBOL DEFINITIONS. 
  
  
 KBCML    EQU    12D         LENGTH OF *DSD* KEYBOARD BUFFER
 DSDL     EQU    200-KBCML-1 CM LOCATION OF 1DS-DSD BUFFER
 LOCK     EQU    1000        INTERLOCK REQUIRED BIT FOR *1DS* CALL
 CMOV     EQU    2000        CONTROL POINT MOVE BIT FOR *1DS* 
          SPACE  4,10 
**        *DSD*/*1DS* INTERFACE FUNCTION CODES. 
  
  
*         FUNCTION *FASF* MUST REMAIN FIRST.
  
 BEGIN    BSSN
  
 FASF     BSSN   1           PROCESS DSD DAYFILE
  
 AEJF     BSSN   1           ASSIGN EQUIPMENT TO JOB
 CKPF     BSSN   1           CALL CHECKPOINT TO JOB 
 CLRF     BSSN   1           CLEAR PAUSE BIT
 DCMF     BSSN   1           DOWN A CONTROL MODULE
 DIAF     BSSN   1           SEND *IAF* MESSAGE TO A USER 
 DISF     BSSN   1           CALL DIS TO JOB
 DSPF     BSSN   1           INITIATE *L* DISPLAY JOB 
 DSSF     BSSN   1           INITIATE DEADSTART SEQUENCING JOB
 DWNF     BSSN   1           DOWN CHANNEL 
 UPCF     BSSN   1           UP CHANNEL 
 EBRF     BSSN   1           ENTER *BATCHIO* BUFFER POINT REQUEST 
 ECBF     BSSN   1           ENTER CENTRAL BUFFER 
 ECPF     BSSN   1           ENTER CPU PRIORITY 
 EUFF     BSSN   1           ENTER MAGNET UDT FIELD 
 IASF     BSSN   1           INITIATE ALL ENABLED SUB-SYSTEMS 
 ICJF     BSSN   1           INITIATE CONTROL CARD JOB
 IDLF     BSSN   1           IDLEDOWN SUBSYSTEM 
 IJCF     BSSN   1           INITIATE JOB CALL
 ILJF     BSSN   1           INITIATE *LBC* JOB TO RELOAD CONTROLWARE 
 ISCF     BSSN   1           INITIATE SYSTEM CONTROL CARD JOB 
 ISSF     BSSN   1           INITIATE SPECIFIED SUB-SYSTEM
 ITJF     BSSN   1           INITIATE JOBS FROM TABLE 
 KIJF     BSSN   1           KILL INTERACTIVE JOB 
 LODF     BSSN   1           LOAD INPUT JOB 
 MSGF     BSSN   1           SEND DAYFILE MESSAGE 
 OCMF     BSSN   1           ON A CONTROL MODULE
 RSTF     BSSN   1           RESTORE PARITY PROTECTION FOR DAS DEVICE 
 SAMF     BSSN   1           SEND ACCOUNT FILE MESSAGE
 SCAF     BSSN   1           SET/CLEAR BIT IN MST WORD ACGL 
 SCDF     BSSN   1           SET/CLEAR BITS FOR RMS DEVICES 
 SCHF     BSSN   1           ENABLE JOB SCHEDULING
 SERF     BSSN   1           PROCESS *SERVICE* COMMAND
 SPNF     BSSN   1           SPIN UP/DOWN MASS STORAGE DEVICE 
 TPSF     BSSN   1           TOGGLE PF STATUS 
 UDDF     BSSN   1           UP AN ISMD DEVICE
 VMSF     BSSN   1           VERIFY MASS STORAGE EQUIPMENT
 VSAF     BSSN   1           VALIDATE SECURITY-UNLOCK ACCESS
 WARF     BSSN   1           ISSUE *IAF* WARNING MESSAGE
  
 MAXF     BSSN   1           MAXIMUM FUNCTION CODE + 1
 END      BSSN
          BASE   *
          SPACE  4,10 
          ENDX
