Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comdgjd +++| CTEXT COMDGJD - GENERATE *J* DISPLAY.
00002 M00S00002.comdgjd +++| SPACE 4,10
00003 M00S00003.comdgjd +++| QUAL$ IF -DEF,QUAL$
00004 M00S00004.comdgjd +++| QUAL COMDGJD
00005 M00S00005.comdgjd +++| QUAL$ ENDIF
00006 M00S00006.comdgjd +++| BASE MIXED
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00001 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00009 M01S00001.ns2459 +++| LIST F
00010 M00S00008.comdgjd +++| SPACE 4,10
00011 M00S00009.comdgjd +++|*** COMDGJD - GENERATE *J* DISPLAY.
00012 M00S00010.comdgjd +++|* J. M. MAREK. 84/02/28.
00013 M00S00011.comdgjd +++| SPACE 4,30
00014 M00S00012.comdgjd +++|*** *COMDGJD* DISPLAYS THE CONTROL POINT STATUS AND THE PENDING
00015 M00S00013.comdgjd +++|* COMMANDS. INFORMATION ABOUT THE DATA TO BE DISPLAYED IS
00016 M00S00014.comdgjd +++|* DEFINED IN THE TABLE *TJDI*, WHICH IS BUILT BY THE MACRO
00017 M00S00015.comdgjd +++|* *JDI*. *JDI* AND *TJDI* ARE DOCUMENTED PRECEEDING THE
00018 M00S00016.comdgjd +++|* DEFINITION OF *TJDI*.
00019 M00S00017.comdgjd +++|* *GJD* IS THE MAIN ROUTINE IN THE COMMON DECK. IT IS DRIVEN
00020 M00S00018.comdgjd +++|* BY ENTRIES IN *TJDI*.
00021 M00S00019.comdgjd +++|*
00022 M00S00020.comdgjd +++|* ENTRY *RLO$* DEFINED = *COMDGJD* IS TO RESIDE IN AN OVERLAY.
| Line S00001 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00023 M01S00001.252l678 +++|* *GJD$* DEFINED = USER EM SHIFT COUNT IN (GJD$),
00024 M01S00002.252l678 +++|* ELSE READ SHIFT FROM *MEFL*.
00025 M00S00021.comdgjd +++|*
00026 M00S00022.comdgjd +++|* EXAMPLE -
00027 M00S00023.comdgjd +++|*
| Line S00024 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00028 M01S00024.ns2459 ---|* NOTE - THE *CONN* AND *LEVEL* INFORMATION WILL ONLY BE
| Line S00002 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00029 M01S00002.ns2459 +++|* NOTE - THE *CN* AND *LV* INFORMATION WILL ONLY BE
00030 M00S00025.comdgjd +++|* DISPLAYED WHEN APPLICABLE.
00031 M00S00026.comdgjd +++|*
00032 M00S00027.comdgjd +++|* 1 2 3 4 5 6
00033 M00S00028.comdgjd +++|* 1234567890123456789012345678901234567890123456789012345678901234
00034 M00S00029.comdgjd +++|*
00035 M00S00030.comdgjd +++|* JSN = AAAA EJTO = 25 P = 1772
00036 M00S00031.comdgjd +++|* SRUA = 15 RA = 5770
00037 M00S00032.comdgjd +++|* UI = 4537 SRUL = 777777 FL = 25
| Line S00033 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00038 M01S00033.ns2459 ---|* FM = SYS606 CS = ONLINE RAE = 360
00039 M01S00034.ns2459 ---|* PN = R4IAE ( CONN = 1234 ) FLE = 0
00040 M01S00035.ns2459 ---|* (LEVEL = TPSECRET) CPA = 4000
| Line S00003 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00036.comdgjd +++|*
00046 M00S00037.comdgjd +++|* EST = 1 7 55 205 763 XXX XXX XXX XXX XXX
00047 M00S00038.comdgjd +++|*
00048 M00S00039.comdgjd +++|* MS1 = ASSEMBLING LIBEDIT
00049 M00S00040.comdgjd +++|* MS2 = EQ123, TRACK LIMIT.
00050 M00S00041.comdgjd +++|*
00051 M00S00042.comdgjd +++|* REWIND,LGO.
00052 M00S00043.comdgjd +++|* LIBEDIT.
00053 M00S00044.comdgjd +++|* REWIND,NEW,TAPE.
00054 M00S00045.comdgjd +++|* COPYEI,NEW,TAPE,V.
00055 M00S00046.comdgjd +++| JDI SPACE 4,25
00056 M00S00047.comdgjd +++|** JDI - *J* DISPLAY INFORMATION.
00057 M00S00048.comdgjd +++|*
00058 M00S00049.comdgjd +++|* THE *JDI* MACRO IS USED TO CREATE TABLE ENTRIES IN THE
00059 M00S00050.comdgjd +++|* *TJDI* TABLE. THE LAYOUT OF *TJDI* IS DOCUMENTED WHERE IT
00060 M00S00051.comdgjd +++|* IS BUILT NEAR THE END OF *COMPGJD*.
00061 M00S00052.comdgjd +++|*
00062 M00S00053.comdgjd +++|*TAG JDI COL,NL,(TITLE),COND,DLOC,WORD,PROC,FBYT,MASK,SCNT
00063 M00S00054.comdgjd +++|*
00064 M00S00055.comdgjd +++|* ENTRY *TAG* = ADDRESS OF ENTRY (OPTIONAL).
00065 M00S00056.comdgjd +++|* *COL* = COLUMN IN WHICH THE DATUM WILL BE DISPLAYED.
00066 M00S00057.comdgjd +++|* (ACTUAL VALUES MAY BE 1, 2, OR 3.)
00067 M00S00058.comdgjd +++|* *NL* = NUMBER OF LINES TO SKIP BEFORE DISPLAY.
00068 M00S00059.comdgjd +++|* (ACTUAL VALUES MAY BE 0, 1, OR 2. THE DEFAULT
00069 M00S00060.comdgjd +++|* VALUE IS 0 (DISPLAY ON THE SAME LINE)).
00070 M00S00061.comdgjd +++|* *TITLE* = TITLE OF DATUM TO BE DISPLAYED.
00071 M00S00062.comdgjd +++|* *COND* = *, IF DISPLAYING IS CONDITIONAL.
00072 M00S00063.comdgjd +++|* *DLOC* = DATA LOCATION.
00073 M00S00064.comdgjd +++|* = *PP*, DATA IS IN PP MEMORY.
00074 M00S00065.comdgjd +++|* = *CPA*, DATA IS IN THE JOB-S CPA.
00075 M00S00066.comdgjd +++|* *WORD* = ADDRESS, IF *DLOC* = *PP*.
00076 M00S00067.comdgjd +++|* = OFFSET, IF *DLOC* = *CPA*.
00077 M00S00068.comdgjd +++|* *PROC* = ADDRESS OF DISPLAY PROCESSOR.
00078 M00S00069.comdgjd +++|* *FBYT* = FIRST BYTE OF DATA IN *CM*, IF *PROC*=*ADS*.
00079 M00S00070.comdgjd +++|* *MASK* = MASK FOR FIRST BYTE, IF *PROC*=*ADS*.
| Line S00071 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00080 M01S00071.252l678 ---|* *SCNT* = SHIFT COUNT FOR VALUE, IF *PROC*=*ADS*. THE
00081 M01S00072.252l678 ---|* DEFAULT IS 0.
| Line S00003 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00082 M01S00003.252l678 +++|* *SCNT* = SHIFT INDICATOR, IF *PROC*=*ADS*. VALUE
00083 M01S00004.252l678 +++|* IS TO BE SHIFTED BY USER EM SHIFT COUNT.
00084 M00S00073.comdgjd +++|
00085 M00S00074.comdgjd +++|
00086 M00S00075.comdgjd +++| JDI MACRO COL,NL,TITLE,COND,DLOC,WORD,PROC,FBYT,MASK,SCNT
00087 M00S00076.comdgjd +++|*
00088 M00S00077.comdgjd +++|* SET THE DISPLAY PROCESSOR WORD.
00089 M00S00078.comdgjd +++|*
00090 M00S00079.comdgjd +++| IFC NE,$PROC$ADS$,2
00091 M00S00080.comdgjd +++| VFD 11/PROC,1/0
00092 M00S00081.comdgjd +++| SKIP 1
| Line S00082 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00093 M01S00082.252l678 ---| VFD 6/MASK,2/FBYT,3/SCNT,1/1
| Line S00005 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00094 M01S00005.252l678 +++| VFD 6/MASK,2/FBYT,1/SCNT,2/,1/1
00095 M00S00083.comdgjd +++|*
00096 M00S00084.comdgjd +++|* GENERATE THE TITLE CHARACTER STRING.
00097 M00S00085.comdgjd +++|*
00098 M00S00086.comdgjd +++| .A IFC NE,$TITLE$$
00099 M00S00087.comdgjd +++| .1 MICRO 1,,$TITLE$
00100 M00S00088.comdgjd +++| .1 MICCNT .1
00101 M00S00089.comdgjd +++| .1 SET .1+1
00102 M00S00090.comdgjd +++| GJD RMT
00103 M00S00091.comdgjd +++| DATA H$TITLE$
00104 M00S00092.comdgjd +++| GJD RMT
00105 M00S00093.comdgjd +++| .A ELSE
00106 M00S00094.comdgjd +++|*
00107 M00S00095.comdgjd +++|* SPECIAL CASE THE COMMAND ENTRY.
00108 M00S00096.comdgjd +++|*
00109 M00S00097.comdgjd +++| .1 SET 4
00110 M00S00098.comdgjd +++| .A ENDIF
00111 M00S00099.comdgjd +++|*
00112 M00S00100.comdgjd +++|* SET THE X-COORDINATE FIELD.
00113 M00S00101.comdgjd +++|* XC = (CH05 + (COL-1)*24D*XINC - TITLELENGTH*XINC - CH01)/10.
00114 M00S00102.comdgjd +++|*
00115 M00S00103.comdgjd +++| VFD 7/COL*24D-.1-20D
00116 M00S00104.comdgjd +++|*
00117 M00S00105.comdgjd +++|* SET THE LENGTH FIELD.
00118 M00S00106.comdgjd +++|*
00119 M00S00107.comdgjd +++| VFD 2/.1/2
00120 M00S00108.comdgjd +++|*
00121 M00S00109.comdgjd +++|* SET THE CONDITIONAL DISPLAY BIT.
00122 M00S00110.comdgjd +++|*
00123 M00S00111.comdgjd +++| IFC NE,$COND$$,2
00124 M00S00112.comdgjd +++| VFD 1/1
00125 M00S00113.comdgjd +++| SKIP 1
00126 M00S00114.comdgjd +++| VFD 1/0
00127 M00S00115.comdgjd +++|*
00128 M00S00116.comdgjd +++|* SET THE NEW LINE FIELD.
00129 M00S00117.comdgjd +++|*
00130 M00S00118.comdgjd +++| VFD 2/NL-1
00131 M00S00119.comdgjd +++|*
00132 M00S00120.comdgjd +++|* SET ADDRESS/OFFSET FIELD.
00133 M00S00121.comdgjd +++|*
00134 M00S00122.comdgjd +++| VFD 11/WORD
00135 M00S00123.comdgjd +++|*
00136 M00S00124.comdgjd +++|* SET THE LOCATE PROCESSOR FIELD.
00137 M00S00125.comdgjd +++|*
00138 M00S00126.comdgjd +++| .C IFC EQ,$DLOC$CPA$
00139 M00S00127.comdgjd +++| VFD 1/0
00140 M00S00128.comdgjd +++| .C ELSE
00141 M00S00129.comdgjd +++| .D IFC EQ,$DLOC$PP$
00142 M00S00130.comdgjd +++| VFD 1/1
00143 M00S00131.comdgjd +++| .D ELSE
00144 M00S00132.comdgjd +++| ERR UNRECOGNIZED DATA LOCATION - DLOC
00145 M00S00133.comdgjd +++| .D ENDIF
00146 M00S00134.comdgjd +++| .C ENDIF
00147 M00S00135.comdgjd +++|*
00148 M00S00136.comdgjd +++| JDI ENDM
00149 M00S00137.comdgjd +++|
00150 M00S00138.comdgjd +++| ERRNZ XINC-10 MACRO DEPENDS ON VALUE
00151 M00S00139.comdgjd +++| DOT SPACE 4,25
00152 M00S00140.comdgjd +++|** DOT (*.*) MICRO - REDEFINED INSTRUCTION MICRO.
00153 M00S00141.comdgjd +++|*
00154 M00S00142.comdgjd +++|* THE MICRO *.* WILL BE A PERIOD IF *COMDGJD* IS BEING
00155 M00S00143.comdgjd +++|* ASSEMBLED IN AN OVERLAY. IT WILL BE A BLANK IF *COMDGJD*
00156 M00S00144.comdgjd +++|* IS BEING ASSEMBLED IN RESIDENT CODE. IT CAN BE USED TO
00157 M00S00145.comdgjd +++|* SUFFIX A REDEFINED INSTRUCTION IN OVERLAYS.
00158 M00S00146.comdgjd +++|*
00159 M00S00147.comdgjd +++|* EXAMPLE -
00160 M00S00148.comdgjd +++|*
00161 M00S00149.comdgjd +++|* NOTE THAT ASTERISKS HAVE BEEN USED IN PLACE OF THE ACTUAL
00162 M00S00150.comdgjd +++|* MICRO MARKS IN THE EXAMPLE TO AVOID AN ASSEMBLY ERROR.
00163 M00S00151.comdgjd +++|*
00164 M00S00152.comdgjd +++|* LDC*.* TJDI
00165 M00S00153.comdgjd +++|
00166 M00S00154.comdgjd +++|
00167 M00S00155.comdgjd +++| .A IF DEF,RLO$
00168 M00S00156.comdgjd +++| . MICRO 1,,$.$
00169 M00S00157.comdgjd +++| .A ELSE
00170 M00S00158.comdgjd +++| . MICRO 1,,$ $
00171 M00S00159.comdgjd +++| .A ENDIF
00172 M00S00160.comdgjd +++| GJD SPACE 4,20
00173 M00S00161.comdgjd +++|*** GJD - GENERATE *J* DISPLAY.
00174 M00S00162.comdgjd +++|*
00175 M00S00163.comdgjd +++|* DISPLAY THE CONTROL POINT STATUS AND THE PENDING COMMANDS.
00176 M00S00164.comdgjd +++|*
00177 M00S00165.comdgjd +++|* ENTRY (A) = 0, IF CME NOT PRESENT.
00178 M00S00166.comdgjd +++|* (CP) = CONTROL POINT AREA ADDRESS.
00179 M00S00167.comdgjd +++|* (SF) = 0, IF UNSECURED SYSTEM.
00180 M00S00168.comdgjd +++|* (T7) = EJT ORDINAL OF JOB.
00181 M00S00169.comdgjd +++|* (AB - AB+4) = WORD *JSNE* OF THE JOB-S EJT ENTRY.
00182 M00S00170.comdgjd +++|*
00183 M00S00171.comdgjd +++|* EXIT *J* DISPLAY DISPLAYED.
00184 M00S00172.comdgjd +++|*
00185 M00S00173.comdgjd +++|* USES T1, T5, T6, T8, T9, YC, AB - AB+4, CM - CM+4.
00186 M00S00174.comdgjd +++|*
| Line S00175 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00187 M01S00175.ns2459 ---|* CALLS ADS, DCM, DCN, DEQ, DFM, DJN, DLV, DMS, DSA, DSL, DTC,
00188 M01S00176.ns2459 ---|* DTI, D6S.
| Line S00007 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00189 M01S00007.ns2459 +++|* CALLS ADS, DCM, DCN, DCS, DEQ, DFM, DJN, DLV, DMS, DSA, DSL,
00190 M01S00008.ns2459 +++|* DTC, DTI, D6S.
00191 M00S00177.comdgjd +++|*
00192 M00S00178.comdgjd +++|* MACROS JDI, SFA.
00193 M00S00179.comdgjd +++|
00194 M00S00180.comdgjd +++|
00195 M00S00181.comdgjd +++| GJD BSS 0 ENTRY
00196 M00S00182.comdgjd +++| ZJN GJD1 IF CME NOT PRESENT
00197 M00S00183.comdgjd +++| LDC ADNI+FLSW+1
00198 M00S00184.comdgjd +++| STM DTCA FORCE READ OF *FLSW*+1
00199 M00S00185.comdgjd +++| GJD1 LDC"." TJDI-1 INITIALIZE *SND*
00200 M00S00186.comdgjd +++| STD T8
| Line S00187 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00201 M01S00187.ns2459 ---| ADN TTTI-TJDI+1
| Line S00009 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00202 M01S00009.ns2459 +++| ADD HN
00203 M01S00010.ns2459 +++| ERRNZ TTTI-TJDI+1-100 CODE DEPENDS ON VALUE
00204 M00S00188.comdgjd +++| STI T8
00205 M00S00189.comdgjd +++| ERRNZ TJDI-1-TTIP CODE DEPENDS ON POSITION
00206 M00S00190.comdgjd +++| LDM CTOS
00207 M00S00191.comdgjd +++| ADK YINC
00208 M00S00192.comdgjd +++| STD YC
00209 M00S00193.comdgjd +++|
00210 M00S00194.comdgjd +++|* MAIN LOOP.
00211 M00S00195.comdgjd +++|
00212 M00S00196.comdgjd +++| GJD2 AOD T8 SELECT DISPLAY PROCESSOR
00213 M00S00197.comdgjd +++| LDI T8
00214 M00S00198.comdgjd +++| SHN 21-0
00215 M00S00199.comdgjd +++| PJN GJD3 IF NOT *ADS*
00216 M00S00200.comdgjd +++| STD AB+2
00217 M00S00201.comdgjd +++| LDC ADS
00218 M00S00202.comdgjd +++| GJD3 STM GJDA STORE ADDRESS OF DISPLAY PROCESSOR
00219 M00S00203.comdgjd +++| LDM TTIP SET UP TITLE INFORMATION
00220 M00S00204.comdgjd +++| STM DTIA STORE ADDRESS OF TITLE
00221 M00S00205.comdgjd +++| AOD T8 SELECT CHARACTER POSITION
00222 M00S00206.comdgjd +++| LDI T8
00223 M00S00207.comdgjd +++| SHN 0-2+22
00224 M00S00208.comdgjd +++| SCN 7
00225 M00S00209.comdgjd +++| ADD XC
00226 M00S00210.comdgjd +++| STD T5 SAVE CHARACTER POSITION FOR *DTI*
00227 M00S00211.comdgjd +++| OAN CH+40 OUTPUT CHARACTER POSITION
00228 M00S00212.comdgjd +++| MJN GJD5 IF NOT NEW LINE
00229 M00S00213.comdgjd +++| SHN 2-0-22
00230 M00S00214.comdgjd +++| ZJN GJD4 IF NOT DOUBLE SPACE
00231 M00S00215.comdgjd +++| LCN YINC
00232 M00S00216.comdgjd +++| GJD4 SBN YINC
00233 M00S00217.comdgjd +++| RAD YC
00234 M00S00218.comdgjd +++| OAN CH+40 OUTPUT LINE POSITION
00235 M00S00219.comdgjd +++| GJD5 LDI T8
00236 M00S00220.comdgjd +++| LPN 34
00237 M00S00221.comdgjd +++| SHN 0-3+22
00238 M00S00222.comdgjd +++| STD T6 STORE TITLE LENGTH FOR *DTI*
00239 M00S00223.comdgjd +++| RAM TTIP UPDATE ADDRESS OF NEXT TITLE
00240 M00S00224.comdgjd +++| MJN GJD6 IF CONDITIONAL DATUM
00241 M00S00225.comdgjd +++| RJM DTI DISPLAY TITLE INFORMATION
00242 M00S00226.comdgjd +++| GJD6 AOD T8 SELECT LOCATE PROCESSOR
00243 M00S00227.comdgjd +++| LDI T8
00244 M00S00228.comdgjd +++| SHN 0-1+22
00245 M00S00229.comdgjd +++| PJN GJD7 IF DATA IS IN THE CPA
00246 M00S00230.comdgjd +++| STD T1
00247 M00S00231.comdgjd +++| LDI T1 GET DATUM FROM PP MEMORY
00248 M00S00232.comdgjd +++| STD CM+4
00249 M00S00233.comdgjd +++| UJN GJD8 EXIT TO PROCESSOR
00250 M00S00234.comdgjd +++|
00251 M00S00235.comdgjd +++| GJD7 ADD CP
00252 M00S00236.comdgjd +++| CRD CM
00253 M00S00237.comdgjd +++| GJD8 LJM ADS EXECUTE DISPLAY PROCESSOR
00254 M00S00238.comdgjd +++| GJDA EQU *-1 (ADDRESS OF DISPLAY PROCESSOR)
| Line S00011 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00239.comdgjd +++| ADS SPACE 4,10
00324 M00S00240.comdgjd +++|** ADS - ASSEMBLE AND DISPLAY A SIX-DIGIT NUMBER.
00325 M00S00241.comdgjd +++|*
| Line S00242 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00326 M01S00242.252l678 ---|* ENTRY (AB+2) = 1/,6/MASK,2/STARTING BYTE,3/SHIFT COUNT.
| Line S00006 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00327 M01S00006.252l678 +++|* ENTRY (AB+2) = 1/,6/MASK,2/STARTING BYTE,1/SHIFT FLAG,2/.
00328 M00S00243.comdgjd +++|* (CM - CM+4) = WORD CONTAINING VALUE.
00329 M00S00244.comdgjd +++|*
| Line S00245 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00330 M01S00245.252l678 ---|* USES T2.
| Line S00007 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00331 M01S00007.252l678 +++|* USES T2, CM - CM+4.
00332 M00S00246.comdgjd +++|*
00333 M00S00247.comdgjd +++|* CALLS D6S.
00334 M00S00248.comdgjd +++|
00335 M00S00249.comdgjd +++|
00336 M00S00250.comdgjd +++| ADS BSS 0 ENTRY
00337 M00S00251.comdgjd +++| LDD AB+2 ASSEMBLE AND DISPLAY A SIX-DIGIT NUMBER
00338 M00S00252.comdgjd +++| SHN 0-5+22 GET BYTE MASK
00339 M00S00253.comdgjd +++| STM ADSA
00340 M00S00254.comdgjd +++| SCN 77
00341 M00S00255.comdgjd +++| SHN 2 GET BYTE NUMBER
00342 M00S00256.comdgjd +++| STD T2
| Line S00008 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00353 M01S00257.252l678 ---| SHN 3-22 GET SHIFT COUNT
00354 M01S00258.252l678 ---| ADD TH
| Line S00018 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00363 M01S00259.252l678 ---| ERRNZ SHNI-1000
00364 M00S00260.comdgjd +++| STM ADSB
00365 M00S00261.comdgjd +++| LDM CM,T2 GET VALUE
00366 M00S00262.comdgjd +++| LPC **
00367 M00S00263.comdgjd +++| ADSA EQU *-1 MASK FOR UPPER BYTE OF DATUM
00368 M00S00264.comdgjd +++| SHN 14
00369 M00S00265.comdgjd +++| LMM CM+1,T2
00370 M00S00266.comdgjd +++| ADSB SHN ** SHIFT VALUE BEFORE DISPLAYING
| Line S00026 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00371 M01S00026.252l678 +++|* PSN (NO SHIFT NEEDED)
00372 M00S00267.comdgjd +++| ADS1 RJM D6S DISPLAY A SIX-DIGIT NUMBER
00373 M00S00268.comdgjd +++| ADS2 LJM GJD2 CONTINUE DISPLAYING
| Line S00269 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00374 M01S00269.ns2459 ---| DCM SPACE 4,10
00375 M01S00270.ns2459 ---|** DCM - DISPLAY CONNECTION MESSAGE.
00376 M01S00271.ns2459 ---|*
00377 M01S00272.ns2459 ---|* ENTRY (A) = (T9) = CONNECTION STATUS.
00378 M01S00273.ns2459 ---|
00379 M01S00274.ns2459 ---|
00380 M01S00275.ns2459 ---| DCM BSS 0 ENTRY
00381 M01S00276.ns2459 ---| SHN 1 MULTIPLY THE CONNECTION STATUS BY THREE
00382 M01S00277.ns2459 ---| ADD T9
00383 M01S00278.ns2459 ---| ADC"." TCSM GET CONNECTION STATUS MESSAGE ADDRESS
00384 M01S00279.ns2459 ---| STM DCMA
00385 M01S00280.ns2459 ---| LDN 3
00386 M01S00281.ns2459 ---| OAM"." TCSM,CH DISPLAY CONNECTION STATUS MESSAGE
00387 M01S00282.ns2459 ---| DCMA EQU *-1 (CONNECTION STATUS MESSAGE ADDRESS)
00388 M01S00283.ns2459 ---| DCM1 UJN ADS2 CONTINUE DISPLAYING
00389 M00S00284.comdgjd +++| DCN SPACE 4,10
00390 M00S00285.comdgjd +++|** DCN - DISPLAY CONNECTION NUMBER.
00391 M00S00286.comdgjd +++|*
00392 M00S00287.comdgjd +++|* ENTRY (CM+1) = CONNECTION NUMBER.
00393 M00S00288.comdgjd +++|* (T9) = CONNECTION STATUS.
00394 M00S00289.comdgjd +++|*
00395 M00S00290.comdgjd +++|* CALLS DTI.
00396 M00S00291.comdgjd +++|
00397 M00S00292.comdgjd +++|
00398 M00S00293.comdgjd +++| DCN BSS 0 ENTRY
00399 M00S00294.comdgjd +++| LDD T9 CHECK FOR ONLINE JOB
00400 M00S00295.comdgjd +++| SBN OLCS
00401 M00S00296.comdgjd +++| NJN ADS2 IF NOT ONLINE JOB
00402 M00S00297.comdgjd +++| RJM DTI DISPLAY TITLE INFORMATION
00403 M00S00298.comdgjd +++| LDD CM+1
00404 M00S00299.comdgjd +++| UJN ADS1 DISPLAY CONNECTION NUMBER
| Line S00079 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00300.comdgjd +++| DEQ SPACE 4,10
00434 M00S00301.comdgjd +++|** DEQ - DISPLAY EQUIPMENT.
00435 M00S00302.comdgjd +++|*
00436 M00S00303.comdgjd +++|* ENTRY (T7) = EJTO OF JOB.
00437 M00S00304.comdgjd +++|*
00438 M00S00305.comdgjd +++|* USES AB - AB+4, CM - CM+4.
00439 M00S00306.comdgjd +++|*
00440 M00S00307.comdgjd +++|* CALLS D4S.
00441 M00S00308.comdgjd +++|*
00442 M00S00309.comdgjd +++|* MACRO SFA.
00443 M00S00310.comdgjd +++|
00444 M00S00311.comdgjd +++|
00445 M00S00312.comdgjd +++| DEQ BSS 0 ENTRY
00446 M00S00313.comdgjd +++| LDK ESTP GET EST POINTER WORD
00447 M00S00314.comdgjd +++| CRD AB
00448 M00S00315.comdgjd +++| LDN DSEQ
00449 M00S00316.comdgjd +++| STD AB
00450 M00S00317.comdgjd +++| LDN 12 SET EQUIPMENT DISPLAY COUNT
00451 M00S00318.comdgjd +++| STD AB+3
00452 M00S00319.comdgjd +++| DEQ1 SFA EST,AB READ EQUIPMENT ASSIGNMENT
00453 M00S00320.comdgjd +++| ADK EQAE
00454 M00S00321.comdgjd +++| CRD CM
00455 M00S00322.comdgjd +++| LDD CM+4 LOAD EJTO
00456 M00S00323.comdgjd +++| LMD T7
00457 M00S00324.comdgjd +++| NJN DEQ2 IF EJTO-S DO NOT MATCH
00458 M00S00325.comdgjd +++| LDD AB CALCULATE EST ORDINAL
00459 M00S00326.comdgjd +++| RJM D4S DISPLAY EST ORDINAL
00460 M00S00327.comdgjd +++| SOD AB+3 DECREASE EQUIPMENT DISPLAY NUMBER
00461 M00S00328.comdgjd +++| ZJN DEQ3 IF EQUIPMENT DISPLAY LIMIT
00462 M00S00329.comdgjd +++| DEQ2 AOD AB ADVANCE EST ORDINAL
00463 M00S00330.comdgjd +++| LMD AB+2
00464 M00S00331.comdgjd +++| NJN DEQ1 IF NOT END OF EST
00465 M00S00332.comdgjd +++| DEQ3 UJN DCM1 CONTINUE DISPLAYING
00466 M00S00333.comdgjd +++| DFM SPACE 4,10
00467 M00S00334.comdgjd +++|** DFM - DISPLAY FAMILY NAME.
00468 M00S00335.comdgjd +++|*
00469 M00S00336.comdgjd +++|* ENTRY (CM - CM+4) = *PFCW*.
00470 M00S00337.comdgjd +++|*
00471 M00S00338.comdgjd +++|* USES CM - CM+4.
00472 M00S00339.comdgjd +++|*
00473 M00S00340.comdgjd +++|* MACRO SFA.
00474 M00S00341.comdgjd +++|
00475 M00S00342.comdgjd +++|
00476 M00S00343.comdgjd +++|
00477 M00S00344.comdgjd +++| DFM BSS 0 ENTRY
00478 M00S00345.comdgjd +++| SFA EST,CM+3 READ FAMILY EST ENTRY
00479 M00S00346.comdgjd +++| ADK EQDE
00480 M00S00347.comdgjd +++| CRD CM
00481 M00S00348.comdgjd +++| LDD CM+4 GET FAMILY NAME FROM MST
00482 M00S00349.comdgjd +++| SHN 3
00483 M00S00350.comdgjd +++| ADN PFGL
00484 M00S00351.comdgjd +++| CRD CM
00485 M00S00352.comdgjd +++| DFM1 LDD CM+3
00486 M00S00353.comdgjd +++| SCN 77
00487 M00S00354.comdgjd +++| STD CM+3
00488 M00S00355.comdgjd +++| LDN 4
00489 M00S00356.comdgjd +++| OAM CM,CH DISPLAY FAMILY NAME
00490 M00S00357.comdgjd +++| UJN DEQ3 CONTINUE DISPLAYING
00491 M00S00358.comdgjd +++| DJN SPACE 4,10
00492 M00S00359.comdgjd +++|** DJN - DISPLAY JSN AND SAVE CONNECTION STATUS.
00493 M00S00360.comdgjd +++|*
00494 M00S00361.comdgjd +++|* ENTRY (A) = (AB+4).
00495 M00S00362.comdgjd +++|* (AB - AB+4) = *JSNE* WORD OF EJT ENTRY.
00496 M00S00363.comdgjd +++|*
00497 M00S00364.comdgjd +++|* EXIT (T9) = CONNECTION STATUS.
00498 M00S00365.comdgjd +++|
00499 M00S00366.comdgjd +++|
00500 M00S00367.comdgjd +++| DJN BSS 0 ENTRY
00501 M00S00368.comdgjd +++| SHN -7 SAVE CONNECTION STATUS MESSAGE ADDRESS
00502 M00S00369.comdgjd +++| LPN 17
00503 M00S00370.comdgjd +++| STD T9
00504 M00S00371.comdgjd +++| LDN 2
00505 M00S00372.comdgjd +++| OAM AB,CH DISPLAY JSN
00506 M00S00373.comdgjd +++| DJN1 UJN DEQ3
00507 M00S00374.comdgjd +++| DLV SPACE 4,10
00508 M00S00375.comdgjd +++|** DLV - DISPLAY JOB ACCESS LEVEL IF SYSTEM IS IN SECURED MODE.
00509 M00S00376.comdgjd +++|*
00510 M00S00377.comdgjd +++|* ENTRY (SF) = 0, IF UNSECURED SYSTEM.
00511 M00S00378.comdgjd +++|* (CM - CM+4) = (*JSCW*).
00512 M00S00379.comdgjd +++|*
00513 M00S00380.comdgjd +++|* CALLS DAL, DTI.
00514 M00S00381.comdgjd +++|
00515 M00S00382.comdgjd +++|
00516 M00S00383.comdgjd +++| DLV BSS 0 ENTRY
00517 M00S00384.comdgjd +++| LDD SF
00518 M00S00385.comdgjd +++| ZJN DEQ3 IF UNSECURED SYSTEM
00519 M00S00386.comdgjd +++| RJM DTI DISPLAY TITLE INFORMATION
00520 M00S00387.comdgjd +++| LDD CM+1
00521 M00S00388.comdgjd +++| SHN -11
00522 M00S00389.comdgjd +++| RJM DAL DISPLAY ACCESS LEVEL STRING
00523 M00S00390.comdgjd +++| UJN DJN1 CONTINUE DISPLAYING
00524 M00S00391.comdgjd +++| DMS SPACE 4,10
00525 M00S00392.comdgjd +++|** DMS - DISPLAY MESSAGE.
00526 M00S00393.comdgjd +++|*
00527 M00S00394.comdgjd +++|* ENTRY (A) = ABSOLUTE ADDRESS OF BUFFER CONTAINING MESSAGE.
00528 M00S00395.comdgjd +++|* = *MS1W* OR *MS2W*.
00529 M00S00396.comdgjd +++|*
00530 M00S00397.comdgjd +++|* CALLS DOL.
00531 M00S00398.comdgjd +++|
00532 M00S00399.comdgjd +++|
00533 M00S00400.comdgjd +++| DMS BSS 0 ENTRY
00534 M00S00401.comdgjd +++| RJM DOL DISPLAY ONE LINE
00535 M00S00402.comdgjd +++| UJN DJN1 CONTINUE DISPLAYING
| Line S00403 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00536 M01S00403.ns2459 ---| DSA SPACE 4,15
00537 M01S00404.ns2459 ---|** DSA - DISPLAY SRU ACTUAL VALUE.
00538 M01S00405.ns2459 ---|*
00539 M01S00406.ns2459 ---|* THIS SUBROUTINE CONVERTS AN SRU VALUE IN MICRO-UNITS/10
00540 M01S00407.ns2459 ---|* TO UNITS BY THE APPROXIMATION FORMULA:
00541 M01S00408.ns2459 ---|*
00542 M01S00409.ns2459 ---|* VAL = (I - I/8 - I/32 - I/128 - ...)*2 + J/4610B
00543 M01S00410.ns2459 ---|*
00544 M01S00411.ns2459 ---|* I - FIRST 2 BYTES OF SRU VALUE
00545 M01S00412.ns2459 ---|* J - THIRD BYTE OF SRU VALUE
00546 M01S00413.ns2459 ---|*
00547 M01S00414.ns2459 ---|* ENTRY (CM+1 - CM+4) = SRU IN MICRO-UNITS/10.
00548 M01S00415.ns2459 ---|*
00549 M01S00416.ns2459 ---|* USES CM - CM+4.
00550 M01S00417.ns2459 ---|*
00551 M01S00418.ns2459 ---|* EXITS TO *ADS1*.
00552 M01S00419.ns2459 ---|
00553 M01S00420.ns2459 ---|
00554 M01S00421.ns2459 ---| DSA BSS 0 ENTRY
00555 M01S00422.ns2459 ---| LDD CM+1 MAXIMUM VALUE 77770B
00556 M01S00423.ns2459 ---| LPN 77
00557 M01S00424.ns2459 ---| STD CM+1
00558 M01S00425.ns2459 ---| SHN 14
00559 M01S00426.ns2459 ---| LMD CM+2
00560 M01S00427.ns2459 ---| SHN -3 1/8
00561 M01S00428.ns2459 ---| STD CM FRACTION ACCUMULATOR
00562 M01S00429.ns2459 ---| STD CM+4
00563 M01S00430.ns2459 ---| DSA1 LDD CM+4
00564 M01S00431.ns2459 ---| SHN -2
00565 M01S00432.ns2459 ---| ZJN DSA2 IF FRACTION ZERO
00566 M01S00433.ns2459 ---| STD CM+4
00567 M01S00434.ns2459 ---| RAD CM 1/8 + 1/32 + 1/128 + ...
00568 M01S00435.ns2459 ---| UJN DSA1 CONTINUE FRACTION COMPUTATION
00569 M01S00436.ns2459 ---|
00570 M01S00437.ns2459 ---| DSA2 LDD CM+2 SUBTRACT FRACTION ACCUMULATED
00571 M01S00438.ns2459 ---| SBD CM
00572 M01S00439.ns2459 ---| STD CM+2
00573 M01S00440.ns2459 ---| PJN DSA3 IF NO UNDERFLOW
00574 M01S00441.ns2459 ---| SOD CM+1
00575 M01S00442.ns2459 ---| DSA3 LDD CM+1
00576 M01S00443.ns2459 ---| RAD CM+1
00577 M01S00444.ns2459 ---| LDD CM+2
00578 M01S00445.ns2459 ---| RAD CM+2
00579 M01S00446.ns2459 ---| SHN -14
00580 M01S00447.ns2459 ---| RAD CM+1
00581 M01S00448.ns2459 ---| LDD CM+3
00582 M01S00449.ns2459 ---| ADC -4610
00583 M01S00450.ns2459 ---| MJN DSA4 IF NOT CLOSE TO 1 SRU
00584 M01S00451.ns2459 ---| AOD CM+2
00585 M01S00452.ns2459 ---| DSA4 LDD CM+1
00586 M01S00453.ns2459 ---| SHN 14
00587 M01S00454.ns2459 ---| LMD CM+2
00588 M01S00455.ns2459 ---| DSA5 LJM ADS1 DISPLAY VALUE
00589 M01S00456.ns2459 ---| DSL SPACE 4,10
00590 M01S00457.ns2459 ---|** DSL - DISPLAY *SRU* LIMIT.
00591 M01S00458.ns2459 ---|*
00592 M01S00459.ns2459 ---|* ENTRY (CM - CM+4) = (*STLW*).
00593 M01S00460.ns2459 ---|*
00594 M01S00461.ns2459 ---|* EXITS TO *ADS1*.
00595 M01S00462.ns2459 ---|
00596 M01S00463.ns2459 ---|
00597 M01S00464.ns2459 ---| DSL BSS 0 ENTRY
00598 M01S00465.ns2459 ---| LDD CM+1 DISPLAY SRU LIMIT
00599 M01S00466.ns2459 ---| SCN 77
00600 M01S00467.ns2459 ---| SHN 6
00601 M01S00468.ns2459 ---| LMD CM
00602 M01S00469.ns2459 ---| SHN 6
00603 M01S00470.ns2459 ---| UJN DSA5 DISPLAY VALUE
00604 M00S00471.comdgjd +++| DTC SPACE 4,10
00605 M00S00472.comdgjd +++|** DTC - DISPLAY THE PENDING COMMANDS.
00606 M00S00473.comdgjd +++|*
00607 M00S00474.comdgjd +++|* ENTRY (A) = ADDRESS OF *CSPW*.
00608 M00S00475.comdgjd +++|* (CP) = CP ADDRESS.
00609 M00S00476.comdgjd +++|* (XC) = X COORDINATE = *CH01*.
00610 M00S00477.comdgjd +++|* (YC) = Y COORDINATE.
00611 M00S00478.comdgjd +++|*
00612 M00S00479.comdgjd +++|* USES YC, AB - AB+4, CM - CM+4, T0 - T0+4.
00613 M00S00480.comdgjd +++|*
00614 M00S00481.comdgjd +++|* CALLS DWD.
00615 M00S00482.comdgjd +++|*
00616 M00S00483.comdgjd +++|* EXITS TO *DSJX*.
00617 M00S00484.comdgjd +++|
00618 M00S00485.comdgjd +++|
00619 M00S00486.comdgjd +++| DTC BSS 0 ENTRY
00620 M00S00487.comdgjd +++| CRD AB
00621 M00S00488.comdgjd +++| LDD AB+3
00622 M00S00489.comdgjd +++| LMD AB+4
00623 M00S00490.comdgjd +++| ZJN DTC4 IF NO COMMANDS
00624 M00S00491.comdgjd +++| LDD CP GET RA/100B
00625 M00S00492.comdgjd +++| DTCA ADN FLSW
00626 M00S00493.comdgjd +++|* ADN FLSW+1 (CME PRESENT)
00627 M00S00494.comdgjd +++| CRD T0
00628 M00S00495.comdgjd +++| LRD T1
00629 M00S00496.comdgjd +++| DTC1 LDN 2 OUTPUT COORDINATES
00630 M00S00497.comdgjd +++| OAM XC,CH
00631 M00S00498.comdgjd +++| STD T2 CLEAR WORD COUNT
00632 M00S00499.comdgjd +++| DTC2 LDD T3 GET RA/100 OR NFL/100+4000
00633 M00S00500.comdgjd +++| SHN 6
00634 M00S00501.comdgjd +++| SBD AB+3
00635 M00S00502.comdgjd +++| CRD CM READ WORD FROM COMMAND BUFFER
00636 M00S00503.comdgjd +++| AOD T2 INCREMENT WORD COUNT
00637 M00S00504.comdgjd +++| SBN 7
00638 M00S00505.comdgjd +++| PJN DTC3 IF SIX CM WORDS DISPLAYED
00639 M00S00506.comdgjd +++| RJM DWD DISPLAY CM WORD
00640 M00S00507.comdgjd +++| DTC3 SOD AB+3 ADVANCE CM WORD ADDRESS
00641 M00S00508.comdgjd +++| LMD AB+4
00642 M00S00509.comdgjd +++| ZJN DTC4 IF END OF COMMANDS
00643 M00S00510.comdgjd +++| LDD CM+4
00644 M00S00511.comdgjd +++| NJN DTC2 IF NOT END OF A COMMAND
00645 M00S00512.comdgjd +++| LCN YINC ADVANCE Y-COORDINATE
00646 M00S00513.comdgjd +++| RAD YC
00647 M00S00514.comdgjd +++| SBM CBOS
00648 M00S00515.comdgjd +++| PJN DTC1 IF NOT BOTTOM OF SCREEN
00649 M00S00516.comdgjd +++| DTC4 LJM DSJX RETURN
00650 M00S00517.comdgjd +++| DTI SPACE 4,10
00651 M00S00518.comdgjd +++|** DTI - DISPLAY TITLE INFORMATION.
00652 M00S00519.comdgjd +++|*
00653 M00S00520.comdgjd +++|* ENTRY (T5) = X-COORDINATE OF TITLE.
00654 M00S00521.comdgjd +++|* (T6) = LENGTH OF TITLE.
00655 M00S00522.comdgjd +++|* (DTIA) = ADDRESS OF TITLE.
00656 M00S00523.comdgjd +++|*
00657 M00S00524.comdgjd +++|* NOTE *DTI* ASSUMES THAT THE TITLES ARE TWO TO FIVE
00658 M00S00525.comdgjd +++|* CHARACTERS IN LENGTH AND THAT THE *=* SIGN FOR
00659 M00S00526.comdgjd +++|* EACH COLUMN OF DATA IS IN A CHARACTER POSITION
00660 M00S00527.comdgjd +++|* WHOSE NUMBER IS ONE GREATER THAN A MULTIPLE OF
00661 M00S00528.comdgjd +++|* FOUR.
00662 M00S00529.comdgjd +++|
00663 M00S00530.comdgjd +++|
00664 M00S00531.comdgjd +++| DTI SUBR ENTRY/EXIT
00665 M00S00532.comdgjd +++| LDD T6
00666 M00S00533.comdgjd +++| OAM"." **,CH
00667 M00S00534.comdgjd +++| DTIA EQU *-1 (ADDRESS OF TITLE)
00668 M00S00535.comdgjd +++| LDD T5 CALCULATE POSITION OF *= *
00669 M00S00536.comdgjd +++| ADK 6*XINC
00670 M00S00537.comdgjd +++| SCN 30
00671 M00S00538.comdgjd +++| OAN CH+40
00672 M00S00539.comdgjd +++| LDC 2R= OUTPUT *= *
00673 M00S00540.comdgjd +++| OAN CH+40
00674 M00S00541.comdgjd +++| UJN DTIX RETURN
00675 M00S00542.comdgjd +++|
00676 M00S00543.comdgjd +++|
00677 M00S00544.comdgjd +++| TTIP CON TTTI POINTER TO TABLE OF TITLE INFORMATION
00678 M00S00545.comdgjd +++| TJDI SPACE 4,45
00679 M00S00546.comdgjd +++|** TJDI - *J* DISPLAY INFORMATION TABLE.
00680 M00S00547.comdgjd +++|*
00681 M00S00548.comdgjd +++|* THE ENTRIES IN *TJDI* ARE ARRANGED IN LINE ORDER FROM LEFT
00682 M00S00549.comdgjd +++|* TO RIGHT. THE ARRANGEMENT BY LINE ORDER IS ASSUMED BY *GJD*,
00683 M00S00550.comdgjd +++|* BUT THE ARRANGEMENT FROM LEFT TO RIGHT CAN BE VARIED, IF IT
00684 M00S00551.comdgjd +++|* IS EVER NECESSARY. THE FIRST ENTRY OF A NEW LINE MUST
00685 M00S00552.comdgjd +++|* SPECIFY THE *NL* PARAMETER IN THE *JDI* MACRO.
00686 M00S00553.comdgjd +++|*
00687 M00S00554.comdgjd +++|* TABLE FORMAT.
00688 M00S00555.comdgjd +++|*
00689 M00S00556.comdgjd +++|*T ENT+0 11/ DSA,1/A
| Line S00557 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00690 M01S00557.252l678 ---|*T, ENT+0 6/ MASK,2/F,3/SC,1/A
| Line S00027 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00691 M01S00027.252l678 +++|*T, ENT+0 6/ MASK,2/F,1/SC,2/,1/A
00692 M00S00558.comdgjd +++|*T, ENT+1 7/ XC,2/L,1/C,1/N,1/D
00693 M00S00559.comdgjd +++|*T, ENT+2 11/ ADDR,1/M
00694 M00S00560.comdgjd +++|*
00695 M00S00561.comdgjd +++|* *A* = *ADS* BIT.
00696 M00S00562.comdgjd +++|* = 0 = DISPLAY SUBROUTINE IS SPECIFIED BY *DSA*.
00697 M00S00563.comdgjd +++|* = 1 = DISPLAY SUBROUTINE IS *ADS*.
00698 M00S00564.comdgjd +++|* *DSA* = DISPLAY SUBROUTINE ADDRESS, WHEN *A* = 0.
00699 M00S00565.comdgjd +++|* *MASK* = MASK TO BE ANDED WITH (CM+*SB*) BEFORE SHIFTING AND
00700 M00S00566.comdgjd +++|* ADDING (CM+*SB*+1), WHEN *A* = 1.
00701 M00S00567.comdgjd +++|* *F* = FIRST OF TWO BYTES, RELATIVE TO *CM*, USED BY *ADS* TO
00702 M00S00568.comdgjd +++|* GET ITS SIX DIGIT NUMBER, WHEN *A* = 1.
| Line S00569 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00703 M01S00569.252l678 ---|* *SC* = NUMBER OF BITS BY WHICH THE VALUE WILL LEFT-SHIFTED
| Line S00028 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00704 M01S00028.252l678 +++|* *SC* = INDICATES VALUE TO BE SHIFTED BY USER EM SHIFT COUNT
00705 M00S00570.comdgjd +++|* JUST BEFORE DISPLAYING IT, WHEN *A* = 1.
00706 M00S00571.comdgjd +++|* *XC* = (X-COORDINATE-*CH01*)/10 OF TITLE.
00707 M00S00572.comdgjd +++|* *L* = LENGTH OF THE TITLE (IN BYTES).
00708 M00S00573.comdgjd +++|* *C* = CONDITIONAL DATUM BIT.
00709 M00S00574.comdgjd +++|* = 0 = DATUM IS ALWAYS DISPLAYED.
00710 M00S00575.comdgjd +++|* = 1 = DATUM MAY BE OMITTED. THE DISPLAY PROCESSOR SUB-
00711 M00S00576.comdgjd +++|* ROUTINE DETERMINES WHETHER TO DISPLAY IT.
00712 M00S00577.comdgjd +++|* *N* = NEW LINE BIT.
00713 M00S00578.comdgjd +++|* = 0 = DISPLAY DATUM ON A NEW LINE.
00714 M00S00579.comdgjd +++|* = 1 = DISPLAY DATUM ON THE SAME LINE.
00715 M00S00580.comdgjd +++|* *D* = DOUBLE SPACE BIT, ONLY WHEN *N* = 0.
00716 M00S00581.comdgjd +++|* = 0 = SINGLE SPACE.
00717 M00S00582.comdgjd +++|* = 1 = DOUBLE SPACE.
00718 M00S00583.comdgjd +++|* *M* = MEMORY IN WHICH DATUM RESIDES.
00719 M00S00584.comdgjd +++|* = 0 = DATUM IS IN THE JOB-S CPA.
00720 M00S00585.comdgjd +++|* = 1 = DATUM IS IN PP MEMORY.
00721 M00S00586.comdgjd +++|* *ADDR* = WORD IN JOB-S CPA THAT CONTAINS THE DATUM, *M* = 0.
00722 M00S00587.comdgjd +++|* = BYTE IN PP MEMORY THAT CONTAINS THE DATUM, *M* = 1.
00723 M00S00588.comdgjd +++|
00724 M00S00589.comdgjd +++|
00725 M00S00590.comdgjd +++| TJDI JDI 1,1,(JSN),,PP,AB+4,DJN
00726 M00S00591.comdgjd +++| JDI 2,,(EJTO),,PP,T7,ADS,3,00
00727 M00S00592.comdgjd +++| JDI 3,,( P),,CPA,0,ADS,0,77
00728 M00S00593.comdgjd +++| JDI 2,1,(SRUA),,CPA,SRUW,DSA
00729 M00S00594.comdgjd +++| JDI 3,,(RA),,CPA,FLSW,ADS,2,77
00730 M00S00595.comdgjd +++| JDI 1,1,(UI),,CPA,UIDW,ADS,3,37
00731 M00S00596.comdgjd +++| JDI 2,,(SRUL),,CPA,STLW,DSL
00732 M00S00597.comdgjd +++| JDI 3,,(FL),,CPA,FLSW,ADS,3,00
00733 M00S00598.comdgjd +++| JDI 1,1,(FM),,CPA,PFCW,DFM
00734 M00S00599.comdgjd +++| JDI 2,,(CS),,PP,T9,DCM
| Line S00600 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00735 M01S00600.252l678 ---| JDI 3,,(RAE),,CPA,ECSW,ADS,2,77,UESF
| Line S00029 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00736 M01S00029.252l678 +++| JDI 3,,(RAE),,CPA,ECSW,ADS,2,77,1
00737 M00S00601.comdgjd +++| JDI 1,1,(PN),,CPA,PKNW,DFM1
| Line S00602 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00738 M01S00602.ns2459 ---| JDI 2,,(CONN),*,CPA,TTNW,DCN
| Line S00107 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00739 M01S00107.ns2459 +++| JDI 2,,(CN),*,CPA,TTNW,DCN
| Line S00603 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00740 M01S00603.252l678 ---| JDI 3,,(FLE),,CPA,ECSW,ADS,3,00,UESF
| Line S00030 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00741 M01S00030.252l678 +++| JDI 3,,(FLE),,CPA,ECSW,ADS,3,00,1
| Line S00604 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00742 M01S00604.ns2459 ---| JDI 2,1,(LEVEL),*,CPA,JSCW,DLV
| Line S00108 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00743 M01S00108.ns2459 +++| JDI 2,1,(LV),*,CPA,JSCW,DLV
00744 M00S00605.comdgjd +++| JDI 3,,(CPA),,PP,CP,ADS,3,00
| Line S00109 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00745 M01S00109.ns2459 +++| JDI 1,1,(CPU),,CPA,STSW,DCS
00746 M00S00606.comdgjd +++| JDI 1,2,(EST),,PP,T0,DEQ
00747 M00S00607.comdgjd +++| JDI 1,2,(MS1),,CPA,MS1W,DMS
00748 M00S00608.comdgjd +++| JDI 1,1,(MS2),,CPA,MS2W,DMS
00749 M00S00609.comdgjd +++| JDI 1,2,(),*,CPA,CSPW,DTC
00750 M00S00610.comdgjd +++| TTTI SPACE 4,10
00751 M00S00611.comdgjd +++|* TTTI - TABLE OF TITLE INFORMATION.
00752 M00S00612.comdgjd +++|
00753 M00S00613.comdgjd +++| TTTI BSS 0
00754 M00S00614.comdgjd +++| GJD HERE
00755 M00S00615.comdgjd +++| TCSM SPACE 4,10
00756 M00S00616.comdgjd +++|* TCSM - CONNECTION STATUS MESSAGE TABLE.
| Line S00110 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00757 M01S00110.ns2459 +++|* THIS TABLE AND *TCPS* MUST BE CONTIGUOUS.
00758 M00S00617.comdgjd +++|
00759 M00S00618.comdgjd +++| TCSM BSS 0
| Line S00619 Modification History |
M01 (Removed by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00760 M01S00619.ns2459 ---| DATA 6HBATCH *NICS*
00761 M01S00620.ns2459 ---| DATA 6HDETACH *DTCS*
00762 M01S00621.ns2459 ---| DATA 6HONLINE *OLCS*
| Line S00111 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00622.comdgjd +++|
00780 M00S00623.comdgjd +++|
00781 M00S00624.comdgjd +++| BASE *
| Line S00127 Modification History |
M01 (Added by) | ns2459 |
Seq # *Modification Id* Act
----------------------------+
00782 M01S00127.ns2459 +++| LIST *
00783 M00S00625.comdgjd +++| QUAL$ IF -DEF,QUAL$
00784 M00S00626.comdgjd +++| QUAL *
00785 M00S00627.comdgjd +++| GJD EQU /COMDGJD/GJD
00786 M00S00628.comdgjd +++| QUAL$ ENDIF
00787 M00S00629.comdgjd +++| GJD ENDX