R$$T11 =: 1

.NLIST

.INCLUDE /KXX:DSMAC.MAC/
.INCLUDE /KXX:MYMAC.MAC/
.INCLUDE /KXX:ASCII.MAC/
.INCLUDE /KXX:HWDF.MAC/

.MACRO $GEN$$ DRVNAM, DRVNM2, CFINT, CFDMA, CF64, MMODE, DEBUG

  DRVNAM'$PN2= <^R'DRVNM2  >

  CFBASE =: DRVNAM'BASE
  CFVEC  =: DRVNAM'VEC
  CFPRI	 =: DRVNAM'PRI

  .IF DF RT$OLD
    $SYPTR = ^O<54>
    P1$EXT = ^O<432>
  .ENDC

  .IF IDN <CFINT> <YES>
    CF$INT =: 1	; interrupt support
  .IFF
    CF$INT =: 0	; no interrupt support
  .ENDC

  .IF IDN <CFDMA> <YES>
    CF$DMA =: 1	; DMA support
  .IFF
    CF$DMA =: 0	; no DMA support
  .ENDC

  .IF IDN <CF64> <YES>
    DRVNAM'$N64 =: 1	; Up to 64 device support
  .IFF
    DRVNAM'$N64 =: 0	; Up to 8 device support
  .ENDC
  CF$N64 =: DRVNAM'$N64

  .IF IDN <MMODE> <YES>
    CF$MM  =: 1	; Multiply Mode command support (experimental !!!, not tested!!!!)
  .IFF
    CF$MM  =: 0	; No multiply Mode command support
  .ENDC

  .IF NE CF$MM
    BL$CNT =: ^D<128>
  .ENDC

  .IF IDN <MMODE> <YES>
    CF$DBG =: 1	; Insert HALT command to debug
  .IFF
    CF$DBG =: 0	; No debug HALT
  .ENDC

  .MACRO BREAKP

    .IF NE CF$DBG
      .EMIT <HALT>
    .ENDC

  .ENDM BREAKP

  .MACRO $DRIVER DESCRIPTION, VERSION

    MODULE NAME=<DRVNAM>, VER=<VERSION>, COMM=<DESCRIPTION>, WAUDIT=<YES>, TYPE=<NOSECT>

  .ENDM $DRIVER

  .MACRO $DRDEF 

    .IF DF RT$OLD
      .DRDEF DRVNAM, 352, FILST$, 65534., CFBASE+P$CSR2, CFVEC
      DRVNAM'$NAM=^R'DRVNAM
    .IFF
      .DRDEF DRVNAM, 352, FILST$, 65534., CFBASE+P$CSR2, CFVEC, UNIT64=<CF64>, DMA=<CFDMA>
    .ENDC
    CF$NAM =: DRVNAM'$NAM

  .ENDM $DRDEF

  .MACRO $DRBEG

    .DRBEG DRVNAM

    CFCQE =: DRVNAM'CQE		; Current queue element
    CFLQE =: DRVNAM'LQE

  .ENDM $DRBEG

  .MACRO $DRAST PRRT, ABORT

    .DRAST DRVNAM, PRRT, ABORT	; PR4 !!!

  .ENDM $DRAST

  .MACRO $DRFIN

    .DRFIN DRVNAM

  .ENDM $DRFIN

  .MACRO $DRBOT PENTRY, PREAD

    .DRBOT DRVNAM, PENTRY, PREAD

    CFBOOT =: DRVNAM'BOOT

  .ENDM $DRBOT

  .MACRO $DREND

  .LIST ME
    .DREND DRVNAM
  .NLIST ME

    .IF NDF RT$OLD
      .IF NE DRVNAM'$N64
        CF$X64 =: DRVNAM'$X64
      .ENDC
    .ENDC

  .ENDM $DREND

  .MACRO $END

    END DRVNAM

  .ENDM $END

.ENDM

.LIST