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