copset.src

	.page  
	.subttl 'copset.src'

; dskcpy check for type
; and parses special case

dskcpy           
        lda  #$e0       ; kill bam buffer
        sta  bufuse      
        jsr  clnbam     ; clr tbam
        jsr  bam2x      ; get bam lindx in .x
        lda  #$ff        
        sta  buf0,x     ; mark bam out-of-memory
        lda  #$0f        
        sta  linuse     ; free all lindxs
        jsr  prscln     ; find ":"
        bne  dx0000      
        jmp  duplct     ; bad command error, cx=x not allowed
	.nlist
;
;jsr prseq
;
;lda #'* ;cpy all
;ldx #39 ;put at buffer end
;stx filtbl+1
;sta cmdbuf,x ;place *
;inx
;stx cmdsiz
;ldx #1 ;set up cnt's
;stx f1cnt
;inx
;stx f2cnt
;jmp movlp2 ;enter routine
;
	.list
dx0000  jsr  tc30       ; normal parse
dx0005  jsr  alldrs     ; put drv's in filtbl
        lda  image      ; get parse image
        and  #%01010101 ; val for patt copy
        bne  dx0020     ; must be concat or normal
        ldx  filtbl     ; chk for *
        lda  cmdbuf,x    
        cmp  #'*         
        bne  dx0020      
	.nlist
;ldx #1 ;set cnt's
;  no pattern matching allowed
;stx f1cnt
;inx
;stx f2cnt
;jmp cpydtd ;go copy
	.list
dx0010  lda  #badsyn    ; syntax error
        jmp  cmderr      
dx0020  lda  image      ; chk for normal
        and  #%11011001          
        bne  dx0010      
        jmp  copy        
	.nlist
;.end
;prseq            
;        lda  #'=        ; special case
;        jsr  parse       
;        bne  x0020       
;x0015   lda  #badsyn     
;        jmp  cmderr      
;x0020   lda  cmdbuf,y    
;        jsr  tst0v1      
;        bmi  x0015       
;        sta  fildrv+1   ; src drv
;        dey      
;        dey      
;        lda  cmdbuf,y    
;        jsr  tst0v1      
;        bmi  x0015       
;        cmp  fildrv+1   ; cannot be equal
;        beq  x0015       
;        sta  fildrv     ; dest drv
;        rts      
	.list