************************************************************ 00200000 * VS1 RELEASE 3 CHANGES 00250001 *A418600 OX00224 00300001 * VS1 RELEASE 3.1 CHANGES 00350003 *A150960 OX04106 00360003 *A405500,407520 @OX07230 00370005 *A046200-046420 @OZ06551 00380006 *D046100 @OZ06551 00390006 *C042000 @OZ06551 00392006 *A389720 @AY11215 00392106 ERRMESS DSECT DSECT DEFINED FOR ERRSTK 00400000 *********************************************************************** 00600000 EMSGSVTY DS C ERROR MSG SEVERITY CODE 00800000 EMSGCODE DS C ERROR MSG CODE 01000000 EMSGHL EQU *-EMSGSVTY ERROR MSG ENTRY ADD-ON LENGTH 01200000 ENTRYLNG DS C ERROR MSG ENTRY LENGTH 01400000 EMSGNTRY DS CL8 ERROR MSG ENTRY 01600000 ERMEND EQU *-ERRMESS 01800000 EJECT 02000000 ************************************************************ 02200000 EDSECT DSECT , EDIT PHASE COMMON AREA 02400000 ************************************************************ 02600000 USING EDSECT,MODCOMM EDSECT BASE REGISTER 02800000 EDSCTGO EQU * BEGIN OF MODULE COMMON AREA 03000000 SWITCH1 DSW SMDEF, WITHIN MAC DEF (SET BY MACRO) X03400000 SXPRTO, PROTO EXPECTED (SET BY MACRO) X03600000 SMISCN, RETURN TO MISCAN X03800000 SNOPSYN, OPSYN NO LONGER ALLOW @OZ06551X04200006 SUBLERR, SUBLIST IN ERROR @OZ06551X04620006 ENDSUBL, END OF SUBL IN MI-SCAN @OZ06551X04630006 ALTERN IN ALTERNATE FORM @OZ06551 04640006 * @OZ06551 04642006 SWITCH2 DSW SONECD, READ ONE CARD (REPRO) X04650000 SBYCNT, BYPASS ALL CONTINUATIONS X04700000 SONECT, READ ONE CONTINUATION X04750000 SALLCT, READ ALL CONTINUATIONS X04760000 SBYONE, BYPASS ONE CARD IN EDITED FORM X04770000 , X04780000 SCTLRTN, RETURN TO CALLER X04780400 SNOPND RETURN TO CALLER 04790000 * 06200000 SWITCH3 DSW SCMTCT, COMMENTS CONTINUED X06400000 SNXTCT, NEXT CD CNT'N OF THIS CD X06600000 SPRVCT, THIS CD CNT'N OF PREVIOUS CD X06800000 SLSTCD, LAST CARD X07000000 SINEOF, EOF ON SYSTEM INPUT X07200000 SGBLCL, PROC'G GBLX, LCLX STMT X07400000 SMI, EDITING MACRO INSTRUCTION X07450000 SUBSOP SUBSTITUTED OP CODE FOUND 07600000 * 07800000 SWITCH4 DSW SPGRMD, PROCESSING PROGRAMMER MACRO X08000000 SOPNCD, IN OPEN CODE X08200000 SSYSMD, IN SYSTEM MACRO DEFINITION X08400000 SICTL, ICTL PROCESSED IN THIS RUN X08450000 SNOACTR, X08500000 SABORT, X08600000 SKPMND, SKIP TO MEND X09200000 SKPEND SKIP TO END 09400000 * 09410000 SWITCH5 DSW SCOPY, COPY STATEMENT X09450000 SXMCRO, EXPECT MACRO (EDITING SYS MD'S)X09500000 SFSTCD, READ FIRST CARD X09510000 SDINIT, PREPARE TO INIT./CLOSE D'S X09520000 SDENT, PREPARE TO MAKE D ENTRY X09522000 SUPDNT, SUPPRESS DIRECTORY ENTRY X09530000 SMDDENTR, MDD ENTRY MADE FOR THIS MACRO X09596502 AMPER AMPERSAND IN SUBLIST 09598502 * 09600000 SWITCH6 DSW SUBLST, PROCESSING SUBLIST X09800000 POSSUBL, FIRST SCAN OF SUBLIST CANDIDATEX09802000 SCNCAT, CONCATENATION IN OPERAND X09850000 SKWPRM, PROCESSING KEYWORD PARAMETER X10400000 PROTOCAL, EDITING PROTO/MACRO CALL X10600000 SKPNAME, SKIP TO OP CODE FIELD X10650000 SPRMER, PARAMETER ERROR X10800000 SENDST END STATEMENT ENCOUNTERED 11000000 * 11200000 SWITCH7 DSW SNMFND, NAME FOUND X13000000 SNOFND, FIELD NOT FOUND X13200000 SNOSMCRO, NO MACRO STMT IN SYS MAC DEF X13250000 SBDPROTO, BAD PROTOTYPE STATEMENT X13300000 SNOSYSMD, SYSTEM MAC DEF NOT FOUND X13350000 SDTCMT, .* TYPE COMMENTS X13400000 SASTCMT, * TYPE COMMENT X13450000 STRCMT * TYPE COMMENT 13500000 * 14000000 SWITCH8 DSW ,,,,, DO NOT USE X14200000 SENAME, EDITING NAME FIELD X14400000 SEOPCD, EDITING OPERATION FIELD X14600000 SEOPND EDITING OPERAND FIELD 14800000 * 15000000 SWITCH9 DSW SINCPY, IN COPY CODE X15050000 SISEQ, SEQ CHECK (SET BY ISEQ) X15080000 SNOCNT, CNT'N NOT ALLOWED (SET BY ICTL)X15092000 SMAC, MACRO STMT COPIED AT THIS LEVELX15094003 AMPER1 VARIABLE SYM IN POSSUBL OX04106 15096003 * 15100000 AOTSW DSW AOEND, END STATEMENT X15200000 AOMEND, MEND STATEMENT X15250000 AICOPY, ICTL/COPY STATEMENT X15300000 AOPSYN, OPSYN STATEMENT X15350000 AOCOPYX, ILLEGAL WITHIN COPY CODE X16000000 AOMACROX, ILLEGAL WITHIN MACRO DEF X16200000 AOPENCDX, ILLEGAL WITHIN OPEN CODE X16400000 AOKBTNPM ALLOWED BETWEEN PROG'R MACROS 16600000 * X0 = ALLOWED ANYWHERE 16800000 * 17000000 GSCNSW DSW GQST, ODD QUOTE CHECKER X17050000 GSUBS, FIELD NEEDS SUBSTITUTION X17060000 GAIF, AIF STATEMENT BEING SCANNED X17070000 METSW META TEXT INDICATION 17080000 * 17100000 PARMSTAT DSW DMIENT, ENTERED FROM MIPRTOIN ROUTINE X17200000 DUMOPND, OPERAND TREATED AS DUMMY X17250000 DSDTX, DISALLOW SDT X17600000 DLPRN, LEFT PARENTHESIS WAS READ X17650000 DECMA, END OPERAND - COMMA PASSED X17700000 DEEQL, END OPERAND - EQUAL SIGN PASSEDX17750000 DQUOT, ODD QUOTE STATUS X17800000 DNOCRD NEW CARD WAS READ 18000000 * 18200000 NAMBYT DSW NQTSTG, QUOTED STRING X18400000 NNALFA, FIRST CARD NOT ALPHA X18450000 NCNCAT, CONCATENATION X18500000 NMPURE, IMPURITY (PASSED END COLUMN) X19200000 NNTGER, INTEGER (DECIMAL) X19210000 NOSYM, O SYM X19250000 NSSYM, SEQUENCE SYMBOL X19300000 NVSYM V SYM 19350000 * 19600000 GSUMRY DSW RQTSTG, QUOTED STRING X19800000 RNALFA, FIRST CHARACTER NOT ALPHA X20000000 RCNCAT, CONCATENATION X20200000 RMPURE, IMPURITY (PASSED END COLUMN) X20600000 RNTGER, INTEGER (DECIMAL) X20650000 ROSYM, ORDINARY SYMBOL X21250000 RSSYM, SEQUENCE SYMBOL X21300000 RVSYM VARIABLE SYMBOL 21350000 * BLANK = ALL ZEROS 21360000 * 21370000 SPACE 3 21400000 MSERR DSW MXVS, INVALID VARIABLE SYMBOL X21450000 MXRPRN EXCESSIVE RIGHT PARENTHESES 21500000 SDENTR DS C DIRECTORY ENTRY INDEX 21550000 SDENTR1 DS C DIR INDEX FOR EXTRN/WXTRN OPND 23550000 DDNDX DS H D ENTRY INDEX 26200000 DDNDX1 EQU DDNDX+1 D ENTRY INDEX 26400000 DSTGEND DC A(0) DESTINATION AREA END PLUS 1 26450000 ENDATA DC A(0) END OF DATA IN WORK BUFFER 26500000 FPTRSV DC A(0) FIELD POINTER SAVE AREA 28400000 INPUT DC A(0) INPUT WORK BUFFER ADDRESS 28450000 IPTRSV DC A(0) INPUT BUFFER ADDRESS SAVE AREA 28500000 IRTNSV DC A(0) RETURNED ADDRESS SAVE AREA 28550000 OUTADR DC A(0) OUTPUT BUFFER LOCATION 28560000 VECPTR DS F PARAM VECTOR POINTER SAVE AREA 29600000 FSTGL DS F BEGIN OF STRING (PARAM) 29650000 AERRSTK DC A(ERRSTK) ERROR MSG STACK ADDRESS 29700000 ESTKNDX DC A(0) ERROR MSG STACK INDEX 29750000 DSTGBGN DS F DESTINATION AREA POINTER 29760000 DSTGADJ DS F DEST. AREA POINTER AFTER ADJ. 29770000 DSTGNDX DS F DESTINATION AREA INDEX 29780000 STGNDX DS F DISPATCH AREA INDEX 29790000 EDTSVX DS F RETURN/TLINK REG SAVE 29792000 EDTSVY DS F RETURN POINTER SAVE AREA 29794000 EDTSVZ DS 5F R15,R3 SAVE AREA 29796000 OCPTRSV DS F OP CODE POINTER SAVE AREA 29798000 INTERMET DS F INTERMEDIATE LOCATION IN MT 29798100 MEZZOPTR DS F INTERMEDIATE LOC IN WORK AREA 29798200 OPNDPTR DS F OPERAND FIELD POINTER SAVED 29798400 RTNSV DS F POINTER SAVE AREA 29798500 MIOPNDSV DS F 29798800 ********************DO NOT CHANGE ORDER OF NAMP AND NAML*********** 29807900 NAMP DS F SYMBOL LOCATION POINTER 29825000 NAML DS F MOVE LENGTH OF THE SYMBOL 29833300 ******************************************************************* 29835300 NAMP1 DS F SYMBOL PTR TO EXTRN/WXTRN OPND 29836300 NAML1 DS F ADDT'L SYMBOL LENGTH SAVE AREA 29837300 NOTESV1 DS F NOTED VALUE SAVE AREA 1 29849900 NOTESV2 DS F NOTED VALUE SAVE AREA 29859900 SEQSV DC XL40'00' SEQ FIELD SAVE AREA 34000000 COPYSV1 EQU SEQSV 34200000 COPYSV2 DS F SWITCH SAVE AREA 34400000 COPYSV2A EQU COPYSV2+1 . 34600000 COPYSV2B EQU COPYSV2A+1 . 34800000 COPYSV2C EQU COPYSV2B+1 . 35000000 COPYSV3 DS 7F ICTL FORMAT SAVE AREA 35200000 COPYSV4 DS 6F 35400000 HICVAL DS F SDT HIGH CHAR VAL 35600000 HICVAL1 EQU HICVAL+1 SAVE AREA 35800000 HICCNT EQU HICVAL+2 MAX CHAR COUNT SAVE AREA 36000000 TBGLN DS F PREBEGIN STRING LENGTH 36200000 TSRCLN DS F DATA PORTION TRUE LENGTH 36400000 TCNTLN DS F CONTINUATION FLD TRUE LENGTH 36600000 PBGLEN DS F PREBEGIN STRING LENGTH MINUS 1 36800000 PNDLEN DS F POSTEND STRING LENGTH MINUS 1 37000000 ENDCOL DS F END COLUMN MINUS 1 37200000 ENDCOL3 EQU ENDCOL+3 37400000 SMACNAM DS CL8 MACRO NAME SAVE AREA 38000000 COPYCODE DS CL8 COPY CODE 38200000 COPYLN DS H COPY CODE LENGTH 38400000 DSTGLN DS H STRING LENGTH 38600000 OCSAVE DS H INTERNAL OP CODE SAVE AREA 38850000 PRNLVL DS H PAREN LEVEL COUNTER 38900000 PRNLVL1 EQU PRNLVL+1 38950000 FLAGBT DS C FLAG BYTE SAVE AREA 38952000 DTLENG DS H DATA LENGTH 38966000 OPNDCTR DS H OPERAND COUNTER 38968000 OPNDC1 EQU OPNDCTR+1 OPERAND COUNTER 38970000 PARML DS H TOTAL PARM TEXT LENGTH @AY11215 38972006 MINDIF DS H DIF BETWEEN MINPUT AND INPUT 38980000 MTXTP DS F MI/PROTO META TEXT POINTER 38990000 MINPUT DS F CURRENT MI DATA AREA POINTER 38992000 MINPSTD DS F STANDARD MINPUT SAVED 38994000 STNPSTD DS F STANDARD INPUT SAVED 38996000 MINPADJ DS F ADJUSTED MINPUT SAVED 40200000 STNPADJ DS F ADJUSTED INPUT SAVED 40400000 OPCDPTR DS F OP CODE FIELD POINTER 40450000 ENDWKA DS F END OF DATA AREA PLUS 1 40500000 ENDWKADJ DS F ADJUSTED 'ENDWKA' @OX07230 40550005 MREGSV DS F EDSECT BASE REG SAVED 40600000 SVENDWKA DS F SAVE END OF DATA AREA+1 40604000 COLCTR DS F COLUMN COUNTER 40610000 CRDCTR EQU COLCTR+2 CARD COUNTER 40650000 OFPTRSV DS F INDEXP SAVE AREA 40700000 SVMINDIF DS H SAVE STANDARD MINDIF 40750000 MINDFADJ DS H ADJUSTED 'MINDIF' @OX07230 40752005 LASTFIND DS CL8 LAST FOUND COPY MEMBER 40760001 SPACE 40800000 * THE FOLLOWING 7 CONSTANTS MUST BE IN THE PREARRANGED SEQUENCE 41000000 RAVSP DC A(RSTACK) 1 RSTACK NEXT AVAILABLE LOCATION 41200000 NRSTK DC A(RSTACK+L'RSTACK) 2 END OF RSTACK + 1 41400000 RSTACK DS CL200 3 MAXIMUM OF 25 ENTRIES 41600000 CSTK DS CL(6*(L'JNOTEVAL+9)) 4 COPY CODE RECURSION STACK 41800001 CSTKX EQU * 41810000 DS 0F 41812000 NCSTK DC A(CSTK+L'CSTK) 5 ENDING ADDRESS OF CSTK+1 41820000 BCSTK DC A(CSTK) 6 CSTK BEGIN ADDRESS 41830000 CSTKADR DC A(CSTK) 7 CSTK NEXT AVAILABLE LOCATION 41840000 SAVMALL DS 16F REGISTER SAVE AREA 41842000 TPSAVE EQU SAVMALL 41850000 TPSAVE1 EQU SAVMALL+4 OX00224 41860001 ERRCNT DS H ERROR MSG COUNT - MAX 5 MSGS. 41900000 ERRCNT1 EQU ERRCNT+1 41950000 ERRSTK DS CL(ERMEND*6) ERROR MSG STACK 41960000 * WORKSPACE FOR POSTFIX ROUTINE 43400000 SVLAST DS F LAST STACK ELEMENT POINTER 43600000 ALAST DS F START OF STACK--CONSTANT 43800000 TEMP EQU * PRE-STACK ENTRY 44000000 TEMPOP DS C OPERATOR 44200000 TEMPBIND DS C BINDING FACTOR 44400000 SPACE 44600000 STACK DS 36H MAXIMUM OF 35 OPERATORS IN X44800000 STACK ( 5+ PAREN LEVELS) 45000000 SPACE 3 45200000 DS 0H 45250000 VSFLG DC H'0' SET VAR TYPE SAVED FOR NAME 45300000 VSTAT EQU VSFLG+1 45350000 STGCNT DC X'00' STRING COUNTER 45360000 CNTCTR DC X'00' CONTINUATION CARD COUNTER 45370000 SEQSVT DC 40X'00' SEQ FIELD - COMPARE V. SEQSV 45380000 SPACE 3 45390000 DS 0F 45392000 ADJSV DS F RETURN POINTER SAVED HERE 45394000 VSRSV DS F VSRTN RETURN LINKAGE 45396000 VSRSV1 DS F HEADER DATA POINTER 45398000 MPOPSV DS F MPOPND ROUTINE RETURN LINKAGE 45398400 NEXPSV DS F RETURN LINKAGE SAVED 45398800 SUBSAVE DS 2F MPOPSV/NEXPSV SAVE AREA 45398900 REGSAVE3 DS F REGISTER SAVE AREA 45399000 SPACE 3 45399200 DS 0H 45400000 DNTERR DS CL10 45600000 * BAL TLINK,SNAPERR LOG ERROR 45800000 ORG DNTERR+4 REDEFINE 46000000 DC AL2(2) WRNERR ENTRY CODE 46200000 DSEVCD DC AL1(0) SEVERITY CODE 46400000 DERRCD DC AL1(0) ERROR CODE 46600000 * BR RETURN RETURN TO CALLER 46800000 ORG 47000000 ENDDNTL EQU *-DNTERR 47200000 SPACE 3 47600000 *********************************************************************** 47800000 * 48000000 * START OF EDIT PHASE COMMON INITIALIZED BY THE EDIT PHASE 48200000 * DICTIONARY ROUTINES 48400000 * THE PORTION OF COMMON BOUNDED BY DICTCOMS-DICTCOME IS INITIALIZED 48600000 * AT THE START OF THE EDIT PHASE BY PHASENT 48800000 DICTCOMS EQU * 49000000 FREESTRT DS F PTR TO START OF DICT WORK AREA 49200000 VSDSTRT DS F PTR TO START OF VARB SYMB DIR 49400000 MDDSTRT DS F PTR TO START OF MACR DEFN DIR 49600000 SSPARMS EQU * BASE FOR SEQ SYMB REFER CONSTNT 49800000 SSRDSTRT DS F PTR TO START OF SEQ SYMB REF DT 50000000 VSDSLOT DS F PTR TO NEXT AVAIL VSD ENTRY 50200000 OSPARMS EQU * BASE FOR ORD SYMB REFER CONSTNT 50400000 OSRDSTRT DS F PTR TO START OF ORD SYMB REF DT 50600000 MDDSLOT DS F PTR TO NEXT AVAIL MDD ENTRY 50800000 CURMDDPT DS F PTR TO CURRENT MDD ENTRY 51000000 REGSAVE1 DS F REGISTER SAVE AREA 51200000 GTMVALOC DS F MACRO DEFINITION VECTOR LENGTH 51400000 HIBYTE0 DS F FULL WORD WORK AREA 51600000 MDDCHN DS F MASTER LINK, CHAINED MOD ENTRYS 51800000 MDDCNT DS F NUMBER OF MDD ENTRYS 52000000 OPSCHN DS F MASTER LINK, CHAINED OPSYN ENTR 52200000 * THE PORTION OF COMMON BOUNDED BY MDINITS-TSINITE IS REINITIALIZED 52600000 * FOR EACH MACRO DEFINITION TEXT SEGMENT BY MACRENT. 52800000 MDINITS EQU * 53000000 GTPVALOC DS F POSITIONAL PARAM VECTOR LENGTH 53200000 GTKVALOC DS F KEYWORD PARAM VECTOR LENGTH 53400000 * THE PORTION OF COMMON BOUNDED BY OCINITS-TSININTE IS REINITIALIZED 53600000 * FOR THE OPEN CODE TEXT SEGMENT BY OPENENT. 53800000 OCINITS EQU * 54000000 GTLDALOC DS F LOCAL DICTIONARY LENGTH 54200000 GTGVALOC DS F GLOBAL VECTOR LENGTH 54400000 GTSDALOC DS F SEQ SYMB REFER DICT LENGTH 54600000 SSRAPDIS DS H DISPL IN SSRD FOR NEXT ENTRY 54800000 TSINITE EQU * 55000000 SWITCHA DSW FNDFLG, MATCHING DIRECT ENTRY FOUND X55100000 NOTEFIL2, NOTE OF NEXT RECORD REQ'D X55200000 LSTSYSMS, SYSTEM MACRO EDIT COMPLETED X55300000 ITERSW, SYSTEM VARIABLE DEFINITIONS X55400000 ,,, 55500000 FSWITCH DS X FIRST RECORD WRITTEN NOTED 55600000 GTODALOC DS F ORD SYMB REF DICT LENGTH 55700000 OSRAPDIS DS H DISPL IN OSRD FOR NEXT ENTRY 55800000 SSDLNGTH DS H LENGTH OF SSRD ENTRY 55900000 SSFLGVAL DS C TEXT FLAG FOR SEQ SYMB REFER 56000000 SREFTYPE DS C RECORD TYPE, SEQ SYMB REFER 56100000 DS 2H FILLER FOR ALIGNMENT (REQ'D) 56200000 OSDLNGTH DS H LENGTH OF OSRD ENTRY 56300000 OSFLGVAL DS C TEXT FLAG FOR ORD SYMB REFER 56400000 OREFTYPE DS C RECORD TYPE, ORD SYMB REFER 56500000 REGSAVE2 DS F REGISTER SAVE AREA 56550000 PIOPARMB DS F FULL I/O AREA LENGTH 56600000 PIOPARMA DS F CURRENT I/O AREA ADDRESS 56700000 PIOPARMC DS H CURRENT I/O AREA LENGTH 56800000 IOCID DSW IZRO,IONE, OP CODE LENGTH X57800000 ITWO,ITRE OP CODE TYPE 58000000 IOCLNG EQU IZRO+IONE OP CODE LENGTH REDEFINED 58200000 * 00 = MACRO INSTRUCTION OR UNDEFINED OP CODE 58400000 * 01 = ONE BYTE LONG OP CODE 58600000 * 11 = TWO BYTE LONG OP CODE 58800000 IOCTYP EQU ITWO+ITRE OP CODE TYPE REDEFINED 59000000 * 00 = MACHINE OP 59200000 * 01 = EXTENDED MNEMONICS 59400000 * 11 = ASSEMBLER OP 59600000 * BITS 4-7 = CURRENTLY NOT USED, ALL ZERO 59800000 * 60000000 CONCODE DSW B0,B1,B2,B3,B4,B5,B6,B7 60200000 * 60400000 ATTRSV DSW AT0,AT1,AT2,AT3,AT4,AT5,AT6,AT7 60600000 ATT EQU AT6 00000010 60800000 ATL EQU AT6+AT7 00000011 61000000 ATS EQU AT5 00000100 61200000 ATI EQU AT5+AT7 00000101 61400000 ATK EQU AT5+AT6 00000110 61600000 ATN EQU AT5+AT6+AT7 00000111 61800000 SLST EQU AT2 SYSLIST 62000000 * 0 = VARIABLE SYMBOL OTHER THAN SYSLIST 62200000 * 1 = SYSLIST 62400000 ATSUBS EQU AT0+AT1 62600000 * 00 = NON-SUBSCRIPT 62800000 * 01 = SINGLE SUBSCRIPT 63000000 * 11 = DOUBLE SUBSCRIPT 63200000 MCALL DSW MCLA, SETA TYPE X63400000 MCLC, SETC TYPE X63600000 MCMPLX,, COMPLEX STATE X63800000 MSLST SYSLIST 64000000 FLGBYT DSW VTYP1,VTYP2,VPTYP,VSNS,VSLS,VDIM,VSTP1,VSTP2 64200000 * VTYP1+VTYP2 - TYPE-- 00 = GLOBAL 64400000 * 01 = LOCAL 64600000 * 10 = NOT DEFINED 64800000 * 11 = PARAMETER 65000000 * VPTYP - POSITIONAL/KEYWORD-- 0 = POSITIONAL 65200000 * 1 = KEYWORD 65400000 * VSNS - SYSTEM/NON-SYSTEM-- 0 = NON-SYSTEM 65600000 * 1 = SYSTEM 65800000 * VSLS - SYSLIST/NON-SYSLIST-- 0 = NON-SYSLIST 66000000 * 1 = SYSLIST 66200000 * VDIM - DIMENSIONED/NON-DIMENSIONED-- 0 = NON-DIMENSIONED 66400000 * 1 = DIMENSIONED 66600000 * VSTP1+VSTP2 - SUBTYPE-- 00 = A-TYPE 66800000 * 01 = B-TYPE 67000000 * 10 = PARAMETER 67200000 * 11 = C-TYPE 67400000 * 67600000 GAFLG EQU D0 GBLA FLAG 67800000 GBFLG EQU VSTP2 GBLB FLAG 68000000 GCFLG EQU VSTP1+VSTP2 GBLC FALG 68200000 LAFLG EQU VTYP2 LCLA FLAG 68400000 LBFLG EQU VTYP2+VSTP2 LCLB FLAG 68600000 LCFLG EQU VTYP2+VSTP1+VSTP2 LCLC FLAG 68800000 PARMFLG EQU VTYP1+VTYP2+VSTP1 PARAMETER FLAG 69000000 KPARMFLG EQU PARMFLG+VPTYP KEYWORD PARAMETER FLAG 69200000 * 69400000 NOTESAVE DS XL8 NOTE OF START OF MACRO DEFINTN 69800000 SAVENOTE DS XL8 NOTE OF START OF DICT DATA FILE 70200000 DICTCOME EQU * 70600000 REGSTACK DS 8F REGISTER SAVE AREA 70800000 SPACE 3 71000000 DS 4F PATCH AREA 71100000 ENDEDSCT DS 0D END OF MODULE COMMON AREA 71200000 *********************************************************************** 71400000