* Procedure MAKEFN
*
* This procedure will construct the file name out of the
* current path plus the file name.
*

MAKEFN MOVB @>834C,R6        Get SCSI ID
       ANDI R6,>0F00
       AI   R6,->100

* Copy the path to the name compare buffer
*

       MOV  R6,R1
       SRL  R1,8
       LI   R0,40
       MPY  R0,R1
       AI   R2,PATH
       LI   R3,NCB

MKFNA  LDCR @B02,4
       CB   *R2,@SPACE
       JEQ  MKFNB
       MOVB *R2+,R4
       JEQ  MKFNB
*      LDCR @B02,4
       MOVB R4,*R3
       LDCR @B04,4
       MOVB R4,*R3+
       JMP  MKFNA
*      DEC  R0
*      JNE  MKFNA
MKFNB
       CI   R3,NCB
       JEQ  MKFNC
       LDCR @B02,4
       CB   @-1(R3),@PERIOD
       JEQ  MKFNC
       MOVB @PERIOD,*R3
       LDCR @B04,4
       MOVB @PERIOD,*R3+
MKFNC
       LI   R5,10
       MOV  @>834E,R2        Get pointer to file name
       MOVB @>834C,R1
       ANDI R1,>8000
       JNE  MKFND

* Set the VDP read address to the buffer

       SWPB R2
       MOVB R2,@VDPWA
       SWPB R2
       MOVB R2,@VDPWA
MKFND

* Now copy the file name
*
       CI   R1,0
       JNE  MKFNE

       MOVB @VDPRD,R4
       JMP  MKFNF

MKFNE  MOVB *R2+,R4
MKFNF  CB   R4,@ZERO
       JEQ  MKFNG
       CB   R4,@SPACE
       JEQ  MKFNG
       LDCR @B02,4
       MOVB R4,*R3
       LDCR @B04,4
       MOVB R4,*R3+
       DEC  R5
       JNE  MKFND

MKFNG  CI   R3,NCB+40
       JEQ  MKFNH
       LDCR @B02,4
       MOVB @SPACE,*R3
       LDCR @B04,4
       MOVB @SPACE,*R3+
       JMP  MKFNG

MKFNH  RT
