!!!CompyShop Sector Copy Source Code 

!!SECTOR.ASM

{{{


00010          .LI OFF
00020          .OR $2F00
00030          .OF "D1:SCOPY.COM"
00040 ------------------------------
00050 *********************
00060 ** SECTORCOPY MAIN **
00070 *********************
00080 ------------------------------
00090 S        SEI       STARTROUTINE
00100          LDA #0    Schiebt Pro-
00110          TAY       gramm unter
00120          STY $D40E das Betriebs
00130          STA $F0   System
00140          STA $F2
00150          LDA #$E0
00160          STA $F1
00170          LDA #$30  E000 -> 3000
00180          STA $F3
00190 .1       LDA ($F0),Y
00200          STA ($F2),Y
00210          INY
00220          BNE .1    Zeichensatz
00230          INC $F3   nach $3000
00240          INC $F1
00250          LDA $F1
00260          CMP #$E4  bis E400
00270          BNE .1
00280          LDA $D301
00290          AND #$FE  OS aus
00300          ORA #2    Basic aus
00310          STA $D301
00320          LDY #0
00330          LDA #$F0
00340          STA $F1
00350          LDA #$30  3000 -> F000
00360          STA $F3
00370 .2       LDA ($F2),Y
00380          STA ($F0),Y
00390          INY
00400          BNE .2
00410          INC $F3   Programm
00420          INC $F1   unter OS
00430          LDA $F1   schieben
00440          BNE .2
00450          LDY #ENRES-RESET
00460 .3       LDA RESET,Y
00470          STA $100,Y
00480          DEY      System-Reset
00490          BPL .3   Routine nach
00500          INY      $100 kopieren
00510          STY $244
00520          STY $C
00530          INY
00540          STY $9
00550          STY $D
00560          JMP $100 Zum Programm
00570 ------------------------------
00580 RESET    SEI      System-Reset
00590          STA $D40F
00600          LDA #0
00610          TAY
00620 .1       STA $D400,Y Hardware-
00630          STA $D000,Y  Register
00640          STA $D200,Y  loeschen
00650          INY
00660          BNE .1
00670          LDA $D301
00680          AND #$FE    OS aus
00690          ORA #$FC
00700          STA $D301
00710          LDA #$22    Bildschirm
00720          STA $D400   normal
00730          LDA #$F0    $F000=
00740          STA $D409   CHRBASE
00750          LDA #2
00760          STA $D401   CHACTL
00770          LDA #3
00780          STA $D20F   SIO-Status
00790          LDA #$40
00800          STA $D40E   NMIEN
00810          JSR CLRTI   Timeout-
00820 ;               Vector loeschen
00830          JMP SCOPY   START
00840 ENRES
00850 ------------------------------
00860          .OR $F400
00870          .TA $3400
00880 *
00890          .IN "D:COPY1.ASM
00900          .IN "D:COPY2.ASM
00910          .IN "D:DSKSYS.ASM
00920 ------------------------------
00930 DISPLY   .BL $F0
00940 ;
00950 DSBUF    .BL $50
00960 ------------------------------
00970 END ; Ende des Sector-Copiers
00980 ------------------------------
00990          .OR $FFFA
01000          .TA $3FFA
01010 *
01020          .DA PNMI  NMI-Vector
01030          .HX 0000  Reset-Vector
01040 ;          wird nicht benoetigt
01050          .DA RETIRQ IRQ-Vector
01060 ------------------------------
01070          .OR $2E0  File Start
01080          .DA S
01090 ------------------------------
}}}

!!COPY1.ASM

{{{

00010 ------------------------------
00020 ***********
00030 ** COPY1 **
00040 ***********
00050 ------------------------------
00060 ;
00070 ; ZERO-PAGE VARIABLEN FESTLEGEN
00080 ; DA KEIN BETRIEBSSYSTEM MEHR
00090 ; VORHANDEN IST, KOENNEN FAST
00100 ; ALLE ADRESSEN BENUTZT WERDEN
00110 ;
00120 SOURC    = $70
00130 SOUST    = $72
00140 DESTN    = $71
00150 DESST    = $73
00160 FORMT    = $74
00170 RETRY    = $75
00180 RAMDSK   = $76
00190 BYT1     = $7A / $7B
00200 EQUAL    = $7C
00210 DENS     = $7D
00220 CFIRST   = $7E
00230 SPFLAG   = $7F
00240 *
00250 SPTBL    = $1C - $1F
00260 RSECA    = $60 / $61
00270 RSECB    = $62 / $63
00280 RSECC    = $64 / $65
00290 *
00300 BANKS    = $66
00310 BANKNR   = $67
00320 MAXBANK  = $68
00330 SPBYT    = $69
00340 HIMEM    = $6A
00350 *
00360 SLEFT    = $37
00370 SROW     = $38
00380 SSKIP    = $39
00390 FBYT     = $3A
00400 DLEFT    = $3B
00410 DROW     = $3C
00420 DSKIP    = $3D
00430 FINC     = $3E
00440 FFIRST   = $3F
00450 *
00460 DUNIT    = $21
00470 DCOMND   = $22
00480 DSTATS   = $23
00490 DBUFLO   = $24
00500 DBUFHI   = $25
00510 DTIM     = $26
00520 DBYTLO   = $28
00530 DBYTHI   = $29
00540 DSECLO   = $2A
00550 DSECHI   = $2B
00560 ;
00570 PORTB    = $D301
00580 TSTBYT   = $4000
00590 ;
00600 ; AB LOMEM KOENNEN DATEN
00610 ; ABGELEGT WERDEN
00620 ;
00630 LOMEM    = $400
00640 ------------------------------
00650 ;
00660 ; DIE DISPLAY-LIST DES
00670 ; SECTOR-KOPIERERS
00680 ;
00690 DLIST  .HX 70707046
00700        .DA LINE
00710        .HX 47
00720        .DA HTEX
00730        .HX 40061046
00740        .DA LINE
00750        .HX 7042
00760        .DA DISPLY
00770        .HX 30023070027050
00780        .HX 02702002702002702046
00790        .DA LINE
00800        .HX 46
00810 RWLINE .DA SETUP
00820        .HX 1046
00830        .DA LINE
00840        .HX 41
00850        .DA DLIST
00860 ------------------------------
00870 ;
00880 ; TEXTE IM BILDSCHIRMFORMAT
00890 ;
00900 HTEX   .AT "   sectorcopy \^Q\^N\^T   "
00910        .AT -" \^Hp	 \^P\^V\^O\^X\^W  e\^Nreuss "
00920 LINE   .AT "--------------------"
00930 SETUP  .AT -"     einstellen "
00940 FMATIN .AT -"     formatieren   "
00950 INSOUR .AT -"  original diskette"
00960 INDEST .AT -"    ziel diskette  "
00970 INBOTH .AT -" disketten einlegen"
00980 DSKERR .AT -"  disk fehler \^C  "
00990 READIN .AT -"     sector         "
01000 ------------------------------
01010 ;
01020 ; START DES SEKTOR-KOPIERERS
01030 ;
01040 SCOPY    LDX #$FF
01050          TXS
01060          SEI
01070          LDA #DLIST DISPLAY-
01080          STA $D402  LIST SETZEN
01090          LDA /DLIST
01100          STA $D403
01110          LDY #4
01120 .1       LDA COLTB,Y   FARBEN
01130          STA $D016,Y   SETZEN
01140          DEY
01150          BPL .1
01160          STY RAMDSK
01170          LDA /SETUP
01180          STA RWLINE+1
01190          JSR CLRSCR  BILDSCHIRM
01200          LDX #4        LOESCHEN
01210          STX RETRY
01220          LDA #$28    HIGH-SPEED
01230 .2       STA SPTBL-1,X TABELLE
01240          DEX           AUF
01250          BNE .2        STANDARD
01260          STX FORMT
01270 ;
01280 ; TESTEN OB EINE RAMDISK VOR-
01290 ; HANDEN IST UND WIE GROSS
01300 ; DIESE IST
01310 ;
01320          LDX #$80  KLEINE
01330 .3       LDA $D40B VERZOEGERUNG
01340          BNE .3
01350          DEX
01360          BPL .3
01370          STX TSTBYT
01380          DEX
01390          STX PORTB
01400          LDY #$F     16 BANKS
01410          STY MAXBANK
01420 .4       LDY MAXBANK
01430          JSR SWITCH  DATEN IN
01440          STY TSTBYT  BANKS
01450          DEC MAXBANK SCHREIBEN
01460          BPL .4
01470          LDA #$FE
01480          STA PORTB
01490 *
01500          LDY #0
01510          STY BYT1
01520          STY MAXBANK
01530 *
01540          LDA TSTBYT  RAMDISK
01550          CMP #$FF    VORHANDEN?
01560          BNE MTEST
01570 *
01580 .5       LDY MAXBANK
01590          CPY #$10
01600          BCS .6
01610          JSR SWITCH  DATEN AUS
01620          LDA TSTBYT  RAMDISK
01630          CMP BYT1    AUSLESEN
01640          BMI .6      UND DABEI
01650          STA BYT1    MAXIMALE
01660          INC MAXBANK ANZAHL DER
01670          JMP .5      BANKS
01680 .6       LDA #$FE   FESTSTELLEN
01690          STA PORTB
01700          BNE MTEST
01710 *
01720 SWITCH   LDA PORTB  BANK
01730          AND #$23   EINSCHALTEN
01740          ORA BANKTB,Y
01750          STA PORTB
01760          RTS
01770 ------------------------------
01780 ;
01790 ; RAMDISK BANK-TABELLE
01800 ; FUER COMPY-SHOP RAMDISK UND
01810 ; 130 XE RAMDISK
01820 ;
01830 BANKTB   .HX CCC8C4C08C888480
01840          .HX 4C4844400C080400
01850 ------------------------------
01860 MTEST
01870 *         64K -> 00
01880 *        128K -> 04
01890 *        192K -> 08
01900 *        320K -> 10
01910 ------------------------------
01920 ;
01930 ; TEST OB EINE CARTRIDGE IM
01940 ; RECHNER STECKT
01950 ;
01960 NO64K    LDA #$80
01970          LDY $8000
01980          INC $8000
01990          CPY $8000   16K ?
02000          BEQ CHRAM
02010          LDA #$A0
02020          LDY $A000
02030          INC $A000
02040          CPY $A000   8K ?
02050          BEQ CHRAM
02060          LDA #$C0
02070 CHRAM    STA HIMEM
02080 ------------------------------
02090 ;
02100 ; TESTEN WIEVIELE LAUFWERKE
02110 ; ANGESCHLOSSEN SIND UND OB
02120 ; DIESE LAUFWERKE HIGH-SPEED
02130 ; FAEHIG SIND
02140 ;
02150          LDA #1     AB DRIVE 1
02160          JSR HSCHK  TESTEN
02170          BCC .1
02180          JMP SCOPY  KEINE DISK
02190 .1       STY SOUST  STATUS
02200          LDA DUNIT
02210          STA SOURC  ORIGINAL
02220          ORA #$10   IN ATASCII
02230          STA SDNR
02240          LDX #$40   KLEINE
02250          LDY #0     ZEIT-
02260 .2       DEY        VEZOEGERUNG
02270          BNE .2
02280          DEX
02290          BNE .2
02300          LDX DUNIT  DRIVE
02310          INX        +1
02320          TXA
02330          JSR HSCHK  TESTEN
02340          BCS .3
02350          LDA DUNIT
02360          BNE .4
02370 .3       LDA SOURC  ORIG=ZIEL
02380          LDY SOUST
02390 .4       STA DESTN
02400          STY DESST
02410          ORA #$10   IN ATASCII
02420          STA DDNR
02430 ;
02440 ; MENU-BILDSCHIRM AUFBAUEN
02450 ;
02460 START    JSR CLRSCR
02470          LDY #8
02480          JSR TXTOUT
02490          .AT "Original Laufwerk.... D"
02500 SDNR     .AT "1"
02510          .HX EA
02520          LDY #48
02530          JSR TXTOUT
02540          .AT "Ziel Laufwerk........ D"
02550 DDNR     .AT "1"
02560          .HX EA
02570 ;
02580 STA2     LDX #SETUP
02590          STX RWLINE
02600          LDY #120
02610          JSR CLRSC1
02620 ;
02630          LDY #94
02640          JSR TXTOUT
02650          .AT "Speicher: "
02660          .HX EA
02670          LDA HIMEM   =C0/A0/80
02680          AND #$60
02690          LSR         :8
02700          LSR
02710          LSR         =18/14/10
02720          LDX MAXBANK
02730          CPX #4      4 BANKS
02740          BCC .1
02750          CLC
02760          ADC #12
02770 .1       CPX #8      8 BANKS
02780          BCC .2
02790          CLC
02800          ADC #12
02810 .2       CPX #$10    16 BANKS
02820          BCC .3
02830          CLC
02840          ADC #12
02850 .3       TAX
02860          LDA #4      SPEICHER-
02870          STA BYT1    GROESSE
02880 .4       LDA MEMTB,X ANZEIGEN
02890          STA DISPLY,Y
02900          INY
02910          INX
02920          DEC BYT1
02930          BNE .4
02940 *
02950          LDA RAMDSK  DATEN IN
02960          BNE BEF0    RAMDISK ?
02970          LDY #125
02980          JSR TXTOUT
02990          .AT "\M^Yœ–‘…œŒ\^Y"
03000          .AT ".Von Ramdisk schreiben"
03010          .HX EA
03020          JMP BEF1
03030 BEF0     LDA SOURC   ORIG=ZIEL?
03040          CMP DESTN
03050          BEQ BEF1
03060          LDY #125
03070          JSR TXTOUT
03080          .AT "\M^Yœ–‘…œŒ\^Y"
03090          .AT ".Laufwerke austauschen"
03100          .HX EA
03110 BEF1     LDY #165
03120          JSR TXTOUT
03130          .AT "\M^Y”≈Ã≈√‘\^Y"
03140          .AT ".....Formatieren: "
03150          .HX EA
03160          LDA FORMT   FORMATFLAG
03170          BEQ BEF2
03180          JSR TXTOUT
03190          .AT "NEIN"
03200          .HX EA
03210          BEQ TXCOP
03220 BEF2     JSR TXTOUT
03230          .AT " JA "
03240          .HX EA
03250 TXCOP    LDY #205
03260          JSR TXTOUT
03270          .AT "\M^Y”‘¡“‘\^Y"
03280          .AT "......Diskette kopieren"
03290          .HX EA
03300 ;
03310 GETBEF   JSR GETKEY
03320          CMP #5      SELECT ?
03330          BEQ FORMAT
03340          CMP #6      START ?
03350          BEQ GOCOPY
03360          LDA RAMDSK  DATEN IN
03370          BEQ WFRD    RAMDISK ?
03380 ;
03390 EXCHAN   LDY SOURC   OPTION-
03400          LDX DESTN   TASTE
03410          STY DESTN
03420          STX SOURC   ORIGINAL
03430          TYA         UND ZIEL
03440          ORA #$10    TAUSCHEN
03450          STA DDNR
03460          TXA
03470          ORA #$10
03480          STA SDNR
03490          LDY SOUST
03500          LDX DESST
03510          STY DESST
03520          STX SOUST
03530          JMP START
03540 ;
03550 WFRD     LDY #203   VON RAMDISK
03560          STY DLEFT  SCHREIBEN
03570          LDX #$FF
03580          STX CFIRST
03590          INX
03600          STX DROW
03610          STX DSKIP
03620          STX EQUAL
03630          STX FFIRST
03640          LDY #120
03650          JSR CLRSC1
03660          LDY #120  ALTE ANZEIGE
03670 WFR1     LDA DSBUF,X    SETZEN
03680          STA DISPLY,Y
03690          INX
03700          INY
03710          CPY #200
03720          BNE WFR1
03730          LDA #$37
03740          STA DISPLY+201
03750          JMP WRITER  ZUR
03760 ;               SCHREIBROUTINE
03770 ;
03780 FORMAT   LDA FORMT  FORMATFLAG
03790          EOR #$FF   INVERTIEREN
03800          STA FORMT
03810          JMP STA2
03820 ;
03830 GOCOPY   LDA SOURC  START COPY
03840          EOR DESTN
03850          STA EQUAL  ORG=ZIEL
03860 *
03870          LDY #6
03880          LDA #0
03890          STA SPFLAG  POINTER
03900          STA FFIRST  LOESCHEN
03910 .1       STA SLEFT,Y
03920          DEY
03930          BPL .1
03940          STY CFIRST
03950          LDA #163    SCREEN-
03960          STA SLEFT   POSITIONEN
03970          LDA #203    DER BALKEN
03980          STA DLEFT   SETZEN
03990          LDY #120
04000          JSR CLRSC1
04010          LDA #$32
04020          STA DISPLY+161
04030          LDA #$37
04040          STA DISPLY+201
04050          STA RETRY
04060          LDX #1      SEKTOR 1
04070          STX RSECA
04080          DEX
04090          STX RSECA+1
04100 ;
04110 BEGIN    LDA EQUAL   ORG=ZIEL?
04120          BEQ .2
04130          LDX #INBOTH "BEIDE DSK
04140          LDA #$20     EINLEGEN"
04150 .1       STX RWLINE
04160          LDA #$20    AUF TASTE
04170          JSR HITRET  WARTEN
04180          CMP #6      START ?
04190          BEQ .3
04200          JMP STA2    ZUM MENU
04210 .2       LDX #INSOUR "ORIGINAL
04220          BNE .1       EINLEGEN"
04230 .3       LDA CFIRST  1.DURCH-
04240          BMI .4         GANG ?
04250          JMP COP3
04260 .4       LDA #$53    STATUS...
04270          STA DCOMND
04280          LDA #4      4 BYTES
04290          STA DBYTLO
04300          LDA #$40    READ
04310          STA DSTATS
04320          JSR SETBUF
04330          LDY SOURC
04340          JSR MOVSLO  SIO....
04350          LDY #133    SCRPOS
04360          JSR TXTOUT
04370          .AT "Density:  "
04380          .HX EA
04390          LDA LOMEM   STATUSBYTE
04400          AND #$A0
04410          STA DENS    MERKEN
04420          AND #$80    MEDIUM ?
04430          BNE MEDIUM
04440          LDA #5     INCREMENT
04450          STA FINC   FUER BALKEN
04460          LDA LOMEM
04470          AND #$20    DOUBLE ?
04480          BNE DOUBLE
04490          STA DENS
04500          JSR TXTOUT
04510          .AT "SINGLE"
04520          .HX EA
04530          JMP COPZD
04540 ;
04550 MEDIUM   LDX #8
04560          STX FINC
04570          JSR TXTOUT
04580          .AT "MEDIUM"
04590          .HX EA
04600          BEQ COPZD
04610 ;
04620 DOUBLE   JSR TXTOUT
04630          .AT "DOUBLE"
04640          .HX EA
04650 ;
04660 ; BEI SPEEDY 1050 KANN MIT
04670 ; 2 LAUFWERKEN DIE ZIELDISK
04680 ; FORMATIERT WERDEN, WENN DAS
04690 ; ORIGINAL EINGELESEN WIRD
04700 ;
04710 COPZD    LDA EQUAL
04720          BEQ COP3    ORG=ZIEL
04730          LDA FORMT
04740          BNE COP3    NO FORMAT
04750          BIT DESST
04760          BPL COP3    NO SPEEDY
04770          JSR SETDEN  DENSITY
04780          SEC          SETZEN
04790          JSR SETVER  VERIFY AUS
04800          TYA
04810          BMI COP3
04820 JCOP     LDA #$20    COMMAND 20
04830          STA DCOMND AUTO-FORMAT
04840          LDA #0
04850          STA DSTATS
04860          LDY DESTN
00518          JSR MOVSLO  SIO...
04880          TYA
04890          BPL FFOK
04900          JSR ERROR   FEHLER
04910          BCC JCOP    VERSUCH?
04920          JMP STA2    NEUSTART
04930 ;
04940 FFOK     INC FFIRST  1.DURCHG.
04950 COP3     LDA RSECA   START-
04960          STA RSECC   SEKTOR
04970          LDA RSECA+1 MERKEN
04980          STA RSECC+1
04990          LDY SOURC   ORG-DRIVE
05000          STY DUNIT
05010          BIT SPFLAG  HI-SPEED
05020          BPL .1
05030          LDA #$28    SLOW
05040          STA SPTBL-1,Y
05050 .1       JSR SETBUF  BUFFER
05060 .2       LDX SLEFT     SETZEN
05070          LDY SROW
05080          LDA SSKIP
05090          JSR DFUEL   BALKEN
05100          STA SSKIP    AKTUALI-
05110          STY SROW      SIEREN
05120          STX SLEFT
05130 .3       LDX #READIN "LESE -"
05140          STX RWLINE
05150          LDA #$40    GETBYTES
05160          STA DSTATS
05170          LDA RSECA   SEKTOR #
05180          STA DSECLO
05190          LDA RSECA+1
05200          STA DSECHI
05210          LDA #$52    READ
05220          STA DCOMND
05230          JSR SETLEN  LAENGE
05240          JSR MASTER  SIO...
05250          BCC .5
05260          BIT SPFLAG  ERROR?
05270          BPL .4
05280          JSR ERROR
05290          CMP #6      START ?
05300          BEQ .3
05310          CMP #5      SELECT ?
05320          BEQ .5
05330          JMP STA2    NEUSTART
05340 ;
05350 .4       LDY DUNIT
05360          LDA SPTBL-1,Y
05370          STA SPBYT
05380          LDA #$28
05390          STA SPTBL-1,Y
05400          DEC SPFLAG
05410          BNE .3
05420 .5       JSR ENDCHK  ENDE ?
05430          BCC .2
05440 ;
05450 ; DATEN SCHREIBEN
05460 ;
05470 WRITER   LDA RSECA   START-
05480          STA RSECB    SEKTOR
05490          LDA RSECA+1
05500          STA RSECB+1
05510          LDA EQUAL   ORG=ZIEL?
05520          BNE COPW1
05530          LDX #INDEST "ZIEL
05540          STX RWLINE   EINLEGEN"
05550          LDA #$20
05560          JSR HITRET  TASTE...
05570          CMP #5      OPTION ?
05580          BCC .1      VERIFY:
05590          LSR         SELECT=EIN
05600          JSR SETVER   START=AUS
05610          JMP COPW1
05620 .1       JMP STA2    NEUSTART
05630 ;
05640 COPW1    LDA RSECC   START-
05650          STA RSECA    SEKTOR
05660          LDA RSECC+1
05670          STA RSECA+1
05680          LDA DESTN   ZIELDRIVE
05690          STA DUNIT
05700          BIT SPFLAG  SLOW ?
05710          BPL .1
05720          LDY SOURC
05730          LDA SPBYT
05740          STA SPTBL-1,Y
05750 .1       LDA CFIRST  1.DURCHG.?
05760          BPL NOFORM
05770          LDA FFIRST  FORMAT OK?
05780          BNE NOFORM
05790          LDA FORMT   NO FORMAT
05800          BNE NOFORM
05810 .2       LDX #FMATIN "FORMAT.."
05820          STX RWLINE
05830          LDA DESST
05840          BPL .3
05850          JSR SETDEN  DENSITY
05860 .3       LDA #$80      SETZEN
05870          STA DBYTLO  $80 BYTES
05880          LDA #$22    COMMAND 22
05890          BIT DENS    MEDIUM ?
05900          BMI .5
05910          LDA DENS    DOUBLE ?
05920          BEQ .4
05930          ASL DBYTLO  $100 BYTES
05940 .4       LDA #$21    COMMAND 21
05950 .5       STA DCOMND
05960          LDA #$D5    $D500
05970          STA DBUFHI  BUFFER
05980          LDA #$40
05990          STA DSTATS  STATUS
06000          LDY DESTN
06010          JSR MOVSLO  SIO...
06020          TYA
06030          BPL NOFORM  FORMAT OK
06040          JSR ERROR
06050          BCC .2      WEITER
06060          JMP STA2    NEUSTART
06070 ;
06080 NOFORM   LDA #$50    PUTBYTE
06090          STA DCOMND
06100          INC CFIRST  1.DURCHG.
06110          JSR SETBUF  BUFFER
06120 .1       LDX #READIN "LESE-"
06130          STX RWLINE
06140          LDA #$80
06150          STA DSTATS  STATUS
06160          LDA RSECA
06170          STA DSECLO
06180          LDA RSECA+1
06190          STA DSECHI  SEKTOR #
06200          JSR SETLEN  LAENGE
06210          JSR EMPTY   SEKTOR
06220          BCS .2         LEER ?
06230          JSR MASTER  SIO...
06240          BCC .2      ERROR ?
06250          JSR ERROR
06260          BCC .1      WEITER
06270          JMP STA2    NEUSTART
06280 ;
06290 .2       LDX DLEFT
06300          LDY DROW
06310          LDA DSKIP
06320          JSR DFUEL   BALKEN
06330          STA DSKIP   AKTUALI-
06340          STY DROW    SIEREN
06350          STX DLEFT
06360          JSR ENDCHK  ENDE ?
06370          BCC .1
06380          PHP
06390          LDA DESST
06400          BPL .3
06410          LDA #$51    COMMAND 51
06420          STA DCOMND  MOTOR STOP
06430          LDA #0
06440          STA DSTATS
06450          LDY DESTN
06460          JSR MOVSLO  SIO...
06470 .3       PLP
06480          BEQ DONE    DISK ENDE
06490          LDA RSECB
06500          STA RSECA   ENDSEKTOR
06510          LDA RSECB+1  MERKEN
06520          STA RSECA+1
06530          LDA EQUAL   ORG=ZIEL?
06540          BNE .4
06550          JMP BEGIN
06560 .4       JMP COP3    WEITER...
06570 ------------------------------

}}}