cbmsrc/DOS_1571_05/duplct.src at master · mist64/cbmsrc · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
        .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