Common COMDDIS

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comddis +++|          CTEXT  COMDDIS - DISPLAY SUBROUTINES.
00002  M01S00002.comddis +++| COMDDIS  SPACE  4
00003  M01S00003.comddis +++|          QUAL   COMDDIS

Line S00004 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00001.ns2459  +++|          LIST   F
00007  M01S00005.comddis +++| COMDDIS  SPACE  4
00008  M01S00006.comddis +++|***       COMDDIS - DISPLAY SUBROUTINES.
00009  M01S00007.comddis +++|*         G. R. MANSFIELD.  70/09/13.
00010  M01S00008.comddis +++| COMDDIS  SPACE  4
00011  M01S00009.comddis +++|***              COMDDIS CONTAINS SUBROUTINES USED BY DSD AND MAY BE
00012  M01S00010.comddis +++|*         USED BY ANY OTHER DISPLAY PROGRAM.
00013  M01S00001.241l630 +++|*
00014  M01S00002.241l630 +++|*         IF TAG *N2Z$* IS DEFINED, SUBROUTINE *D2Z* WILL
00015  M01S00003.241l630 +++|*         NOT BE ASSEMBLED.
00016  M01S00011.comddis +++| COMDDIS  SPACE  4
00017  M01S00012.comddis +++|***       ASSUMED.
00018  M01S00013.comddis +++|*
00019  M01S00014.comddis +++|*
00020  M01S00015.comddis +++|*         PRESENCE OF COMMON DECK *COMPMAC*.
00021  M01S00016.comddis +++|*         BASE = MIXED.
00022  M01S00017.comddis +++|*         SST
00023  M01S00018.comddis +++|*         CH = DISPLAY CHANNEL.
00024  M01S00019.comddis +++|*         COORDINATES SELECTED.
00025  M01S00020.comddis +++|*         CHANNEL ACTIVE.
00026  M01S00021.comddis +++| DWD      SPACE  4
00027  M01S00022.comddis +++|***       DWD - DISPLAY WORD.
00028  M01S00023.comddis +++|*
00029  M01S00024.comddis +++|*         ENTRY  (CM - CM+4) = WORD.
00030  M01S00025.comddis +++|
00031  M01S00026.comddis +++|
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  +++|
00040  M01S00001.ns2698  +++| DWD9     LDD    CM+4
00041  M01S00002.ns2698  +++| DWD10    OAN    CH+40
00042  M01S00003.ns2698  +++|
00043  M01S00027.comddis +++| DWD      SUBR               ENTRY/EXIT
00044  M01S00028.comddis +++|          LDD    CM
00045  M01S00029.comddis +++|          SBD    XC
00046  M01S00030.comddis +++|          MJN    DWD1        IF DISPLAYABLE DATA
00047  M01S00031.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00048  M01S00032.comddis +++|          UJN    DWD2        DISPLAY BYTE

Line S00033 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00033.ns2459  ---|

Line S00034 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00034.ns2459  ---| DWD1     LDD    CM

Line S00035 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00035.ns2459  ---| DWD2     OAN    CH+40

Line S00036 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00036.ns2459  ---|          LDD    CM+1

Line S00037 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00037.ns2459  ---|          SBD    XC

Line S00038 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00038.ns2459  ---|          MJN    DWD3        IF DISPLAYABLE DATA

Line S00039 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00039.ns2459  ---|          LPN    77          DISPLAY LOWER 6 BITS ONLY

Line S00040 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`

Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00040.ns2459  ---|          UJN    DWD4        DISPLAY BYTE
00057  M01S00041.comddis +++|
00058  M01S00042.comddis +++| DWD3     LDD    CM+1
00059  M01S00043.comddis +++| DWD4     OAN    CH+40
00060  M01S00044.comddis +++|          LDD    CM+2
00061  M01S00045.comddis +++|          SBD    XC
00062  M01S00046.comddis +++|          MJN    DWD5        IF DISPLAYABLE DATA
00063  M01S00047.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00064  M01S00048.comddis +++|          UJN    DWD6        DISPLAY BYTE
00065  M01S00049.comddis +++|
00066  M01S00050.comddis +++| DWD5     LDD    CM+2
00067  M01S00051.comddis +++| DWD6     OAN    CH+40
00068  M01S00052.comddis +++|          LDD    CM+3
00069  M01S00053.comddis +++|          SBD    XC
00070  M01S00054.comddis +++|          MJN    DWD7        IF DISPLAYABLE DATA
00071  M01S00055.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00072  M01S00056.comddis +++|          UJN    DWD8        DISPLAY BYTE
00073  M01S00057.comddis +++|
00074  M01S00058.comddis +++| DWD7     LDD    CM+3
00075  M01S00059.comddis +++| DWD8     OAN    CH+40
00076  M01S00060.comddis +++|          LDD    CM+4
00077  M01S00061.comddis +++|          SBD    XC
00078  M01S00062.comddis +++|          MJN    DWD9        IF DISPLAYABLE DATA
00079  M01S00063.comddis +++|          LPN    77          DISPLAY LOWER 6 BITS ONLY
00080  M01S00064.comddis +++|          UJN    DWD10       DISPLAY BYTE

Line S00065 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00065.ns2698  ---|

Line S00066 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00066.ns2698  ---| DWD9     LDD    CM+4

Line S00067 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2698`

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00067.ns2698  ---| DWD10    OAN    CH+40

Line S00068 Modification History
`M01` (Added by)	`comddis`
`M02` (Updated by)	`ns2459`
`M03` (Updated by)	`ns2698`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00010.ns2698  ---|          UJN    DWDX        RETURN
00086  M01S00069.comddis +++| D2D      SPACE 4
00087  M01S00070.comddis +++|***       D2D - DISPLAY 2 DIGITS.
00088  M01S00071.comddis +++|*
00089  M01S00072.comddis +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00090  M01S00073.comddis +++|*
00091  M01S00074.comddis +++|*         USES   T0.
00092  M01S00075.comddis +++|
00093  M01S00076.comddis +++|
00094  M01S00077.comddis +++| D2D      SUBR               ENTRY/EXIT
00095  M01S00078.comddis +++|          LPN    77          UNPACK
00096  M01S00079.comddis +++|          STD    T0
00097  M01S00080.comddis +++|          SHN    3
00098  M01S00081.comddis +++|          LMD    T0
00099  M01S00082.comddis +++|          SCN    70
00100  M01S00083.comddis +++|          ADC    2R00
00101  M01S00084.comddis +++|          OAN    CH+40
00102  M01S00085.comddis +++|          UJN    D2DX        RETURN
00103  M01S00086.comddis +++| D2Z      SPACE  4
00104  M01S00004.241l630 +++| .A       IF     -DEF,N2Z$
00105  M01S00087.comddis +++|***       D2Z - DISPLAY 2 DIGITS WITH 1ST 0 SUPPRESSED.
00106  M01S00088.comddis +++|*
00107  M01S00089.comddis +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00108  M01S00090.comddis +++|*                (D2ZA) = 2RN   WHERE N IS THE CHARACTER TO BE
00109  M01S00091.comddis +++|*                         DISPLAYED FOLLOWING THE DIGITS.
00110  M01S00092.comddis +++|*
00111  M01S00093.comddis +++|*         EXIT   (D2ZA) IS UNCHANGED.
00112  M01S00094.comddis +++|*
00113  M01S00095.comddis +++|*         USES   T0.
00114  M01S00096.comddis +++|*
00115  M01S00097.comddis +++|*         CALLS  D2S.
00116  M01S00098.comddis +++|
00117  M01S00099.comddis +++|
00118  M01S00100.comddis +++| D2Z1     RJM    D2S         DISPLAY 2 DIGITS
00119  M01S00101.comddis +++|
00120  M01S00102.comddis +++| D2Z      SUBR               ENTRY/EXIT
00121  M01S00103.comddis +++|          NJN    D2Z1        IF .NE. 0
00122  M01S00104.comddis +++|          LDN    1R0         DISPLAY 1 DIGIT
00123  M01S00105.comddis +++|          OAN    CH+40       DISPLAY DIGITS
00124  M01S00106.comddis +++|          LDC    2R.         DISPLAY *. *
00125  M01S00107.comddis +++| D2ZA     EQU    *-1
00126  M01S00108.comddis +++|          OAN    CH+40
00127  M01S00109.comddis +++|          UJN    D2ZX        RETURN
00128  M01S00005.241l630 +++| .A       ENDIF
00129  M01S00110.comddis +++| D4D      SPACE 4
00130  M01S00111.comddis +++|***       D4D - DISPLAY 4 DIGITS.
00131  M01S00112.comddis +++|*
00132  M01S00113.comddis +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00133  M01S00114.comddis +++|*
00134  M01S00115.comddis +++|*         USES   T0, T1.
00135  M01S00116.comddis +++|
00136  M01S00117.comddis +++|
00137  M01S00118.comddis +++| D4D      SUBR               ENTRY/EXIT
00138  M01S00119.comddis +++|          SHN    14          UNPACK DIGITS
00139  M01S00120.comddis +++|          STD    T0
00140  M01S00121.comddis +++|          SHN    -14
00141  M01S00122.comddis +++|          STD    T1
00142  M01S00123.comddis +++|          LDD    T0          DISPLAY 2 DIGITS
00143  M01S00124.comddis +++|          LPN    77
00144  M01S00125.comddis +++|          STD    T0
00145  M01S00126.comddis +++|          SHN    3
00146  M01S00127.comddis +++|          LMD    T0
00147  M01S00128.comddis +++|          SCN    70
00148  M01S00129.comddis +++|          ADC    2R00
00149  M01S00130.comddis +++|          OAN    CH+40
00150  M01S00131.comddis +++|          LDD    T1          DISPLAY 2 DIGITS
00151  M01S00132.comddis +++|          SHN    3
00152  M01S00133.comddis +++|          LMD    T1
00153  M01S00134.comddis +++|          SCN    70
00154  M01S00135.comddis +++|          ADC    2R00
00155  M01S00136.comddis +++|          OAN    CH+40
00156  M01S00137.comddis +++|          UJN    D4DX        RETURN
00157  M01S00138.comddis +++| D4S      SPACE  4
00158  M01S00139.comddis +++|***       D4S - DISPLAY 4 DIGITS WITH LEADING ZERO SUPPRESSION.
00159  M01S00140.comddis +++|*
00160  M01S00141.comddis +++|*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
00161  M01S00142.comddis +++|*                (D4SA) = 0 IF TO DISABLE OUTPUT OF FINAL *. *.
00162  M01S00143.comddis +++|*
00163  M01S00144.comddis +++|*         EXIT   (D4SA) = SAME AS ON ENTRY.
00164  M01S00145.comddis +++|*
00165  M01S00146.comddis +++|*         USES   T1.
00166  M01S00147.comddis +++|
00167  M01S00148.comddis +++|
00168  M01S00149.comddis +++| D4S      SUBR               ENTRY/EXIT
00169  M01S00150.comddis +++|          STD    T1          SAVE DIGITS
00170  M01S00151.comddis +++|          SHN    -6
00171  M01S00152.comddis +++|          ZJN    D4S2        IF FIRST TWO DIGITS ARE ZERO
00172  M01S00153.comddis +++|          SHN    -3
00173  M01S00154.comddis +++|          ZJN    D4S1        IF FIRST DIGIT IS ZERO
00174  M01S00155.comddis +++|          LPN    7
00175  M01S00156.comddis +++|          ADN    1R0
00176  M01S00157.comddis +++|          SHN    14
00177  M01S00158.comddis +++| D4S1     ADD    T1
00178  M01S00159.comddis +++|          SHN    -6
00179  M01S00160.comddis +++|          SCN    70
00180  M01S00161.comddis +++|          ADN    1R0
00181  M01S00162.comddis +++| D4S2     OAN    CH+40
00182  M01S00163.comddis +++|          LDD    T1          DIGITS 0, 1
00183  M01S00164.comddis +++|          ZJN    D4S4        IF ALL FOUR DIGITS ARE ZERO
00184  M01S00165.comddis +++|          SHN    -3
00185  M01S00166.comddis +++|          ZJN    D4S3        IF FIRST THREE DIGITS ARE ZERO
00186  M01S00167.comddis +++|          LPN    7
00187  M01S00168.comddis +++|          ADN    1R0
00188  M01S00169.comddis +++|          SHN    6
00189  M01S00170.comddis +++| D4S3     LMD    T1
00190  M01S00171.comddis +++|          SCN    7
00191  M01S00172.comddis +++|          LMD    T1
00192  M01S00173.comddis +++| D4S4     ADN    1R0
00193  M01S00174.comddis +++|          OAN    CH+40
00194  M01S00175.comddis +++|          LDC    2R.         DISPLAY *.*
00195  M01S00001.v23l617 +++| D4SB     EQU    *-1         REPLACE *. *
00196  M01S00176.comddis +++| D4SA     OAN    CH+40
00197  M01S00177.comddis +++|*         PSN                (TO DISABLE *. *)
00198  M01S00178.comddis +++|          UJN    D4SX        RETURN
00199  M01S00179.comddis +++| D5F      SPACE  4
00200  M01S00180.comddis +++|***       D5F - DISPLAY 5 GROUPS OF 4 DIGITS.
00201  M01S00181.comddis +++|*
00202  M01S00182.comddis +++|*         ENTRY  (CM - CM+4) = CONTENTS OF CM WORD.
00203  M01S00183.comddis +++|*
00204  M01S00184.comddis +++|*         CALLS  D4D, DWD.
00205  M01S00185.comddis +++|
00206  M01S00186.comddis +++|
00207  M01S00187.comddis +++| D5F      SUBR               ENTRY/EXIT
00208  M01S00188.comddis +++|          LDC    6120        OUTPUT X-COORDINATE
00209  M01S00189.comddis +++|          OAN    CH+40
00210  M01S00190.comddis +++|          LDD    CM          DISPLAY BYTE 0
00211  M01S00191.comddis +++|          RJM    D4D
00212  M01S00192.comddis +++|          LDC    6170        OUTPUT X-COORDINATE
00213  M01S00193.comddis +++|          OAN    CH+40
00214  M01S00194.comddis +++|          LDD    CM+1        DISPLAY BYTE 1
00215  M01S00195.comddis +++|          RJM    D4D
00216  M01S00196.comddis +++|          LDC    6240        OUTPUT X-COORDINATE
00217  M01S00197.comddis +++|          OAN    CH+40
00218  M01S00198.comddis +++|          LDD    CM+2        DISPLAY BYTE 2
00219  M01S00199.comddis +++|          RJM    D4D
00220  M01S00200.comddis +++|          LDC    6310        OUTPUT X-COORDINATE
00221  M01S00201.comddis +++|          OAN    CH+40
00222  M01S00202.comddis +++|          LDD    CM+3        DISPLAY BYTE 3
00223  M01S00203.comddis +++|          RJM    D4D
00224  M01S00204.comddis +++|          LDC    6360        OUTPUT X-COORDINATE
00225  M01S00205.comddis +++|          OAN    CH+40
00226  M01S00206.comddis +++|          LDD    CM+4        DISPLAY BYTE 4
00227  M01S00207.comddis +++|          RJM    D4D
00228  M01S00208.comddis +++|          LDN    0           OUTPUT ZERO BYTE
00229  M01S00209.comddis +++|          OAN    CH+40
00230  M01S00210.comddis +++|          RJM    DWD         DISPLAY WORD
00231  M01S00211.comddis +++|          LJM    D5FX        RETURN
00232  M01S00212.comddis +++|          SPACE  4
00233  M01S00213.comddis +++|          QUAL   *
00234  M01S00214.comddis +++| DWD      EQU    /COMDDIS/DWD
00235  M01S00215.comddis +++| D2D      EQU    /COMDDIS/D2D
00236  M01S00006.241l630 +++| .B       IF     -DEF,N2Z$
00237  M01S00216.comddis +++| D2Z      EQU    /COMDDIS/D2Z
00238  M01S00002.v23l617 +++| D2ZA     EQU    /COMDDIS/D2ZA
00239  M01S00007.241l630 +++| .B       ENDIF
00240  M01S00217.comddis +++| D4D      EQU    /COMDDIS/D4D
00241  M01S00218.comddis +++| D4S      EQU    /COMDDIS/D4S
00242  M01S00219.comddis +++| D4SA     EQU    /COMDDIS/D4SA
00243  M01S00003.v23l617 +++| D4SB     EQU    /COMDDIS/D4SB
00244  M01S00220.comddis +++| D5F      EQU    /COMDDIS/D5F
00245  M01S00011.ns2459  +++|          LIST   *
00246  M01S00221.comddis +++|          ENDX