cdc:nos2.source:opl.opl871:common:comdmac
Common COMDMAC
4 Modifications
Source
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
cdc/nos2.source/opl.opl871/common/comdmac.txt · Last modified: by 127.0.0.1