Tiger Disk 13

home *** CD-ROM | disk | FTP | other *** search

/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / turbo-load.seq < prev next >

Wrap

Text File | 2023-02-26 | 9KB | 2 lines

*= $5000 ;--------------------------------------- ;ab label 'fname' muss der dateiname ;stehen. in dem byte ab label fleng ;muss die laenge des filenames stehen ;aufruf mit jsr tload ;--------------------------------------- ; ; **** externe spruenge **** ; e0686 = $0686 ec100 = $c100 ec19e = $c19e ee60a = $e60a eed09 = $ed09 eed0c = $ed0c eedb9 = $edb9 eedc7 = $edc7 eeddd = $eddd eedfe = $edfe eee13 = $ee13 ef4a7 = $f4a7 ef50a = $f50a ef5af = $f5af ef5d2 = $f5d2 ef5e9 = $f5e9 ef704 = $f704 ef8e0 = $f8e0 ef969 = $f969 eff93 = $ff93 effa8 = $ffa8 effae = $ffae effb1 = $ffb1 effba = $ffba effbd = $ffbd effc0 = $ffc0 effc3 = $ffc3 effe7 = $ffe7 ; ; **** felder **** ; f0100 = $0100 f0300 = $0300 ; ; **** absolute adressen **** ; a02 = $02 a03 = $03 a04 = $04 a05 = $05 a06 = $06 a0c = $0c a0d = $0d a18 = $18 a19 = $19 a38 = $38 a3a = $3a a47 = $47 a85 = $85 a90 = $90 a93 = $93 aa4 = $a4 aae = $ae aaf = $af ab8 = $b8 ab9 = $b9 aba = $ba ac3 = $c3 ac4 = $c4 a0300 = $0300 a0301 = $0301 a0330 = $0330 a0331 = $0331 a1800 = $1800 a1c01 = $1c01 ad011 = $d011 ad020 = $d021 add00 = $dd00 ; ; **** pointer **** ; p03 = $03 pae = $ae pbb = $bb pa000 = $a000 ; ; **** programm **** ; ; tload jsr iccf0 ldy #$11 jsr iccfb jsr effae jsr iccf0 ldy #$1a jsr iccfb jsr effae jsr iccf0 ldy #$00 jsr iccfb jsr effae jsr iccf0 ldy #$08 jsr iccfb jsr effae ldx #$08 ldy #$00 jsr effba lda fleng ldx #<fname ldy #>fname jsr effbd lda #$00 ldx #$01 ldy #$08 stx ac3 sty ac4 sta a93 lda $d020 sta icced+1 jsr icea5 icced lda #0 sta $d020 rts iccf0 lda #$08 jsr effb1 lda #$6f jsr eff93 rts iccfb lda fcd0a,y cmp #$33 beq icd09 jsr effa8 iny clc bcc iccfb icd09 rts ; fcd0a .byte $4d,$2d,$57,$7e;"m-w{$7e} .byte $00,$01,$11,$33;".3 .byte $4d,$2d,$57,$6f;"m-wO .byte $02,$01,$00,$33;".3 .byte $2a,$4d,$2d,$57;"*m-w .byte $0a,$00,$02,$12;" . .byte $00,$33,$4d,$2d;".3m- .byte $57,$02,$00,$01;"w. .byte $b0,$33 icd2c .byte $a9,$03 .byte $85,$31;"1 ; icd30 jsr ef50a icd33 bvc icd33 clv lda a1c01 sta f0300,y iny bne icd33 ldy #$ba icd41 bvc icd41 clv lda a1c01 sta f0100,y iny bne icd41 jsr ef8e0 lda a38 cmp a47 beq icd5b lda #$04 jmp ef969 icd5b jsr ef5e9 cmp a3a beq icd67 lda #$05 jmp ef969 icd67 lda a0300 beq icd96 ldx #$00 icd6e lda f0300,x jsr e0686 inx bne icd6e lda a0300 cmp a0c bne icd8a lda a0301 sta a0d lda a0300 sta a0c bne icd30 icd8a sta a0c lda a0301 sta a0d lda #$01 jmp ef969 icd96 ldx #$00 inc a0301 icd9b lda f0300,x jsr e0686 inx cpx a0301 bne icd9b lda #$7f jmp ef969 brk brk brk brk brk brk sta a85 icdb4 bit a1800 bpl icdb4 lda #$10 sta a1800 icdbe bit a1800 bmi icdbe lda #$00 asl a85 rol a asl a asl a85 rol a asl a sta a1800 lda #$00 asl a85 rol a asl a asl a85 rol a asl a sta a1800 lda #$00 asl a85 rol a asl a asl a85 rol a asl a sta a1800 lda #$00 asl a85 rol a asl a asl a85 rol a asl a sta a1800 nop nop nop lda #$0f sta a1800 rts brk jsr ec100 lda a18 ldx a19 sta a0c stx a0d sta a0300 stx a0301 ice12 lda #$e0 sta a03 ice16 lda a03 bmi ice16 cmp #$02 bcc ice12 cmp #$7f beq ice25 jmp ee60a ice25 jmp ec19e brk brk brk brk ice2c lda #$0b sta add00 ice31 lda add00 bpl ice31 lda #$03 sta add00 jsr ice72 inc ad020 lda add00 asl a php asl a rol aa4 plp rol aa4 lda add00 asl a php asl a rol aa4 plp rol aa4 lda add00 asl a php asl a rol aa4 plp rol aa4 lda add00 asl a php asl a rol aa4 plp rol aa4 lda aa4 eor #$ff rts ice72 dec ad020 nop nop nop rts ice79 jsr ice2c sta aae jsr ice2c sta aaf lda a02 bne ice8f lda ac3 sta aae lda ac4 sta aaf ice8f rts brk brk brk brk brk brk brk brk ice98 sta a93 ldy #$00 lda (pbb),y cmp #$24 bne icea5 jmp ef4a7 icea5 lda #$08 sta ab8 jsr ef5af jsr effe7 ldx ab9 stx a02 lda #$60 sta ab9 jsr effc0 lda aba jsr eed09 lda ab9 jsr eedc7 jsr eee13 lda aba jsr effc3 lda a90 lsr a lsr a bcc iced5 jmp ef704 iced5 jsr ef5d2 lda #<icd2c sta a03 lda #>icd2c sta a04 lda #$00 sta a05 lda #$06 sta a06 icee8 lda aba jsr eed0c lda #$6f jsr eedb9 lda #$4d jsr eeddd lda #$2d jsr eeddd lda #$57 jsr eeddd lda a05 jsr eeddd lda a06 jsr eeddd lda #$20 jsr eeddd ldy #$00 icf12 lda (p03),y jsr eeddd iny cpy #$20 bcc icf12 jsr eedfe clc lda a03 adc #$20 sta a03 bcc icf2a inc a04 icf2a clc lda a05 adc #$20 sta a05 bcc icf35 inc a06 icf35 ldx a06 cpx #$07 bcc icee8 nop nop nop nop lda aba jsr eed0c lda #$6f jsr eedb9 lda #$4d jsr eeddd lda #$2d jsr eeddd lda #$45 jsr eeddd lda #$d5 jsr eeddd lda #$06 jsr eeddd jsr eedfe lda ad011 and #$ef sta ad011 sei ldx #$04 icf70 jsr ice2c beq icf96 jsr ice2c cpx #$02 beq icf7f jsr ice79 icf7f ldy #$00 icf81 jsr ice2c ;;; pha lda #50 sta 1 pla sta (pae),y pha lda #55 sta 1 inc $d020 pla ;;; inc aae bne icf8c inc aaf icf8c inx bne icf81 ldx #$02 bne icf70 nop nop nop icf96 jsr ice2c cpx #$02 beq icfa2 pha jsr ice79 pla icfa2 tax dex dex ldy #$00 icfa7 jsr ice2c ;;; pha lda #50 sta 1 pla sta (pae),y pha lda #55 sta 1 pla ;;; inc aae bne icfb2 inc aaf icfb2 dex bne icfa7 lda aba jsr eed0c lda #$6f jsr eedb9 lda #$49 jsr eeddd jsr eedfe lda ad011 ora #$10 sta ad011 ldx aae ldy aaf clc rts lda #<ice98 sta a0330 lda #>ice98 sta a0331 jmp (pa000) brk brk ;--------------------------------------- ; fname .text "dateiname" fleng .byte 9 ;---------------------------------------