no way to compare when less than two revisions

Differences

This shows you the differences between two versions of the page.

@@ Line 1: / Line 1: @@
+====== CHR Tape to Disk Transfer 1.0 ======
+<code>
+;---------------------------------------
+;CHR Tape to Disk Transfer 1.0
+;
+;(C)2005 Nostalgia
+;
+;By Fungus / Nostalgia
+;
+;Worked on Firelord, Space Trooper
+;---------------------------------------
+         *= $0801
+         ;2000 sys2061
+         .byte $0b,$08,$d0,$07,$9e
+         .byte $32,$30,$36,$31,$00
+         .byte $00,$00
+         jsr $e453   ;reset basic pnt
+         lda $ba
+         sta temp    ;save drv #
+         lda #$0b
+         sta $d011
+         lda #$80
+         sta $0291
+         lda #$17
+         sta $d018
+         lda #$00
+         sta $9d
+         sta $d020
+         sta $d021
+         sta $c0
+         lda #$05
+         sta $0286
+         lda #$2f
+         sta $00
+         lda #$37
+         sta $01
+         lda #<msg1
+         ldx #>msg1
+         jsr print
+         lda #$1b
+         sta $d011
+         lda #$ef
+         cmp $dc01
+         bne *-3
+         lda #$00
+         sta $0289
+         jsr lod      ;get header
+         jsr namer    ;get the name
+         jsr led      ;calc length and
+                      ;load file
+         lda $01
+         ora #$20
+         sta $01
+         ldx #$00     ;cracker init
+xl       lda loader,x
+         sta $0630,x
+         lda loader+$0100,x
+         sta $0730,x
+         lda #$00
+         sta $da30,x
+         sta $db00,x
+         inx
+         bne xl
+         ldx #$27     ;clr status
+         lda #$20
+cl       sta $0608,x
+         dex
+         bpl cl
+         ldx #$0f     ;save name
+nl       lda name,x
+         sta $0340,x
+         dex
+         bpl nl
+         jmp $0630
+lod
+         lda #$01     ;load header
+         tax
+         tay
+         jsr $ffba
+         lda #$00
+         jsr $ffbd
+         lda #$00
+         sta $c0
+         sta $93
+         jsr $f7d7
+         jmp $f84f
+led
+         lda #$00
+         sta $c3
+         lda #$18
+         sta $c4
+         lda $033f    ;file length calc
+         sbc $033d
+         tax
+         lda $0340
+         sbc $033e
+         tay
+         clc
+         txa
+         adc $c3      ;end address calc
+         sta $ae
+         tya
+         adc $c4
+         sta $af
+         lda $c3
+         sta $c1
+         lda $c4
+         sta $c2
+ex       jmp $f84f
+namer    ldy #$00     ;name file
+         ldx #$00
+dname    lda $0341,y
+         bmi skip
+         beq skip
+         sta name,x
+         sta $0610,x
+         inx
+skip     iny
+         cpy #$10
+         bne dname
+         lda $0353    ;get parameter
+         sta parm
+         rts
+print    sta $fb      ;print routine
+         stx $fc
+         ldy #$00
+ploop    lda ($fb),y
+         beq dprint
+         jsr $ffd2
+         inc $fb
+         bne ploop
+         inc $fc
+         bne ploop
+dprint   rts
+parm     .byte $00
+temp     .byte $00
+name     .text "                "
+msg1
+         .byte $93
+         .text "ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"
+         .text "ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"
+         .text "      CHR Transfer 1"
+         .text ".0 / Nostalgia      "
+         .text "ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"
+         .text "ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"
+         .text "                    "
+         .text "                    "
+         .text "          Completely"
+         .text " Automatic          "
+         .text "                    "
+         .text "                    "
+         .text "      Put a fresh di"
+         .text "sk in drive 8.      "
+         .text "                    "
+         .text "                    "
+         .text "      Rewind tape, a"
+         .text "nd press PLAY.      "
+         .text "                    "
+         .text "                    "
+         .text "   Press SPACE to be"
+         .text "gin transfering.    "
+         .text "                    "
+         .text "                    "
+         .text "ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"
+         .text "ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"
+         .byte $00
+msg2     .text "found   "
+msg3     .text "saving  "
+loader   = *
+         *= $0630
+         .offs loader-*
+         lda parm
+         sta mod+1
+         lda temp
+         sta drv
+         ldx #$0f
+ln       lda $0340,x    ;filename
+         sta $0610,x
+         dex
+         bpl ln
+         sei            ;clear mem
+         lda #$24
+         sta $01
+         lda #$00
+         ldx #$00
+         ldy #$f8
+l1       sta $0800,x
+         inx
+         bne l1
+         inc l1+2
+         dey
+         bne l1
+         lda #$27
+         sta $01
+start    lda #<rs
+         sta $0328    ;r/s vector
+         lda #>rs
+         sta $0329
+res      cli
+         ldy #$00
+         sty $c6      ;key buff
+         sty $c0      ;motor on
+         sty $02      ;eor val
+         lda $d011    ;vic off
+         and #$ef
+         sta $d011
+i12ca    dex          ;wait!
+         bne i12ca
+         dey
+         bne i12ca
+         sei
+         jmp i1351    ;load
+i12d4    lda $dc0d    ;get bit
+         and #$10
+         beq i12d4
+         lda $dd0d
+         stx $dd07
+         lsr a
+         lsr a
+         lda #$19
+         sta $dd0f
+         rts
+i1351    sei          ;load
+mod      lda #$fa
+         sta $dd06    ;timer low
+         ldx #$01
+i1359    jsr i12d4    ;get bit
+         rol $f7      ;00 to start
+         lda $f7
+         cmp #$63
+         bne i1359    ;sync
+         ldy #$64
+i1366    jsr i13e7    ;get byte
+         cmp #$63
+         beq i1366    ;sync
+i136d    cpy $f7      ;sync
+         bne i1359
+         jsr i13e7    ;get byte
+         iny
+         bne i136d    ;skip $9d bytes
+         cmp #$00
+         beq i1351    ;try again
+i137b    jsr i13e7    ;get byte
+         sta !$2b,y   ;002b-0034
+         sta !$f9,y   ;00f9-0102
+         iny
+         cpy #$0a
+         bne i137b
+         ldy #$00
+         sty $90      ;st
+         sty $02      ;eor val
+i138f    jsr i13e7    ;get byte
+         sta ($f9),y
+         eor $02
+         sta $02
+         inc $f9
+         bne i139e
+         inc $fa
+i139e    lda $f9
+         cmp $2d
+         lda $fa
+         sbc $2e
+         bcc i138f    ;load loop
+         jsr i13e7    ;get byte
+         iny
+         sty $c0      ;motor off
+         cli
+         clc
+         lda #$00
+         sta $02a0    ;irqtmp! why?
+         jsr $fc93    ;reset irq
+         jsr $e453    ;reset basic pnts
+mod1     jsr sa
+         jsr se
+mod2     jmp res
+         jmp ok
+i13e7    lda #$07     ;get byte
+         sta $f8
+i13eb    jsr i12d4
+         rol $f7
+         inc $d020
+         dec $f8
+         bpl i13eb
+         lda $f7
+         rts
+sa       lda $2b
+         sta $03fc
+         lda $2c
+         sta $03fd
+         lda #$2c
+         sta mod1
+         rts
+se       lda $31
+         bne more
+         lda $2d
+         sta $fb
+         lda $2e
+         sta $fc
+         lda $03fc
+         sta $ac
+         lda $03fd
+         sta $ad
+         lda $2f
+         sta $03fc    ;jmp addy
+         lda $30
+         sta $03fd
+         lda #$2c
+         sta mod2
+more     rts
+rs       lda #$80
+         ora $91
+         jmp $f6ef    ;bypass run/stop
+ok
+         lda #$00     ;saver
+         sta $d020
+         ldx #$07
+dl       lda st,x     ;save message
+         sta $0608,x
+         dex
+         bpl dl
+         lda #$01     ;open file for
+         ldx drv      ;saving
+         ldy #$01
+         jsr $ffba
+         lda #$10
+         ldx #$40
+         ldy #$03
+         jsr $ffbd
+         jsr $ffc0
+         ldx #$01
+         jsr $ffc9
+         lda $ac
+         jsr $ffa8
+         lda $ad
+         jsr $ffa8
+         ldy #$00
+saveb    sei          ;save loop
+         inc $01
+         lda ($ac),y
+         dec $01
+         jsr $ffa8
+         inc $d020
+         dec $d020
+         inc $ac
+         bne b1
+         inc $ad
+b1       lda $ac
+         cmp $fb
+         lda $ad
+         sbc $fc
+         bcc saveb
+         lda #$01     ;close and reset
+         jsr $ffc3
+         sei
+         lda #$2f
+         sta $00
+         lda #$37
+         sta $01
+         inc $d020
+         jmp *-3
+st       .text "saving  "
+drv      .byte $00
+</code>