Deck SDSPLAY

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.sdsplay +++|          IDENT  SDSPLAY,SDS
00002  M00S00002.sdsplay +++|          ABS

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.252l678 ---|          SST

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.252l678 +++|          SST    ASCM
00005  M00S00004.sdsplay +++|          ENTRY  SDSPLAY
00006  M00S00005.sdsplay +++|          ENTRY  RFL=
00007  M00S00006.sdsplay +++|          ENTRY  SSJ=
00008  M00S00007.sdsplay +++|          SYSCOM B1
00009  M00S00008.sdsplay +++|          TITLE  SDSPLAY - SYSTEM VALUES DISPLAY.
00010  M00S00009.sdsplay +++|*COMMENT  SDSPLAY - SYSTEM VALUES DISPLAY.

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00010.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1984.

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M00S00011.sdsplay +++| SDSPLAY  SPACE  4,10
00014  M00S00012.sdsplay +++|***       SDSPLAY - SYSTEM VALUES DISPLAY.
00015  M00S00013.sdsplay +++|*
00016  M00S00014.sdsplay +++|*         J. J. CHIASSON.    85/01/04.
00017  M00S00015.sdsplay +++|          SPACE  4,10
00018  M00S00016.sdsplay +++|***       *SDSPLAY* IS A CPU UTILITY USED BY THE OPERATOR TO DISPLAY
00019  M00S00017.sdsplay +++|*         AND UPDATE THE SYSTEM SERVICE CLASS PARAMETERS ON THE *L*
00020  M00S00018.sdsplay +++|*         DISPLAY OR TO FORMAT THE SAME FOR A PRINTER.
00021  M00S00019.sdsplay +++|          SPACE  4,20
00022  M00S00020.sdsplay +++|***       COMMAND FORMAT.
00023  M00S00021.sdsplay +++|*

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00022.271l750 ---|*         SDSPLAY(LFN,OP)       ORDER DEPENDENT PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00001.271l750 +++|*         SDSPLAY(LFN,OP,IFN)         ORDER DEPENDENT PARAMETERS.
00026  M00S00023.sdsplay +++|*          OR

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00024.271l750 ---|*         SDSPLAY(L=LFN,LO=OP)  ORDER INDEPENDENT PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00002.271l750 +++|*         SDSPLAY(L=LFN,LO=OP,I=IFN)  ORDER INDEPENDENT PARAMETERS.
00029  M00S00025.sdsplay +++|*
00030  M00S00026.sdsplay +++|*          WHERE
00031  M00S00027.sdsplay +++|*
00032  M00S00028.sdsplay +++|*         OP = *D*           FORMAT DATA FOR *L* DISPLAY (DEFAULT).
00033  M00S00029.sdsplay +++|*
00034  M00S00030.sdsplay +++|*         OP = *L*           FORMAT DATA FOR A LINE PRINTER.
00035  M00S00031.sdsplay +++|*
00036  M00S00032.sdsplay +++|*         LFN                LIST OUTPUT FILE NAME (DEFAULT = OUTPUT).

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00033.271l750 ---|*                            THIS PARAMETER VALID ONLY WITH (LO=L).

Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00003.271l750 +++|*                            THIS PARAMETER IS VALID ONLY WITH *LO=L*
00039  M01S00004.271l750 +++|*                            OR *I=IFN*.
00040  M01S00005.271l750 +++|*
00041  M01S00006.271l750 +++|*         IFN                INPUT FILE NAME (DEFAULT = NONE).
00042  M00S00034.sdsplay +++|*
00043  M00S00035.sdsplay +++|*         NOTES  SPECIAL PRIVILEGES REQUIRED.
00044  M00S00036.sdsplay +++|*                1. USER MUST BE *SYOT* TO USE *L* DISPLAY (LO=D).
00045  M00S00037.sdsplay +++|*                2. USER MUST BE *SYOT* OR HAVE SYSTEM ORIGIN
00046  M00S00038.sdsplay +++|*                   PRIVILEGES TO GENERATE A LISTING (LO=L).

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00007.271l750 +++|*
00048  M01S00008.271l750 +++|*                IF A DIRECTIVE ERROR IS DETECTED WHILE PROCESSING
00049  M01S00009.271l750 +++|*                INPUT FILE DIRECTIVES (*I=IFN* SPECIFIED), LIST
00050  M01S00010.271l750 +++|*                OUTPUT WILL BE GENERATED EVEN IF *LO=L* WAS NOT
00051  M01S00011.271l750 +++|*                SPECIFIED.
00052  M00S00039.sdsplay +++|          SPACE  4,15
00053  M00S00040.sdsplay +++|***       DAYFILE MESSAGES.
00054  M00S00041.sdsplay +++|*
00055  M00S00042.sdsplay +++|*         * ARGUMENT ERROR - ARG.*
00056  M00S00043.sdsplay +++|*                THE SPECIFIED ARGUMENT, *ARG* WAS NOT ONE OF THE
00057  M00S00044.sdsplay +++|*                ALLOWABLE ARGUMENTS TO *SDSPLAY*.
00058  M00S00045.sdsplay +++|*
00059  M00S00046.sdsplay +++|*         * SDSPLAY UTILITY COMPLETE.*
00060  M00S00047.sdsplay +++|*                PROCESSING OF THE *SDSPLAY* UTILITY HAS BEEN ENDED.
00061  M00S00048.sdsplay +++|*
00062  M00S00049.sdsplay +++|*         * USER ACCESS NOT VALID.*
00063  M00S00050.sdsplay +++|*                THE USER MUST HAVE SYSTEM ORIGIN PRIVILEGE.
00064  M00S00051.sdsplay +++|          SPACE  4,10
00065  M00S00052.sdsplay +++|***       *L* DISPLAY ERROR MESSAGES.
00066  M00S00053.sdsplay +++|*
00067  M00S00054.sdsplay +++|*         *UNRECOGNIZABLE DIRECTIVE.*
00068  M00S00055.sdsplay +++|*                A COMMAND WAS ENTERED VIA THE *L* DISPLAY WHICH WAS
00069  M00S00056.sdsplay +++|*                NOT ONE OF THE VALID *SDSPLAY* COMMANDS.
00070  M00S00057.sdsplay +++|*
00071  M00S00058.sdsplay +++|*         *UNKNOWN PARAMETER - KW.*
00072  M00S00059.sdsplay +++|*                AN UNKNOWN KEYWORD PARAMETER, KW, WAS ENTERED.
00073  M00S00060.sdsplay +++|*
00074  M00S00061.sdsplay +++|*         *UNKNOWN SEPARATOR - KW.*
00075  M00S00062.sdsplay +++|*                THE SEPARATOR FOR THE KEYWORD, KW, WAS NOT AN *=*.
00076  M00S00063.sdsplay +++|*
00077  M00S00064.sdsplay +++|*         *UNKNOWN SERVICE CLASS.*
00078  M00S00065.sdsplay +++|*                THE SPECIFIED SERVICE CLASS ON A *CLASS* COMMAND
00079  M00S00066.sdsplay +++|*                WAS INCORRECT.
00080  M00S00067.sdsplay +++|*
00081  M00S00068.sdsplay +++|*         *INCORRECT NUMERIC PARAMETER FOR KW.*
00082  M00S00069.sdsplay +++|*                THE ENTERED VALUE FOR THE KEYWORD, KW, WAS NOT IN THE
00083  M00S00070.sdsplay +++|*                ALLOWABLE RANGE FOR THAT KEYWORD.
00084  M00S00071.sdsplay +++|*
00085  M00S00072.sdsplay +++|*         *INCORRECT SERVICE CLASS FOR *DT*.*
00086  M00S00073.sdsplay +++|*                THE SERVICE CLASS SPECIFIED FOR THE *DT* PARAMETER
00087  M00S00074.sdsplay +++|*                WAS NOT ALLOWED.
00088  M00S00075.sdsplay +++|*
00089  M00S00076.sdsplay +++|*         *LOWER BOUND IS .GE. UPPER BOUND FOR CLASS XX.*
00090  M00S00077.sdsplay +++|*                DURING *GO* PROCESSING, A LOWER BOUND WAS ENCOUNTERED
00091  M00S00078.sdsplay +++|*                WHICH EXCEEDED OR EQUALED THE ASSOCIATED UPPER BOUND
00092  M00S00079.sdsplay +++|*                FOR THE SERVICE CLASS XX.

Seq #  *Modification Id* Act 
----------------------------+
00093  M01S00012.271l750 +++|*
00094  M01S00013.271l750 +++|*         /*RS* IS GREATER THAN *US* FOR CLASS XX./
00095  M01S00014.271l750 +++|*                DURING *GO* PROCESSING, AN *RS* (RECALL CPU SLICE)
00096  M01S00015.271l750 +++|*                WAS ENCOUNTERED WHICH EXCEEDED THE *US* (UNEXTENDED
00097  M01S00016.271l750 +++|*                CPU SLICE) FOR THE SERVICE CLASS XX.
00098  M00S00080.sdsplay +++|*
00099  M00S00081.sdsplay +++|*         *YYYY NOT WITHIN ALLOWABLE RANGE FOR CLASS XX.*
00100  M00S00082.sdsplay +++|*                THE PARAMETER *YYYY* (EITHER *EXIL*, *EXIP* OR
00101  M00S00083.sdsplay +++|*                *EXTP*) WAS NOT WITHIN THE EXECUTION QUEUE PRIORITY
00102  M00S00084.sdsplay +++|*                RANGE (*EXLP* TO *EXUP*) FOR SERVICE CLASS *XX*.
00103  M00S00085.sdsplay +++|*
00104  M00S00086.sdsplay +++|*         *EXCESS PARAMETERS.*
00105  M00S00087.sdsplay +++|*                ONE OR MORE EXTRA PARAMETERS WERE ENCOUNTERED ON THE
00106  M00S00088.sdsplay +++|*                COMMAND.
00107  M00S00089.sdsplay +++|          SPACE  4,10
00108  M00S00090.sdsplay +++|***       *L* DISPLAY INFORMATIVE MESSAGES.
00109  M00S00091.sdsplay +++|*
00110  M00S00092.sdsplay +++|*         *UTILITY COMPLETE.*
00111  M00S00093.sdsplay +++|*                THE *END* COMMAND WAS ENTERED VIA THE *L* DISPLAY AND
00112  M00S00094.sdsplay +++|*                *SDSPLAY* SUCCESSFULLY TERMINATED.
00113  M00S00095.sdsplay +++|          SPACE  4,10
00114  M00S00096.sdsplay +++|***       *L* DISPLAY COMMANDS.
00115  M00S00097.sdsplay +++|*
00116  M00S00098.sdsplay +++|*         L.+                PAGE DISPLAY FORWARD.
00117  M00S00099.sdsplay +++|*
00118  M00S00100.sdsplay +++|*         L.-                PAGE DISPLAY BACKWARD.
00119  M00S00101.sdsplay +++|*
00120  M00S00102.sdsplay +++|*         L.CLASS=XX         DISPLAY THE DATA FOR SERVICE CLASS XX.
00121  M00S00103.sdsplay +++|*
00122  M00S00104.sdsplay +++|*         L.END              END PROCESSING OF *SDSPLAY*.
00123  M00S00105.sdsplay +++|*
00124  M00S00106.sdsplay +++|*         L.GO               ENTER INTO CMR ALL OF THE VALUES ENTERED
00125  M00S00107.sdsplay +++|*                            VIA THE KEYWORD=VALUE COMMMANDS SINCE THE
00126  M00S00108.sdsplay +++|*                            LAST *GO* OR *RESET* COMMAND.
00127  M00S00109.sdsplay +++|*
00128  M00S00110.sdsplay +++|*         L.HELP             DISPLAY THE FIRST PAGE OF THE *HELP*
00129  M00S00111.sdsplay +++|*                            SCREENS.
00130  M00S00112.sdsplay +++|*
00131  M00S00113.sdsplay +++|*         L.KEYWORD=VALUE    ALTER THE VALUE FOR THE SPECIFIED KEYWORD.
00132  M00S00114.sdsplay +++|*                            THIS COMMAND MAY ONLY BE SPECIFIED WHEN A
00133  M00S00115.sdsplay +++|*                            *CLASS* DISPLAY IS CURRENTLY BEING
00134  M00S00116.sdsplay +++|*                            DISPLAYED.  ANY NUMBER OF KEYWORD=VALUE
00135  M00S00117.sdsplay +++|*                            ENTRIES MAY BE SPECIFIED ON A LINE,
00136  M00S00118.sdsplay +++|*                            SEPARATED BY COMMAS, SUBJECT TO THE *L*
00137  M00S00119.sdsplay +++|*                            DISPLAY INPUT LINE LENGTH RESTRICTION.
00138  M00S00120.sdsplay +++|*
00139  M00S00121.sdsplay +++|*         L.RESET            RE-READS THE KEYWORD=VALUE PARAMETERS
00140  M00S00122.sdsplay +++|*                            FROM CMR AND SETS THEM INTO THE DISPLAYS.
00141  M00S00123.sdsplay +++|          SPACE  4,10
00142  M00S00124.sdsplay +++|*         COMMON DECKS.
00143  M00S00125.sdsplay +++|
00144  M00S00126.sdsplay +++|
00145  M00S00127.sdsplay +++|*CALL     COMCCMD
00146  M00S00128.sdsplay +++|*CALL     COMCDCM
00147  M00S00129.sdsplay +++|*CALL     COMCDCP
00148  M00S00130.sdsplay +++|*CALL     COMCMAC
00149  M00S00131.sdsplay +++|*CALL     COMSEVT

Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00001.271l716 +++|*CALL     COMSMSC
00151  M00S00132.sdsplay +++|*CALL     COMSPFM
00152  M00S00133.sdsplay +++|*CALL     COMSSFM
00153  M00S00134.sdsplay +++|*CALL     COMSSSJ
00154  M00S00135.sdsplay +++|          SPACE  4,15
00155  M00S00136.sdsplay +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00156  M00S00137.sdsplay +++|*
00157  M00S00138.sdsplay +++|*         SCLASS NM,MN,DF,ST,TX
00158  M00S00139.sdsplay +++|*
00159  M00S00140.sdsplay +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00160  M00S00141.sdsplay +++|*                *MN* = TWO CHARACTER MNEMONIC.
00161  M00S00142.sdsplay +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00162  M00S00143.sdsplay +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00163  M00S00144.sdsplay +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00164  M00S00145.sdsplay +++|*
00165  M00S00146.sdsplay +++|*         NOTES  THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00166  M00S00147.sdsplay +++|*                THIS MACRO.
00167  M00S00148.sdsplay +++|
00168  M00S00149.sdsplay +++|
00169  M00S00150.sdsplay +++|          PURGMAC SCLASS
00170  M00S00151.sdsplay +++|
00171  M00S00152.sdsplay +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00172  M00S00153.sdsplay +++|          MACREF SCLASS
00173  M00S00154.sdsplay +++| .SCL     RMT
00174  M00S00155.sdsplay +++|          VFD    12/0L_MN,48/0  TX
00175  M00S00156.sdsplay +++| .SCL     RMT
00176  M00S00157.sdsplay +++| SCLASS   ENDM
00177  M00S00158.sdsplay +++|
00178  M00S00159.sdsplay +++|
00179  M00S00160.sdsplay +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00180  M00S00161.sdsplay +++|*CALL     COMSSCD
00181  M00S00162.sdsplay +++|          SPACE  4,20
00182  M00S00163.sdsplay +++|*         MACRO DEFINITIONS.
00183  M00S00164.sdsplay +++| DTAV     SPACE  4,15
00184  M00S00165.sdsplay +++|**        DTAV - DEFINE TABLE VALUES.
00185  M00S00166.sdsplay +++|*
00186  M00S00167.sdsplay +++|*         DTAV   V
00187  M00S00168.sdsplay +++|*
00188  M00S00169.sdsplay +++|*         ENTRY  *V* = NUMERIC VALUE TO BE CONVERTED.
00189  M00S00170.sdsplay +++|*
00190  M00S00171.sdsplay +++|*         EXIT   IF *V* = 0, THEN THE DISPLAY CODE STRING *UNLIMITED*
00191  M00S00172.sdsplay +++|*                IS GENERATED.
00192  M00S00173.sdsplay +++|*                IF *V* .NE. 0, THEN A DISPLAY CODE STRING IS GENERATED
00193  M00S00174.sdsplay +++|*                WITH LEADING BLANKS AND THE VALUE OF *V* EXPRESSED IN
00194  M00S00175.sdsplay +++|*                DISPLAY CODE RIGHT JUSTIFIED WITH DECIMAL BASE.
00195  M00S00176.sdsplay +++|
00196  M00S00177.sdsplay +++|
00197  M00S00178.sdsplay +++|          PURGMAC  DTAV
00198  M00S00179.sdsplay +++|
00199  M00S00180.sdsplay +++| DTAV     MACRO  V
00200  M00S00181.sdsplay +++|          MACREF DTAV
00201  M00S00182.sdsplay +++| .A       IFEQ   V,0
00202  M00S00183.sdsplay +++|          DATA   10H UNLIMITED
00203  M00S00184.sdsplay +++| .A       ELSE
00204  M00S00185.sdsplay +++| M        DECMIC V
00205  M00S00186.sdsplay +++| L        MICCNT M
00206  M00S00187.sdsplay +++| B        MICRO  1,10-L,*         *
00207  M00S00188.sdsplay +++|          DATA   10H_"B"_"M"
00208  M00S00189.sdsplay +++| .A       ENDIF
00209  M00S00190.sdsplay +++| DTAV     ENDM
00210  M00S00191.sdsplay +++| SETKW    SPACE  4,10
00211  M00S00192.sdsplay +++|**        SETKW - SET KEYWORD ENTRY.
00212  M00S00193.sdsplay +++|*
00213  M00S00194.sdsplay +++|*         *SETKW* GENERATES A TABLE OF VALID KEYWORDS AND THEIR
00214  M00S00195.sdsplay +++|*         ASSOCIATED ATTRIBUTES.
00215  M00S00196.sdsplay +++|*
00216  M00S00197.sdsplay +++|*         SETKW  MN,HI,LO,OF,LB,SZ,SP
00217  M00S00198.sdsplay +++|*
00218  M00S00199.sdsplay +++|*         ENTRY  *MN* = KEYWORD MNEMONIC.
00219  M00S00200.sdsplay +++|*                *HI* = HIGHEST VALUE ALLOWED FOR KEYWORD.
00220  M00S00201.sdsplay +++|*                *LO* = LOWEST VALUE ALLOWED FOR KEYWORD.
00221  M00S00202.sdsplay +++|*                *OF* = WORD OFFSET INTO *JCB* FOR KEYWORD.
00222  M00S00203.sdsplay +++|*                *LB* = LOW ORDER BIT POSITION IN *JCB* FIELD.
00223  M00S00204.sdsplay +++|*                *SZ* = BIT SIZE OF FIELD.
00224  M00S00205.sdsplay +++|*                *SP* = SPECIAL PROCESSING OF THIS KEYWORD REQUIRED.
00225  M00S00206.sdsplay +++|*
00226  M00S00207.sdsplay +++|*         NOTES  THE *HI* AND *LO* PARAMETERS DO NOT APPLY IF *SP*
00227  M00S00208.sdsplay +++|*                IS SPECIFIED.
00228  M00S00209.sdsplay +++|
00229  M00S00210.sdsplay +++|
00230  M00S00211.sdsplay +++|          PURGMAC  SETKW
00231  M00S00212.sdsplay +++|
00232  M00S00213.sdsplay +++| SETKW    MACRO  MN,HI,LO,OF,LB,SZ,SP
00233  M00S00214.sdsplay +++|          MACREF SETKW
00234  M00S00215.sdsplay +++|          VFD    24/0L_MN,6/OF
00235  M00S00216.sdsplay +++| .A       IFC    NE,$SP$$
00236  M00S00217.sdsplay +++|          VFD    1/1
00237  M00S00218.sdsplay +++| .A       ELSE
00238  M00S00219.sdsplay +++|          VFD    1/0
00239  M00S00220.sdsplay +++| .A       ENDIF
00240  M00S00221.sdsplay +++|          VFD    5/
00241  M00S00222.sdsplay +++| .B       IFC    NE,$HI$$
00242  M00S00223.sdsplay +++|          VFD    18/HI
00243  M00S00224.sdsplay +++| .B       ELSE
00244  M00S00225.sdsplay +++|          VFD    18/0
00245  M00S00226.sdsplay +++| .B       ENDIF
00246  M00S00227.sdsplay +++| .C       IFC    NE,$LO$$
00247  M00S00228.sdsplay +++|          VFD    6/LO
00248  M00S00229.sdsplay +++| .C       ELSE
00249  M00S00230.sdsplay +++|          VFD    6/0
00250  M00S00231.sdsplay +++| .C       ENDIF
00251  M00S00232.sdsplay +++|          VFD    48/,6/LB,6/SZ
00252  M00S00233.sdsplay +++| SETKW    ENDM
00253  M00S00234.sdsplay +++|          TITLE  ASSEMBLY CONSTANTS.
00254  M00S00235.sdsplay +++|          SPACE  4,10
00255  M00S00236.sdsplay +++|****      ASSEMBLY CONSTANTS.
00256  M00S00237.sdsplay +++|
00257  M00S00238.sdsplay +++|
00258  M00S00239.sdsplay +++| CNCI     EQU    4           NO COMMAND INPUT (*CPM* RETURN STATUS)

Seq #  *Modification Id* Act 
----------------------------+
00259  M01S00017.271l750 +++| DBUFL    EQU    101B        DIRECTIVE INPUT FILE BUFFER LENGTH
00260  M00S00240.sdsplay +++| LCOMU    EQU    LCOM/2+1    INPUT BUFFER PACKED
00261  M00S00241.sdsplay +++| LDML     EQU    6           *L* DISPLAY MESSAGE LENGTH
00262  M00S00242.sdsplay +++| LIML     EQU    6           *L* DISPLAY INPUT LENGTH
00263  M00S00243.sdsplay +++| MXFL     EQU    3777B-MNFL  MAXIMUM CM FL FOR ONE JOB
00264  M00S00244.sdsplay +++| SBUFL    EQU    MXJC*JCBE-JCBE  *SBUF* LENGTH
00265  M00S00245.sdsplay +++| SDTA     EQU    0           CURRENT DISPLAY SCREEN IS DATA
00266  M00S00246.sdsplay +++| SHLP     EQU    1           CURRENT DISPLAY SCREEN IS *HELP*
00267  M00S00247.sdsplay +++| XCDT     EQU    4           X - COORDINATE FOR *L* DISPLAY
00268  M00S00248.sdsplay +++| YCDT     EQU    2           Y - COORDINATE FOR *L* DISPLAY
00269  M00S00249.sdsplay +++|
00270  M00S00250.sdsplay +++|****
00271  M00S00251.sdsplay +++|          TITLE  TABLES AND DATA DEFINITIONS.
00272  M00S00252.sdsplay +++|          ORG    111B
00273  M00S00253.sdsplay +++| SDS      BSS    0
00274  M00S00254.sdsplay +++|          SPACE  4,10
00275  M00S00255.sdsplay +++|*         DAYFILE MESSAGES.
00276  M00S00256.sdsplay +++|
00277  M00S00257.sdsplay +++| ERAE     DATA   C* ARGUMENT ERROR - XXXXXXXX*
00278  M00S00258.sdsplay +++| ERNV     DATA   C* USER ACCESS NOT VALID.*
00279  M00S00259.sdsplay +++| SEND     DATA   C* SDSPLAY UTILITY COMPLETE.*
00280  M00S00260.sdsplay +++|          SPACE  4,10
00281  M00S00261.sdsplay +++|*         *L* DISPLAY MESSAGES.
00282  M00S00262.sdsplay +++|*         NOTES   1.  ALL MESSAGES MUST BE *LDML* WORDS IN LENGTH.
00283  M00S00263.sdsplay +++|*                 2.  THE PROCESSING ROUTINES FOR THESE MESSAGES
00284  M00S00264.sdsplay +++|*                     ASSUME A SPECIFIC LOCATION FOR THE SUBSTITUTABLE
00285  M00S00265.sdsplay +++|*                     PARAMETERS.  IF THE POSITION OF ANY OF THE
00286  M00S00266.sdsplay +++|*                     SUBSTITUTABLE PARAMETERS IS CHANGED, THE
00287  M00S00267.sdsplay +++|*                     APPROPRIATE PROCESSING ROUTINE SHOULD BE UPDATED.
00288  M00S00268.sdsplay +++|
00289  M00S00269.sdsplay +++|
00290  M00S00270.sdsplay +++| TMLD     BSS    0
00291  M00S00271.sdsplay +++|          LOC    0
00292  M00S00272.sdsplay +++| EBMS     DATA   58C
00293  M00S00273.sdsplay +++|          ERRNZ  EBMS        BLANK MESSAGE MUST BE FIRST
00294  M00S00274.sdsplay +++| EURD     DATA   58CUNRECOGNIZABLE DIRECTIVE.
00295  M00S00275.sdsplay +++| EUKP     DATA   58CUNKNOWN PARAMETER - XX.
00296  M00S00276.sdsplay +++| EUKS     DATA   58CUNKNOWN SEPARATOR - XX.
00297  M00S00277.sdsplay +++| EUKC     DATA   58CUNKNOWN SERVICE CLASS.
00298  M00S00278.sdsplay +++| EICP     DATA   58CINCORRECT NUMERIC PARAMETER FOR XX.
00299  M00S00279.sdsplay +++| EISC     DATA   58CINCORRECT SERVICE CLASS FOR *DT*.
00300  M00S00280.sdsplay +++| ELGU     DATA   58CLOWER BOUND IS .GE. UPPER BOUND FOR CLASS XX.

Seq #  *Modification Id* Act 
----------------------------+
00301  M01S00018.271l750 +++| ERGU     DATA   58C*RS* IS GREATER THAN *US* FOR CLASS XX.
00302  M00S00281.sdsplay +++| EVOR     DATA   58CYYYY NOT WITHIN ALLOWABLE RANGE FOR CLASS XX.
00303  M00S00282.sdsplay +++| EEXP     DATA   58CEXCESS PARAMETERS.
00304  M00S00283.sdsplay +++| ENDM     DATA   58CUTILITY COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
00305  M01S00019.271l750 +++|
00306  M01S00020.271l750 +++| EBUF     BSS    6           ERROR MESSAGE ASSEMBLY BUFFER
00307  M00S00284.sdsplay +++|          LOC    *O
00308  M00S00285.sdsplay +++| TASC     SPACE  4,10
00309  M00S00286.sdsplay +++|**        TASC - ATTRIBUTES FOR SERVICE CLASS PAGE TABLE.
00310  M00S00287.sdsplay +++|
00311  M00S00288.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00289.271l716 ---| TASC     PAGT   ASCA        PAGE 1
00313  M01S00290.271l716 ---|          PAGT   ASCB        PAGE 2
00314  M01S00291.271l716 ---|          PAGT   ASCC        PAGE 3

Seq #  *Modification Id* Act 
----------------------------+
00315  M01S00002.271l716 +++| TASC     PAGT   SCA1        PAGE 1
00316  M01S00003.271l716 +++|          PAGT   SCA2        PAGE 2
00317  M01S00004.271l716 +++|          PAGT   SCA3        PAGE 3
00318  M00S00292.sdsplay +++|          PAGT   *
00319  M00S00293.sdsplay +++| TCSV     SPACE  4,10
00320  M00S00294.sdsplay +++|**        TCSV - TABLE OF EQUIVALENCED PARAMETER VALUES FOR
00321  M00S00295.sdsplay +++|*         *CS*.
00322  M00S00296.sdsplay +++|*
00323  M00S00297.sdsplay +++|*T TCSV   60/VALUE

Figure TCSV

00324  M00S00298.sdsplay +++|*
00325  M00S00299.sdsplay +++|*         VALUE = RIGHT JUSTIFIED DISPLAY CODE VALUE.
00326  M00S00300.sdsplay +++|
00327  M00S00301.sdsplay +++|
00328  M00S00302.sdsplay +++| TCSV     BSS    0
00329  M00S00303.sdsplay +++|          LOC    0
00330  M00S00304.sdsplay +++|          DTAV   0
00331  M00S00305.sdsplay +++|          DTAV   CSRNG1*100B
00332  M00S00306.sdsplay +++|          DTAV   CSRNG2*100B
00333  M00S00307.sdsplay +++|          DTAV   CSRNG3*100B
00334  M00S00308.sdsplay +++|          DTAV   CSRNG4*100B
00335  M00S00309.sdsplay +++|          DTAV   CSRNG5*100B
00336  M00S00310.sdsplay +++|          DTAV   CSRNG6*100B
00337  M00S00311.sdsplay +++|          DTAV   CSRNG7*100B
00338  M00S00312.sdsplay +++|          LOC    *O
00339  M00S00313.sdsplay +++| TDSV     SPACE  4,10
00340  M00S00314.sdsplay +++|**        TDSV - TABLE OF EQUIVALENCED PARAMETER VALUES FOR
00341  M00S00315.sdsplay +++|*         *DS*.
00342  M00S00316.sdsplay +++|*
00343  M00S00317.sdsplay +++|*T TDSV   60/VALUE

Figure TDSV

00344  M00S00318.sdsplay +++|*
00345  M00S00319.sdsplay +++|*         VALUE = RIGHT JUSTIFIED DISPLAY CODE VALUE.
00346  M00S00320.sdsplay +++|
00347  M00S00321.sdsplay +++|
00348  M00S00322.sdsplay +++| TDSV     BSS    0
00349  M00S00323.sdsplay +++|          LOC    0
00350  M00S00324.sdsplay +++|          DTAV   0
00351  M00S00325.sdsplay +++|          DTAV   DSRNG1*100B
00352  M00S00326.sdsplay +++|          DTAV   DSRNG2*100B
00353  M00S00327.sdsplay +++|          DTAV   DSRNG3*100B
00354  M00S00328.sdsplay +++|          DTAV   DSRNG4*100B
00355  M00S00329.sdsplay +++|          DTAV   DSRNG5*100B
00356  M00S00330.sdsplay +++|          DTAV   DSRNG6*100B
00357  M00S00331.sdsplay +++|          DTAV   DSRNG7*100B
00358  M00S00332.sdsplay +++|          LOC    *O
00359  M00S00333.sdsplay +++| TFCV     SPACE  4,10
00360  M00S00334.sdsplay +++|**        TFCV - TABLE OF EQUIVALENCED PARAMETER VALUES FOR *FC*.
00361  M00S00335.sdsplay +++|*
00362  M00S00336.sdsplay +++|*T TFCV   60/VALUE

Figure TFCV

00363  M00S00337.sdsplay +++|*
00364  M00S00338.sdsplay +++|*         VALUE = RIGHT JUSTIFIED DISPLAY CODE VALUE.
00365  M00S00339.sdsplay +++|
00366  M00S00340.sdsplay +++|
00367  M00S00341.sdsplay +++| TFCV     BSS    0
00368  M00S00342.sdsplay +++|          LOC    0
00369  M00S00343.sdsplay +++|          DTAV   0
00370  M00S00344.sdsplay +++|          DTAV   NFRNG1*10B
00371  M00S00345.sdsplay +++|          DTAV   NFRNG2*10B
00372  M00S00346.sdsplay +++|          DTAV   NFRNG3*10B
00373  M00S00347.sdsplay +++|          DTAV   NFRNG4*10B
00374  M00S00348.sdsplay +++|          DTAV   NFRNG5*10B
00375  M00S00349.sdsplay +++|          DTAV   NFRNG6*10B
00376  M00S00350.sdsplay +++|          DTAV   NFRNG7*10B
00377  M00S00351.sdsplay +++|          LOC    *O
00378  M00S00352.sdsplay +++| TFSV     SPACE  4,10
00379  M00S00353.sdsplay +++|**        TFSV - TABLE OF EQUIVALENCED PARAMETER VALUES FOR *FS*.
00380  M00S00354.sdsplay +++|*
00381  M00S00355.sdsplay +++|*T TFSV   60/VALUE

Figure TFSV

00382  M00S00356.sdsplay +++|*
00383  M00S00357.sdsplay +++|*         VALUE = RIGHT JUSTIFIED DISPLAY CODE VALUE.
00384  M00S00358.sdsplay +++|
00385  M00S00359.sdsplay +++|
00386  M00S00360.sdsplay +++| TFSV     BSS    0
00387  M00S00361.sdsplay +++|          LOC    0
00388  M00S00362.sdsplay +++|          DTAV   0
00389  M00S00363.sdsplay +++|          DTAV   FSRNG1*10B
00390  M00S00364.sdsplay +++|          DTAV   FSRNG2*10B
00391  M00S00365.sdsplay +++|          DTAV   FSRNG3*10B
00392  M00S00366.sdsplay +++|          DTAV   FSRNG4*10B
00393  M00S00367.sdsplay +++|          DTAV   FSRNG5*10B
00394  M00S00368.sdsplay +++|          DTAV   FSRNG6*10B
00395  M00S00369.sdsplay +++|          DTAV   FSRNG7*10B
00396  M00S00370.sdsplay +++|          LOC    *O
00397  M00S00371.sdsplay +++| THLP     SPACE  4,10
00398  M00S00372.sdsplay +++|**        THLP - *HELP* PAGE TABLE.
00399  M00S00373.sdsplay +++|
00400  M00S00374.sdsplay +++|
00401  M00S00375.sdsplay +++| THLP     PAGT   HLPA        PAGE 1
00402  M00S00376.sdsplay +++|          PAGT   HLPB        PAGE 2
00403  M00S00377.sdsplay +++|          PAGT   HLPC        PAGE 3
00404  M00S00378.sdsplay +++|          PAGT   *
00405  M00S00379.sdsplay +++| TKWP     SPACE  4,10
00406  M00S00380.sdsplay +++|**        TKWP - TABLE OF KEYWORD POSITIONS.
00407  M00S00381.sdsplay +++|*
00408  M00S00382.sdsplay +++|*T        24/ ,18/ TAB,18/ ADDR

Figure

00409  M00S00383.sdsplay +++|*
00410  M00S00384.sdsplay +++|*         TAB = FWA OF PARAMETER EQUIVALENCE TABLE FOR *DS*, *FC*,
00411  M00S00385.sdsplay +++|*               *CS* AND *FS* PARAMETERS.
00412  M00S00386.sdsplay +++|*         ADDR = ADDRESS OF PARAMETER VALUES POSITION IN TEMPLATE.
00413  M00S00387.sdsplay +++|*
00414  M00S00388.sdsplay +++|*         NOTES  ENTRIES IN THIS TABLE MUST BE IN THE SAME ORDER AS
00415  M00S00389.sdsplay +++|*                THOSE IN THE *TKWV* TABLE.
00416  M00S00390.sdsplay +++|
00417  M00S00391.sdsplay +++|
00418  M00S00392.sdsplay +++| TKWP     BSS    0
00419  M00S00393.sdsplay +++|          VFD    24/0,18/0,18/INLP
00420  M00S00394.sdsplay +++|          VFD    24/0,18/0,18/INUP
00421  M00S00395.sdsplay +++|          VFD    24/0,18/0,18/OTLP
00422  M00S00396.sdsplay +++|          VFD    24/0,18/0,18/OTUP
00423  M00S00397.sdsplay +++|          VFD    24/0,18/0,18/EXLP
00424  M00S00398.sdsplay +++|          VFD    24/0,18/0,18/EXUP
00425  M00S00399.sdsplay +++|          VFD    24/0,18/0,18/EXIL
00426  M00S00400.sdsplay +++|          VFD    24/0,18/0,18/EXIP
00427  M00S00401.sdsplay +++|          VFD    24/0,18/0,18/EXTP
00428  M00S00402.sdsplay +++|          VFD    24/0,18/0,18/INWF
00429  M00S00403.sdsplay +++|          VFD    24/0,18/0,18/EXWF
00430  M00S00404.sdsplay +++|          VFD    24/0,18/0,18/OTWF

Seq #  *Modification Id* Act 
----------------------------+
00431  M01S00405.271l716 ---|          VFD    24/0,18/0,18/ASPR
00432  M01S00406.271l716 ---|          VFD    24/0,18/0,18/ASCP

Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00005.271l750 ---|          VFD    24/0,18/0,18/ASCB

Seq #  *Modification Id* Act 
----------------------------+
00434  M01S00006.271l716 +++|          VFD    24/0,18/0,18/ASCT
00435  M00S00407.sdsplay +++|          VFD    24/0,18/0,18/ASCM
00436  M00S00408.sdsplay +++|          VFD    24/0,18/0,18/ASNJ

Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00007.271l716 +++|          VFD    24/0,18/0,18/ASCP
00438  M00S00409.sdsplay +++|          VFD    24/0,18/0,18/ASFL
00439  M00S00410.sdsplay +++|          VFD    24/0,18/0,18/ASAM

Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00008.271l750 ---|          VFD    24/0,18/0,18/ASSD
00441  M00S00411.sdsplay +++|          VFD    24/0,18/0,18/ASEC
00442  M00S00412.sdsplay +++|          VFD    24/0,18/0,18/ASEM

Seq #  *Modification Id* Act 
----------------------------+
00443  M01S00021.271l750 +++|          VFD    24/0,18/0,18/ASPR
00444  M01S00022.271l750 +++|          VFD    24/0,18/0,18/ASSE
00445  M01S00023.271l750 +++|          VFD    24/0,18/0,18/ASRS
00446  M01S00024.271l750 +++|          VFD    24/0,18/0,18/ASUS
00447  M00S00413.sdsplay +++|          CON    0           END OF PAGE 1 AND 2 PARAMETERS
00448  M00S00414.sdsplay +++|          VFD    24/0,18/TDSV,18/ASDS
00449  M00S00415.sdsplay +++|          VFD    24/0,18/TFCV,18/ASFC
00450  M00S00416.sdsplay +++|          VFD    24/0,18/TCSV,18/ASCS
00451  M00S00417.sdsplay +++|          VFD    24/0,18/TFSV,18/ASFS
00452  M00S00418.sdsplay +++|          CON    0           END OF INDEXED PARAMETERS
00453  M00S00419.sdsplay +++|          VFD    24/0,18/0,18/ASDT
00454  M00S00420.sdsplay +++|          VFD    24/0,18/0,18/ASTD
00455  M00S00421.sdsplay +++|          VFD    24/0,18/0,18/ASCJ
00456  M00S00422.sdsplay +++| TKWV     SPACE  4,25
00457  M00S00423.sdsplay +++|**        TKWV - TABLE OF KEYWORD VALUES.
00458  M00S00424.sdsplay +++|*
00459  M00S00425.sdsplay +++|*T        24/ MN,6/ OF,1/ SP,5/ ,18/ HI,6/ LO

Figure

00460  M00S00426.sdsplay +++|*T,       48/ ,6/ LB,6/ SZ

Figure

00461  M00S00427.sdsplay +++|*
00462  M00S00428.sdsplay +++|*         MN = DISPLAY CODE KEYWORD MNEMONIC.
00463  M00S00429.sdsplay +++|*         OF = OFFSET INTO *JCB* FOR KEYWORD.
00464  M00S00430.sdsplay +++|*         SP = SET IF SPECIAL PROCESSING REQUIRED FOR THIS KEYWORD.
00465  M00S00431.sdsplay +++|*         HI = HIGHEST VALUE ALLOWED FOR THIS KEYWORD.
00466  M00S00432.sdsplay +++|*         LO = LOWEST VALUE ALLOWED FOR THIS KEYWORD.
00467  M00S00433.sdsplay +++|*         LB = LOW ORDER BIT OF KEYWORD IN *JCB*.
00468  M00S00434.sdsplay +++|*         SZ = BIT SIZE OF KEYWORD IN *JCB*.
00469  M00S00435.sdsplay +++|*
00470  M00S00436.sdsplay +++|*         NOTES   1.  *HI* AND *LO* ARE NOT USED IF *SP* IS SPECIFIED.
00471  M00S00437.sdsplay +++|*                 2.  ENTRIES IN THIS TABLE MUST BE IN THE SAME ORDER
00472  M00S00438.sdsplay +++|*                     AS THOSE IN THE *TKWP* TABLE.
00473  M00S00439.sdsplay +++|*                 3.  ALL 4 CHARACTER KEYWORD MNEMONICS MUST OCCUR
00474  M00S00440.sdsplay +++|*                     TOGETHER BEFORE ANY OF THE 2 CHARACTER KEYWORD
00475  M00S00441.sdsplay +++|*                     MNEMONICS IN THIS TABLE.
00476  M00S00442.sdsplay +++|*                 4.  THE INDEXED KEYWORD ENTRIES *DS*, *FC*, *CS* AND
00477  M00S00443.sdsplay +++|*                     *FS* MUST REMAIN TOGETHER.
00478  M00S00444.sdsplay +++|
00479  M00S00445.sdsplay +++|
00480  M00S00446.sdsplay +++| TKWV     BSS    0
00481  M00S00447.sdsplay +++|          SETKW  INLP,7777B,0,INQT,36,12
00482  M00S00448.sdsplay +++|          SETKW  INUP,7777B,0,INQT,24,12
00483  M00S00449.sdsplay +++|          SETKW  OTLP,7777B,0,OTQT,36,12
00484  M00S00450.sdsplay +++|          SETKW  OTUP,7777B,0,OTQT,24,12
00485  M00S00451.sdsplay +++|          SETKW  EXLP,7777B,0,EXQT,36,12
00486  M00S00452.sdsplay +++|          SETKW  EXUP,7777B,0,EXQT,24,12
00487  M00S00453.sdsplay +++|          SETKW  EXIL,7777B,0,EXQT,48,12
00488  M00S00454.sdsplay +++|          SETKW  EXIP,7777B,0,EXQT,0,12
00489  M00S00455.sdsplay +++|          SETKW  EXTP,7777B,0,MCMT,36,12
00490  M00S00456.sdsplay +++|          SETKW  INWF,,,INQT,12,12,SP
00491  M00S00457.sdsplay +++|          SETKW  EXWF,,,EXQT,12,12,SP
00492  M00S00458.sdsplay +++|          SETKW  OTWF,,,OTQT,12,12,SP

Seq #  *Modification Id* Act 
----------------------------+
00493  M01S00459.271l716 ---| LFCE     EQU    *           LAST 4 CHARACTER KEYWORD ENTRY
00494  M01S00460.271l716 ---|          SETKW  PR,77B,2,SVJT,48,12
00495  M01S00461.271l716 ---|          SETKW  CP,7777B,1,SVJT,36,12

Seq #  *Modification Id* Act 
----------------------------+
00496  M01S00009.271l716 +++| LFCE     BSS    0           END OF 4 CHARACTER KEYWORD ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00010.271l750 ---| LCBE     SETKW  CB,,,SVJT,48,12,SP

Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00011.271l716 +++|          SETKW  CT,7777B,0,SVJT,36,12
00499  M00S00462.sdsplay +++|          SETKW  CM,7777B,0,SVJT,24,12
00500  M00S00463.sdsplay +++|          SETKW  NJ,7777B,0,SVJT,12,12

Seq #  *Modification Id* Act 
----------------------------+
00501  M01S00012.271l716 +++|          SETKW  CP,7777B,0,MCMT,48,12
00502  M00S00464.sdsplay +++|          SETKW  FL,MXFL,0,MCMT,24,12
00503  M00S00465.sdsplay +++|          SETKW  AM,77777B,0,MCMT,0,18

Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00013.271l750 ---|          SETKW  SD,7777B,1,MECT,48,12
00505  M00S00466.sdsplay +++|          SETKW  EC,7777B,0,MECT,24,12
00506  M00S00467.sdsplay +++|          SETKW  EM,7777B,0,MECT,0,12

Seq #  *Modification Id* Act 
----------------------------+
00507  M01S00025.271l750 +++|          SETKW  PR,77B,2,CSJT,48,12
00508  M01S00026.271l750 +++|          SETKW  SE,7777B,0,CSJT,24,12
00509  M01S00027.271l750 +++|          SETKW  RS,7777B,1,CSJT,12,12
00510  M01S00028.271l750 +++|          SETKW  US,7777B,1,CSJT,0,12
00511  M00S00468.sdsplay +++|          SETKW  DS,7,0,PFCT,57,3
00512  M00S00469.sdsplay +++|          SETKW  FC,7,0,PFCT,54,3
00513  M00S00470.sdsplay +++|          SETKW  CS,7,0,PFCT,51,3
00514  M00S00471.sdsplay +++|          SETKW  FS,7,0,PFCT,48,3

Seq #  *Modification Id* Act 
----------------------------+
00515  M01S00472.271l716 ---| LDTE     EQU    *           *DT* ENTRY
00516  M01S00473.271l716 ---|          SETKW  DT,,,PFCT,0,12,SP

Seq #  *Modification Id* Act 
----------------------------+
00517  M01S00014.271l716 +++| LDTE     SETKW  DT,,,PFCT,0,12,SP
00518  M00S00474.sdsplay +++|          SETKW  TD,7777B,0,SVJT,0,12
00519  M00S00475.sdsplay +++|          CON    0           END OF TABLE
00520  M00S00476.sdsplay +++|          SETKW  CJ,7777B,0,JCTT,48,12  SPECIAL ENTRY FOR *CJ*
00521  M00S00477.sdsplay +++| TSCT     SPACE  4,10
00522  M00S00478.sdsplay +++|**        TSCT - SERVICE CLASS TABLE.
00523  M00S00479.sdsplay +++|*
00524  M00S00480.sdsplay +++|*T        12/ CLASS,48/ 0

Figure

00525  M00S00481.sdsplay +++|*
00526  M00S00482.sdsplay +++|*         CLASS = TWO CHARACTER SERVICE CLASS MNEMONIC.
00527  M00S00483.sdsplay +++|
00528  M00S00484.sdsplay +++|
00529  M00S00485.sdsplay +++| TSCT     BSS    0
00530  M00S00486.sdsplay +++|          LOC    0
00531  M00S00487.sdsplay +++|          LIST   G
00532  M00S00488.sdsplay +++| .SCL     HERE               REMOTE BLOCK FROM *SCLASS* MACRO
00533  M00S00489.sdsplay +++|          LIST   *
00534  M00S00490.sdsplay +++|          CON    0           END OF TABLE
00535  M00S00491.sdsplay +++|          LOC    *O
00536  M00S00492.sdsplay +++|          SPACE  4,10
00537  M00S00493.sdsplay +++|**        ROLB - ROLLOUT PARAMETER BLOCK.
00538  M00S00494.sdsplay +++|
00539  M00S00495.sdsplay +++|
00540  M00S00496.sdsplay +++| ROLB     VFD    30/0,18/LINE,12/0
00541  M00S00497.sdsplay +++|          SPACE  4,10
00542  M00S00498.sdsplay +++|*         *SETJOB* PARAMETER BLOCK.
00543  M00S00499.sdsplay +++|
00544  M00S00500.sdsplay +++| SETB     VFD    60/0
00545  M00S00501.sdsplay +++|          VFD    48/0,12/2LDF
00546  M00S00502.sdsplay +++|          SPACE  4,10
00547  M00S00503.sdsplay +++|*         *SFM* PARAMETER BLOCKS.
00548  M00S00504.sdsplay +++|
00549  M00S00505.sdsplay +++|
00550  M00S00506.sdsplay +++|*         READ SYSTEM SERVICE CLASS DATA.
00551  M00S00507.sdsplay +++|
00552  M00S00508.sdsplay +++| SFMA     VFD    12/RCIF,11/0,1/0,12/SBUFL,6/0,18/SBUF
00553  M00S00509.sdsplay +++|          CON    0
00554  M00S00510.sdsplay +++|
00555  M00S00511.sdsplay +++|*         UPDATE SYSTEM SERVICE CLASS DATA.
00556  M00S00512.sdsplay +++|
00557  M00S00513.sdsplay +++| SFMB     VFD    12/RCIF,11/0,1/1,12/SBUFL,6/0,18/SBUF
00558  M00S00514.sdsplay +++|          CON    0
00559  M00S00515.sdsplay +++|          SPACE  4,10
00560  M00S00516.sdsplay +++|*         SSJ= ENTRY POINT.
00561  M00S00517.sdsplay +++|
00562  M00S00518.sdsplay +++|
00563  M00S00519.sdsplay +++| SSJ=     EQU    SSJP
00564  M00S00520.sdsplay +++|          SPACE  4,10
00565  M00S00521.sdsplay +++|*         FET DEFINITION.

Seq #  *Modification Id* Act 
----------------------------+
00566  M01S00029.271l750 +++|
00567  M01S00030.271l750 +++| INPUT    FILEC  DBUF,DBUFL  DIRECTIVE INPUT FET
00568  M00S00522.sdsplay +++|
00569  M00S00523.sdsplay +++| OUTPUT   FILEB  OBUF,OBUFL  OUTPUT FET
00570  M00S00524.sdsplay +++|          SPACE  4,10
00571  M00S00525.sdsplay +++|*         GLOBAL STORAGE DEFINITIONS.
00572  M00S00526.sdsplay +++|
00573  M00S00527.sdsplay +++| CLDS     CON    SHLP        CURRENT *L* DISPLAY SCREEN STATUS
00574  M00S00528.sdsplay +++| CSCL     CON    0           SERVICE CLASS ORDINAL FOR DATA DISPLAYS
00575  M00S00529.sdsplay +++| EMOR     CON    0           *L* DISPLAY MESSAGE ORDINAL
00576  M00S00530.sdsplay +++| LDBP     CON    LBUF        *L* DISPLAY BUFFER POINTER
00577  M00S00531.sdsplay +++|          SPACE  4,10
00578  M00S00532.sdsplay +++|*         FLAG DEFINITIONS.
00579  M00S00533.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
00580  M01S00031.271l750 +++| DFLG     CON    0           DIRECTIVE INPUT FILE OPTION FLAG
00581  M00S00534.sdsplay +++| LFLG     CON    0           LINE PRINTER OPTION FLAG
00582  M00S00535.sdsplay +++|          TITLE  MAIN PROGRAM.
00583  M00S00536.sdsplay +++| SDSPLAY  SPACE  4,10
00584  M00S00537.sdsplay +++|**        SDSPLAY - MAIN PROGRAM.
00585  M00S00538.sdsplay +++|*
00586  M00S00539.sdsplay +++|*         EXIT   TO *PLP* IF PRINT OPTION SPECIFIED.
00587  M00S00540.sdsplay +++|*                TO *PCL* IF *L* DISPLAY OPTION SPECIFIED.
00588  M00S00541.sdsplay +++|*
00589  M00S00542.sdsplay +++|*         USES   X - 1.
00590  M00S00543.sdsplay +++|*                A - 1.
00591  M00S00544.sdsplay +++|*
00592  M00S00545.sdsplay +++|*         CALLS  PRS.
00593  M00S00546.sdsplay +++|
00594  M00S00547.sdsplay +++|
00595  M00S00548.sdsplay +++| SDSPLAY  BSS    0           ENTRY
00596  M00S00549.sdsplay +++|          RJ     PRS         PRESET ROUTINE

Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00032.271l750 +++|          SA1    DFLG
00598  M01S00033.271l750 +++|          NZ     X1,PIN      IF INPUT FILE DIRECTIVES SPECIFIED
00599  M00S00550.sdsplay +++|          SA1    LFLG        CHECK IF LINE PRINTER OPTION SPECIFIED
00600  M00S00551.sdsplay +++|          NZ     X1,PLP      IF LINE PRINTER SPECIFIED
00601  M00S00552.sdsplay +++|          EQ     PCL         PROCESS COMMAND LOOP
00602  M00S00553.sdsplay +++|          TITLE  PROCESS COMMAND LOOP.
00603  M00S00554.sdsplay +++| PCL      SPACE  4,15
00604  M00S00555.sdsplay +++|**        PCL - PROCESS COMMAND LOOP.
00605  M00S00556.sdsplay +++|*
00606  M00S00557.sdsplay +++|*         *PCL* IS THE PROCESSING LOOP FOR THE *L* DISPLAY OPTION.
00607  M00S00558.sdsplay +++|*
00608  M00S00559.sdsplay +++|*         ENTRY  (CSCL) = 0.
00609  M00S00560.sdsplay +++|*
00610  M00S00561.sdsplay +++|*         EXIT   VIA FUNCTION PROCESSOR *END* WHEN *END* DIRECTIVE
00611  M00S00562.sdsplay +++|*                IS ENCOUNTERED.
00612  M00S00563.sdsplay +++|*
00613  M00S00564.sdsplay +++|*         USES   X - 2.
00614  M00S00565.sdsplay +++|*                A - 2.
00615  M00S00566.sdsplay +++|*
00616  M00S00567.sdsplay +++|*         CALLS  BLD, CMP, EFP, ILD, OLD.
00617  M00S00568.sdsplay +++|
00618  M00S00569.sdsplay +++|
00619  M00S00570.sdsplay +++| PCL      BSS    0           ENTRY
00620  M00S00571.sdsplay +++| PCL1     RJ     BLD         BUILD *L* DISPLAY
00621  M00S00572.sdsplay +++|          RJ     OLD         OUTPUT *L* DISPLAY
00622  M00S00573.sdsplay +++|          RJ     ILD         INPUT *L* DISPLAY COMMAND
00623  M00S00574.sdsplay +++|          RJ     CMP         COMMAND PROCESSOR
00624  M00S00575.sdsplay +++|          SA2    EMOR        CHECK FOR ERROR
00625  M00S00576.sdsplay +++|          NZ     X2,PCL1     IF ERROR
00626  M00S00577.sdsplay +++|          RJ     EFP         EXECUTE FUNCTION PROCESSOR
00627  M00S00578.sdsplay +++|          EQ     PCL1        LOOP

Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00034.271l750 +++| PIN      SPACE  4,20
00629  M01S00035.271l750 +++|**        PIN - PROCESS INPUT FILE DIRECTIVES.
00630  M01S00036.271l750 +++|*
00631  M01S00037.271l750 +++|*         *PIN* IS THE PROCESSOR FOR THE INPUT DIRECTIVES FILE.
00632  M01S00038.271l750 +++|*
00633  M01S00039.271l750 +++|*         ENTRY  (CSCL) = 0.
00634  M01S00040.271l750 +++|*
00635  M01S00041.271l750 +++|*         EXIT   TO *PLP* IF PRINT OPTION SPECIFIED OR IF ERRORS
00636  M01S00042.271l750 +++|*                         ENCOUNTERED.
00637  M01S00043.271l750 +++|*                TO *END* IF END OF INPUT FILE ENCOUNTERED.
00638  M01S00044.271l750 +++|*
00639  M01S00045.271l750 +++|*         USES   X -  1, 2, 6.
00640  M01S00046.271l750 +++|*                A -  1, 2, 6.
00641  M01S00047.271l750 +++|*
00642  M01S00048.271l750 +++|*         CALLS  CMP, EFP, END.
00643  M01S00049.271l750 +++|*
00644  M01S00050.271l750 +++|*         MACROS MESSAGE, READ, READC.
00645  M01S00051.271l750 +++|
00646  M01S00052.271l750 +++|
00647  M01S00053.271l750 +++| PIN      BSS    0           ENTRY
00648  M01S00054.271l750 +++|          READ   INPUT       INITIALIZE READ
00649  M01S00055.271l750 +++| PIN1     READC  INPUT,IBUF,LIML       READ NEXT LINE
00650  M01S00056.271l750 +++|          NZ     X1,PIN3     IF END OF INPUT
00651  M01S00057.271l750 +++|          RJ     CMP         COMMAND PROCESSOR
00652  M01S00058.271l750 +++|          SA2    EMOR        CHECK FOR ERROR
00653  M01S00059.271l750 +++|          NZ     X2,PIN2     IF ERROR
00654  M01S00060.271l750 +++|          RJ     EFP         EXECUTE FUNCTION PROCESSOR
00655  M01S00061.271l750 +++|          SA2    EMOR        CHECK FOR ERROR
00656  M01S00062.271l750 +++|          ZR     X2,PIN1     IF NO ERROR
00657  M01S00063.271l750 +++| PIN2     BX6    X2
00658  M01S00064.271l750 +++|          SA6    PINA        SET ERROR ENCOUNTERED
00659  M01S00065.271l750 +++|          MESSAGE TMLD+X2    POST ERROR
00660  M01S00066.271l750 +++|          MESSAGE IBUF       POST ORIGINAL LINE
00661  M01S00067.271l750 +++|          EQ     PIN1        GET NEXT DIRECTIVE
00662  M01S00068.271l750 +++|
00663  M01S00069.271l750 +++| PIN3     SA1    PINA        CHECK FOR ERRORS
00664  M01S00070.271l750 +++|          SA2    LFLG        CHECK FOR OUTPUT DESIRED
00665  M01S00071.271l750 +++|          MX6    0
00666  M01S00072.271l750 +++|          BX1    X1+X2
00667  M01S00073.271l750 +++|          SA6    CSCL
00668  M01S00074.271l750 +++|          NZ     X1,PLP      IF LINE PRINTER OUTPUT NEEDED
00669  M01S00075.271l750 +++|          RJ     END
00670  M01S00076.271l750 +++|*         ENDRUN
00671  M01S00077.271l750 +++|
00672  M01S00078.271l750 +++|
00673  M01S00079.271l750 +++| PINA     BSSZ   1           .NZ. IF ERROR ENCOUNTERED
00674  M00S00579.sdsplay +++| PLP      SPACE  4,15
00675  M00S00580.sdsplay +++|**        PLP - PROCESS LINE PRINTER.
00676  M00S00581.sdsplay +++|*
00677  M00S00582.sdsplay +++|*         *PLP* FORMATS AND OUTPUTS ALL DATA DISPLAYS TO A LOCAL FILE
00678  M00S00583.sdsplay +++|*         FOR PRINTING ON A LINE PRINTER.
00679  M00S00584.sdsplay +++|*
00680  M00S00585.sdsplay +++|*         ENTRY  (CSCL) = 0.
00681  M00S00586.sdsplay +++|*
00682  M00S00587.sdsplay +++|*         EXIT   DATA FORMATTED ON LOCAL FILE.
00683  M00S00588.sdsplay +++|*
00684  M00S00589.sdsplay +++|*         USES   X - 1, 2, 3, 6.
00685  M00S00590.sdsplay +++|*                A - 1, 6.
00686  M00S00591.sdsplay +++|*
00687  M00S00592.sdsplay +++|*         CALLS  FLD, GSD, SDT.
00688  M00S00593.sdsplay +++|*
00689  M00S00594.sdsplay +++|*         MACROS ENDRUN, MESSAGE, SETFS, SETJOB, WRITER.
00690  M00S00595.sdsplay +++|
00691  M00S00596.sdsplay +++|
00692  M00S00597.sdsplay +++| PLP      BSS    0           ENTRY
00693  M00S00598.sdsplay +++|
00694  M00S00599.sdsplay +++|*         INITIALIZE DATA BUFFERS.
00695  M00S00600.sdsplay +++|
00696  M00S00601.sdsplay +++|          RJ     GSD         GET SYSTEM SERVICE CLASS DATA
00697  M00S00602.sdsplay +++|
00698  M00S00603.sdsplay +++|*         LOOP THROUGH ALL SERVICE CLASSES.
00699  M00S00604.sdsplay +++|
00700  M00S00605.sdsplay +++| PLP1     RJ     SDT         SET DATA IN TEMPLATE
00701  M00S00606.sdsplay +++|          SX1    LPHR        FWA OF PAGE TO DISPLAY
00702  M00S00607.sdsplay +++|          SX2    OUTPUT      SET FET ADDRESS
00703  M00S00608.sdsplay +++|          SX3    B1+         INDICATE ZERO BYTE TERMINATED LINES

Seq #  *Modification Id* Act 
----------------------------+
00704  M01S00609.271l716 ---|          SX6    X1+LPHRL+ASCAL-1  LWA OF PAGE TO DISPLAY
00705  M01S00610.271l716 ---|          RJ     FLD         FORMAT *L* DISPLAY BUFFER
00706  M01S00611.271l716 ---|          WRITER OUTPUT      FLUSH BUFFER
00707  M01S00612.271l716 ---|          SX1    ASCB        PAGE 2 OF DATA
00708  M01S00613.271l716 ---|          SX3    B1+
00709  M01S00614.271l716 ---|          SX6    ASCB+ASCBL-1
00710  M01S00615.271l716 ---|          RJ     FLD         FORMAT *L* DISPLAY BUFFER
00711  M01S00616.271l716 ---|          WRITER OUTPUT
00712  M01S00617.271l716 ---|          SX1    ASCC        PAGE 3 OF DATA
00713  M01S00618.271l716 ---|          SX3    B1+
00714  M01S00619.271l716 ---|          SX6    ASCC+ASCCL-1
00715  M01S00620.271l716 ---|          RJ     FLD         FORMAT *L* DISPLAY BUFFER
00716  M01S00621.271l716 ---|          WRITER OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00015.271l716 +++|          SX6    X1+LPHRL+SCA1L-1  LWA OF PAGE TO DISPLAY
00718  M01S00016.271l716 +++|          RJ     FLD         FORMAT *L* DISPLAY BUFFER
00719  M01S00017.271l716 +++|          WRITER X2          FLUSH BUFFER
00720  M01S00018.271l716 +++|          SX1    SCA2        PAGE 2 OF DATA
00721  M01S00019.271l716 +++|          SX3    1
00722  M01S00020.271l716 +++|          SX6    SCA2+SCA2L-1
00723  M01S00021.271l716 +++|          RJ     FLD         FORMAT *L* DISPLAY BUFFER
00724  M01S00022.271l716 +++|          WRITER X2
00725  M01S00023.271l716 +++|          SX1    SCA3        PAGE 3 OF DATA
00726  M01S00024.271l716 +++|          SX3    1
00727  M01S00025.271l716 +++|          SX6    SCA3+SCA3L-1
00728  M01S00026.271l716 +++|          RJ     FLD         FORMAT *L* DISPLAY BUFFER
00729  M01S00027.271l716 +++|          WRITER X2
00730  M00S00622.sdsplay +++|          SA1    CSCL        GET SERVICE CLASS ORDINAL
00731  M00S00623.sdsplay +++|          SX6    X1+B1       INCREMENT TO NEXT SERVICE CLASS
00732  M00S00624.sdsplay +++|          SA6    A1
00733  M00S00625.sdsplay +++|          SX2    X6-MXJC+1
00734  M00S00626.sdsplay +++|          NZ     X2,PLP1     IF MORE SERVICE CLASSES TO PROCESS
00735  M00S00627.sdsplay +++|
00736  M00S00628.sdsplay +++|*         SET JOB PARAMETERS.
00737  M00S00629.sdsplay +++|
00738  M00S00630.sdsplay +++| PLP2     SETFS  OUTPUT,0    SAVE OUTPUT AS LOCAL FILE
00739  M00S00631.sdsplay +++|          SETJOB SETB        CHANGE JOB DISPOSITION TO *DF*
00740  M00S00632.sdsplay +++|          MESSAGE  SEND,0,R  * SDSPLAY UTILITY COMPLETE.*
00741  M00S00633.sdsplay +++|          ENDRUN
00742  M00S00634.sdsplay +++|          TITLE  FUNCTION PROCESSORS.
00743  M00S00635.sdsplay +++| CLS      SPACE  4,15
00744  M00S00636.sdsplay +++|**        CLS - PROCESS *CLASS* COMMAND.
00745  M00S00637.sdsplay +++|*
00746  M00S00638.sdsplay +++|*         ENTRY  (X1) = SEPARATOR EXIT CONDITION FROM *POP*.
00747  M00S00639.sdsplay +++|*                (B6) = EXIT CONDITION FROM *POP*.
00748  M00S00640.sdsplay +++|*
00749  M00S00641.sdsplay +++|*         EXIT   (CSCL) = UPDATED SERVICE CLASS ORDINAL, IF NO ERROR.
00750  M00S00642.sdsplay +++|*                (CLDS) = CURRENT *L* DISPLAY SCREEN STATUS.
00751  M00S00643.sdsplay +++|*                THE DATA FOR THE SPECIFIED SERVICE CLASS IS SET INTO
00752  M00S00644.sdsplay +++|*                THE TEMPLATES.
00753  M00S00645.sdsplay +++|*
00754  M00S00646.sdsplay +++|*         USES   X - 1, 6.
00755  M00S00647.sdsplay +++|*                A - 1, 6.
00756  M00S00648.sdsplay +++|*
00757  M00S00649.sdsplay +++|*         CALLS  POP, RPN, SDT.
00758  M00S00650.sdsplay +++|
00759  M00S00651.sdsplay +++|
00760  M00S00652.sdsplay +++| CLS3     SX6    EEXP        *EXCESS PARAMETERS.*
00761  M00S00653.sdsplay +++|          SA6    EMOR        SET MESSAGE ORDINAL
00762  M00S00654.sdsplay +++|          EQ     CLSX        RETURN
00763  M00S00655.sdsplay +++|
00764  M00S00656.sdsplay +++| CLS4     SX6    EUKC        *UNKNOWN SERVICE CLASS.*
00765  M00S00657.sdsplay +++|          SA6    EMOR
00766  M00S00658.sdsplay +++|          EQ     CLSX        RETURN
00767  M00S00659.sdsplay +++|
00768  M00S00660.sdsplay +++| CLS5     SX6    EURD        *UNRECOGNIZABLE DIRECTIVE.*
00769  M00S00661.sdsplay +++|          SA6    EMOR
00770  M00S00662.sdsplay +++|
00771  M00S00663.sdsplay +++|
00772  M00S00664.sdsplay +++| CLS      SUBR               ENTRY/EXIT
00773  M00S00665.sdsplay +++|          ZR     B6,CLS5     IF NO MORE PARAMETERS ON COMMAND
00774  M00S00666.sdsplay +++|          SX1    X1-1R=
00775  M00S00667.sdsplay +++|          NZ     X1,CLS5     IF INCORRECT SEPARATOR
00776  M00S00668.sdsplay +++|          RJ     POP         GET SERVICE CLASS PARAMETER
00777  M00S00669.sdsplay +++|          PL     X2,CLS3     IF NO TERMINATOR, ECXESS PARAMETERS.
00778  M00S00670.sdsplay +++|
00779  M00S00671.sdsplay +++|*         CHECK SERVICE CLASS TABLE FOR A MATCH.
00780  M00S00672.sdsplay +++|
00781  M00S00673.sdsplay +++|          SA1    TSCT        FWA SERVICE CLASS TABLE
00782  M00S00674.sdsplay +++| CLS1     ZR     X1,CLS4     IF UNKNOWN SERVICE CLASS
00783  M00S00675.sdsplay +++|          BX1    X6-X1
00784  M00S00676.sdsplay +++|          ZR     X1,CLS2     IF A VALID SERVICE CLASS IS FOUND
00785  M00S00677.sdsplay +++|          SA1    A1+1        GET NEXT ENTRY IN SERVICE CLASS TABLE
00786  M00S00678.sdsplay +++|          EQ     CLS1        CHECK NEXT ENTRY
00787  M00S00679.sdsplay +++|
00788  M00S00680.sdsplay +++|*         SET SERVICE CLASS TO BE DISPLAYED.
00789  M00S00681.sdsplay +++|
00790  M00S00682.sdsplay +++| CLS2     SX6    A1-TSCT     SET SERVICE CLASS ORDINAL
00791  M00S00683.sdsplay +++|          SA6    CSCL
00792  M00S00684.sdsplay +++|          SX6    SDTA        SET CURRENT SCREEN STATUS TO DATA
00793  M00S00685.sdsplay +++|          SA6    CLDS
00794  M00S00686.sdsplay +++|          RJ     SDT         SET DATA IN TEMPLATE
00795  M00S00687.sdsplay +++|          RJ     RPN         RESET PAGE NUMBER
00796  M00S00688.sdsplay +++|          EQ     CLSX        RETURN
00797  M00S00689.sdsplay +++| END      SPACE  4,10
00798  M00S00690.sdsplay +++|**        END - END *L* DISPLAY UTILITY.
00799  M00S00691.sdsplay +++|*
00800  M00S00692.sdsplay +++|*         *END* TERMINATES THE UTILITY WITH A DAYFILE MESSAGE.
00801  M00S00693.sdsplay +++|*
00802  M00S00694.sdsplay +++|*         USES   X - 6.
00803  M00S00695.sdsplay +++|*                A - 6.
00804  M00S00696.sdsplay +++|*
00805  M00S00697.sdsplay +++|*         CALLS  BLD, OLD.
00806  M00S00698.sdsplay +++|*
00807  M00S00699.sdsplay +++|*         MACROS DSDINP, ENDRUN, MESSAGE.
00808  M00S00700.sdsplay +++|
00809  M00S00701.sdsplay +++|
00810  M00S00702.sdsplay +++| END      SUBR               ENTRY/EXIT
00811  M00S00703.sdsplay +++|          SX6    ENDM        *UTILITY COMPLETE.*
00812  M00S00704.sdsplay +++|          SA6    EMOR        SET MESSAGE ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
00813  M01S00080.271l750 +++|          SA1    DFLG
00814  M01S00081.271l750 +++|          NZ     X1,END1     IF INPUT DIRECTIVES
00815  M00S00705.sdsplay +++|          RJ     BLD
00816  M00S00706.sdsplay +++|          RJ     OLD         OUTPUT *L* DISPLAY
00817  M00S00707.sdsplay +++|          DSDINP IPW,C       CLEAR *L* DISPLAY INPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00818  M01S00708.271l750 ---|          MESSAGE  SEND,0,R  * SDSPLAY UTILITY COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
00819  M01S00082.271l750 +++| END1     MESSAGE  SEND,0,R  * SDSPLAY UTILITY COMPLETE.*
00820  M00S00709.sdsplay +++|          ENDRUN
00821  M00S00710.sdsplay +++| HLP      SPACE  4,10
00822  M00S00711.sdsplay +++|**        HLP - PROCESS *HELP* COMMAND.
00823  M00S00712.sdsplay +++|*
00824  M00S00713.sdsplay +++|*         EXIT   (CLDS) = *HELP* DISPLAY SCREEN STATUS.
00825  M00S00714.sdsplay +++|*                *HELP* DISPLAY RESET TO PAGE 1.
00826  M00S00715.sdsplay +++|*
00827  M00S00716.sdsplay +++|*         USES   X - 6.
00828  M00S00717.sdsplay +++|*                A - 6.
00829  M00S00718.sdsplay +++|*
00830  M00S00719.sdsplay +++|*         CALLS  RPN.
00831  M00S00720.sdsplay +++|
00832  M00S00721.sdsplay +++|
00833  M00S00722.sdsplay +++| HLP      SUBR               ENTRY/EXIT
00834  M00S00723.sdsplay +++|          SX6    SHLP        SET *HELP* DISPLAY SCREEN STATUS
00835  M00S00724.sdsplay +++|          SA6    CLDS
00836  M00S00725.sdsplay +++|          RJ     RPN         RESET PAGE NUMBER
00837  M00S00726.sdsplay +++|          EQ     HLPX        RETURN
00838  M00S00727.sdsplay +++| PGO      SPACE  4,20
00839  M00S00728.sdsplay +++|**        PGO - PROCESS *GO* COMMAND.
00840  M00S00729.sdsplay +++|*
00841  M00S00730.sdsplay +++|*         *PGO* PERFORMS CERTAIN DATA VALIDATIONS, THEN IF THERE ARE
00842  M00S00731.sdsplay +++|*         NO ERRORS, SETS ALL KEYWORD VALUES ENTERED SINCE THE LAST
00843  M00S00732.sdsplay +++|*         *GO* OR *RESET* INTO CMR.
00844  M00S00733.sdsplay +++|*
00845  M00S00734.sdsplay +++|*         ENTRY  (SBUF) = UPDATED *JCB* DATA.
00846  M00S00735.sdsplay +++|*
00847  M00S00736.sdsplay +++|*         EXIT   *JCB* IN CMR UPDATED, IF NO ERROR DETECTED.
00848  M00S00737.sdsplay +++|*
00849  M00S00738.sdsplay +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00850  M00S00739.sdsplay +++|*                A - 1, 2, 5, 7.
00851  M00S00740.sdsplay +++|*                B - 2, 5.
00852  M00S00741.sdsplay +++|*
00853  M00S00742.sdsplay +++|*         CALLS  CVB, SSM.
00854  M00S00743.sdsplay +++|*
00855  M00S00744.sdsplay +++|*         MACROS SYSTEM.
00856  M00S00745.sdsplay +++|
00857  M00S00746.sdsplay +++|
00858  M00S00747.sdsplay +++|*         SET *LOWER BOUND IS .GE. UPPER BOUND FOR CLASS XX.* ERROR.
00859  M00S00748.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
00860  M01S00749.271l716 ---| PGO3     SB2    ELGU        SET MESSAGE ORDINAL
00861  M01S00750.271l716 ---|          SA1    TMLD+4+B2   SET WORD TO MODIFY
00862  M01S00751.271l716 ---|          SX2    B5-1        SET SERVICE CLASS ORDINAL FOR MESSAGE
00863  M01S00752.271l716 ---|          RJ     SSM         SET SERVICE CLASS IN MESSAGE
00864  M01S00753.271l716 ---|          EQ     PGOX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00028.271l750 ---| PGO3     SX6    ELGU

Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00083.271l750 +++| PGO3     SX0    ELGU

Seq #  *Modification Id* Act 
----------------------------+
00867  M01S00029.271l716 +++|          EQ     PGO5        PROCESS ERROR MESSAGE
00868  M00S00754.sdsplay +++|
00869  M00S00755.sdsplay +++|*         SET *YYYY NOT WITHIN ALLOWABLE RANGE FOR CLASS XX.* ERROR.
00870  M00S00756.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
00871  M01S00757.271l716 ---| PGO4     MX0    -36
00872  M01S00758.271l716 ---|          SA1    TMLD+EVOR   SET VALUE IN MESSAGE
00873  M01S00759.271l716 ---|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00874  M01S00030.271l716 +++| PGO4     SA1    TMLD+EVOR   INSERT VALUE IN MESSAGE
00875  M01S00031.271l716 +++|          MX0    -36
00876  M01S00032.271l716 +++|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00033.271l750 ---|          SX6    EVOR        DEFINE MESSAGE INDEX

Seq #  *Modification Id* Act 
----------------------------+
00878  M01S00084.271l750 +++|          SX0    EVOR        DEFINE MESSAGE INDEX
00879  M00S00760.sdsplay +++|          BX7    X5+X1
00880  M00S00761.sdsplay +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00762.271l716 ---|          SB2    EVOR        SET MESSAGE ORDINAL
00882  M01S00763.271l716 ---|          SA1    A1+4        SET WORD IN MESSAGE TO MODIFY
00883  M01S00764.271l716 ---|          SX2    B5-1
00884  M01S00765.271l716 ---|          RJ     SSM         SET SERVICE CLASS IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00885  M01S00034.271l716 +++| PGO5     RJ     SSM         SET SERVICE CLASS IN MESSAGE
00886  M01S00035.271l716 +++|          EQ     PGOX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00887  M01S00085.271l750 +++|
00888  M01S00086.271l750 +++|*         SET /*RS* IS GREATER THAN *US* FOR CLASS XX./ ERROR.
00889  M01S00087.271l750 +++|
00890  M01S00088.271l750 +++| PGO6     SX0    ERGU
00891  M01S00089.271l750 +++|          EQ     PGO5        PROCESS ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00892  M01S00036.271l716 +++|
00893  M01S00037.271l716 +++|*         SET VALIDATED VALUES INTO CMR.
00894  M01S00038.271l716 +++|
00895  M01S00039.271l716 +++| PGO7     SYSTEM SFM,R,SFMB,RSDF*100B  SET SYSTEM VALUES IN CMR
00896  M00S00766.sdsplay +++|
00897  M00S00767.sdsplay +++| PGO      SUBR               ENTRY/EXIT
00898  M00S00768.sdsplay +++|
00899  M00S00769.sdsplay +++|*         ENSURE ALL *LP* VALUES ARE LESS THAN ALL *UP* VALUES.
00900  M00S00770.sdsplay +++|
00901  M00S00771.sdsplay +++|          MX0    -12
00902  M00S00772.sdsplay +++|          SB2    SBUF        SET FWA SYSTEM BUFFER
00903  M00S00773.sdsplay +++|          SB5    B0          INITIALIZE *JCB* OFFSET
00904  M00S00774.sdsplay +++| PGO1     SB5    B5+1        SET NEXT SERVICE CLASS ORDINAL
00905  M00S00775.sdsplay +++|          SX2    B5-MXJC

Seq #  *Modification Id* Act 
----------------------------+
00906  M01S00776.271l716 ---|          ZR     X2,PGO2     IF END OF SERVICE CLASSES

Seq #  *Modification Id* Act 
----------------------------+
00907  M01S00040.271l716 +++|          ZR     X2,PGO7     IF END OF SERVICE CLASSES
00908  M00S00777.sdsplay +++|          SA2    B2+INQT     CHECK INPUT QUEUE
00909  M00S00778.sdsplay +++|          RJ     CVB         CALCULATE VALUE BOUNDARIES
00910  M00S00779.sdsplay +++|          NG     X1,PGO3     IF BOUNDS ERROR
00911  M00S00780.sdsplay +++|          SA2    B2+OTQT     CHECK OUTPUT QUEUE
00912  M00S00781.sdsplay +++|          RJ     CVB         CALCULATE VALUE BOUNDARIES
00913  M00S00782.sdsplay +++|          NG     X1,PGO3     IF BOUNDS ERROR
00914  M00S00783.sdsplay +++|          SA2    B2+EXQT     CHECK EXECUTION QUEUE
00915  M00S00784.sdsplay +++|          RJ     CVB         CALCULATE VALUE BOUNDARIES
00916  M00S00785.sdsplay +++|          NG     X1,PGO3     IF BOUNDS ERROR
00917  M00S00786.sdsplay +++|          SA5    PGOA        SET *EXIL* FOR MESSAGE
00918  M00S00787.sdsplay +++|          LX2    -12         CHECK *EXIL* VALUE
00919  M00S00788.sdsplay +++|          BX1    -X0*X2
00920  M00S00789.sdsplay +++|          IX6    X4-X1
00921  M00S00790.sdsplay +++|          LX2    -12         CHECK *EXIP* VALUE
00922  M00S00791.sdsplay +++|          NG     X6,PGO4     IF *EXIL* IS GREATER THAN *EXUP*
00923  M00S00792.sdsplay +++|          IX6    X1-X3
00924  M00S00793.sdsplay +++|          BX1    -X0*X2
00925  M00S00794.sdsplay +++|          NG     X6,PGO4     IF *EXIL* IS LESS THAN *EXLP*
00926  M00S00795.sdsplay +++|          SA5    A5+B1       SET *EXIP* FOR MESSAGE
00927  M00S00796.sdsplay +++|          IX6    X4-X1
00928  M00S00797.sdsplay +++|          NG     X6,PGO4     IF *EXIP* IS GREATER THAN *EXUP*
00929  M00S00798.sdsplay +++|          IX6    X1-X3
00930  M00S00799.sdsplay +++|          NG     X6,PGO4     IF *EXIP* IS LESS THAN *EXUP*

Seq #  *Modification Id* Act 
----------------------------+
00931  M01S00041.271l716 +++|          SX1    B5-TSSC
00932  M01S00042.271l716 +++|          NZ     X1,PGO2     IF NOT TIME-SHARING SERVICE CLASS
00933  M00S00800.sdsplay +++|          SA2    B2+MCMT     CHECK *EXTP* VALUE
00934  M00S00801.sdsplay +++|          LX2    24
00935  M00S00802.sdsplay +++|          BX1    -X0*X2
00936  M00S00803.sdsplay +++|          SA5    A5+B1       SET *EXTP* FOR MESSAGE
00937  M00S00804.sdsplay +++|          IX6    X4-X1

Seq #  *Modification Id* Act 
----------------------------+
00938  M01S00805.271l716 ---|          NG     X6,PGO4     IF *EXTP* IS LESS THAN *EXLP*
00939  M01S00806.271l716 ---|          IX6    X1-X3
00940  M01S00807.271l716 ---|          NG     X6,PGO4     IF *EXTP* IS LESS THAN *EXLP*

Seq #  *Modification Id* Act 
----------------------------+
00941  M01S00043.271l716 +++|          NG     X6,PGO4     IF *EXTP* IS GREATER THAN *EXLP*
00942  M01S00044.271l716 +++|          IX6    X1-X3

Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00045.271l750 ---| PGO2     NG     X6,PGO4     IF *EXTP* IS LESS THAN *EXLP*

Seq #  *Modification Id* Act 
----------------------------+
00944  M01S00090.271l750 +++|          NG     X6,PGO4     IF *EXTP* IS LESS THAN *EXLP*
00945  M01S00091.271l750 +++| PGO2     SA2    B2+CSJT     GET *US* VALUE
00946  M01S00092.271l750 +++|          BX1    -X0*X2
00947  M01S00093.271l750 +++|          LX2    -12
00948  M01S00094.271l750 +++|          BX3    -X0*X2      GET *RS* VALUE
00949  M01S00095.271l750 +++|          IX6    X1-X3
00950  M01S00096.271l750 +++|          NG     X6,PGO6     IF *RS* .GT. *US*
00951  M00S00808.sdsplay +++|          SB2    B2+JCBE     NEXT SERVICE CLASS ORDINAL
00952  M00S00809.sdsplay +++|          EQ     PGO1        CHECK BOUNDS FOR NEXT SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00810.271l716 ---|
00954  M01S00811.271l716 ---|*         SET VALIDATED VALUES INTO CMR.
00955  M01S00812.271l716 ---|
00956  M01S00813.271l716 ---| PGO2     SYSTEM SFM,R,SFMB,RSDF*100B  SET SYSTEM VALUES IN CMR
00957  M01S00814.271l716 ---|          EQ     PGOX        RETURN
00958  M00S00815.sdsplay +++|
00959  M00S00816.sdsplay +++|
00960  M00S00817.sdsplay +++| PGOA     DATA   0LEXIL      INSERT INTO MESSAGE IF ERROR
00961  M00S00818.sdsplay +++|          DATA   0LEXIP
00962  M00S00819.sdsplay +++|          DATA   0LEXTP
00963  M00S00820.sdsplay +++| PLD      SPACE  4,15
00964  M00S00821.sdsplay +++|**        PLD - PAGE *L* DISPLAY.
00965  M00S00822.sdsplay +++|*
00966  M00S00823.sdsplay +++|*         ENTRY  (X1) = PAGING CHARACTER RIGHT JUSTIFIED.
00967  M00S00824.sdsplay +++|*                (CLDS) = CURRENT *L* DISPLAY SCREEN STATUS.
00968  M00S00825.sdsplay +++|*
00969  M00S00826.sdsplay +++|*         EXIT   APPROPRIATE PAGE TABLE UPDATED.
00970  M00S00827.sdsplay +++|*
00971  M00S00828.sdsplay +++|*         USES   X - 1, 2, 3, 4.
00972  M00S00829.sdsplay +++|*                A - 3.
00973  M00S00830.sdsplay +++|*
00974  M00S00831.sdsplay +++|*         CALLS  PGD.
00975  M00S00832.sdsplay +++|
00976  M00S00833.sdsplay +++|
00977  M00S00834.sdsplay +++| PLD      SUBR               ENTRY/EXIT
00978  M00S00835.sdsplay +++|          SX2    THLP        ASSUME *HELP* PAGE TABLE
00979  M00S00836.sdsplay +++|          SA3    CLDS
00980  M00S00837.sdsplay +++|          SX3    X3-SHLP
00981  M00S00838.sdsplay +++|          ZR     X3,PLD1     IF *HELP* STATUS
00982  M00S00839.sdsplay +++|          SX2    TASC        SET DATA PAGE TABLE
00983  M00S00840.sdsplay +++| PLD1     LX1    54          LEFT JUSTIFY PAGING CHARACTER
00984  M00S00841.sdsplay +++|          BX3    X1
00985  M00S00842.sdsplay +++|          SX1    LDBP        *L* DISPLAY BUFFER POINTER FOR *PGD*
00986  M00S00843.sdsplay +++|          SX4    B1+         INDICATE *L* DISPLAY
00987  M00S00844.sdsplay +++|          RJ     PGD         PAGE *L* DISPLAY
00988  M00S00845.sdsplay +++|          EQ     PLDX        RETURN
00989  M00S00846.sdsplay +++|
00990  M00S00847.sdsplay +++|
00991  M00S00848.sdsplay +++| PGD      HERE               REMOTE BLOCK FROM *COMCDCP*
00992  M00S00849.sdsplay +++| RST      SPACE  4,10
00993  M00S00850.sdsplay +++|**        RST - *RESET* DISPLAY TO SYSTEM VALUES.
00994  M00S00851.sdsplay +++|*
00995  M00S00852.sdsplay +++|*         ENTRY  (CSCL) = CURRENT SERVICE CLASS ORDINAL.
00996  M00S00853.sdsplay +++|*
00997  M00S00854.sdsplay +++|*         EXIT   TEMPLATE UPDATED TO CURRENT SYSTEM DATA.
00998  M00S00855.sdsplay +++|*
00999  M00S00856.sdsplay +++|*         CALLS  GSD, SDT.
01000  M00S00857.sdsplay +++|
01001  M00S00858.sdsplay +++|
01002  M00S00859.sdsplay +++| RST      SUBR               ENTRY/EXIT
01003  M00S00860.sdsplay +++|          RJ     GSD         GET SYSTEM DATA
01004  M00S00861.sdsplay +++|          RJ     SDT         SET DATA IN TEMPLATE
01005  M00S00862.sdsplay +++|          EQ     RSTX        RETURN
01006  M00S00863.sdsplay +++|          TITLE  SUBROUTINES.
01007  M00S00864.sdsplay +++| AFT      SPACE  4,20
01008  M00S00865.sdsplay +++|**        AFT - ADD FLOATING TERMINATOR.
01009  M00S00866.sdsplay +++|*
01010  M00S00867.sdsplay +++|*         ENTRY  (X1) = NAME TO HAVE FLOATING TERMINATOR APPENDED.
01011  M00S00868.sdsplay +++|*                (A2) = FWA OF DESTINATION FOR RESULT, IF NAME IS 10
01012  M00S00869.sdsplay +++|*                       CHARACTERS IN LENGTH.
01013  M00S00870.sdsplay +++|*
01014  M00S00871.sdsplay +++|*         EXIT   (X6) = NAME WITH FLOATING TERMINATOR APPENDED.
01015  M00S00872.sdsplay +++|*                (A2) = UPDATED IF NAME IS 10 CHARACTERS IN LENGTH.
01016  M00S00873.sdsplay +++|*
01017  M00S00874.sdsplay +++|*         USES   X - 0, 1, 2, 3, 6, 7.
01018  M00S00875.sdsplay +++|*                A - 1, 2, 3, 6, 7.
01019  M00S00876.sdsplay +++|*                B - 2.
01020  M00S00877.sdsplay +++|*
01021  M00S00878.sdsplay +++|*         CALLS  SFN.
01022  M00S00879.sdsplay +++|*
01023  M00S00880.sdsplay +++|*         NOTES  IF THE NAME IS 10 CHARACTERS IN LENGTH, THE FLOATING
01024  M00S00881.sdsplay +++|*                TERMINATOR WILL BE PLACED IN THE FIRST CHARACTER OF
01025  M00S00882.sdsplay +++|*                THE NEXT WORD.
01026  M00S00883.sdsplay +++|
01027  M00S00884.sdsplay +++|
01028  M00S00885.sdsplay +++| AFT      SUBR               ENTRY/EXIT
01029  M00S00886.sdsplay +++|          RJ     SFN         SPACE FILL NAME
01030  M00S00887.sdsplay +++|          SA1    AFTA        FLOATING TERMINATOR
01031  M00S00888.sdsplay +++|          SB2    6
01032  M00S00889.sdsplay +++|          AX0    X7,B2       PRODUCE MASK FOR FLOATING TERMINATOR
01033  M00S00890.sdsplay +++|          BX0    X7-X0
01034  M00S00891.sdsplay +++|          SA3    TMLD        INSURE LAST WORD CONTAINS BLANKS
01035  M00S00892.sdsplay +++|          BX7    X3
01036  M00S00893.sdsplay +++|          SA7    A2+B1
01037  M00S00894.sdsplay +++|          NZ     X0,AFT1     IF TERMINATOR GOES IN THIS WORD
01038  M00S00895.sdsplay +++|          SA6    A2          SAVE 10 CHARACTER KEYWORD
01039  M00S00896.sdsplay +++|          SA2    A2+B1       SET NEXT WORD FOR FLOATING TERMINATOR
01040  M00S00897.sdsplay +++|          BX6    X2
01041  M00S00898.sdsplay +++|          MX0    6
01042  M00S00899.sdsplay +++| AFT1     BX6    -X0*X6
01043  M00S00900.sdsplay +++|          BX1    X1*X0
01044  M00S00901.sdsplay +++|          BX6    X6+X1       ADD FLOATING TERMINATOR
01045  M00S00902.sdsplay +++|          EQ     AFTX        RETURN
01046  M00S00903.sdsplay +++|
01047  M00S00904.sdsplay +++|
01048  M00S00905.sdsplay +++| AFTA     DATA   10H..........  FLOATING TERMINATOR
01049  M00S00906.sdsplay +++| ATC      SPACE  4,15
01050  M00S00907.sdsplay +++|**        ATC - APPEND TERMINATOR CHARACTER.
01051  M00S00908.sdsplay +++|*
01052  M00S00909.sdsplay +++|*         *ATC* ENSURES THAT THE *L* DISPLAY COMMAND IMAGE HAS A
01053  M00S00910.sdsplay +++|*         TERMINATOR.  THIS ENSURES THAT *POP* WILL NOT RETURN AN
01054  M00S00911.sdsplay +++|*         ERROR CODE DUE TO THE LACK OF A VALID TERMINATOR.
01055  M00S00912.sdsplay +++|*
01056  M00S00913.sdsplay +++|*         ENTRY  (B6) = FWA BUFFER TO CHECK FOR TERMINATOR.
01057  M00S00914.sdsplay +++|*                (USBC) = LWA OF BUFFER TO CHECK FOR TERMINATOR.
01058  M00S00915.sdsplay +++|*
01059  M00S00916.sdsplay +++|*         EXIT   *.* APPENDED TO END OF STRING BUFFER.
01060  M00S00917.sdsplay +++|*
01061  M00S00918.sdsplay +++|*         USES   X - 2, 7.
01062  M00S00919.sdsplay +++|*                A - 2, 7.
01063  M00S00920.sdsplay +++|*                B - 2, 3.
01064  M00S00921.sdsplay +++|
01065  M00S00922.sdsplay +++|
01066  M00S00923.sdsplay +++| ATC      SUBR               ENTRY/EXIT
01067  M00S00924.sdsplay +++|          SB2    B6          SET FWA TO CHECK
01068  M00S00925.sdsplay +++|          SA2    USBC        SET LWA TO CHECK
01069  M00S00926.sdsplay +++|          SB3    X2+B1
01070  M00S00927.sdsplay +++| ATC1     SA2    B2+
01071  M00S00928.sdsplay +++|          ZR     X2,ATC2     IF END OF INPUT
01072  M00S00929.sdsplay +++|          EQ     B2,B3,ATC2  IF BUFFER EXHAUSTED
01073  M00S00930.sdsplay +++|          SB2    B2+1
01074  M00S00931.sdsplay +++|          EQ     ATC1        CHECK NEXT CHARACTER
01075  M00S00932.sdsplay +++|
01076  M00S00933.sdsplay +++|*         APPEND TERMINATOR.
01077  M00S00934.sdsplay +++|
01078  M00S00935.sdsplay +++| ATC2     SA2    A2-1        CHECK IF THERE IS ALREADY A TERMINATOR
01079  M00S00936.sdsplay +++|          SX7    X2-1R.
01080  M00S00937.sdsplay +++|          ZR     X7,ATCX     IF TERMINATOR ALREADY PRESENT
01081  M00S00938.sdsplay +++|          SX7    X2-1R)
01082  M00S00939.sdsplay +++|          ZR     X7,ATCX     IF TERMINATOR ALREADY PRESENT
01083  M00S00940.sdsplay +++|          SX7    1R.         PUT TERMINATOR INTO BUFFER
01084  M00S00941.sdsplay +++|          SA7    A2+1
01085  M00S00942.sdsplay +++|          SA2    USBC        INCREMENT LWA CHARACTER IN STRING BUFFER
01086  M00S00943.sdsplay +++|          SX7    X2+B1
01087  M00S00944.sdsplay +++|          SA7    A2
01088  M00S00945.sdsplay +++|          EQ     ATCX        RETURN
01089  M00S00946.sdsplay +++| BLD      SPACE  4,20
01090  M00S00947.sdsplay +++|**        BLD - BUILD *L* DISPLAY.
01091  M00S00948.sdsplay +++|*
01092  M00S00949.sdsplay +++|*         *BLD* FORMATS THE CURRENT SCREEN FOR OUTPUT TO THE CONSOLE
01093  M00S00950.sdsplay +++|*         *L* DISPLAY.
01094  M00S00951.sdsplay +++|*
01095  M00S00952.sdsplay +++|*         ENTRY  (CLDS) = CURRENT *L* DISPLAY SCREEN STATUS.
01096  M00S00953.sdsplay +++|*                (EMOR) = *L* DISPLAY MESSAGE INDEX.
01097  M00S00954.sdsplay +++|*
01098  M00S00955.sdsplay +++|*         EXIT   (LBUF) = FORMATTED *L* DISPLAY BUFFER.
01099  M00S00956.sdsplay +++|*
01100  M00S00957.sdsplay +++|*         USES   X - 1, 2, 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01101  M01S00958.sdspl1  ---|*                A - 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00001.sdspl1  +++|*                A - 1, 2, 3, 6.
01103  M00S00959.sdsplay +++|*                B - 2, 3, 4, 6.
01104  M00S00960.sdsplay +++|*
01105  M00S00961.sdsplay +++|*         CALLS  COI, FLB.
01106  M00S00962.sdsplay +++|*
01107  M00S00963.sdsplay +++|*         MACROS MOVE.
01108  M00S00964.sdsplay +++|
01109  M00S00965.sdsplay +++|
01110  M00S00966.sdsplay +++| BLD      SUBR               ENTRY/EXIT
01111  M00S00967.sdsplay +++|          SA2    CLDS        GET CURRENT SCREEN STATUS
01112  M00S00968.sdsplay +++|          RJ     COI         CONVERT OPERATOR INPUT
01113  M00S00969.sdsplay +++|          SA1    THLP        FWA OF *HELP* PAGE TABLE

Seq #  *Modification Id* Act 
----------------------------+
01114  M01S00002.sdspl1  +++|          SA3    LFWA        GET *L-DISPLAY* CONTROL WORD
01115  M01S00003.sdspl1  +++|          SX6    LHLP        *SDSPLAY - HELP.*
01116  M01S00004.sdspl1  +++|          MX5    42
01117  M01S00005.sdspl1  +++|          LX5    12
01118  M00S00970.sdsplay +++|          SX2    X2-SHLP
01119  M00S00971.sdsplay +++|          ZR     X2,BLD1     IF *HELP* STATUS
01120  M00S00972.sdsplay +++|          SA1    TASC        FWA OF DATA PAGE TABLE

Seq #  *Modification Id* Act 
----------------------------+
01121  M01S00006.sdspl1  +++|          SX6    LCLS        *SDSPLAY - CLASS.*

Seq #  *Modification Id* Act 
----------------------------+
01122  M01S00973.sdspl1  ---| BLD1     LX1    30

Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00007.sdspl1  +++| BLD1     LX6    12          SET FWA OF DISPLAY ID STRING
01124  M01S00008.sdspl1  +++|          BX5    X5*X3
01125  M01S00009.sdspl1  +++|          BX6    X6+X5
01126  M01S00010.sdspl1  +++|          LX1    30
01127  M01S00011.sdspl1  +++|          SA6    A3
01128  M00S00974.sdsplay +++|          SB2    X1
01129  M00S00975.sdsplay +++|          SA1    A1+B2       GET FWA OF TEMPLATE TO DISPLAY
01130  M00S00976.sdsplay +++|          SX5    X1          SAVE FWA OF TEMPLATE TO DISPLAY
01131  M00S00977.sdsplay +++|          SA2    EMOR        MESSAGE ORDINAL
01132  M00S00978.sdsplay +++|          MOVE   LDML,TMLD+X2,X5+LDMO  SET MESSAGE INTO TEMPLATE
01133  M00S00979.sdsplay +++|          MOVE   LIML,IBUF,X5+LDMO+LDML  SET INPUT LINE INTO TEMPLATE
01134  M00S00980.sdsplay +++|          SX1    X5          FWA OF BUFFER TO FORMAT
01135  M00S00981.sdsplay +++|          SX2    B0          SET FORMAT DESTINATION FOR *L* DISPLAY
01136  M00S00982.sdsplay +++|          SX6    X1+DSPL-1   LWA OF BUFFER TO FORMAT
01137  M00S00983.sdsplay +++|          SX3    B1+         INDICATE ZERO BYTE TERMINATED LINES
01138  M00S00984.sdsplay +++|          SB2    LBUF        FWA TO PLACE FORMATTED DATA
01139  M00S00985.sdsplay +++|          SB6    LBUF+LBUFL  LWA+1 OF BUFFER TO RECEIVE FORMATTED DATA
01140  M00S00986.sdsplay +++|          SB3    XCDT        SET X-COORDINATE FOR *L* DISPLAY
01141  M00S00987.sdsplay +++|          SB4    YCDT        SET Y-COORDINATE FOR *L* DISPLAY
01142  M00S00988.sdsplay +++|          RJ     FLB         FORMAT DATA TO BE OUTPUT
01143  M00S00989.sdsplay +++|          EQ     BLDX        RETURN
01144  M00S00990.sdsplay +++| CJA      SPACE  4,10
01145  M00S00991.sdsplay +++|**        CJA - CALCULATE *JCB* OFFSET.
01146  M00S00992.sdsplay +++|*
01147  M00S00993.sdsplay +++|*         ENTRY  (CSCL) = CURRENT SERVICE CLASS ORDINAL.
01148  M00S00994.sdsplay +++|*
01149  M00S00995.sdsplay +++|*         EXIT   (X5) = FWA OF *JCB* IN *SBUF* FOR CURRENT
01150  M00S00996.sdsplay +++|*                SERVICE CLASS.
01151  M00S00997.sdsplay +++|*
01152  M00S00998.sdsplay +++|*         USES   X - 1, 2, 5.
01153  M00S00999.sdsplay +++|*                A - 1.
01154  M00S01000.sdsplay +++|
01155  M00S01001.sdsplay +++|
01156  M00S01002.sdsplay +++| CJA      SUBR               ENTRY/EXIT
01157  M00S01003.sdsplay +++|          SA1    CSCL        GET CURRENT SERVICE CLASS ORDINAL
01158  M00S01004.sdsplay +++|          SX2    JCBE
01159  M00S01005.sdsplay +++|          IX1    X1*X2       OFFSET INTO *JCB* BUFFER
01160  M00S01006.sdsplay +++|          SX5    X1+SBUF
01161  M00S01007.sdsplay +++|          EQ     CJAX        RETURN
01162  M00S01008.sdsplay +++| CMP      SPACE  4,15
01163  M00S01009.sdsplay +++|**        CMP - COMMAND PROCESSOR.
01164  M00S01010.sdsplay +++|*
01165  M00S01011.sdsplay +++|*         ENTRY  (IBUF) = *L* DISPLAY COMMAND.
01166  M00S01012.sdsplay +++|*
01167  M00S01013.sdsplay +++|*         EXIT   (X1) = SEPARATOR FROM *POP*.
01168  M00S01014.sdsplay +++|*                     = LEFT JUSTIFIED PAGING CHARACTER, IF PAGING
01169  M00S01015.sdsplay +++|*                       COMMAND.
01170  M00S01016.sdsplay +++|*                (B5) = FUNCTION PROCESSOR ADDRESS, IF NO ERROR.
01171  M00S01017.sdsplay +++|*                (EMOR) = *L* DISPLAY MESSAGE ORDINAL.
01172  M00S01018.sdsplay +++|*
01173  M00S01019.sdsplay +++|*         USES   X - 0, 2, 3, 6.
01174  M00S01020.sdsplay +++|*                A - 2, 6.
01175  M00S01021.sdsplay +++|*                B - 2, 5.
01176  M00S01022.sdsplay +++|*
01177  M00S01023.sdsplay +++|*         CALLS  ATC, POP, USB.
01178  M00S01024.sdsplay +++|
01179  M00S01025.sdsplay +++|
01180  M00S01026.sdsplay +++| CMP5     SX6    EURD        *UNRECOGNIZABLE DIRECTIVE.*
01181  M00S01027.sdsplay +++|          SA6    EMOR        SET MESSAGE ORDINAL
01182  M00S01028.sdsplay +++|          EQ     CMPX        RETURN
01183  M00S01029.sdsplay +++|
01184  M00S01030.sdsplay +++| CMP6     SX6    EEXP        *EXCESS PARAMETERS.*
01185  M00S01031.sdsplay +++|          SA6    EMOR

Seq #  *Modification Id* Act 
----------------------------+
01186  M01S01032.271l716 ---|
01187  M00S01033.sdsplay +++|
01188  M00S01034.sdsplay +++| CMP      SUBR               ENTRY/EXIT
01189  M00S01035.sdsplay +++|          SX6    B0+         SET NO ERROR
01190  M00S01036.sdsplay +++|          SA6    EMOR        SET MESSAGE ORDINAL
01191  M00S01037.sdsplay +++|
01192  M00S01038.sdsplay +++|*         CHECK FOR PAGING COMMAND.
01193  M00S01039.sdsplay +++|
01194  M00S01040.sdsplay +++|          SB2    IBUF        FWA COMMAND BUFFER
01195  M00S01041.sdsplay +++|          RJ     USB         UNPACK STRING BUFFER
01196  M00S01042.sdsplay +++|          RJ     ATC         APPEND TERMINATOR CHARACTER
01197  M00S01043.sdsplay +++|          RJ     POP         PICK OUT PARAMETER
01198  M00S01044.sdsplay +++|          NZ     X6,CMP1     IF NOT PAGING COMMAND
01199  M00S01045.sdsplay +++|          SB5    PLD         PAGE *L* DISPLAY
01200  M00S01046.sdsplay +++|          SX2    X1-1R+      CHECK FOR *+*
01201  M00S01047.sdsplay +++|          SX3    X1-1R-      CHECK FOR *-*
01202  M00S01048.sdsplay +++|          ZR     X2,CMPX     IF PAGING CHARACTER
01203  M00S01049.sdsplay +++|          ZR     X3,CMPX     IF PAGING CHARACTER
01204  M00S01050.sdsplay +++|
01205  M00S01051.sdsplay +++|*         CHECK REMAINING COMMANDS.
01206  M00S01052.sdsplay +++|
01207  M00S01053.sdsplay +++| CMP1     SA2    TCMD        FWA COMMAND TABLE
01208  M00S01054.sdsplay +++|          MX0    42          COMMAND MASK
01209  M00S01055.sdsplay +++| CMP2     ZR     X2,CMP4     IF END OF TABLE
01210  M00S01056.sdsplay +++|          BX3    X0*X2       GET COMMAND FROM TABLE
01211  M00S01057.sdsplay +++|          BX3    X3-X6
01212  M00S01058.sdsplay +++|          ZR     X3,CMP3     IF A MATCH
01213  M00S01059.sdsplay +++|          SA2    A2+1
01214  M00S01060.sdsplay +++|          EQ     CMP2        CHECK NEXT ENTRY IN COMMAND TABLE
01215  M00S01061.sdsplay +++|
01216  M00S01062.sdsplay +++|*         COMMAND FOUND.
01217  M00S01063.sdsplay +++|
01218  M00S01064.sdsplay +++| CMP3     SB5    X2+         SET PROCESSOR ADDRESS
01219  M00S01065.sdsplay +++|          SB2    B5-CLS
01220  M00S01066.sdsplay +++|          ZR     B2,CMPX     IF THE *CLASS* COMMAND
01221  M00S01067.sdsplay +++|          ZR     B6,CMPX     IF NO EXCESS PARAMETERS
01222  M00S01068.sdsplay +++|          EQ     CMP6        PROCESS *EXCESS PARAMETERS*
01223  M00S01069.sdsplay +++|
01224  M00S01070.sdsplay +++|*         CHECK FOR KEYWORD=VALUE COMMAND.
01225  M00S01071.sdsplay +++|
01226  M00S01072.sdsplay +++| CMP4     SA2    CLDS        CHECK CURRENT DISPLAY STATUS
01227  M00S01073.sdsplay +++|          SX2    X2-SHLP
01228  M00S01074.sdsplay +++|          ZR     X2,CMP5     IF *HELP* STATUS
01229  M00S01075.sdsplay +++|
01230  M00S01076.sdsplay +++|*         PROCESS KEYWORD=VALUE COMMAND.
01231  M00S01077.sdsplay +++|
01232  M00S01078.sdsplay +++|          SB5    PKC         PROCESS KEYWORD COMMAND
01233  M00S01079.sdsplay +++|          EQ     CMPX        RETURN
01234  M00S01080.sdsplay +++| TCMD     SPACE  4,10
01235  M00S01081.sdsplay +++|**        TCMD - TABLE OF COMMANDS.
01236  M00S01082.sdsplay +++|*
01237  M00S01083.sdsplay +++|*T        42/ COMMAND,18/ ADDR

Figure

01238  M00S01084.sdsplay +++|*
01239  M00S01085.sdsplay +++|*         COMMAND = DISPLAY CODE COMMAND VALUE.
01240  M00S01086.sdsplay +++|*         ADDR = FUNCTION PROCESSOR FWA FOR COMMAND.
01241  M00S01087.sdsplay +++|
01242  M00S01088.sdsplay +++|
01243  M00S01089.sdsplay +++| TCMD     BSS    0
01244  M00S01090.sdsplay +++|*         VFD    42/0L+,18/PLD
01245  M00S01091.sdsplay +++|*         VFD    42/0L-,18/PLD
01246  M00S01092.sdsplay +++|          VFD    42/0LCLASS,18/CLS
01247  M00S01093.sdsplay +++|          VFD    42/0LEND,18/END
01248  M00S01094.sdsplay +++|          VFD    42/0LGO,18/PGO
01249  M00S01095.sdsplay +++|          VFD    42/0LHELP,18/HLP
01250  M00S01096.sdsplay +++|          VFD    42/0LRESET,18/RST
01251  M00S01097.sdsplay +++|          CON    0           END OF TABLE
01252  M00S01098.sdsplay +++| COI      SPACE  4,20
01253  M00S01099.sdsplay +++|**        COI - CONVERT OPERATOR INPUT.
01254  M00S01100.sdsplay +++|*
01255  M00S01101.sdsplay +++|*         *COI* CONVERTS THE OPERATOR *L* DISPLAY INPUT BY CHANGING
01256  M00S01102.sdsplay +++|*         ALL ZERO BYTES TO BLANKS.  THE LAST WORD OF THE INPUT LINE
01257  M00S01103.sdsplay +++|*         IS NOT CONVERTED TO INSURE THAT A ZERO BYTER TERMINATOR
01258  M00S01104.sdsplay +++|*         EXISTS.
01259  M00S01105.sdsplay +++|*
01260  M00S01106.sdsplay +++|*         ENTRY  IBUF = FWA OF INPUT BUFFER.
01261  M00S01107.sdsplay +++|*
01262  M00S01108.sdsplay +++|*         EXIT   (IBUF) = INPUT BUFFER, BLANK FILLED, ZERO BYTE
01263  M00S01109.sdsplay +++|*                         TERMINATED.
01264  M00S01110.sdsplay +++|*
01265  M00S01111.sdsplay +++|*         USES   X - 1.
01266  M00S01112.sdsplay +++|*                A - 1, 6.
01267  M00S01113.sdsplay +++|*                B - 2.
01268  M00S01114.sdsplay +++|*
01269  M00S01115.sdsplay +++|*         CALLS  ZTB.
01270  M00S01116.sdsplay +++|
01271  M00S01117.sdsplay +++|
01272  M00S01118.sdsplay +++| COI      SUBR               ENTRY/EXIT
01273  M00S01119.sdsplay +++|          SB2    LCOMU-1     OPERATOR INPUT LINE LENGTH-1
01274  M00S01120.sdsplay +++|          SA1    IBUF-1      FIRST WORD-1 OF OPERATOR INPUT
01275  M00S01121.sdsplay +++| COI1     ZR     B2,COIX     IF ALL WORDS-1 CONVERTED
01276  M00S01122.sdsplay +++|          SA1    A1+1
01277  M00S01123.sdsplay +++|          RJ     ZTB         CONVERT ZERO BYTES TO BLANKS
01278  M00S01124.sdsplay +++|          SA6    A1          REPLACE IN *IBUF*
01279  M00S01125.sdsplay +++|          SB2    B2-B1       DECREMENT NUMBER OF WORDS TO CONVERT
01280  M00S01126.sdsplay +++|          EQ     COI1        CONVERT NEXT WORD
01281  M00S01127.sdsplay +++| CVB      SPACE  4,20
01282  M00S01128.sdsplay +++|**        CVB - CALCULATE VALUE BOUNDARIES.
01283  M00S01129.sdsplay +++|*
01284  M00S01130.sdsplay +++|*         *CVB* CALCULATES IF THE LOWER BOUNDARY IS LESS THAN
01285  M00S01131.sdsplay +++|*         OR EQUAL TO THE UPPER BOUNDARY FOR THE QUEUE PRIORITY
01286  M00S01132.sdsplay +++|*         PARAMETERS.
01287  M00S01133.sdsplay +++|*
01288  M00S01134.sdsplay +++|*         ENTRY  (X2) = *JCB* WORD, *INQT*, *EXQT* OR *OTQT*.
01289  M00S01135.sdsplay +++|*                (X0) = MASK FOR PRIORITY FIELDS.
01290  M00S01136.sdsplay +++|*
01291  M00S01137.sdsplay +++|*         EXIT   (X1) = NEGATIVE, IF BOUNDS ERROR.
01292  M00S01138.sdsplay +++|*                     = POSITIVE, IF NO BOUNDS ERROR.
01293  M00S01139.sdsplay +++|*                (X2) = SHIFTED RIGHT 24 BITS.
01294  M00S01140.sdsplay +++|*                (X3) = LOWER BOUND VALUE.
01295  M00S01141.sdsplay +++|*                (X4) = UPPER BOUND VALUE.
01296  M00S01142.sdsplay +++|*
01297  M00S01143.sdsplay +++|*         USES   X - 1, 2, 3, 4.
01298  M00S01144.sdsplay +++|
01299  M00S01145.sdsplay +++|
01300  M00S01146.sdsplay +++| CVB      SUBR               ENTRY/EXIT
01301  M00S01147.sdsplay +++|          LX2    -24         GET UPPER BOUND
01302  M00S01148.sdsplay +++|          BX4    -X0*X2
01303  M00S01149.sdsplay +++|          LX2    -12         GET LOWER BOUND
01304  M00S01150.sdsplay +++|          BX3    -X0*X2
01305  M00S01151.sdsplay +++|          IX1    X4-X3
01306  M00S01152.sdsplay +++|          SX1    X1-1
01307  M00S01153.sdsplay +++|          EQ     CVBX        RETURN
01308  M00S01154.sdsplay +++| CVK      SPACE  4,10
01309  M00S01155.sdsplay +++|**        CVK - CHECK FOR VALID KEYWORD.
01310  M00S01156.sdsplay +++|*
01311  M00S01157.sdsplay +++|*         ENTRY  (X6) = KEYWORD TO CHECK.
01312  M00S01158.sdsplay +++|*
01313  M00S01159.sdsplay +++|*         EXIT   (X3) = 0, IF VALID KEYWORD FOUND.
01314  M00S01160.sdsplay +++|*                     = NON-ZERO, IF VALID KEYWORD NOT FOUND.
01315  M00S01161.sdsplay +++|*
01316  M00S01162.sdsplay +++|*         USES   X - 0, 3, 5.
01317  M00S01163.sdsplay +++|*                A - 5.
01318  M00S01164.sdsplay +++|
01319  M00S01165.sdsplay +++|
01320  M00S01166.sdsplay +++| CVK      SUBR               ENTRY/EXIT
01321  M00S01167.sdsplay +++|          SA5    TKWV        FWA OF KEYWORD TABLE
01322  M00S01168.sdsplay +++|          MX0    24
01323  M00S01169.sdsplay +++| CVK1     ZR     X5,CVKX     IF END OF TABLE
01324  M00S01170.sdsplay +++|          BX3    X0*X5       GET KEYWORD FROM TABLE
01325  M00S01171.sdsplay +++|          BX3    X3-X6
01326  M00S01172.sdsplay +++|          ZR     X3,CVKX     IF A MATCH
01327  M00S01173.sdsplay +++|          SA5    A5+2
01328  M00S01174.sdsplay +++|          EQ     CVK1        CHECK NEXT ENTRY IN KEYWORD TABLE
01329  M00S01175.sdsplay +++| EFP      SPACE  4,15
01330  M00S01176.sdsplay +++|**        EFP - EXECUTE FUNCTION PROCESSOR.
01331  M00S01177.sdsplay +++|*
01332  M00S01178.sdsplay +++|*         *EFP* JUMPS TO THE CORRECT FUNCTION PROCESSOR, BASED UPON
01333  M00S01179.sdsplay +++|*         THE COMMAND ENTERED VIA THE *L* DISPLAY.  THE FUNCTION
01334  M00S01180.sdsplay +++|*         PROCESSING ROUTINE IS SET UP SO THAT IT RETURNS TO THE
01335  M00S01181.sdsplay +++|*         ADDRESS *EFP* WOULD HAVE RETURNED TO.
01336  M00S01182.sdsplay +++|*
01337  M00S01183.sdsplay +++|*         ENTRY  (B5) = ADDRESS OF FUNCTION PROCESSOR.
01338  M00S01184.sdsplay +++|*
01339  M00S01185.sdsplay +++|*         EXIT   TO FUNCTION PROCESSOR WITH RETURN ADDRESS SET.
01340  M00S01186.sdsplay +++|*
01341  M00S01187.sdsplay +++|*         USES   X - 2, 7.
01342  M00S01188.sdsplay +++|*                A - 2, 7.
01343  M00S01189.sdsplay +++|
01344  M00S01190.sdsplay +++|
01345  M00S01191.sdsplay +++| EFP      SUBR               ENTRY/EXIT
01346  M00S01192.sdsplay +++|          SA2    EFPX        SET RETURN ADDRESS IN PROCESSOR
01347  M00S01193.sdsplay +++|          BX7    X2
01348  M00S01194.sdsplay +++|          SA7    B5
01349  M00S01195.sdsplay +++|          JP     B5+1        JUMP TO PROCESSOR
01350  M00S01196.sdsplay +++| EPA      SPACE  4,15
01351  M00S01197.sdsplay +++|**        EPA - ENTER PARAMETER VALUES IN TEMPLATE.
01352  M00S01198.sdsplay +++|*
01353  M00S01199.sdsplay +++|*         *EPA* SETS ALL OF THE PARAMETER VALUES INTO PAGES 1 AND 2
01354  M00S01200.sdsplay +++|*         OF THE TEMPLATES EXCEPT FOR THE CURRENT JOB COUNT.
01355  M00S01201.sdsplay +++|*
01356  M00S01202.sdsplay +++|*         ENTRY  (X5) = OFFSET INTO *SBUF* FOR *JCB* FOR CURRENT
01357  M00S01203.sdsplay +++|*                       SERVICE CLASS.
01358  M00S01204.sdsplay +++|*
01359  M00S01205.sdsplay +++|*         USES   X - 0, 1, 2.
01360  M00S01206.sdsplay +++|*                A - 1, 2.
01361  M00S01207.sdsplay +++|*                B - 2, 3.
01362  M00S01208.sdsplay +++|*
01363  M00S01209.sdsplay +++|*         CALLS  COD, GSE, SVT.
01364  M00S01210.sdsplay +++|
01365  M00S01211.sdsplay +++|
01366  M00S01212.sdsplay +++| EPA      SUBR               ENTRY/EXIT
01367  M00S01213.sdsplay +++|          SA1    TKWV        FWA OF TABLE OF KEYWORD VALUES
01368  M00S01214.sdsplay +++|          SA2    TKWP        FWA OF TABLE OF TEMPLATE ADDRESSES
01369  M00S01215.sdsplay +++| EPA1     ZR     X2,EPAX     IF ALL ENTRIES PROCESSED
01370  M00S01216.sdsplay +++|          RJ     GSE         GET SYSTEM ENTRY FOR KEYWORD

Seq #  *Modification Id* Act 
----------------------------+
01371  M01S01217.271l716 ---|          ZR     B7,EPA2     IF NOT WEIGHTING FACTOR

Seq #  *Modification Id* Act 
----------------------------+
01372  M01S00046.271l716 +++|          ZR     B7,EPA2     IF NOT SPECIAL PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
01373  M02S00047.271l750 ---|          SB3    A1-LCBE-1
01374  M02S00048.271l750 ---|          ZR     B3,EPA2     IF *CB* PARAMETER
01375  M00S01218.sdsplay +++|          SB2    X1+         USER POWER OF 2 AS SHIFT COUNT
01376  M00S01219.sdsplay +++|          SX1    B1+
01377  M00S01220.sdsplay +++|          LX1    B2          SET BINARY POWER OF 2 FOR CONVERSION
01378  M00S01221.sdsplay +++| EPA2     RJ     COD         CONVERT ENTRY TO DISPLAY CODE
01379  M00S01222.sdsplay +++|          MX0    -18         SET MASKS FOR PAGE 1 PARAMETERS
01380  M00S01223.sdsplay +++|          MX1    12
01381  M00S01224.sdsplay +++|          SB2    48          SET SHIFT COUNT FOR PAGE 1 PARAMETERS
01382  M00S01225.sdsplay +++|          SB3    A1-LFCE
01383  M00S01226.sdsplay +++|          NG     B3,EPA3     IF PAGE 1 PARAMETER
01384  M00S01227.sdsplay +++|          MX0    -24         SET MASKS FOR PAGE 2 PARAMETERS
01385  M00S01228.sdsplay +++|          MX1    6
01386  M00S01229.sdsplay +++|          SB2    54          SET SHIFT COUNT FOR PAGE 2 PARAMETERS
01387  M00S01230.sdsplay +++| EPA3     RJ     SVT         SET VALUE IN TEMPLATE
01388  M00S01231.sdsplay +++|          EQ     EPA1        PROCESS NEXT ENTRY
01389  M00S01232.sdsplay +++| EPB      SPACE  4,15
01390  M00S01233.sdsplay +++|**        EPB - ENTER REMAINING VALUES IN TEMPLATES.
01391  M00S01234.sdsplay +++|*
01392  M00S01235.sdsplay +++|*         *EPB* SETS THE VALUES INTO PAGE 3 OF THE TEMPLATES AND ALSO
01393  M00S01236.sdsplay +++|*         SETS THE CURRENT JOB COUNT INTO PAGE 2.
01394  M00S01237.sdsplay +++|*
01395  M00S01238.sdsplay +++|*         ENTRY  (A1) = ADDRESS OF *TKWV* ENTRY FOR NEXT DATA ITEM.
01396  M00S01239.sdsplay +++|*                (A2) = ADDRESS OF *TKWP* ENTRY FOR NEXT DATA ITEM-1.
01397  M00S01240.sdsplay +++|*                (X1) = *TKWV* ENTRY FOR NEXT DATA ITEM.
01398  M00S01241.sdsplay +++|*                (X5) = FWA OF *SBUF* ENTRY FOR SERVICE CLASS.
01399  M00S01242.sdsplay +++|*
01400  M00S01243.sdsplay +++|*         USES   X - ALL.
01401  M00S01244.sdsplay +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01402  M00S01245.sdsplay +++|*                B - 2, 6, 7.
01403  M00S01246.sdsplay +++|*
01404  M00S01247.sdsplay +++|*         CALLS  COD, GSE.
01405  M00S01248.sdsplay +++|
01406  M00S01249.sdsplay +++|
01407  M00S01250.sdsplay +++| EPB      SUBR               ENTRY/EXIT
01408  M00S01251.sdsplay +++|          SA2    A2+1        GET NEXT ENTRY IN *TKWP*
01409  M00S01252.sdsplay +++|
01410  M00S01253.sdsplay +++|*         PROCESS INDEXED PARAMETER VALUES.
01411  M00S01254.sdsplay +++|
01412  M00S01255.sdsplay +++| EPB1     ZR     X2,EPB2     IF NO MORE INDEXED PARAMETERS
01413  M00S01256.sdsplay +++|          RJ     GSE         GET SYSTEM ENTRY FOR KEYWORD
01414  M00S01257.sdsplay +++|          SB7    X1+         SAVE INDEX VALUE
01415  M00S01258.sdsplay +++|          RJ     COD         CONVERT ENTRY TO DISPLAY CODE
01416  M00S01259.sdsplay +++|          MX0    6
01417  M00S01260.sdsplay +++|          LX0    30
01418  M00S01261.sdsplay +++|          LX6    24
01419  M00S01262.sdsplay +++|          SA2    A2          GET TEMPLATE WORD
01420  M00S01263.sdsplay +++|          SA3    X2
01421  M00S01264.sdsplay +++|          BX6    X0*X6
01422  M00S01265.sdsplay +++|          BX3    -X0*X3
01423  M00S01266.sdsplay +++|          BX6    X6+X3
01424  M00S01267.sdsplay +++|          SA6    A3          SET INDEX VALUE IN TEMPLATE
01425  M00S01268.sdsplay +++|
01426  M00S01269.sdsplay +++|*         PROCESS EQUIVALENCED PARAMETER VALUES.
01427  M00S01270.sdsplay +++|
01428  M00S01271.sdsplay +++|          AX2    18          FWA OF TABLE OF EQUIVALENCED VALUES
01429  M00S01272.sdsplay +++|          SB6    X5          SAVE *JCB* ADDRESS
01430  M00S01273.sdsplay +++|          SA5    B7+X2       GET EQUIVALENCED VALUE
01431  M00S01274.sdsplay +++|          LX5    -12
01432  M00S01275.sdsplay +++|          MX0    42
01433  M00S01276.sdsplay +++|          LX0    -18
01434  M00S01277.sdsplay +++|          MX1    12
01435  M00S01278.sdsplay +++|          SA3    A3+B1       GET TEMPLATE WORDS
01436  M00S01279.sdsplay +++|          SA4    A3+B1
01437  M00S01280.sdsplay +++|          BX6    X0*X5       SET FIRST PART OF VALUE
01438  M00S01281.sdsplay +++|          BX7    X1*X5       SET LAST PART OF VALUE
01439  M00S01282.sdsplay +++|          BX3    -X0*X3
01440  M00S01283.sdsplay +++|          BX4    -X1*X4
01441  M00S01284.sdsplay +++|          BX6    X6+X3
01442  M00S01285.sdsplay +++|          BX7    X7+X4
01443  M00S01286.sdsplay +++|          SA6    A3          SET VALUE INTO TEMPLATE
01444  M00S01287.sdsplay +++|          SA7    A4
01445  M00S01288.sdsplay +++|          SA1    A1+B1       GET NEXT ENTRY IN *TKWV*
01446  M00S01289.sdsplay +++|          SA2    A2+B1       GET NEXT ENTRY IN *TKWP*
01447  M00S01290.sdsplay +++|          SX5    B6+         RESTORE *JCB* ADDRESS
01448  M00S01291.sdsplay +++|          EQ     EPB1        PROCESS NEXT ENTRY
01449  M00S01292.sdsplay +++|
01450  M00S01293.sdsplay +++|*         PROCESS *DT* PARAMETER.
01451  M00S01294.sdsplay +++|
01452  M00S01295.sdsplay +++| EPB2     SA2    A2+1        GET NEXT ENTRY IN *TKWP*
01453  M00S01296.sdsplay +++|          RJ     GSE         GET SYSTEM ENTRY FOR KEYWORD
01454  M00S01297.sdsplay +++|          SB2    X1-1
01455  M00S01298.sdsplay +++|          SA4    TSCT+B2     GET SERVICE CLASS MNEMONIC
01456  M00S01299.sdsplay +++|          LX4    30
01457  M00S01300.sdsplay +++|          MX0    -48
01458  M00S01301.sdsplay +++|          LX0    30
01459  M00S01302.sdsplay +++|          SA3    X2          GET TEMPLATE WORD
01460  M00S01303.sdsplay +++|          BX6    -X0*X3
01461  M00S01304.sdsplay +++|          BX6    X6+X4
01462  M00S01305.sdsplay +++|          SA6    A3          SET VALUE IN TEMPLATE
01463  M00S01306.sdsplay +++|
01464  M00S01307.sdsplay +++|*         PROCESS *TD* PARAMETER.
01465  M00S01308.sdsplay +++|
01466  M00S01309.sdsplay +++|          SA1    A1+B1       GET NEXT ENTRY IN *TKWV*
01467  M00S01310.sdsplay +++|          SA2    A2+1        GET NEXT ENTRY IN *TKWP*
01468  M00S01311.sdsplay +++|          RJ     GSE         GET SYSTEM ENTRY FOR KEYWORD
01469  M00S01312.sdsplay +++|          RJ     COD         CONVERT ENTRY TO DISPLAY CODE
01470  M00S01313.sdsplay +++|          LX6    6
01471  M00S01314.sdsplay +++|          MX0    24
01472  M00S01315.sdsplay +++|          LX0    30
01473  M00S01316.sdsplay +++|          SA2    A2          GET TEMPLATE WORD
01474  M00S01317.sdsplay +++|          SA3    X2
01475  M00S01318.sdsplay +++|          BX6    X0*X6
01476  M00S01319.sdsplay +++|          BX3    -X0*X3
01477  M00S01320.sdsplay +++|          BX6    X6+X3
01478  M00S01321.sdsplay +++|          SA6    A3+         SET VALUE IN TEMPLATE
01479  M00S01322.sdsplay +++|
01480  M00S01323.sdsplay +++|*         PROCESS CURRENT JOB COUNT.
01481  M00S01324.sdsplay +++|
01482  M00S01325.sdsplay +++|          SA1    A1+2        GET SPECIAL ENTRY IN *TKWV* FOR *CJ*
01483  M00S01326.sdsplay +++|          SA2    A2+1        GET NEXT ENTRY IN *TKWP*
01484  M00S01327.sdsplay +++|          RJ     GSE         GET SYSTEM ENTRY FOR KEYWORD
01485  M00S01328.sdsplay +++|          RJ     COD         CONVERT ENTRY TO DISPLAY CODE
01486  M00S01329.sdsplay +++|          SA2    A2          GET TEMPLATE WORD
01487  M00S01330.sdsplay +++|          SA3    X2
01488  M00S01331.sdsplay +++|          MX0    24
01489  M00S01332.sdsplay +++|          LX6    36          LEFT JUSTIFY DIGITS
01490  M00S01333.sdsplay +++|          BX6    X0*X6
01491  M00S01334.sdsplay +++|          BX3    -X0*X3
01492  M00S01335.sdsplay +++|          BX6    X6+X3
01493  M00S01336.sdsplay +++|          SA6    A3          SET VALUE IN TEMPLATE
01494  M00S01337.sdsplay +++|          EQ     EPBX        RETURN
01495  M00S01338.sdsplay +++| GMP      SPACE  4,15
01496  M00S01339.sdsplay +++|**        GMP - GENERATE MASKING PARAMETERS.
01497  M00S01340.sdsplay +++|*
01498  M00S01341.sdsplay +++|*         ENTRY  (A1) = ADDRESS OF *TKWV* ENTRY FOR KEYWORD.
01499  M00S01342.sdsplay +++|*                (X1) = *TKWV* ENTRY FOR KEYWORD.
01500  M00S01343.sdsplay +++|*                (X5) = FWA OF *JCB* IN *SBUF* FOR CURRENT
01501  M00S01344.sdsplay +++|*                       SERVICE CLASS.
01502  M00S01345.sdsplay +++|*
01503  M00S01346.sdsplay +++|*         EXIT   (B2) = LOW ORDER BIT POSITION FOR VALUE IN *SBUF*.
01504  M00S01347.sdsplay +++|*                (B7) = 1 IF SPECIAL PROCESSING REQUIRED.
01505  M00S01348.sdsplay +++|*                     = 0 IF SPECIAL PROCESSING NOT REQUIRED.
01506  M00S01349.sdsplay +++|*                (X3) = *SBUF* ENTRY FOR KEYWORD VALUE.
01507  M00S01350.sdsplay +++|*                (X4) = SIZE OF FIELD IN *SBUF* FOR KEYWORD VALUE.
01508  M00S01351.sdsplay +++|*
01509  M00S01352.sdsplay +++|*         USES   X - 0, 1, 3, 4.
01510  M00S01353.sdsplay +++|*                A - 1, 3.
01511  M00S01354.sdsplay +++|*                B - 2, 7.
01512  M00S01355.sdsplay +++|
01513  M00S01356.sdsplay +++|
01514  M00S01357.sdsplay +++| GMP      SUBR               ENTRY/EXIT
01515  M00S01358.sdsplay +++|          LX1    30
01516  M00S01359.sdsplay +++|          SB7    B0          ASSUME NO SPECIAL PROCESSING
01517  M00S01360.sdsplay +++|          PL     X1,GMP1     IF SPECIAL PROCESSING NOT REQUIRED
01518  M00S01361.sdsplay +++|          SB7    B1+         SET SPECIAL PROCESSING REQUIRED
01519  M00S01362.sdsplay +++| GMP1     MX0    -6
01520  M00S01363.sdsplay +++|          BX1    -X0*X1      GET OFFSET IN *JCB* FOR KEYWORD VALUE
01521  M00S01364.sdsplay +++|          SB2    X1
01522  M00S01365.sdsplay +++|          SA3    X5+B2       GET *SBUF* ENTRY FOR KEYWORD VALUE
01523  M00S01366.sdsplay +++|          SA1    A1+B1       GENERATE MASK FOR KEYWORD VALUE
01524  M00S01367.sdsplay +++|          BX4    -X0*X1      GET SIZE OF FIELD FOR KEYWORD VALUE
01525  M00S01368.sdsplay +++|          AX1    6
01526  M00S01369.sdsplay +++|          BX1    -X0*X1      GET LOW ORDER BIT POSITION
01527  M00S01370.sdsplay +++|          SB2    X1
01528  M00S01371.sdsplay +++|          EQ     GMPX        RETURN
01529  M00S01372.sdsplay +++| GSD      SPACE  4,10
01530  M00S01373.sdsplay +++|**        GSD - GET SYSTEM *JCB* DATA.
01531  M00S01374.sdsplay +++|*
01532  M00S01375.sdsplay +++|*         EXIT   (SBUF) = SYSTEM *JCB* DATA.
01533  M00S01376.sdsplay +++|*
01534  M00S01377.sdsplay +++|*         MACROS SYSTEM.
01535  M00S01378.sdsplay +++|
01536  M00S01379.sdsplay +++|
01537  M00S01380.sdsplay +++| GSD      SUBR               ENTRY/EXIT
01538  M00S01381.sdsplay +++|          SYSTEM SFM,R,SFMA,RSDF*100B  RETURN *JCB* DATA
01539  M00S01382.sdsplay +++|          EQ     GSDX        RETURN
01540  M00S01383.sdsplay +++| GSE      SPACE  4,15
01541  M00S01384.sdsplay +++|**        GSE - GET SYSTEM ENTRY.
01542  M00S01385.sdsplay +++|*
01543  M00S01386.sdsplay +++|*         ENTRY  (A1) = ADDRESS OF *TKWV* ENTRY FOR KEYWORD VALUE.
01544  M00S01387.sdsplay +++|*                (X1) = *TKWV* ENTRY FOR KEYWORD VALUE TO GET.
01545  M00S01388.sdsplay +++|*                (X5) = *JCB* FWA IN *SBUF* FOR CURRENT SERVICE CLASS.
01546  M00S01389.sdsplay +++|*
01547  M00S01390.sdsplay +++|*         EXIT   (A1) = ADDRESS OF SECOND WORD OF *TKWV* ENTRY.
01548  M00S01391.sdsplay +++|*                (X1) = SYSTEM KEYWORD VALUE FOR PARAMETER RIGHT
01549  M00S01392.sdsplay +++|*                       JUSTIFIED.
01550  M00S01393.sdsplay +++|*
01551  M00S01394.sdsplay +++|*         USES   X - 0, 1, 3.
01552  M00S01395.sdsplay +++|*                B - 2.
01553  M00S01396.sdsplay +++|*
01554  M00S01397.sdsplay +++|*         CALLS  GMP.
01555  M00S01398.sdsplay +++|
01556  M00S01399.sdsplay +++|
01557  M00S01400.sdsplay +++| GSE      SUBR               ENTRY/EXIT
01558  M00S01401.sdsplay +++|          RJ     GMP         GENERATE MASKING PARAMETERS
01559  M00S01402.sdsplay +++|          SB2    -B2
01560  M00S01403.sdsplay +++|          LX3    B2          RIGHT JUSTIFY FIELD
01561  M00S01404.sdsplay +++|          SB2    X4-1
01562  M00S01405.sdsplay +++|          MX0    1
01563  M00S01406.sdsplay +++|          AX0    B2          GENERATE MASK
01564  M00S01407.sdsplay +++|          SB2    B2+B1
01565  M00S01408.sdsplay +++|          LX0    B2          RIGHT JUSTIFY MASK
01566  M00S01409.sdsplay +++|          BX1    X0*X3       SET VALUE
01567  M00S01410.sdsplay +++|          EQ     GSEX        RETURN
01568  M00S01411.sdsplay +++| ILD      SPACE  4,10
01569  M00S01412.sdsplay +++|**        ILD - INPUT *L* DISPLAY.
01570  M00S01413.sdsplay +++|*
01571  M00S01414.sdsplay +++|*         EXIT   (LBUF) = *L* DISPLAY COMMAND INPUT.
01572  M00S01415.sdsplay +++|*
01573  M00S01416.sdsplay +++|*         USES   X - 0, 1, 2, 6.
01574  M00S01417.sdsplay +++|*                A - 1, 6.
01575  M00S01418.sdsplay +++|*                B - 2.
01576  M00S01419.sdsplay +++|*
01577  M00S01420.sdsplay +++|*         MACROS DSDINP, ROLLOUT.
01578  M00S01421.sdsplay +++|
01579  M00S01422.sdsplay +++|
01580  M00S01423.sdsplay +++| ILD      SUBR               ENTRY/EXIT
01581  M00S01424.sdsplay +++|          SB2    LIML-1
01582  M00S01425.sdsplay +++|          SX6    B0+
01583  M00S01426.sdsplay +++| ILD1     SA6    IBUF+B2     INITIALIZE INPUT BUFFER
01584  M00S01427.sdsplay +++|          SB2    B2-1
01585  M00S01428.sdsplay +++|          PL     B2,ILD1     IF MORE WORDS TO INITIALIZE
01586  M00S01429.sdsplay +++| ILD2     DSDINP IPW         REQUEST INPUT FROM OPERATOR
01587  M00S01430.sdsplay +++|          SA1    IPW
01588  M00S01431.sdsplay +++|          MX0    -12
01589  M00S01432.sdsplay +++|          BX1    -X0*X1
01590  M00S01433.sdsplay +++|          AX1    1           IGNORE COMPLETION BIT
01591  M00S01434.sdsplay +++|          SX2    X1-CNCI
01592  M00S01435.sdsplay +++|          NZ     X2,ILDX     IF COMMAND ENTERED
01593  M00S01436.sdsplay +++|          ROLLOUT  ROLB      WAIT FOR *L* DISPLAY INPUT
01594  M00S01437.sdsplay +++|          EQ     ILD2        RECHECK *L* DISPLAY INPUT
01595  M00S01438.sdsplay +++| OLD      SPACE  4,10
01596  M00S01439.sdsplay +++|**        OLD - OUTPUT *L* DISPLAY DATA.
01597  M00S01440.sdsplay +++|*
01598  M00S01441.sdsplay +++|*         ENTRY  TEMPLATE FORMATTED FOR *L* DISPLAY SET IN *LBUF*.
01599  M00S01442.sdsplay +++|*
01600  M00S01443.sdsplay +++|*         EXIT   *L* DISPLAY UPDATED.
01601  M00S01444.sdsplay +++|*
01602  M00S01445.sdsplay +++|*         MACROS DSDOUT.
01603  M00S01446.sdsplay +++|
01604  M00S01447.sdsplay +++|
01605  M00S01448.sdsplay +++| OLD      SUBR               ENTRY/EXIT
01606  M00S01449.sdsplay +++|          DSDOUT LFWA        DISPLAY *L* DISPLAY BUFFER
01607  M00S01450.sdsplay +++|          EQ     OLDX        RETURN
01608  M00S01451.sdsplay +++| PKC      SPACE  4,15
01609  M00S01452.sdsplay +++|**        PKC - PROCESS KEYWORD=VALUE COMMAND.
01610  M00S01453.sdsplay +++|*
01611  M00S01454.sdsplay +++|*         ENTRY  (X1) = SEPARATOR.
01612  M00S01455.sdsplay +++|*                (X6) = KEYWORD VALUE.
01613  M00S01456.sdsplay +++|*                (B6) = FWA OF NEXT PARAMETER IN STRING BUFFER.
01614  M00S01457.sdsplay +++|*
01615  M00S01458.sdsplay +++|*         USES   X - 0, 1, 2, 5, 6, 7.
01616  M00S01459.sdsplay +++|*                A - 1, 5, 6, 7.
01617  M00S01460.sdsplay +++|*                B - 7.
01618  M00S01461.sdsplay +++|*
01619  M00S01462.sdsplay +++|*         CALLS  CVK, DXB, POP, PSK, SDT, SIN, SIP, SPS.
01620  M00S01463.sdsplay +++|
01621  M00S01464.sdsplay +++|
01622  M00S01465.sdsplay +++| PKC10    RJ     SDT         SET DATA IN TEMPLATE
01623  M00S01466.sdsplay +++|
01624  M00S01467.sdsplay +++| PKC      SUBR               ENTRY/EXIT
01625  M00S01468.sdsplay +++|          SX7    B0+         CLEAR TERMINATOR ENCOUNTERED FLAG
01626  M00S01469.sdsplay +++|          RJ     CVK         CHECK FOR VALID KEYWORD
01627  M00S01470.sdsplay +++|          SA7    PKCA
01628  M00S01471.sdsplay +++|          NZ     X3,PKC6     IF NO VALID KEYWORD FOUND
01629  M00S01472.sdsplay +++|          EQ     PKC2        ENTER LOOP
01630  M00S01473.sdsplay +++|
01631  M00S01474.sdsplay +++| PKC1     ZR     B6,PKC8     IF TERMINATOR ENCOUNTERED
01632  M00S01475.sdsplay +++|          RJ     CVK         CHECK FOR VALID KEYWORD
01633  M00S01476.sdsplay +++|          NZ     X3,PKC6     IF NO VALID KEYWORD FOUND
01634  M00S01477.sdsplay +++|
01635  M00S01478.sdsplay +++|*         VALIDATE THE SEPARATOR.
01636  M00S01479.sdsplay +++|
01637  M00S01480.sdsplay +++| PKC2     SX1    X1-1R=
01638  M00S01481.sdsplay +++|          NZ     X1,PKC7     IF INCORRECT SEPARATOR
01639  M00S01482.sdsplay +++|          RJ     POP         GET KEYWORD VALUE
01640  M00S01483.sdsplay +++|          ZR     X6,PKC8     IF NO PARAMETER VALUE GIVEN
01641  M00S01484.sdsplay +++|          PL     X2,PKC3     IF NO TERMINATOR ENCOUNTERED
01642  M00S01485.sdsplay +++|          MX7    1           SET TERMINATOR ENCOUNTERD
01643  M00S01486.sdsplay +++|          SA7    PKCA
01644  M00S01487.sdsplay +++| PKC3     LX5    30
01645  M00S01488.sdsplay +++|          NG     X5,PKC5     IF SPECIAL PROCESSING REQUIRED
01646  M00S01489.sdsplay +++|
01647  M00S01490.sdsplay +++|*         VALIDATE THE NUMERIC PARAMETER FOR THE KEYWORD.
01648  M00S01491.sdsplay +++|
01649  M00S01492.sdsplay +++|          BX5    X6          SET WORD TO CONVERT FOR *DXB*
01650  M00S01493.sdsplay +++|          SB7    B0+         SET OCTAL BASE DEFAULT
01651  M00S01494.sdsplay +++|          RJ     DXB         CONVERT DISPLAY CODE TO BINARY
01652  M00S01495.sdsplay +++|          SA5    A5          GET KEYWORD TABLE ENTRY BACK
01653  M00S01496.sdsplay +++|          NZ     X4,PKC8     IF ERROR IN CONVERSION
01654  M00S01497.sdsplay +++|          MX0    -6
01655  M00S01498.sdsplay +++|          BX1    -X0*X5      GET LOW VALUE FOR KEYWORD
01656  M00S01499.sdsplay +++|          MX0    -18
01657  M00S01500.sdsplay +++|          AX5    6
01658  M00S01501.sdsplay +++|          BX2    -X0*X5      GET HIGH VALUE FOR KEYWORD
01659  M00S01502.sdsplay +++|          IX2    X2-X6
01660  M00S01503.sdsplay +++|          NG     X2,PKC8     IF PARAMETER TOO LARGE
01661  M00S01504.sdsplay +++|          IX1    X6-X1
01662  M00S01505.sdsplay +++|          NG     X1,PKC8     IF PARAMETER TOO SMALL
01663  M00S01506.sdsplay +++|          RJ     SPS         SET PARAMETER INTO SYSTEM BUFFER
01664  M00S01507.sdsplay +++| PKC4     SA1    PKCA        CHECK IF TERMINATOR ENCOUNTERED
01665  M00S01508.sdsplay +++|          NZ     X1,PKC10    IF TERMINATOR ENCOUNTERED
01666  M00S01509.sdsplay +++|          RJ     POP         GET NEXT KEYWORD FROM INPUT LINE
01667  M00S01510.sdsplay +++|          EQ     PKC1        LOOP FOR NEXT KEYWORD
01668  M00S01511.sdsplay +++|
01669  M00S01512.sdsplay +++|*         PROCESS KEYWORDS REQUIRING SPECIAL PROCESSING.
01670  M00S01513.sdsplay +++|
01671  M00S01514.sdsplay +++| PKC5     RJ     PSK         PROCESS SPECIAL KEYWORDS
01672  M00S01515.sdsplay +++|          NZ     B2,PKC10    IF AN ERROR IN SPECIAL KEYWORD
01673  M00S01516.sdsplay +++|          EQ     PKC4        PROCESS NEXT KEYWORD
01674  M00S01517.sdsplay +++|
01675  M00S01518.sdsplay +++|*         PROCESS ERRORS.
01676  M00S01519.sdsplay +++|
01677  M00S01520.sdsplay +++| PKC6     SX1    EUKP        *UNKNOWN PARAMETER - KW.*
01678  M00S01521.sdsplay +++|          RJ     SIP         SET INCORRECT PARAMETER KEYWORD
01679  M00S01522.sdsplay +++|          EQ     PKC10       SET ANY GOOD DATA IN TEMPLATE
01680  M00S01523.sdsplay +++|
01681  M00S01524.sdsplay +++| PKC7     SX1    EUKS        *UNKNOWN SEPARATOR - KW.*
01682  M00S01525.sdsplay +++|          RJ     SIP         SET INCORRECT PARAMETER
01683  M00S01526.sdsplay +++|          EQ     PKC10       SET ANY GOOD DATA IN TEMPLATE
01684  M00S01527.sdsplay +++|
01685  M00S01528.sdsplay +++| PKC8     SX1    EICP        *INCORRECT NUMERIC PARAMETER FOR KW.*
01686  M00S01529.sdsplay +++|          RJ     SIN         SET INCORRECT NUMERIC PARAMETER
01687  M00S01530.sdsplay +++|          EQ     PKC10       SET ANY GOOD DATA IN TEMPLATE
01688  M00S01531.sdsplay +++|
01689  M00S01532.sdsplay +++| PKC9     SX6    EURD        *UNRECOGNIZABLE DIRECTIVE.*
01690  M00S01533.sdsplay +++|          SA6    EMOR
01691  M00S01534.sdsplay +++|          EQ     PKCX        RETURN
01692  M00S01535.sdsplay +++|
01693  M00S01536.sdsplay +++|
01694  M00S01537.sdsplay +++| PKCA     BSS    1           TERMINATOR ENCOUNTERED FLAG
01695  M00S01538.sdsplay +++| PSK      SPACE  4,15
01696  M00S01539.sdsplay +++|**        PSK - PROCESS SPECIAL KEYWORDS.
01697  M00S01540.sdsplay +++|*
01698  M00S01541.sdsplay +++|*         ENTRY  (X5) = FIRST WORD OF CURRENT *TKWV* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01699  M01S01542.271l716 ---|*                (X6) = KEYWORD VALUE, FROM *POP*.

Seq #  *Modification Id* Act 
----------------------------+
01700  M01S00049.271l716 +++|*                (X6) = NON-ZERO KEYWORD VALUE (FROM *COMCPOP*).
01701  M00S01543.sdsplay +++|*                (A5) = ADDRESS OF FIRST WORD OF CURRENT *TKWV* ENTRY.
01702  M00S01544.sdsplay +++|*
01703  M00S01545.sdsplay +++|*         EXIT   (B2) = 0, IF NO ERROR.
01704  M00S01546.sdsplay +++|*                     = 1, IF ERROR.
01705  M00S01547.sdsplay +++|*                (EMOR) = MESSAGE ORDINAL.
01706  M00S01548.sdsplay +++|*
01707  M00S01549.sdsplay +++|*         USES   X - 1, 2, 5, 6.
01708  M00S01550.sdsplay +++|*                A - 1, 6.
01709  M00S01551.sdsplay +++|*                B - 2, 3, 7.
01710  M00S01552.sdsplay +++|*

Seq #  *Modification Id* Act 
----------------------------+
01711  M01S01553.271l716 ---|*         CALLS  DXB, SIN, SPS.

Seq #  *Modification Id* Act 
----------------------------+
01712  M01S00050.271l716 +++|*         CALLS  DXB, SPS.
01713  M00S01554.sdsplay +++|
01714  M00S01555.sdsplay +++|
01715  M00S01556.sdsplay +++| PSK6     SX6    EISC        *INCORRECT SERVICE CLASS FOR *DT*.*
01716  M00S01557.sdsplay +++|          SA6    EMOR        SET MESSAGE ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01717  M01S01558.271l716 ---|          EQ     PSKX        RETURN
01718  M01S01559.271l716 ---|
01719  M01S01560.271l716 ---| PSK7     SX1    EICP        *INCORRECT NUMERIC PARAMETER FOR XX.*
01720  M01S01561.271l716 ---|          RJ     SIN         SET INCORRECT PARAMETER
01721  M01S01562.271l716 ---|
01722  M00S01563.sdsplay +++|
01723  M00S01564.sdsplay +++| PSK      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01724  M01S01565.271l716 ---|          SB2    B1+         SET ERROR FLAG
01725  M00S01566.sdsplay +++|          SX2    A5-LDTE
01726  M00S01567.sdsplay +++|          ZR     X2,PSK3     IF *DT* PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
01727  M01S00097.271l750 +++|
01728  M01S00098.271l750 +++|*         PROCESS WEIGHTING FACTOR PARAMETERS.
01729  M01S00099.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
01730  M01S00051.271l716 +++|          BX5    X6
01731  M01S00052.271l716 +++|          SB7    B0          CONVERT DISPLAY CODE TO OCTAL
01732  M01S00053.271l716 +++|          RJ     DXB
01733  M01S00054.271l716 +++|          NZ     X4,PKC8     IF ERROR IN CONVERSION

Seq #  *Modification Id* Act 
----------------------------+
01734  M02S00055.271l750 ---|          SX2    A5-LCBE
01735  M02S00056.271l750 ---|          NZ     X2,PSK2     IF NOT *CB* PARAMETER
01736  M02S00057.271l750 ---|
01737  M02S00058.271l750 ---|*         PROCESS *CB* PARAMETER.
01738  M02S00059.271l750 ---|
01739  M02S00060.271l750 ---|          SX5    X6          COPY PARAMETER
01740  M02S00061.271l750 ---|          MX2    -6
01741  M02S00062.271l750 ---|          AX5    6           POSITION LOWER BOUND
01742  M02S00063.271l750 ---|          BX2    -X2*X6
01743  M02S00064.271l750 ---|          SX1    X5-2        CHECK LOWER BOUND
01744  M02S00065.271l750 ---|          IX2    X2-X5
01745  M02S00066.271l750 ---|          BX1    X1+X2
01746  M02S00067.271l750 ---|          NG     X1,PKC8     IF LOWER / UPPER BOUND INVALID
01747  M02S00068.271l750 ---| PSK1     RJ     SPS         SET PARAMETER IN SYSTEM BUFFER
01748  M02S00069.271l750 ---|          SB2    0
01749  M02S00070.271l750 ---|          EQ     PSKX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01750  M01S01568.271l750 ---|
01751  M01S01569.271l750 ---|*         PROCESS WEIGHTING FACTOR PARAMETERS.
01752  M01S01570.271l750 ---|

Seq #  *Modification Id* Act 
----------------------------+
01753  M02S01571.271l750 ---| PSK1     ZR     X6,PSK7     IF INVALID NUMERIC PARAMETER
01754  M02S01572.271l750 ---|          BX5    X6
01755  M02S01573.271l750 ---|          SB7    B0          SET OCTAL BASE DEFAULT
01756  M02S01574.271l750 ---|          RJ     DXB         CONVERT DISPLAY CODE TO BINARY
01757  M02S01575.271l750 ---|          NZ     X4,PSK7     IF ERROR IN CONVERSION
01758  M02S01576.271l750 ---|          SX1    B0+         ASSUME A ZERO POWER OF 2
01759  M02S01577.271l750 ---|          ZR     X6,PSK7     IF THE VALUE IS ZERO

Seq #  *Modification Id* Act 
----------------------------+
01760  M02S00071.271l750 ---| PSK2     ZR     X6,PKC8     IF NULL WEIGHTING FACTOR

Seq #  *Modification Id* Act 
----------------------------+
01761  M01S00100.271l750 +++|          ZR     X6,PKC8     IF NULL WEIGHTING FACTOR
01762  M00S01578.sdsplay +++|          CX5    X6          CHECK FOR POWER OF 2
01763  M00S01579.sdsplay +++|          SB3    X5

Seq #  *Modification Id* Act 
----------------------------+
01764  M01S01580.271l716 ---|          NE     B3,B1,PSK7  IF NOT A POWER OF 2

Seq #  *Modification Id* Act 
----------------------------+
01765  M01S00072.271l716 +++|          NE     B3,B1,PKC8  IF NOT POWER OF 2
01766  M01S00073.271l716 +++|          SX1    X6-MXWF-1

Proceed to Part 1