cdc:nos2.source:opl.opl871:common:comdsys
Common COMDSYS
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comdsys +++| CTEXT COMDSYS - DISPLAY SYSTEM STATUS AND ASSOCIATED ROUTINES. 00002 M00S00002.comdsys +++| COMDSYS SPACE 4 00003 M00S00003.comdsys +++| QUAL COMDSYS
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M00S00005.comdsys +++| COMDSYS SPACE 4 00007 M00S00006.comdsys +++|*** COMDSYS - DISPLAY SYSTEM STATUS AND ASSOCIATED ROUTINES. 00008 M00S00007.comdsys +++|* G. R. MANSFIELD. 70/12/14. 00009 M00S00008.comdsys +++| COMDSYS SPACE 4 00010 M00S00009.comdsys +++|*** COMDSYS DISPLAYS THE TOP LINES OF THE LEFT AND 00011 M00S00010.comdsys +++|* RIGHT SCREENS. IT MAY BE CALLED BY ANY DISPLAY PROGRAM. 00012 M00S00011.comdsys +++|* 00013 M00S00012.comdsys +++|* IF THE TAG *DSDSYS$* IS DEFINED, *SYS* WILL BE ASSEMBLED 00014 M00S00013.comdsys +++|* WITH THE ASSUMPTION THAT *DSD* IS THE CALLING DECK.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00015 M01S00001.241l630 +++|* 00016 M01S00002.241l630 +++|* IF TAG *N2S$* IS DEFINED, SUBROUTINE *D2S* WILL NOT 00017 M01S00003.241l630 +++|* BE ASSEMBLED. 00018 M00S00014.comdsys +++| COMDSYS SPACE 4 00019 M00S00015.comdsys +++|*** ASSUMED. 00020 M00S00016.comdsys +++|* 00021 M00S00017.comdsys +++|* 00022 M00S00018.comdsys +++|* PRESENCE OF COMMON DECKS - 00023 M00S00019.comdsys +++|* *COMDMAC* 00024 M00S00020.comdsys +++|* *COMPMAC* 00025 M00S00021.comdsys +++|* *COMSPIM* 00026 M00S00022.comdsys +++|* *COMSEJT* 00027 M00S00023.comdsys +++|* *COMPGFN* 00028 M00S00024.comdsys +++|* BASE MIXED 00029 M00S00025.comdsys +++|* SST 00030 M00S00026.comdsys +++| COMDSYS SPACE 4 00031 M00S00027.comdsys +++|* ASSEMBLY CONSTANTS. 00032 M00S00028.comdsys +++| 00033 M00S00029.comdsys +++| 00034 M00S00030.comdsys +++| IF -DEF,DSCT,1 00035 M00S00031.comdsys +++| DSCT EQU 20D DISPLAY CYCLE (MILLISECONDS) 00036 M00S00032.comdsys +++| D721 EQU 500D DISPLAY DELAY 00037 M00S00033.comdsys +++| SYS SPACE 4,40 00038 M00S00034.comdsys +++|*** SYS - DISPLAY SYSTEM STATUS. 00039 M00S00035.comdsys +++|* 00040 M00S00036.comdsys +++|* *SYS* DISPLAYS THE TIME, DATE AND SYSTEM HEADER LINE 00041 M00S00037.comdsys +++|* ON THE LEFT SCREEN, AND CURRENT OPERATOR MESSAGES ON 00042 M00S00038.comdsys +++|* THE RIGHT SCREEN. 00043 M00S00039.comdsys +++|* 00044 M00S00040.comdsys +++|* ENTRY (XC) = INITIAL X-COORDINATE. 00045 M00S00041.comdsys +++|* (NC) = NUMBER OF CONTROL POINTS, INCLUDING SYSTEM CP. 00046 M00S00042.comdsys +++|* (SYSB) = 0 = *L* DISPLAY DRIVER ACTIVE. 00047 M00S00043.comdsys +++|* 00048 M00S00044.comdsys +++|* EXIT DISPLAY CHANNEL ACTIVE. 00049 M00S00045.comdsys +++|* RIGHT SCREEN, SMALL CHARACTERS SELECTED. 00050 M00S00046.comdsys +++|* (SYSB) = 9/DIST, 3/DRST. 00051 M00S00047.comdsys +++|* DIST = *L* DISPLAY STATUS FROM ((*LDSP*)), IF 00052 M00S00048.comdsys +++|* THE DRIVER IS NOT ACTIVE. 00053 M00S00049.comdsys +++|* DRST = *L* DISPLAY DRIVER STATUS. 00054 M00S00050.comdsys +++|* 1 = DRIVER IS ACTIVE. 00055 M00S00051.comdsys +++|* 2 = DRIVER IS NOT ACTIVE. 00056 M00S00052.comdsys +++|* 00057 M00S00053.comdsys +++|* USES YC, T1 - T7, CM - CM+4. 00058 M00S00054.comdsys +++|* 00059 M00S00055.comdsys +++|* CALLS DOL, DSS, PSE, ULH. 00060 M00S00056.comdsys +++|* 00061 M00S00057.comdsys +++|* MACROS DISPLA, ENDIF, IF. 00062 M00S00058.comdsys +++|* 00063 M00S00059.comdsys +++|* NOTE *DISPLA* REQUIRES A *HERE* MACRO IN THE 00064 M00S00060.comdsys +++|* CALLING PROGRAM FOR REMOTE CODE. 00065 M00S00061.comdsys +++|* 00066 M00S00062.comdsys +++|* EXAMPLE (LEFT SCREEN) - 00067 M00S00063.comdsys +++|* 00068 M00S00064.comdsys +++|* 1 2 3 4 5 6 00069 M00S00065.comdsys +++|* 1234567890123456789012345678901234567890123456789012345678901234 00070 M00S00066.comdsys +++|* 00071 M00S00067.comdsys +++|* 18.05.18. 80/12/24. SYSTEM HEADER ... 00072 M00S00068.comdsys +++|* 00073 M00S00069.comdsys +++|* 00074 M00S00070.comdsys +++|* EXAMPLE (RIGHT SCREEN) - 00075 M00S00071.comdsys +++|* 00076 M00S00072.comdsys +++|* 1 2 3 4 5 6 00077 M00S00073.comdsys +++|* 1234567890123456789012345678901234567890123456789012345678901234 00078 M00S00074.comdsys +++|* 00079 M00S00075.comdsys +++|* SEE *L* DISPLAY 00080 M00S00076.comdsys +++|* SEE *A,OPERATOR* 00081 M00S00077.comdsys +++| 00082 M00S00078.comdsys +++| 00083 M00S00079.comdsys +++| SYS1 LDC HL03 SET DATE LINE Y-COORDINATE 00084 M00S00080.comdsys +++| STD YC 00085 M00S00081.comdsys +++| 00086 M00S00082.comdsys +++|* DISPLAY DATE LINE. 00087 M00S00083.comdsys +++| 00088 M00S00084.comdsys +++| CFNC SLSF SELECT LEFT SCREEN - SMALL CHARACTERS 00089 M00S00085.comdsys +++| LDN 2 OUTPUT COORDINATES 00090 M00S00086.comdsys +++| OAM XC,CH 00091 M00S00087.comdsys +++| LDN TIML DISPLAY DATE LINE 00092 M00S00088.comdsys +++| RJM DOL 00093 M00S00089.comdsys +++| FJM *,CH IF CHANNEL FULL 00094 M00S00090.comdsys +++| RJM ULH UNDERLINE HEADERS 00095 M00S00091.comdsys +++| RJM PSE PAUSE IF NECESSARY 00096 M00S00092.comdsys +++|.A IF DEF,DSS$ 00097 M00S00093.comdsys +++| RJM DSS DISPLAY SUBSYSTEM STATUS 00098 M00S00094.comdsys +++|.A ENDIF 00099 M00S00095.comdsys +++| LDC 1 CHECK *L* DISPLAY FLAG 00100 M00S00096.comdsys +++| SYSB EQU *-1 00101 M00S00097.comdsys +++| ZJN SYS3 IF *L* DISPLAY ACTIVE 00102 M00S00098.comdsys +++| LPC 210 00103 M00S00099.comdsys +++| ZJN SYS2 IF NEITHER *L* DISPLAY NOR INPUT REQUESTED 00104 M00S00100.comdsys +++| DISPLA CH02,HL02,(SEE *L* DISPLAY),H 00105 M00S00101.comdsys +++| SYS2 LDC * GET *L* DISPLAY CONTROL WORD ADDRESS 00106 M00S00102.comdsys +++| SYSC EQU *-2 00107 M00S00103.comdsys +++| CRD CM 00108 M00S00104.comdsys +++| LDD CM+4 GET *L* DISPLAY REQUESTED STATUS 00109 M00S00105.comdsys +++| SHN 3 00110 M00S00106.comdsys +++| LMN 1 00111 M00S00107.comdsys +++| SYS3 ADN 1 00112 M00S00108.comdsys +++| STM SYSB 00113 M00S00109.comdsys +++| LDC OPRL 00114 M00S00110.comdsys +++| CRD CM 00115 M00S00111.comdsys +++| LDD CM 00116 M00S00112.comdsys +++| ADD CM+1 00117 M00S00113.comdsys +++| ADD CM+2 00118 M00S00114.comdsys +++| ADD CM+3 00119 M00S00115.comdsys +++| ADD CM+4 00120 M00S00116.comdsys +++| ZJN SYSX IF NO OPERATOR MESSAGES 00121 M01S00004.241l630 +++| RJM SBO INDICATE OPERATOR ACTION REQUIRED 00122 M00S00117.comdsys +++| DISPLA CH02,HL03,(SEE *A,OPERATOR*),H 00123 M00S00118.comdsys +++| 00124 M00S00119.comdsys +++| SYS SUBR ENTRY/EXIT 00125 M00S00120.comdsys +++| LJM PRS PRESET 00126 M00S00121.comdsys +++| SYSA EQU *-1 (PRESET ALREADY EXECUTED) 00127 M00S00122.comdsys +++|* LJM SYS1 EXECUTE ROUTINE AFTER PRESET 00128 M00S00123.comdsys +++| 00129 M00S00124.comdsys +++|.B IF DEF,DSS$ 00130 M00S00125.comdsys +++| SSM SPACE 4,10 00131 M00S00126.comdsys +++|*** SUBSYSTEM MESSAGE AREA. 00132 M00S00127.comdsys +++| 00133 M00S00128.comdsys +++|
| Line S00129 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00129.241l630 ---| SSMA CON HL01,CH29 COORDINATES FOR SYBSYSTEM MESSAGE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00135 M01S00005.241l630 +++| SSMA CON HL01,CH29 COORDINATES FOR SUBSYSTEM MESSAGE 00136 M00S00130.comdsys +++| SSMB BSS 0 SUBSYSTEM JSN 00137 M00S00131.comdsys +++| SSMC EQU SSMB+2 *MS2W* AREA 00138 M00S00132.comdsys +++|.B ENDIF 00139 M00S00133.comdsys +++| PRS SPACE 4,10 00140 M00S00134.comdsys +++|*** PRS - PRESET FOR *SYS*. 00141 M00S00135.comdsys +++|* 00142 M00S00136.comdsys +++|* THIS CODE IS OVERLAID BY *MS2W* DURING EXECUTION. 00143 M00S00137.comdsys +++| 00144 M00S00138.comdsys +++| 00145 M00S00139.comdsys +++| PRS BSS 0 ENTRY 00146 M00S00140.comdsys +++| LDK LDSP SET *L* DISPLAY AREA ADDRESS 00147 M00S00141.comdsys +++| CRD CM 00148 M00S00142.comdsys +++| LDD CM+2 00149 M00S00143.comdsys +++| RAM SYSC 00150 M00S00144.comdsys +++| LDD CM+3 00151 M00S00145.comdsys +++| STM SYSC+1 00152 M00S00146.comdsys +++| LDC SYS1 REMOVE CALL TO PRESET 00153 M00S00147.comdsys +++| STM SYSA 00154 M00S00148.comdsys +++|.C IF -DEF,DSS$ 00155 M00S00149.comdsys +++| LJM SYS1 ENTER DISPLAY ROUTINE 00156 M00S00150.comdsys +++|.C ELSE 00157 M00S00151.comdsys +++|.D IF -DEF,DSDSYS$ 00158 M00S00152.comdsys +++| LDK NCPL SET NUMBER OF CONTROL POINTS 00159 M00S00153.comdsys +++| CRD CM 00160 M00S00154.comdsys +++| AOD CM+1 INCLUDE SYSTEM CONTROL POINT 00161 M00S00155.comdsys +++| RAM DSSA 00162 M00S00156.comdsys +++|.D ENDIF 00163 M00S00157.comdsys +++|* LJM SYS1 ENTER DISPLAY ROUTINE 00164 M00S00158.comdsys +++| 00165 M00S00159.comdsys +++|* RESERVE ONLY NECESSARY SPACE FOR SUBSYSTEM MESSAGE. 00166 M00S00160.comdsys +++| 00167 M00S00161.comdsys +++|.E IFLT *-SSMB,3*5+3 00168 M00S00162.comdsys +++| LJM SYS1 ENTER DISPLAY ROUTINE 00169 M00S00163.comdsys +++| IFLT *-SSMB,3*5+3,1 00170 M00S00164.comdsys +++| BSS 3*5+3-*+SSMB RESERVE SPACE FOR 30 CHARACTERS + EOL 00171 M00S00165.comdsys +++| DSS SUBR ENTRY/EXIT 00172 M00S00166.comdsys +++|.E ELSE 00173 M00S00167.comdsys +++| DSSX LJM SYS1 ENTER DISPLAY ROUTINE FROM PRESET 00174 M00S00168.comdsys +++| DSS EQU *-1 ENTRY/EXIT 00175 M00S00169.comdsys +++|.E ENDIF 00176 M00S00170.comdsys +++| DSS SPACE 4,15 00177 M00S00171.comdsys +++|*** DSS - DISPLAY SUBSYSTEM STATUS. 00178 M00S00172.comdsys +++|*
| Line S00173 Modification History | |
|---|---|
M01 (Removed by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00179 M01S00173.dsys1 ---|* USES T1 - T7, CM - CM+4.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00001.dsys1 +++|* USES T1, T4, T6, T7, CM - CM+4. 00181 M00S00174.comdsys +++|*
| Line S00175 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00175.241l630 ---|* CALLS HIL.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00183 M01S00006.241l630 +++|* CALLS HIL, SBO. 00184 M00S00176.comdsys +++|* 00185 M00S00177.comdsys +++|* MACROS SFA. 00186 M00S00178.comdsys +++|* 00187 M00S00179.comdsys +++|* EXAMPLE - 00188 M00S00180.comdsys +++|* 00189 M00S00181.comdsys +++|* 1 2 3 4 5 6 00190 M00S00182.comdsys +++|* 1234567890123456789012345678901234567890123456789012345678901234 00191 M00S00183.comdsys +++|* SYS. NO MONITOR RESPONSE. 00192 M00S00184.comdsys +++|* MAG. CHECK *E,P* DISPLAY 00193 M00S00185.comdsys +++|* IAF.REQUEST DISPLAY. (DIS) 00194 M00S00186.comdsys +++| 00195 M00S00187.comdsys +++| 00196 M00S00188.comdsys +++|*DSS SUBR ENTRY/EXIT 00197 M00S00189.comdsys +++| LDN 0 CLEAR EOL BYTE 00198 M00S00190.comdsys +++| STM SSMC+5*3 00199 M01S00007.241l630 +++| STD T4 00200 M00S00191.comdsys +++|.F IF DEF,DSDSYS$ 00201 M00S00192.comdsys +++| LDD NC 00202 M00S00193.comdsys +++|.F ELSE 00203 M00S00194.comdsys +++| LDN 0 LOAD TOTAL NUMBER OF CONTROL POINTS 00204 M00S00195.comdsys +++| DSSA EQU *-1 00205 M00S00196.comdsys +++|.F ENDIF
| Line S00197 Modification History | |
|---|---|
M01 (Removed by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00206 M01S00197.dsys1 ---| STD T5 SYSTEM CONTROL POINT NUMBER 00207 M00S00198.comdsys ---| ADN 1 00208 M00S00199.comdsys ---| STD T6 00209 M00S00200.comdsys ---| LDC HL01 SET Y-COORDINATE 00210 M00S00201.comdsys ---| STM SSMA 00211 M00S00202.comdsys ---| DSS1 LMC BL01
| Line S00203 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00203.241l630 ---| ZJN DSSX IF DISPLAY FULL
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00008.dsys1 ---| ZJN DSS2.1 IF DISPLAY FULL
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00214 M01S00002.dsys1 +++| ZJN DSS3 IF DISPLAY FULL 00215 M00S00204.comdsys +++| DSS2 SOD T6
| Line S00205 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00205.241l630 ---| ZJN DSSX IF ALL CP-S SEARCHED
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00217 M02S00009.dsys1 ---| DSS2.1 ZJP DSS6 IF ALL CP-S SEARCHED
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00003.dsys1 +++| DSS3 ZJP DSS6 IF ALL CP-S SEARCHED 00219 M00S00206.comdsys +++| SHN 7 00220 M00S00207.comdsys +++| ADN TFSW GET EJTO 00221 M00S00208.comdsys +++| CRD T7 00222 M00S00209.comdsys +++| SBN TFSW-MS2W GET MESSAGE 00223 M00S00210.comdsys +++| CRM SSMC,TR 00224 M00S00211.comdsys +++| SBN MS2W+3-JCIW CHECK SUBSYSTEM ID 00225 M00S00212.comdsys +++| CRD CM
| Line S00213 Modification History | |
|---|---|
M01 (Removed by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00226 M01S00213.dsys1 ---| SHN -7 00227 M01S00214.dsys1 ---| LMD T5 00228 M01S00215.dsys1 ---| ZJN DSS3 IF SYSTEM CP 00229 M00S00216.comdsys ---| LDD CM+2 00230 M00S00217.comdsys ---| SBK LSSI+1 00231 M00S00218.comdsys ---| MJN DSS2 IF NOT SUBSYSTEM 00232 M01S00219.dsys1 ---| DSS3 LDM SSMC
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dsys1 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00004.dsys1 +++| LDM SSMC 00234 M00S00220.comdsys +++| ZJN DSS2 IF NO MESSAGE 00235 M00S00221.comdsys +++| SFA EJT,T7 GET JSN 00236 M00S00222.comdsys +++| ADK JSNE 00237 M00S00223.comdsys +++| CRD CM 00238 M00S00224.comdsys +++| LDD CM INSERT JSN 00239 M00S00225.comdsys +++| STM SSMB 00240 M00S00226.comdsys +++| LDD CM+1 00241 M00S00227.comdsys +++| SCN 77 00242 M00S00228.comdsys +++| ADN 1R. 00243 M00S00229.comdsys +++| STM SSMB+1 00244 M00S00230.comdsys +++| LDN 3 LOCATE END OF MESSAGE 00245 M00S00231.comdsys +++| STD T1 00246 M00S00232.comdsys +++| DSS4 AOD T1 00247 M00S00233.comdsys +++| LDM SSMA,T1 00248 M00S00234.comdsys +++| ZJN DSS5 IF END OF MESSAGE 00249 M00S00235.comdsys +++| LPN 77 00250 M00S00236.comdsys +++| NJN DSS4 IF SKIP CHARACTER 00251 M00S00237.comdsys +++| LDN 1R BLANK PAD MESSAGE 00252 M00S00238.comdsys +++| RAM SSMA,T1 00253 M00S00239.comdsys +++| UJN DSS4 CHECK NEXT BYTE 00254 M00S00240.comdsys +++| 00255 M00S00241.comdsys +++| DSS5 LDD T1 SET MESSAGE PARAMETERS 00256 M00S00242.comdsys +++| SHN 14 00257 M00S00243.comdsys +++| LMC SSMA 00258 M00S00244.comdsys +++| RJM HIL OUTPUT HIGHLIGHTED MESSAGE
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00259 M01S00010.241l630 +++| AOD T4 INDICATE SUBSYSTEM STATUS DISPLAYED 00260 M00S00245.comdsys +++| LCN YINC 00261 M00S00246.comdsys +++| RAM SSMA 00262 M00S00247.comdsys +++| LJM DSS1 SEARCH NEXT CP 00263 M01S00011.241l630 +++| 00264 M01S00012.241l630 +++| DSS6 LDD T4 00265 M01S00013.241l630 +++| ZJN DSS7 IF NO SUBSYSTEM STATUS DISPLAYED 00266 M01S00014.241l630 +++| RJM SBO INDICATE OPERATOR ACTION REQUIRED 00267 M01S00015.241l630 +++| DSS7 LJM DSSX RETURN 00268 M00S00248.comdsys +++|.C ENDIF 00269 M00S00249.comdsys +++| DOL SPACE 4,10 00270 M00S00250.comdsys +++|*** DOL - DISPLAY ONE LINE. 00271 M00S00251.comdsys +++|* 00272 M00S00252.comdsys +++|* ENTRY (A) = ADDRESS OF FIRST WORD OF LINE. 00273 M00S00253.comdsys +++|* (XC) = X-COORDINATE. 00274 M00S00254.comdsys +++|* 00275 M00S00255.comdsys +++|* USES T1, T2, T3, T4, CM - CM+4. 00276 M00S00256.comdsys +++| 00277 M00S00257.comdsys +++| 00278 M00S00258.comdsys +++| DOL SUBR ENTRY/EXIT 00279 M00S00259.comdsys +++| STD T2 SET ADDRESS 00280 M00S00260.comdsys +++| SHN -14 00281 M00S00261.comdsys +++| STD T1 00282 M00S00262.comdsys +++| LDN 0 CLEAR WORD COUNT 00283 M00S00263.comdsys +++| STD T3 00284 M00S00264.comdsys +++| STD T4 CLEAR BYTE COUNT 00285 M00S00265.comdsys +++| DOL1 LDD T1 READ WORD 00286 M00S00266.comdsys +++| SHN 14 00287 M00S00267.comdsys +++| ADD T2 00288 M00S00268.comdsys +++| CRD CM 00289 M00S00269.comdsys +++| DOL2 LDM CM,T4 CHECK NEXT BYTE 00290 M00S00270.comdsys +++| DOL3 ZJN DOLX IF END OF DISPLAY LINE 00291 M00S00271.comdsys +++| SBD XC 00292 M00S00272.comdsys +++| MJN DOL4 IF DATA TO DISPLAY 00293 M00S00273.comdsys +++| LDM CM,T4 00294 M00S00274.comdsys +++| LPN 77 00295 M00S00275.comdsys +++| UJN DOL5 DISPLAY LOWER 6 BITS ONLY 00296 M00S00276.comdsys +++| 00297 M00S00277.comdsys +++| DOL4 LDM CM,T4 00298 M00S00278.comdsys +++| DOL5 OAN CH+40 DISPLAY BYTE 00299 M00S00279.comdsys +++| AOD T4 00300 M00S00280.comdsys +++| SBN 5 00301 M00S00281.comdsys +++| NJN DOL2 IF NOT END OF WORD 00302 M00S00282.comdsys +++|* LDN 0 00303 M00S00283.comdsys +++| STD T4 00304 M00S00284.comdsys +++| AOD T2 ADVANCE ADDRESS 00305 M00S00285.comdsys +++| SHN -14 00306 M00S00286.comdsys +++| RAD T1 00307 M00S00287.comdsys +++| AOD T3 COUNT WORD 00308 M00S00288.comdsys +++| DOLA LMN 6 00309 M00S00289.comdsys +++| ZJN DOL3 IF END OF DISPLAY 00310 M00S00290.comdsys +++| UJN DOL1 LOOP 00311 M00S00291.comdsys +++| D2S SPACE 4 00312 M01S00016.241l630 +++| .G IF -DEF,N2S$ 00313 M00S00292.comdsys +++|*** D2S - DISPLAY 2 DIGITS WITH LEADING 0 SUPPRESSED. 00314 M00S00293.comdsys +++|* 00315 M00S00294.comdsys +++|* ENTRY (A) = DIGITS RIGHT ADJUSTED. 00316 M00S00295.comdsys +++|* (D2SA) = *2RN * WHERE N IS THE CHARACTER TO BE 00317 M00S00296.comdsys +++|* DISPLAYED FOLLOWING THE DIGITS. 00318 M00S00297.comdsys +++|* 00319 M00S00298.comdsys +++|* EXIT (D2SA) IS UNCHANGED. 00320 M00S00299.comdsys +++|* 00321 M00S00300.comdsys +++|* USES T0. 00322 M00S00301.comdsys +++|* 00323 M00S00302.comdsys +++|* CALLS NONE. 00324 M00S00303.comdsys +++| 00325 M00S00304.comdsys +++| 00326 M00S00305.comdsys +++| D2S SUBR ENTRY/EXIT 00327 M00S00306.comdsys +++| LPN 77 SAVE DIGITS 00328 M00S00307.comdsys +++| STD T0 00329 M00S00308.comdsys +++| ZJN D2S2 IF BOTH = 0 00330 M00S00309.comdsys +++| SHN -3 00331 M00S00310.comdsys +++| ZJN D2S1 IF UPPER = 0 00332 M00S00311.comdsys +++| ADN 1R0 CONVERT UPPER 00333 M00S00312.comdsys +++| SHN 6 00334 M00S00313.comdsys +++| D2S1 ADD T0 CONVERT LOWER 00335 M00S00314.comdsys +++| SCN 70 00336 M00S00315.comdsys +++| ADN 1R0 00337 M00S00316.comdsys +++| D2S2 OAN CH+40 DISPLAY DIGITS 00338 M00S00317.comdsys +++| LDC 2R. DISPLAY *. * 00339 M00S00318.comdsys +++| D2SA EQU *-1 00340 M00S00319.comdsys +++| D2SB OAN CH+40 00341 M00S00320.comdsys +++|* PSN (DISABLE *. *) 00342 M00S00321.comdsys +++| UJN D2SX RETURN 00343 M01S00017.241l630 +++| .G ENDIF 00344 M00S00322.comdsys +++| D6S SPACE 4 00345 M00S00323.comdsys +++|*** D6S - DISPLAY 6 DIGITS WITH LEADING 0 SUPPRESSION. 00346 M00S00324.comdsys +++|* 00347 M00S00325.comdsys +++|* ENTRY (A) = DIGITS RIGHT ADJUSTED. 00348 M00S00326.comdsys +++|* 00349 M00S00327.comdsys +++|* EXIT NONE. 00350 M00S00328.comdsys +++|* 00351 M00S00329.comdsys +++|* USES T0, T1. 00352 M00S00330.comdsys +++|* 00353 M00S00331.comdsys +++|* CALLS NONE. 00354 M00S00332.comdsys +++| 00355 M00S00333.comdsys +++| 00356 M00S00334.comdsys +++| D6S SUBR ENTRY/EXIT 00357 M00S00335.comdsys +++| STD T1 SAVE DIGITS 00358 M00S00336.comdsys +++| SHN -14 00359 M00S00337.comdsys +++| STD T0 00360 M00S00338.comdsys +++| ZJN D6S2 DIGITS 4, 5 00361 M00S00339.comdsys +++| SHN -3 00362 M00S00340.comdsys +++| ZJN D6S1 00363 M00S00341.comdsys +++| ADN 1R0 00364 M00S00342.comdsys +++| SHN 6 00365 M00S00343.comdsys +++| D6S1 ADD T0 00366 M00S00344.comdsys +++| SCN 70 00367 M00S00345.comdsys +++| ADN 1R0 00368 M00S00346.comdsys +++| D6S2 OAN CH+40 00369 M00S00347.comdsys +++| LDD T0 DIGITS 2, 3 00370 M00S00348.comdsys +++| SHN 14 00371 M00S00349.comdsys +++| LMD T1 00372 M00S00350.comdsys +++| SHN -6 00373 M00S00351.comdsys +++| ZJN D6S4 00374 M00S00352.comdsys +++| SHN -3 00375 M00S00353.comdsys +++| ZJN D6S3 00376 M00S00354.comdsys +++| LPN 7 00377 M00S00355.comdsys +++| ADN 1R0 00378 M00S00356.comdsys +++| SHN 14 00379 M00S00357.comdsys +++| D6S3 ADD T1 00380 M00S00358.comdsys +++| SHN -6 00381 M00S00359.comdsys +++| SCN 70 00382 M00S00360.comdsys +++| ADN 1R0 00383 M00S00361.comdsys +++| D6S4 OAN CH+40 00384 M00S00362.comdsys +++| LDD T0 DIGITS 0, 1 00385 M00S00363.comdsys +++| SHN 14 00386 M00S00364.comdsys +++| LMD T1 00387 M00S00365.comdsys +++| SHN -3 00388 M00S00366.comdsys +++| ZJN D6S5 00389 M00S00367.comdsys +++| LPN 7 00390 M00S00368.comdsys +++| ADN 1R0 00391 M00S00369.comdsys +++| SHN 6 00392 M00S00370.comdsys +++| D6S5 LMD T1 00393 M00S00371.comdsys +++| SCN 7 00394 M00S00372.comdsys +++| LMD T1 00395 M00S00373.comdsys +++| ADN 1R0 00396 M00S00374.comdsys +++| D6S6 OAN CH+40 00397 M00S00375.comdsys +++| LDC 2R. DISPLAY *.* 00398 M00S00376.comdsys +++| D6SA EQU *-1 00399 M00S00377.comdsys +++| OAN CH+40 00400 M00S00378.comdsys +++| LJM D6SX RETURN 00401 M01S00018.241l630 +++| FDP SPACE 4,10 00402 M01S00019.241l630 +++|** FDP - FETCH *EICB* POINTER. 00403 M01S00020.241l630 +++|* 00404 M01S00021.241l630 +++|* EXIT (A) = POINTER TO *D7ST* WORD OF THE *EICB*. 00405 M01S00022.241l630 +++| 00406 M01S00023.241l630 +++| 00407 M01S00024.241l630 +++| FDP SUBR ENTRY/EXIT 00408 M01S00025.241l630 +++| FDPA LDC ** *EICB* POINTER ADDRESS 00409 M01S00026.241l630 +++| UJN FDPX RETURN 00410 M01S00027.241l630 +++| SBO SPACE 4,10 00411 M01S00028.241l630 +++|** SBO - SET BIT IN *EICB* TO INDICATE OPERATOR ACTION 00412 M01S00029.241l630 +++|* IS REQUIRED. 00413 M01S00030.241l630 +++|* 00414 M01S00031.241l630 +++|* USES T1 - T5. 00415 M01S00032.241l630 +++|* 00416 M01S00033.241l630 +++|* CALLS FDP. 00417 M01S00034.241l630 +++| 00418 M01S00035.241l630 +++| 00419 M01S00036.241l630 +++| SBO SUBR ENTRY/EXIT 00420 M01S00037.241l630 +++| RJM FDP GET *EICB* POINTER 00421 M01S00038.241l630 +++| ZJN SBOX IF *EICB* NOT DEFINED 00422 M01S00039.241l630 +++| CRD T1 00423 M01S00040.241l630 +++| LDD T1 00424 M01S00041.241l630 +++| LPC 7377 00425 M01S00042.241l630 +++| LMC 400 00426 M01S00043.241l630 +++| STD T1 00427 M01S00044.241l630 +++| RJM FDP GET *EICB* POINTER 00428 M01S00045.241l630 +++| CWD T1 00429 M01S00046.241l630 +++| UJN SBOX RETURN 00430 M00S00379.comdsys +++| PSE SPACE 4 00431 M00S00380.comdsys +++|*** PSE - PAUSE TO MAKE DISPLAY TIME CONSTANT. 00432 M00S00381.comdsys +++|* USES THE REAL TIME CLOCK IN CM TO INSURE THAT THE DISPLAY 00433 M00S00382.comdsys +++|* RATE IS CONSTANT. 00434 M00S00383.comdsys +++|* 00435 M00S00384.comdsys +++|* ENTRY NONE. 00436 M00S00385.comdsys +++|* 00437 M00S00386.comdsys +++|* EXIT NONE. 00438 M00S00387.comdsys +++|* 00439 M00S00388.comdsys +++|* USES T1, CM - CM+4. 00440 M00S00389.comdsys +++|* 00441 M00S00390.comdsys +++|* CALLS NONE. 00442 M00S00391.comdsys +++| 00443 M00S00392.comdsys +++| 00444 M00S00393.comdsys +++| PSE3 LDD CM+4 RESET TIME 00445 M00S00394.comdsys +++| STM PSEA 00446 M00S00395.comdsys +++| 00447 M00S00396.comdsys +++| PSE SUBR ENTRY/EXIT 00448 M00S00397.comdsys +++| LDN 0 00449 M00S00398.comdsys +++| STD T1 00450 M00S00399.comdsys +++| PSE1 LDC RTCL READ CLOCK 00451 M00S00400.comdsys +++| CRD CM 00452 M00S00401.comdsys +++| LDD CM+4 COMPUTE ELAPSED TIME 00453 M00S00402.comdsys +++| SBM PSEA 00454 M00S00403.comdsys +++| PJN PSE2 IF NO ROLLOVER 00455 M00S00404.comdsys +++| ADC 10000 00456 M00S00405.comdsys +++| PSE2 SBN DSCT 00457 M00S00406.comdsys +++| PJN PSE3 IF NO DELAY NEEDED 00458 M00S00407.comdsys +++| LMC -0 DELAY 1024 CYCLES*MILLISECONDS 00459 M00S00408.comdsys +++| LMD T1 00460 M00S00409.comdsys +++| ZJN PSE3 IF CLOCK NOT RUNNING 00461 M00S00410.comdsys +++| LMD T1 00462 M00S00411.comdsys +++| STD T1 00463 M00S00412.comdsys +++| SHN 11 00464 M00S00413.comdsys +++| SBN 1 00465 M00S00414.comdsys +++| NJN *-1 IF DELAY NOT DONE 00466 M00S00415.comdsys +++| UJN PSE1 RESET TIME 00467 M00S00416.comdsys +++| 00468 M00S00417.comdsys +++| PSEA DATA 0 00469 M00S00418.comdsys +++| ULH SPACE 4,10 00470 M00S00419.comdsys +++|*** ULH - UNDERLINE HEADERS. 00471 M00S00420.comdsys +++|* 00472 M00S00421.comdsys +++|* ENTRY LEFT SCREEN, SMALL CHARACTERS SELECTED, 00473 M00S00422.comdsys +++|* CHANNEL ACTIVE. 00474 M00S00423.comdsys +++|* 00475 M00S00424.comdsys +++|* EXIT RIGHT SCREEN, SMALL CHARACTERS SELECTED, 00476 M00S00425.comdsys +++|* CHANNEL ACTIVE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00477 M01S00001.ns2528 +++|* 00478 M01S00002.ns2528 +++|* USES T1. 00479 M00S00426.comdsys +++|* 00480 M00S00427.comdsys +++|* MACROS CFNC, DFIM. 00481 M00S00428.comdsys +++| 00482 M00S00429.comdsys +++| 00483 M00S00430.comdsys +++| ULH SUBR ENTRY/EXIT
| Line S00431 Modification History | |
|---|---|
M01 (Removed by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00484 M01S00431.ns2528 ---| DFIM (LJM ULH3) 00485 M01S00432.ns2528 ---| AOM ULHA SET LEFT SCREEN FLAG
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00486 M01S00003.ns2528 +++| DFIM (UJN ULH3) 00487 M01S00004.ns2528 +++| LDN 1 SET LEFT SCREEN FLAG 00488 M01S00005.ns2528 +++| STD T1 00489 M00S00433.comdsys +++| LDC HL04-YINC/2 SET Y-COORDINATE 00490 M00S00434.comdsys +++| OAN CH+40 00491 M00S00435.comdsys +++| ULH1 LDC CH01 SET INITIAL POSITION
| Line S00436 Modification History | |
|---|---|
M01 (Removed by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00492 M01S00436.ns2528 ---| STM ULHB
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00493 M01S00006.ns2528 +++| STM ULHA 00494 M00S00437.comdsys +++| ULH2 LDN 2
| Line S00438 Modification History | |
|---|---|
M01 (Removed by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00495 M01S00438.ns2528 ---| OAM ULHB,CH
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00496 M01S00007.ns2528 +++| OAM ULHA,CH 00497 M00S00439.comdsys +++| LDN XINC-3 RESET X-COORDINATE TO CONCATENATE DASHES
| Line S00440 Modification History | |
|---|---|
M01 (Removed by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00498 M01S00440.ns2528 ---| RAM ULHB 00499 M01S00441.ns2528 ---| ADC -CH64 00500 M01S00442.ns2528 ---| MJN ULH2 IF LINE INCOMPLETE 00501 M01S00443.ns2528 ---| LDN 0 00502 M01S00444.ns2528 ---| ULHA EQU *-1 LEFT SCREEN FLAG 00503 M01S00445.ns2528 ---| ZJN ULHX IF RIGHT SCREEN COMPLETED 00504 M01S00446.ns2528 ---| SOM ULHA CLEAR LEFT SCREEN FLAG
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00505 M01S00008.ns2528 +++| RAM ULHA 00506 M01S00009.ns2528 +++| SHN 21-11 00507 M01S00010.ns2528 +++| PJN ULH2 IF LINE INCOMPLETE 00508 M01S00011.ns2528 +++| SOD T1 00509 M01S00012.ns2528 +++| MJN ULHX IF RIGHT SCREEN COMPLETED 00510 M00S00447.comdsys +++| DCN CH+40
| Line S00448 Modification History | |
|---|---|
M01 (Removed by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00511 M01S00448.ns2528 ---| ULH3 CFNC SRSF,CH SELECT RIGHT SCREEN - SMALL CHARACTERS 00512 M01S00449.ns2528 ---| DFIM (LJM ULHX)
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00513 M01S00013.ns2528 +++| ULH3 CFNC SRSF SELECT RIGHT SCREEN - SMALL CHARACTERS 00514 M01S00014.ns2528 +++| DFIM (UJN ULHX) 00515 M00S00450.comdsys +++| UJN ULH1 ENTER UNDERLINE LOOP 00516 M00S00451.comdsys +++| 00517 M00S00452.comdsys +++|
| Line S00453 Modification History | |
|---|---|
M01 (Removed by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00518 M01S00453.ns2528 ---| ULHB CON CH01
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2528 |
Seq # *Modification Id* Act ----------------------------+ 00519 M01S00015.ns2528 +++| ULHA CON CH01 00520 M00S00454.comdsys +++| DATA 2R- 00521 M00S00455.comdsys +++| SPACE 4,10 00522 M00S00456.comdsys +++| QUAL 00523 M00S00457.comdsys +++| 00524 M00S00458.comdsys +++| 00525 M00S00459.comdsys +++|* DISPLAY SUBROUTINES. 00526 M00S00460.comdsys +++| 00527 M00S00461.comdsys +++| 00528 M00S00462.comdsys +++| FNC DSUB 00529 M00S00463.comdsys +++| 00530 M00S00464.comdsys +++| HIL DSUB 00531 M00S00465.comdsys +++| QUAL * 00532 M00S00466.comdsys +++| SPACE 4 00533 M00S00467.comdsys +++| QUAL * 00534 M00S00468.comdsys +++| SYS EQU /COMDSYS/SYS 00535 M00S00469.comdsys +++| DOL EQU /COMDSYS/DOL 00536 M00S00470.comdsys +++| DOLA EQU /COMDSYS/DOLA
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00537 M01S00047.241l630 +++| .H IF -DEF,N2S$ 00538 M00S00471.comdsys +++| D2S EQU /COMDSYS/D2S 00539 M00S00472.comdsys +++| D2SA EQU /COMDSYS/D2SA 00540 M00S00473.comdsys +++| D2SB EQU /COMDSYS/D2SB 00541 M01S00048.241l630 +++| .H ENDIF 00542 M00S00474.comdsys +++| D6S EQU /COMDSYS/D6S 00543 M00S00475.comdsys +++| D6SA EQU /COMDSYS/D6SA 00544 M01S00049.241l630 +++| FDP EQU /COMDSYS/FDP 00545 M01S00050.241l630 +++| FDPA EQU /COMDSYS/FDPA
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2445 |
Seq # *Modification Id* Act ----------------------------+ 00546 M01S00001.ns2445 +++| .I IF DEF,DSDSYS$ 00547 M01S00002.ns2445 +++| SBO EQU /COMDSYS/SBO 00548 M01S00003.ns2445 +++| .I ENDIF 00549 M00S00476.comdsys +++| ENDX
cdc/nos2.source/opl.opl871/common/comdsys.txt · Last modified: (external edit)