.page 
        .subttl 'duplct.src'

; duplicate disk

duplct           
        lda  #badcmd     
        jmp  cmderr      

; transfer format code to buffer 0
;  & start controller formatting

format           
        lda  #$4c        
        sta  bufs+$300   

        lda  #<formt     
        sta  bufs+$301   
        lda  #>formt
        sta  bufs+$302   

        lda  #3          
        jsr  seth        
        lda  drvnum      
        ora  #exec       
        sta  jobs+3      
fmt105  lda  jobs+3      
        bmi  fmt105      

        cmp  #2          
        bcc  fmt110      

        lda  #3          
        ldx  #0          
        jmp  error       
fmt110  rts