.TITLE EPIO2_MACRO
;
; DISK ROUTINES FOR EPIO I/O PACKAGE
;
                   $RABDEF
;
DKRECL:            .BLKL      100
ADKREC:            .ADDRESS    DKRECL
;
        .PSECT  $CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG
                   .ENTRY      EPOPENV_VAX,^M<>
                   $OPEN       FAB=@4(AP)
                   BRB         CONNECT
                   .ENTRY      EPOPENO_VAX,^M<>
                   $CREATE     FAB=@4(AP)
CONNECT:           BLBC        R0,300$
                   $CONNECT    RAB=@8(AP)
                   SUBL3       #1,@12(AP),R1
                   ADDL3       8(AP),#RAB$W_RSZ,@ADKREC[R1]
300$:              RET
;
                   .ENTRY      EPDKRECL,^M<>
                   SUBL3       #1,@4(AP),R1
                   ASHL        #2,R1,R1
                   ADDL2       ADKREC,R1
                   MOVZWL      @(R1),R0
                   RET
;
                   .END