cdc:nos2.source:opl.opl871:common:comdgjd
Common COMDGJD
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comdgjd +++| CTEXT COMDGJD - GENERATE *J* DISPLAY. 00002 M01S00002.comdgjd +++| SPACE 4,10 00003 M01S00003.comdgjd +++| QUAL$ IF -DEF,QUAL$ 00004 M01S00004.comdgjd +++| QUAL COMDGJD 00005 M01S00005.comdgjd +++| QUAL$ ENDIF 00006 M01S00006.comdgjd +++| BASE MIXED
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00001.ns2459 +++| LIST F 00010 M01S00008.comdgjd +++| SPACE 4,10 00011 M01S00009.comdgjd +++|*** COMDGJD - GENERATE *J* DISPLAY. 00012 M01S00010.comdgjd +++|* J. M. MAREK. 84/02/28. 00013 M01S00011.comdgjd +++| SPACE 4,30 00014 M01S00012.comdgjd +++|*** *COMDGJD* DISPLAYS THE CONTROL POINT STATUS AND THE PENDING 00015 M01S00013.comdgjd +++|* COMMANDS. INFORMATION ABOUT THE DATA TO BE DISPLAYED IS 00016 M01S00014.comdgjd +++|* DEFINED IN THE TABLE *TJDI*, WHICH IS BUILT BY THE MACRO 00017 M01S00015.comdgjd +++|* *JDI*. *JDI* AND *TJDI* ARE DOCUMENTED PRECEEDING THE 00018 M01S00016.comdgjd +++|* DEFINITION OF *TJDI*. 00019 M01S00017.comdgjd +++|* *GJD* IS THE MAIN ROUTINE IN THE COMMON DECK. IT IS DRIVEN 00020 M01S00018.comdgjd +++|* BY ENTRIES IN *TJDI*. 00021 M01S00019.comdgjd +++|* 00022 M01S00020.comdgjd +++|* ENTRY *RLO$* DEFINED = *COMDGJD* IS TO RESIDE IN AN OVERLAY. 00023 M01S00001.252l678 +++|* *GJD$* DEFINED = USER EM SHIFT COUNT IN (GJD$), 00024 M01S00002.252l678 +++|* ELSE READ SHIFT FROM *MEFL*. 00025 M01S00021.comdgjd +++|* 00026 M01S00022.comdgjd +++|* EXAMPLE - 00027 M01S00023.comdgjd +++|*
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00028 M02S00024.ns2459 ---|* NOTE - THE *CONN* AND *LEVEL* INFORMATION WILL ONLY BE 00029 M01S00002.ns2459 +++|* NOTE - THE *CN* AND *LV* INFORMATION WILL ONLY BE 00030 M01S00025.comdgjd +++|* DISPLAYED WHEN APPLICABLE. 00031 M01S00026.comdgjd +++|* 00032 M01S00027.comdgjd +++|* 1 2 3 4 5 6 00033 M01S00028.comdgjd +++|* 1234567890123456789012345678901234567890123456789012345678901234 00034 M01S00029.comdgjd +++|* 00035 M01S00030.comdgjd +++|* JSN = AAAA EJTO = 25 P = 1772 00036 M01S00031.comdgjd +++|* SRUA = 15 RA = 5770 00037 M01S00032.comdgjd +++|* UI = 4537 SRUL = 777777 FL = 25
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00038 M02S00033.ns2459 ---|* FM = SYS606 CS = ONLINE RAE = 360
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00039 M02S00034.ns2459 ---|* PN = R4IAE ( CONN = 1234 ) FLE = 0
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00040 M02S00035.ns2459 ---|* (LEVEL = TPSECRET) CPA = 4000 00041 M01S00003.ns2459 +++|* FM = SYS606 CS = OL RAE = 360 00042 M01S00004.ns2459 +++|* PN = R4IAE (CN = 1234 ) FLE = 0 00043 M01S00005.ns2459 +++|* (LV = TPSECRET) CPA = 4000 00044 M01S00006.ns2459 +++|* CPU = W 00045 M01S00036.comdgjd +++|* 00046 M01S00037.comdgjd +++|* EST = 1 7 55 205 763 XXX XXX XXX XXX XXX 00047 M01S00038.comdgjd +++|* 00048 M01S00039.comdgjd +++|* MS1 = ASSEMBLING LIBEDIT 00049 M01S00040.comdgjd +++|* MS2 = EQ123, TRACK LIMIT. 00050 M01S00041.comdgjd +++|* 00051 M01S00042.comdgjd +++|* REWIND,LGO. 00052 M01S00043.comdgjd +++|* LIBEDIT. 00053 M01S00044.comdgjd +++|* REWIND,NEW,TAPE. 00054 M01S00045.comdgjd +++|* COPYEI,NEW,TAPE,V. 00055 M01S00046.comdgjd +++| JDI SPACE 4,25 00056 M01S00047.comdgjd +++|** JDI - *J* DISPLAY INFORMATION. 00057 M01S00048.comdgjd +++|* 00058 M01S00049.comdgjd +++|* THE *JDI* MACRO IS USED TO CREATE TABLE ENTRIES IN THE 00059 M01S00050.comdgjd +++|* *TJDI* TABLE. THE LAYOUT OF *TJDI* IS DOCUMENTED WHERE IT 00060 M01S00051.comdgjd +++|* IS BUILT NEAR THE END OF *COMPGJD*. 00061 M01S00052.comdgjd +++|* 00062 M01S00053.comdgjd +++|*TAG JDI COL,NL,(TITLE),COND,DLOC,WORD,PROC,FBYT,MASK,SCNT 00063 M01S00054.comdgjd +++|* 00064 M01S00055.comdgjd +++|* ENTRY *TAG* = ADDRESS OF ENTRY (OPTIONAL). 00065 M01S00056.comdgjd +++|* *COL* = COLUMN IN WHICH THE DATUM WILL BE DISPLAYED. 00066 M01S00057.comdgjd +++|* (ACTUAL VALUES MAY BE 1, 2, OR 3.) 00067 M01S00058.comdgjd +++|* *NL* = NUMBER OF LINES TO SKIP BEFORE DISPLAY. 00068 M01S00059.comdgjd +++|* (ACTUAL VALUES MAY BE 0, 1, OR 2. THE DEFAULT 00069 M01S00060.comdgjd +++|* VALUE IS 0 (DISPLAY ON THE SAME LINE)). 00070 M01S00061.comdgjd +++|* *TITLE* = TITLE OF DATUM TO BE DISPLAYED. 00071 M01S00062.comdgjd +++|* *COND* = *, IF DISPLAYING IS CONDITIONAL. 00072 M01S00063.comdgjd +++|* *DLOC* = DATA LOCATION. 00073 M01S00064.comdgjd +++|* = *PP*, DATA IS IN PP MEMORY. 00074 M01S00065.comdgjd +++|* = *CPA*, DATA IS IN THE JOB-S CPA. 00075 M01S00066.comdgjd +++|* *WORD* = ADDRESS, IF *DLOC* = *PP*. 00076 M01S00067.comdgjd +++|* = OFFSET, IF *DLOC* = *CPA*. 00077 M01S00068.comdgjd +++|* *PROC* = ADDRESS OF DISPLAY PROCESSOR. 00078 M01S00069.comdgjd +++|* *FBYT* = FIRST BYTE OF DATA IN *CM*, IF *PROC*=*ADS*. 00079 M01S00070.comdgjd +++|* *MASK* = MASK FOR FIRST BYTE, IF *PROC*=*ADS*.
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00080 M02S00071.252l678 ---|* *SCNT* = SHIFT COUNT FOR VALUE, IF *PROC*=*ADS*. THE
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00081 M02S00072.252l678 ---|* DEFAULT IS 0. 00082 M01S00003.252l678 +++|* *SCNT* = SHIFT INDICATOR, IF *PROC*=*ADS*. VALUE 00083 M01S00004.252l678 +++|* IS TO BE SHIFTED BY USER EM SHIFT COUNT. 00084 M01S00073.comdgjd +++| 00085 M01S00074.comdgjd +++| 00086 M01S00075.comdgjd +++| JDI MACRO COL,NL,TITLE,COND,DLOC,WORD,PROC,FBYT,MASK,SCNT 00087 M01S00076.comdgjd +++|* 00088 M01S00077.comdgjd +++|* SET THE DISPLAY PROCESSOR WORD. 00089 M01S00078.comdgjd +++|* 00090 M01S00079.comdgjd +++| IFC NE,$PROC$ADS$,2 00091 M01S00080.comdgjd +++| VFD 11/PROC,1/0 00092 M01S00081.comdgjd +++| SKIP 1
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00093 M02S00082.252l678 ---| VFD 6/MASK,2/FBYT,3/SCNT,1/1 00094 M01S00005.252l678 +++| VFD 6/MASK,2/FBYT,1/SCNT,2/,1/1 00095 M01S00083.comdgjd +++|* 00096 M01S00084.comdgjd +++|* GENERATE THE TITLE CHARACTER STRING. 00097 M01S00085.comdgjd +++|* 00098 M01S00086.comdgjd +++| .A IFC NE,$TITLE$$ 00099 M01S00087.comdgjd +++| .1 MICRO 1,,$TITLE$ 00100 M01S00088.comdgjd +++| .1 MICCNT .1 00101 M01S00089.comdgjd +++| .1 SET .1+1 00102 M01S00090.comdgjd +++| GJD RMT 00103 M01S00091.comdgjd +++| DATA H$TITLE$ 00104 M01S00092.comdgjd +++| GJD RMT 00105 M01S00093.comdgjd +++| .A ELSE 00106 M01S00094.comdgjd +++|* 00107 M01S00095.comdgjd +++|* SPECIAL CASE THE COMMAND ENTRY. 00108 M01S00096.comdgjd +++|* 00109 M01S00097.comdgjd +++| .1 SET 4 00110 M01S00098.comdgjd +++| .A ENDIF 00111 M01S00099.comdgjd +++|* 00112 M01S00100.comdgjd +++|* SET THE X-COORDINATE FIELD. 00113 M01S00101.comdgjd +++|* XC = (CH05 + (COL-1)*24D*XINC - TITLELENGTH*XINC - CH01)/10. 00114 M01S00102.comdgjd +++|* 00115 M01S00103.comdgjd +++| VFD 7/COL*24D-.1-20D 00116 M01S00104.comdgjd +++|* 00117 M01S00105.comdgjd +++|* SET THE LENGTH FIELD. 00118 M01S00106.comdgjd +++|* 00119 M01S00107.comdgjd +++| VFD 2/.1/2 00120 M01S00108.comdgjd +++|* 00121 M01S00109.comdgjd +++|* SET THE CONDITIONAL DISPLAY BIT. 00122 M01S00110.comdgjd +++|* 00123 M01S00111.comdgjd +++| IFC NE,$COND$$,2 00124 M01S00112.comdgjd +++| VFD 1/1 00125 M01S00113.comdgjd +++| SKIP 1 00126 M01S00114.comdgjd +++| VFD 1/0 00127 M01S00115.comdgjd +++|* 00128 M01S00116.comdgjd +++|* SET THE NEW LINE FIELD. 00129 M01S00117.comdgjd +++|* 00130 M01S00118.comdgjd +++| VFD 2/NL-1 00131 M01S00119.comdgjd +++|* 00132 M01S00120.comdgjd +++|* SET ADDRESS/OFFSET FIELD. 00133 M01S00121.comdgjd +++|* 00134 M01S00122.comdgjd +++| VFD 11/WORD 00135 M01S00123.comdgjd +++|* 00136 M01S00124.comdgjd +++|* SET THE LOCATE PROCESSOR FIELD. 00137 M01S00125.comdgjd +++|* 00138 M01S00126.comdgjd +++| .C IFC EQ,$DLOC$CPA$ 00139 M01S00127.comdgjd +++| VFD 1/0 00140 M01S00128.comdgjd +++| .C ELSE 00141 M01S00129.comdgjd +++| .D IFC EQ,$DLOC$PP$ 00142 M01S00130.comdgjd +++| VFD 1/1 00143 M01S00131.comdgjd +++| .D ELSE 00144 M01S00132.comdgjd +++| ERR UNRECOGNIZED DATA LOCATION - DLOC 00145 M01S00133.comdgjd +++| .D ENDIF 00146 M01S00134.comdgjd +++| .C ENDIF 00147 M01S00135.comdgjd +++|* 00148 M01S00136.comdgjd +++| JDI ENDM 00149 M01S00137.comdgjd +++| 00150 M01S00138.comdgjd +++| ERRNZ XINC-10 MACRO DEPENDS ON VALUE 00151 M01S00139.comdgjd +++| DOT SPACE 4,25 00152 M01S00140.comdgjd +++|** DOT (*.*) MICRO - REDEFINED INSTRUCTION MICRO. 00153 M01S00141.comdgjd +++|* 00154 M01S00142.comdgjd +++|* THE MICRO *.* WILL BE A PERIOD IF *COMDGJD* IS BEING 00155 M01S00143.comdgjd +++|* ASSEMBLED IN AN OVERLAY. IT WILL BE A BLANK IF *COMDGJD* 00156 M01S00144.comdgjd +++|* IS BEING ASSEMBLED IN RESIDENT CODE. IT CAN BE USED TO 00157 M01S00145.comdgjd +++|* SUFFIX A REDEFINED INSTRUCTION IN OVERLAYS. 00158 M01S00146.comdgjd +++|* 00159 M01S00147.comdgjd +++|* EXAMPLE - 00160 M01S00148.comdgjd +++|* 00161 M01S00149.comdgjd +++|* NOTE THAT ASTERISKS HAVE BEEN USED IN PLACE OF THE ACTUAL 00162 M01S00150.comdgjd +++|* MICRO MARKS IN THE EXAMPLE TO AVOID AN ASSEMBLY ERROR. 00163 M01S00151.comdgjd +++|* 00164 M01S00152.comdgjd +++|* LDC*.* TJDI 00165 M01S00153.comdgjd +++| 00166 M01S00154.comdgjd +++| 00167 M01S00155.comdgjd +++| .A IF DEF,RLO$ 00168 M01S00156.comdgjd +++| . MICRO 1,,$.$ 00169 M01S00157.comdgjd +++| .A ELSE 00170 M01S00158.comdgjd +++| . MICRO 1,,$ $ 00171 M01S00159.comdgjd +++| .A ENDIF 00172 M01S00160.comdgjd +++| GJD SPACE 4,20 00173 M01S00161.comdgjd +++|*** GJD - GENERATE *J* DISPLAY. 00174 M01S00162.comdgjd +++|* 00175 M01S00163.comdgjd +++|* DISPLAY THE CONTROL POINT STATUS AND THE PENDING COMMANDS. 00176 M01S00164.comdgjd +++|* 00177 M01S00165.comdgjd +++|* ENTRY (A) = 0, IF CME NOT PRESENT. 00178 M01S00166.comdgjd +++|* (CP) = CONTROL POINT AREA ADDRESS. 00179 M01S00167.comdgjd +++|* (SF) = 0, IF UNSECURED SYSTEM. 00180 M01S00168.comdgjd +++|* (T7) = EJT ORDINAL OF JOB. 00181 M01S00169.comdgjd +++|* (AB - AB+4) = WORD *JSNE* OF THE JOB-S EJT ENTRY. 00182 M01S00170.comdgjd +++|* 00183 M01S00171.comdgjd +++|* EXIT *J* DISPLAY DISPLAYED. 00184 M01S00172.comdgjd +++|* 00185 M01S00173.comdgjd +++|* USES T1, T5, T6, T8, T9, YC, AB - AB+4, CM - CM+4. 00186 M01S00174.comdgjd +++|*
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00175.ns2459 ---|* CALLS ADS, DCM, DCN, DEQ, DFM, DJN, DLV, DMS, DSA, DSL, DTC,
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00176.ns2459 ---|* DTI, D6S. 00189 M01S00007.ns2459 +++|* CALLS ADS, DCM, DCN, DCS, DEQ, DFM, DJN, DLV, DMS, DSA, DSL, 00190 M01S00008.ns2459 +++|* DTC, DTI, D6S. 00191 M01S00177.comdgjd +++|* 00192 M01S00178.comdgjd +++|* MACROS JDI, SFA. 00193 M01S00179.comdgjd +++| 00194 M01S00180.comdgjd +++| 00195 M01S00181.comdgjd +++| GJD BSS 0 ENTRY 00196 M01S00182.comdgjd +++| ZJN GJD1 IF CME NOT PRESENT 00197 M01S00183.comdgjd +++| LDC ADNI+FLSW+1 00198 M01S00184.comdgjd +++| STM DTCA FORCE READ OF *FLSW*+1 00199 M01S00185.comdgjd +++| GJD1 LDC"." TJDI-1 INITIALIZE *SND* 00200 M01S00186.comdgjd +++| STD T8
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00201 M02S00187.ns2459 ---| ADN TTTI-TJDI+1 00202 M01S00009.ns2459 +++| ADD HN 00203 M01S00010.ns2459 +++| ERRNZ TTTI-TJDI+1-100 CODE DEPENDS ON VALUE 00204 M01S00188.comdgjd +++| STI T8 00205 M01S00189.comdgjd +++| ERRNZ TJDI-1-TTIP CODE DEPENDS ON POSITION 00206 M01S00190.comdgjd +++| LDM CTOS 00207 M01S00191.comdgjd +++| ADK YINC 00208 M01S00192.comdgjd +++| STD YC 00209 M01S00193.comdgjd +++| 00210 M01S00194.comdgjd +++|* MAIN LOOP. 00211 M01S00195.comdgjd +++| 00212 M01S00196.comdgjd +++| GJD2 AOD T8 SELECT DISPLAY PROCESSOR 00213 M01S00197.comdgjd +++| LDI T8 00214 M01S00198.comdgjd +++| SHN 21-0 00215 M01S00199.comdgjd +++| PJN GJD3 IF NOT *ADS* 00216 M01S00200.comdgjd +++| STD AB+2 00217 M01S00201.comdgjd +++| LDC ADS 00218 M01S00202.comdgjd +++| GJD3 STM GJDA STORE ADDRESS OF DISPLAY PROCESSOR 00219 M01S00203.comdgjd +++| LDM TTIP SET UP TITLE INFORMATION 00220 M01S00204.comdgjd +++| STM DTIA STORE ADDRESS OF TITLE 00221 M01S00205.comdgjd +++| AOD T8 SELECT CHARACTER POSITION 00222 M01S00206.comdgjd +++| LDI T8 00223 M01S00207.comdgjd +++| SHN 0-2+22 00224 M01S00208.comdgjd +++| SCN 7 00225 M01S00209.comdgjd +++| ADD XC 00226 M01S00210.comdgjd +++| STD T5 SAVE CHARACTER POSITION FOR *DTI* 00227 M01S00211.comdgjd +++| OAN CH+40 OUTPUT CHARACTER POSITION 00228 M01S00212.comdgjd +++| MJN GJD5 IF NOT NEW LINE 00229 M01S00213.comdgjd +++| SHN 2-0-22 00230 M01S00214.comdgjd +++| ZJN GJD4 IF NOT DOUBLE SPACE 00231 M01S00215.comdgjd +++| LCN YINC 00232 M01S00216.comdgjd +++| GJD4 SBN YINC 00233 M01S00217.comdgjd +++| RAD YC 00234 M01S00218.comdgjd +++| OAN CH+40 OUTPUT LINE POSITION 00235 M01S00219.comdgjd +++| GJD5 LDI T8 00236 M01S00220.comdgjd +++| LPN 34 00237 M01S00221.comdgjd +++| SHN 0-3+22 00238 M01S00222.comdgjd +++| STD T6 STORE TITLE LENGTH FOR *DTI* 00239 M01S00223.comdgjd +++| RAM TTIP UPDATE ADDRESS OF NEXT TITLE 00240 M01S00224.comdgjd +++| MJN GJD6 IF CONDITIONAL DATUM 00241 M01S00225.comdgjd +++| RJM DTI DISPLAY TITLE INFORMATION 00242 M01S00226.comdgjd +++| GJD6 AOD T8 SELECT LOCATE PROCESSOR 00243 M01S00227.comdgjd +++| LDI T8 00244 M01S00228.comdgjd +++| SHN 0-1+22 00245 M01S00229.comdgjd +++| PJN GJD7 IF DATA IS IN THE CPA 00246 M01S00230.comdgjd +++| STD T1 00247 M01S00231.comdgjd +++| LDI T1 GET DATUM FROM PP MEMORY 00248 M01S00232.comdgjd +++| STD CM+4 00249 M01S00233.comdgjd +++| UJN GJD8 EXIT TO PROCESSOR 00250 M01S00234.comdgjd +++| 00251 M01S00235.comdgjd +++| GJD7 ADD CP 00252 M01S00236.comdgjd +++| CRD CM 00253 M01S00237.comdgjd +++| GJD8 LJM ADS EXECUTE DISPLAY PROCESSOR 00254 M01S00238.comdgjd +++| GJDA EQU *-1 (ADDRESS OF DISPLAY PROCESSOR) 00255 M01S00011.ns2459 +++| DSA SPACE 4,15 00256 M01S00012.ns2459 +++|** DSA - DISPLAY SRU ACTUAL VALUE. 00257 M01S00013.ns2459 +++|* 00258 M01S00014.ns2459 +++|* THIS SUBROUTINE CONVERTS AN SRU VALUE IN MICRO-UNITS/10 00259 M01S00015.ns2459 +++|* TO UNITS BY THE APPROXIMATION FORMULA 00260 M01S00016.ns2459 +++|* 00261 M01S00017.ns2459 +++|* VAL = (I - I/8 - I/32 - I/128 - ...)*2 + J/4610B 00262 M01S00018.ns2459 +++|* 00263 M01S00019.ns2459 +++|* I - FIRST 2 BYTES OF SRU VALUE 00264 M01S00020.ns2459 +++|* J - THIRD BYTE OF SRU VALUE 00265 M01S00021.ns2459 +++|* 00266 M01S00022.ns2459 +++|* ENTRY (CM+1 - CM+4) = SRU IN MICRO-UNITS/10. 00267 M01S00023.ns2459 +++|* 00268 M01S00024.ns2459 +++|* USES CM - CM+4. 00269 M01S00025.ns2459 +++|* 00270 M01S00026.ns2459 +++|* EXITS TO *ADS1*. 00271 M01S00027.ns2459 +++| 00272 M01S00028.ns2459 +++| 00273 M01S00029.ns2459 +++| DSA BSS 0 ENTRY 00274 M01S00030.ns2459 +++| LDD CM+1 MAXIMUM VALUE 77770B 00275 M01S00031.ns2459 +++| LPN 77 00276 M01S00032.ns2459 +++| STD CM+1 00277 M01S00033.ns2459 +++| SHN 14 00278 M01S00034.ns2459 +++| LMD CM+2 00279 M01S00035.ns2459 +++| SHN -3 1/8 00280 M01S00036.ns2459 +++| STD CM FRACTION ACCUMULATOR 00281 M01S00037.ns2459 +++| STD CM+4 00282 M01S00038.ns2459 +++| DSA1 LDD CM+4 00283 M01S00039.ns2459 +++| SHN -2 00284 M01S00040.ns2459 +++| ZJN DSA2 IF FRACTION ZERO 00285 M01S00041.ns2459 +++| STD CM+4 00286 M01S00042.ns2459 +++| RAD CM 1/8 + 1/32 + 1/128 + ... 00287 M01S00043.ns2459 +++| UJN DSA1 CONTINUE FRACTION COMPUTATION 00288 M01S00044.ns2459 +++| 00289 M01S00045.ns2459 +++| DSA2 LDD CM+2 SUBTRACT FRACTION ACCUMULATED 00290 M01S00046.ns2459 +++| SBD CM 00291 M01S00047.ns2459 +++| STD CM+2 00292 M01S00048.ns2459 +++| PJN DSA3 IF NO UNDERFLOW 00293 M01S00049.ns2459 +++| SOD CM+1 00294 M01S00050.ns2459 +++| DSA3 LDD CM+1 00295 M01S00051.ns2459 +++| RAD CM+1 00296 M01S00052.ns2459 +++| LDD CM+2 00297 M01S00053.ns2459 +++| RAD CM+2 00298 M01S00054.ns2459 +++| SHN -14 00299 M01S00055.ns2459 +++| RAD CM+1 00300 M01S00056.ns2459 +++| LDD CM+3 00301 M01S00057.ns2459 +++| ADC -4610 00302 M01S00058.ns2459 +++| MJN DSA4 IF NOT CLOSE TO 1 SRU 00303 M01S00059.ns2459 +++| AOD CM+2 00304 M01S00060.ns2459 +++| DSA4 LDD CM+1 00305 M01S00061.ns2459 +++| SHN 14 00306 M01S00062.ns2459 +++| LMD CM+2 00307 M01S00063.ns2459 +++| UJN ADS1 DISPLAY VALUE 00308 M01S00064.ns2459 +++| DSL SPACE 4,10 00309 M01S00065.ns2459 +++|** DSL - DISPLAY *SRU* LIMIT. 00310 M01S00066.ns2459 +++|* 00311 M01S00067.ns2459 +++|* ENTRY (CM - CM+4) = (*STLW*). 00312 M01S00068.ns2459 +++|* 00313 M01S00069.ns2459 +++|* EXITS TO *ADS1*. 00314 M01S00070.ns2459 +++| 00315 M01S00071.ns2459 +++| 00316 M01S00072.ns2459 +++| DSL BSS 0 ENTRY 00317 M01S00073.ns2459 +++| LDD CM+1 DISPLAY SRU LIMIT 00318 M01S00074.ns2459 +++| SCN 77 00319 M01S00075.ns2459 +++| SHN 6 00320 M01S00076.ns2459 +++| LMD CM 00321 M01S00077.ns2459 +++| SHN 6 00322 M01S00078.ns2459 +++| UJN ADS1 DISPLAY VALUE 00323 M01S00239.comdgjd +++| ADS SPACE 4,10 00324 M01S00240.comdgjd +++|** ADS - ASSEMBLE AND DISPLAY A SIX-DIGIT NUMBER. 00325 M01S00241.comdgjd +++|*
| Line S00242 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00326 M02S00242.252l678 ---|* ENTRY (AB+2) = 1/,6/MASK,2/STARTING BYTE,3/SHIFT COUNT. 00327 M01S00006.252l678 +++|* ENTRY (AB+2) = 1/,6/MASK,2/STARTING BYTE,1/SHIFT FLAG,2/. 00328 M01S00243.comdgjd +++|* (CM - CM+4) = WORD CONTAINING VALUE. 00329 M01S00244.comdgjd +++|*
| Line S00245 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00330 M02S00245.252l678 ---|* USES T2. 00331 M01S00007.252l678 +++|* USES T2, CM - CM+4. 00332 M01S00246.comdgjd +++|* 00333 M01S00247.comdgjd +++|* CALLS D6S. 00334 M01S00248.comdgjd +++| 00335 M01S00249.comdgjd +++| 00336 M01S00250.comdgjd +++| ADS BSS 0 ENTRY 00337 M01S00251.comdgjd +++| LDD AB+2 ASSEMBLE AND DISPLAY A SIX-DIGIT NUMBER 00338 M01S00252.comdgjd +++| SHN 0-5+22 GET BYTE MASK 00339 M01S00253.comdgjd +++| STM ADSA 00340 M01S00254.comdgjd +++| SCN 77 00341 M01S00255.comdgjd +++| SHN 2 GET BYTE NUMBER 00342 M01S00256.comdgjd +++| STD T2 00343 M01S00008.252l678 +++| GJD$ IF DEF,GJD$ 00344 M01S00009.252l678 +++| SHN 11-21 GENERATE *SHN* OR *PSN* INSTRUCTION 00345 M01S00010.252l678 +++| ERRNZ 400000B/1S8-SHNI CODE ASSUMES VALUE 00346 M01S00011.252l678 +++| .A IFLE GJD$,77B 00347 M01S00012.252l678 +++| ADD GJD$ USER EM SHIFT COUNT 00348 M01S00013.252l678 +++| .A ELSE 00349 M01S00014.252l678 +++| ADM"." GJD$ USER EM SHIFT COUNT 00350 M01S00015.252l678 +++| .A ENDIF 00351 M01S00016.252l678 +++| GJD$ ELSE 00352 M01S00017.252l678 +++| SCN 77
| Line S00257 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00353 M02S00257.252l678 ---| SHN 3-22 GET SHIFT COUNT
| Line S00258 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00354 M02S00258.252l678 ---| ADD TH 00355 M01S00018.252l678 +++| PJN ADS0 IF NOT TO BE SHIFTED 00356 M01S00019.252l678 +++| LDK MEFL LOAD USER EM SHIFT COUNT 00357 M01S00020.252l678 +++| CRD CM 00358 M01S00021.252l678 +++| LDD CM+2 00359 M01S00022.252l678 +++| SHN -11 00360 M01S00023.252l678 +++| ADS0 ADD TH 00361 M01S00024.252l678 +++| ERRNZ SHNI-1000 00362 M01S00025.252l678 +++| GJD$ ENDIF
| Line S00259 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00363 M02S00259.252l678 ---| ERRNZ SHNI-1000 00364 M01S00260.comdgjd +++| STM ADSB 00365 M01S00261.comdgjd +++| LDM CM,T2 GET VALUE 00366 M01S00262.comdgjd +++| LPC ** 00367 M01S00263.comdgjd +++| ADSA EQU *-1 MASK FOR UPPER BYTE OF DATUM 00368 M01S00264.comdgjd +++| SHN 14 00369 M01S00265.comdgjd +++| LMM CM+1,T2 00370 M01S00266.comdgjd +++| ADSB SHN ** SHIFT VALUE BEFORE DISPLAYING 00371 M01S00026.252l678 +++|* PSN (NO SHIFT NEEDED) 00372 M01S00267.comdgjd +++| ADS1 RJM D6S DISPLAY A SIX-DIGIT NUMBER 00373 M01S00268.comdgjd +++| ADS2 LJM GJD2 CONTINUE DISPLAYING
| Line S00269 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00374 M02S00269.ns2459 ---| DCM SPACE 4,10
| Line S00270 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00375 M02S00270.ns2459 ---|** DCM - DISPLAY CONNECTION MESSAGE.
| Line S00271 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00376 M02S00271.ns2459 ---|*
| Line S00272 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00377 M02S00272.ns2459 ---|* ENTRY (A) = (T9) = CONNECTION STATUS.
| Line S00273 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00378 M02S00273.ns2459 ---|
| Line S00274 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00379 M02S00274.ns2459 ---|
| Line S00275 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00380 M02S00275.ns2459 ---| DCM BSS 0 ENTRY
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00381 M02S00276.ns2459 ---| SHN 1 MULTIPLY THE CONNECTION STATUS BY THREE
| Line S00277 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00382 M02S00277.ns2459 ---| ADD T9
| Line S00278 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00383 M02S00278.ns2459 ---| ADC"." TCSM GET CONNECTION STATUS MESSAGE ADDRESS
| Line S00279 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00384 M02S00279.ns2459 ---| STM DCMA
| Line S00280 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00385 M02S00280.ns2459 ---| LDN 3
| Line S00281 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00386 M02S00281.ns2459 ---| OAM"." TCSM,CH DISPLAY CONNECTION STATUS MESSAGE
| Line S00282 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00387 M02S00282.ns2459 ---| DCMA EQU *-1 (CONNECTION STATUS MESSAGE ADDRESS)
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00283.ns2459 ---| DCM1 UJN ADS2 CONTINUE DISPLAYING 00389 M01S00284.comdgjd +++| DCN SPACE 4,10 00390 M01S00285.comdgjd +++|** DCN - DISPLAY CONNECTION NUMBER. 00391 M01S00286.comdgjd +++|* 00392 M01S00287.comdgjd +++|* ENTRY (CM+1) = CONNECTION NUMBER. 00393 M01S00288.comdgjd +++|* (T9) = CONNECTION STATUS. 00394 M01S00289.comdgjd +++|* 00395 M01S00290.comdgjd +++|* CALLS DTI. 00396 M01S00291.comdgjd +++| 00397 M01S00292.comdgjd +++| 00398 M01S00293.comdgjd +++| DCN BSS 0 ENTRY 00399 M01S00294.comdgjd +++| LDD T9 CHECK FOR ONLINE JOB 00400 M01S00295.comdgjd +++| SBN OLCS 00401 M01S00296.comdgjd +++| NJN ADS2 IF NOT ONLINE JOB 00402 M01S00297.comdgjd +++| RJM DTI DISPLAY TITLE INFORMATION 00403 M01S00298.comdgjd +++| LDD CM+1 00404 M01S00299.comdgjd +++| UJN ADS1 DISPLAY CONNECTION NUMBER 00405 M01S00079.ns2459 +++| DCS SPACE 4,10 00406 M01S00080.ns2459 +++|** DCS - DISPLAY CPU STATUS CODE. 00407 M01S00081.ns2459 +++|* 00408 M01S00082.ns2459 +++|* ENTRY (CM - CM+4) = STSW. 00409 M01S00083.ns2459 +++|* 00410 M01S00084.ns2459 +++|* EXIT TO *DCM* TO DISPLAY STATUS. 00411 M01S00085.ns2459 +++| 00412 M01S00086.ns2459 +++| 00413 M01S00087.ns2459 +++| DCS BSS 0 ENTRY 00414 M01S00088.ns2459 +++| LDD CM GET CPU STATUS 00415 M01S00089.ns2459 +++| SHN -11 00416 M01S00090.ns2459 +++| ADN TCPS-TCSM SET OFFSET INTO TABLE 00417 M01S00091.ns2459 +++| ERRNZ TCPS-TCSM-TCSML TABLES MUST BE CONTIGUOUS 00418 M01S00092.ns2459 +++|* UJN DCM DISPLAY CPU STATUS CODE 00419 M01S00093.ns2459 +++| DCM SPACE 4,10 00420 M01S00094.ns2459 +++|** DCM - DISPLAY CONNECTION MESSAGE. 00421 M01S00095.ns2459 +++|* 00422 M01S00096.ns2459 +++|* ENTRY (A) = (T9) = CONNECTION STATUS. 00423 M01S00097.ns2459 +++| 00424 M01S00098.ns2459 +++| 00425 M01S00099.ns2459 +++| DCM BSS 0 ENTRY 00426 M01S00100.ns2459 +++| STD T2 00427 M01S00101.ns2459 +++| LDN 0 SKIP FOUR SPACES 00428 M01S00102.ns2459 +++| OAN CH+40 00429 M01S00103.ns2459 +++| OAN CH+40 00430 M01S00104.ns2459 +++| LDM TCSM,T2 00431 M01S00105.ns2459 +++| OAN CH+40 DISPLAY CONNECTION STATUS MESSAGE 00432 M01S00106.ns2459 +++| DCM1 UJN ADS2 CONTINUE DISPLAYING 00433 M01S00300.comdgjd +++| DEQ SPACE 4,10 00434 M01S00301.comdgjd +++|** DEQ - DISPLAY EQUIPMENT. 00435 M01S00302.comdgjd +++|* 00436 M01S00303.comdgjd +++|* ENTRY (T7) = EJTO OF JOB. 00437 M01S00304.comdgjd +++|* 00438 M01S00305.comdgjd +++|* USES AB - AB+4, CM - CM+4. 00439 M01S00306.comdgjd +++|* 00440 M01S00307.comdgjd +++|* CALLS D4S. 00441 M01S00308.comdgjd +++|* 00442 M01S00309.comdgjd +++|* MACRO SFA. 00443 M01S00310.comdgjd +++| 00444 M01S00311.comdgjd +++| 00445 M01S00312.comdgjd +++| DEQ BSS 0 ENTRY 00446 M01S00313.comdgjd +++| LDK ESTP GET EST POINTER WORD 00447 M01S00314.comdgjd +++| CRD AB 00448 M01S00315.comdgjd +++| LDN DSEQ 00449 M01S00316.comdgjd +++| STD AB 00450 M01S00317.comdgjd +++| LDN 12 SET EQUIPMENT DISPLAY COUNT 00451 M01S00318.comdgjd +++| STD AB+3 00452 M01S00319.comdgjd +++| DEQ1 SFA EST,AB READ EQUIPMENT ASSIGNMENT 00453 M01S00320.comdgjd +++| ADK EQAE 00454 M01S00321.comdgjd +++| CRD CM 00455 M01S00322.comdgjd +++| LDD CM+4 LOAD EJTO 00456 M01S00323.comdgjd +++| LMD T7 00457 M01S00324.comdgjd +++| NJN DEQ2 IF EJTO-S DO NOT MATCH 00458 M01S00325.comdgjd +++| LDD AB CALCULATE EST ORDINAL 00459 M01S00326.comdgjd +++| RJM D4S DISPLAY EST ORDINAL 00460 M01S00327.comdgjd +++| SOD AB+3 DECREASE EQUIPMENT DISPLAY NUMBER 00461 M01S00328.comdgjd +++| ZJN DEQ3 IF EQUIPMENT DISPLAY LIMIT 00462 M01S00329.comdgjd +++| DEQ2 AOD AB ADVANCE EST ORDINAL 00463 M01S00330.comdgjd +++| LMD AB+2 00464 M01S00331.comdgjd +++| NJN DEQ1 IF NOT END OF EST 00465 M01S00332.comdgjd +++| DEQ3 UJN DCM1 CONTINUE DISPLAYING 00466 M01S00333.comdgjd +++| DFM SPACE 4,10 00467 M01S00334.comdgjd +++|** DFM - DISPLAY FAMILY NAME. 00468 M01S00335.comdgjd +++|* 00469 M01S00336.comdgjd +++|* ENTRY (CM - CM+4) = *PFCW*. 00470 M01S00337.comdgjd +++|* 00471 M01S00338.comdgjd +++|* USES CM - CM+4. 00472 M01S00339.comdgjd +++|* 00473 M01S00340.comdgjd +++|* MACRO SFA. 00474 M01S00341.comdgjd +++| 00475 M01S00342.comdgjd +++| 00476 M01S00343.comdgjd +++| 00477 M01S00344.comdgjd +++| DFM BSS 0 ENTRY 00478 M01S00345.comdgjd +++| SFA EST,CM+3 READ FAMILY EST ENTRY 00479 M01S00346.comdgjd +++| ADK EQDE 00480 M01S00347.comdgjd +++| CRD CM 00481 M01S00348.comdgjd +++| LDD CM+4 GET FAMILY NAME FROM MST 00482 M01S00349.comdgjd +++| SHN 3 00483 M01S00350.comdgjd +++| ADN PFGL 00484 M01S00351.comdgjd +++| CRD CM 00485 M01S00352.comdgjd +++| DFM1 LDD CM+3 00486 M01S00353.comdgjd +++| SCN 77 00487 M01S00354.comdgjd +++| STD CM+3 00488 M01S00355.comdgjd +++| LDN 4 00489 M01S00356.comdgjd +++| OAM CM,CH DISPLAY FAMILY NAME 00490 M01S00357.comdgjd +++| UJN DEQ3 CONTINUE DISPLAYING 00491 M01S00358.comdgjd +++| DJN SPACE 4,10 00492 M01S00359.comdgjd +++|** DJN - DISPLAY JSN AND SAVE CONNECTION STATUS. 00493 M01S00360.comdgjd +++|* 00494 M01S00361.comdgjd +++|* ENTRY (A) = (AB+4). 00495 M01S00362.comdgjd +++|* (AB - AB+4) = *JSNE* WORD OF EJT ENTRY. 00496 M01S00363.comdgjd +++|* 00497 M01S00364.comdgjd +++|* EXIT (T9) = CONNECTION STATUS. 00498 M01S00365.comdgjd +++| 00499 M01S00366.comdgjd +++| 00500 M01S00367.comdgjd +++| DJN BSS 0 ENTRY 00501 M01S00368.comdgjd +++| SHN -7 SAVE CONNECTION STATUS MESSAGE ADDRESS 00502 M01S00369.comdgjd +++| LPN 17 00503 M01S00370.comdgjd +++| STD T9 00504 M01S00371.comdgjd +++| LDN 2 00505 M01S00372.comdgjd +++| OAM AB,CH DISPLAY JSN 00506 M01S00373.comdgjd +++| DJN1 UJN DEQ3 00507 M01S00374.comdgjd +++| DLV SPACE 4,10 00508 M01S00375.comdgjd +++|** DLV - DISPLAY JOB ACCESS LEVEL IF SYSTEM IS IN SECURED MODE. 00509 M01S00376.comdgjd +++|* 00510 M01S00377.comdgjd +++|* ENTRY (SF) = 0, IF UNSECURED SYSTEM. 00511 M01S00378.comdgjd +++|* (CM - CM+4) = (*JSCW*). 00512 M01S00379.comdgjd +++|* 00513 M01S00380.comdgjd +++|* CALLS DAL, DTI. 00514 M01S00381.comdgjd +++| 00515 M01S00382.comdgjd +++| 00516 M01S00383.comdgjd +++| DLV BSS 0 ENTRY 00517 M01S00384.comdgjd +++| LDD SF 00518 M01S00385.comdgjd +++| ZJN DEQ3 IF UNSECURED SYSTEM 00519 M01S00386.comdgjd +++| RJM DTI DISPLAY TITLE INFORMATION 00520 M01S00387.comdgjd +++| LDD CM+1 00521 M01S00388.comdgjd +++| SHN -11 00522 M01S00389.comdgjd +++| RJM DAL DISPLAY ACCESS LEVEL STRING 00523 M01S00390.comdgjd +++| UJN DJN1 CONTINUE DISPLAYING 00524 M01S00391.comdgjd +++| DMS SPACE 4,10 00525 M01S00392.comdgjd +++|** DMS - DISPLAY MESSAGE. 00526 M01S00393.comdgjd +++|* 00527 M01S00394.comdgjd +++|* ENTRY (A) = ABSOLUTE ADDRESS OF BUFFER CONTAINING MESSAGE. 00528 M01S00395.comdgjd +++|* = *MS1W* OR *MS2W*. 00529 M01S00396.comdgjd +++|* 00530 M01S00397.comdgjd +++|* CALLS DOL. 00531 M01S00398.comdgjd +++| 00532 M01S00399.comdgjd +++| 00533 M01S00400.comdgjd +++| DMS BSS 0 ENTRY 00534 M01S00401.comdgjd +++| RJM DOL DISPLAY ONE LINE 00535 M01S00402.comdgjd +++| UJN DJN1 CONTINUE DISPLAYING
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00536 M02S00403.ns2459 ---| DSA SPACE 4,15
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00537 M02S00404.ns2459 ---|** DSA - DISPLAY SRU ACTUAL VALUE.
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00538 M02S00405.ns2459 ---|*
| Line S00406 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00539 M02S00406.ns2459 ---|* THIS SUBROUTINE CONVERTS AN SRU VALUE IN MICRO-UNITS/10
| Line S00407 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00540 M02S00407.ns2459 ---|* TO UNITS BY THE APPROXIMATION FORMULA:
| Line S00408 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00541 M02S00408.ns2459 ---|*
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00542 M02S00409.ns2459 ---|* VAL = (I - I/8 - I/32 - I/128 - ...)*2 + J/4610B
| Line S00410 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00543 M02S00410.ns2459 ---|*
| Line S00411 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00544 M02S00411.ns2459 ---|* I - FIRST 2 BYTES OF SRU VALUE
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00545 M02S00412.ns2459 ---|* J - THIRD BYTE OF SRU VALUE
| Line S00413 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00546 M02S00413.ns2459 ---|*
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00547 M02S00414.ns2459 ---|* ENTRY (CM+1 - CM+4) = SRU IN MICRO-UNITS/10.
| Line S00415 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00548 M02S00415.ns2459 ---|*
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00549 M02S00416.ns2459 ---|* USES CM - CM+4.
| Line S00417 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00550 M02S00417.ns2459 ---|*
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00551 M02S00418.ns2459 ---|* EXITS TO *ADS1*.
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00552 M02S00419.ns2459 ---|
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00553 M02S00420.ns2459 ---|
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00554 M02S00421.ns2459 ---| DSA BSS 0 ENTRY
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00555 M02S00422.ns2459 ---| LDD CM+1 MAXIMUM VALUE 77770B
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00556 M02S00423.ns2459 ---| LPN 77
| Line S00424 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00557 M02S00424.ns2459 ---| STD CM+1
| Line S00425 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00558 M02S00425.ns2459 ---| SHN 14
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00559 M02S00426.ns2459 ---| LMD CM+2
| Line S00427 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00560 M02S00427.ns2459 ---| SHN -3 1/8
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00561 M02S00428.ns2459 ---| STD CM FRACTION ACCUMULATOR
| Line S00429 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00562 M02S00429.ns2459 ---| STD CM+4
| Line S00430 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00563 M02S00430.ns2459 ---| DSA1 LDD CM+4
| Line S00431 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00564 M02S00431.ns2459 ---| SHN -2
| Line S00432 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00565 M02S00432.ns2459 ---| ZJN DSA2 IF FRACTION ZERO
| Line S00433 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00566 M02S00433.ns2459 ---| STD CM+4
| Line S00434 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00567 M02S00434.ns2459 ---| RAD CM 1/8 + 1/32 + 1/128 + ...
| Line S00435 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00568 M02S00435.ns2459 ---| UJN DSA1 CONTINUE FRACTION COMPUTATION
| Line S00436 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00569 M02S00436.ns2459 ---|
| Line S00437 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00570 M02S00437.ns2459 ---| DSA2 LDD CM+2 SUBTRACT FRACTION ACCUMULATED
| Line S00438 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00571 M02S00438.ns2459 ---| SBD CM
| Line S00439 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00572 M02S00439.ns2459 ---| STD CM+2
| Line S00440 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00573 M02S00440.ns2459 ---| PJN DSA3 IF NO UNDERFLOW
| Line S00441 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00574 M02S00441.ns2459 ---| SOD CM+1
| Line S00442 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00575 M02S00442.ns2459 ---| DSA3 LDD CM+1
| Line S00443 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00576 M02S00443.ns2459 ---| RAD CM+1
| Line S00444 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00577 M02S00444.ns2459 ---| LDD CM+2
| Line S00445 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00578 M02S00445.ns2459 ---| RAD CM+2
| Line S00446 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00579 M02S00446.ns2459 ---| SHN -14
| Line S00447 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00580 M02S00447.ns2459 ---| RAD CM+1
| Line S00448 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00581 M02S00448.ns2459 ---| LDD CM+3
| Line S00449 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00582 M02S00449.ns2459 ---| ADC -4610
| Line S00450 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00583 M02S00450.ns2459 ---| MJN DSA4 IF NOT CLOSE TO 1 SRU
| Line S00451 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00584 M02S00451.ns2459 ---| AOD CM+2
| Line S00452 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00585 M02S00452.ns2459 ---| DSA4 LDD CM+1
| Line S00453 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00586 M02S00453.ns2459 ---| SHN 14
| Line S00454 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00587 M02S00454.ns2459 ---| LMD CM+2
| Line S00455 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00588 M02S00455.ns2459 ---| DSA5 LJM ADS1 DISPLAY VALUE
| Line S00456 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00589 M02S00456.ns2459 ---| DSL SPACE 4,10
| Line S00457 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00590 M02S00457.ns2459 ---|** DSL - DISPLAY *SRU* LIMIT.
| Line S00458 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00591 M02S00458.ns2459 ---|*
| Line S00459 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00592 M02S00459.ns2459 ---|* ENTRY (CM - CM+4) = (*STLW*).
| Line S00460 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00593 M02S00460.ns2459 ---|*
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00594 M02S00461.ns2459 ---|* EXITS TO *ADS1*.
| Line S00462 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00595 M02S00462.ns2459 ---|
| Line S00463 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00596 M02S00463.ns2459 ---|
| Line S00464 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00597 M02S00464.ns2459 ---| DSL BSS 0 ENTRY
| Line S00465 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00598 M02S00465.ns2459 ---| LDD CM+1 DISPLAY SRU LIMIT
| Line S00466 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00599 M02S00466.ns2459 ---| SCN 77
| Line S00467 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00600 M02S00467.ns2459 ---| SHN 6
| Line S00468 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00601 M02S00468.ns2459 ---| LMD CM
| Line S00469 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00602 M02S00469.ns2459 ---| SHN 6
| Line S00470 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00603 M02S00470.ns2459 ---| UJN DSA5 DISPLAY VALUE 00604 M01S00471.comdgjd +++| DTC SPACE 4,10 00605 M01S00472.comdgjd +++|** DTC - DISPLAY THE PENDING COMMANDS. 00606 M01S00473.comdgjd +++|* 00607 M01S00474.comdgjd +++|* ENTRY (A) = ADDRESS OF *CSPW*. 00608 M01S00475.comdgjd +++|* (CP) = CP ADDRESS. 00609 M01S00476.comdgjd +++|* (XC) = X COORDINATE = *CH01*. 00610 M01S00477.comdgjd +++|* (YC) = Y COORDINATE. 00611 M01S00478.comdgjd +++|* 00612 M01S00479.comdgjd +++|* USES YC, AB - AB+4, CM - CM+4, T0 - T0+4. 00613 M01S00480.comdgjd +++|* 00614 M01S00481.comdgjd +++|* CALLS DWD. 00615 M01S00482.comdgjd +++|* 00616 M01S00483.comdgjd +++|* EXITS TO *DSJX*. 00617 M01S00484.comdgjd +++| 00618 M01S00485.comdgjd +++| 00619 M01S00486.comdgjd +++| DTC BSS 0 ENTRY 00620 M01S00487.comdgjd +++| CRD AB 00621 M01S00488.comdgjd +++| LDD AB+3 00622 M01S00489.comdgjd +++| LMD AB+4 00623 M01S00490.comdgjd +++| ZJN DTC4 IF NO COMMANDS 00624 M01S00491.comdgjd +++| LDD CP GET RA/100B 00625 M01S00492.comdgjd +++| DTCA ADN FLSW 00626 M01S00493.comdgjd +++|* ADN FLSW+1 (CME PRESENT) 00627 M01S00494.comdgjd +++| CRD T0 00628 M01S00495.comdgjd +++| LRD T1 00629 M01S00496.comdgjd +++| DTC1 LDN 2 OUTPUT COORDINATES 00630 M01S00497.comdgjd +++| OAM XC,CH 00631 M01S00498.comdgjd +++| STD T2 CLEAR WORD COUNT 00632 M01S00499.comdgjd +++| DTC2 LDD T3 GET RA/100 OR NFL/100+4000 00633 M01S00500.comdgjd +++| SHN 6 00634 M01S00501.comdgjd +++| SBD AB+3 00635 M01S00502.comdgjd +++| CRD CM READ WORD FROM COMMAND BUFFER 00636 M01S00503.comdgjd +++| AOD T2 INCREMENT WORD COUNT 00637 M01S00504.comdgjd +++| SBN 7 00638 M01S00505.comdgjd +++| PJN DTC3 IF SIX CM WORDS DISPLAYED 00639 M01S00506.comdgjd +++| RJM DWD DISPLAY CM WORD 00640 M01S00507.comdgjd +++| DTC3 SOD AB+3 ADVANCE CM WORD ADDRESS 00641 M01S00508.comdgjd +++| LMD AB+4 00642 M01S00509.comdgjd +++| ZJN DTC4 IF END OF COMMANDS 00643 M01S00510.comdgjd +++| LDD CM+4 00644 M01S00511.comdgjd +++| NJN DTC2 IF NOT END OF A COMMAND 00645 M01S00512.comdgjd +++| LCN YINC ADVANCE Y-COORDINATE 00646 M01S00513.comdgjd +++| RAD YC 00647 M01S00514.comdgjd +++| SBM CBOS 00648 M01S00515.comdgjd +++| PJN DTC1 IF NOT BOTTOM OF SCREEN 00649 M01S00516.comdgjd +++| DTC4 LJM DSJX RETURN 00650 M01S00517.comdgjd +++| DTI SPACE 4,10 00651 M01S00518.comdgjd +++|** DTI - DISPLAY TITLE INFORMATION. 00652 M01S00519.comdgjd +++|* 00653 M01S00520.comdgjd +++|* ENTRY (T5) = X-COORDINATE OF TITLE. 00654 M01S00521.comdgjd +++|* (T6) = LENGTH OF TITLE. 00655 M01S00522.comdgjd +++|* (DTIA) = ADDRESS OF TITLE. 00656 M01S00523.comdgjd +++|* 00657 M01S00524.comdgjd +++|* NOTE *DTI* ASSUMES THAT THE TITLES ARE TWO TO FIVE 00658 M01S00525.comdgjd +++|* CHARACTERS IN LENGTH AND THAT THE *=* SIGN FOR 00659 M01S00526.comdgjd +++|* EACH COLUMN OF DATA IS IN A CHARACTER POSITION 00660 M01S00527.comdgjd +++|* WHOSE NUMBER IS ONE GREATER THAN A MULTIPLE OF 00661 M01S00528.comdgjd +++|* FOUR. 00662 M01S00529.comdgjd +++| 00663 M01S00530.comdgjd +++| 00664 M01S00531.comdgjd +++| DTI SUBR ENTRY/EXIT 00665 M01S00532.comdgjd +++| LDD T6 00666 M01S00533.comdgjd +++| OAM"." **,CH 00667 M01S00534.comdgjd +++| DTIA EQU *-1 (ADDRESS OF TITLE) 00668 M01S00535.comdgjd +++| LDD T5 CALCULATE POSITION OF *= * 00669 M01S00536.comdgjd +++| ADK 6*XINC 00670 M01S00537.comdgjd +++| SCN 30 00671 M01S00538.comdgjd +++| OAN CH+40 00672 M01S00539.comdgjd +++| LDC 2R= OUTPUT *= * 00673 M01S00540.comdgjd +++| OAN CH+40 00674 M01S00541.comdgjd +++| UJN DTIX RETURN 00675 M01S00542.comdgjd +++| 00676 M01S00543.comdgjd +++| 00677 M01S00544.comdgjd +++| TTIP CON TTTI POINTER TO TABLE OF TITLE INFORMATION 00678 M01S00545.comdgjd +++| TJDI SPACE 4,45 00679 M01S00546.comdgjd +++|** TJDI - *J* DISPLAY INFORMATION TABLE. 00680 M01S00547.comdgjd +++|* 00681 M01S00548.comdgjd +++|* THE ENTRIES IN *TJDI* ARE ARRANGED IN LINE ORDER FROM LEFT 00682 M01S00549.comdgjd +++|* TO RIGHT. THE ARRANGEMENT BY LINE ORDER IS ASSUMED BY *GJD*, 00683 M01S00550.comdgjd +++|* BUT THE ARRANGEMENT FROM LEFT TO RIGHT CAN BE VARIED, IF IT 00684 M01S00551.comdgjd +++|* IS EVER NECESSARY. THE FIRST ENTRY OF A NEW LINE MUST 00685 M01S00552.comdgjd +++|* SPECIFY THE *NL* PARAMETER IN THE *JDI* MACRO. 00686 M01S00553.comdgjd +++|* 00687 M01S00554.comdgjd +++|* TABLE FORMAT. 00688 M01S00555.comdgjd +++|* 00689 M01S00556.comdgjd +++|*T ENT+0 11/ DSA,1/A
Figure ENT+0
| Line S00557 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00690 M02S00557.252l678 ---|*T, ENT+0 6/ MASK,2/F,3/SC,1/A
Figure ENT+0
00691 M01S00027.252l678 +++|*T, ENT+0 6/ MASK,2/F,1/SC,2/,1/A
Figure ENT+0
00692 M01S00558.comdgjd +++|*T, ENT+1 7/ XC,2/L,1/C,1/N,1/D
Figure ENT+1
00693 M01S00559.comdgjd +++|*T, ENT+2 11/ ADDR,1/M
Figure ENT+2
00694 M01S00560.comdgjd +++|* 00695 M01S00561.comdgjd +++|* *A* = *ADS* BIT. 00696 M01S00562.comdgjd +++|* = 0 = DISPLAY SUBROUTINE IS SPECIFIED BY *DSA*. 00697 M01S00563.comdgjd +++|* = 1 = DISPLAY SUBROUTINE IS *ADS*. 00698 M01S00564.comdgjd +++|* *DSA* = DISPLAY SUBROUTINE ADDRESS, WHEN *A* = 0. 00699 M01S00565.comdgjd +++|* *MASK* = MASK TO BE ANDED WITH (CM+*SB*) BEFORE SHIFTING AND 00700 M01S00566.comdgjd +++|* ADDING (CM+*SB*+1), WHEN *A* = 1. 00701 M01S00567.comdgjd +++|* *F* = FIRST OF TWO BYTES, RELATIVE TO *CM*, USED BY *ADS* TO 00702 M01S00568.comdgjd +++|* GET ITS SIX DIGIT NUMBER, WHEN *A* = 1.
| Line S00569 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00703 M02S00569.252l678 ---|* *SC* = NUMBER OF BITS BY WHICH THE VALUE WILL LEFT-SHIFTED 00704 M01S00028.252l678 +++|* *SC* = INDICATES VALUE TO BE SHIFTED BY USER EM SHIFT COUNT 00705 M01S00570.comdgjd +++|* JUST BEFORE DISPLAYING IT, WHEN *A* = 1. 00706 M01S00571.comdgjd +++|* *XC* = (X-COORDINATE-*CH01*)/10 OF TITLE. 00707 M01S00572.comdgjd +++|* *L* = LENGTH OF THE TITLE (IN BYTES). 00708 M01S00573.comdgjd +++|* *C* = CONDITIONAL DATUM BIT. 00709 M01S00574.comdgjd +++|* = 0 = DATUM IS ALWAYS DISPLAYED. 00710 M01S00575.comdgjd +++|* = 1 = DATUM MAY BE OMITTED. THE DISPLAY PROCESSOR SUB- 00711 M01S00576.comdgjd +++|* ROUTINE DETERMINES WHETHER TO DISPLAY IT. 00712 M01S00577.comdgjd +++|* *N* = NEW LINE BIT. 00713 M01S00578.comdgjd +++|* = 0 = DISPLAY DATUM ON A NEW LINE. 00714 M01S00579.comdgjd +++|* = 1 = DISPLAY DATUM ON THE SAME LINE. 00715 M01S00580.comdgjd +++|* *D* = DOUBLE SPACE BIT, ONLY WHEN *N* = 0. 00716 M01S00581.comdgjd +++|* = 0 = SINGLE SPACE. 00717 M01S00582.comdgjd +++|* = 1 = DOUBLE SPACE. 00718 M01S00583.comdgjd +++|* *M* = MEMORY IN WHICH DATUM RESIDES. 00719 M01S00584.comdgjd +++|* = 0 = DATUM IS IN THE JOB-S CPA. 00720 M01S00585.comdgjd +++|* = 1 = DATUM IS IN PP MEMORY. 00721 M01S00586.comdgjd +++|* *ADDR* = WORD IN JOB-S CPA THAT CONTAINS THE DATUM, *M* = 0. 00722 M01S00587.comdgjd +++|* = BYTE IN PP MEMORY THAT CONTAINS THE DATUM, *M* = 1. 00723 M01S00588.comdgjd +++| 00724 M01S00589.comdgjd +++| 00725 M01S00590.comdgjd +++| TJDI JDI 1,1,(JSN),,PP,AB+4,DJN 00726 M01S00591.comdgjd +++| JDI 2,,(EJTO),,PP,T7,ADS,3,00 00727 M01S00592.comdgjd +++| JDI 3,,( P),,CPA,0,ADS,0,77 00728 M01S00593.comdgjd +++| JDI 2,1,(SRUA),,CPA,SRUW,DSA 00729 M01S00594.comdgjd +++| JDI 3,,(RA),,CPA,FLSW,ADS,2,77 00730 M01S00595.comdgjd +++| JDI 1,1,(UI),,CPA,UIDW,ADS,3,37 00731 M01S00596.comdgjd +++| JDI 2,,(SRUL),,CPA,STLW,DSL 00732 M01S00597.comdgjd +++| JDI 3,,(FL),,CPA,FLSW,ADS,3,00 00733 M01S00598.comdgjd +++| JDI 1,1,(FM),,CPA,PFCW,DFM 00734 M01S00599.comdgjd +++| JDI 2,,(CS),,PP,T9,DCM
| Line S00600 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00735 M02S00600.252l678 ---| JDI 3,,(RAE),,CPA,ECSW,ADS,2,77,UESF 00736 M01S00029.252l678 +++| JDI 3,,(RAE),,CPA,ECSW,ADS,2,77,1 00737 M01S00601.comdgjd +++| JDI 1,1,(PN),,CPA,PKNW,DFM1
| Line S00602 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00738 M02S00602.ns2459 ---| JDI 2,,(CONN),*,CPA,TTNW,DCN 00739 M01S00107.ns2459 +++| JDI 2,,(CN),*,CPA,TTNW,DCN
| Line S00603 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00740 M02S00603.252l678 ---| JDI 3,,(FLE),,CPA,ECSW,ADS,3,00,UESF 00741 M01S00030.252l678 +++| JDI 3,,(FLE),,CPA,ECSW,ADS,3,00,1
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00742 M02S00604.ns2459 ---| JDI 2,1,(LEVEL),*,CPA,JSCW,DLV 00743 M01S00108.ns2459 +++| JDI 2,1,(LV),*,CPA,JSCW,DLV 00744 M01S00605.comdgjd +++| JDI 3,,(CPA),,PP,CP,ADS,3,00 00745 M01S00109.ns2459 +++| JDI 1,1,(CPU),,CPA,STSW,DCS 00746 M01S00606.comdgjd +++| JDI 1,2,(EST),,PP,T0,DEQ 00747 M01S00607.comdgjd +++| JDI 1,2,(MS1),,CPA,MS1W,DMS 00748 M01S00608.comdgjd +++| JDI 1,1,(MS2),,CPA,MS2W,DMS 00749 M01S00609.comdgjd +++| JDI 1,2,(),*,CPA,CSPW,DTC 00750 M01S00610.comdgjd +++| TTTI SPACE 4,10 00751 M01S00611.comdgjd +++|* TTTI - TABLE OF TITLE INFORMATION. 00752 M01S00612.comdgjd +++| 00753 M01S00613.comdgjd +++| TTTI BSS 0 00754 M01S00614.comdgjd +++| GJD HERE 00755 M01S00615.comdgjd +++| TCSM SPACE 4,10 00756 M01S00616.comdgjd +++|* TCSM - CONNECTION STATUS MESSAGE TABLE. 00757 M01S00110.ns2459 +++|* THIS TABLE AND *TCPS* MUST BE CONTIGUOUS. 00758 M01S00617.comdgjd +++| 00759 M01S00618.comdgjd +++| TCSM BSS 0
| Line S00619 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00760 M02S00619.ns2459 ---| DATA 6HBATCH *NICS*
| Line S00620 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00761 M02S00620.ns2459 ---| DATA 6HDETACH *DTCS*
| Line S00621 Modification History | |
|---|---|
M01 (Added by) | comdgjd |
M02 (Updated by) | ns2459 |
Seq # *Modification Id* Act ----------------------------+ 00762 M02S00621.ns2459 ---| DATA 6HONLINE *OLCS* 00763 M01S00111.ns2459 +++| DATA 2HNI 00764 M01S00112.ns2459 +++| DATA 2HDT 00765 M01S00113.ns2459 +++| DATA 2HOL 00766 M01S00114.ns2459 +++| TCSML EQU *-TCSM 00767 M01S00115.ns2459 +++| 00768 M01S00116.ns2459 +++|* TCPS - CPU STATUS CODES. 00769 M01S00117.ns2459 +++| 00770 M01S00118.ns2459 +++| TCPS BSS 0 00771 M01S00119.ns2459 +++| DATA 1L NULL STATUS 00772 M01S00120.ns2459 +++| DATA 1LA JOB ACTIVE IN CPU 0 00773 M01S00121.ns2459 +++| DATA 1LB JOB ACTIVE IN CPU 1 00774 M01S00122.ns2459 +++| DATA 1L (RESERVED) 00775 M01S00123.ns2459 +++| DATA 1LW JOB WAITING FOR CPU 00776 M01S00124.ns2459 +++| DATA 1LX JOB WAITING FOR RECALL 00777 M01S00125.ns2459 +++| DATA 1LI JOB IN AUTO RECALL 00778 M01S00126.ns2459 +++| DATA 1L (RESERVED) 00779 M01S00622.comdgjd +++| 00780 M01S00623.comdgjd +++| 00781 M01S00624.comdgjd +++| BASE * 00782 M01S00127.ns2459 +++| LIST * 00783 M01S00625.comdgjd +++| QUAL$ IF -DEF,QUAL$ 00784 M01S00626.comdgjd +++| QUAL * 00785 M01S00627.comdgjd +++| GJD EQU /COMDGJD/GJD 00786 M01S00628.comdgjd +++| QUAL$ ENDIF 00787 M01S00629.comdgjd +++| GJD ENDX
cdc/nos2.source/opl.opl871/common/comdgjd.txt · Last modified: by 127.0.0.1