MACRO                                                          00001000
         EDCB                                                           00002000
         PUSH  PRINT                                                    00002100
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002200
         PRINT OFF,NOGEN                                                00002300
.ACC01   ANOP                                                           00002400
*  USED BY CMS EDIT MODULES TO DEFINE COMMON FREE STORAGE CONTROL       00003000
*  BLOCKS.                                                              00004000
*                                                                       00005000
EDCB     DSECT                                                          00006000
         DS    0F                                                       00007000
         SPACE 1                                                        00008000
BLOC     EQU   *                                                        00009000
FNAME    DS    CL8            FILENAME                                  00010000
FTYPE    DS    CL8            FILETYPE                                  00011000
FMODE    DS    CL2   '        FILEMODE                                  00012000
FV       DS    CL1            RECORD FORMAT                             00013000
FLAG     DS    CL1            FLAGS FOR LINE MONITORING         HRC340F 00014000
FLAG2    DS    CL1            MISC. FLAGS                       HRC340F 00014010
CASESW   DS    CL1            CASE SETTING                              00015000
TRUNCOL  DS    H              COLUMN OF TRUNCATION                      00016000
ZONE1    DS    H              BEGINNING ZONE (INITIALIZE TO COL         00017000
ZONE2    DS    H              END ZONE                                  00018000
VERCOL1  DS    H              VERIFY COLUMN 1                           00019000
VERCOL2  DS    H              VERIFY COLUMN 2                           00020000
VERLEN   DS    H              VERIFY LENGTH                             00021000
LRECL    DS    H              LOGICAL RECORD LENGTH             HRC340F 00022100
TABS     DS    26AL1          A MAXIMUM OF 25 TABS IS ALLOWED   HRC340F 00022200
ENDTABS  EQU   *              END OF TABS                       HRC340F 00022300
SEQNAME  DS    CL3            NAME, IF NAY, FOR SERIALIZATION   HRC340F 00022400
CARDINCR DS    F              INCREMENT FOR SERIALIZATION               00023000
LMSTART  DS    H              WHERE LINE NUMS START                     00024000
LMINCR   DS    H              AUTO. LINE NUMS DEFAULT INCR.             00025000
SCRBUFAD DS    F              ADDR OF GETMAIN BUFFER            HRC340F 00026100
PADCHAR  DS    CL1            '0' ON RIGHT, ' ' ON LEFT                 00031000
ENDBLOC  EQU   *              END OF BLOCX                              00032000
         SPACE 1                                                        00033000
*** PADBUF MUST REMAIN DIRECTLY BEHIND PADCHAR ***                      00034000
PADBUF   DS    9C             PAD CHARACTERS                            00035000
         SPACE 1                                                        00036000
PTRCONS  EQU   *              SAME AS PTRCONS IN DMSEDI                 00037000
         SPACE 1                                                        00038000
PTR1     DS    2F             'TOP' POINTER (FOR DUMMY TOP LINE         00039000
PTR2     DS    F              CURRENT LINE POINTER                      00040000
PTR3     DS    F              POINTER TO BOTTOM LINE                    00041000
AEXTEND  DS    F              POINTER TO END OF USED AREA OF CO         00042000
CORITEM  DS    F              NUMBER OF BYTES FOR ONE LINE IN C         00043000
SPARES   DS    F              NUMBER OF SPARE LINES                     00044000
FPTR     DS    F              FREE-LIST POINTER                         00045000
ITEM     DS    F              ITEM LENGTH                               00046000
         SPACE 1                                                        00047000
AFSTFNRD DS    F              ANCHOR FOR STACKED LINES UPON ENT         00048000
         SPACE 1                                                        00049000
FREELEN  DS    F              LENGTH OF FREE STORAGE                    00050000
FREEAD   DS    F              ADDRESS OF FREE STORAGE                   00051000
EDRET    DS    F              CMS RETURN ADDRESS                        00052000
EDMSK    DS    F              DMSSCR EDIT MASK                          00053000
MAINAD   DS    F              LOADSYS ADR / 0 IF LOADMOD                00054000
         SPACE 1                                                        00055000
EPTRCONS EQU   *                                                        00056000
         SPACE 1                                                        00057000
AUTOREG  DS    13F            AUTOCHEK SAVE AREA                        00058000
CARDNO   DS    F              SEQ.NO.SAVE AREA                          00059000
COUNT    DS    F              NUMBER OF CHARS IN EDLIN                  00060000
LMCURR   DS    2F             PROMPTER CURRENT LINE NO.                 00061000
         SPACE 1                                                        00063000
BUFFL    DS    F              LENGTH OF STRING (EDC)                    00064000
BUFFA    DS    F              ADR OF STRING (EDC)                       00065000
CANSAV   DS    9F             REGISTER SAVE (EDC)                       00066000
DUALNOS  DS    CL240          TEMP STRING BUFFER (EDC)                  00067000
         SPACE 1                                                        00068000
         DS    0D                                                       00069000
DECIMAL  DS    F              USED BY DECBIN & BINDEC                   00070000
HALF     DS    F              BINDEC ONLY EDITS 4 CHARS                 00071000
REGSAV   DS    5F             REGISTER SAVE AREA                        00072000
REGSAVX  DS    3F             REGISTER SAVE AREA                        00073000
REPCNT   DS    F              'FOR' COUNT                               00074000
SAVEAR   DS    15F            DMSSCR SAVE AREA                          00075000
XYCNT    DS    F              X OR Y EXECUTION COUNT                    00076000
CHNGNUM  DS    F              NO. OF LINES TO CHANGE                    00077000
REG14    DS    F              USED TO SAVE R14                  HRC340F 00077010
LOC14    DS    A                                                HRC340F 00077020
TUBEFLAG DS    X              VIRTUAL CONSOLE IS TUBE           HRC340F 00077030
ERRFLAG   DS    X              USED FOR ERROR                   HRC340F 00077040
HLDPTR2  DS    F                                                HRC340F 00077050
HLDLINNO DS    H                                                HRC340F 00077060
         SPACE 1                                                        00078000
TIN      DS    0F             WAITRD PLIST                              00079000
         DS    CL8            'WAITRD'                                  00080000
         DS    X              '1' FOR CONSOLE NO. 1                     00081000
AEDLIN   DS    3X             A(EDLIN)                                  00082000
CASEREAD DS    C              DEFAULT TO UPPER CASE                     00083000
         DS    3X             LENGTH PUT HERE                           00084000
         SPACE 1                                                        00085000
TOUT     DS    0F             TYPLIN PLIST                              00086000
         DS    CL8            'TYPLIN'                                  00087000
         DS    X              '1' FOR CONSOLE NO. 1                     00088000
         DS    3X             ADDRESS GOES HERE                         00089000
         DS    C              'B' FOR BLACK RIBBON                      00090000
TYPFLG   DS    X              X'20' MAX LENGTH OVERRIDE                 00091000
         DS    H              LENGTH GOES HERE                          00092000
CRBIT    EQU   X'80'          SUPPRESS CARRIAGE RETURN                  00093000
         SPACE 1                                                        00094000
IOLIST   DS    0F             (INITIAL. FOR 'STATE' OF SOURCE)          00095000
         DS    CL8            'STATE'                                   00096000
IOID     DS    CL8            'EDIT'                                    00097000
         DS    CL8            'CMSUT1'                                  00098000
IOMODE   DS    CL2            'A1'                                      00099000
         DS    H                                                        00100000
IOAD     DS    CL4            '****' DON'T ALLOW '*'S                   00101000
         DS    F              '133' (XINSCRIPT USE 'LINE')              00102000
*CMPFLG   EQU  PLSTFLGS                                         HRC340F 00102010
         DS    CL2                                                      00103000
RECS     DS    H              '1' (XINSCRIPT 1 LINE AT A TIME)          00104000
         DS    F                                                        00105000
         SPACE 1                                                        00106000
ALTLIST  DS    0F                                                       00107000
         DS    CL8            'RENAME'                                  00108000
EDWORK   DS    CL8            'EDIT'                                    00109000
         DS    CL8            'CMSUT1'                                  00110000
ALTMODE  DS    CL8            'A1'                                      00111000
         DS    CL8                                                      00112000
         DS    CL8                                                      00113000
         DS    CL2            '*'                                       00114000
         DS    CL6                                                      00115000
         DS    8X             'FF'  FENCE                               00116000
         SPACE 1                                                        00117000
STACKAT  DS    0F             PLIST TO STACK FIFO                       00118000
         DS    CL8            'ATTN'                                    00119000
         DS    CL4            'FIFO'                                    00120000
STACKATL DS    F              LGTH & ADR OF LINE TO STACK               00121000
         SPACE 1                                                        00122000
ATTN     DS    0F                                                       00123000
         DS    CL8            'ATTN'                                    00124000
         DS    CL4            'LIFO'                                    00125000
ATTNLEN  DS    F              LGTH & ADR OF LINE TO STACK               00126000
         SPACE 1                                                        00127000
RENLIST  DS    0F             RENUM PLIST                               00128000
         DS    CL8            'RENUM'                                   00129000
RPLIST   DS    CL12           FILEID                                    00130000
STRTNO   DS    F              STARTING NUMBER                           00131000
INCRNO   DS    F              INCREMENT NUMBER                          00132000
AINCORE  DS    F              INCORE COPY ADDRESS                       00133000
FSIZE    DS    F              RECORD LENGTH                             00134000
         SPACE 1                                                        00135000
DECLTH   DS    D              DMSSCR WORK AREA                          00136000
RANGE    DS    D              MESSAGE DATA AREA                         00137000
         SPACE 1                                                        00138000
RESVD1   DS    D              RESERVED FOR FUTURE USE          @VA05027 00139100
CMDBLOK  DS    X              X'19'                                     00140000
BUFAD    DS    3X             BUFFER ADDRESS                            00141000
FLG      DS    X              CCW FLAG                                  00142000
CTL      DS    X              CONTROL BYTE                              00143000
WRCOUNT  DS    H              WRITE COUNT                               00144000
         SPACE ,                                                HRC340F 00144010
*                                                               HRC340F 00144015
         SPACE 3                                                HRC340F 00144020
RUNLVL   DC    F'0',F'1'      LEVEL OF RUN DEPTH, CONSTANT      HRC340F 00144025
RUNSAVE  DS    1F             SAVE RETURN CODE WHILE QUITTING   HRC340F 00144030
QUITFLG  DS    1X             NORMAL EXEC QUIT FLAG             HRC340F 00144035
AAFREEST  DS   F    ADDR OF CURR. RUN FREE STORAGE              HRC340F 00144040
ANEXT     DS   F    ADDR. OF 'NEXT' IN EDIT                     HRC340F 00144045
AEDLIN1  DS    F              ADDR. OF EDLIN (4 BYTE FORM)      HRC340F 00144050
ATRNSTBL DS    F              ADDR. OF SETCHAR TRANS. TBL.      HRC340F 00144055
LASTPUT  DS    CL18           'EDIT    CMSUT2  A1'              HRC340F 00144060
PUTCNT   DS    H                                                HRC340F 00144065
GETPUT   DS    X              'FF' -0 LAST USE A GET FF LAST USE G928C0 00144070
GETORPUT DS    X              '0' INTERNAL COMMUNICATION FLAG   HRC340F 00144075
LASTGET  DS    CL18           FID OF LAST NON-STANDARD GET      HRC340F 00144080
LASTCNT  DS    2H             LINE COUNT AND NUMBER             HRC340F 00144085
PFSETCMD DS    CL6            'SET PF'                          HRC340F 00144090
PFTABNO  DS    CL2                                              HRC340F 00144095
         DS    CL5            'TAB'                             HRC340F 00144100
PFTABSET DS    (ENDTABS-TABS)CL4     '    '                     HRC340F 00144105
COLLINUM DS    1X             LINE NUMBER FOR GRAPHIC COLUMN DISPG928C0 00144110
GLOBAL   DS    CL5            RECURSION LEVEL FOR &GLOBAL       HRC340F 00144115
GLOBAL0  DS    10PL5          GLOBAL VARIABLES FOR RUN FILES    HRC340F 00144120
         DS    2D             RESERVED                          HRC340F 00144125
FWDPNT   DS    1F             EDCB FORWARD POINTER              HRC340F 00144130
BACKPNT  DS    1F             BACK POINTER FOR MULTI-LVL        HRC340F 00144135
NUMSTRSV DS    2F             SAVE AREA FOR NUMSTAR             HRC340F 00144140
         DS    3X             RESERVED                          HRC340F 00144145
EDITLVL  DS    X              CURRENT EDIT LEVEL (EBCDIC)       HRC340F 00144150
LINSTART DS    F              ADDR. OF START OF LINE STORAGE    HRC340F 00144155
COLBUF   DS    F              BUFR ADDR OF COLUMN DISPLAY LINE  HRC340F 00144160
         SPACE 1                                                        00145000
GIOPLIST DS    0F             DMSSCR PLIST FOR DMSGIO                   00146000
BUFFLOC  DS    F              BUFFER LOCATION                           00147000
ALINELOC DS    F              A(LINELOC)                                00148000
ANUMLOC  DS    F              A(NUMLOC)                                 00149000
AFLAGLOC DS    F              A(FLAGLOC)                                00150000
         SPACE 1                                                        00151000
TRNCNUM  DS    F              NO. OF LINES TRUNCATED           @VA04193 00151500
AUTOCNT  DS    H              AUTOSAVE PARAMETER                        00152000
AUTOCURR DS    H              CURRENT MODIFICATION COUNT                00153000
CHNGCNT  DS    H              TEMP AREA FOR CHANGE                      00154000
DITCNT   DS    H              NO. LINES STACKED BY DITTO                00155000
         SPACE 1                                                        00156000
EDCT     DS    H              NEXT CHAR IN EDLIN                        00157000
LINELOC  DS    H              DISPLAY LINE NUMBER                       00158000
NUMLOC   DS    H              DISPLAY COUNT                             00159000
SAVCNT   DS    H              SPOT TO SAVE COUNT FOR DITTO              00160000
TVERCOL1 DS    H              TEMP AREA FOR VERIFY COL 1                00161000
TVERCOL2 DS    H              TEMP AREA FOR VERIFY COL 2                00162000
ALCHAR1  DS    C              TEMP USED BY ALTER                        00163000
ALCHAR2  DS    C              ANOTHER ONE                               00164000
         SPACE 1                                                        00165000
AREA     DS    CL8            EDIT INSTRUCTION WORK                     00166000
BYTE     DS    X              TEMP (USED BY GET )                       00167000
CHNGFLAG DS    X              FLAG FOR CHANGE                           00168000
CHNGMSG  DS    CL20           LINES CHANGED MSG                         00169000
         DS    2X             C', '                            @VA04193 00169200
CHGTRUNC DS    13X            C'.... LINE(S) '                 @VA04193 00169400
         DS    9X             C'TRUNCATED'                     @VA04193 00169600
         SPACE 1                                                        00169800
CMODE    DS    CL4            FILEMODE FOR MODECHK ROUTINE              00170000
         SPACE 1                                                        00171000
FILEMS   DS    CL26           RETRY MESSAGE                             00172000
FLAGLOC  DS    X              FLAG FOR DMSGIO                           00173000
GETFLAG  DS    X              FLAG FOR GETFILE                          00174000
HOLDFLAG DS    X              DMSSCR 'SCRFLGS'                          00175000
JAR      DS    (ENDBLOC-BLOC)AL1  SAVE AREA FOR PRESERVE                00176000
NEWNAME  DS    CL8            NAME AREA FOR FILE & SAVE                 00177000
NEWTYPE  DS    CL8            TYPE AREA FOR FILE & SAVE                 00178000
         SPACE 1                                                        00179000
NEWMODE  DS    CL2            MODE AREA FOR FILE & SAVE                 00180000
SERSAV   DS    CL8            SERIAL NO.SAVE AREA                       00181000
SERTSEQ  DS    CL3            TEMP SERIAL AREA                          00182000
SERTSW   DS    X              TEMP USED BY SERIAL                       00183000
         SPACE 1                                                        00184000
SIGNAL   DS    X              SIGNAL BETWEEN ROUTINES                   00185000
SIGNAL2  DS    X              ADDITIONAL FLAG FOR GET           HRC340F 00185010
TEMPTAB  DS    (ENDTABS-TABS)AL1  TEMP SPOT FOR NEW TABS                00186000
UTILFLAG DS    X              DMSSCR UTILITY FLAGS                      00187000
XYFLAG   DS    X              X/Y ACTIVE FLAG                           00188000
         SPACE 1                                                        00189000
SCRFLGS  DS    X              SCREEN FUNCTION FLAGS                     00190000
SCRFLG2  DS    X              MORE SCREEN FUNCTION FLAGS                00191000
SCLNO    DS    8C             SAVE LINEMODE SEQ NO.                     00192000
TWITCH   DS    X              LOCATION FLAGS                            00193000
TYPSCR   DS    X              DISPLAY SIZE INDEX VALUE                  00193100
         SPACE 1                                                        00194000
XAREA    DS    H              'X' LENGTH AND REQUEST BUFFER             00195000
         DS    CL135          (SAME LENGTH AS EDLIN)                    00196000
         SPACE                                                          00197000
YAREA    DS    H              'Y' LENGTH AND REQUEST BUFFER             00198000
         DS    CL135          (SAME LENGTH AS EDLIN)                    00199000
         SPACE 1                                                        00200000
         CNOP  6,8            ALIGNMENT FOR XXXCWD                      00201000
         DS    X              MORE ALIGNMENT                            00202000
BLANK1   DS    X              BLANK FOR CLEARING XXXCWD                 00203000
XXXCWD   DS    CL8            EDIT TOKEN BUFFER                         00204000
SAVCWD   DS    CL8            SPOT TO SAVE XXXCWD                       00205000
         SPACE 1                                                        00206000
INVLDHDR DS    CL6            '?EDIT:' FOR INVALID REQUEST MSG @VA04377 00206250
MACROHDR DS    CL4            'EXEC' FOR EDIT MACRO STACKING   @VA04377 00206500
INVLD    DS    0CL6'?EDIT:'   SPOT TO HOLD INVLDHDR            @VA04377 00206750
         ORG   INVLD+2                                         @VA04377 00207000
MACRO    DS    0CL4'EXEC'     SPOT TO HOLD MACROHDR (IN INVLD) @VA04377 00207250
         ORG   MACRO+4                                         @VA04377 00207500
         DS    C              BLANK USED FOR CLEARING EDLIN    @VA04377 00207750
EDLIN    DS    CL135          TERMINAL INPUT BUFFER                     00208000
         SPACE 1                                                        00209000
LINENO   DS    CL5            LINE NO. FOR TYPEOUT                      00210000
BLANK2   DS    X              BLANK FOR CLEARING LINE                   00211000
LINE     DS    CL160          CURRENT LINE IS HELD HERE                 00212000
BLANK3   DS    X              BLANK FOR CLEARING TABLIN                 00213000
TABLIN   DS    CL160          OUTPUT FROM SPREAD                        00214000
LINENUM  DS    H              FOR LINENUMB AND CLOSE,ETC.       HRC340F 00214010
         SPACE 1                                                        00215000
EDCBEND  DS    0D                                                       00216000
EDCBLTH  EQU   (EDCBEND-EDCB) LENGTH OF EDCB WAW                        00217000
         POP   PRINT                                                    00217100
         MEND                                                           00218000