.NLIST
  .INCLUDE /DISK$HUNTA:[MACROS]MACROS.MAC/
  .INCLUDE /MAC11.MAC/
.LIST

MODULE NAME=<MACRO>, REL=<V05>, VER=<05>, COMM=<MACRO-11 for RSX>, TYPE=<MAC11>


  EXPORT QUALIFIED SYM$FM, REG$FM, MAC$FM, PST$FM, SEC$FM, ERR$FM
  EXPORT QUALIFIED LIBLST, SECLST, DMALST, SYMLST, MCLLST, CODLST, MACLST, CPXLST
  EXPORT QUALIFIED E$R4,   E$R73,  E$R76
  EXPORT QUALIFIED CR.SYM, CR.REG, CR.MAC, CR.PST, CR.SEC, CR.ERR
  EXPORT QUALIFIED ERRROL, REGROL, PSTROL, CNDROL, EDTROL, LCDROL, SATROL, SWTROL, CRFROL
  EXPORT QUALIFIED ZP$LST, VM$LST
  EXPORT QUALIFIED CR$DRF, CR$BTS, CR$DEF
  EXPORT QUALIFIED S$V2
  EXPORT QUALIFIED LCSAVL
  EXPORT QUALIFIED INCSIZ
  EXPORT QUALIFIED MSBLGH
  EXPORT QUALIFIED $IDSIZ
  EXPORT QUALIFIED M$FLAG
  EXPORT QUALIFIED CRINIT, EDINIT, LCINIT

  EXPORT QUALIFIED IO.NNU, IO.TTY, IO$EOF, IO.ERR, IO.OPN, IO$RBG, IO.OUT

  EXPORT QUALIFIED ED.ABS, ED.AMA, ED.BMK, ED.CDR, ED.CRF, ED.DBG, ED.FPT
  EXPORT QUALIFIED ED.GBL, ED.LC,  ED.LCM, ED.LSB, ED.MCL, ED.PNC, ED.REG

  EXPORT QUALIFIED LC.,    LC.BEX, LC.BIN, LC.CND, LC.COM, LC.LD,  LC.HEX
  EXPORT QUALIFIED LC.LOC, LC.MC,  LC.MD,  LC.ME,  LC.MEB, LC.SEQ, LC.SRC
  EXPORT QUALIFIED LC.SYM, LC.TOC, LC.TTM

  EXPORT QUALIFIED ERR.,   ERR.A,  ERR.B,  ERR.D,  ERR.E,  ERR.I,  ERR.L
  EXPORT QUALIFIED ERR.M,  ERR.N,  ERR.O,  ERR.P,  ERR.Q,  ERR.R,  ERR.T
  EXPORT QUALIFIED ERR.U,  ERR.Z

  EXPORT QUALIFIED LINPPG
  EXPORT QUALIFIED EDBITS, LCBITS
  EXPORT QUALIFIED ROLBAS, $LSBAS
  EXPORT QUALIFIED ROLTOP, $LSTOP
  EXPORT QUALIFIED $LSSIZ, ROLSIZ
  EXPORT QUALIFIED $LSCNT
  EXPORT QUALIFIED IMPURE, IMPURT, IMPPAS, IMPPAT, IMPLIN, IMPLIT
  EXPORT QUALIFIED HDRTTL, $MVRSN, $MVRUP
  EXPORT QUALIFIED ERRMNE
  EXPORT QUALIFIED PUREI
  EXPORT QUALIFIED CNTTBL, IOFTBL, BUFTBL, FDBTBL
  EXPORT QUALIFIED CMLBLK
  EXPORT QUALIFIED FDB1, $NXFDB, $FDBLS, $XFDB
  EXPORT QUALIFIED $NAMSC
  EXPORT QUALIFIED $FRHD, $FRSIZ
  EXPORT QUALIFIED EDTBAS, LCTBAS, $CRTBL, CRFBAS
  EXPORT QUALIFIED $EXSTS
  EXPORT QUALIFIED $INIT
  EXPORT QUALIFIED $RDID, $PDID
  EXPORT QUALIFIED $MACPR
  EXPORT QUALIFIED OUTM1, INPM1, CSIM2, CSIM3, CSIM4, CSIM5, CSIM6
  EXPORT QUALIFIED CMLM2, CMLM3, CMLM4, CMLM5, LIBM1, LIBM2
  EXPORT QUALIFIED VIRTM1, VIRTM2, VIRTM3
  EXPORT QUALIFIED $WEAHD
  EXPORT QUALIFIED PASS
  EXPORT QUALIFIED OBJBUF, RLDBUF, CMIBUF, CRFBUF
  EXPORT QUALIFIED $CRSYM, $CRREF, $CRVAL, $CRATT, $CRFMT
  EXPORT QUALIFIED $SWTCH
  EXPORT QUALIFIED CSIBLK
  EXPORT QUALIFIED $PRTLN
  EXPORT QUALIFIED PRGTTL, PRGIDN
  EXPORT QUALIFIED EDMASK, EDMCSI, EDMBAK
  EXPORT QUALIFIED LCMASK, LCSAVE, LCLVL
  EXPORT QUALIFIED LCMCSI, LCSBAK
  EXPORT QUALIFIED MSBTYP, MSBBLK, MSBPBP, MSBTXT, MSBARG, MSBCNT, MSBMRP, MSBRDV, MSBEND
  EXPORT QUALIFIED MACNXT, MACLVL
  EXPORT QUALIFIED CONCNT
  EXPORT QUALIFIED ARGMAX
  EXPORT QUALIFIED MACNAM, MACGSB, MACWRT, MACTXT, MACWTV
  EXPORT QUALIFIED ENDVEC
  EXPORT QUALIFIED TTLBRK, TTLBUF
  EXPORT QUALIFIED CRMASK
  EXPORT QUALIFIED $LSTGT
  EXPORT QUALIFIED CRFDFL, CRFFIL
  EXPORT QUALIFIED SYMBOL
  EXPORT QUALIFIED MODE
  EXPORT QUALIFIED FLAGS
  EXPORT QUALIFIED SECTOR, VALUE
  EXPORT QUALIFIED RELLVL
  EXPORT QUALIFIED CLCNAM, CLCFGS, CLCSEC, CLCLOC, CLCMAX
  EXPORT QUALIFIED CHRPNT
  EXPORT QUALIFIED SYMBEG, ENDFLG, SYMEND
  EXPORT QUALIFIED ARGMX, ARGVC, ARGST
  EXPORT QUALIFIED GETFLG
  EXPORT QUALIFIED CNDWRD, CNDMSK, CNDLVL, CNDMEX
  EXPORT QUALIFIED CRADIX
  EXPORT QUALIFIED INCSP, INCSTK, INCSTT
  EXPORT QUALIFIED LIBNUM
  EXPORT QUALIFIED SMLLVL
  EXPORT QUALIFIED STLBUF
  EXPORT QUALIFIED GMAPNT, GMABLK
  EXPORT QUALIFIED OPCLAS
  EXPORT QUALIFIED BYTMOD, FLTWDC
  EXPORT QUALIFIED LCFLAG, LCBEGL, LCENDL
  EXPORT QUALIFIED LBLEND
  EXPORT QUALIFIED EXMFLG
  EXPORT QUALIFIED EDTTOP, LCTTOP, CRFTOP

  EXPORT QUALIFIED BASLIB, BASSEC, BASDMA, BASMCL, BASCOD, BASCPX

  EXPORT QUALIFIED BASCND, TOPCND, SIZCND
  EXPORT QUALIFIED BASEDT, TOPEDT, SIZEDT
  EXPORT QUALIFIED BASLCD, TOPLCD, SIZLCD
  EXPORT QUALIFIED BASSAT, TOPSAT, SIZSAT
  EXPORT QUALIFIED BASSWT, TOPSWT, SIZSWT
  EXPORT QUALIFIED BASCRF, TOPCRF, SIZCRF

  EXPORT QUALIFIED MACP2,  MACP2F
  EXPORT QUALIFIED RESTO,  BLKW,   NOCRO,  EVEN,   ODD,   EOT,	 ASCIZ, ASCII
  EXPORT QUALIFIED WORD,   DSABL,  NLIST,  IRPC,   MEXIT, FLT4,  FLT2
  EXPORT QUALIFIED XMIT0,  XMIT1,  XMIT2,  XMIT3,  XMIT4, XMIT5, XMIT6, XMIT7
  EXPORT QUALIFIED OPCERR
  EXPORT QUALIFIED XCTLIN, SETXPR, SAVREG, MOVBYT, $CVRL2


  FROM SYSMAC IMPORT FSRSZ$, GCMLB$

  FROM UNKNOWN IMPORT LSFLAG
  FROM UNKNOWN IMPORT FLOAT
  FROM UNKNOWN IMPORT XCTPAS
  FROM UNKNOWN IMPORT FD.REC
  FROM UNKNOWN IMPORT SAVE
  FROM UNKNOWN IMPORT SECINI
  FROM UNKNOWN IMPORT CNDTOP
  FROM UNKNOWN IMPORT IRP
  FROM UNKNOWN IMPORT BLKB
  FROM UNKNOWN IMPORT GETLIN
  FROM UNKNOWN IMPORT EX$SUC
  FROM UNKNOWN IMPORT ERRBTS
  FROM UNKNOWN IMPORT LSTBUF
  FROM UNKNOWN IMPORT FD.TTY
  FROM UNKNOWN IMPORT RAD50
  FROM UNKNOWN IMPORT ENABL
  FROM UNKNOWN IMPORT ENABMK
  FROM UNKNOWN IMPORT SATBAS
  FROM UNKNOWN IMPORT ENDLIN
  FROM UNKNOWN IMPORT SWTTOP
  FROM UNKNOWN IMPORT STMNT
  FROM UNKNOWN IMPORT PNCSET
  FROM UNKNOWN IMPORT SWTBAS
  FROM UNKNOWN IMPORT LIST
  FROM UNKNOWN IMPORT SMLFDB
  FROM UNKNOWN IMPORT SATTOP
  FROM UNKNOWN IMPORT LINBUF
  FROM UNKNOWN IMPORT $CVRL
  FROM UNKNOWN IMPORT FD.CCL
  FROM UNKNOWN IMPORT CNDBAS
  FROM UNKNOWN IMPORT BYTE
  FROM UNKNOWN IMPORT CROSS

  SYM$FM =  0
  REG$FM =  1
  MAC$FM =  2
  PST$FM =  3
  SEC$FM =  4
  ERR$FM =  5

  LIBLST =  0
  SECLST =  2
  DMALST =  4
  SYMLST =  5
  MCLLST =  6
  CODLST =  10
  MACLST =  11
  CPXLST =  12

  E$R4 =    1
  E$R73 =   2
  E$R76 =   3

  CR.SYM =  1
  CR.REG =  2
  CR.MAC =  4
  CR.PST =  10
  CR.SEC =  20
  CR.ERR =  40

  ERRROL =  1
  REGROL =  3
  PSTROL =  7
  CNDROL =  14
  EDTROL =  16
  LCDROL =  20
  SATROL =  22
  SWTROL =  24
  CRFROL =  26

  ZP$LST =  2
  VM$LST =  12

  CR$DRF =  4
  CR$BTS =  173
  CR$DEF =  200

  S$V2 =    2

  LCSAVL =  6

  INCSIZ =  11

  MSBLGH =  20

  $IDSIZ =  24

  M$FLAG =  40

  CRINIT =  45
  EDINIT =  7157
  LCINIT =  103040

  .PSECT ROODAT,SAV,GBL,D

    LINPPG: .WORD ^D<60>
    EDBITS: .WORD ^O<7157>
    LCBITS: .WORD ^O<103040>

  .PSECT ROLBAS,D

    ROLBAS:
    $LSBAS:

  .PSECT ROLTOP,D

    ROLTOP:
    $LSTOP:

  .PSECT ROLSIZ,D

    $LSSIZ:
    ROLSIZ:

  .PSECT LSTCNT,D

    $LSCNT:

  .PSECT IMPURE,D

    IMPURE:

  .PSECT IMPURT,D

    IMPURT:

  .PSECT IMPPAS,GBL,D

    IMPPAS:

  .PSECT IMPPAT,GBL,D

    IMPPAT:

  .PSECT IMPLIN,GBL,D

    IMPLIN:

  .PSECT IMPLIT,GBL,D

    IMPLIT:

  .PSECT MIXED,D

     HDRTTL: .ASCII /MACRO /
     $MVRSN: .ASCII /V05.05/
     $MVRUP: .ASCII <SPACE><SPACE>
	      .ASCIZ //
	      .EVEN

  .PSECT TXTBYT,RO,D

    ERRMNE: .ASCII / ABDEILMNOPQRTUZ/

  $CODE

    PUREI:

  .MACRO $BDEF$   SECT,SYM,VAL
    .PSECT SECT,OVR,ABS,GBL,D
    SYM  = .+VAL
  .ENDM $BDEF$

  $BDEF$ ..IO.. IO.NNU 1
  $BDEF$ ..IO.. IO.TTY 2
  $BDEF$ ..IO.. IO$EOF 4
  $BDEF$ ..IO.. IO.ERR 10
  $BDEF$ ..IO.. IO.OPN 20
  $BDEF$ ..IO.. IO$RBG 40
  $BDEF$ ..IO.. IO.OUT 100000

  $BDEF$ ..ED.. ED.ABS 1
  $BDEF$ ..ED.. ED.AMA 2
  $BDEF$ ..ED.. ED.BMK 4
  $BDEF$ ..ED.. ED.CDR 10
  $BDEF$ ..ED.. ED.CRF 20
  $BDEF$ ..ED.. ED.DBG 40
  $BDEF$ ..ED.. ED.FPT 100
  $BDEF$ ..ED.. ED.GBL 200
  $BDEF$ ..ED.. ED.LC  400
  $BDEF$ ..ED.. ED.LCM 1000
  $BDEF$ ..ED.. ED.LSB 2000
  $BDEF$ ..ED.. ED.MCL 4000
  $BDEF$ ..ED.. ED.PNC 10000
  $BDEF$ ..ED.. ED.REG 20000

  $BDEF$ ..LC.. LC.    1
  $BDEF$ ..LC.. LC.BEX 2
  $BDEF$ ..LC.. LC.BIN 4
  $BDEF$ ..LC.. LC.CND 10
  $BDEF$ ..LC.. LC.COM 20
  $BDEF$ ..LC.. LC.LD  40
  $BDEF$ ..LC.. LC.HEX 40
  $BDEF$ ..LC.. LC.LOC 100
  $BDEF$ ..LC.. LC.MC  200
  $BDEF$ ..LC.. LC.MD  400
  $BDEF$ ..LC.. LC.ME  1000
  $BDEF$ ..LC.. LC.MEB 2000
  $BDEF$ ..LC.. LC.SEQ 4000
  $BDEF$ ..LC.. LC.SRC 10000
  $BDEF$ ..LC.. LC.SYM 20000
  $BDEF$ ..LC.. LC.TOC 40000
  $BDEF$ ..LC.. LC.TTM 100000

  .PSECT  ..CT..,OVR,ABS,GBL,D
  .PSECT  .OPCL.,OVR,ABS,GBL,D

  $BDEF$ .ERR. ERR.  1
  $BDEF$ .ERR. ERR.A 2
  $BDEF$ .ERR. ERR.B 4
  $BDEF$ .ERR. ERR.D 10
  $BDEF$ .ERR. ERR.E 20
  $BDEF$ .ERR. ERR.I 40
  $BDEF$ .ERR. ERR.L 100
  $BDEF$ .ERR. ERR.M 200
  $BDEF$ .ERR. ERR.N 400
  $BDEF$ .ERR. ERR.O 1000
  $BDEF$ .ERR. ERR.P 2000
  $BDEF$ .ERR. ERR.Q 4000
  $BDEF$ .ERR. ERR.R 10000
  $BDEF$ .ERR. ERR.T 20000
  $BDEF$ .ERR. ERR.U 40000
  $BDEF$ .ERR. ERR.Z 100000

  FSRSZ$ 2

  .MACRO $TAB$ LAB1=<>,VAL1=<0>,LAB2=<>,VAL2=<0>,LAB3=<>,VAL3=<0>,LAB4=<>,VAL4=<>
    .EMIT <.PSECT ROLBAS,D>
    .IF NB LAB1
      .EMITL <LAB1>
    .ENDC
    .EMIT <.WORD VAL1>

    .EMIT <.PSECT ROLTOP,D>
    .IF NB LAB2
      .EMITL <LAB2>
    .ENDC
    .EMIT <.WORD VAL2>

    .EMIT <.PSECT ROLSIZ,D>
    .IF NB LAB3
      .EMITL <LAB3>
    .ENDC
    .EMIT <.WORD VAL3>

    .EMIT <.PSECT LSTCNT,D>
    .IF NB LAB4
      .EMITL <LAB4>
    .ENDC
    .IF NB VAL4
      .EMIT <.WORD VAL4>
    .ENDC
  .ENDM $TAB$

  $TAB$   BASLIB,0,,0,,12,,0
  $TAB$   BASSEC,0,,0,,12,,0
  $TAB$   BASDMA,0,,0,,10,,0
  $TAB$   BASMCL,0,,0,,10,,0
  $TAB$   BASCOD,0,,0,,10,,0
  $TAB$   BASCPX,0,,0,,10,,0

  $TAB$   BASCND,CNDBAS,TOPCND,CNDTOP,SIZCND,4
  $TAB$   BASEDT,EDTBAS,TOPEDT,EDTTOP,SIZEDT,4
  $TAB$   BASLCD,LCTBAS,TOPLCD,LCTTOP,SIZLCD,2
  $TAB$   BASSAT,SATBAS,TOPSAT,SATTOP,SIZSAT,4
  $TAB$   BASSWT,SWTBAS,TOPSWT,SWTTOP,SIZSWT,4
  $TAB$   BASCRF,CRFBAS,TOPCRF,CRFTOP,SIZCRF,4

  PROCEDURE MACP2
  BEGIN
    CALL XCTPAS

  ENTRY MACP2F

    CALL SECINI
    LET  LIBNUM :B= NOT LIBNUM

    REPEAT
      CALL GETLIN
      IF RESULT IS EQ THEN
	CALL STMNT
      END
      CALL    ENDLIN
    UNTIL ENDFLG NE #0

    RETURN
  END MACP2

  PROCEDURE RESTO
  BEGIN
    LET    R3 := R3 + #1
    JUMPTO SAVE
  END RESTO

  PROCEDURE BLKW
  BEGIN
    LET    R3 := R3 + #1
    JUMPTO BLKB
  END BLKW

  PROCEDURE NOCRO
  BEGIN
    LET    R3 := R3 + #1
    JUMPTO CROSS
  END NOCRO

  PROCEDURE EVEN
  BEGIN
    LET (R2) := (R2) + #1 OFF.BY #1
    RETURN
  END EVEN

  PROCEDURE ODD
  BEGIN
    LET (R2) := (R2) SET.BY #1

  ENTRY EOT

    RETURN
  END ODD

  PROCEDURE ASCIZ
  BEGIN
    LET    R3 := R3 + #1

  ENTRY ASCII

    LET    R3 := R3 + #1
    JUMPTO RAD50
  END ASCIZ

  PROCEDURE WORD
  BEGIN
    LET    R3 := R3 + #1
    JUMPTO BYTE
  END WORD

  PROCEDURE DSABL
  BEGIN
    LET    R3 := NOT R3
    JUMPTO ENABL
  END DSABL

  PROCEDURE NLIST
  BEGIN
    LET    R3 := NOT R3
    JUMPTO LIST
  END NLIST

  PROCEDURE IRPC
  BEGIN
    LET    R3 := R3 + #1
    JUMPTO IRP
  END IRPC

  PROCEDURE MEXIT
  BEGIN
   LET CNDMEX := MACLVL
   IF RESULT IS EQ THEN

  ENTRY OPCERR

     LET ERRBTS := ERRBTS SET.BY #1000
   END
   RETURN
  END MEXIT

  PROCEDURE FLT4
  BEGIN
    LET    R3 := R3 + #1

  ENTRY FLT2

    LET    R3 := R3 + #1
    JUMPTO FLOAT
  END FLT4

  PROCEDURE XCTLIN
  BEGIN
    LET R0 := #IMPLIN
    REPEAT
      LET (R0)+ := #0
    UNTIL #IMPLIT LOS R0
    RETURN
  END XCTLIN

  PROCEDURE SETXPR
  BEGIN
    LET R1 := #SYMBOL
    LET R2 := #SECTOR
    LET R3 := #MODE
    LET R4 := #VALUE
    RETURN
   END SETXPR

  PROCEDURE SAVREG
  BEGIN
   PUSH <R3, R2, R1>
   PUSH 6(SP)
   LET	10(SP) := R4
   CALL @(SP)+
   POP	<R1, R2, R3, R4>
   TST	R0
   RETURN
  END SAVREG

  PROCEDURE XMIT8
  BEGIN
    LET (R2)+ := (R1)+

  ENTRY XMIT7

    LET (R2)+ := (R1)+

  ENTRY XMIT6

    LET (R2)+ := (R1)+

  ENTRY XMIT5

    LET (R2)+ := (R1)+

  ENTRY XMIT4

    LET (R2)+ := (R1)+

  ENTRY XMIT3

    LET (R2)+ := (R1)+

  ENTRY XMIT2

    LET (R2)+ := (R1)+

  ENTRY XMIT1

    LET (R2)+ := (R1)+

  ENTRY XMIT0

    RETURN
  END XMIT8

  PROCEDURE MOVBYT
  BEGIN
    REPEAT
      LET (R2)+ :B= (R1)+
    UNTIL RESULT IS EQ
    TSTB -(R2)
    RETURN
  END MOVBYT

  PROCEDURE $CVRL2
  BEGIN
    PUSH R2
    CALL $CVRL
    POP  R2
    RETURN
  END $CVRL2

  .PSECT DPURE,RO,D

    CNTTBL:
      .WORD LSTBUF-2
      .WORD LINBUF-2
      .WORD LSTBUF-2
      .WORD A70004
      .WORD A70086
      .WORD LINBUF-2
      .WORD A70190

  .PSECT MIXED,D

    IOFTBL:
      .BLKB 16

    BUFTBL: .WORD LSTBUF
	     .WORD LINBUF
	     .WORD LSTBUF
	     .WORD OBJBUF
	     .WORD RLDBUF
	     .WORD LINBUF
	     .WORD CRFBUF

    FDBTBL: .WORD 0
	     .WORD 0
	     .WORD 0
	     .WORD 0
	     .WORD FDB1
	     .WORD SMLFDB
	     .WORD 0

    CMLBLK:

      GCMLB$ MAXD=<3>, PRMPT=<MAC>, UBUF=<CMIBUF>, SIZE=<^D<132>>

    FDB1:   .BLKB ^O<140>
    B30170: .BLKB ^O<140>
    B301D0: .BLKB ^O<140>

    $NXFDB: .WORD 0
    $FDBLS: .WORD FDB1
	     .WORD B30170
	     .WORD B301D0
    $XFDB:  .WORD 0
    $NAMSC: .BLKW 20
    $FRHD:  .BLKW 2
    $FRSIZ: .BLKW

  .MACRO $ENDS$   NAME,PROC
    .RAD50 /NAME/
    .WORD  PROC
  .ENDM $ENDS$

  .PSECT EDTSEC,RO,GBL,D

    EDTBAS:
      $ENDS$  ABS,SECINI
      $ENDS$  AMA,C50006
      $ENDS$  BMK,ENABMK
      $ENDS$  CDR,C50006
      $ENDS$  CRF,C50006
      $ENDS$  DBG,C50006
      $ENDS$  FPT,C50006
      $ENDS$  GBL,C50006
      $ENDS$  LC ,C50006
      $ENDS$  LCM,C50006
      $ENDS$  LSB,C50000
      $ENDS$  MCL,C50006
      $ENDS$  PNC,PNCSET
      $ENDS$  REG,C50006

  .PSECT LSBTST,RO,GBL

    C50000: BNE     C50006		    ; "  "     " L4"
	    CLR     LSFLAG		    ; "7   "   "AYO   "
    C50006: RETURN			    ; "  "     " CO"

  .PSECT LCTSEC,RO,GBL,D

    LCTBAS:
       .RAD50 /   /
      .RAD50 /BEX/
      .RAD50 /BIN/
      .RAD50 /CND/
      .RAD50 /COM/
      .RAD50 /HEX/
      .RAD50 /LOC/
      .RAD50 /MC /
      .RAD50 /MD /
      .RAD50 /ME /
      .RAD50 /MEB/
      .RAD50 /SEQ/
      .RAD50 /SRC/
      .RAD50 /SYM/
      .RAD50 /TOC/
      .RAD50 /TTM/
      .RAD50 /LD /

  .PSECT CRFTBL,RO,GBL,D

    $CRTBL:
      .WORD   1405		      ; "  "	 " SM"
      .WORD   3411		      ; "  "	 "AEA"
      .WORD   402		      ; "  "	 " FR"

  .PSECT CRFSEC,RO,GBL,D

    CRFBAS:
      .RAD50  /MAC/
      .WORD   4
      .RAD50  /PST/
      .WORD   10
      .RAD50  /REG/
      .WORD   2
      .RAD50  /SYM/
      .WORD   1
      .RAD50  /SEC/
      .WORD   20
      .RAD50  /ERR/
      .WORD   40

  .PSECT MIXED,D

    $EXSTS: .WORD   EX$SUC
    $INIT:  .WORD   0
    $RDID:  .BLKW   5
    $PDID:  .BLKW   5

    $MACPR: .ASCII <CR><LF>/MAC>/

  .PSECT ERRMSG,RO,GBL,D

    .MACRO $ERR MESS
      .NCHR  $L$,<MESS>
      .BYTE  $L$
      .ASCII |MESS|
    .ENDM $ERR

    OUTM1:  $ERR < -- I/O error on output file>
    INPM1:  $ERR < -- I/O error on input file>
    CSIM2:  $ERR < -- Command syntax error>
    CSIM3:  $ERR < -- Invalid filename>
    CSIM4:  $ERR < -- Invalid switch>
    CSIM5:  $ERR < -- Open failure on output file>
    CSIM6:  $ERR < -- Open failure on input file>
    CMLM2:  $ERR < -- Command I/O error>
    CMLM3:  $ERR < -- Command file open failure>
    CMLM4:  $ERR < -- Indirect command syntax error>
    CMLM5:  $ERR < -- Indirect file depth exceeded>
    LIBM1:  $ERR < -- Invalid format in macro library>
    LIBM2:  $ERR < -- I/O error on macro library file>
    VIRTM1: $ERR < -- Insufficient dynamic memory>
    VIRTM2: $ERR < -- I/O error on work file>
    VIRTM3: $ERR < -- 64K storage limit exceeded>

  .PSECT IMPURE,D

    $WEAHD: .BLKW
    PASS:   .BLKW
    A70004:  .BLKW
    OBJBUF: .BLKB 200
    A70086:  .BLKW
    RLDBUF: .BLKB 200
    CMIBUF: .BLKB 210
    A70190:  .BLKW
    CRFBUF:
    $CRSYM: .BLKW 2
    $CRREF: .BLKW 2
    $CRVAL: .BLKW
    $CRATT: .BLKB
    $CRFMT: .BLKB
    $SWTCH: .BLKW
    CSIBLK: .BLKW 54/2
    $PRTLN: .BLKW
    PRGTTL: .BLKB 10
    PRGIDN: .BLKB 10
    EDMASK: .BLKW
    EDMCSI: .BLKW
    EDMBAK: .BLKW
    LCMASK:
    LCSAVE: .BLKW
    LCLVL:  .BLKW
    LCMCSI: .BLKW
    LCSBAK: .BLKW 3
    MSBTYP:
    MSBBLK: .BLKW
    MSBPBP: .BLKW
    MSBTXT: .BLKW
    MSBARG: .BLKW
    MSBCNT: .BLKW 2
    MSBMRP: .BLKW
    MSBRDV: .BLKW
    MSBEND:
    MACNXT: .BLKW
    MACLVL: .BLKW
    CONCNT: .BLKW
    ARGMAX: .BLKW
    MACNAM: .BLKW 2
    MACGSB: .BLKW
    MACWRT: .BLKW
    MACTXT: .BLKW
    MACWTV: .BLKW
    ENDVEC: .BLKW 4
    TTLBRK: .BLKW
    TTLBUF: .BLKB ^D<100>
    CRMASK: .BLKW
    $LSTGT: .BLKW 2
    CRFDFL: .BLKB
    CRFFIL: .BLKB

  .PSECT IMPPAS,GBL,D

    SYMBOL: .BLKB 4
    MODE:
    FLAGS:  .BLKB
    SECTOR: .BLKB
    VALUE:  .BLKW
    RELLVL: .BLKW
    CLCNAM: .BLKW 2
    CLCFGS: .BLKB
    CLCSEC: .BLKB
    CLCLOC: .BLKW
    CLCMAX: .BLKW
    CHRPNT: .BLKW
    SYMBEG: .BLKW
    ENDFLG: .BLKW
    SYMEND: .BLKW
    ARGMX:  .BLKW
    ARGVC:  .BLKB 176
    ARGST:  .BLKB 372
    GETFLG: .BLKW
    CNDWRD: .BLKW
    CNDMSK: .BLKW
    CNDLVL: .BLKW
    CNDMEX: .BLKW
    CRADIX: .BLKW
    INCSP:  .BLKW
    INCSTK: .BLKB 154
    INCSTT: .BLKB
    LIBNUM: .BLKB
    SMLLVL: .BLKW
    STLBUF: .BLKB 124
    GMAPNT: .BLKW
    GMABLK: .BLKW 10

  .PSECT IMPLIN,GBL,D

    OPCLAS: .BLKW
    BYTMOD: .BLKW
    FLTWDC: .BLKW
    LCFLAG: .BLKW
    LCBEGL: .BLKW
    LCENDL: .BLKW
    LBLEND: .BLKW
    EXMFLG: .BLKW

  .PSECT EDTSEC,RO,GBL,D

    EDTTOP:

  .PSECT LCTSEC,RO,GBL,D

    LCTTOP:

  .PSECT CRFSEC,RO,GBL,D

    CRFTOP:

END MACRO
.END