User Tools

Site Tools


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