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 ------------------------------
