cdc:nos2.source:opl.opl871:common:comddcm
Common COMDDCM
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comddcm +++| CTEXT COMDDCM - DISPLAY CENTRAL MEMORY. 00002 M01S00002.comddcm +++| COMDDCM SPACE 4,10
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | comddcm |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00003 M02S00003.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1981. 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M01S00004.comddcm +++| COMDDCM SPACE 4,10 00006 M01S00005.comddcm +++|*** COMDDCM - DISPLAY CENTRAL MEMORY. 00007 M01S00006.comddcm +++|* 00008 M01S00007.comddcm +++|* D. H. GAMBREL. 81/10/30. 00009 M01S00008.comddcm +++| COMDDCM SPACE 4,10 00010 M01S00009.comddcm +++|*** *COMDDCM* DISPLAYS CENTRAL MEMORY USING A CALLER- 00011 M01S00010.comddcm +++|* SPECIFIED ROUTINE. 00012 M01S00011.comddcm +++| DCM SPACE 4,15 00013 M01S00012.comddcm +++|*** DCM - DISPLAY CENTRAL MEMORY. 00014 M01S00013.comddcm +++|* 00015 M01S00014.comddcm +++|* ENTRY (A) = ADDRESS OF FIELD TABLE. 00016 M01S00015.comddcm +++|* (CH) = DISPLAY CHANNEL. 00017 M01S00016.comddcm +++|* (CP) = CONTROL POINT ADDRESS. 00018 M01S00017.comddcm +++|* (T8) = SECURITY MODE.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | comddcm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00019 M02S00018.271l716 ---|* (T5) = 0, IF CENTRAL MEMORY EXTENSION NOT PRESENT.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | comddcm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00019.271l716 ---|* .NE. 0, IF CENTRAL MEMORY EXTENSION PRESENT. 00021 M01S00020.comddcm +++|* (T6) = ADDRESS OF WORD FORMAT DISPLAY ROUTINE. 00022 M01S00001.271l716 +++|* *CMEI* DEFINED = USE *CMEI* TO DETERMINE CENTRAL 00023 M01S00002.271l716 +++|* MEMORY EXTENSION STATUS. OTHERWISE, THIS STATUS 00024 M01S00003.271l716 +++|* MUST BE PRESET INTO *DCMD* PRIOR TO CALLING 00025 M01S00004.271l716 +++|* *DCM*. 00026 M01S00021.comddcm +++|* *DCTY* DEFINED = USE *DCTY* TO DETERMINE THE NUMBER 00027 M01S00022.comddcm +++|* OF GROUPS OF EIGHT WORDS TO BE DISPLAYED (2 FOR 00028 M01S00023.comddcm +++|* *CDC721* OR 4 FOR *CC545*). 00029 M01S00024.comddcm +++|* *DFIM* DEFINED .AND. *RLO$* NOT DEFINED = USE *DFIM* 00030 M01S00025.comddcm +++|* TO CHANGE THE NUMBER OF GROUPS OF EIGHT WORDS 00031 M01S00026.comddcm +++|* FROM 4 TO 2 WHEN *CDC721* IS BEING USED. 00032 M01S00027.comddcm +++|* *OMT$* DEFINED = MANAGED TABLE LOGIC WILL BE OMITTED. 00033 M01S00028.comddcm +++|* *RLO$* DEFINED = *COMDDCM* IS TO RESIDE IN AN OVERLAY. 00034 M01S00029.comddcm +++|*
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | comddcm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00035 M02S00030.271l716 ---|* USES R, T3, T4, T5, T6, T7, YC, CM - CM+4. 00036 M01S00005.271l716 +++|* USES T3, T4, T5, T6, T7, YC, CM - CM+4. 00037 M01S00031.comddcm +++|* 00038 M01S00032.comddcm +++|* XREF COMPMAC, COMDDIS. 00039 M01S00033.comddcm +++| 00040 M01S00034.comddcm +++| 00041 M01S00035.comddcm +++| DCM SUBR ENTRY/EXIT 00042 M01S00036.comddcm +++| SRD T3 SAVE R REGISTER 00043 M01S00037.comddcm +++| STD T7 SET FIELD LOCATION 00044 M01S00038.comddcm +++| ADN 10 SET FIELD LIMIT 00045 M01S00039.comddcm +++| .A IF MAC,DFIM 00046 M01S00040.comddcm +++| .A IF -DEF,RLO$ 00047 M01S00041.comddcm +++| DFIM (ADN 4),*-1 00048 M01S00042.comddcm +++| .A ELSE 00049 M01S00043.comddcm +++| .B IF DEF,//DCTY 00050 M01S00044.comddcm +++| SHN -2+22 DECREMENT ENDING ADDRESS BY 4 IF *CDC721* 00051 M01S00045.comddcm +++| SBM DCTY 00052 M01S00046.comddcm +++| SHN 2 00053 M01S00047.comddcm +++| ERRNZ C545 CODE DEPENDS ON VALUE 00054 M01S00048.comddcm +++| ERRNZ C721-1 CODE DEPENDS ON VALUE 00055 M01S00049.comddcm +++| .B ENDIF 00056 M01S00050.comddcm +++| .A ENDIF 00057 M01S00051.comddcm +++| STM DCMB
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | comddcm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00052.271l716 ---| LDD T5 SET CENTRAL MEMORY EXTENSION STATUS
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | comddcm |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00059 M02S00053.271l716 ---| STM DCMD 00060 M01S00054.comddcm +++| LDD CP GET RA 00061 M01S00055.comddcm +++| ADN FLSW 00062 M01S00056.comddcm +++| CRM DCME,ON 00063 M01S00057.comddcm +++| OMT$ IF -DEF,OMT$ 00064 M01S00058.comddcm +++| LDN 2 OUTPUT COORDINATES 00065 M01S00059.comddcm +++| OAM DCMC,CH 00066 M01S00060.comddcm +++| LDD RA SET MANAGED TABLE BIAS 00067 M01S00061.comddcm +++| SHN 6 00068 M01S00062.comddcm +++| ADM -1,T7 00069 M01S00063.comddcm +++| CRD CM 00070 M01S00064.comddcm +++| LDM -1,T7 00071 M01S00065.comddcm +++| ZJN DCM1 IF NO TABLE BIAS 00072 M01S00066.comddcm +++| RJM D4S DISPLAY TABLE ADDRESS 00073 M01S00067.comddcm +++| RJM D5F DISPLAY 5 GROUPS 00074 M01S00068.comddcm +++| LDD CM+3 00075 M01S00069.comddcm +++| LPN 77 00076 M01S00070.comddcm +++| SHN 14 00077 M01S00071.comddcm +++| ADD CM+4 00078 M01S00072.comddcm +++| DCM1 STM DCMA SET TABLE ADDRESS 00079 M01S00073.comddcm +++| SHN -14 00080 M01S00074.comddcm +++| LMC ADCI 00081 M01S00075.comddcm +++| STM DCMA-1 00082 M01S00076.comddcm +++| OMT$ ENDIF 00083 M01S00077.comddcm +++| LDC BL01-4*YINC SET Y-COORDINATE 00084 M01S00078.comddcm +++| STD YC 00085 M01S00079.comddcm +++| LDN 0 CLEAR WORD INDEX 00086 M01S00080.comddcm +++| STD T5 00087 M01S00081.comddcm +++| DCM2 LCN YINC DECREMENT Y-COORDINATE 00088 M01S00082.comddcm +++| RAD YC 00089 M01S00083.comddcm +++| OAN CH+40 OUTPUT Y-COORDINATE 00090 M01S00084.comddcm +++| LDD XC OUTPUT X-COORDINATE 00091 M01S00085.comddcm +++| OAN CH+40 00092 M01S00086.comddcm +++| RLO$ IF -DEF,RLO$ 00093 M01S00087.comddcm +++| LDM 1,T7 FORM DISPLAY ADDRESS 00094 M01S00088.comddcm +++| RLO$ ELSE 00095 M01S00089.comddcm +++| LDM. 1,T7 FORM DISPLAY ADDRESS 00096 M01S00090.comddcm +++| RLO$ ENDIF 00097 M01S00091.comddcm +++| ADD T5 00098 M01S00092.comddcm +++| STD CM+1 00099 M01S00093.comddcm +++| SHN -14 00100 M01S00094.comddcm +++| ADI T7 00101 M01S00095.comddcm +++| STD CM 00102 M01S00096.comddcm +++| RJM D4D DISPLAY ADDRESS 00103 M01S00097.comddcm +++| LDD CM+1 00104 M01S00098.comddcm +++| RJM D4D 00105 M01S00099.comddcm +++| LDN CM SET POINTER TO ADDRESS 00106 M01S00100.comddcm +++| STD T2 00107 M01S00101.comddcm +++| RJM SMD SECURE MEMORY DISPLAY 00108 M01S00102.comddcm +++| ZJN DCM2.1 IF WORD MAY BE DISPLAYED 00109 M01S00103.comddcm +++| LDN DCMFL DISPLAY SECURITY BLANKET 00110 M01S00104.comddcm +++| OAM DCMF,CH 00111 M01S00105.comddcm +++| LJM DCM4.1 CONTINUE 00112 M01S00106.comddcm +++| 00113 M01S00107.comddcm +++| DCM2.1 LDM DCME+3 00114 M01S00108.comddcm +++| LPN 77 00115 M01S00109.comddcm +++| SHN 6 00116 M01S00110.comddcm +++| OMT$ IF -DEF,OMT$ 00117 M01S00111.comddcm +++| ADC * 00118 M01S00112.comddcm +++| DCMA EQU *-1 00119 M01S00113.comddcm +++| OMT$ ENDIF 00120 M01S00114.comddcm +++| RAD CM+1 00121 M01S00115.comddcm +++| SHN -14 00122 M01S00116.comddcm +++| RAD CM 00123 M01S00117.comddcm +++| LDM DCME+2 00124 M01S00118.comddcm +++| SHN 14 00125 M01S00119.comddcm +++| LMM DCME+3 00126 M01S00120.comddcm +++| SHN -6 00127 M01S00121.comddcm +++| RAD CM 00128 M01S00006.271l716 +++| CMEI IF DEF,CMEI 00129 M01S00007.271l716 +++| LDM CMEI 00130 M01S00008.271l716 +++| CMEI ELSE 00131 M01S00122.comddcm +++| LDC 0 GET CENTRAL MEMORY EXTENSION STATUS 00132 M01S00123.comddcm +++| DCMD EQU *-1 00133 M01S00009.271l716 +++| CMEI ENDIF 00134 M01S00124.comddcm +++| ZJN DCM3 IF NOT CENTRAL MEMORY EXTENSION 00135 M01S00125.comddcm +++| LDD CM SET *R* REGISTER TO UPPER 12 BITS 00136 M01S00126.comddcm +++| SHN 6 00137 M01S00127.comddcm +++| STD CM+4 00138 M01S00128.comddcm +++| SHN 6 00139 M01S00129.comddcm +++| STD CM+3 00140 M01S00130.comddcm +++| LRD CM+3 00141 M01S00131.comddcm +++| LDN 40 FORCE USE OF *R* REGISTER 00142 M01S00132.comddcm +++| UJN DCM4 READ CM WORD TO DISPLAY 00143 M01S00133.comddcm +++| 00144 M01S00134.comddcm +++| DCM3 LDD CM READ CM WORD TO DISPLAY 00145 M01S00135.comddcm +++| LPN 77 00146 M01S00136.comddcm +++| DCM4 SHN 14 00147 M01S00137.comddcm +++| LMD CM+1 00148 M01S00138.comddcm +++| CRD CM 00149 M01S00139.comddcm +++| RLO$ IF -DEF,RLO$ 00150 M01S00140.comddcm +++| RJM 0,T6 DISPLAY WORD 00151 M01S00141.comddcm +++| RLO$ ELSE 00152 M01S00142.comddcm +++| RJM. 0,T6 DISPLAY WORD 00153 M01S00143.comddcm +++| RLO$ ENDIF 00154 M01S00144.comddcm +++| DCM4.1 AOD T5 ADVANCE WORD INDEX 00155 M01S00145.comddcm +++| LPN 7 00156 M01S00146.comddcm +++| ZJN DCM6 IF EIGHT WORDS 00157 M01S00147.comddcm +++| DCM5 LJM DCM2 LOOP FOR 8 WORDS 00158 M01S00148.comddcm +++| 00159 M01S00149.comddcm +++| DCM6 STD T5 00160 M01S00150.comddcm +++| LCN YINC DECREMENT Y-COORDINATE 00161 M01S00151.comddcm +++| RAD YC 00162 M01S00152.comddcm +++| LDN 2 ADVANCE FIELD INDEX 00163 M01S00153.comddcm +++| RAD T7 00164 M01S00154.comddcm +++| LMC * 00165 M01S00155.comddcm +++| DCMB EQU *-1 00166 M01S00156.comddcm +++| NJN DCM5 IF NOT END OF 4 (OR 2) FIELDS 00167 M01S00157.comddcm +++| LRD T3 RESTORE R REGISTER 00168 M01S00158.comddcm +++| LJM DCMX RETURN 00169 M01S00159.comddcm +++| 00170 M01S00160.comddcm +++| 00171 M01S00161.comddcm +++| OMT$ IF -DEF,OMT$ 00172 M01S00162.comddcm +++| DCMC DATA 6000,7656 00173 M01S00163.comddcm +++| OMT$ ENDIF 00174 M01S00164.comddcm +++| 00175 M01S00165.comddcm +++| DCME VFD 60/0 *FLSW* 00176 M01S00166.comddcm +++| DCMF DATA C$ ********* SECURED AREA *********$ 00177 M01S00167.comddcm +++| DCMFL EQU *-DCMF 00178 M01S00168.comddcm +++| SMD SPACE 4,10 00179 M01S00169.comddcm +++|** SMD - SECURE MEMORY DISPLAY. 00180 M01S00170.comddcm +++|* 00181 M01S00171.comddcm +++|* *SMD* CHECKS WHETHER A WORD MAY BE DISPLAYED ON A SECURE 00182 M01S00172.comddcm +++|* SYSTEM. IF DSD$ IS DEFINED, THE WORD MUST BE WITHIN CMR 00183 M01S00173.comddcm +++|* TO BE DISPLAYED. OTHERWISE, IT MUST BE WITHIN THE CALLING 00184 M01S00174.comddcm +++|* JOBS FL OR NFL. 00185 M01S00175.comddcm +++|* 00186 M01S00176.comddcm +++|* ENTRY (T8) = SECURITY MODE. 00187 M01S00177.comddcm +++|* (T2) = POINTER TO ADDRESS TO CHECK (2 BYTES) 00188 M01S00178.comddcm +++|* 00189 M01S00179.comddcm +++|* EXIT (A) = 0 IF WORD AT ADDRESS WHICH MAY BE DISPLAYED. 00190 M01S00180.comddcm +++| 00191 M01S00181.comddcm +++| 00192 M01S00182.comddcm +++| SMD SUBR ENTRY/EXIT 00193 M01S00183.comddcm +++| LDD T8 CHECK SECURITY MODE 00194 M01S00184.comddcm +++| ZJN SMDX IF SYSTEM UNSECURED 00195 M01S00185.comddcm +++| DSD$ IF DEF,DSD$ 00196 M01S00186.comddcm +++| LDN CMRL GET CMR SIZE 00197 M01S00187.comddcm +++| DSD$ ELSE 00198 M01S00188.comddcm +++| LDD CP GET CONTROL POINT RA, FL, AND NFL 00199 M01S00189.comddcm +++| ADN FLSW 00200 M01S00190.comddcm +++| DSD$ ENDIF 00201 M01S00191.comddcm +++| CRM SMDA,ON 00202 M01S00192.comddcm +++| LDI T2 GET ADDRESS TO CHECK 00203 M01S00193.comddcm +++| LPN 77 00204 M01S00194.comddcm +++| SHN 14 00205 M01S00195.comddcm +++| RLO$ IF -DEF,RLO$ 00206 M01S00196.comddcm +++| LMM 1,T2 00207 M01S00197.comddcm +++| RLO$ ELSE 00208 M01S00198.comddcm +++| LMM. 1,T2 00209 M01S00199.comddcm +++| RLO$ ENDIF 00210 M01S00200.comddcm +++| DSD$ IF -DEF,DSD$ 00211 M01S00201.comddcm +++| MJN SMD2 IF ADDRESS POSSIBLY IN NFL 00212 M01S00202.comddcm +++| DSD$ ENDIF 00213 M01S00203.comddcm +++| SHN -6 00214 M01S00204.comddcm +++| SBM SMDA+4 CHECK ADDRESS 00215 M01S00205.comddcm +++| MJN SMD3 IF ADDRESS WITHIN PERMITTED AREA 00216 M01S00206.comddcm +++| LDN 1 SET REPLY 00217 M01S00207.comddcm +++| UJN SMDX RETURN 00218 M01S00208.comddcm +++| 00219 M01S00209.comddcm +++| DSD$ IF -DEF,DSD$ 00220 M01S00210.comddcm +++| SMD2 SHN -6 00221 M01S00211.comddcm +++| ADM SMDA 00222 M01S00212.comddcm +++| SHN 6 00223 M01S00213.comddcm +++| MJN SMDX IF ADDRESS NOT WITHIN NFL 00224 M01S00214.comddcm +++| DSD$ ENDIF 00225 M01S00215.comddcm +++| SMD3 LDN 0 SET REPLY 00226 M01S00216.comddcm +++| UJN SMDX RETURN 00227 M01S00217.comddcm +++| 00228 M01S00218.comddcm +++| SMDA VFD 60/0 *CMRL* OR *FLSW* 00229 M01S00219.comddcm +++| ENDX
cdc/nos2.source/opl.opl871/common/comddcm.txt · Last modified: by 127.0.0.1