Common COMDDIS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comddis +++|          CTEXT  COMDDIS - DISPLAY SUBROUTINES.
00002  M00S00002.comddis +++| COMDDIS  SPACE  4
00003  M00S00003.comddis +++|          QUAL   COMDDIS

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.

Line S00001 Modification History
`M01` (Added by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2459  +++|          LIST   F
00007  M00S00005.comddis +++| COMDDIS  SPACE  4
00008  M00S00006.comddis +++|***       COMDDIS - DISPLAY SUBROUTINES.
00009  M00S00007.comddis +++|*         G. R. MANSFIELD.  70/09/13.
00010  M00S00008.comddis +++| COMDDIS  SPACE  4
00011  M00S00009.comddis +++|***              COMDDIS CONTAINS SUBROUTINES USED BY DSD AND MAY BE
00012  M00S00010.comddis +++|*         USED BY ANY OTHER DISPLAY PROGRAM.

Line S00001 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00001.241l630 +++|*
00014  M01S00002.241l630 +++|*         IF TAG *N2Z$* IS DEFINED, SUBROUTINE *D2Z* WILL
00015  M01S00003.241l630 +++|*         NOT BE ASSEMBLED.
00016  M00S00011.comddis +++| COMDDIS  SPACE  4
00017  M00S00012.comddis +++|***       ASSUMED.
00018  M00S00013.comddis +++|*
00019  M00S00014.comddis +++|*
00020  M00S00015.comddis +++|*         PRESENCE OF COMMON DECK *COMPMAC*.
00021  M00S00016.comddis +++|*         BASE = MIXED.
00022  M00S00017.comddis +++|*         SST
00023  M00S00018.comddis +++|*         CH = DISPLAY CHANNEL.
00024  M00S00019.comddis +++|*         COORDINATES SELECTED.
00025  M00S00020.comddis +++|*         CHANNEL ACTIVE.
00026  M00S00021.comddis +++| DWD      SPACE  4
00027  M00S00022.comddis +++|***       DWD - DISPLAY WORD.
00028  M00S00023.comddis +++|*
00029  M00S00024.comddis +++|*         ENTRY  (CM - CM+4) = WORD.
00030  M00S00025.comddis +++|
00031  M00S00026.comddis +++|

Line S00002 Modification History
`M01` (Added by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00002.ns2459  +++| DWD1     LDD    CM
00033  M01S00003.ns2459  +++| DWD2     OAN    CH+40
00034  M01S00004.ns2459  +++|          LDD    CM+1
00035  M01S00005.ns2459  +++|          SBD    XC
00036  M01S00006.ns2459  +++|          MJN    DWD3        IF DISPLAYABLE DATA
00037  M01S00007.ns2459  +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00038  M01S00008.ns2459  +++|          UJN    DWD4        DISPLAY BYTE
00039  M01S00009.ns2459  +++|

Line S00001 Modification History
`M01` (Added by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00001.ns2698  +++| DWD9     LDD    CM+4
00041  M01S00002.ns2698  +++| DWD10    OAN    CH+40
00042  M01S00003.ns2698  +++|
00043  M00S00027.comddis +++| DWD      SUBR               ENTRY/EXIT
00044  M00S00028.comddis +++|          LDD    CM
00045  M00S00029.comddis +++|          SBD    XC
00046  M00S00030.comddis +++|          MJN    DWD1        IF DISPLAYABLE DATA
00047  M00S00031.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00048  M00S00032.comddis +++|          UJN    DWD2        DISPLAY BYTE

Line S00033 Modification History
`M01` (Removed by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00033.ns2459  ---|
00050  M01S00034.ns2459  ---| DWD1     LDD    CM
00051  M01S00035.ns2459  ---| DWD2     OAN    CH+40
00052  M01S00036.ns2459  ---|          LDD    CM+1
00053  M01S00037.ns2459  ---|          SBD    XC
00054  M01S00038.ns2459  ---|          MJN    DWD3        IF DISPLAYABLE DATA
00055  M01S00039.ns2459  ---|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00056  M01S00040.ns2459  ---|          UJN    DWD4        DISPLAY BYTE
00057  M00S00041.comddis +++|
00058  M00S00042.comddis +++| DWD3     LDD    CM+1
00059  M00S00043.comddis +++| DWD4     OAN    CH+40
00060  M00S00044.comddis +++|          LDD    CM+2
00061  M00S00045.comddis +++|          SBD    XC
00062  M00S00046.comddis +++|          MJN    DWD5        IF DISPLAYABLE DATA
00063  M00S00047.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00064  M00S00048.comddis +++|          UJN    DWD6        DISPLAY BYTE
00065  M00S00049.comddis +++|
00066  M00S00050.comddis +++| DWD5     LDD    CM+2
00067  M00S00051.comddis +++| DWD6     OAN    CH+40
00068  M00S00052.comddis +++|          LDD    CM+3
00069  M00S00053.comddis +++|          SBD    XC
00070  M00S00054.comddis +++|          MJN    DWD7        IF DISPLAYABLE DATA
00071  M00S00055.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00072  M00S00056.comddis +++|          UJN    DWD8        DISPLAY BYTE
00073  M00S00057.comddis +++|
00074  M00S00058.comddis +++| DWD7     LDD    CM+3
00075  M00S00059.comddis +++| DWD8     OAN    CH+40
00076  M00S00060.comddis +++|          LDD    CM+4
00077  M00S00061.comddis +++|          SBD    XC
00078  M00S00062.comddis +++|          MJN    DWD9        IF DISPLAYABLE DATA
00079  M00S00063.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00080  M00S00064.comddis +++|          UJN    DWD10       DISPLAY BYTE

Line S00065 Modification History
`M01` (Removed by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00065.ns2698  ---|
00082  M01S00066.ns2698  ---| DWD9     LDD    CM+4
00083  M01S00067.ns2698  ---| DWD10    OAN    CH+40

Line S00068 Modification History
`M01` (Removed by)	`ns2459`
`M02` (Removed by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00068.ns2698  ---|          LJM    DWDX        RETURN

Line S00010 Modification History
`M01` (Added by)	`ns2459`
`M02` (Removed by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00010.ns2698  ---|          UJN    DWDX        RETURN
00086  M00S00069.comddis +++| D2D      SPACE 4
00087  M00S00070.comddis +++|***       D2D - DISPLAY 2 DIGITS.
00088  M00S00071.comddis +++|*
00089  M00S00072.comddis +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00090  M00S00073.comddis +++|*
00091  M00S00074.comddis +++|*         USES   T0.
00092  M00S00075.comddis +++|
00093  M00S00076.comddis +++|
00094  M00S00077.comddis +++| D2D      SUBR               ENTRY/EXIT
00095  M00S00078.comddis +++|          LPN    77          UNPACK
00096  M00S00079.comddis +++|          STD    T0
00097  M00S00080.comddis +++|          SHN    3
00098  M00S00081.comddis +++|          LMD    T0
00099  M00S00082.comddis +++|          SCN    70
00100  M00S00083.comddis +++|          ADC    2R00
00101  M00S00084.comddis +++|          OAN    CH+40
00102  M00S00085.comddis +++|          UJN    D2DX        RETURN
00103  M00S00086.comddis +++| D2Z      SPACE  4

Line S00004 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00004.241l630 +++| .A       IF     -DEF,N2Z$
00105  M00S00087.comddis +++|***       D2Z - DISPLAY 2 DIGITS WITH 1ST 0 SUPPRESSED.
00106  M00S00088.comddis +++|*
00107  M00S00089.comddis +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00108  M00S00090.comddis +++|*                (D2ZA) = 2RN   WHERE N IS THE CHARACTER TO BE
00109  M00S00091.comddis +++|*                         DISPLAYED FOLLOWING THE DIGITS.
00110  M00S00092.comddis +++|*
00111  M00S00093.comddis +++|*         EXIT   (D2ZA) IS UNCHANGED.
00112  M00S00094.comddis +++|*
00113  M00S00095.comddis +++|*         USES   T0.
00114  M00S00096.comddis +++|*
00115  M00S00097.comddis +++|*         CALLS  D2S.
00116  M00S00098.comddis +++|
00117  M00S00099.comddis +++|
00118  M00S00100.comddis +++| D2Z1     RJM    D2S         DISPLAY 2 DIGITS
00119  M00S00101.comddis +++|
00120  M00S00102.comddis +++| D2Z      SUBR               ENTRY/EXIT
00121  M00S00103.comddis +++|          NJN    D2Z1        IF .NE. 0
00122  M00S00104.comddis +++|          LDN    1R0         DISPLAY 1 DIGIT
00123  M00S00105.comddis +++|          OAN    CH+40       DISPLAY DIGITS
00124  M00S00106.comddis +++|          LDC    2R.         DISPLAY *. *
00125  M00S00107.comddis +++| D2ZA     EQU    *-1
00126  M00S00108.comddis +++|          OAN    CH+40
00127  M00S00109.comddis +++|          UJN    D2ZX        RETURN

Line S00005 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00128  M01S00005.241l630 +++| .A       ENDIF
00129  M00S00110.comddis +++| D4D      SPACE 4
00130  M00S00111.comddis +++|***       D4D - DISPLAY 4 DIGITS.
00131  M00S00112.comddis +++|*
00132  M00S00113.comddis +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00133  M00S00114.comddis +++|*
00134  M00S00115.comddis +++|*         USES   T0, T1.
00135  M00S00116.comddis +++|
00136  M00S00117.comddis +++|
00137  M00S00118.comddis +++| D4D      SUBR               ENTRY/EXIT
00138  M00S00119.comddis +++|          SHN    14          UNPACK DIGITS
00139  M00S00120.comddis +++|          STD    T0
00140  M00S00121.comddis +++|          SHN    -14
00141  M00S00122.comddis +++|          STD    T1
00142  M00S00123.comddis +++|          LDD    T0          DISPLAY 2 DIGITS
00143  M00S00124.comddis +++|          LPN    77
00144  M00S00125.comddis +++|          STD    T0
00145  M00S00126.comddis +++|          SHN    3
00146  M00S00127.comddis +++|          LMD    T0
00147  M00S00128.comddis +++|          SCN    70
00148  M00S00129.comddis +++|          ADC    2R00
00149  M00S00130.comddis +++|          OAN    CH+40
00150  M00S00131.comddis +++|          LDD    T1          DISPLAY 2 DIGITS
00151  M00S00132.comddis +++|          SHN    3
00152  M00S00133.comddis +++|          LMD    T1
00153  M00S00134.comddis +++|          SCN    70
00154  M00S00135.comddis +++|          ADC    2R00
00155  M00S00136.comddis +++|          OAN    CH+40
00156  M00S00137.comddis +++|          UJN    D4DX        RETURN
00157  M00S00138.comddis +++| D4S      SPACE  4
00158  M00S00139.comddis +++|***       D4S - DISPLAY 4 DIGITS WITH LEADING ZERO SUPPRESSION.
00159  M00S00140.comddis +++|*
00160  M00S00141.comddis +++|*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
00161  M00S00142.comddis +++|*                (D4SA) = 0 IF TO DISABLE OUTPUT OF FINAL *. *.
00162  M00S00143.comddis +++|*
00163  M00S00144.comddis +++|*         EXIT   (D4SA) = SAME AS ON ENTRY.
00164  M00S00145.comddis +++|*
00165  M00S00146.comddis +++|*         USES   T1.
00166  M00S00147.comddis +++|
00167  M00S00148.comddis +++|
00168  M00S00149.comddis +++| D4S      SUBR               ENTRY/EXIT
00169  M00S00150.comddis +++|          STD    T1          SAVE DIGITS
00170  M00S00151.comddis +++|          SHN    -6
00171  M00S00152.comddis +++|          ZJN    D4S2        IF FIRST TWO DIGITS ARE ZERO
00172  M00S00153.comddis +++|          SHN    -3
00173  M00S00154.comddis +++|          ZJN    D4S1        IF FIRST DIGIT IS ZERO
00174  M00S00155.comddis +++|          LPN    7
00175  M00S00156.comddis +++|          ADN    1R0
00176  M00S00157.comddis +++|          SHN    14
00177  M00S00158.comddis +++| D4S1     ADD    T1
00178  M00S00159.comddis +++|          SHN    -6
00179  M00S00160.comddis +++|          SCN    70
00180  M00S00161.comddis +++|          ADN    1R0
00181  M00S00162.comddis +++| D4S2     OAN    CH+40
00182  M00S00163.comddis +++|          LDD    T1          DIGITS 0, 1
00183  M00S00164.comddis +++|          ZJN    D4S4        IF ALL FOUR DIGITS ARE ZERO
00184  M00S00165.comddis +++|          SHN    -3
00185  M00S00166.comddis +++|          ZJN    D4S3        IF FIRST THREE DIGITS ARE ZERO
00186  M00S00167.comddis +++|          LPN    7
00187  M00S00168.comddis +++|          ADN    1R0
00188  M00S00169.comddis +++|          SHN    6
00189  M00S00170.comddis +++| D4S3     LMD    T1
00190  M00S00171.comddis +++|          SCN    7
00191  M00S00172.comddis +++|          LMD    T1
00192  M00S00173.comddis +++| D4S4     ADN    1R0
00193  M00S00174.comddis +++|          OAN    CH+40
00194  M00S00175.comddis +++|          LDC    2R.         DISPLAY *.*

Line S00001 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00001.v23l617 +++| D4SB     EQU    *-1         REPLACE *. *
00196  M00S00176.comddis +++| D4SA     OAN    CH+40
00197  M00S00177.comddis +++|*         PSN                (TO DISABLE *. *)
00198  M00S00178.comddis +++|          UJN    D4SX        RETURN
00199  M00S00179.comddis +++| D5F      SPACE  4
00200  M00S00180.comddis +++|***       D5F - DISPLAY 5 GROUPS OF 4 DIGITS.
00201  M00S00181.comddis +++|*
00202  M00S00182.comddis +++|*         ENTRY  (CM - CM+4) = CONTENTS OF CM WORD.
00203  M00S00183.comddis +++|*
00204  M00S00184.comddis +++|*         CALLS  D4D, DWD.
00205  M00S00185.comddis +++|
00206  M00S00186.comddis +++|
00207  M00S00187.comddis +++| D5F      SUBR               ENTRY/EXIT
00208  M00S00188.comddis +++|          LDC    6120        OUTPUT X-COORDINATE
00209  M00S00189.comddis +++|          OAN    CH+40
00210  M00S00190.comddis +++|          LDD    CM          DISPLAY BYTE 0
00211  M00S00191.comddis +++|          RJM    D4D
00212  M00S00192.comddis +++|          LDC    6170        OUTPUT X-COORDINATE
00213  M00S00193.comddis +++|          OAN    CH+40
00214  M00S00194.comddis +++|          LDD    CM+1        DISPLAY BYTE 1
00215  M00S00195.comddis +++|          RJM    D4D
00216  M00S00196.comddis +++|          LDC    6240        OUTPUT X-COORDINATE
00217  M00S00197.comddis +++|          OAN    CH+40
00218  M00S00198.comddis +++|          LDD    CM+2        DISPLAY BYTE 2
00219  M00S00199.comddis +++|          RJM    D4D
00220  M00S00200.comddis +++|          LDC    6310        OUTPUT X-COORDINATE
00221  M00S00201.comddis +++|          OAN    CH+40
00222  M00S00202.comddis +++|          LDD    CM+3        DISPLAY BYTE 3
00223  M00S00203.comddis +++|          RJM    D4D
00224  M00S00204.comddis +++|          LDC    6360        OUTPUT X-COORDINATE
00225  M00S00205.comddis +++|          OAN    CH+40
00226  M00S00206.comddis +++|          LDD    CM+4        DISPLAY BYTE 4
00227  M00S00207.comddis +++|          RJM    D4D
00228  M00S00208.comddis +++|          LDN    0           OUTPUT ZERO BYTE
00229  M00S00209.comddis +++|          OAN    CH+40
00230  M00S00210.comddis +++|          RJM    DWD         DISPLAY WORD
00231  M00S00211.comddis +++|          LJM    D5FX        RETURN
00232  M00S00212.comddis +++|          SPACE  4
00233  M00S00213.comddis +++|          QUAL   *
00234  M00S00214.comddis +++| DWD      EQU    /COMDDIS/DWD
00235  M00S00215.comddis +++| D2D      EQU    /COMDDIS/D2D

Line S00006 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00236  M01S00006.241l630 +++| .B       IF     -DEF,N2Z$
00237  M00S00216.comddis +++| D2Z      EQU    /COMDDIS/D2Z

Line S00002 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00238  M01S00002.v23l617 +++| D2ZA     EQU    /COMDDIS/D2ZA

Line S00007 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00239  M01S00007.241l630 +++| .B       ENDIF
00240  M00S00217.comddis +++| D4D      EQU    /COMDDIS/D4D
00241  M00S00218.comddis +++| D4S      EQU    /COMDDIS/D4S
00242  M00S00219.comddis +++| D4SA     EQU    /COMDDIS/D4SA

Line S00003 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00003.v23l617 +++| D4SB     EQU    /COMDDIS/D4SB
00244  M00S00220.comddis +++| D5F      EQU    /COMDDIS/D5F

Line S00011 Modification History
`M01` (Added by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00011.ns2459  +++|          LIST   *
00246  M00S00221.comddis +++|          ENDX