Common COMPSSF

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compssf +++|          CTEXT  COMPSSF - SET SUBSYSTEM FLAG.
00002  M00S00002.compssf +++| COMPSSF  SPACE  4
00003  M00S00003.compssf +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compssf +++|          QUAL   COMPSSF

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1979.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compssf +++| COMPSSF  SPACE  4
00008  M00S00007.compssf +++|***       SSF - SET SUBSYSTEM FLAG IN CONTROL POINT AREA.
00009  M00S00008.compssf +++|*         W. E. GOEBEL.      79/02/10.
00010  M00S00009.compssf +++| COMPSSF  SPACE  4
00011  M00S00010.compssf +++|***              SSF INSURES THE CALLER IS VALIDATED FOR THE REQUESTED
00012  M00S00011.compssf +++|*         SUBSYSTEM AND PLACES THE SUBSYSTEM INDEX IN THE CONTROL
00013  M00S00012.compssf +++|*         POINT AREA.
00014  M00S00013.compssf +++|*
00015  M00S00014.compssf +++|*         ENTRY  (A) = SUBSYSTEM INDEX.
00016  M00S00015.compssf +++|*
00017  M00S00016.compssf +++|*         EXIT   (A) .LT. 0 IF USER NOT VALIDATED FOR SUBSYSTEM.
00018  M00S00017.compssf +++|*
00019  M00S00018.compssf +++|*         USES   T0, T1, CM - CM+4.
00020  M00S00019.compssf +++|*
00021  M00S00020.compssf +++|*         NOTE - THIS COMMON DECK REQUIRES THE PRESENCE OF *COMSREM*.
00022  M00S00021.compssf +++|
00023  M00S00022.compssf +++|
00024  M00S00023.compssf +++| SSF2     SHN    14          SET BYTE POINTER
00025  M00S00024.compssf +++|          STD    T0
00026  M00S00025.compssf +++|          SHN    -14
00027  M00S00026.compssf +++|          LMD    TH
00028  M00S00027.compssf +++|          STM    SSFA        INSERT SHIFT COUNT
00029  M00S00028.compssf +++|          LDD    CP          READ ACCOUNT ACCESS CONTROL WORD
00030  M00S00029.compssf +++|          ADK    AACW
00031  M00S00030.compssf +++|          CRD    CM
00032  M00S00031.compssf +++|          LDI    T0
00033  M00S00032.compssf +++| SSFA     SHN    **
00034  M00S00033.compssf +++|          MJN    SSF1        IF USER VALIDATED FOR SUBSYSTEM
00035  M00S00034.compssf +++| SSF3     LCN    0           SET ERROR RESPONSE
00036  M00S00035.compssf +++|
00037  M00S00036.compssf +++| SSF      SUBR               ENTRY/EXIT
00038  M00S00037.compssf +++|          STD    T1
00039  M00S00038.compssf +++|          SBN    MSYS
00040  M00S00039.compssf +++|          PJN    SSF3        IF OUT OF RANGE
00041  M00S00040.compssf +++|          LDM    TSAC,T1     GET AACW BYTE POINTER AND SHIFT COUNT
00042  M00S00041.compssf +++|          NJN    SSF2        IF PERMISSION REQUIRED
00043  M00S00042.compssf +++|
00044  M00S00043.compssf +++|*         RESET SUBSYSTEM FLAG.
00045  M00S00044.compssf +++|
00046  M00S00045.compssf +++| SSF1     LDD    CP          READ TELEX CONTROL WORD
00047  M00S00046.compssf +++|          ADN    TXSW
00048  M00S00047.compssf +++|          CRD    CM
00049  M00S00048.compssf +++|          LDD    CM
00050  M00S00049.compssf +++|          LPN    77
00051  M00S00050.compssf +++|          SHN    14
00052  M00S00051.compssf +++|          LMD    T1
00053  M00S00052.compssf +++|          SHN    6
00054  M00S00053.compssf +++|          STD    CM          INSERT SUBSYSTEM FLAG
00055  M00S00054.compssf +++|          LDD    CP
00056  M00S00055.compssf +++|          ADN    TXSW
00057  M00S00056.compssf +++|          CWD    CM          WRITE TERMINAL INTERRUPT ADDRESS WORD
00058  M00S00057.compssf +++|          UJN    SSFX        EXIT
00059  M00S00058.compssf +++| TSAC     SPACE  4,10
00060  M00S00059.compssf +++|**        TSAC - TABLE OF SUBSYSTEM ACCESS CONTROLS.
00061  M00S00060.compssf +++|*
00062  M00S00061.compssf +++|*T,       ONE WORD ENTRIES - 6/ B, 6/ S

Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": " S", "bits":  6, "type": 2 },
{ "name": " B", "bits": ONE WORD ENTRIES - 6, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00063  M00S00062.compssf +++|*         B      BYTE NUMBER + CM IN AACW CONTAINING VALIDATION BIT.
00064  M00S00063.compssf +++|*         S      SHIFT COUNT TO PLACE VALIDATION BIT
00065  M00S00064.compssf +++|*                IN A REGISTER SIGN BIT.
00066  M00S00065.compssf +++|
00067  M00S00066.compssf +++|
00068  M00S00067.compssf +++| TSAC     INDEX
00069  M00S00068.compssf +++|          INDEX  ACCS,21-1+4*100B+CM*100B
00070  M00S00069.compssf +++|          INDEX  MSYS
00071  M00S00070.compssf +++|          SPACE  4
00072  M00S00071.compssf +++|          IF     -DEF,QUAL$,2
00073  M00S00072.compssf +++|          QUAL   *
00074  M00S00073.compssf +++| SSF      EQU    /COMPSSF/SSF
00075  M00S00074.compssf +++|          ENDX