.include "cydheader.a64"


open     = $ffc0
listen   = $ffb1
seclst   = $ff93
iecout   = $ffa8
unlist   = $ffae
close    = $ffc3
filnam   = $ffbd
filpar   = $ffba
load     = $ffd5
save     = $ffd8
inittab  = $fd15


         *= dos

loadr    jmp loadr2
saver    jmp saver2
         jmp zerocop
		 jmp loadabs
;loadaddr	.word 0
loadaddr	= zp+3

saver2   jsr init
         jsr scratch
         jsr setspee
         lda #0
         tay
         jsr filpar2
      ;  dec zp+2
         jsr setfnam
         lda #zp+3
         ldx zp+5
         ldy zp+6
         jsr save
         jmp retur


scratch
         lda #1
         ldy #$6f
         jsr filpar2
         lda #0
         jsr filnam
         jsr open
         lda #$08
         jsr listen
         lda #$6f
         jsr seclst

         lda #"s"
         jsr iecout
         lda #":"
         jsr iecout
      ;  ldy zp+2
      ;  dey
      ;  sty n33+1
         ldy #0
n3       lda (zp),y
         jsr iecout
         iny
n33      cpy zp+2
         bcc n3

         lda #$08
         jsr unlist
         lda #$01
         jmp close

loadabs
		 jsr init
         ldy #0
		 jmp loadr3
		
loadr2   jsr init
         ldy #1
loadr3   jsr filpar2
         lda #0
		 ldx loadaddr
		 ldy loadaddr+1
         jsr load
retur
         jsr zerocop
         lda $dc0d
         jsr change
         lda #$35
         sta $01
p170     lda $d011       ;to scrn off
         bpl p170
         lda #0
         sta $d020
sson     lda #$00
         and #$7f
         sta $d011
         rts

zerocop
         .block

         sei
         lda #$35
         sta $01

         ldx #7
n1       lda zp,x
         sta zmem+zp,x
         dex
         bpl n1

         ldx #2
n2       lda $00,x
         ldy zmem,x
         sta zmem,x
         sty $00,x
         inx
         bne n2

         rts
         .bend

init
         .block
         lda $dc01
         and #$10
         bne n0
       ; pla
       ; pla
       ; rts
n0
         lda #$00
         sta $d418
         lda $d011        ;to scrn off
         sta sson+1
         lda #$00
         sta $d020
         jsr zerocop
         lda #$36
         sta $01
         lda #$00
         sta $d01a
         sta $d019
         lda $d011         ;to scrn off
         and #$0f
       ; sta $d011
         lda #$c0
         sta $0288

       ; jsr inittab
         jsr copspe2
         jsr change
         jsr setspee
         .bend

getfnam
         ldy zp+2
         bpl n22
                ;"*" an filnam anhaengen
         tya         ;zp+2 maskieren
         and #$7f
         tay
         dey
         lda #"*"
         sta fname,y

n22      dey
n1       lda (zp),y
         sta fname,y
         dey
         bpl n1
         lda #<fname
         sta zp
         lda #>fname
         sta zp+1
      ;  inc zp+2
setfnam

         ldx #30
         lda #$20
;loo1     sta $07c0,x
loo1     sta filename07c0,x		;---  modified ---
         dex
         bpl loo1

         ldy zp+2
         dey
loo2     lda (zp),y
        ; sta $07c0,y
		 sta filename07c0,y		;--- modified ---
         dey
         bpl loo2


         ldx zp
         ldy zp+1
         lda zp+2
         jmp filnam


filpar2  ldx #8
         jmp filpar

change
         rts
copspe2
         rts
setspee
         rts

fname    .text "                "

filename07c0	.text "                                "

zmem                      ;ZERO-PAGE-MEM

         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"
         .text "@@@@@@@@@@@@@@@@"