*COMDECK DPPPMACRO. 
          CTEXT  DPPPMACRO
          NOREF  AM,NM,QM 
          NOREF  BRADR
          NOREF  SUBN,SUBS
           MACRO    SETUP,POINT,TABLEC,TABLEB 
ALPHABET  EQU   348 
DBGNMCON EQU    349 
DIRECT    EQU   350 
ACTUALKY  EQU   351 
WORDADDR  EQU   352 
COMMSTOR  EQU   356 
SECSTOR   EQU   357 
  
 DIVISOR    EQU    13 
 DIVIDEND   EQU    14 
 VRBENTRY   EQU    15 
 COMMAOPT   EQU     1 
 SEMICOPT   EQU     1 
 GTXY       SET    0
 LASTATOM  EQU      1 
 AT        EQU      1 
 BY        EQU      2 
 CD        EQU      3 
 CF        EQU      4 
 CH        EQU      5 
 DE        EQU      6 
 FD        EQU      7 
 IF        EQU      8 
 IN        EQU      9 
 IS        EQU      10
 NO        EQU      11
 OF        EQU      12
 ON        EQU      14
 OR        EQU      15
 PF        EQU      17
 PH        EQU      18
 RD        EQU      19
 GO        EQU      20
 RF        EQU      21
 RH        EQU      22
 SD        EQU      24
 TO        EQU      25
 UP        EQU      26
 ADD       EQU      27
 ALL       EQU      28
 AND       EQU      29
 ARE       EQU      30
 BIT       EQU      362 
 DAY       EQU      31
 EMI       EQU      32
 END       EQU      33
 EOP       EQU      34
 EGI       EQU      312 
 ESI       EQU      35
 FOR       EQU      37
 IO        EQU      38
 KEY       EQU      39
 NOT       EQU      40
 OFF       EQU      41
 PIC       EQU      42
 RUN       EQU      313 
 SET       EQU      43
 SUM       EQU      44
 TOP       EQU      314 
 USE       EQU      45
 ALSO      EQU      335 
 AREA      EQU      46
 BITS      EQU      336 
 CALL      EQU      47
 CODE      EQU      48
 COMP      EQU      49
 COPY      EQU      50
 CORR      EQU      51
 DATA      EQU      52
 DATE      EQU      53
 DOWN      EQU      54
 ELSE      EQU      55
 EXIT      EQU      56
 FILE      EQU      57
 FROM      EQU      58
 INTO      EQU      60
 JUST      EQU      61
 LAST      EQU      63
 LEFT      EQU      64
 LESS      EQU      65
 LINE      EQU      66
 LOCK      EQU      67
 MODE      EQU      68
 MOVE      EQU      69
 NEXT      EQU      70
 OPEN      EQU      71
 PAGE      EQU      72
 PLUS      EQU      73
 READ      EQU      74
 REEL      EQU      75
 SAME      EQU      76
 SEND      EQU      78
 SIGN      EQU      79
 SIZE      EQU      80
 SORT      EQU      81
 STOP      EQU      82
 SYNC      EQU      83
 TAPE      EQU      84
 TEXT      EQU      85
 THAN      EQU      86
 THRU      EQU      87
 TIME      EQU      88
 TYPE      EQU      89
 UNIT      EQU      90
 UPON      EQU      91
 WHEN      EQU      92
 WITH      EQU      93
 ZERO      EQU      94
 NOTE      EQU      95
 ALTER     EQU      96
 AFTER     EQU      97
 APPLY     EQU      98
 AREAS     EQU      99
 BLANK     EQU      100 
 BLOCK     EQU      101 
 CLOSE     EQU      102 
 COBOL     EQU      103 
 COMMA     EQU      104 
 COUNT     EQU      105 
 DEPTH     EQU      106 
 ENTER     EQU      107 
 EQUAL     EQU      108 
 ERROR     EQU      109 
 EVERY     EQU      110 
 FILES     EQU      337 
 FINAL     EQU      111 
 FIRST     EQU      112 
 RWGROUP  EQU       113 
 UBRVERB  EQU       334 
 HASHING  EQU       354 
 RPTCTEXT EQU       358 
 INDEX     EQU      114 
 INPUT     EQU      115 
 LABEL     EQU      116 
 LIMIT     EQU      117 
 LINES     EQU      118 
 MERGE     EQU      119 
 QUEUE     EQU      120 
 QUOTE     EQU      121 
 RERUN     EQU      123 
 RESET     EQU      124 
 RIGHT     EQU      125 
 SPACE     EQU      126 
 START     EQU      316 
 TABLE     EQU      127 
 TIMES     EQU      128 
 UNTIL     EQU      129 
 USAGE     EQU      130 
 USING     EQU      131 
 VALUE     EQU      132 
 WORDS     EQU      133 
 WRITE     EQU      134 
 ZEROS     EQU      94
 ACCEPT    EQU      135 
 ACCESS    EQU      136 
 ASSIGN    EQU      138 
 AUTHOR    EQU      139 
 BEFORE    EQU      140 
 BOTTOM    EQU      317 
 CANCEL    EQU      141 
 COLUMN    EQU      142 
 COMP1     EQU      143 
 COMP2     EQU      144 
COMP4     EQU      145
 DELETE    EQU      318 
 DETAIL    EQU      6 
 DIVIDE    EQU      146 
 ENABLE    EQU      147 
 ENDING    EQU      148 
 EQUALS    EQU      149 
 EXTEND    EQU      319 
 FILLER    EQU      150 
 GIVING    EQU      151 
 LENGTH    EQU      152 
 LIMITS    EQU      153 
 LINAGE    EQU      154 
 MEMORY    EQU      155 
 NATIVE    EQU      338 
 NUMBER    EQU      156 
 OCCURS    EQU      157 
 OUTPUT    EQU      158 
 QUOTES    EQU      121 
 RANDOM    EQU      159 
 RECORD    EQU      160 
 REPORT    EQU      161 
 RETURN    EQU      162 
 REWIND    EQU      163 
 SEARCH    EQU      164 
 SELECT    EQU      165 
 SOURCE    EQU      166 
 SPACES    EQU      126 
 STATUS    EQU      167 
 STRING    EQU      168 
 VALUES    EQU      169 
 ZEROES    EQU      94
 ADDRESS   EQU      170 
 COMPUTE   EQU      171 
 CONTROL   EQU      172 
 DISABLE   EQU      173 
 DISPLAY   EQU      174 
 DYNAMIC   EQU      320 
 EXCEEDS   EQU      175 
 FOOTING   EQU      176 
 GREATER   EQU      177 
 HEADING   EQU      178 
 INDEXED   EQU      179 
 INITIAL   EQU      180 
 INSPECT   EQU      181 
 INVALID   EQU      182 
 LEADING   EQU      183 
 LINKAGE   EQU      185 
 MESSAGE   EQU      186 
 MODULES   EQU      187 
 NUMERIC   EQU      188 
 NXTGROUP  EQU      NEXT
 OMITTED   EQU      189 
 PERFORM   EQU      190 
 PICTURE   EQU      42
 POINTER   EQU      191 
 PROCEED   EQU      192 
 PURGE    EQU       193 
 PROGRAM   EQU      194 
 RECEIVE   EQU      195 
 RECORDS   EQU      196 
 RELEASE   EQU      197 
 REMOVAL   EQU      321 
 RENAMES   EQU      198 
 REPORTS   EQU      199 
 RESERVE   EQU      200 
 REWRITE   EQU      322 
 ROUNDED   EQU      201 
 SECTION   EQU      202 
 SEGMENT   EQU      203 
 SUSPEND   EQU      204 
 THROUGH   EQU      87
 UNEQUAL   EQU      205 
 VARYING   EQU      206 
 REMARKS   EQU      207 
 EXAMINE   EQU      208 
 CODESET   EQU      339 
 CONTAINS  EQU      209 
 CONTROLS  EQU      210 
 CURRENCY  EQU      211 
 DIVISION  EQU      212 
 EXTERNAL  EQU      227 
 FIRSTDET  EQU      FIRST 
 GENERATE  EQU      213 
 INDICATE  EQU      214 
 INITIATE  EQU      215 
 KEYPOINT  EQU      323 
 LASTDET   EQU      LAST
 MULTIPLE  EQU      216 
 MULTIPLY  EQU      217 
 NEGATIVE  EQU      218 
 OPTIONAL  EQU      219 
 OVERFLOW  EQU      220 
 POSITION  EQU      221 
 POSITIVE  EQU      222 
 PRINTING  EQU      223 
 RELATIVE  EQU      324 
 REVERSED  EQU      225 
 SECURITY  EQU      226 
 SENTENCE  EQU      228 
 SEPARATE  EQU      229 
 SEQUENCE  EQU      340 
 STANDARD  EQU      230 
 SUBTRACT  EQU      231 
 SUPPRESS  EQU      232 
 SYMBOLIC  EQU      233 
 TALLYING  EQU      234 
 TERMINAL  EQU      235 
 TRAILING  EQU      236 
 UNSTRING  EQU      237 
 ADVANCNG  EQU      238 
 ALTERNAT  EQU      239 
 ASCENDNG  EQU      240 
 BEGINNNG  EQU      241 
 CHARACTR  EQU      242 
 COLLATNG  EQU      341 
 DEBUGGNG  EQU      243 
 DELIMITD  EQU      244 
 DELIMITR  EQU      245 
 DEPENDNG  EQU      246 
 EXCEPTN   EQU      325 
 JUSTIFID  EQU      61
 LOWVALUE  EQU      247 
 PROCEDUR  EQU      248 
 RECORDNG  EQU      249 
 REDEFINS  EQU      250 
 REMAINDR  EQU      251 
 REPLACNG  EQU      252 
 REPORTNG  EQU      253 
 TERMINAT  EQU      254 
 TRACEON   EQU      342 
 ALPHABTC  EQU      255 
 APOSTROP  EQU      256 
 CHARACTS  EQU      257 
 CONVERSN  EQU      343 
 DEBUGITM  EQU      327 
 DEBUGLN   EQU      258 
 DEBUGNAM  EQU      259 
 DESCNDNG  EQU      260 
 DUPLCATS  EQU      328 
 HIGHVAL   EQU      262 
 INITLISE  EQU      329 
 INITLIZE  EQU      329 
 LOWVALUS  EQU      247 
 PRCEDURS  EQU      264 
 PROGRMID  EQU      266 
 REFERNCS  EQU      267 
 SEQUENTL  EQU      268 
 SORTMERG  EQU      269 
 STNDARD1  EQU      344 
 SUPERVSR  EQU      270 
 TASKTIMR  EQU      330 
 TRACEOFF  EQU      345 
 CLKUNITS  EQU      271 
 DAYOFWK   EQU      346 
 DBUGSUB1  EQU      272 
 DBUGSUB2  EQU      273 
 DBUGSUB3  EQU      274 
 DESTINTN  EQU      275 
 ENDOFPAG  EQU      34
 ENVIRMNT  EQU      277 
 IOCONTRL  EQU      279 
 LOWBOUND  EQU      280 
 SUBQUE1   EQU      281 
 SUBQUE2   EQU      282 
 SUBQUE3   EQU      283 
 UPRBOUND  EQU      284 
 ALPHNUM   EQU      285 
 DATEWRIT  EQU      286 
 DECLARTV  EQU      287 
 FILECONT  EQU      288 
 INPTOUTP  EQU      289 
 INSTALLA  EQU      290 
 LINECOUN  EQU      291 
 ORGANISA  EQU      332 
 ORGANIZA  EQU      332 
 PAGECOUN  EQU      292 
 COMMUNIC  EQU      293 
 CONFIGUR  EQU      294 
 DATECOMP  EQU      295 
 DECIMLPT  EQU      297 
 SGMNTLIM  EQU      299 
 SPECLNAM  EQU      300 
 DEBUGCON  EQU      333 
 IDNTFICA  EQU      301 
 LINAGCNT  EQU      302 
 NUMERCED  EQU      303 
 OBJCTPRG  EQU      304 
 OBJCTCMP  EQU      305 
ANY       EQU    363
CONTINUE  EQU    364
ENDADD    EQU    365
ENDCALL   EQU    366
ENDCOMPU  EQU    367
ENDDELET  EQU    368
ENDDIVID  EQU    369
ENDEVALU  EQU    370
ENDIF     EQU    371
ENDMULT   EQU    372
ENDPERF   EQU    373
ENDREAD   EQU    374
ENDRECVE  EQU    375
ENDRETRN  EQU    376
ENDREWRI  EQU    377
ENDSRCH   EQU    378
ENDSTART  EQU    379
ENDSTRNG  EQU    380
ENDSUBTR  EQU    381
ENDUNSTR  EQU    382
ENDWRITE  EQU    383
EVALUATE  EQU    384
EXOR      EQU    385
FALSE     EQU    386
OTHER     EQU    387
TEST      EQU    388
THEN      EQU    389
TRUE      EQU    390
REPLACE   EQU    391
BOOLAND   EQU    392
BOOLOR    EQU    393
BOOLNOT   EQU    394
BOOLEXOR  EQU    395
BOOLEAN   EQU    396
 ORDER    EQU    397
 SRCECOMP  EQU      306 
 WKNGSTOR  EQU      307 
 ALPHNUMD  EQU      308 
 ENDECLAR EQU     311 
CORRSTRT EQU      309 
CORREND  EQU      310 
 SUBSCHEM   EQU       355 
REALMS    EQU    359
DEADLOCK  EQU    360
BFLAG     EQU    1
 MSGTRACE  EQU       2
 CMDTRACE  EQU       3
 TRUEFALS  EQU       4
 AFLAG     EQU       5
 PFLAG     EQU       6
 ERRFLAG   EQU       7
 REPTMODE  EQU       8
 SYNTONLY  EQU       9
 ENVIRDIV  EQU       10 
 DATADIV   EQU       11 
SIGNFLAG   EQU    15
KEYFLAG   EQU    36 
SORTFLG   EQU    46          SET WHEN SORT VERB SEEN AND FIPS DIAGS ON
FIPS2     EQU    52 
FIPS3     EQU    53 
FIPS4     EQU    54 
FIPS5     EQU    55 
CFLAG     EQU    56 
BRADR      SET     0
 SUBCNT    SET      1 
 FDLVL     EQU      51
 SDLVL     EQU      52
 CDLVL     EQU      53
 RDLVL     EQU      54
 D         EQU      1 
 S         EQU      2 
 P         EQU      3 
 A         EQU      4 
 T         EQU      5 
 J         EQU      6 
NM         SET   0
QM         SET   0
 SYNTAB    MICRO     1,7,*POINT*
 CLSTAB    MICRO     1,7,*TABLEC* 
 BRTAB     MICRO     1,7,*TABLEB* 
          USE       POINT 
POINT     EQU      *L 
           USE       TABLEB 
 TABLEB    EQU   *L 
           USE        TABLEC
 TABLEC     EQU     *L
           USE       POINT
          ENTRY     TABLEB
          ENTRY    POINT
          ENTRY    TABLEC 
           ENDM 
           MACRO    VERB,BB,PM
AM         SET      PM-QM-1 
           DUP      AM,1
           VFD      6/0 
QM         SET      QM+AM+1 
NM         SET      NM+1
           VFD      6/NM
           ENDM 
           MACRO      GETADR,QXY,RXY
           IF     -DEF,QXY
QXY        EQU    BRADR 
           ENDIF
 BRADR    SET    BRADR+2
          IFC    EQ,/RXY/1/,1 
          VFD    10/0 
           ENDM 
          MACRO     FILEREF,QXY,RXY 
          VFD       2/2,7/0,1/RXY 
QXY       GETADR    1 
          ENDM
          MACRO     TFILEREF,QXY,RXY
          VFD       2/1,7/0,1/RXY 
QXY       GETADR    1 
          ENDM
          MACRO     FFILEREF,QXY,RXY
          VFD       2/0,7/0,1/RXY 
QXY       GETADR    1 
          ENDM
           MACRO    AAREA,QXY 
           VFD    2/2,7/1,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TAAREA,QXY
           VFD    2/1,7/1,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FAAREA,QXY
           VFD    2/0,7/1,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    ADVANCE,QXY 
           VFD    2/2,7/2,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TADVANCE,QXY
           VFD    2/1,7/2,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FADVANCE,QXY
           VFD    2/0,7/2,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    ALLOW,QXY,RXY 
           VFD    2/2,7/48,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TALLOW,QXY,RXY
           VFD    2/1,7/48,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FALLOW,QXY,RXY
           VFD    2/0,7/48,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    ALWDIAG,QXY 
           VFD    2/2,7/3,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TALWDIAG,QXY
           VFD    2/1,7/3,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FALWDIAG,QXY
           VFD    2/0,7/3,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    BRANCH,QXY,RXY
          VFD    2/2,7/RXY/2-RXY/6*3+56,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    TBRANCH,QXY,RXY 
          VFD    2/1,7/RXY/2-RXY/6*3+56,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    FBRANCH,QXY,RXY 
          VFD    2/0,7/RXY/2-RXY/6*3+56,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    ERRBRAN,QXY,RXY 
          VFD    2/2,7/RXY/2-RXY/6*3+59,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    BRANRET,QXY,RXY 
          VFD    2/2,7/RXY/2-RXY/6*3+62,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    TBRANRET,QXY,RXY
          VFD    2/1,7/RXY/2-RXY/6*3+62,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    FBRANRET,QXY,RXY
          VFD    2/0,7/RXY/2-RXY/6*3+62,11/RXY/6
 QXY       GETADR     2 
           ENDM 
           MACRO    GTEXTBLD,QXY,PXY,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY
           VFD   2/PXY,7/47,1/0,10/GTXY 
GTXY       SET   GTXY+1 
           USE    PPGTEXT 
           VFD    4/RXY-1,4/SXY 
           IFEQ     RXY,1,1 
           SKIP     19
           VFD      4/TXY 
           IFEQ     RXY,2,1 
           SKIP     16
           VFD      4/UXY 
           IFEQ     RXY,3,1 
           SKIP     13
           VFD      4/VXY 
           IFEQ     RXY,4,1 
           SKIP     10
           VFD      4/WXY 
           IFEQ     RXY,5,1 
           SKIP     7 
           VFD      4/XXY 
           IFEQ     RXY,6,1 
           SKIP     4 
           VFD      4/YXY 
           IFEQ     RXY,7,1 
           SKIP     1 
           VFD      4/ZXY 
PST        SET    56-RXY*4
           VFD     PST/0
           USE     PPTABLE
           ENDM 
           MACRO    BLDGTXT,QXY,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY 
QXY       GETADR 2
           GTEXTBLD 2,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY 
           ENDM 
           MACRO    TBLDGTXT,QXY,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY
QXY       GETADR 2
           GTEXTBLD 1,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY 
           ENDM 
           MACRO    FBLDGTXT,QXY,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY
QXY       GETADR 2
           GTEXTBLD 0,RXY,SXY,TXY,UXY,VXY,WXY,XXY,YXY,ZXY 
           ENDM 
           MACRO    CLAUSE,QXY,RXY
           VFD    2/2,7/33,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TCLAUSE,QXY,RXY 
           VFD    2/1,7/33,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FCLAUSE,QXY,RXY 
           VFD    2/0,7/33,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    CONNAME,QXY 
           VFD    2/2,7/4,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TCONNAME,QXY
           VFD    2/1,7/4,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FCONNAME,QXY
           VFD    2/0,7/4,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    DEFPT,QXY,RXY 
           VFD    2/2,7/49,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TDEFPT,QXY,RXY
           VFD    2/1,7/49,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FDEFPT,QXY,RXY
           VFD    2/0,7/49,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
          MACRO  DIAGNOS,QXY,RXY,SXY,TXY
OP        SET    78 
          IFEQ   TXY,1
OP        SET    79 
          ENDIF 
          VFD    2/2,7/OP,11/SXY
 QXY      GETADR 2
          ENDM
          MACRO  TDIAGNOS,QXY,RXY,SXY,TXY 
OP        SET    78 
          IFEQ   TXY,1
OP        SET    79 
          ENDIF 
          VFD    2/1,7/OP,11/SXY
 QXY      GETADR 2
          ENDM
          MACRO  FDIAGNOS,QXY,RXY,SXY,TXY 
OP        SET    78 
          IFEQ   TXY,1
OP        SET    79 
          ENDIF 
          VFD    2/0,7/OP,11/SXY
 QXY      GETADR 2
          ENDM
         MACRO    FILLERX,QXY 
           VFD    2/2,7/5,1/0 
QXY      GETADR     1 
         ENDM 
         MACRO    TFILLERX,QXY
           VFD    2/1,7/5,1/0 
QXY      GETADR     1 
         ENDM 
         MACRO    FFILLERX,QXY
           VFD    2/0,7/5,1/0 
QXY      GETADR     1 
         ENDM 
          MACRO  DIAGRET,QXY,RXY,SXY,TXY
OP        SET    80 
          IFEQ   TXY,1
OP        SET    81 
          ENDIF 
          VFD    2/2,7/OP,11/SXY
QXY       GETADR 2
          ENDM
          MACRO  TDIAGRET,QXY,RXY,SXY,TXY 
OP        SET    80 
          IFEQ   TXY,1
OP        SET    81 
          ENDIF 
          VFD    2/1,7/OP,11/SXY
QXY       GETADR 2
          ENDM
          MACRO  FDIAGRET,QXY,RXY,SXY,TXY 
OP        SET    80 
          IFEQ   TXY,1
OP        SET    81 
          ENDIF 
          VFD    2/0,7/OP,11/SXY
QXY       GETADR 2
          ENDM
           MACRO    ENDDECL,QXY 
           VFD    2/2,7/6,1/0 
QXY       GETADR     1
          ENDM
          MACRO     TENDDECL,QXY
           VFD    2/1,7/6,1/0 
QXY       GETADR     1
          ENDM
          MACRO     FENDDECL,QXY
           VFD    2/0,7/6,1/0 
QXY       GETADR     1
          ENDM
           MACRO    DNDEF,QXY,RXY 
           VFD    2/2,7/34,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TDNDEF,QXY,RXY
           VFD    2/1,7/34,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FDNDEF,QXY,RXY
           VFD    2/0,7/34,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    DNREF,QXY,RXY 
           VFD    2/2,7/35,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TDNREF,QXY,RXY
           VFD    2/1,7/35,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FDNREF,QXY,RXY
           VFD    2/0,7/35,1/RXY
 QXY       GETADR     1 
           ENDM 
          MACRO  DSR,QXY,RXY,SXY,TXY
OP        SET    82 
          IFEQ   TXY,1
OP        SET    83 
          ENDIF 
          VFD    2/2,7/OP,11/SXY
QXY       GETADR 2
          ENDM
          MACRO  TDSR,QXY,RXY,SXY,TXY 
OP        SET    82 
          IFEQ   TXY,1
OP        SET    83 
          ENDIF 
          VFD    2/1,7/OP,11/SXY
QXY       GETADR 2
          ENDM
          MACRO  FDSR,QXY,RXY,SXY,TXY 
OP        SET    82 
          IFEQ   TXY,1
OP        SET    83 
          ENDIF 
          VFD    2/0,7/OP,11/SXY
QXY       GETADR 2
          ENDM
           MACRO    EQUALS,QXY
           VFD    2/2,7/7,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TEQUALS,QXY 
           VFD    2/1,7/7,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FEQUALS,QXY 
           VFD    2/0,7/7,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    EXPONEN,QXY 
           VFD    2/2,7/8,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TEXPONEN,QXY
           VFD    2/1,7/8,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FEXPONEN,QXY
           VFD    2/0,7/8,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    GRTHAN,QXY
           VFD    2/2,7/9,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    TGRTHAN,QXY 
           VFD    2/1,7/9,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    FGRTHAN,QXY 
           VFD    2/0,7/9,1/0 
 QXY       GETADR     1 
           ENDM 
           MACRO    KEEP,QXY
           VFD    2/2,7/10,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TKEEP,QXY 
           VFD    2/1,7/10,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FKEEP,QXY 
           VFD    2/0,7/10,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    KEYELEM,QXY 
           VFD    2/2,7/11,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TKEYELEM,QXY
           VFD    2/1,7/11,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FKEYELEM,QXY
           VFD    2/0,7/11,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    LFTPARN,QXY 
           VFD    2/2,7/12,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TLFTPARN,QXY
           VFD    2/1,7/12,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FLFTPARN,QXY
           VFD    2/0,7/12,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    LSTHAN,QXY
           VFD    2/2,7/13,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TLSTHAN,QXY 
           VFD    2/1,7/13,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FLSTHAN,QXY 
           VFD    2/0,7/13,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    INTEGER,QXY,RXY 
           VFD    2/2,7/37,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TINTEGER,QXY,RXY
           VFD    2/1,7/37,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FINTEGER,QXY,RXY
           VFD    2/0,7/37,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    LITERAL,QXY,RXY 
           VFD    2/2,7/37,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TLITERAL,QXY,RXY
           VFD    2/1,7/37,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FLITERAL,QXY,RXY
           VFD    2/0,7/37,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    MINUS,QXY 
           VFD    2/2,7/14,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TMINUS,QXY
           VFD    2/1,7/14,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FMINUS,QXY
           VFD    2/0,7/14,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    PERIOD,QXY
           VFD    2/2,7/15,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TPERIOD,QXY 
           VFD    2/1,7/15,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FPERIOD,QXY 
           VFD    2/0,7/15,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    PICTURE,QXY 
           VFD    2/2,7/16,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TPICTURE,QXY
           VFD    2/1,7/16,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FPICTURE,QXY
           VFD    2/0,7/16,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    PLUS,QXY
           VFD    2/2,7/17,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TPLUS,QXY 
           VFD    2/1,7/17,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FPLUS,QXY 
           VFD    2/0,7/17,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    PNDEF,QXY 
           VFD    2/2,7/18,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TPNDEF,QXY
           VFD    2/1,7/18,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FPNDEF,QXY
           VFD    2/0,7/18,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    PNREF,QXY,RXY 
           VFD    2/2,7/38,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TPNREF,QXY,RXY
           VFD    2/1,7/38,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FPNREF,QXY,RXY
           VFD    2/0,7/38,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    RESWORD,QXY,RXY 
           VFD    2/2,7/48,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TRESWORD,QXY,RXY
           VFD    2/1,7/48,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FRESWORD,QXY,RXY
           VFD    2/0,7/48,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    RETURNX,QXY 
           VFD    2/2,7/19,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TRETURNX,QXY
           VFD    2/1,7/19,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FRETURNX,QXY
           VFD    2/0,7/19,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    ERRETRN,QXY 
           VFD    2/2,7/20,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    RETTRUE,QXY 
           VFD    2/2,7/21,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TRETTRUE,QXY
           VFD    2/1,7/21,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FRETTRUE,QXY
           VFD    2/0,7/21,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    RTPARN,QXY
           VFD    2/2,7/22,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TRTPARN,QXY 
           VFD    2/1,7/22,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FRTPARN,QXY 
           VFD    2/0,7/22,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    SLASH,QXY 
           VFD    2/2,7/23,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TSLASH,QXY
           VFD    2/1,7/23,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FSLASH,QXY
           VFD    2/0,7/23,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    SNDEF,QXY 
           VFD    2/2,7/24,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TSNDEF,QXY
           VFD    2/1,7/24,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FSNDEF,QXY
           VFD    2/0,7/24,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    STAR,QXY
           VFD    2/2,7/25,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TSTAR,QXY 
           VFD    2/1,7/25,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FSTAR,QXY 
           VFD    2/0,7/25,1/0
 QXY       GETADR     1 
           ENDM 
          MACRO    STAMENT,QXY,RXY
           VFD    2/2,7/39,1/RXY
QXY       GETADR     1
          ENDM
          MACRO    TSTAMENT,QXY,RXY 
           VFD    2/1,7/39,1/RXY
QXY       GETADR     1
          ENDM
          MACRO    FSTAMENT,QXY,RXY 
           VFD    2/0,7/39,1/RXY
QXY       GETADR     1
          ENDM
           MACRO    SUBROUT,QXY,RXY 
 SUBS      SET      RXY/10000 
 SUBN      SET      RXY-SUBS*10000
          VFD    2/2,7/SUBS+SETNO+64,11/SUBN
 QXY       GETADR     2 
           ENDM 
           MACRO    TSUBROUT,QXY,RXY
 SUBS      SET      RXY/10000 
 SUBN      SET      RXY-SUBS*10000
          VFD    2/1,7/SUBS+SETNO+64,11/SUBN
 QXY       GETADR     2 
           ENDM 
           MACRO    FSUBROUT,QXY,RXY
 SUBS      SET      RXY/10000 
 SUBN      SET      RXY-SUBS*10000
          VFD    2/0,7/SUBS+SETNO+64,11/SUBN
 QXY       GETADR     2 
           ENDM 
           MACRO    TSTCONT,QXY,RXY 
           VFD    2/2,7/50,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TTSTCONT,QXY,RXY
           VFD    2/1,7/50,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FTSTCONT,QXY,RXY
           VFD    2/0,7/50,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    SETTFFL,QXY 
           VFD    2/2,7/26,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TSETTFFL,QXY
           VFD    2/1,7/26,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FSETTFFL,QXY
           VFD    2/0,7/26,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    CTXTRET,QXY 
           VFD    2/2,7/27,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TCTXTRET,QXY
           VFD    2/1,7/27,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FCTXTRET,QXY
           VFD    2/0,7/27,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    CNCTXT,QXY
           VFD    2/2,7/28,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TCNCTXT,QXY 
           VFD    2/1,7/28,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FCNCTXT,QXY 
           VFD    2/0,7/28,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    STOP,QXY
           VFD    2/2,7/29,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TSTOP,QXY 
           VFD    2/1,7/29,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FSTOP,QXY 
           VFD    2/0,7/29,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    ENDOFFI,QXY 
           VFD    2/2,7/30,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TENDOFFI,QXY
           VFD    2/1,7/30,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FENDOFFI,QXY
           VFD    2/0,7/30,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    RETFALS,QXY 
           VFD    2/2,7/31,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TRETFALS,QXY
           VFD    2/1,7/31,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FRETFALS,QXY
           VFD    2/0,7/31,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    COMMARW,QXY,RXY 
          VFD    2/2,7/51,1/1,10/RXY
 QXY       GETADR     2 
           ENDM 
           MACRO    TCOMMARW,QXY,RXY
          VFD    2/1,7/51,1/1,10/RXY
 QXY       GETADR     2 
           ENDM 
           MACRO    FCOMMARW,QXY,RXY
          VFD    2/0,7/51,1/1,10/RXY
 QXY       GETADR     2 
           ENDM 
           MACRO    SEMIRW,QXY,RXY
          VFD    2/2,7/51,1/1,10/RXY
 QXY       GETADR     2 
           ENDM 
           MACRO    TSEMIRW,QXY,RXY 
          VFD    2/1,7/51,1/1,10/RXY
 QXY       GETADR     2 
           ENDM 
           MACRO    FSEMIRW,QXY,RXY 
          VFD    2/0,7/51,1/1,10/RXY
 QXY       GETADR     2 
           ENDM 
           MACRO    LEVEL,QXY,RXY 
           VFD    2/2,7/52,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TLEVEL,QXY,RXY
           VFD    2/1,7/52,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FLEVEL,QXY,RXY
           VFD    2/0,7/52,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    IMPNAME,QXY,RXY 
           VFD    2/2,7/40,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TIMPNAME,QXY,RXY
           VFD    2/1,7/40,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FIMPNAME,QXY,RXY
           VFD    2/0,7/40,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    PASSTF,QXY
           VFD    2/2,7/32,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    TPASSTF,QXY 
           VFD    2/1,7/32,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    FPASSTF,QXY 
           VFD    2/0,7/32,1/0
 QXY       GETADR     1 
           ENDM 
           MACRO    DATAREF,QXY,RXY 
           VFD    2/2,7/41,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    TDATAREF,QXY,RXY
           VFD    2/1,7/41,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    FDATAREF,QXY,RXY
           VFD    2/0,7/41,1/RXY
 QXY       GETADR     1 
           ENDM 
           MACRO    SETFLAG,QXY,RXY 
           VFD    2/2,7/53,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TSETFLAG,QXY,RXY
           VFD    2/1,7/53,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FSETFLAG,QXY,RXY
           VFD    2/0,7/53,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    CLRFLAG,QXY,RXY 
           VFD    2/2,7/54,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TCLRFLAG,QXY,RXY
           VFD    2/1,7/54,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FCLRFLAG,QXY,RXY
           VFD    2/0,7/54,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TSTFLAG,QXY,RXY 
           VFD    2/2,7/55,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    TTSTFLAG,QXY,RXY
           VFD    2/1,7/55,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
           MACRO    FTSTFLAG,QXY,RXY
           VFD    2/0,7/55,1/0,10/RXY 
 QXY       GETADR     2 
           ENDM 
         MACRO     LINECTR,QXY,RXY
         VFD       2/2,7/42,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     TLINECTR,QXY,RXY 
         VFD       2/1,7/42,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     FLINECTR,QXY,RXY 
         VFD       2/0,7/42,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     PAGECTR,QXY,RXY
         VFD       2/2,7/43,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     TPAGECTR,QXY,RXY 
         VFD       2/1,7/43,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     FPAGECTR,QXY,RXY 
         VFD       2/0,7/43,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     LNGCTR,QXY,RXY 
         VFD       2/2,7/44,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     TLNGCTR,QXY,RXY
         VFD       2/1,7/44,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     FLNGCTR,QXY,RXY
         VFD       2/0,7/44,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     DBUGITM,QXY,RXY
         VFD       2/2,7/45,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     TDBUGITM,QXY,RXY 
         VFD       2/1,7/45,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     FDBUGITM,QXY,RXY 
         VFD       2/0,7/45,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     HASH,QXY,RXY 
         VFD       2/2,7/46,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     THASH,QXY,RXY
         VFD       2/1,7/46,1/RXY 
QXY      GETADR    1
         ENDM 
         MACRO     FHASH,QXY,RXY
         VFD       2/0,7/46,1/RXY 
QXY      GETADR    1
         ENDM 
          MACRO  COLON,QXY
          VFD    2/2,7/84,1/0 
QXY       GETADR 1
          ENDM
          MACRO  TCOLON,QXY 
          VFD    2/1,7/84,1/0 
QXY       GETADR 1
          ENDM
          MACRO  FCOLON,QXY 
          VFD    2/0,7/84,1/0 
QXY       GETADR 1
          ENDM
          ENDX
