Deck SSYTEXT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ssytext +++|          IDENT  SSYTEXT
00002  M00S00002.ssytext +++|          STEXT
00003  M00S00003.ssytext +++|*COMMENT  SSYTEXT - SYSTEM CONTROL POINT TEXT.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.ssytext +++|          SPACE  4
00006  M00S00005.ssytext +++|***       SSYTEXT - DEFINITIONS OF SUBSYSTEM SYMBOLS AND MACROS.
00007  M00S00006.ssytext +++|*
00008  M00S00007.ssytext +++|*         THE SYMBOLS AND MACROS ARE REQUIRED FOR -
00009  M00S00008.ssytext +++|*
00010  M00S00009.ssytext +++|*         1. THE SUPPORTING CODE FOR THE SYSTEM CONTROL POINT FACILITY.
00011  M00S00010.ssytext +++|*         2. SUBSYSTEMS THAT REQUEST SYSTEM CONTROL POINT STATUS.
00012  M00S00011.ssytext +++|*         3. USER JOBS THAT CALL SUBSYSTEMS.
00013  M00S00012.ssytext +++|          SPACE  4
00014  M00S00013.ssytext +++|*         SPECIAL WORDS USED BY A SCP.
00015  M00S00014.ssytext +++|
00016  M00S00015.ssytext +++|
00017  M00S00016.ssytext +++| RA.SSID  EQU    50B         SUBSYSTEM IDENTIFCATION WORD
00018  M00S00017.ssytext +++| RA.SSC   EQU    51B         POINTER TO SSC INPUT AREA
00019  M00S00018.ssytext +++|          SPACE  4
00020  M00S00019.ssytext +++|*         DEFINE SUBSYSTEM CODES.
00021  M00S00020.ssytext +++|
00022  M00S00021.ssytext +++|
00023  M00S00022.ssytext +++| SS.SYS   EQU    0           REQUEST TO ENTER SCP STATUS
00024  M00S00023.ssytext +++| SS.CDCS  EQU    1           CYBER DATA CONTROL SYSTEM
00025  M00S00024.ssytext +++|          SPACE  4
00026  M00S00025.ssytext +++|*         SUBSYSTEM FUNCTIONS.
00027  M00S00026.ssytext +++|
00028  M00S00027.ssytext +++|
00029  M00S00028.ssytext +++| SF.REGR  EQU    2           REGRETS - MESSAGE AND/OR ABORT TO UCP
00030  M00S00029.ssytext +++| SF.TIME  EQU    4           ACCOUNTING DATA FOR SCP
00031  M00S00030.ssytext +++| SF.ENDT  EQU    6           COMPLETES AN SSC TASK AT A UCP
00032  M00S00031.ssytext +++| SF.READ  EQU    10B         TRANSFER DATA FROM UCP TO SCP
00033  M00S00032.ssytext +++| SF.STAT  EQU    12B         REQUEST THE STATUS OF A UCP
00034  M00S00033.ssytext +++| SF.WRIT  EQU    14B         TRANSFER DATA FROM SCP TO UCP
00035  M00S00034.ssytext +++| SF.EXIT  EQU    16B         TERMINATE SCP STATUS
00036  M00S00035.ssytext +++| SF.INUF  EQU    20B         INTERLOCK USER FILE
00037  M00S00036.ssytext +++| SF.RTUF  EQU    22B         RETURN USER FILE
00038  M00S00037.ssytext +++| SF.SWPO  EQU    24B         RELEASE UCP FOR SWAPOUT
00039  M00S00038.ssytext +++| SF.SWPI  EQU    26B         UCP TO BE SWAPPED IN
00040  M00S00039.ssytext +++| SF.SLTC  EQU    30B         SET LONG TERM CONNECTION
00041  M00S00040.ssytext +++| SF.CLTC  EQU    32B         CLEAR LONG TERM CONNECTION
00042  M00S00041.ssytext +++| SF.LIST  EQU    34B         LIST OF FUNCTIONS
00043  M00S00042.ssytext +++|          SPACE  4
00044  M00S00043.ssytext +++|*         FUNCTION PARAMETERS FOR SF.REGR.
00045  M00S00044.ssytext +++|
00046  M00S00045.ssytext +++|
00047  M00S00046.ssytext +++| F.SYCP   EQU    0           SYSTEM AND CONTROL POINT DAYFILES
00048  M00S00047.ssytext +++| F.NMSN   EQU    3           SYSTEM DAYFILE ONLY
00049  M00S00048.ssytext +++| F.JNMN   EQU    43B         SYSTEM DAYFILE WITH JSN FROM MESSAGE
00050  M00S00049.ssytext +++| F.CPON   EQU    4           CONTROL POINT DAYFILE ONLY
00051  M00S00050.ssytext +++| F.ACFN   EQU    13B         ACCOUNTING TO SYSTEM DAYFILE ONLY
00052  M00S00051.ssytext +++| F.AJNN   EQU    53B         ACCOUNT FILE WITH JSN ROM MESSAGE
00053  M00S00052.ssytext +++| F.ERLN   EQU    20B         ERRLOG
00054  M00S00053.ssytext +++| F.EJNN   EQU    60B         ERRLOG WITH JSN FROM MESSAGE
00055  M00S00054.ssytext +++|          SPACE  4
00056  M00S00055.ssytext +++|*         LENGTH OF BLOCK OF ACCOUNTING DATA USED BY SF.TIME AND SF.ENDT
00057  M00S00056.ssytext +++|
00058  M00S00057.ssytext +++|
00059  M00S00058.ssytext +++| L.SACT   EQU    6
00060  M00S00059.ssytext +++|          SPACE  4
00061  M00S00060.ssytext +++|**        CALLSS - CALL A SUBSYSTEM.
00062  M00S00061.ssytext +++|*
00063  M00S00062.ssytext +++|*         CALLSS SS,AD,R
00064  M00S00063.ssytext +++|*
00065  M00S00064.ssytext +++|*         SS     THE SUBSYSTEM CODE TO IDENTIFY WHICH SUBSYSTEM.
00066  M00S00065.ssytext +++|*         AD     ADDRESS OF THE PARAMETER BLOCK FOR THIS REQUEST.
00067  M00S00066.ssytext +++|*         R      IF NONBLANK, THIS REQUEST IS MADE WITH AUTO-RECALL.
00068  M00S00067.ssytext +++|
00069  M00S00068.ssytext +++|
00070  M00S00069.ssytext +++|          PURGMAC  CALLSS
00071  M00S00070.ssytext +++|
00072  M00S00071.ssytext +++| CALLSS   MACRO  SS,AD,R
00073  M00S00072.ssytext +++|  SYSTEM SSC,R,AD,SS
00074  M00S00073.ssytext +++|  ENDM
00075  M00S00074.ssytext +++|          SPACE  4
00076  M00S00075.ssytext +++|**        SFCALL - PRIVILEDGED SYSTEM CALL FROM SUBSYSTEM.
00077  M00S00076.ssytext +++|*
00078  M00S00077.ssytext +++|*         SFCALL AD,R
00079  M00S00078.ssytext +++|*
00080  M00S00079.ssytext +++|*         AD     ADDRESS OF THE PARAMETER BLOCK FOR THIS REQUEST.
00081  M00S00080.ssytext +++|*         R      IF NONBLANK, THIS REQUEST IS MADE WITH AUTO-RECALL.
00082  M00S00081.ssytext +++|
00083  M00S00082.ssytext +++|
00084  M00S00083.ssytext +++|          PURGMAC  SFCALL
00085  M00S00084.ssytext +++|
00086  M00S00085.ssytext +++| SFCALL   MACRO  AD,R
00087  M00S00086.ssytext +++|  SYSTEM SSF,R,AD
00088  M00S00087.ssytext +++|  ENDM
00089  M00S00088.ssytext +++|          SPACE  4
00090  M00S00089.ssytext +++|          END