Deck SSYTEXT

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ssytext +++|          IDENT  SSYTEXT
00002  M01S00002.ssytext +++|          STEXT
00003  M01S00003.ssytext +++|*COMMENT  SSYTEXT - SYSTEM CONTROL POINT TEXT.
00004  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.ssytext +++|          SPACE  4
00006  M01S00005.ssytext +++|***       SSYTEXT - DEFINITIONS OF SUBSYSTEM SYMBOLS AND MACROS.
00007  M01S00006.ssytext +++|*
00008  M01S00007.ssytext +++|*         THE SYMBOLS AND MACROS ARE REQUIRED FOR -
00009  M01S00008.ssytext +++|*
00010  M01S00009.ssytext +++|*         1. THE SUPPORTING CODE FOR THE SYSTEM CONTROL POINT FACILITY.
00011  M01S00010.ssytext +++|*         2. SUBSYSTEMS THAT REQUEST SYSTEM CONTROL POINT STATUS.
00012  M01S00011.ssytext +++|*         3. USER JOBS THAT CALL SUBSYSTEMS.
00013  M01S00012.ssytext +++|          SPACE  4
00014  M01S00013.ssytext +++|*         SPECIAL WORDS USED BY A SCP.
00015  M01S00014.ssytext +++|
00016  M01S00015.ssytext +++|
00017  M01S00016.ssytext +++| RA.SSID  EQU    50B         SUBSYSTEM IDENTIFCATION WORD
00018  M01S00017.ssytext +++| RA.SSC   EQU    51B         POINTER TO SSC INPUT AREA
00019  M01S00018.ssytext +++|          SPACE  4
00020  M01S00019.ssytext +++|*         DEFINE SUBSYSTEM CODES.
00021  M01S00020.ssytext +++|
00022  M01S00021.ssytext +++|
00023  M01S00022.ssytext +++| SS.SYS   EQU    0           REQUEST TO ENTER SCP STATUS
00024  M01S00023.ssytext +++| SS.CDCS  EQU    1           CYBER DATA CONTROL SYSTEM
00025  M01S00024.ssytext +++|          SPACE  4
00026  M01S00025.ssytext +++|*         SUBSYSTEM FUNCTIONS.
00027  M01S00026.ssytext +++|
00028  M01S00027.ssytext +++|
00029  M01S00028.ssytext +++| SF.REGR  EQU    2           REGRETS - MESSAGE AND/OR ABORT TO UCP
00030  M01S00029.ssytext +++| SF.TIME  EQU    4           ACCOUNTING DATA FOR SCP
00031  M01S00030.ssytext +++| SF.ENDT  EQU    6           COMPLETES AN SSC TASK AT A UCP
00032  M01S00031.ssytext +++| SF.READ  EQU    10B         TRANSFER DATA FROM UCP TO SCP
00033  M01S00032.ssytext +++| SF.STAT  EQU    12B         REQUEST THE STATUS OF A UCP
00034  M01S00033.ssytext +++| SF.WRIT  EQU    14B         TRANSFER DATA FROM SCP TO UCP
00035  M01S00034.ssytext +++| SF.EXIT  EQU    16B         TERMINATE SCP STATUS
00036  M01S00035.ssytext +++| SF.INUF  EQU    20B         INTERLOCK USER FILE
00037  M01S00036.ssytext +++| SF.RTUF  EQU    22B         RETURN USER FILE
00038  M01S00037.ssytext +++| SF.SWPO  EQU    24B         RELEASE UCP FOR SWAPOUT
00039  M01S00038.ssytext +++| SF.SWPI  EQU    26B         UCP TO BE SWAPPED IN
00040  M01S00039.ssytext +++| SF.SLTC  EQU    30B         SET LONG TERM CONNECTION
00041  M01S00040.ssytext +++| SF.CLTC  EQU    32B         CLEAR LONG TERM CONNECTION
00042  M01S00041.ssytext +++| SF.LIST  EQU    34B         LIST OF FUNCTIONS
00043  M01S00042.ssytext +++|          SPACE  4
00044  M01S00043.ssytext +++|*         FUNCTION PARAMETERS FOR SF.REGR.
00045  M01S00044.ssytext +++|
00046  M01S00045.ssytext +++|
00047  M01S00046.ssytext +++| F.SYCP   EQU    0           SYSTEM AND CONTROL POINT DAYFILES
00048  M01S00047.ssytext +++| F.NMSN   EQU    3           SYSTEM DAYFILE ONLY
00049  M01S00048.ssytext +++| F.JNMN   EQU    43B         SYSTEM DAYFILE WITH JSN FROM MESSAGE
00050  M01S00049.ssytext +++| F.CPON   EQU    4           CONTROL POINT DAYFILE ONLY
00051  M01S00050.ssytext +++| F.ACFN   EQU    13B         ACCOUNTING TO SYSTEM DAYFILE ONLY
00052  M01S00051.ssytext +++| F.AJNN   EQU    53B         ACCOUNT FILE WITH JSN ROM MESSAGE
00053  M01S00052.ssytext +++| F.ERLN   EQU    20B         ERRLOG
00054  M01S00053.ssytext +++| F.EJNN   EQU    60B         ERRLOG WITH JSN FROM MESSAGE
00055  M01S00054.ssytext +++|          SPACE  4
00056  M01S00055.ssytext +++|*         LENGTH OF BLOCK OF ACCOUNTING DATA USED BY SF.TIME AND SF.ENDT
00057  M01S00056.ssytext +++|
00058  M01S00057.ssytext +++|
00059  M01S00058.ssytext +++| L.SACT   EQU    6
00060  M01S00059.ssytext +++|          SPACE  4
00061  M01S00060.ssytext +++|**        CALLSS - CALL A SUBSYSTEM.
00062  M01S00061.ssytext +++|*
00063  M01S00062.ssytext +++|*         CALLSS SS,AD,R
00064  M01S00063.ssytext +++|*
00065  M01S00064.ssytext +++|*         SS     THE SUBSYSTEM CODE TO IDENTIFY WHICH SUBSYSTEM.
00066  M01S00065.ssytext +++|*         AD     ADDRESS OF THE PARAMETER BLOCK FOR THIS REQUEST.
00067  M01S00066.ssytext +++|*         R      IF NONBLANK, THIS REQUEST IS MADE WITH AUTO-RECALL.
00068  M01S00067.ssytext +++|
00069  M01S00068.ssytext +++|
00070  M01S00069.ssytext +++|          PURGMAC  CALLSS
00071  M01S00070.ssytext +++|
00072  M01S00071.ssytext +++| CALLSS   MACRO  SS,AD,R
00073  M01S00072.ssytext +++|  SYSTEM SSC,R,AD,SS
00074  M01S00073.ssytext +++|  ENDM
00075  M01S00074.ssytext +++|          SPACE  4
00076  M01S00075.ssytext +++|**        SFCALL - PRIVILEDGED SYSTEM CALL FROM SUBSYSTEM.
00077  M01S00076.ssytext +++|*
00078  M01S00077.ssytext +++|*         SFCALL AD,R
00079  M01S00078.ssytext +++|*
00080  M01S00079.ssytext +++|*         AD     ADDRESS OF THE PARAMETER BLOCK FOR THIS REQUEST.
00081  M01S00080.ssytext +++|*         R      IF NONBLANK, THIS REQUEST IS MADE WITH AUTO-RECALL.
00082  M01S00081.ssytext +++|
00083  M01S00082.ssytext +++|
00084  M01S00083.ssytext +++|          PURGMAC  SFCALL
00085  M01S00084.ssytext +++|
00086  M01S00085.ssytext +++| SFCALL   MACRO  AD,R
00087  M01S00086.ssytext +++|  SYSTEM SSF,R,AD
00088  M01S00087.ssytext +++|  ENDM
00089  M01S00088.ssytext +++|          SPACE  4
00090  M01S00089.ssytext +++|          END