.....................  begin common deck ASMREGS ................
.
.
.  Define Macros for definning X and A register equates.
.
          PROC
xreg      pname
f:(0,0)   equ    f:(2,0)
f:(0,0)   atrib  #regtyp,#xreg
          PEND
          PROC
areg      pname
f:(0,0)   equ    f:(2,0)
f:(0,0)   atrib  #regtyp,#areg
          PEND
.
.  Define A and X register usage
.
a_tos     areg     0
a_dsp     areg     0
a_csf     areg     1
a_psa     areg     2
a_bindin  areg     3
a_plist   areg     4
.
.
.
.....................  end common deck ASMREGS ....................
