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