Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comdmac +++| CTEXT COMDMAC - DISPLAY MACROS.
00002 M01S00002.comdmac +++| SPACE 4,10
00003 M01S00003.comdmac +++|*COMMENT DISPLAY MACROS.
| Line S00004 Modification History |
M01 (Added by) | comdmac |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00004 M02S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00006 M01S00005.comdmac +++| SPACE 4,10
00007 M01S00006.comdmac +++|*** COMDMAC - DISPLAY MACROS.
00008 M01S00007.comdmac +++|*
00009 M01S00008.comdmac +++|* D. H. GAMBREL. 81/09/16.
00010 M01S00009.comdmac +++|* P. D. HAAS. 83/10/09.
00011 M01S00010.comdmac +++| SPACE 4,10
00012 M01S00011.comdmac +++|*** *COMDMAC* CONTAINS SYMBOL DEFINITIONS AND
00013 M01S00012.comdmac +++|* MACROS FOR USE BY SYSTEM CONSOLE DISPLAY DRIVERS.
00014 M01S00013.comdmac +++| SPACE 4,10
00015 M01S00014.comdmac +++|*** DISPLAY CONSOLE TYPE CODES.
00016 M01S00015.comdmac +++|
00017 M01S00016.comdmac +++|
00018 M01S00017.comdmac +++| C545 EQU 0 *CC545* DISPLAY CONSOLE TYPE
00019 M01S00018.comdmac +++| C721 EQU 1 *CDC721* DISPLAY CONSOLE TYPE
00020 M01S00019.comdmac +++| SPACE 4,10
00021 M01S00020.comdmac +++|*** CC545 / CDC721 FUNCTION CODES.
00022 M01S00021.comdmac +++|
00023 M01S00022.comdmac +++|
00024 M01S00023.comdmac +++| DDCF EQU 0000 DESELECT DISPLAY CONTROLLER
00025 M01S00024.comdmac +++| SLSF EQU 7000 SELECT LEFT SCREEN - SMALL CHARACTERS
00026 M01S00025.comdmac +++| SLMF EQU 7001 SELECT LEFT SCREEN - MEDIUM CHARACTERS
00027 M01S00026.comdmac +++| SLLF EQU 7002 SELECT LEFT SCREEN - LARGE CHARACTERS
00028 M01S00027.comdmac +++| SKIF EQU 7020 SELECT KEYBOARD INPUT
00029 M01S00028.comdmac +++| SRSF EQU 7100 SELECT RIGHT SCREEN - SMALL CHARACTERS
00030 M01S00029.comdmac +++| SRMF EQU 7101 SELECT RIGHT SCREEN - MEDIUM CHARACTERS
00031 M01S00030.comdmac +++| SRLF EQU 7102 SELECT RIGHT SCREEN - LARGE CHARACTERS
00032 M01S00031.comdmac +++| SPACE 4,10
00033 M01S00032.comdmac +++|*** CDC721 FUNCTION CODES.
00034 M01S00033.comdmac +++|
00035 M01S00034.comdmac +++|
00036 M01S00035.comdmac +++| EELF EQU 0400 ERASE TO END OF LINE
00037 M01S00036.comdmac +++| CHSF EQU 0401 CLEAR HIDDEN SCREEN
00038 M01S00037.comdmac +++| RTPF EQU 0402 RESET TOP OF PAGE
00039 M01S00038.comdmac +++| THVF EQU 0403 TRANSFER HIDDEN SCREEN TO VISIBLE
00040 M01S00039.comdmac +++|
00041 M01S00040.comdmac +++| THCF EQU 0404 COMBINATION OF *THVF* AND *CHSF*
00042 M01S00001.241l630 +++| DSCF EQU 0405 DISPLAY SPECIAL CHARACTER
00043 M01S00041.comdmac +++| BIPF EQU 0406 *BIVF* AT CURRENT POSITION - 1
00044 M01S00042.comdmac +++| EITF EQU 0407 *EIVF* AT CURRENT POSITION + 1
00045 M01S00043.comdmac +++|
00046 M01S00044.comdmac +++| BUSF EQU 0410 BEGIN UNDERSCORE
00047 M01S00045.comdmac +++| EUSF EQU 0411 END UNDERSCORE
00048 M01S00046.comdmac +++| BBLF EQU 0412 BEGIN BLINKING
00049 M01S00047.comdmac +++| EBLF EQU 0413 END BLINKING
00050 M01S00048.comdmac +++| BRIF EQU 0414 BEGIN REDUCED INTENSITY
00051 M01S00049.comdmac +++| ERIF EQU 0415 END REDUCED INTENSITY
00052 M01S00050.comdmac +++| BIVF EQU 0416 BEGIN INVERSE VIDEO
00053 M01S00051.comdmac +++| EIVF EQU 0417 END INVERSE VIDEO
00054 M01S00052.comdmac +++| SLPF EQU 7004 SELECT LEFT SCREEN - PRIORITY OUTPUT
00055 M01S00053.comdmac +++| SRPF EQU 7104 SELECT RIGHT SCREEN - PRIORITY OUTPUT
00056 M01S00054.comdmac +++| SSIF EQU 7401 SELECT *SCD* INITIALIZATION
00057 M01S00055.comdmac +++| SDCF EQU 7402 SET DISPLAY CHANNEL FLAG
00058 M01S00056.comdmac +++| SPACE 4,10
00059 M01S00057.comdmac +++|*** LINE NUMBER AND CHARACTER POSITION SYMBOLS.
00060 M01S00058.comdmac +++|*
00061 M01S00059.comdmac +++|* EACH OF 51 LINES ON THE SCREEN MAY BE REFERENCED BY A
00062 M01S00060.comdmac +++|* SYMBOL OF THE FORM LNYY, WHERE *YY* IS THE LINE NUMBER.
00063 M01S00061.comdmac +++|* THE SYMBOL IS EQUATED TO THE Y-COORDINATE FOR THE LINE.
00064 M01S00062.comdmac +++|*
00065 M01S00063.comdmac +++|* EACH OF 64 CHARACTER POSITIONS FOR A LINE IS REFERENCED
00066 M01S00064.comdmac +++|* BY A SYMBOL OF THE FORM CHXX, WHERE *XX* IS THE CHARACTER
00067 M01S00065.comdmac +++|* POSITION. THE SYMBOL IS EQUATED TO THE X-COORDINATE OF
00068 M01S00066.comdmac +++|* THE CHARACTER.
00069 M01S00067.comdmac +++|
00070 M01S00068.comdmac +++|
00071 M01S00069.comdmac +++| XINC EQU 10 X-COORDINATE INCREMENT BETWEEN CHARACTERS
00072 M01S00070.comdmac +++| YINC EQU 12 Y-COORDINATE INCREMENT BETWEEN LINES
00073 M01S00071.comdmac +++|
00074 M01S00072.comdmac +++|
00075 M01S00073.comdmac +++| NOREF .1,.2
00076 M01S00074.comdmac +++| .1 SET 51D DEFINE LINE NUMBER SYMBOLS
00077 M01S00075.comdmac +++| DUP 51,4
00078 M01S00076.comdmac +++| .1 DECMIC .1,2
00079 M01S00077.comdmac +++| .2 SET 51D-.1
00080 M01S00078.comdmac +++| LN".1" EQU 7000+.2*YINC
00081 M01S00079.comdmac +++| .1 SET .1-1
00082 M01S00080.comdmac +++|
00083 M01S00081.comdmac +++| .1 SET 1 DEFINE CHARACTER POSITION SYMBOLS
00084 M01S00082.comdmac +++| DUP 64,4
00085 M01S00083.comdmac +++| .1 DECMIC .1,2
00086 M01S00084.comdmac +++| .2 SET .1-1
00087 M01S00085.comdmac +++| CH".1" EQU 6000+.2*XINC
00088 M01S00086.comdmac +++| .1 SET .1+1
00089 M01S00087.comdmac +++|
00090 M01S00088.comdmac +++|
00091 M01S00089.comdmac +++| HL01 EQU LN01 FIRST SCREEN HEADER LINE
00092 M01S00090.comdmac +++| HL02 EQU LN02 SECOND SCREEN HEADER LINE
00093 M01S00091.comdmac +++| HL03 EQU LN03 THIRD SCREEN HEADER LINE
00094 M01S00092.comdmac +++| HL04 EQU LN04 FOURTH SCREEN HEADER LINE
00095 M01S00093.comdmac +++| BL01 EQU LN05 FIRST LINE OF SCREEN BODY
00096 M01S00094.comdmac +++| T545 EQU BL01-YINC*2 TOP OF SCREEN BODY FOR CC545
00097 M01S00095.comdmac +++| T721 EQU BL01 TOP OF SCREEN BODY FOR CDC721
00098 M01S00096.comdmac +++| Y545 EQU LN45 LAST LINE OF SCREEN BODY - CC545
00099 M01S00097.comdmac +++| Y721 EQU LN26 LAST LINE OF SCREEN BODY - CDC721
00100 M01S00098.comdmac +++|
00101 M01S00099.comdmac +++| XJSN EQU CH23 X-COORDINATE FOR JSN IN DISPLAY HEADERS
00102 M01S00100.comdmac +++| XMOR EQU CH10 X-COORDINATE FOR *MORE* MESSAGE
00103 M01S00101.comdmac +++| CATD SPACE 4,20
00104 M01S00102.comdmac +++|*** CATD - CHECK ACCESS TO DISPLAY CONSOLE.
00105 M01S00103.comdmac +++|*
00106 M01S00104.comdmac +++|* CATD CV
00107 M01S00105.comdmac +++|*
00108 M01S00106.comdmac +++|* ENTRY *CV* = *VU* TO VALIDATE USER ONLY.
00109 M01S00107.comdmac +++|* = *VX* IF PROGRAM FOR CDC721 ONLY.
00110 M01S00108.comdmac +++|* = NULL IF PROGRAM FOR CC545 ONLY.
00111 M01S00109.comdmac +++|* "NAME" = MICRO DEFINING NAME FOR MESSAGES.
00112 M01S00110.comdmac +++|*
00113 M01S00111.comdmac +++|* EXIT (A) = 0.
00114 M01S00112.comdmac +++|* TO PPR IF PROGRAM NOT SUPPORTED ON CONSOLE.
00115 M01S00113.comdmac +++|* IF USER NOT VALIDATED.
00116 M01S00114.comdmac +++|* *CAT1* = TAG TO *INVALID USER ACCESS* ABORT CODE.
00117 M01S00115.comdmac +++|*
00118 M01S00116.comdmac +++|* USES CM - CM+4.
00119 M01S00117.comdmac +++|*
00120 M01S00118.comdmac +++|* CALLS CUA, DFM.
00121 M01S00119.comdmac +++|*
00122 M01S00120.comdmac +++|* MACROS MONITOR, SFA.
00123 M01S00121.comdmac +++|
00124 M01S00122.comdmac +++|
00125 M01S00123.comdmac +++| PURGMAC CATD
00126 M01S00124.comdmac +++|
00127 M01S00125.comdmac +++| CATD MACRO CV
00128 M01S00126.comdmac +++| LOCAL TAG1,TAG2,TAG3
00129 M01S00127.comdmac +++| MACREF CATD
00130 M01S00128.comdmac +++| .1 IFC NE,*CV*VU*
00131 M01S00129.comdmac +++| LDN DSEQ
00132 M01S00130.comdmac +++| SFA EST
| Line S00131 Modification History |
M01 (Added by) | comdmac |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00133 M02S00131.252l678 ---| ADK EQDE
00134 M01S00001.252l678 +++| ADK EQAE
00135 M01S00132.comdmac +++| CRD CM
00136 M01S00133.comdmac +++| LDD CM+2
00137 M01S00134.comdmac +++| .2 IFC NE,*CV*VX*
00138 M01S00135.comdmac +++| CT MICRO 1,, CDC721
00139 M01S00136.comdmac +++| ZJN TAG1
00140 M01S00137.comdmac +++| .2 ELSE 2
00141 M01S00138.comdmac +++| CT MICRO 1,, CC545
00142 M01S00139.comdmac +++| NJN TAG1
00143 M01S00140.comdmac +++| LDC =C+ *"NAME"* UNSUPPORTED ON "CT" CONSOLE.+
00144 M01S00141.comdmac +++| UJN TAG2
00145 M01S00142.comdmac +++|
00146 M01S00143.comdmac +++| .1 ENDIF
00147 M01S00144.comdmac +++| TAG1 RJM CUA
00148 M01S00145.comdmac +++| ZJN TAG3
00149 M01S00146.comdmac +++| CAT1 LDC =C* INCORRECT USER ACCESS.*
00150 M01S00147.comdmac +++| TAG2 RJM DFM
00151 M01S00148.comdmac +++| MONITOR ABTM
00152 M01S00149.comdmac +++| LJM PPR
00153 M01S00150.comdmac +++|
00154 M01S00151.comdmac +++| TAG3 BSS 0
00155 M01S00152.comdmac +++| CATD ENDM
00156 M01S00153.comdmac +++| CFNC SPACE 4,45
00157 M01S00154.comdmac +++|*** CFNC - ISSUE FUNCTION TO DISPLAY CONTROLLER.
00158 M01S00155.comdmac +++|*
00159 M01S00156.comdmac +++|* CFNC FC
00160 M01S00157.comdmac +++|*
00161 M01S00158.comdmac +++|* ENTRY (A) = FUNCTION CODE IF *FC* NOT SPECIFIED.
00162 M01S00159.comdmac +++|* *FC* = FUNCTION CODE.
00163 M01S00160.comdmac +++|* CHANNEL 10 MUST BE INACTIVE WHEN THIS MACRO IS
00164 M01S00161.comdmac +++|* USED WITH A CC545 FUNCTION AND A CC545 AS THE
00165 M01S00162.comdmac +++|* SYSTEM CONSOLE.
00166 M01S00163.comdmac +++|*
00167 M01S00164.comdmac +++|* EXIT CHANNEL 10 WILL BE LEFT ACTIVE EXCEPT IN THE
00168 M01S00165.comdmac +++|* CASE WHEN A CDC721 FUNCTION IS ISSUED WHEN A
00169 M01S00166.comdmac +++|* CC545 IS THE SYSTEM CONSOLE. IN THIS CASE THE
00170 M01S00167.comdmac +++|* CHANNEL WILL BE IN THE SAME STATE AS ON ENTRY.
00171 M01S00168.comdmac +++|*
00172 M01S00169.comdmac +++|* CALLS FNC.
00173 M01S00170.comdmac +++|*
00174 M01S00171.comdmac +++|* NOTE THE FOLLOWING CHART SUMMARIZES THE ASSUMED STATUS
00175 M01S00172.comdmac +++|* OF CHANNEL 10 UPON ENTRY TO THE MACRO AND THE
00176 M01S00173.comdmac +++|* STATE THE CHANNEL IS LEFT IN.
00177 M01S00174.comdmac +++|*
00178 M01S00175.comdmac +++|* FUNCTION TYPE
00179 M01S00176.comdmac +++|* CC545 CDC721
00180 M01S00177.comdmac +++|* C +----------+---------+
00181 M01S00178.comdmac +++|* O / / /
00182 M01S00179.comdmac +++|* N CC545 / I/A / X/X /
00183 M01S00180.comdmac +++|* S / / /
00184 M01S00181.comdmac +++|* O +----------+---------+
00185 M01S00182.comdmac +++|* L / / /
00186 M01S00183.comdmac +++|* E CDC721 / X/A / X/A /
00187 M01S00184.comdmac +++|* / / /
00188 M01S00185.comdmac +++|* +----------+---------+
00189 M01S00186.comdmac +++|*
00190 M01S00187.comdmac +++|* WHERE THE CONDITIONS ARE EXPRESSED IN THE FORM
00191 M01S00188.comdmac +++|* ENTRY CONDITION/EXIT CONDITION.
00192 M01S00189.comdmac +++|* I = INACTIVE.
00193 M01S00190.comdmac +++|* A = ACTIVE.
00194 M01S00191.comdmac +++|* X = EITHER.
00195 M01S00192.comdmac +++|* NOTE THAT IN THE CASE OF A CDC721 FUNCTION ISSUED
00196 M01S00193.comdmac +++|* WITH A CC545 AS THE SYSTEM CONSOLE, THE EXIT STATE
00197 M01S00194.comdmac +++|* WILL MATCH THE ENTRY STATE.
00198 M01S00195.comdmac +++|
00199 M01S00196.comdmac +++|
00200 M01S00197.comdmac +++| PURGMAC CFNC
00201 M01S00198.comdmac +++|
00202 M01S00199.comdmac +++| CFNC MACRO FC
00203 M01S00200.comdmac +++| MACREF CFNC
00204 M01S00201.comdmac +++| IFC NE,*FC**,1
00205 M01S00202.comdmac +++| LDC FC
00206 M01S00203.comdmac +++| RJP FNC
00207 M01S00204.comdmac +++| CFNC ENDM
00208 M01S00205.comdmac +++| DISPHD SPACE 4,10
00209 M01S00206.comdmac +++|*** DISPHD - DISPLAY HEADER.
00210 M01S00207.comdmac +++|*
00211 M01S00208.comdmac +++|* DISPHD (TEXT),JSN
00212 M01S00209.comdmac +++|*
00213 M01S00210.comdmac +++|* ENTRY *TEXT* = DISPLAY NAME, USUALLY IN THE FORM OF A MICRO.
00214 M01S00211.comdmac +++|* *JSN* = OPTIONAL ADDRESS OF A LOCATION CONTAINING THE
00215 M01S00212.comdmac +++|* JSN.
00216 M01S00213.comdmac +++|*
00217 M01S00214.comdmac +++|* IF *JSN* IS NOT PRESENT, CODE TO DISPLAY IT WILL NOT BE
00218 M01S00215.comdmac +++|* GENERATED.
00219 M01S00216.comdmac +++|
00220 M01S00217.comdmac +++|
00221 M01S00218.comdmac +++| PURGMAC DISPHD
00222 M01S00219.comdmac +++| DISPHD MACRO T,J
00223 M01S00220.comdmac +++| MACREF DISPHD
00224 M01S00221.comdmac +++| .A IFC EQ,$J$$
00225 M01S00222.comdmac +++| DISPLA CH01,HL01,(T)
00226 M01S00223.comdmac +++| .A ELSE
00227 M01S00224.comdmac +++| .1 MICRO 1,,$T$
00228 M01S00225.comdmac +++| .1 MICCNT .1
00229 M01S00226.comdmac +++| .2 SET XJSN/XINC-CH01/XINC
00230 M01S00227.comdmac +++| ERRPL .1-.2-1 TITLE EXTENDS INTO THE JSN AREA
00231 M01S00228.comdmac +++| .B IFLT .1,.2-6
00232 M01S00229.comdmac +++| DISPLA CH01,HL01,(T)
00233 M01S00230.comdmac +++| LDC XJSN
00234 M01S00231.comdmac +++| OAN CH+40
00235 M01S00232.comdmac +++| .B ELSE
00236 M01S00233.comdmac +++| .1 MICRO 1,.2,$T $
00237 M01S00234.comdmac +++| DISPLA CH01,HL01,(".1")
00238 M01S00235.comdmac +++| .B ENDIF
00239 M01S00236.comdmac +++| LDN 2
00240 M01S00237.comdmac +++| OAM. J,CH
00241 M01S00238.comdmac +++| .A ENDIF
00242 M01S00239.comdmac +++| DISPHD ENDM
00243 M01S00240.comdmac +++| DISPLA SPACE 4,10
00244 M01S00241.comdmac +++|*** DISPLA - DISPLAY DATA.
00245 M01S00242.comdmac +++|*
00246 M01S00243.comdmac +++|* DISPLA X,Y,(TEXT),HF
00247 M01S00244.comdmac +++|*
00248 M01S00245.comdmac +++|* ENTRY *X* = X-COORDINATE.
00249 M01S00246.comdmac +++|* *Y* = Y-COORDINATE.
00250 M01S00247.comdmac +++|* *TEXT* = TEXT TO BE DISPLAYED.
00251 M01S00248.comdmac +++|* *HF* = HIGHLIGHT FLAG.
00252 M01S00249.comdmac +++|*
00253 M01S00250.comdmac +++|* CALLS HIL.
00254 M01S00251.comdmac +++|*
00255 M01S00252.comdmac +++|* IF *X* OR *Y* ARE NOT PRESENT, TEXT
00256 M01S00253.comdmac +++|* WILL BE DISPLAYED AT THE CURRENT POSITION.
00257 M01S00254.comdmac +++|
00258 M01S00255.comdmac +++|
00259 M01S00256.comdmac +++| PURGMAC DISPLA
00260 M01S00257.comdmac +++|
00261 M01S00258.comdmac +++| DISPLA MACRO X,Y,T,HF
00262 M01S00259.comdmac +++| LOCAL J,K
00263 M01S00260.comdmac +++| MACREF DISPLA
| Line S00261 Modification History |
M01 (Added by) | comdmac |
M02 (Updated by) | dmac1 |
Seq # *Modification Id* Act
----------------------------+
00264 M02S00261.dmac1 ---| QUAL
00265 M01S00262.comdmac +++| .1 IFC NE,*HF**
00266 M01S00263.comdmac +++| .2 IF DEF,RLO$
00267 M01S00264.comdmac +++| LDC. K*10000+J
00268 M01S00265.comdmac +++| .2 ELSE 1
00269 M01S00266.comdmac +++| LDC K*10000+J
00270 M01S00267.comdmac +++| RJP HIL
00271 M01S00268.comdmac +++| .1 ELSE 2
00272 M01S00269.comdmac +++| LDN K
00273 M01S00270.comdmac +++| OAM J,CH
| Line S00271 Modification History |
M01 (Added by) | comdmac |
M02 (Updated by) | dmac1 |
Seq # *Modification Id* Act
----------------------------+
00274 M02S00271.dmac1 ---| QUAL *
00275 M01S00272.comdmac +++| DIS RMT
00276 M01S00273.comdmac +++| QUAL
00277 M01S00274.comdmac +++| J BSS 0
00278 M01S00275.comdmac +++| IFNE X,,1
00279 M01S00276.comdmac +++| CON X
00280 M01S00277.comdmac +++| IFNE Y,,1
00281 M01S00278.comdmac +++| CON Y
00282 M01S00279.comdmac +++| DATA H$T$
00283 M01S00280.comdmac +++| K EQU *-J
00284 M01S00281.comdmac +++| QUAL *
00285 M01S00282.comdmac +++| DIS RMT
00286 M01S00283.comdmac +++| DISPLA ENDM
00287 M01S00284.comdmac +++| DSUB SPACE 4,15
00288 M01S00285.comdmac +++|*** DSUB - DEFINE DISPLAY SUBROUTINE.
00289 M01S00286.comdmac +++|*
00290 M01S00287.comdmac +++|*A DSUB
00291 M01S00288.comdmac +++|*
00292 M01S00289.comdmac +++|* ENTRY *A* = SUBROUTINE NAME.
00293 M01S00290.comdmac +++|* *A_M545* = MACRO CONTAINING CC545 CODE.
00294 M01S00291.comdmac +++|* *A_M721* = MACRO CONTAINING CDC721 CODE.
00295 M01S00292.comdmac +++|*
00296 M01S00293.comdmac +++|* EXIT SUBROUTINE ASSEMBLED WITH CC545 CODE.
00297 M01S00294.comdmac +++|* CDC721 CODE PLACED IN *SRMT* REMOTE BLOCK.
00298 M01S00295.comdmac +++|*
00299 M01S00296.comdmac +++|* MACROS A_M545, A_M721, DFIM.
00300 M01S00297.comdmac +++|
00301 M01S00298.comdmac +++|
00302 M01S00299.comdmac +++| PURGMAC DSUB
00303 M01S00300.comdmac +++|
00304 M01S00301.comdmac +++| MACRO DSUB,A
00305 M01S00302.comdmac +++| LOCAL OC,LC,L1,L2
00306 M01S00303.comdmac +++| MACREF DSUB
00307 M01S00304.comdmac +++| A SUBR
00308 M01S00305.comdmac +++| OC SET *O
00309 M01S00306.comdmac +++| LC SET *L
00310 M01S00307.comdmac +++| LIST G
00311 M01S00308.comdmac +++| A_M721
00312 M01S00309.comdmac +++| LIST *
00313 M01S00310.comdmac +++| L1 SET *-LC
00314 M01S00311.comdmac +++| ORG OC
00315 M01S00312.comdmac +++| LOC LC
00316 M01S00313.comdmac +++| LIST G
00317 M01S00314.comdmac +++| A_M545
00318 M01S00315.comdmac +++| LIST *
00319 M01S00316.comdmac +++| L2 MAX L1,*-LC
00320 M01S00317.comdmac +++| ORG OC+L2
00321 M01S00318.comdmac +++| LOC LC+L2
00322 M01S00319.comdmac +++| DFIM A_M721,LC
00323 M01S00320.comdmac +++| DSUB ENDM
00324 M01S00321.comdmac +++| SPACE 4,10
00325 M01S00322.comdmac +++|*** THE FOLLOWING MACRO PAIRS ARE USED WITHIN THE *DSUB*
00326 M01S00323.comdmac +++|* MACRO TO GENERATE CONSOLE TYPE DEPENDENT CODE.
00327 M01S00324.comdmac +++| FNC SPACE 4,10
00328 M01S00325.comdmac +++|** FNC - ISSUE FUNCTION TO DISPLAY CONTROLLER.
00329 M01S00326.comdmac +++|*
00330 M01S00327.comdmac +++|* ENTRY (A) = FUNCTION CODE.
00331 M01S00328.comdmac +++|*
00332 M01S00329.comdmac +++|* EXIT (A) .LT. 0 IF CDC721 FUNCTION AND CC545 CONTROLLER.
00333 M01S00330.comdmac +++|* CHANNEL ACTIVE IF FUNCTION ISSUED.
00334 M01S00331.comdmac +++|
00335 M01S00332.comdmac +++|
00336 M01S00333.comdmac +++| PURGMAC FNCM545,FNCM721
00337 M01S00334.comdmac +++|
00338 M01S00335.comdmac +++| FNCM545 MACRO *** CC545 CODE ***
00339 M01S00336.comdmac +++| MACREF FNCM545
00340 M01S00337.comdmac +++| SHN 21-10
00341 M01S00338.comdmac +++| MJN FNCX
00342 M01S00339.comdmac +++| SHN 11
00343 M01S00340.comdmac +++| SCN 44
00344 M01S00341.comdmac +++| FAN CH
00345 M01S00342.comdmac +++| ZJN FNCX
00346 M01S00343.comdmac +++| ACN CH
00347 M01S00344.comdmac +++| UJN FNCX
00348 M01S00345.comdmac +++| FNCM545 ENDM
00349 M01S00346.comdmac +++|
00350 M01S00347.comdmac +++|
00351 M01S00348.comdmac +++| FNCM721 MACRO *** CDC721 CODE ***
00352 M01S00349.comdmac +++| MACREF FNCM721
00353 M01S00350.comdmac +++| ACN CH+40
00354 M01S00351.comdmac +++| SHN 17-13
00355 M01S00352.comdmac +++| OAN CH
00356 M01S00353.comdmac +++| FJM *,CH
00357 M01S00354.comdmac +++| UJN FNCX
00358 M01S00355.comdmac +++| FNCM721 ENDM
00359 M01S00356.comdmac +++| HIL SPACE 4,10
00360 M01S00357.comdmac +++|** HIL - HIGHLIGHT DISPLAY DATA.
00361 M01S00358.comdmac +++|*
00362 M01S00359.comdmac +++|* ENTRY (A) = 6/ BC,12/ SA.
00363 M01S00360.comdmac +++|* *BC* = BYTE COUNT FOR STRING.
00364 M01S00361.comdmac +++|* *SA* = STRING ADDRESS.
00365 M01S00362.comdmac +++|*
00366 M01S00363.comdmac +++|* USES T1, T2.
00367 M01S00364.comdmac +++|*
00368 M01S00365.comdmac +++|* MACROS CFNC.
00369 M01S00366.comdmac +++|
00370 M01S00367.comdmac +++|
00371 M01S00368.comdmac +++| PURGMAC HILM545,HILM721
00372 M01S00369.comdmac +++|
00373 M01S00370.comdmac +++| HILM545 MACRO *** CC545 CODE ***
00374 M01S00371.comdmac +++| MACREF HILM545
00375 M01S00372.comdmac +++| STM HILA
00376 M01S00373.comdmac +++| SHN -14
00377 M01S00374.comdmac +++| STD T2
00378 M01S00375.comdmac +++| LDN 2
00379 M01S00376.comdmac +++| STD T1
00380 M01S00377.comdmac +++| HIL1 LDD T2
00381 M01S00378.comdmac +++| OAM *,CH
00382 M01S00379.comdmac +++| HILA EQU *-1
00383 M01S00380.comdmac +++| SOD T1
00384 M01S00381.comdmac +++| PJN HIL1
00385 M01S00382.comdmac +++| UJN HILX
00386 M01S00383.comdmac +++| HILM545 ENDM
00387 M01S00384.comdmac +++|
00388 M01S00385.comdmac +++|
00389 M01S00386.comdmac +++| HILM721 MACRO *** CDC721 CODE ***
00390 M01S00387.comdmac +++| MACREF HILM721
00391 M01S00388.comdmac +++| STM HILB
00392 M01S00389.comdmac +++| SHN -14
00393 M01S00390.comdmac +++| STD T2
00394 M01S00391.comdmac +++| CFNC BIPF
00395 M01S00392.comdmac +++| LDD T2
00396 M01S00393.comdmac +++| OAM *,CH
00397 M01S00394.comdmac +++| HILB EQU *-1
00398 M01S00395.comdmac +++| CFNC EITF
00399 M01S00396.comdmac +++| UJN HILX
00400 M01S00397.comdmac +++| HILM721 ENDM
00401 M01S00398.comdmac +++| SPACE 4,10
00402 M01S00399.comdmac +++| ENDX