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