Retro1.org codex

          IDENT  SSYTEXT 
          STEXT
*COMMENT  SSYTEXT - SYSTEM CONTROL POINT TEXT.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
          SPACE  4
***       SSYTEXT - DEFINITIONS OF SUBSYSTEM SYMBOLS AND MACROS.
*
*         THE SYMBOLS AND MACROS ARE REQUIRED FOR -
*
*         1. THE SUPPORTING CODE FOR THE SYSTEM CONTROL POINT FACILITY.
*         2. SUBSYSTEMS THAT REQUEST SYSTEM CONTROL POINT STATUS.
*         3. USER JOBS THAT CALL SUBSYSTEMS.
          SPACE  4
*         SPECIAL WORDS USED BY A SCP.
 
 
 RA.SSID  EQU    50B         SUBSYSTEM IDENTIFCATION WORD
 RA.SSC   EQU    51B         POINTER TO SSC INPUT AREA
          SPACE  4
*         DEFINE SUBSYSTEM CODES.
 
 
 SS.SYS   EQU    0           REQUEST TO ENTER SCP STATUS
 SS.CDCS  EQU    1           CYBER DATA CONTROL SYSTEM
          SPACE  4
*         SUBSYSTEM FUNCTIONS.
 
 
 SF.REGR  EQU    2           REGRETS - MESSAGE AND/OR ABORT TO UCP
 SF.TIME  EQU    4           ACCOUNTING DATA FOR SCP
 SF.ENDT  EQU    6           COMPLETES AN SSC TASK AT A UCP
 SF.READ  EQU    10B         TRANSFER DATA FROM UCP TO SCP
 SF.STAT  EQU    12B         REQUEST THE STATUS OF A UCP
 SF.WRIT  EQU    14B         TRANSFER DATA FROM SCP TO UCP
 SF.EXIT  EQU    16B         TERMINATE SCP STATUS
 SF.INUF  EQU    20B         INTERLOCK USER FILE
 SF.RTUF  EQU    22B         RETURN USER FILE
 SF.SWPO  EQU    24B         RELEASE UCP FOR SWAPOUT
 SF.SWPI  EQU    26B         UCP TO BE SWAPPED IN
 SF.SLTC  EQU    30B         SET LONG TERM CONNECTION
 SF.CLTC  EQU    32B         CLEAR LONG TERM CONNECTION
 SF.LIST  EQU    34B         LIST OF FUNCTIONS
          SPACE  4
*         FUNCTION PARAMETERS FOR SF.REGR.
 
 
 F.SYCP   EQU    0           SYSTEM AND CONTROL POINT DAYFILES
 F.NMSN   EQU    3           SYSTEM DAYFILE ONLY
 F.JNMN   EQU    43B         SYSTEM DAYFILE WITH JSN FROM MESSAGE
 F.CPON   EQU    4           CONTROL POINT DAYFILE ONLY
 F.ACFN   EQU    13B         ACCOUNTING TO SYSTEM DAYFILE ONLY
 F.AJNN   EQU    53B         ACCOUNT FILE WITH JSN ROM MESSAGE
 F.ERLN   EQU    20B         ERRLOG
 F.EJNN   EQU    60B         ERRLOG WITH JSN FROM MESSAGE
          SPACE  4
*         LENGTH OF BLOCK OF ACCOUNTING DATA USED BY SF.TIME AND SF.ENDT
 
 
 L.SACT   EQU    6
          SPACE  4
**        CALLSS - CALL A SUBSYSTEM.
*
*         CALLSS SS,AD,R
*
*         SS     THE SUBSYSTEM CODE TO IDENTIFY WHICH SUBSYSTEM.
*         AD     ADDRESS OF THE PARAMETER BLOCK FOR THIS REQUEST.
*         R      IF NONBLANK, THIS REQUEST IS MADE WITH AUTO-RECALL.
 
 
          PURGMAC  CALLSS
 
 CALLSS   MACRO  SS,AD,R
  SYSTEM SSC,R,AD,SS
  ENDM
          SPACE  4
**        SFCALL - PRIVILEDGED SYSTEM CALL FROM SUBSYSTEM.
*
*         SFCALL AD,R
*
*         AD     ADDRESS OF THE PARAMETER BLOCK FOR THIS REQUEST.
*         R      IF NONBLANK, THIS REQUEST IS MADE WITH AUTO-RECALL.
 
 
          PURGMAC  SFCALL
 
 SFCALL   MACRO  AD,R
  SYSTEM SSF,R,AD
  ENDM
          SPACE  4
          END