Common COMPSSF

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compssf +++|          CTEXT  COMPSSF - SET SUBSYSTEM FLAG.
00002  M01S00002.compssf +++| COMPSSF  SPACE  4
00003  M01S00003.compssf +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compssf +++|          QUAL   COMPSSF

Line S00005 Modification History
`M01` (Added by)	`compssf`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compssf +++| COMPSSF  SPACE  4
00008  M01S00007.compssf +++|***       SSF - SET SUBSYSTEM FLAG IN CONTROL POINT AREA.
00009  M01S00008.compssf +++|*         W. E. GOEBEL.      79/02/10.
00010  M01S00009.compssf +++| COMPSSF  SPACE  4
00011  M01S00010.compssf +++|***              SSF INSURES THE CALLER IS VALIDATED FOR THE REQUESTED
00012  M01S00011.compssf +++|*         SUBSYSTEM AND PLACES THE SUBSYSTEM INDEX IN THE CONTROL
00013  M01S00012.compssf +++|*         POINT AREA.
00014  M01S00013.compssf +++|*
00015  M01S00014.compssf +++|*         ENTRY  (A) = SUBSYSTEM INDEX.
00016  M01S00015.compssf +++|*
00017  M01S00016.compssf +++|*         EXIT   (A) .LT. 0 IF USER NOT VALIDATED FOR SUBSYSTEM.
00018  M01S00017.compssf +++|*
00019  M01S00018.compssf +++|*         USES   T0, T1, CM - CM+4.
00020  M01S00019.compssf +++|*
00021  M01S00020.compssf +++|*         NOTE - THIS COMMON DECK REQUIRES THE PRESENCE OF *COMSREM*.
00022  M01S00021.compssf +++|
00023  M01S00022.compssf +++|
00024  M01S00023.compssf +++| SSF2     SHN    14          SET BYTE POINTER
00025  M01S00024.compssf +++|          STD    T0
00026  M01S00025.compssf +++|          SHN    -14
00027  M01S00026.compssf +++|          LMD    TH
00028  M01S00027.compssf +++|          STM    SSFA        INSERT SHIFT COUNT
00029  M01S00028.compssf +++|          LDD    CP          READ ACCOUNT ACCESS CONTROL WORD
00030  M01S00029.compssf +++|          ADK    AACW
00031  M01S00030.compssf +++|          CRD    CM
00032  M01S00031.compssf +++|          LDI    T0
00033  M01S00032.compssf +++| SSFA     SHN    **
00034  M01S00033.compssf +++|          MJN    SSF1        IF USER VALIDATED FOR SUBSYSTEM
00035  M01S00034.compssf +++| SSF3     LCN    0           SET ERROR RESPONSE
00036  M01S00035.compssf +++|
00037  M01S00036.compssf +++| SSF      SUBR               ENTRY/EXIT
00038  M01S00037.compssf +++|          STD    T1
00039  M01S00038.compssf +++|          SBN    MSYS
00040  M01S00039.compssf +++|          PJN    SSF3        IF OUT OF RANGE
00041  M01S00040.compssf +++|          LDM    TSAC,T1     GET AACW BYTE POINTER AND SHIFT COUNT
00042  M01S00041.compssf +++|          NJN    SSF2        IF PERMISSION REQUIRED
00043  M01S00042.compssf +++|
00044  M01S00043.compssf +++|*         RESET SUBSYSTEM FLAG.
00045  M01S00044.compssf +++|
00046  M01S00045.compssf +++| SSF1     LDD    CP          READ TELEX CONTROL WORD
00047  M01S00046.compssf +++|          ADN    TXSW
00048  M01S00047.compssf +++|          CRD    CM
00049  M01S00048.compssf +++|          LDD    CM
00050  M01S00049.compssf +++|          LPN    77
00051  M01S00050.compssf +++|          SHN    14
00052  M01S00051.compssf +++|          LMD    T1
00053  M01S00052.compssf +++|          SHN    6
00054  M01S00053.compssf +++|          STD    CM          INSERT SUBSYSTEM FLAG
00055  M01S00054.compssf +++|          LDD    CP
00056  M01S00055.compssf +++|          ADN    TXSW
00057  M01S00056.compssf +++|          CWD    CM          WRITE TERMINAL INTERRUPT ADDRESS WORD
00058  M01S00057.compssf +++|          UJN    SSFX        EXIT
00059  M01S00058.compssf +++| TSAC     SPACE  4,10
00060  M01S00059.compssf +++|**        TSAC - TABLE OF SUBSYSTEM ACCESS CONTROLS.
00061  M01S00060.compssf +++|*
00062  M01S00061.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  M01S00062.compssf +++|*         B      BYTE NUMBER + CM IN AACW CONTAINING VALIDATION BIT.
00064  M01S00063.compssf +++|*         S      SHIFT COUNT TO PLACE VALIDATION BIT
00065  M01S00064.compssf +++|*                IN A REGISTER SIGN BIT.
00066  M01S00065.compssf +++|
00067  M01S00066.compssf +++|
00068  M01S00067.compssf +++| TSAC     INDEX
00069  M01S00068.compssf +++|          INDEX  ACCS,21-1+4*100B+CM*100B
00070  M01S00069.compssf +++|          INDEX  MSYS
00071  M01S00070.compssf +++|          SPACE  4
00072  M01S00071.compssf +++|          IF     -DEF,QUAL$,2
00073  M01S00072.compssf +++|          QUAL   *
00074  M01S00073.compssf +++| SSF      EQU    /COMPSSF/SSF
00075  M01S00074.compssf +++|          ENDX