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