Common COMDDCM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comddcm +++|          CTEXT  COMDDCM - DISPLAY CENTRAL MEMORY.
00002  M00S00002.comddcm +++| COMDDCM  SPACE  4,10

Line S00003 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1981.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comddcm +++| COMDDCM  SPACE  4,10
00006  M00S00005.comddcm +++|***       COMDDCM - DISPLAY CENTRAL MEMORY.
00007  M00S00006.comddcm +++|*
00008  M00S00007.comddcm +++|*         D. H. GAMBREL.     81/10/30.
00009  M00S00008.comddcm +++| COMDDCM  SPACE  4,10
00010  M00S00009.comddcm +++|***       *COMDDCM* DISPLAYS CENTRAL MEMORY USING A CALLER-
00011  M00S00010.comddcm +++|*         SPECIFIED ROUTINE.
00012  M00S00011.comddcm +++| DCM      SPACE  4,15
00013  M00S00012.comddcm +++|***       DCM - DISPLAY CENTRAL MEMORY.
00014  M00S00013.comddcm +++|*
00015  M00S00014.comddcm +++|*         ENTRY  (A) = ADDRESS OF FIELD TABLE.
00016  M00S00015.comddcm +++|*                (CH) = DISPLAY CHANNEL.
00017  M00S00016.comddcm +++|*                (CP) = CONTROL POINT ADDRESS.
00018  M00S00017.comddcm +++|*                (T8) = SECURITY MODE.

Line S00018 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00018.271l716 ---|*                (T5) = 0, IF CENTRAL MEMORY EXTENSION NOT PRESENT.
00020  M01S00019.271l716 ---|*                     .NE. 0, IF CENTRAL MEMORY EXTENSION PRESENT.
00021  M00S00020.comddcm +++|*                (T6) = ADDRESS OF WORD FORMAT DISPLAY ROUTINE.

Line S00001 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00021.comddcm +++|*                *DCTY* DEFINED = USE *DCTY* TO DETERMINE THE NUMBER
00027  M00S00022.comddcm +++|*                     OF GROUPS OF EIGHT WORDS TO BE DISPLAYED (2 FOR
00028  M00S00023.comddcm +++|*                     *CDC721* OR 4 FOR *CC545*).
00029  M00S00024.comddcm +++|*                *DFIM* DEFINED .AND. *RLO$* NOT DEFINED = USE *DFIM*
00030  M00S00025.comddcm +++|*                     TO CHANGE THE NUMBER OF GROUPS OF EIGHT WORDS
00031  M00S00026.comddcm +++|*                     FROM 4 TO 2 WHEN *CDC721* IS BEING USED.
00032  M00S00027.comddcm +++|*                *OMT$* DEFINED = MANAGED TABLE LOGIC WILL BE OMITTED.
00033  M00S00028.comddcm +++|*                *RLO$* DEFINED = *COMDDCM* IS TO RESIDE IN AN OVERLAY.
00034  M00S00029.comddcm +++|*

Line S00030 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00030.271l716 ---|*         USES   R, T3, T4, T5, T6, T7, YC, CM - CM+4.

Line S00005 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00005.271l716 +++|*         USES   T3, T4, T5, T6, T7, YC, CM - CM+4.
00037  M00S00031.comddcm +++|*
00038  M00S00032.comddcm +++|*         XREF   COMPMAC, COMDDIS.
00039  M00S00033.comddcm +++|
00040  M00S00034.comddcm +++|
00041  M00S00035.comddcm +++| DCM      SUBR               ENTRY/EXIT
00042  M00S00036.comddcm +++|          SRD    T3          SAVE R REGISTER
00043  M00S00037.comddcm +++|          STD    T7          SET FIELD LOCATION
00044  M00S00038.comddcm +++|          ADN    10          SET FIELD LIMIT
00045  M00S00039.comddcm +++| .A       IF     MAC,DFIM
00046  M00S00040.comddcm +++| .A       IF     -DEF,RLO$
00047  M00S00041.comddcm +++|          DFIM   (ADN 4),*-1
00048  M00S00042.comddcm +++| .A       ELSE
00049  M00S00043.comddcm +++| .B       IF     DEF,//DCTY
00050  M00S00044.comddcm +++|          SHN    -2+22       DECREMENT ENDING ADDRESS BY 4 IF *CDC721*
00051  M00S00045.comddcm +++|          SBM    DCTY
00052  M00S00046.comddcm +++|          SHN    2
00053  M00S00047.comddcm +++|          ERRNZ  C545        CODE DEPENDS ON VALUE
00054  M00S00048.comddcm +++|          ERRNZ  C721-1      CODE DEPENDS ON VALUE
00055  M00S00049.comddcm +++| .B       ENDIF
00056  M00S00050.comddcm +++| .A       ENDIF
00057  M00S00051.comddcm +++|          STM    DCMB

Line S00052 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00052.271l716 ---|          LDD    T5          SET CENTRAL MEMORY EXTENSION STATUS
00059  M01S00053.271l716 ---|          STM    DCMD
00060  M00S00054.comddcm +++|          LDD    CP          GET RA
00061  M00S00055.comddcm +++|          ADN    FLSW
00062  M00S00056.comddcm +++|          CRM    DCME,ON
00063  M00S00057.comddcm +++| OMT$     IF     -DEF,OMT$
00064  M00S00058.comddcm +++|          LDN    2           OUTPUT COORDINATES
00065  M00S00059.comddcm +++|          OAM    DCMC,CH
00066  M00S00060.comddcm +++|          LDD    RA          SET MANAGED TABLE BIAS
00067  M00S00061.comddcm +++|          SHN    6
00068  M00S00062.comddcm +++|          ADM    -1,T7
00069  M00S00063.comddcm +++|          CRD    CM
00070  M00S00064.comddcm +++|          LDM    -1,T7
00071  M00S00065.comddcm +++|          ZJN    DCM1        IF NO TABLE BIAS
00072  M00S00066.comddcm +++|          RJM    D4S         DISPLAY TABLE ADDRESS
00073  M00S00067.comddcm +++|          RJM    D5F         DISPLAY 5 GROUPS
00074  M00S00068.comddcm +++|          LDD    CM+3
00075  M00S00069.comddcm +++|          LPN    77
00076  M00S00070.comddcm +++|          SHN    14
00077  M00S00071.comddcm +++|          ADD    CM+4
00078  M00S00072.comddcm +++| DCM1     STM    DCMA        SET TABLE ADDRESS
00079  M00S00073.comddcm +++|          SHN    -14
00080  M00S00074.comddcm +++|          LMC    ADCI
00081  M00S00075.comddcm +++|          STM    DCMA-1
00082  M00S00076.comddcm +++| OMT$     ENDIF
00083  M00S00077.comddcm +++|          LDC    BL01-4*YINC SET Y-COORDINATE
00084  M00S00078.comddcm +++|          STD    YC
00085  M00S00079.comddcm +++|          LDN    0           CLEAR WORD INDEX
00086  M00S00080.comddcm +++|          STD    T5
00087  M00S00081.comddcm +++| DCM2     LCN    YINC        DECREMENT Y-COORDINATE
00088  M00S00082.comddcm +++|          RAD    YC
00089  M00S00083.comddcm +++|          OAN    CH+40       OUTPUT Y-COORDINATE
00090  M00S00084.comddcm +++|          LDD    XC          OUTPUT X-COORDINATE
00091  M00S00085.comddcm +++|          OAN    CH+40
00092  M00S00086.comddcm +++| RLO$     IF     -DEF,RLO$
00093  M00S00087.comddcm +++|          LDM    1,T7        FORM DISPLAY ADDRESS
00094  M00S00088.comddcm +++| RLO$     ELSE
00095  M00S00089.comddcm +++|          LDM.   1,T7        FORM DISPLAY ADDRESS
00096  M00S00090.comddcm +++| RLO$     ENDIF
00097  M00S00091.comddcm +++|          ADD    T5
00098  M00S00092.comddcm +++|          STD    CM+1
00099  M00S00093.comddcm +++|          SHN    -14
00100  M00S00094.comddcm +++|          ADI    T7
00101  M00S00095.comddcm +++|          STD    CM
00102  M00S00096.comddcm +++|          RJM    D4D         DISPLAY ADDRESS
00103  M00S00097.comddcm +++|          LDD    CM+1
00104  M00S00098.comddcm +++|          RJM    D4D
00105  M00S00099.comddcm +++|          LDN    CM          SET POINTER TO ADDRESS
00106  M00S00100.comddcm +++|          STD    T2
00107  M00S00101.comddcm +++|          RJM    SMD         SECURE MEMORY DISPLAY
00108  M00S00102.comddcm +++|          ZJN    DCM2.1      IF WORD MAY BE DISPLAYED
00109  M00S00103.comddcm +++|          LDN    DCMFL       DISPLAY SECURITY BLANKET
00110  M00S00104.comddcm +++|          OAM    DCMF,CH
00111  M00S00105.comddcm +++|          LJM    DCM4.1      CONTINUE
00112  M00S00106.comddcm +++|
00113  M00S00107.comddcm +++| DCM2.1   LDM    DCME+3
00114  M00S00108.comddcm +++|          LPN    77
00115  M00S00109.comddcm +++|          SHN    6
00116  M00S00110.comddcm +++| OMT$     IF     -DEF,OMT$
00117  M00S00111.comddcm +++|          ADC    *
00118  M00S00112.comddcm +++| DCMA     EQU    *-1
00119  M00S00113.comddcm +++| OMT$     ENDIF
00120  M00S00114.comddcm +++|          RAD    CM+1
00121  M00S00115.comddcm +++|          SHN    -14
00122  M00S00116.comddcm +++|          RAD    CM
00123  M00S00117.comddcm +++|          LDM    DCME+2
00124  M00S00118.comddcm +++|          SHN    14
00125  M00S00119.comddcm +++|          LMM    DCME+3
00126  M00S00120.comddcm +++|          SHN    -6
00127  M00S00121.comddcm +++|          RAD    CM

Line S00006 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00128  M01S00006.271l716 +++| CMEI     IF     DEF,CMEI
00129  M01S00007.271l716 +++|          LDM    CMEI
00130  M01S00008.271l716 +++| CMEI     ELSE
00131  M00S00122.comddcm +++|          LDC    0           GET CENTRAL MEMORY EXTENSION STATUS
00132  M00S00123.comddcm +++| DCMD     EQU    *-1

Line S00009 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00009.271l716 +++| CMEI     ENDIF
00134  M00S00124.comddcm +++|          ZJN    DCM3        IF NOT CENTRAL MEMORY EXTENSION
00135  M00S00125.comddcm +++|          LDD    CM          SET *R* REGISTER TO UPPER 12 BITS
00136  M00S00126.comddcm +++|          SHN    6
00137  M00S00127.comddcm +++|          STD    CM+4
00138  M00S00128.comddcm +++|          SHN    6
00139  M00S00129.comddcm +++|          STD    CM+3
00140  M00S00130.comddcm +++|          LRD    CM+3
00141  M00S00131.comddcm +++|          LDN    40          FORCE USE OF *R* REGISTER
00142  M00S00132.comddcm +++|          UJN    DCM4        READ CM WORD TO DISPLAY
00143  M00S00133.comddcm +++|
00144  M00S00134.comddcm +++| DCM3     LDD    CM          READ CM WORD TO DISPLAY
00145  M00S00135.comddcm +++|          LPN    77
00146  M00S00136.comddcm +++| DCM4     SHN    14
00147  M00S00137.comddcm +++|          LMD    CM+1
00148  M00S00138.comddcm +++|          CRD    CM
00149  M00S00139.comddcm +++| RLO$     IF     -DEF,RLO$
00150  M00S00140.comddcm +++|          RJM    0,T6        DISPLAY WORD
00151  M00S00141.comddcm +++| RLO$     ELSE
00152  M00S00142.comddcm +++|          RJM.   0,T6        DISPLAY WORD
00153  M00S00143.comddcm +++| RLO$     ENDIF
00154  M00S00144.comddcm +++| DCM4.1   AOD    T5          ADVANCE WORD INDEX
00155  M00S00145.comddcm +++|          LPN    7
00156  M00S00146.comddcm +++|          ZJN    DCM6        IF EIGHT WORDS
00157  M00S00147.comddcm +++| DCM5     LJM    DCM2        LOOP FOR 8 WORDS
00158  M00S00148.comddcm +++|
00159  M00S00149.comddcm +++| DCM6     STD    T5
00160  M00S00150.comddcm +++|          LCN    YINC        DECREMENT Y-COORDINATE
00161  M00S00151.comddcm +++|          RAD    YC
00162  M00S00152.comddcm +++|          LDN    2           ADVANCE FIELD INDEX
00163  M00S00153.comddcm +++|          RAD    T7
00164  M00S00154.comddcm +++|          LMC    *
00165  M00S00155.comddcm +++| DCMB     EQU    *-1
00166  M00S00156.comddcm +++|          NJN    DCM5        IF NOT END OF 4 (OR 2) FIELDS
00167  M00S00157.comddcm +++|          LRD    T3          RESTORE R REGISTER
00168  M00S00158.comddcm +++|          LJM    DCMX        RETURN
00169  M00S00159.comddcm +++|
00170  M00S00160.comddcm +++|
00171  M00S00161.comddcm +++| OMT$     IF     -DEF,OMT$
00172  M00S00162.comddcm +++| DCMC     DATA   6000,7656
00173  M00S00163.comddcm +++| OMT$     ENDIF
00174  M00S00164.comddcm +++|
00175  M00S00165.comddcm +++| DCME     VFD    60/0        *FLSW*
00176  M00S00166.comddcm +++| DCMF     DATA   C$  *********  SECURED AREA  *********$
00177  M00S00167.comddcm +++| DCMFL    EQU    *-DCMF
00178  M00S00168.comddcm +++| SMD      SPACE  4,10
00179  M00S00169.comddcm +++|**        SMD - SECURE MEMORY DISPLAY.
00180  M00S00170.comddcm +++|*
00181  M00S00171.comddcm +++|*         *SMD* CHECKS WHETHER A WORD MAY BE DISPLAYED ON A SECURE
00182  M00S00172.comddcm +++|*         SYSTEM.  IF DSD$ IS DEFINED, THE WORD MUST BE WITHIN CMR
00183  M00S00173.comddcm +++|*         TO BE DISPLAYED.  OTHERWISE, IT MUST BE WITHIN THE CALLING
00184  M00S00174.comddcm +++|*         JOBS FL OR NFL.
00185  M00S00175.comddcm +++|*
00186  M00S00176.comddcm +++|*         ENTRY  (T8) = SECURITY MODE.
00187  M00S00177.comddcm +++|*                (T2) = POINTER TO ADDRESS TO CHECK (2 BYTES)
00188  M00S00178.comddcm +++|*
00189  M00S00179.comddcm +++|*         EXIT   (A) = 0 IF WORD AT ADDRESS WHICH MAY BE DISPLAYED.
00190  M00S00180.comddcm +++|
00191  M00S00181.comddcm +++|
00192  M00S00182.comddcm +++| SMD      SUBR               ENTRY/EXIT
00193  M00S00183.comddcm +++|          LDD    T8          CHECK SECURITY MODE
00194  M00S00184.comddcm +++|          ZJN    SMDX        IF SYSTEM UNSECURED
00195  M00S00185.comddcm +++| DSD$     IF     DEF,DSD$
00196  M00S00186.comddcm +++|          LDN    CMRL        GET CMR SIZE
00197  M00S00187.comddcm +++| DSD$     ELSE
00198  M00S00188.comddcm +++|          LDD    CP          GET CONTROL POINT RA, FL, AND  NFL
00199  M00S00189.comddcm +++|          ADN    FLSW
00200  M00S00190.comddcm +++| DSD$     ENDIF
00201  M00S00191.comddcm +++|          CRM    SMDA,ON
00202  M00S00192.comddcm +++|          LDI    T2          GET ADDRESS TO CHECK
00203  M00S00193.comddcm +++|          LPN    77
00204  M00S00194.comddcm +++|          SHN    14
00205  M00S00195.comddcm +++| RLO$     IF     -DEF,RLO$
00206  M00S00196.comddcm +++|          LMM    1,T2
00207  M00S00197.comddcm +++| RLO$     ELSE
00208  M00S00198.comddcm +++|          LMM.   1,T2
00209  M00S00199.comddcm +++| RLO$     ENDIF
00210  M00S00200.comddcm +++| DSD$     IF     -DEF,DSD$
00211  M00S00201.comddcm +++|          MJN    SMD2        IF ADDRESS POSSIBLY IN NFL
00212  M00S00202.comddcm +++| DSD$     ENDIF
00213  M00S00203.comddcm +++|          SHN    -6
00214  M00S00204.comddcm +++|          SBM    SMDA+4      CHECK ADDRESS
00215  M00S00205.comddcm +++|          MJN    SMD3        IF ADDRESS WITHIN PERMITTED AREA
00216  M00S00206.comddcm +++|          LDN    1           SET REPLY
00217  M00S00207.comddcm +++|          UJN    SMDX        RETURN
00218  M00S00208.comddcm +++|
00219  M00S00209.comddcm +++| DSD$     IF     -DEF,DSD$
00220  M00S00210.comddcm +++| SMD2     SHN    -6
00221  M00S00211.comddcm +++|          ADM    SMDA
00222  M00S00212.comddcm +++|          SHN    6
00223  M00S00213.comddcm +++|          MJN    SMDX        IF ADDRESS NOT WITHIN NFL
00224  M00S00214.comddcm +++| DSD$     ENDIF
00225  M00S00215.comddcm +++| SMD3     LDN    0           SET REPLY
00226  M00S00216.comddcm +++|          UJN    SMDX        RETURN
00227  M00S00217.comddcm +++|
00228  M00S00218.comddcm +++| SMDA     VFD    60/0        *CMRL* OR *FLSW*
00229  M00S00219.comddcm +++|          ENDX