cdc:nos2.source:opl.opl871:common:comdmac
Common COMDMAC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comdmac +++| CTEXT COMDMAC - DISPLAY MACROS. 00002 M00S00002.comdmac +++| SPACE 4,10 00003 M00S00003.comdmac +++|*COMMENT DISPLAY MACROS.
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M00S00005.comdmac +++| SPACE 4,10 00007 M00S00006.comdmac +++|*** COMDMAC - DISPLAY MACROS. 00008 M00S00007.comdmac +++|* 00009 M00S00008.comdmac +++|* D. H. GAMBREL. 81/09/16. 00010 M00S00009.comdmac +++|* P. D. HAAS. 83/10/09. 00011 M00S00010.comdmac +++| SPACE 4,10 00012 M00S00011.comdmac +++|*** *COMDMAC* CONTAINS SYMBOL DEFINITIONS AND 00013 M00S00012.comdmac +++|* MACROS FOR USE BY SYSTEM CONSOLE DISPLAY DRIVERS. 00014 M00S00013.comdmac +++| SPACE 4,10 00015 M00S00014.comdmac +++|*** DISPLAY CONSOLE TYPE CODES. 00016 M00S00015.comdmac +++| 00017 M00S00016.comdmac +++| 00018 M00S00017.comdmac +++| C545 EQU 0 *CC545* DISPLAY CONSOLE TYPE 00019 M00S00018.comdmac +++| C721 EQU 1 *CDC721* DISPLAY CONSOLE TYPE 00020 M00S00019.comdmac +++| SPACE 4,10 00021 M00S00020.comdmac +++|*** CC545 / CDC721 FUNCTION CODES. 00022 M00S00021.comdmac +++| 00023 M00S00022.comdmac +++| 00024 M00S00023.comdmac +++| DDCF EQU 0000 DESELECT DISPLAY CONTROLLER 00025 M00S00024.comdmac +++| SLSF EQU 7000 SELECT LEFT SCREEN - SMALL CHARACTERS 00026 M00S00025.comdmac +++| SLMF EQU 7001 SELECT LEFT SCREEN - MEDIUM CHARACTERS 00027 M00S00026.comdmac +++| SLLF EQU 7002 SELECT LEFT SCREEN - LARGE CHARACTERS 00028 M00S00027.comdmac +++| SKIF EQU 7020 SELECT KEYBOARD INPUT 00029 M00S00028.comdmac +++| SRSF EQU 7100 SELECT RIGHT SCREEN - SMALL CHARACTERS 00030 M00S00029.comdmac +++| SRMF EQU 7101 SELECT RIGHT SCREEN - MEDIUM CHARACTERS 00031 M00S00030.comdmac +++| SRLF EQU 7102 SELECT RIGHT SCREEN - LARGE CHARACTERS 00032 M00S00031.comdmac +++| SPACE 4,10 00033 M00S00032.comdmac +++|*** CDC721 FUNCTION CODES. 00034 M00S00033.comdmac +++| 00035 M00S00034.comdmac +++| 00036 M00S00035.comdmac +++| EELF EQU 0400 ERASE TO END OF LINE 00037 M00S00036.comdmac +++| CHSF EQU 0401 CLEAR HIDDEN SCREEN 00038 M00S00037.comdmac +++| RTPF EQU 0402 RESET TOP OF PAGE 00039 M00S00038.comdmac +++| THVF EQU 0403 TRANSFER HIDDEN SCREEN TO VISIBLE 00040 M00S00039.comdmac +++| 00041 M00S00040.comdmac +++| THCF EQU 0404 COMBINATION OF *THVF* AND *CHSF*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00042 M01S00001.241l630 +++| DSCF EQU 0405 DISPLAY SPECIAL CHARACTER 00043 M00S00041.comdmac +++| BIPF EQU 0406 *BIVF* AT CURRENT POSITION - 1 00044 M00S00042.comdmac +++| EITF EQU 0407 *EIVF* AT CURRENT POSITION + 1 00045 M00S00043.comdmac +++| 00046 M00S00044.comdmac +++| BUSF EQU 0410 BEGIN UNDERSCORE 00047 M00S00045.comdmac +++| EUSF EQU 0411 END UNDERSCORE 00048 M00S00046.comdmac +++| BBLF EQU 0412 BEGIN BLINKING 00049 M00S00047.comdmac +++| EBLF EQU 0413 END BLINKING 00050 M00S00048.comdmac +++| BRIF EQU 0414 BEGIN REDUCED INTENSITY 00051 M00S00049.comdmac +++| ERIF EQU 0415 END REDUCED INTENSITY 00052 M00S00050.comdmac +++| BIVF EQU 0416 BEGIN INVERSE VIDEO 00053 M00S00051.comdmac +++| EIVF EQU 0417 END INVERSE VIDEO 00054 M00S00052.comdmac +++| SLPF EQU 7004 SELECT LEFT SCREEN - PRIORITY OUTPUT 00055 M00S00053.comdmac +++| SRPF EQU 7104 SELECT RIGHT SCREEN - PRIORITY OUTPUT 00056 M00S00054.comdmac +++| SSIF EQU 7401 SELECT *SCD* INITIALIZATION 00057 M00S00055.comdmac +++| SDCF EQU 7402 SET DISPLAY CHANNEL FLAG 00058 M00S00056.comdmac +++| SPACE 4,10 00059 M00S00057.comdmac +++|*** LINE NUMBER AND CHARACTER POSITION SYMBOLS. 00060 M00S00058.comdmac +++|* 00061 M00S00059.comdmac +++|* EACH OF 51 LINES ON THE SCREEN MAY BE REFERENCED BY A 00062 M00S00060.comdmac +++|* SYMBOL OF THE FORM LNYY, WHERE *YY* IS THE LINE NUMBER. 00063 M00S00061.comdmac +++|* THE SYMBOL IS EQUATED TO THE Y-COORDINATE FOR THE LINE. 00064 M00S00062.comdmac +++|* 00065 M00S00063.comdmac +++|* EACH OF 64 CHARACTER POSITIONS FOR A LINE IS REFERENCED 00066 M00S00064.comdmac +++|* BY A SYMBOL OF THE FORM CHXX, WHERE *XX* IS THE CHARACTER 00067 M00S00065.comdmac +++|* POSITION. THE SYMBOL IS EQUATED TO THE X-COORDINATE OF 00068 M00S00066.comdmac +++|* THE CHARACTER. 00069 M00S00067.comdmac +++| 00070 M00S00068.comdmac +++| 00071 M00S00069.comdmac +++| XINC EQU 10 X-COORDINATE INCREMENT BETWEEN CHARACTERS 00072 M00S00070.comdmac +++| YINC EQU 12 Y-COORDINATE INCREMENT BETWEEN LINES 00073 M00S00071.comdmac +++| 00074 M00S00072.comdmac +++| 00075 M00S00073.comdmac +++| NOREF .1,.2 00076 M00S00074.comdmac +++| .1 SET 51D DEFINE LINE NUMBER SYMBOLS 00077 M00S00075.comdmac +++| DUP 51,4 00078 M00S00076.comdmac +++| .1 DECMIC .1,2 00079 M00S00077.comdmac +++| .2 SET 51D-.1 00080 M00S00078.comdmac +++| LN".1" EQU 7000+.2*YINC 00081 M00S00079.comdmac +++| .1 SET .1-1 00082 M00S00080.comdmac +++| 00083 M00S00081.comdmac +++| .1 SET 1 DEFINE CHARACTER POSITION SYMBOLS 00084 M00S00082.comdmac +++| DUP 64,4 00085 M00S00083.comdmac +++| .1 DECMIC .1,2 00086 M00S00084.comdmac +++| .2 SET .1-1 00087 M00S00085.comdmac +++| CH".1" EQU 6000+.2*XINC 00088 M00S00086.comdmac +++| .1 SET .1+1 00089 M00S00087.comdmac +++| 00090 M00S00088.comdmac +++| 00091 M00S00089.comdmac +++| HL01 EQU LN01 FIRST SCREEN HEADER LINE 00092 M00S00090.comdmac +++| HL02 EQU LN02 SECOND SCREEN HEADER LINE 00093 M00S00091.comdmac +++| HL03 EQU LN03 THIRD SCREEN HEADER LINE 00094 M00S00092.comdmac +++| HL04 EQU LN04 FOURTH SCREEN HEADER LINE 00095 M00S00093.comdmac +++| BL01 EQU LN05 FIRST LINE OF SCREEN BODY 00096 M00S00094.comdmac +++| T545 EQU BL01-YINC*2 TOP OF SCREEN BODY FOR CC545 00097 M00S00095.comdmac +++| T721 EQU BL01 TOP OF SCREEN BODY FOR CDC721 00098 M00S00096.comdmac +++| Y545 EQU LN45 LAST LINE OF SCREEN BODY - CC545 00099 M00S00097.comdmac +++| Y721 EQU LN26 LAST LINE OF SCREEN BODY - CDC721 00100 M00S00098.comdmac +++| 00101 M00S00099.comdmac +++| XJSN EQU CH23 X-COORDINATE FOR JSN IN DISPLAY HEADERS 00102 M00S00100.comdmac +++| XMOR EQU CH10 X-COORDINATE FOR *MORE* MESSAGE 00103 M00S00101.comdmac +++| CATD SPACE 4,20 00104 M00S00102.comdmac +++|*** CATD - CHECK ACCESS TO DISPLAY CONSOLE. 00105 M00S00103.comdmac +++|* 00106 M00S00104.comdmac +++|* CATD CV 00107 M00S00105.comdmac +++|* 00108 M00S00106.comdmac +++|* ENTRY *CV* = *VU* TO VALIDATE USER ONLY. 00109 M00S00107.comdmac +++|* = *VX* IF PROGRAM FOR CDC721 ONLY. 00110 M00S00108.comdmac +++|* = NULL IF PROGRAM FOR CC545 ONLY. 00111 M00S00109.comdmac +++|* "NAME" = MICRO DEFINING NAME FOR MESSAGES. 00112 M00S00110.comdmac +++|* 00113 M00S00111.comdmac +++|* EXIT (A) = 0. 00114 M00S00112.comdmac +++|* TO PPR IF PROGRAM NOT SUPPORTED ON CONSOLE. 00115 M00S00113.comdmac +++|* IF USER NOT VALIDATED. 00116 M00S00114.comdmac +++|* *CAT1* = TAG TO *INVALID USER ACCESS* ABORT CODE. 00117 M00S00115.comdmac +++|* 00118 M00S00116.comdmac +++|* USES CM - CM+4. 00119 M00S00117.comdmac +++|* 00120 M00S00118.comdmac +++|* CALLS CUA, DFM. 00121 M00S00119.comdmac +++|* 00122 M00S00120.comdmac +++|* MACROS MONITOR, SFA. 00123 M00S00121.comdmac +++| 00124 M00S00122.comdmac +++| 00125 M00S00123.comdmac +++| PURGMAC CATD 00126 M00S00124.comdmac +++| 00127 M00S00125.comdmac +++| CATD MACRO CV 00128 M00S00126.comdmac +++| LOCAL TAG1,TAG2,TAG3 00129 M00S00127.comdmac +++| MACREF CATD 00130 M00S00128.comdmac +++| .1 IFC NE,*CV*VU* 00131 M00S00129.comdmac +++| LDN DSEQ 00132 M00S00130.comdmac +++| SFA EST
| Line S00131 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00131.252l678 ---| ADK EQDE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00134 M01S00001.252l678 +++| ADK EQAE
00135 M00S00132.comdmac +++| CRD CM
00136 M00S00133.comdmac +++| LDD CM+2
00137 M00S00134.comdmac +++| .2 IFC NE,*CV*VX*
00138 M00S00135.comdmac +++| CT MICRO 1,, CDC721
00139 M00S00136.comdmac +++| ZJN TAG1
00140 M00S00137.comdmac +++| .2 ELSE 2
00141 M00S00138.comdmac +++| CT MICRO 1,, CC545
00142 M00S00139.comdmac +++| NJN TAG1
00143 M00S00140.comdmac +++| LDC =C+ *"NAME"* UNSUPPORTED ON "CT" CONSOLE.+
00144 M00S00141.comdmac +++| UJN TAG2
00145 M00S00142.comdmac +++|
00146 M00S00143.comdmac +++| .1 ENDIF
00147 M00S00144.comdmac +++| TAG1 RJM CUA
00148 M00S00145.comdmac +++| ZJN TAG3
00149 M00S00146.comdmac +++| CAT1 LDC =C* INCORRECT USER ACCESS.*
00150 M00S00147.comdmac +++| TAG2 RJM DFM
00151 M00S00148.comdmac +++| MONITOR ABTM
00152 M00S00149.comdmac +++| LJM PPR
00153 M00S00150.comdmac +++|
00154 M00S00151.comdmac +++| TAG3 BSS 0
00155 M00S00152.comdmac +++| CATD ENDM
00156 M00S00153.comdmac +++| CFNC SPACE 4,45
00157 M00S00154.comdmac +++|*** CFNC - ISSUE FUNCTION TO DISPLAY CONTROLLER.
00158 M00S00155.comdmac +++|*
00159 M00S00156.comdmac +++|* CFNC FC
00160 M00S00157.comdmac +++|*
00161 M00S00158.comdmac +++|* ENTRY (A) = FUNCTION CODE IF *FC* NOT SPECIFIED.
00162 M00S00159.comdmac +++|* *FC* = FUNCTION CODE.
00163 M00S00160.comdmac +++|* CHANNEL 10 MUST BE INACTIVE WHEN THIS MACRO IS
00164 M00S00161.comdmac +++|* USED WITH A CC545 FUNCTION AND A CC545 AS THE
00165 M00S00162.comdmac +++|* SYSTEM CONSOLE.
00166 M00S00163.comdmac +++|*
00167 M00S00164.comdmac +++|* EXIT CHANNEL 10 WILL BE LEFT ACTIVE EXCEPT IN THE
00168 M00S00165.comdmac +++|* CASE WHEN A CDC721 FUNCTION IS ISSUED WHEN A
00169 M00S00166.comdmac +++|* CC545 IS THE SYSTEM CONSOLE. IN THIS CASE THE
00170 M00S00167.comdmac +++|* CHANNEL WILL BE IN THE SAME STATE AS ON ENTRY.
00171 M00S00168.comdmac +++|*
00172 M00S00169.comdmac +++|* CALLS FNC.
00173 M00S00170.comdmac +++|*
00174 M00S00171.comdmac +++|* NOTE THE FOLLOWING CHART SUMMARIZES THE ASSUMED STATUS
00175 M00S00172.comdmac +++|* OF CHANNEL 10 UPON ENTRY TO THE MACRO AND THE
00176 M00S00173.comdmac +++|* STATE THE CHANNEL IS LEFT IN.
00177 M00S00174.comdmac +++|*
00178 M00S00175.comdmac +++|* FUNCTION TYPE
00179 M00S00176.comdmac +++|* CC545 CDC721
00180 M00S00177.comdmac +++|* C +----------+---------+
00181 M00S00178.comdmac +++|* O / / /
00182 M00S00179.comdmac +++|* N CC545 / I/A / X/X /
00183 M00S00180.comdmac +++|* S / / /
00184 M00S00181.comdmac +++|* O +----------+---------+
00185 M00S00182.comdmac +++|* L / / /
00186 M00S00183.comdmac +++|* E CDC721 / X/A / X/A /
00187 M00S00184.comdmac +++|* / / /
00188 M00S00185.comdmac +++|* +----------+---------+
00189 M00S00186.comdmac +++|*
00190 M00S00187.comdmac +++|* WHERE THE CONDITIONS ARE EXPRESSED IN THE FORM
00191 M00S00188.comdmac +++|* ENTRY CONDITION/EXIT CONDITION.
00192 M00S00189.comdmac +++|* I = INACTIVE.
00193 M00S00190.comdmac +++|* A = ACTIVE.
00194 M00S00191.comdmac +++|* X = EITHER.
00195 M00S00192.comdmac +++|* NOTE THAT IN THE CASE OF A CDC721 FUNCTION ISSUED
00196 M00S00193.comdmac +++|* WITH A CC545 AS THE SYSTEM CONSOLE, THE EXIT STATE
00197 M00S00194.comdmac +++|* WILL MATCH THE ENTRY STATE.
00198 M00S00195.comdmac +++|
00199 M00S00196.comdmac +++|
00200 M00S00197.comdmac +++| PURGMAC CFNC
00201 M00S00198.comdmac +++|
00202 M00S00199.comdmac +++| CFNC MACRO FC
00203 M00S00200.comdmac +++| MACREF CFNC
00204 M00S00201.comdmac +++| IFC NE,*FC**,1
00205 M00S00202.comdmac +++| LDC FC
00206 M00S00203.comdmac +++| RJP FNC
00207 M00S00204.comdmac +++| CFNC ENDM
00208 M00S00205.comdmac +++| DISPHD SPACE 4,10
00209 M00S00206.comdmac +++|*** DISPHD - DISPLAY HEADER.
00210 M00S00207.comdmac +++|*
00211 M00S00208.comdmac +++|* DISPHD (TEXT),JSN
00212 M00S00209.comdmac +++|*
00213 M00S00210.comdmac +++|* ENTRY *TEXT* = DISPLAY NAME, USUALLY IN THE FORM OF A MICRO.
00214 M00S00211.comdmac +++|* *JSN* = OPTIONAL ADDRESS OF A LOCATION CONTAINING THE
00215 M00S00212.comdmac +++|* JSN.
00216 M00S00213.comdmac +++|*
00217 M00S00214.comdmac +++|* IF *JSN* IS NOT PRESENT, CODE TO DISPLAY IT WILL NOT BE
00218 M00S00215.comdmac +++|* GENERATED.
00219 M00S00216.comdmac +++|
00220 M00S00217.comdmac +++|
00221 M00S00218.comdmac +++| PURGMAC DISPHD
00222 M00S00219.comdmac +++| DISPHD MACRO T,J
00223 M00S00220.comdmac +++| MACREF DISPHD
00224 M00S00221.comdmac +++| .A IFC EQ,$J$$
00225 M00S00222.comdmac +++| DISPLA CH01,HL01,(T)
00226 M00S00223.comdmac +++| .A ELSE
00227 M00S00224.comdmac +++| .1 MICRO 1,,$T$
00228 M00S00225.comdmac +++| .1 MICCNT .1
00229 M00S00226.comdmac +++| .2 SET XJSN/XINC-CH01/XINC
00230 M00S00227.comdmac +++| ERRPL .1-.2-1 TITLE EXTENDS INTO THE JSN AREA
00231 M00S00228.comdmac +++| .B IFLT .1,.2-6
00232 M00S00229.comdmac +++| DISPLA CH01,HL01,(T)
00233 M00S00230.comdmac +++| LDC XJSN
00234 M00S00231.comdmac +++| OAN CH+40
00235 M00S00232.comdmac +++| .B ELSE
00236 M00S00233.comdmac +++| .1 MICRO 1,.2,$T $
00237 M00S00234.comdmac +++| DISPLA CH01,HL01,(".1")
00238 M00S00235.comdmac +++| .B ENDIF
00239 M00S00236.comdmac +++| LDN 2
00240 M00S00237.comdmac +++| OAM. J,CH
00241 M00S00238.comdmac +++| .A ENDIF
00242 M00S00239.comdmac +++| DISPHD ENDM
00243 M00S00240.comdmac +++| DISPLA SPACE 4,10
00244 M00S00241.comdmac +++|*** DISPLA - DISPLAY DATA.
00245 M00S00242.comdmac +++|*
00246 M00S00243.comdmac +++|* DISPLA X,Y,(TEXT),HF
00247 M00S00244.comdmac +++|*
00248 M00S00245.comdmac +++|* ENTRY *X* = X-COORDINATE.
00249 M00S00246.comdmac +++|* *Y* = Y-COORDINATE.
00250 M00S00247.comdmac +++|* *TEXT* = TEXT TO BE DISPLAYED.
00251 M00S00248.comdmac +++|* *HF* = HIGHLIGHT FLAG.
00252 M00S00249.comdmac +++|*
00253 M00S00250.comdmac +++|* CALLS HIL.
00254 M00S00251.comdmac +++|*
00255 M00S00252.comdmac +++|* IF *X* OR *Y* ARE NOT PRESENT, TEXT
00256 M00S00253.comdmac +++|* WILL BE DISPLAYED AT THE CURRENT POSITION.
00257 M00S00254.comdmac +++|
00258 M00S00255.comdmac +++|
00259 M00S00256.comdmac +++| PURGMAC DISPLA
00260 M00S00257.comdmac +++|
00261 M00S00258.comdmac +++| DISPLA MACRO X,Y,T,HF
00262 M00S00259.comdmac +++| LOCAL J,K
00263 M00S00260.comdmac +++| MACREF DISPLA
| Line S00261 Modification History | |
|---|---|
M01 (Removed by) | dmac1 |
Seq # *Modification Id* Act ----------------------------+ 00264 M01S00261.dmac1 ---| QUAL 00265 M00S00262.comdmac +++| .1 IFC NE,*HF** 00266 M00S00263.comdmac +++| .2 IF DEF,RLO$ 00267 M00S00264.comdmac +++| LDC. K*10000+J 00268 M00S00265.comdmac +++| .2 ELSE 1 00269 M00S00266.comdmac +++| LDC K*10000+J 00270 M00S00267.comdmac +++| RJP HIL 00271 M00S00268.comdmac +++| .1 ELSE 2 00272 M00S00269.comdmac +++| LDN K 00273 M00S00270.comdmac +++| OAM J,CH
| Line S00271 Modification History | |
|---|---|
M01 (Removed by) | dmac1 |
Seq # *Modification Id* Act ----------------------------+ 00274 M01S00271.dmac1 ---| QUAL * 00275 M00S00272.comdmac +++| DIS RMT 00276 M00S00273.comdmac +++| QUAL 00277 M00S00274.comdmac +++| J BSS 0 00278 M00S00275.comdmac +++| IFNE X,,1 00279 M00S00276.comdmac +++| CON X 00280 M00S00277.comdmac +++| IFNE Y,,1 00281 M00S00278.comdmac +++| CON Y 00282 M00S00279.comdmac +++| DATA H$T$ 00283 M00S00280.comdmac +++| K EQU *-J 00284 M00S00281.comdmac +++| QUAL * 00285 M00S00282.comdmac +++| DIS RMT 00286 M00S00283.comdmac +++| DISPLA ENDM 00287 M00S00284.comdmac +++| DSUB SPACE 4,15 00288 M00S00285.comdmac +++|*** DSUB - DEFINE DISPLAY SUBROUTINE. 00289 M00S00286.comdmac +++|* 00290 M00S00287.comdmac +++|*A DSUB 00291 M00S00288.comdmac +++|* 00292 M00S00289.comdmac +++|* ENTRY *A* = SUBROUTINE NAME. 00293 M00S00290.comdmac +++|* *A_M545* = MACRO CONTAINING CC545 CODE. 00294 M00S00291.comdmac +++|* *A_M721* = MACRO CONTAINING CDC721 CODE. 00295 M00S00292.comdmac +++|* 00296 M00S00293.comdmac +++|* EXIT SUBROUTINE ASSEMBLED WITH CC545 CODE. 00297 M00S00294.comdmac +++|* CDC721 CODE PLACED IN *SRMT* REMOTE BLOCK. 00298 M00S00295.comdmac +++|* 00299 M00S00296.comdmac +++|* MACROS A_M545, A_M721, DFIM. 00300 M00S00297.comdmac +++| 00301 M00S00298.comdmac +++| 00302 M00S00299.comdmac +++| PURGMAC DSUB 00303 M00S00300.comdmac +++| 00304 M00S00301.comdmac +++| MACRO DSUB,A 00305 M00S00302.comdmac +++| LOCAL OC,LC,L1,L2 00306 M00S00303.comdmac +++| MACREF DSUB 00307 M00S00304.comdmac +++| A SUBR 00308 M00S00305.comdmac +++| OC SET *O 00309 M00S00306.comdmac +++| LC SET *L 00310 M00S00307.comdmac +++| LIST G 00311 M00S00308.comdmac +++| A_M721 00312 M00S00309.comdmac +++| LIST * 00313 M00S00310.comdmac +++| L1 SET *-LC 00314 M00S00311.comdmac +++| ORG OC 00315 M00S00312.comdmac +++| LOC LC 00316 M00S00313.comdmac +++| LIST G 00317 M00S00314.comdmac +++| A_M545 00318 M00S00315.comdmac +++| LIST * 00319 M00S00316.comdmac +++| L2 MAX L1,*-LC 00320 M00S00317.comdmac +++| ORG OC+L2 00321 M00S00318.comdmac +++| LOC LC+L2 00322 M00S00319.comdmac +++| DFIM A_M721,LC 00323 M00S00320.comdmac +++| DSUB ENDM 00324 M00S00321.comdmac +++| SPACE 4,10 00325 M00S00322.comdmac +++|*** THE FOLLOWING MACRO PAIRS ARE USED WITHIN THE *DSUB* 00326 M00S00323.comdmac +++|* MACRO TO GENERATE CONSOLE TYPE DEPENDENT CODE. 00327 M00S00324.comdmac +++| FNC SPACE 4,10 00328 M00S00325.comdmac +++|** FNC - ISSUE FUNCTION TO DISPLAY CONTROLLER. 00329 M00S00326.comdmac +++|* 00330 M00S00327.comdmac +++|* ENTRY (A) = FUNCTION CODE. 00331 M00S00328.comdmac +++|* 00332 M00S00329.comdmac +++|* EXIT (A) .LT. 0 IF CDC721 FUNCTION AND CC545 CONTROLLER. 00333 M00S00330.comdmac +++|* CHANNEL ACTIVE IF FUNCTION ISSUED. 00334 M00S00331.comdmac +++| 00335 M00S00332.comdmac +++| 00336 M00S00333.comdmac +++| PURGMAC FNCM545,FNCM721 00337 M00S00334.comdmac +++| 00338 M00S00335.comdmac +++| FNCM545 MACRO *** CC545 CODE *** 00339 M00S00336.comdmac +++| MACREF FNCM545 00340 M00S00337.comdmac +++| SHN 21-10 00341 M00S00338.comdmac +++| MJN FNCX 00342 M00S00339.comdmac +++| SHN 11 00343 M00S00340.comdmac +++| SCN 44 00344 M00S00341.comdmac +++| FAN CH 00345 M00S00342.comdmac +++| ZJN FNCX 00346 M00S00343.comdmac +++| ACN CH 00347 M00S00344.comdmac +++| UJN FNCX 00348 M00S00345.comdmac +++| FNCM545 ENDM 00349 M00S00346.comdmac +++| 00350 M00S00347.comdmac +++| 00351 M00S00348.comdmac +++| FNCM721 MACRO *** CDC721 CODE *** 00352 M00S00349.comdmac +++| MACREF FNCM721 00353 M00S00350.comdmac +++| ACN CH+40 00354 M00S00351.comdmac +++| SHN 17-13 00355 M00S00352.comdmac +++| OAN CH 00356 M00S00353.comdmac +++| FJM *,CH 00357 M00S00354.comdmac +++| UJN FNCX 00358 M00S00355.comdmac +++| FNCM721 ENDM 00359 M00S00356.comdmac +++| HIL SPACE 4,10 00360 M00S00357.comdmac +++|** HIL - HIGHLIGHT DISPLAY DATA. 00361 M00S00358.comdmac +++|* 00362 M00S00359.comdmac +++|* ENTRY (A) = 6/ BC,12/ SA. 00363 M00S00360.comdmac +++|* *BC* = BYTE COUNT FOR STRING. 00364 M00S00361.comdmac +++|* *SA* = STRING ADDRESS. 00365 M00S00362.comdmac +++|* 00366 M00S00363.comdmac +++|* USES T1, T2. 00367 M00S00364.comdmac +++|* 00368 M00S00365.comdmac +++|* MACROS CFNC. 00369 M00S00366.comdmac +++| 00370 M00S00367.comdmac +++| 00371 M00S00368.comdmac +++| PURGMAC HILM545,HILM721 00372 M00S00369.comdmac +++| 00373 M00S00370.comdmac +++| HILM545 MACRO *** CC545 CODE *** 00374 M00S00371.comdmac +++| MACREF HILM545 00375 M00S00372.comdmac +++| STM HILA 00376 M00S00373.comdmac +++| SHN -14 00377 M00S00374.comdmac +++| STD T2 00378 M00S00375.comdmac +++| LDN 2 00379 M00S00376.comdmac +++| STD T1 00380 M00S00377.comdmac +++| HIL1 LDD T2 00381 M00S00378.comdmac +++| OAM *,CH 00382 M00S00379.comdmac +++| HILA EQU *-1 00383 M00S00380.comdmac +++| SOD T1 00384 M00S00381.comdmac +++| PJN HIL1 00385 M00S00382.comdmac +++| UJN HILX 00386 M00S00383.comdmac +++| HILM545 ENDM 00387 M00S00384.comdmac +++| 00388 M00S00385.comdmac +++| 00389 M00S00386.comdmac +++| HILM721 MACRO *** CDC721 CODE *** 00390 M00S00387.comdmac +++| MACREF HILM721 00391 M00S00388.comdmac +++| STM HILB 00392 M00S00389.comdmac +++| SHN -14 00393 M00S00390.comdmac +++| STD T2 00394 M00S00391.comdmac +++| CFNC BIPF 00395 M00S00392.comdmac +++| LDD T2 00396 M00S00393.comdmac +++| OAM *,CH 00397 M00S00394.comdmac +++| HILB EQU *-1 00398 M00S00395.comdmac +++| CFNC EITF 00399 M00S00396.comdmac +++| UJN HILX 00400 M00S00397.comdmac +++| HILM721 ENDM 00401 M00S00398.comdmac +++| SPACE 4,10 00402 M00S00399.comdmac +++| ENDX
cdc/nos2.source/opl.opl871/common/comdmac.txt · Last modified: by 127.0.0.1