0 . DISK2SND COPIER
1 . WITHOUT ANY CABLES.
2 . BY JAKUB HUSAK, DATE:07.2012
4 . JUST RETYPE THIS PROGGY,
5 . PUT THE DISK INTO DRIVE 1
6 . YOU WANT TO CONVERT TO XFD,
7 . ENTER NUMBERS AND RECORD
8 . OUTGOING NOISE ON PC, THEN
9 . SAVE AS WAV AND FEED THE PC APP
10 SUM=13218 : PLEN=145
11 POKE 65,0:  DIM A$(4), B$(512)
12 FOR I=1 TO PLEN*2 STEP 4: READ A$: B$(I,I+4)=A$:N.I
13 FOR I=1 TO PLEN*2 STEP 2: VAL=(ASC(B$(I))-65)*16+
   ASC(B$(I+1))-65:POKE 1536+(I-1)/2,VAL:SUM=SUM-VAL:N.I
14 IF SUM<>0 THEN ? "DATA ERROR": END
15 ? "START SEC?": I. SSEC
16 ? "END SEC?": I. ESEC
17 ? "SECT LEN [1]28/[2]56?":I. SLEN
18 FOR I=SSEC TO ESEC: ? "READING SECTOR: ";I,"ST: ";:
   ? USR(1543,I,I,128+(I>3)*(SLEN=2)*128): N.I
19 ? "OPERATION COMPLETED." : END
20 D. DBAB,FCEA,AIAE,BOKC,AGLN
21 D. AAAG,JNAA,ADGI,JNAI,ADMK
22 D. BAPD,CAFJ,OEIF,NFIE,NEBA
23 D. ABGA,HICA,FIAG,KJFH,IFDB
24 D. CAGI,AGKC,AJIN,AKNE,CAGC
25 D. AGNA,PICA,GFAG,KAAE,KJAI
26 D. IFHO,KJAD,IFHP,CAHG,AGOG
27 D. HPKM,AIAD,CAHG,AGKF,DBKA
28 D. AACA,HJAG,KAEA,KJCC,IMAO
29 D. NEIN,AANE,FIGA,JAAD,INAK
30 D. NEKF,DFCM,KJBP,EJAP,IFDF
31 D. INAK,NEIN,ABNC,MKGA,IILB
32 D. HOIF,DCBI,GFDB,CKGJ,AAIF
33 D. DBKC,AHAG,DCCA,GAAG,BAPJ
34 D. MAAA,NAOG,GA

        OPT h-
        org $607 - basic_entry + siotable
tmp = $32
vedge    =$35
buffer   =$408
seclen  = DDEVIC+8
        icl "atari.asm"
siotable
        .by $31 $01 'R' $40
        ; +4
        .wo buffer
        ; +6
        .by 30
basic_entry
        ldx #6
nsiotab
        lda siotable,x
        sta DDEVIC,x
        pla
        sta DDEVIC+8,x
        dex
        bpl nsiotab
        jsr SIOV
        sta $d5 ; 0
        sty $d4 ; 1 if ok
        spl:rts

        sei
        jsr nmi ; 1->NMIEN 0->DMACTL
loop:
        lda #$57
        sta chksum
        jsr zero
        ldx #9
nedge
        sta WSYNC
        jsr ledge
        bne nedge
        jsr edge

        ldy #4
        mwa #seclen $7e
        jsr outsector

        ; lsb are the same, buffer one page further
        inc $7f
        ldy seclen
        jsr outsector
        lda chksum
        ldy #0
        jsr outbyte
        ldy #$40
        lda #$22
nmi     sty NMIEN
        sta DMACTL
        cli
        rts
cedge   bcc edge
ledge   sta WSYNC
edge:
        lda vedge
        ; skip next two bytes 
        .byte $2C ; bit Q
zero:
        lda #$1f
        eor #$0f
        sta vedge
        sta WSYNC
        sta AUDC1
        dex
        rts
outsector
        dey
        lda ($7e),y
outbyte
        sta tmp
        clc
        adc chksum
        rol
        adc #0
        sta chksum
        ldx #7
loop2
        asl tmp
        jsr cedge
        bpl loop2
        cpy #0
        bne outsector
        rts