cdc:nos2.source:opl.opl871:deck:sdsplay
Deck SDSPLAY
Library Member Format: MODIFY
Listing Sections
- Deck SDSPLAY Start
- Deck SDSPLAY Part 1 (Line 1767)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.sdsplay +++| IDENT SDSPLAY,SDS 00002 M00S00002.sdsplay +++| ABS
| Line S00003 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00003.252l678 ---| SST
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
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.
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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 +++|*
| Line S00022 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00022.271l750 ---|* SDSPLAY(LFN,OP) ORDER DEPENDENT PARAMETERS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00001.271l750 +++|* SDSPLAY(LFN,OP,IFN) ORDER DEPENDENT PARAMETERS. 00026 M00S00023.sdsplay +++|* OR
| Line S00024 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00024.271l750 ---|* SDSPLAY(L=LFN,LO=OP) ORDER INDEPENDENT PARAMETERS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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).
| Line S00033 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00033.271l750 ---|* THIS PARAMETER VALID ONLY WITH (LO=L).
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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).
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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)
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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 +++|
| Line S00289 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00405 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00431 M01S00405.271l716 ---| VFD 24/0,18/0,18/ASPR 00432 M01S00406.271l716 ---| VFD 24/0,18/0,18/ASCP
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00433 M02S00005.271l750 ---| VFD 24/0,18/0,18/ASCB
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
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
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00459 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00496 M01S00009.271l716 +++| LFCE BSS 0 END OF 4 CHARACTER KEYWORD ENTRIES
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00497 M02S00010.271l750 ---| LCBE SETKW CB,,,SVJT,48,12,SP
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
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
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00472 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00472.271l716 ---| LDTE EQU * *DT* ENTRY 00516 M01S00473.271l716 ---| SETKW DT,,,PFCT,0,12,SP
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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 +++|
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00609 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00708 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00818 M01S00708.271l750 ---| MESSAGE SEND,0,R * SDSPLAY UTILITY COMPLETE.*
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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 +++|
| Line S00749 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00865 M02S00028.271l750 ---| PGO3 SX6 ELGU
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00866 M01S00083.271l750 +++| PGO3 SX0 ELGU
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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 +++|
| Line S00757 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00877 M02S00033.271l750 ---| SX6 EVOR DEFINE MESSAGE INDEX
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00878 M01S00084.271l750 +++| SX0 EVOR DEFINE MESSAGE INDEX 00879 M00S00760.sdsplay +++| BX7 X5+X1 00880 M00S00761.sdsplay +++| SA7 A1
| Line S00762 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00885 M01S00034.271l716 +++| PGO5 RJ SSM SET SERVICE CLASS IN MESSAGE 00886 M01S00035.271l716 +++| EQ PGOX RETURN
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00776 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00906 M01S00776.271l716 ---| ZR X2,PGO2 IF END OF SERVICE CLASSES
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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*
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00805 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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*
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00941 M01S00043.271l716 +++| NG X6,PGO4 IF *EXTP* IS GREATER THAN *EXLP* 00942 M01S00044.271l716 +++| IX6 X1-X3
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00943 M02S00045.271l750 ---| PGO2 NG X6,PGO4 IF *EXTP* IS LESS THAN *EXLP*
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S00810 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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.
| Line S00958 Modification History | |
|---|---|
M01 (Removed by) | sdspl1 |
Seq # *Modification Id* Act ----------------------------+ 01101 M01S00958.sdspl1 ---|* A - 1, 2.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sdspl1 |
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
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | sdspl1 |
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
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | sdspl1 |
Seq # *Modification Id* Act ----------------------------+ 01121 M01S00006.sdspl1 +++| SX6 LCLS *SDSPLAY - CLASS.*
| Line S00973 Modification History | |
|---|---|
M01 (Removed by) | sdspl1 |
Seq # *Modification Id* Act ----------------------------+ 01122 M01S00973.sdspl1 ---| BLD1 LX1 30
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | sdspl1 |
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
| Line S01032 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S01217 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01371 M01S01217.271l716 ---| ZR B7,EPA2 IF NOT WEIGHTING FACTOR
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01372 M01S00046.271l716 +++| ZR B7,EPA2 IF NOT SPECIAL PROCESSING
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
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.
| Line S01542 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01699 M01S01542.271l716 ---|* (X6) = KEYWORD VALUE, FROM *POP*.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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 +++|*
| Line S01553 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01711 M01S01553.271l716 ---|* CALLS DXB, SIN, SPS.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S01558 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S01565 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01727 M01S00097.271l750 +++| 01728 M01S00098.271l750 +++|* PROCESS WEIGHTING FACTOR PARAMETERS. 01729 M01S00099.271l750 +++|
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
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
| Line S01568 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01750 M01S01568.271l750 ---| 01751 M01S01569.271l750 ---|* PROCESS WEIGHTING FACTOR PARAMETERS. 01752 M01S01570.271l750 ---|
| Line S01571 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
M02 (Removed by) | 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
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01760 M02S00071.271l750 ---| PSK2 ZR X6,PKC8 IF NULL WEIGHTING FACTOR
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
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
| Line S01580 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01764 M01S01580.271l716 ---| NE B3,B1,PSK7 IF NOT A POWER OF 2
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
cdc/nos2.source/opl.opl871/deck/sdsplay.txt · Last modified: (external edit)