Speedy 1050 Backup#
Table of Contents
Disk Image#
Source#
BACKUP.ASM#
00010 .LI ON 00020 ------------------------------ 00030 ; SPEEDY BACKUP V 1.1 00040 ; (P) THOMAS NIEHAUS -TABS- 00050 ; (C) 1986/87 COMPY-SHOP 00060 ; --BIBO-ASSEMBLER 00070 ; TOOLDISK 2 - 1987 00080 ------------------------------ 00090 .LI OFF 00100 .OR $400 00110 .OF "D:BACKUP.COM" 00120 .DF "D:HS.DAT 00130 ------------------------------ 00140 .OR $2500 00150 ------------------------------ 00160 ;VERSCH 00170 ;IST EINE EINFACHE VERSCHIE- 00180 ;ROUTINE. DA DAS HAUPTPROGRAMM 00190 ;IN EINEM SPEICHERBEREICH LIEGT 00200 ;WO SICH NORMALERWEISE DAS DOS 00210 ;BEFINDET, MUESSEN WIR DAS 00220 ;PROGRAMM VOR DEM START IM 00230 ;SPEICHER VERSCHIEBEN. 00240 ------------------------------ 00250 VERSCH LDA #$10 00260 STA $F0 00270 STA $F2 00280 LDA #$06 00290 STA $F1 00300 LDA #$26 00310 STA $F3 00320 LDX #$14 00330 LDY #$00 00340 .1 LDA ($F2),Y 00350 STA ($F0),Y 00360 INY 00370 BNE .1 00380 INC $F1 00390 INC $F3 00400 DEX 00410 BNE .1 00420 JMP $610 00430 ------------------------------ 00440 .OR $610 00450 .TA $2610 00460 ------------------------------ 00470 .IN "D:EQUATES.ASM 00480 .IN "D:MENU.ASM 00490 .IN "D:COPY.ASM 00500 .IN "D:INIT.ASM 00510 .IN "D:DRIVE.ASM 00520 ------------------------------ 00530 .OR $2E0 00540 .DA $2500 00550 ------------------------------ 00560 ;ERKLAERUNGEN: 00570 ;DAS PROGRAMM KANN NUR VON DER 00580 ;DISKETTE AUF DIE DISKETTE 00590 ;ASSEMBLIERT WERDEN. EIN 00600 ;ARBEITEN MIT DER RAMDISK IST 00610 ;EBENFALLS MOEGLICH. ALLE 00620 ;INCLUDE DATEIEN (ZEILEN 150- 00630 ;190) MUESSEN DANN VON D: 00640 ;AUF DIE RAMDISK NUMMER GE- 00650 ;AENDERT WERDEN (ZB. D8:)! 00660 ;AUCH DIE DATENDATEI US.DAT 00670 ;MUSS DANN AUF D8:US.DAT GE- 00680 ;AENDERT WERDEN! 00690 ------------------------------ 00700 ;HS.DAT 00710 ;IST EINE REINE DATENDATEI. 00720 ;SIE ENTHAELLT DIE HIGH-SPEED 00730 ;ROUTINE. 00740 ------------------------------ 00750 ;EQUATES.ASM 00760 ;ENTHAELLT ALLE VOM PROGRAMM 00770 ;BENOETIGTEN SYSTEM ADRESSEN 00780 ------------------------------ 00790 ;MENU.ASM 00800 ;IST DAS HAUPTMENU DES BACKUP 00810 ;PROGRAMMES. ALLE EINSTELLUNGEN 00820 ;KOENNEN VON HIER AUS VORGE- 00830 ;NOMMEN WERDEN. 00840 ------------------------------ 00850 ;COPY.ASM 00860 ;ENTHAELLT IST DAS EIGENTLICHE 00870 ;KOPIERPROGRAMM. HIER SIND ALLE 00880 ;WICHTIGEN PROGRAMMTEILE ENT- 00890 ;HALTEN. 00900 ------------------------------ 00910 ;INIT.ASM 00920 ;INITIALISIERT DAS KOMPLETTE 00930 ;SYSTEM. 00940 ------------------------------ 00950 ;DRIVE.ASM 00960 ;BEINHALTET DIE ROUTINE, DIE 00970 ;ZUM LAUFWERK GESCHICKT WIRD. 00980 ------------------------------ 00990 ;DAS FERTIG ASSEMBLIERTE PRO- 01000 ;GRAMM KANN NUR VOM DOS AUS 01010 ;GESTARTET WERDEN! 01020 ;EIN PROGRAMMSTART VOM BIBO- 01030 ;ASSEMBLER HER IST NICHT 01040 ;MOEGLICH. 01050 ------------------------------ 01060 ;AENDERN SIE DAS PROGRAMM NACH 01070 ;IHREN WUENSCHEN ODER BEDUERF- 01080 ;NISSEN! VIELLEICHT IST KOENNEN 01090 ;SIE ES SOGAR VERBESSERN! 01100 ;MELDEN SIE SICH DANN BEI UNS! 01110 ; 01120 ;COMPY-SHOP 0208-497169 01130 ; 01140 ; VIEL SPASS 01150 ------------------------------
EQUATES.ASM#
00010 ------------------------------ 00020 .LI ON 00030 ;"†≈—’¡‘≈”†" 00040 .LI OFF 00050 ------------------------------ 00060 ; DATE : 18 / 09 / 1986 00070 ------------------------------ 00080 ; ATARI EQUATES : 00090 ------------------------------ 00100 SAV1 = $C0 2 B. 00110 DRVSEL = SAV1+2 1 B. 00120 SAV2 = SAV1+3 2 B. 00130 MAXSAV = SAV1+5 2 B. 00140 CBUF = $1000 00150 LOMEM = $1A00 00160 HIMEM = $2E6 00170 M1 = SAV1+7 1 B. 00180 M2 = SAV1+8 1 B. 00190 DLEN = SAV1+9 2 B. 00200 TRACKNUM = SAV1+11 1 B. 00210 LTRACK = SAV1+12 1 B. 00220 STRACK = SAV1+13 1 B. 00230 HLEN = SAV1+14 1 B. 00240 FORKEN = SAV1+15 1 B. 00250 MAXDRV = 2 00260 FDRV = SAV1+16 1 B. 00270 BEGIN = $8000 00280 FDCSTAT = SAV1+17 1 B. 00290 DISPLAY = SAV1+18 2 B. 00300 SLOC = SAV1+20 2 B. 00310 DLOC = SAV1+22 2 B. 00320 ------------------------------ 00330 ;DRIVE ROUTINE POINTER 00340 ;DRIVE EQUATES : 00350 ------------------------------ 00360 BUF = $90 00370 XSAV = BUF+2 00380 YSAV = BUF+3 00390 HEADBUF = $8800 00400 SECBUF = $8C00 SECTOR BUFF 00410 RDHEAD = $FF7E 00420 RDHD1 = $FF81 00430 X2WAIT = $FF1B 00440 TRACK0 = $FF1E 00450 CSEC = BUF+4 00460 TSEC = BUF+5 00470 ------------------------------ 00480 ;RDSEC1 = $FF66 00490 ;Y=0,(IND) = $19 BUFFER. 00500 ;(SECLEN)= $14 SEI $80 00510 ;SECTOR = $0E 00520 ------------------------------ 00530 SENDC = $FF5A 00540 SENDA = $FF57 00550 TRACKPO = $FF21 00560 CONRES = $FF2A 00570 MOTON = $FF09 00580 CLRTRA = $FFAE 00590 SDBTS = $FF54 00600 SENDE = $FF5D 00610 SDRDDP = $FF15 00620 TSTWRP = $FF6F 00630 MOTOFF = $FF0F 00640 ------------------------------
MENU.ASM#
00010 ------------------------------ 00020 .LION 00030 ;"†Õ≈Œ’†" 00040 .LIOFF 00050 ------------------------------ 00060 ; STAND: 18/11/86' 00070 ------------------------------ 00080 BASE = $58 DISPLAY START 00090 HSCROLL = $D404 00100 MAXSCROL = 145 00110 ------------------------------ 00120 MENUEST JSR RAMDISKINIT 00130 JSR OEFFNE 00140 JSR RDCAP 00150 JMP COPYST 00160 OEFFNE JSR TEXTOUT 00170 .HX 7D9B 00180 .AS ' SPEEDY 1050 BACKUP INITIALIZER' 00190 .HX 9B9BEA 00200 RTS 00210 ------------------------------ 00220 RDCAP JSR TEXTOUT 00230 .AS 'RAM - SIZE : ' 00240 .HX EA 00250 LDA RAMDISKFLG 00260 BEQ .1 NO RAMDISK LOCATED 00270 CMP #$10 00280 BEQ .2 00290 CMP #8 00300 BEQ .3 00310 CMP #4 00320 BEQ .4 00330 LDA #0 00340 STA RAMDISKFLG 00350 .1 JSR TEXTOUT 00360 .DA "MAX. 64 K BYTES",#$9B,#$EA 00370 RTS 00380 .2 JSR TEXTOUT 00390 .DA "320 K BYTES",#$9B,#$EA 00400 RTS 00410 .3 JSR TEXTOUT 00420 .DA "192 K BYTES",#$9B,#$EA 00430 RTS 00440 .4 JSR TEXTOUT 00450 .DA "128 K BYTES",#$9B,#$EA 00460 RTS 00470 ------------------------------ 00480 VPX .HX 0F 00490 HSCNT .HX 00 00500 NOSCROL .HX 00 00510 DEFVBI .DA $E462 00520 ------------------------------ 00530 ;"Õ≈Œ’≈†ƒ…”–ំÅ”‘" 00540 ------------------------------ 00550 MENUDL LDA #DL 00560 STA $230 00570 LDA /DL 00580 STA $231 00590 LDA #14 00600 STA $2C5 00610 LDA #2 00620 STA $2C6 00630 LDA $D6AE 00640 CMP #$A9 00650 BNE .1 00660 JSR $D6AE 00670 LDA $224 00680 STA DEFVBI 00690 LDA $225 00700 STA DEFVBI+1 00710 ------------------------------ 00720 ;"…Œ…‘†…ÕƆ÷¬…†§≤≤≤Ƨ≤≤≥" 00730 ------------------------------ 00740 .1 LDA #0 00750 STA $D40E 00760 LDA #VBI 00770 STA $222 00780 LDA /VBI 00790 STA $223 00800 LDA #DVBI 00810 STA $224 00820 LDA /DVBI 00830 STA $225 00840 LDA #$40 00850 STA $D40E 00860 RTS 00870 ------------------------------ 00880 DVBI LDX #$18 00890 .1 LDA $3CF,X 00900 AND #$7F 00910 STA CLK,X 00920 DEX 00930 BPL .1 00940 JMP (DEFVBI) 00950 ------------------------------ 00960 VBI LDA HSCNT 00970 CMP #MAXSCROL 00980 BCC .0 00990 LDA NOSCROL 01000 BMI .2 01010 LDA #TXTSP 01020 STA HSLMS 01030 LDA /TXTSP 01040 STA HSLMS+1 01050 LDA #MAXSCROL-44 01060 STA HSCNT 01070 LDA #$FF 01080 STA NOSCROL 01090 ------------------------------ 01100 .0 LDX VPX 01110 DEX 01120 CPX #$C 01130 BCC .1 01140 STX HSCROLL 01150 STX VPX 01160 JMP $E45F 01170 .1 LDA #$F 01180 STA HSCROLL 01190 STA VPX 01200 INC HSCNT 01210 INC HSLMS 01220 BNE .2 01230 INC HSLMS+1 01240 .2 JMP $E45F 01250 ------------------------------ 01260 ;"¡†Ω†”‘¡‘’”" 01270 ;"ÿ†Ω†”≈√‘œ“" 01280 ;"Ÿ†Ω†‘“¡√À" 01290 ------------------------------ 01300 CLRBASE LDA #19 01310 STA VAL 01320 .1 LDY TRACKNUM 01330 LDX VAL 01340 JSR CALC 01350 LDA #0 01360 STA (DISPLAY),Y 01370 DEC VAL 01380 BNE .1 01390 RTS 01400 PUTBASE CPX #20 01410 BCS RTN1 01420 CPY #40 01430 BCS RTN1 01440 PHA 01450 JSR CALC 01460 LDA (DISPLAY),Y 01470 BEQ D 01480 PLA 01490 ORA #$80 01500 STA (DISPLAY),Y 01510 RTN1 RTS 01520 ------------------------------ 01530 D PLA 01540 STA (DISPLAY),Y 01550 RTS 01560 ------------------------------ 01570 CALC LDA #0 01580 STA $1 01590 DEX 01600 TXA 01610 ASL 01620 ASL 01630 ASL 01640 STA $0 01650 ASL 01660 ROL $1 01670 ASL 01680 ROL $1 01690 ADC $0 01700 BCC .1 01710 INC $1 01720 CLC 01730 .1 ADC BASE 01740 STA DISPLAY 01750 LDA $1 01760 ADC BASE+1 01770 STA DISPLAY+1 01780 RTS 01790 ------------------------------ 01800 DL .HX 707046 01810 .DA TXT1 01820 .HX 1000020002021042 01830 LMS .DA $9C40 01840 .HX 020202020202 01850 .HX 020202020202 01860 .HX 020202020202 01870 ZDL .HX 00 01880 .HX 52 ;H SCROLL 01890 HSLMS .DA TXT2 01900 .HX 0046 01910 .DA MESSAGE 01920 .HX 41 01930 .DA DL 01940 MESSAGE .AT ' ' 01950 .AT ' ' 01960 TXT1 .AT ' SPEEDY BACKUP V1.1' 01970 .AT ' ' 01980 .AT ' TRACK ' 01990 .AT ' STATUS ' 02000 .AT ' 1 2 3 ' 02010 .AT '0123456789012345678901234567890123456789' 02020 TXTSP .AT ' ' 02030 .AT ' ' 02040 TXT2 .AT ' COPYRIGHT BY COMPY' 02050 .AT ' - SHOP MH 10 / 86 ' 02060 .AT ' *** ' 02070 .AT ' -SPEEDY BACKUP V1.1 -' 02080 .AT ' BY ' 02090 .AT -' TAPS ' 02100 .AT ' ,THOMAS NIEHAUS ' 02110 .AT '(p) ' 02120 CLK .AT ' ' 02130 .AT ' ' 02140 .AT ' ' 02150 MSOURCE 02160 .AT 'INSERT SOURCE,PLEASE' 02170 MDEST 02180 .AT ' INSERT DESTINATION ' 02190 ------------------------------ 02200 RAMDISKINIT 02210 LDA $D301 02220 STA PB 02230 LDA #$23 02240 STA $D301 02250 LDA #0 02260 STA $4000 02270 LDA PB 02280 STA $D301 02290 LDA #$23 02300 STA $4000 02310 STA $D301 02320 LDA $4000 02330 CMP #$23 02340 BEQ .2 NO RAMD.! 02350 LDY #0 02360 LDX #0 02370 .1 LDA $D301 02380 AND #$23 02390 ORA RDTAB,Y 02400 STA $D301 02410 LDA RDTAB1,X 02420 STA $4000 02430 INX 02440 INY 02450 INY 02460 INY 02470 INY 02480 CPX #4 02490 BCC .1 02500 LDA $D301 02510 AND #$23 02520 ORA #$CC 02530 STA $D301 02540 LDA $4000 02550 BCS .3 =JMP 02560 .2 LDA #0 02570 .3 STA RAMDISKFLG 02580 LDA PB 02590 STA $D301 02600 RTS 02610 ------------------------------ 02620 RAMDISKFLG .HX 00 02630 PB .HX 00 02640 RDTAB .HX CCC8C4C0 02650 .HX 8C888480 02660 .HX 4C484440 02670 .HX 0C080400 02680 RDTAB1 .HX 100C0804 02690 ------------------------------ 02700 ;"“¡Õƒ…”À‘“≈…¬≈“†‘≈”‘≈Œ" 02710 ; 02720 ;"–¡“¡Õ≈‘≈“Ã…”‘≈†ƒ≈“†“¡Õƒ…”À†∫" 02730 ; 02740 RDSKPAR0 .DA $140 02750 .DA $A000 02760 ------------------------------ 02770 ;"≈…Œ”–“’Œ«†–¡“¡Õ≈‘≈“†∫" 02780 ;X= LO ,Y = HI 02790 ;ACCU BIT0=0 READ 02800 ;ACCU BIT0=1 WRITE 02810 ------------------------------ 02820 ;"“≈…»≈Œ∆œÃ«≈†ƒ≈“†≈Ã≈Õ≈Œ‘≈†∫" 02830 ;1.Sector No. Lo 02840 ;2.Sector No. Hi 02850 ;3.Buffer Adr. Lo 02860 ;4.Buffer Adr. Hi 02870 ;"“’≈√ÀÀ≈»“†∫" 02880 ;Y=$01 ERFOLGREICH 02890 ;Y=$FF FEHLER 02900 ------------------------------ 02910 LFLG .HX 00 02920 BANK .HX 00 02930 LSEC .HX 00 02940 HSEC .HX 00 02950 ------------------------------ 02960 ;"Œœ‘≈†∫" 02970 ;"√Ω∞†Ω憓¡Õƒ…”À÷≈“◊¡Ã‘’Œ«†Õ…‘†ÕÔˆÂÚ†°" 02980 ;"√Ω±†Ω憒≈¬≈“«…¬‘†ÿ¨Ÿ†Ω†¬’∆∆≈“¨†¬¡ŒÀ†…”‘†¬≈“≈…‘”†¡À‘…÷…≈“‘" 02990 ------------------------------ 03000 RDSKVER PHP 03010 AND #$7F 03020 STA LFLG 03030 ------------------------------ 03040 ;"¡’∆†”‘¡√À†Ã…≈«‘† ≈‘⁄‘†”≈√‘œ“†ŒœÆ†Ãœ†œ¬≈Œ" 03050 ;"∆’≈“†±≤∏†”≈√‘œ“≈Œ†Ã…≈«‘†ƒ≈“†¬≈“≈…√»†ƒ≈“†”≈√‘œ“Œ’ÕÕ≈“Œ†⁄◊…”√»≈Œ" 03060 ------------------------------ 03070 ;"a) 0-2047 fuer 256 KB Bank" 03080 ;"b) 0-1023 fuer 128 KB Bank" 03090 ;"c) 0- 511 fuer 64 KB Bank" 03100 ;"d) 0- ... fuer den linearen Speicher" 03110 ------------------------------ 03120 LDA RDSKPAR0 03130 STA LSEC 03140 LDA RDSKPAR0+1 03150 STA HSEC 03160 ------------------------------ 03170 ;"‘≈”‘†…∆†”≈√‘œ“†æΩ†§±¥∞" 03180 ------------------------------ 03190 LDA HSEC 03200 BEQ .1 03210 CMP #2 03220 BCS .2 03230 LDA LSEC 03240 CMP #$40 03250 BCS .2 03260 .1 LDA LFLG 03270 ORA #$80 03280 STA LFLG 03290 BNE .3 03300 .2 LDA LSEC 03310 SEC 03320 SBC #$40 03330 STA LSEC 03340 LDA HSEC 03350 SBC #1 03360 STA HSEC 03370 ------------------------------ 03380 ;"¬≈Õ≈“À’Œ«†∫" 03390 ;ACCU =MINUS HEISST RAMDISK IM LINEAREN SPEICHER 03400 ;ACCU =PLUS RAMDISK IN BANK LOGIK 03410 ;"Œœ◊†√¡Ã√’á‘≈†Õ≈Õœ“Ÿ†–œ”…‘…œŒ†¡Œƒ†¬¡ŒÀ": BANK = SECTOR/128 03420 ------------------------------ 03430 .3 LDA HSEC 03440 STA BANK 03450 LDA LSEC 03460 ASL 03470 ROL BANK 03480 ------------------------------ 03490 ;"–œ”ÆΩ†”≈√‘œ“†™†±≤∏" 03500 ------------------------------ 03510 LDA #0 03520 LSR HSEC 03530 ROR LSEC 03540 ROR 03550 STA DLOC 03560 LDA LSEC 03570 LDX LFLG ;TEST OF BANKED RAMDISK,MINUS SET = LINEAR MEMORY 03580 BPL .5 03590 TAX ;SAVE HIGH BYTE OF CALCULATE POSITION 03600 LDA DLOC ;GET LO BYTE AND ADD BOUNDARY 03610 CLC 03620 ADC #LOMEM 03630 STA DLOC 03640 TXA 03650 ADC /LOMEM 03660 STA DLOC+1 03670 BNE .6 =JMP 03680 .5 AND #$3F ;HIGHER BIT'S DO NOT BUILD THE ADRESS 03690 CLC 03700 ADC #$40 ;BANK BASIS= $4000 03710 STA DLOC+1 03720 ------------------------------ 03730 ;"«≈‘†”‘œ“≈†¬’∆∆≈“†∆“œÕ†”‘¡√À" 03740 ------------------------------ 03750 .6 LDA RDSKPAR0+2 03760 STA SLOC 03770 LDA RDSKPAR0+3 03780 STA SLOC+1 03790 ------------------------------ 03800 ;NOW, BANK NO. AND LOC HAS TOC CHECKED, IF AN ERROR OCCURED, 03810 ;THE MINUS FLAG WILL BE SET AND THE OPERATION IS ABORTED. 03820 ------------------------------ 03830 LDA LFLG 03840 BPL .7 03850 LDA DLOC+1 03860 CMP HIMEM 03870 BCS ERR 03880 BCC .8 =JMP 03890 .7 LDA BANK ; CHECK,IF CALCULATED BANK IS 03900 CMP RAMDISKFLG ; IN COMPUTER'S RAMDISK-SIZE 03910 BCS ERR 03920 LDA DLOC+1 ; CHECK, IF THERE'S A BANK OVERFLOW ERROR 03930 CMP #$80 ; NORMALLY,THIS ERROR CANNOT 03940 BCS ERR ; OCCUR,BUT PERHAPS THERE'S A MISTAKE IN THIS PROGRAMM 03950 ------------------------------ 03960 ;ALL CALCULATED PARAMETER'S WERE OKAY.LET'S MOVE 03970 ;THE MEMORY BLOCK ! 03980 ;CAUTION: NO INTERRUPT IS DISABLED DURING BANK OPERATION ! 03990 ------------------------------ 04000 .8 LDX BANK 04010 LDA $D301 04020 AND #$23 04030 ORA RDTAB,X 04040 STA BANK 04050 LDA LFLG TEST FOR RDSK 04060 BPL .9 04070 LDX $D301 04080 STX BANK 04090 .9 PLP ; GET CARRY BACK AND TEST, IF DATA SHOULD BE MOVED 04100 BCS NOMOV 04110 AND #1 ;ACCU=1 WRITE 04120 BEQ SVD301 04130 LDA $D301 ;SAVE $D301 's VALUE TO SWITCH 04140 STA .21+1 ; THE BANKS 04150 ; 04160 LDY #$7F 04170 .20 LDA (SLOC),Y 04180 LDX BANK ;ENABLE BANK 04190 STX $D301 04200 STA (DLOC),Y 04210 .21 LDX #$FF 04220 STX $D301 04230 DEY 04240 BPL .20 04250 LDY #1 ;OKAY, 128 BYTES TRANSFERRED. 04260 RTS 04270 ------------------------------ 04280 ;THE ERROR,THAT HAS BEEN OCCURED, IS MARKED WITH Y=FF 04290 ;AND SET MINUS FLAG ! 04300 ------------------------------ 04310 ERR PLP ; REGET PH WITH CARRY 04320 LDY #$FF 04330 RTS 04340 ------------------------------ 04350 ; THIS PART IS ADVANCED READ FOR RAMDISK ! 04360 ------------------------------ 04370 SVD301 LDA $D301 ;SAVE $D301 's VALUE TO SWITCH 04380 STA .22+1 ; THE BANKS 04390 LDY #$7F 04400 .21 LDX BANK ;ENABLE BANK 04410 STX $D301 04420 LDA (DLOC),Y 04430 .22 LDX #$FF 04440 STX $D301 04450 STA (SLOC),Y 04460 DEY 04470 BPL .21 04480 LDY #1 ;OKAY, 128 BYTES TRANSFERRED. 04490 RTS 04500 NOMOV LDA BANK 04510 STA $D301 04520 LDX DLOC 04530 LDY DLOC+1 04540 LDA #1 04550 RTS 04560 ------------------------------ 04570 ;HERE'S THE 'SPEEDY DRIVES' ROUTINE 04580 ------------------------------ 04590 SPEEDYD JSR TEXTOUT 04600 .AS ' SPEEDY DRIVES :' 04610 .HX EA 04620 LDA #1 04630 STA DRVSEL 04640 TSTDRVL LDA DRVSEL 04650 JSR SELDRV 04660 BCS .2 04670 PHA 04680 JSR TEXTOUT 04690 .DA " D",#$EA 04700 PLA 04710 CLC 04720 ADC #$30 04730 JSR EOUT 04740 INC DRVSEL 04750 JMP TSTDRVL 04760 .2 LDA #$9B 04770 JMP EOUT 04780 ------------------------------ 04790 ;RAMDISK STATUS MESSAGE (IF R.D. PRESENT) 04800 ------------------------------ 04810 RDSKSTAT .HX 00 04820 ------------------------------ 04830 RDSTAT LDA RAMDISKFLG 04840 BEQ .1 04850 JSR TEXTOUT 04860 .AS ' RAMDISK STATUS : ' 04870 .HX EA 04880 LDA RDSKSTAT 04890 BEQ .2 04900 JSR TEXTOUT 04910 .DA "USED",#$9B,#$EA 04920 .1 RTS 04930 ------------------------------ 04940 .2 JSR TEXTOUT 04950 .DA "FREE",#$9B,#$EA 04960 RTS 04970 ------------------------------ 04980 ;"Õ≈Œ’≈†∆’Œ√‘…œŒ”†¡∆‘≈“†Õ¡…Œ†Õ≈Œ’≈" 04990 ------------------------------ 05000 MAXPAR = 6 05010 ------------------------------ 05020 MENUE JSR OPENSCR 05030 LDA $230 05040 STA DISPLAY 05050 LDA $231 05060 STA DISPLAY+1 05070 LDY #$1C 05080 LDA #$10 05090 STA (DISPLAY),Y 05100 INY 05110 LDA #1 ; DLIST JUMP 05120 STA (DISPLAY),Y 05130 INY 05140 LDA #ZDL 05150 STA (DISPLAY),Y 05160 INY 05170 LDA /ZDL 05180 STA (DISPLAY),Y 05190 LDA #0 05200 STA $52 05210 JSR TEXTOUT 05220 .HX 7D9B 05230 .AS ' *** SPEEDY PARAMETER MENUE ***' 05240 .HX 9B9B9B 05250 ------------------------------ 05260 .DA " 1: VERIFY WRITES",#$9B 05270 .DA " 2: R/W RETRIES",#$9B 05280 .DA " 3: R/W BY DISK CHANGE",#$9B 05290 .DA " 4: TRACK ANALYZING MODE",#$9B 05300 .DA " 5: SOURCE DRIVE",#$9B 05310 .AS " 6: DESTINATION DRIVE" 05320 .HX 9B9B9B 05330 ------------------------------ 05340 .DA "†√’““≈Œ‘†»¡“ƒ◊¡“≈†–¡“¡Õ≈‘≈“†∫†",#$9B,#$EA 05350 ------------------------------ 05360 JSR RDCAP 05370 JSR RDSTAT 05380 JSR SPEEDYD 05390 ------------------------------ 05400 ;"–¡“¡Õ≈‘≈“†¡’”«≈¬≈Œ" 05410 ------------------------------ 05420 LDA #2 05430 STA $52 05440 LDA NOSCROL 05450 CMP #$FF 05460 BNE NOLAUF 05470 JSR SETSC ; SETZE LAUFBAND IN BEWEGUNG ! 05480 ------------------------------ 05490 ;"Œ’Œ†–¡“¡Õ≈‘≈“†÷œŒ†À≈Ÿ¬œ¡“ƒ†”≈‘⁄≈Œ" 05500 ------------------------------ 05510 NOLAUF LDA #0 05520 STA VAL 05530 .2 LDA VAL ; HOLE TABELLEN POSITION 05540 JSR PARSET 05550 INC VAL 05560 LDA VAL 05570 CMP #MAXPAR ;6 05580 BCC .2 05590 MENUEKEY JSR GETKEY 05600 CMP #27 ESCAPE ? 05610 BEQ .27 05620 SEC 05630 SBC #$31 05640 BMI MENUEKEY 05650 CMP #MAXPAR ;6 05660 BCS MENUEKEY 05670 TAY 05680 ASL 05690 TAX 05700 LDA VECTAB+1,X 05710 PHA 05720 LDA VECTAB,X 05730 PHA 05740 TYA 05750 RTS 05760 ------------------------------ 05770 .27 JMP BIGST 05780 ------------------------------ 05790 VECTAB .DA FUNC1-1 05800 .DA FUNC2-1 05810 .DA FUNC3-1 05820 .DA FUNC4-1 05830 .DA FUNC5-1 05840 .DA FUNC6-1 05850 ------------------------------ 05860 FUNC1 PHA 05870 LDA PVERIFY ;VERIFY ON/OFF 05880 EOR #$80 05890 STA PVERIFY 05900 PLA 05910 JSR PARSET 05920 JMP MENUEKEY 05930 ------------------------------ 05940 FUNC2 PHA 05950 INC PRETRY ; RERIES 05960 LDA PRETRY 05970 CMP #5 ;MAX 5 RETRIES 05980 BCC .1 05990 LDA #0 06000 STA PRETRY 06010 .1 PLA 06020 JSR PARSET 06030 JMP MENUEKEY 06040 ------------------------------ 06050 FUNC3 PHA 06060 LDA PCHANGE ; AUTOMATIC COPY 06070 EOR #$80 06080 STA PCHANGE 06090 PLA 06100 JSR PARSET 06110 JMP MENUEKEY 06120 ------------------------------ 06130 FUNC4 JMP MENUEKEY ; TRACK ANALYSING MODE SELECT : 06140 ------------------------------ 06150 FUNC5 PHA ; CHANGE SOURCE DRIVE 06160 INC PSOURCE 06170 LDA PSOURCE 06180 JSR SELDRV 06190 BCC .1 06200 LDA #1 06210 STA PSOURCE 06220 .1 PLA 06230 JSR PARSET 06240 JMP MENUEKEY 06250 ------------------------------ 06260 FUNC6 PHA ;CHANGE DESTINATION DRIVE 06270 INC PDEST 06280 LDA PDEST 06290 JSR SELDRV 06300 BCC .1 06310 LDA #1 06320 STA PDEST 06330 .1 PLA 06340 JSR PARSET 06350 JMP MENUEKEY 06360 ------------------------------ 06370 ;"”≈‘⁄‘†ƒ≈Œ†–¡“¡Õ≈‘≈“†¡’∆†ƒ≈Œ†¬…Ô√»…“Õ" 06380 ------------------------------ 06390 PARSET STA VAL ;TABELLEN POSITION 06400 TAX ; IN DEN INDEX 06410 LDY MTAB,X ; NUN HOLE DIE VERTICAL POSITION AUS DER TABELLE 06420 LDA MTAB2,X ; HOLE DAS FLAG 06430 LSR ; SETZE ES IN CARRY 06440 LDX VAL ; NUN LADE DEN PARAMETER IN DEN ACCU 06450 LDA PVERIFY,X 06460 ; JMP HMENUE ; AN SCHIRM AUSGEBEN 06470 ------------------------------ 06480 ;"‘»…”†“œ’‘…Œ≈†–’‘”†‘»≈†–¡“¡Õ≈‘≈“”†”‘¡‘’”†œŒ‘œ†«“Æ∞†”√“≈≈Œ" 06490 ;CARRY = 0 AND : 06500 ; ACCU = 0 <=> "NOT AVIABLE" 06510 ; ACCU = 1-$7F <=> "YES" 06520 ; ACCU = $80-$FF <=> "NO" 06530 ; 06540 ; CARRY = 1 AND : 06550 ; ACCU = HEXNUMBER 06560 ; 06570 ;Y REGISTER <=> VERTICAL POSITION 06580 ------------------------------ 06590 HMENUE STY $54 ; SET VERTICAL POSITION 06600 LDY #26 ; HORIZONTAL POSITION 06610 STY $55 06620 BCS .3 06630 TAY ; REFRESH CPU FLAG'S 06640 BEQ .2 06650 BPL .1 06660 JSR TEXTOUT 06670 .AS 'NO ' 06680 .HX EA 06690 RTS 06700 .1 JSR TEXTOUT 06710 .AS 'YES ' 06720 .HX EA 06730 RTS 06740 .2 JSR TEXTOUT 06750 .DA "NOT AVAILABLE",#$EA 06760 RTS 06770 ------------------------------ 06780 .3 JMP PHEXOUT 06790 ------------------------------ 06800 ;"≈Ã≈Õ≈Œ‘”†œ∆†–¡“¡Õ≈‘≈“†Ã…”‘†∫" 06810 ------------------------------ 06820 PVERIFY .HX 01 06830 PRETRY .HX 03 06840 PCHANGE .HX 81 06850 PTRKAN .HX 00 06860 PSOURCE .HX 01 06870 PDEST .HX 01 06880 VAL .HX 00 06890 MTAB .HX 040506070809 06900 MTAB2 .HX 000100000101 06910 ------------------------------ 06920 SETSC LDA #$F 06930 STA VPX 06940 LDA #0 06950 STA HSCNT 06960 STA NOSCROL 06970 LDA #TXT2 06980 STA HSLMS 06990 LDA /TXT2 07000 STA HSLMS+1 07010 RTS
COPY.ASM#
00010 ------------------------------ 00020 .LION 00030 ;"†√œ–Ÿ†" 00040 .LIOFF 00050 ------------------------------ 00060 ; STAND : 05/11/86' 00070 ------------------------------ 00080 ;DRIVE INITIALISATION: SCHICKE 00090 ;COPY ROUTINE NACH $8000 00100 ------------------------------ 00110 COPYST JSR LOCSPEEDY 00120 JSR DRVINIT 00130 JSR TEXTOUT 00140 .AS 'STATUS OK. PRESS <RETURN> ' 00150 .HX EA 00160 JSR RETURN 00170 ------------------------------ 00180 BIGST LDA #BIGST 00190 STA $C 00200 LDA /BIGST 00210 STA $D 00220 LDX #$FF 00230 TXS 00240 LDX #20 00250 LDA #0 00260 .1 STA MESSAGE,X 00270 DEX 00280 BPL .1 00290 JSR OPENSCR 00300 JSR SETSC 00310 JSR MENUDL LABEL "S" 00320 JSR TEXTOUT 00330 .BL 7,$9B 00340 .DA " (C) COPY DISK",#$9B 00350 .DA " (M) MENUE",#$9B,#$EA 00360 ------------------------------ 00370 LDA RDSKSTAT ; IST DIE KOMPLETTE DISKETTE IN DIE RAMDISK GEGANGEN ? 00380 BEQ PH1 00390 JSR TEXTOUT 00400 .DA " (W) WRITE FROM",#$9B 00410 .DA " RAMDISK",#$9B,#$EA 00420 ------------------------------ 00430 PH1 JSR GETKEY 00440 CMP #'C 00450 BEQ PH2 00460 CMP #'M 00470 BNE .1 00480 JMP MENUE 00490 .1 CMP #'W 00500 BNE PH1 00510 LDA RDSKSTAT ; IST DIE KOMPLETTE DISKETTE IN DIE RAMDISK GEGANGEN ? 00520 BEQ PH1 00530 ------------------------------ 00540 ;SCHREIBE AUS RAMDISK 00550 ------------------------------ 00560 LDA #$7D 00570 STA TANDEM 00580 JSR EOUT ; CLEAR SCREEN 00590 LDA #0 00600 STA RSEC 00610 STA RSEC+1 00620 STA STRACK 00630 LDA #40 00640 STA TRACKNUM 00650 JSR DEST 00660 LDA PDEST 00670 JSR BACKUP 00680 JMP COPYEND 00690 ------------------------------ 00700 TANDEM .HX 00 00710 ------------------------------ 00720 ;COPY MIT 1 ODER 2 LAUFWERKEN 00730 ------------------------------ 00740 PH2 LDA PSOURCE 00750 CMP PDEST 00760 BNE .1 00770 JMP PH3 00780 .1 LDA #0 00790 STA TANDEM ; COPY MIT 2 LAUFWERKEN 00800 JSR TEXTOUT 00810 .HX 7D9B9B9B9B9B 00820 .DA "INSERT DISKS, PLEASE AND HIT RETURN",#$9B,#$EA 00830 JSR RETURNG 00840 LDA #$7D 00850 JSR EOUT 00860 JMP SDRV 00870 ------------------------------ 00880 PH3 LDA #1 00890 STA TANDEM 00900 JSR OPENSCR 00910 JSR MENUDL 00920 JSR SOURCE 00930 ------------------------------ 00940 ;COPY TEIL 1: DATEN EINLESEN 00950 ;DAS TRACK 0 KOMMANDO WIRD 00960 ;BENUTZT, UM EINE KOPF-POSI- 00970 ;TIONIERUNG ZU VERMEIDEN 00980 ------------------------------ 00990 SDRV LDA PSOURCE ;SOURCE DRIVE 01000 LDX #TRK00 ;SPRUNG VECTOR AUF 01010 LDY /TRK00 ;TRACK 0 EINSPRUNG SETZEN 01020 CLC ;CARRY = 1 BEDEUTET DIREKTE RUECKMELDUNG VOM LAUFWERK 01030 JSR DRVJMP 01040 LDA #0 ;TRACKREGISTER AUF 0 01050 STA TRACKNUM 01060 STA LTRACK 01070 STA STRACK 01080 STA RSEC 01090 STA RSEC+1 01100 ------------------------------ 01110 ; NOTE: TRACKNUM IST DAS 01120 ; AKTUELLE TRACK REGISTER 01130 ; LTRACK UND STRACK MARKIEREN 01140 ; LOWER UND HIGHER TRACK 01150 ; RAMDISKFLG KENNZEICHNET DIE 01160 ; VERWENDETE RAMDISK. 01170 ; RAMDISKFLG=0 BEZEICHNET KEINE RAMDISK 01180 ; IN DAS RAMDISKFLG SOLLTE KEIN WERT GELADEN WERDEN, DA 01190 ; SONST DER RECHNER ABSTUERZEN KOENNTE! 01200 ; UNTER 'RDSKPAR0' SIND DIE PARA METER WIE FOLGT ABGELEGT: 01210 ; 01220 ; RDSKPAR0+0/+1 =RAMDISKSECTOR 01230 ; RDSKPAR0+2/+3 =BUFFER. 01240 ------------------------------ 01250 L991 JSR ESCCHECK 01260 L88 LDX #SIOT2 01270 LDY /SIOT2 01280 JSR SIOINIT0 01290 JSR ESCCHECK 01300 ------------------------------ 01310 ; SIOT2=COM $54 => READ TRACK + ANALYSIS FUNCTION. 01320 ; MIT: 01330 ; 30A=XSAV, 30B = TRACKNUM CONSTAT= STATUS OF OPERATION 01340 ------------------------------ 01350 LDA TRACKNUM ;XSAV= $30A IST NICHT NOETIG 01360 STA $30B ;WEIL ES DURCH KOMMANDO $54 GESETZT WIRD 01370 LDA PSOURCE ;SOURCE DRIVE 01380 STA $301 01390 JSR MAINSIO 01400 BPL .77 ;FEHLER BEI DER AUSFUEHRUNG? 01410 JSR OPENSCR 01420 JSR TEXTOUT 01430 .HX 9B9B9B9B 01440 .AS -' FATAL DRIVE ERROR, PLEASE REBOOT ' 01450 .HX EA 01460 LDA #$FF 01470 STA $244 01480 .HX 02 01490 ------------------------------ 01500 .77 LDA CONSTAT 01510 BEQ .78 01520 JSR TEXTOUT 01530 .HX 7D9B9B9B9B9B 01540 .DA " DRIVE DOOR NOT CLOSED, <RETURN>",#$9B,#$EA 01550 JSR RETURNG 01560 JMP BIGST 01570 ------------------------------ 01580 .78 LDA #0 ;RAMDISK IST MIT DATEN GEFUELLT 01590 STA RDSKSTAT ;SO WIRD ES NICHT GEBRAUCHT 01600 ; 01610 LDX #SIO2TAB ;INIT SIO READ COMMAND 01620 LDY /SIO2TAB 01630 JSR SIOINIT0 01640 LDA PSOURCE ;SOURCE DRIVE 01650 STA $301 01660 LDA #HEADERWA ;SETZE ARBEITS BUFFER AUF HEADER WORK AREA 01670 STA RDSKPAR0+2 01680 STA $304 01690 LDA /HEADERWA 01700 STA RDSKPAR0+3 01710 STA $305 01720 ------------------------------ 01730 LDA #0 01740 .1 PHA 01750 JSR MAINSIO ;UEBERTRAGE DEN LAUFWERKS HEADER BUFFER 01760 LDA #$40 ;ZUM COMPUTER HEADER BUFFER WORK AREA 01770 STA $303 ;REINIT SIO READ STATUS 01780 JSR ADDBUF ;INCREMENT BUFFER UND SECTOR MIT $80 01790 PLA 01800 TAX 01810 INX 01820 TXA 01830 CPX #3 ;3 PAGES EMPFANGEN? 01840 BCC .1 ;NEIN 01850 ------------------------------ 01860 ; DER HEADERBUFFER DES LAUFWERKS IST JETZT IM COMPUTER ZUR 01870 ; FREIEN AUSWERTUNG. ES SIND ALL ERDINGS NOCH ALLE DATEN IN 01880 ; DIE RAMDISK ZU SICHERN. 01890 ------------------------------ 01900 CLC ;CARRY=0 - BILDSCHIRM NEU AUFBAUEN 01910 JSR SETPAR0 01920 ; 01930 JSR SPR ;TEXT "READING" 01940 ------------------------------ 01950 ; EINGELESENE HEADERINFO'S WEITER IN RAMDISK UEBERTRAGEN 01960 ------------------------------ 01970 LDA TRACKNUM 01980 ASL 01990 TAY 02000 LDA RSEC 02010 STA RDSKPAR0 02020 STA TRACKTAB,Y ;START SECTOR DER RAMDISK 02030 LDA RSEC+1 ;IN TABELLE EINTRAGEN 02040 STA RDSKPAR0+1 02050 STA TRACKTAB+1,Y 02060 ------------------------------ 02070 LDA #3 02080 .2 PHA 02090 LDA #1 ;ACCU=1 - SCHREIBE DATEN IN RAMDISK 02100 CLC 02110 JSR RDSKVER ; RAMDISKVERWALTUNG. 02120 BMI RDERR 02130 JSR ADDBUFR ; INCREMENT PARAMETER 02140 PLA 02150 TAX 02160 DEX 02170 TXA 02180 BNE .2 02190 ------------------------------ 02200 LDA FORKEN ;FORMAT 02210 BEQ INCTRK ;FORKEN = 0 BEDEUTET UNFORMATIERT 02220 LDA DLEN ;DATENLAENGE 02230 ORA DLEN+1 02240 BEQ INCTRK 02250 ------------------------------ 02260 LDA PSOURCE ;SOURCE DRIVE 02270 JSR LOADREC 02280 BCS RDERR 02290 JMP INCTRK 02300 RDERR JSR CLRBASE 02310 LDA PSOURCE ;SOURCE DRIVE MOTOR STOPPEN 02320 JSR DEST 02330 LDA PDEST ;DESTINATION DRIVE 02340 JSR BACKUP 02350 LDA #0 02360 STA RSEC 02370 STA RSEC+1 02380 INC TRACKNUM 02390 LDA TRACKNUM 02400 STA STRACK 02410 JSR SOURCE 02420 JMP L991 02430 INCTRK INC TRACKNUM 02440 LDA TRACKNUM 02450 CMP #40 02460 BCS SHIT 02470 JMP L88 02480 ------------------------------ 02490 SHIT LDA #$FF ;RAMDISK USED FLAG SETZEN 02500 STA RDSKSTAT 02510 JSR DEST 02520 LDA PDEST 02530 JSR BACKUP 02540 ------------------------------ 02550 COPYEND LDA PDEST 02560 LDX #MOTOFF 02570 LDY /MOTOFF 02580 SEC 02590 JSR DRVJMP 02600 ------------------------------ 02610 LDX #20 02620 .1 LDA MCOPYTERM,X 02630 STA MESSAGE,X 02640 DEX 02650 BPL .1 02660 JSR RETURN 02670 JMP BIGST 02680 ------------------------------ 02690 MCOPYTERM 02700 .AT ' COPY TERMINATED ' 02710 ------------------------------ 02720 ; BUFFER ZURUECKSCHREIBEN ! 02730 ------------------------------ 02740 SRCDRV .HX 00 02750 ------------------------------ 02760 ; BACKUP FUNCTION: 02770 ; --------------- 02780 ; INCLUDES : 02790 ; DATA TRANSFER 02800 ; FORMATING / REFORMATING 02810 ; TRACK POSITIONING 02820 ; ERROR MESSAGES 02830 ------------------------------ 02840 BACKUP STA SRCDRV 02850 LDA TRACKNUM ;TRACK NUMMER 02860 STA LTRACK ;IN VARIABLE SCHREIBEN 02870 LDA STRACK 02880 STA TRACKNUM 02890 .80 LDA TRACKNUM ;SETZE TRACK START SECTOR 02900 ASL ;IM RAMDISK HANDLER 02910 TAY 02920 LDA TRACKTAB,Y 02930 STA RSEC 02940 LDA TRACKTAB+1,Y 02950 STA RSEC+1 02960 ------------------------------ 02970 ; LESE 3 HEADER INFO SEKTOREN 02980 ; AUS DER RAMDISK IN DIE 02990 ; HEADER WORK AREA 03000 ------------------------------ 03010 JSR SETSECR 03020 LDA #HEADERWA 03030 STA RDSKPAR0+2 03040 LDA /HEADERWA 03050 STA RDSKPAR0+3 03060 JSR ESCCHECK 03070 LDA #3 03080 .2 PHA 03090 LDA #0 ;ACCU=1 READ 03100 CLC 03110 JSR RDSKVER ;RAMDISKVERWALTUNG 03120 ------------------------------ 03130 ;NOTE : 03140 ;NACH AUFRUF DER RDSVER FUNK- 03150 ;TION KANN EIN FEHLER AUFTRETEN 03160 ;DIESER FEHLER ENSTEHT DURCH 03170 ;DISK READ! 03180 ------------------------------ 03190 JSR ADDBUFR ;INCREMENT PARAMETER 03200 PLA 03210 TAX 03220 DEX 03230 TXA 03240 BNE .2 03250 SEC ;SETPAR0 OHNE BILDSCHIRM AUFBAU 03260 JSR SETPAR0 03270 JSR SPW ;TEXT "WRITING" 03280 ------------------------------ 03290 LDA FORKEN ;TESTE FORMAT 03300 BNE .1 ;FORMATIERT! 03310 ------------------------------ 03320 ;PROGRAMM NACHSCHREIBEN 03330 ------------------------------ 03340 LDX #SIOT6 ;REFORMAT TRACK 03350 LDY /SIOT6 03360 JSR SIOINIT0 03370 LDA SRCDRV 03380 STA $301 03390 LDA TRACKNUM 03400 STA $30B 03410 JSR MAINSIO 03420 JMP .4 03430 ------------------------------ 03440 ;TRACKNUMBER AT $30B 03450 ------------------------------ 03460 .1 LDX #SIOT ;SIO WRITE COMMAND 03470 LDY /SIOT 03480 JSR SIOINIT0 03490 LDA SRCDRV 03500 STA $301 03510 LDA #HEADERWA ;SETZE WORK AREA 03520 STA $304 03530 STA RDSKPAR0+2 03540 LDA /HEADERWA 03550 STA $305 03560 STA RDSKPAR0+3 03570 LDA #HEADBUF 03580 STA $30A 03590 LDA /HEADBUF 03600 STA $30B 03610 LDA #3 03620 .20 PHA 03630 JSR MAINSIO 03640 LDA #$80 ;REINIT 03650 STA $303 ;WRITE 03660 JSR ADDBUF ;CALC. BUF 03670 PLA 03680 TAX 03690 DEX 03700 TXA ;3 SECTOREN 03710 BNE .20 ;UEBERTRAGEN? 03720 ------------------------------ 03730 ; HEADER INFO KOPIERT 03740 ; TEST, OB DATEN IM BUFF=0 03750 ------------------------------ 03760 LDA DLEN ;MIT Z=0 03770 ORA DLEN+1 ;=>DLEN=0 03780 BEQ .4 03790 LDA SRCDRV 03800 JSR SAVREC 03810 .55 LDX #SIOT5 ;SCHREIBE TRACK FUNKTION 03820 LDY /SIOT5 03830 JSR SIOINIT0 03840 LDA SRCDRV ;SELECT DRIVE 03850 STA $301 03860 LDA FORKEN 03870 STA $30A 03880 LDA TRACKNUM 03890 STA $30B 03900 JSR MAINSIO ;FROM BUF 03910 JSR ERRSYS 03920 BCC .5 03930 LDA #0 03940 STA CONSTAT 03950 ------------------------------ 03960 .5 LDA CONSTAT 03970 BNE .55 03980 .4 INC TRACKNUM 03990 LDA TRACKNUM 04000 CMP LTRACK ; STRACK IST UM EIN BYTE ZU GROSS ! 04010 BCC .92 ; DARUM SPRINGE ICH AUF BCC ! 04020 DEC TRACKNUM 04030 RTS 04040 .92 JMP .80 04050 ------------------------------ 04060 MFORM1 .AT ' FATAL WRITE ERROR ' 04070 MFORM2 .AT 'ILLEGAL FORMAT ERROR' 04080 MFORM3 .AT 'ERROR DURING WRITING' 04090 MFORM4 .AT ' VERIFY ERROR ' 04100 ; 04110 WTAB .DA MFORM1,MFORM2,MFORM3,MFORM4 04120 ------------------------------ 04130 ERRSYS LDX CONSTAT 04140 CLC 04150 BEQ .2 04160 DEX 04170 TXA 04180 ASL 04190 TAX 04200 LDA WTAB,X 04210 STA DISPLAY 04220 LDA WTAB+1,X 04230 STA DISPLAY+1 04240 LDY #20 04250 .1 LDA (DISPLAY),Y 04260 STA MESSAGE,Y 04270 DEY 04280 BPL .1 04290 JSR RETURNG 04300 LDA CONSTAT 04310 CMP #1 04320 CLC 04330 BEQ .2 04340 SEC 04350 .2 RTS 04360 ------------------------------ 04370 ESCCHECK LDA $2FC 04380 CMP #$1C 04390 BEQ .1 04400 CMP #$FF 04410 RTS 04420 .1 LDA #$FF 04430 STA $2FC 04440 LDX #$FF 04450 TXS 04460 JMP BIGST 04470 ------------------------------ 04480 MREAD 04490 .AT ' READING ' 04500 MWRITE 04510 .AT ' WRITING ' 04520 ------------------------------ 04530 SPR LDX #20 04540 .1 LDA MREAD,X 04550 STA MESSAGE,X 04560 DEX 04570 BPL .1 04580 RTS 04590 ------------------------------ 04600 SPW LDX #20 04610 .1 LDA MWRITE,X 04620 STA MESSAGE,X 04630 DEX 04640 BPL .1 04650 RTS 04660 ------------------------------ 04670 SOURCE LDA PDEST 04680 LDX #MOTOFF 04690 LDY /MOTOFF 04700 SEC ;QUIT 04710 JSR DRVJMP 04720 LDA TANDEM 04730 BNE .3 04740 RTS 04750 .3 LDX #20 04760 .1 LDA MSOURCE,X 04770 STA MESSAGE,X 04780 DEX 04790 BPL .1 04800 LDA PCHANGE 04810 BPL .2 04820 JMP RETURNG 04830 .2 LDA PDEST 04840 LDX #DISKWAIT 04850 LDY /DISKWAIT 04860 SEC 04870 JSR DRVJMP 04880 JMP AUTOM 04890 ------------------------------ 04900 STAT LDA #0 04910 STA $D20A 04920 LDA $D20F 04930 AND #$10 04940 RTS 04950 ------------------------------ 04960 AUTOM JSR STAT 04970 BNE .1 04980 ------------------------------ 04990 LDA $2FC 05000 CMP #$1C ; ESCAPE 05010 BNE AUTOM 05020 LDA #$FF 05030 STA $2FC 05040 LDA #$34 05050 STA $D303 05060 .2 JSR STAT 05070 BEQ .2 05080 LDA #$3C 05090 STA $D303 05100 JMP BIGST 05110 .1 LDA #0 05120 LDX #20 05130 .3 STA MESSAGE,X 05140 DEX 05150 BPL .3 05160 LDX #0 05170 .4 STA $D40A 05180 DEX 05190 BNE .4 05200 RTS 05210 ------------------------------ 05220 DEST LDA PSOURCE 05230 LDX #MOTOFF 05240 LDY /MOTOFF 05250 SEC ;QUIT 05260 JSR DRVJMP 05270 LDA TANDEM 05280 BNE .3 05290 RTS 05300 .3 LDX #20 05310 .1 LDA MDEST,X 05320 STA MESSAGE,X 05330 DEX 05340 BPL .1 05350 LDA PCHANGE 05360 BMI RETURNG 05370 LDA PDEST 05380 LDX #DISKWAIT 05390 LDY /DISKWAIT 05400 SEC 05410 JSR DRVJMP 05420 JMP AUTOM 05430 ------------------------------ 05440 RETURNG LDA #$FF 05450 STA $2FC 05460 .2 JSR ESCCHECK 05470 BCS .2 05480 JSR GETKEY 05490 CMP #$9B 05500 BNE .2 05510 LDX #20 05520 .3 LDA #0 05530 STA MESSAGE,X 05540 DEX 05550 BPL .3 05560 LDA #$9B 05570 RTS 05580 RETURN JSR RETURNG 05590 JMP EOUT 05600 ------------------------------ 05610 SORTDRV LDY #1 05620 LDA #0 05630 .1 ORA DRIVES-1,Y 05640 INY 05650 CPY #MAXDRV+1 05660 BCC .1 05670 CMP #0 05680 BNE .2 05690 SEC 05700 RTS 05710 .2 LDX #0 05720 LDY #1 05730 .4 LDA DRIVES-1,Y 05740 BEQ .3 05750 TYA 05760 STA DRIVES,X 05770 INX 05780 .3 INY 05790 CPY #MAXDRV+1 05800 BCC .4 05810 STX FDRV 05820 CLC 05830 RTS 05840 ------------------------------ 05850 SIOT7 .HX 0A31014F80 05860 .DA CONFIG 05870 .HX FFFF0C00 05880 CONFIG .HX 28010012000000 05890 .HX 80FF000000 05900 ------------------------------ 05910 SELDRV CMP FDRV 05920 BCC .1 05930 BEQ .1 05940 SEC 05950 RTS 05960 .1 TAY 05970 LDA DRIVES-1,Y 05980 STA $301 05990 CLC 06000 RTS 06010 ------------------------------ 06020 GETKEY LDA $E425 06030 PHA 06040 LDA $E424 06050 PHA 06060 RTS 06070 ------------------------------ 06080 ; SAV2 + $80 = BUFFER ! 06090 ------------------------------ 06100 ADDSEC INC RSEC 06110 BNE .1 06120 INC RSEC+1 06130 .1 RTS 06140 ------------------------------ 06150 CALCS LDA DLEN ;ERRECHNE 06160 STA M1 ;DIE AN- 06170 LDA DLEN+1 ;ZAHL DER 06180 STA M2 ;SEKTOREN 06190 ------------------------------ 06200 ;(M1,M2)=(DLEN+0,+1) *(1/128) 06210 ;BEMERKUNG:M2 IST SIGNIFICANT! 06220 ------------------------------ 06230 ASL M1 06240 ROL M2 06250 RTS 06260 ------------------------------ 06270 SETSECBUF LDA #SECBUF 06280 STA $30A 06290 LDA /SECBUF 06300 STA $30B 06310 RTS 06320 ------------------------------ 06330 ; DER HEADER BUFFER IST JETZT IN DIE RAMDISK KOPIERT WORDEN 06340 ; DER HEADER STEHT JETZT ALSO ZUR WEITEREN VERFUEGUNG OFFEN 06350 ; -HIER WIRD ES JETZT ALS SECTOR BUFFER GENUTZT. 06360 ------------------------------ 06370 LOADREC PHA 06380 LDX #SIO2TAB ; INIT SIO READ COMMAND. 06390 LDY /SIO2TAB 06400 JSR SIOINIT0 06410 PLA 06420 STA $301 06430 ------------------------------ 06440 JSR SETSECBUF ;SETZE COMPUTER POINTER AUF LAUFWERKS BUFFER 06450 ------------------------------ 06460 JSR SETSECR ;IN RAMDISK PARAMETERLISTE UEBERTRAGEN ! 06470 ------------------------------ 06480 JSR CALCS ;ERECHNE DATENLAENGE AUS DER ANZAHL DER SEKTOREN 06490 ------------------------------ 06500 LDA $D301 ;WERT $D301 SICHERN 06510 PHA 06520 .3 LDA #1 ;SCHREIBE RAMDISK 06530 SEC ;GET BANK & BUFFER DATA ONLY 06540 JSR RDSKVER 06550 BMI LRERR 06560 STX $304 06570 STY $305 06580 JSR MAINSIO 06590 ------------------------------ 06600 LDA #$40 ;READ 06610 STA $303 ;STATUS 06620 JSR INCBUF ;CALC $30A,$30B 06630 JSR ADDSEC 06640 JSR SETSECR 06650 ------------------------------ 06660 DEC M2 06670 BNE .3 06680 PLA 06690 STA $D301 06700 CLC 06710 RTS 06720 ------------------------------ 06730 LRERR PLA 06740 STA $D301 06750 SEC 06760 RTS 06770 ------------------------------ 06780 SAVREC PHA 06790 LDX #SIOT 06800 LDY /SIOT 06810 JSR SIOINIT0 06820 PLA 06830 STA $301 06840 JSR SETSECBUF 06850 JSR SETSECR 06860 JSR CALCS 06870 ------------------------------ 06880 LDA $D301 06890 PHA 06900 .30 LDA #0 ;LESE RAMDISK 06910 SEC 06920 JSR RDSKVER 06930 STX $304 06940 STY $305 06950 ------------------------------ 06960 JSR MAINSIO 06970 LDA #$80 ;RESTORE SIO 06980 STA $303 ;SCHREIBE STATUS 06990 JSR INCBUF 07000 JSR ADDSEC 07010 JSR SETSECR ;UEBERTRAGE VON RSEC IN DIE PARAMETER LISTE 07020 ------------------------------ 07030 DEC M2 07040 BNE .30 07050 PLA 07060 STA $D301 07070 CLC 07080 RTS 07090 ------------------------------ 07100 ;BEMERKUNG: 07110 ;DIE SETPAR0 ROUTINE LEGT JETZT AUCH DIE STATI-WERTE AUF DAS 07120 ;DAS DISPLAY. 07130 ------------------------------ 07140 PAR .HX 00 07150 YS0 .HX 00 07160 YS1 .HX 00 07170 SET LDA #HEADERWA 07180 STA DISPLAY 07190 LDA /HEADERWA 07200 STA DISPLAY+1 07210 RTS 07220 ------------------------------ 07230 PSET ORA PAR 07240 STA PAR 07250 RTS 07260 ------------------------------ 07270 OTAB .HX 00000000 07280 ------------------------------ 07290 ; AN DIESER STELLE MUESSEN DIE LAUFWERKSPARAMETER IN DEN 07300 ; HEADERBUFFER EINGEBLENDET WERDEN. 07310 ; 07320 ; HEADBUF+ $17B IST DANN DIE BEL EGUNG DER EINZELNEN BIT'S : 07330 ; 07340 ; VERIFY => BIT 7 07350 ; TRACKANALYZING => BIT 6 07360 ; RETRIES => BIT 0,1,2. 07370 ------------------------------ 07380 SETPAR0 PHP 07390 LDA PRETRY 07400 AND #7 07410 STA PAR 07420 LDA PVERIFY 07430 AND #$80 07440 JSR PSET 07450 LDA PTRKAN 07460 LSR 07470 AND #$40 07480 JSR PSET 07490 LDA PAR 07500 EOR #$F8 07510 STA PAR 07520 JSR SET 07530 LDY #$FF ;TESTE 07540 LDA (DISPLAY),Y ;FORMAT 07550 STA FORKEN 07560 BNE .1 07570 ------------------------------ 07580 PLP 07590 BCS .2 07600 LDA #1 ;BEI UNFORMATIERTEM TRACK 07610 .0 PHA ;WIRD DAS '!' AUF DEM BILDSCHIRM AUSGEGEBEN 07620 TAX 07630 LDA #1 07640 LDY TRACKNUM 07650 JSR PUTBASE 07660 PLA 07670 TAX 07680 INX 07690 TXA 07700 CMP #19 ;DIESER ZAEHLER LAEUFT BIS 07710 BCC .0 ;SEKTOR 18 ERREICHT IST 07720 ------------------------------ 07730 JMP NS 07740 .1 PLP ;WRITE COMMAND? 07750 .2 BCS NW 07760 LDA #0 07770 STA YS0 07780 STA YS1 07790 L3S JSR SET 07800 LDY YS0 07810 LDA (DISPLAY),Y ; ID STATUS 07820 PHA 07830 INY 07840 LDA (DISPLAY),Y 07850 PHA ;TRACK 07860 INY 07870 INY 07880 LDA (DISPLAY),Y ;SECTOR 07890 PHA 07900 INC DISPLAY+1 ;GET SECTOR 07910 LDY YS1 ;STATUS 07920 LDA (DISPLAY),Y 07930 PHA 07940 LDX #3 07950 .4 PLA 07960 STA OTAB,X 07970 DEX 07980 BPL .4 07990 ------------------------------ 08000 ; ALLE WICHTIGEN DATEN FUER EINEN SEKTOR SIND JETZT 08010 ; IM LABEL OTAB VORHANDEN. 08020 ; Y=TRACK , X=SECTOR , A=STATUS 08030 ------------------------------ 08040 LDA OTAB 08050 ORA OTAB+3 08060 BNE OK 08070 LDA #$A 08080 LDX OTAB+2 08090 LDY OTAB+1 08100 JSR PUTBASE 08110 JMP OK1 08120 OK LSR 08130 LSR 08140 CLC 08150 ADC #$10 08160 LDX OTAB+2 08170 LDY OTAB+1 08180 JSR PUTBASE 08190 OK1 INC YS1 08200 LDA YS0 08210 CLC 08220 ADC #7 08230 STA YS0 08240 CMP FORKEN 08250 BCC L3S 08260 NS JSR SET 08270 INC DISPLAY+1 08280 LDY #$7E ;GET DATEN 08290 LDA (DISPLAY),Y ;LAENGE 08300 STA DLEN 08310 INY 08320 LDA (DISPLAY),Y 08330 STA DLEN+1 08340 RTS 08350 ------------------------------ 08360 NW LDY TRACKNUM 08370 LDX #19 08380 LDA #$80 08390 JSR PUTBASE 08400 JMP NS 08410 ------------------------------ 08420 TEXTOUT PLA 08430 STA $0 08440 PLA 08450 STA $1 08460 .2 LDY #1 08470 LDA ($0),Y 08480 INC $0 08490 BNE .3 08500 INC $1 08510 .3 CMP #$EA 08520 BEQ .4 08530 JSR EOUT 08540 JMP .2 08550 .4 JMP ($0) 08560 ------------------------------ 08570 COMT0 .DA #$54,SDRV0 08580 COMT1 .DA #$55,SDRV1 08590 COMT2 .DA #$56,REFORM 08600 ------------------------------ 08610 SIOT .HX 0C31015080 COM50 08620 .DA BEGIN 08630 .HX FFFF80000080 08640 ------------------------------ 08650 SIOT1 .HX 0A31014C01 COM4C 08660 .DA $8000 08670 .HX FFFF0000 08680 ------------------------------ 08690 SIOT2 .HX 0A31015440 COM54 08700 .DA CONSTAT 08710 .HX FFFF0100 08720 ------------------------------ 08730 SIOT3 .HX 0A31014180 COM41 08740 .DA $3000 08750 .HX FFFF0300 08760 ------------------------------ 08770 SIOT5 .HX 0A31015540 COM55 08780 .DA CONSTAT 08790 .HX FFFF0100 08800 ------------------------------ 08810 SIOT6 .HX 0A31015600 COM56 08820 .DA $3000 08830 .HX FFFF0000 08840 ------------------------------ 08850 SIO2TAB .HX 0C31015240 COM52 08860 .DA CBUF 08870 .HX FFFF8000 08880 .DA HEADBUF 08890 ------------------------------ 08900 CONSTAT .HX 00 08910 ------------------------------ 08920 SIOINIT0 STX SAV1 08930 STY SAV1+1 08940 LDY #0 08950 LDA (SAV1),Y 08960 TAY 08970 .1 LDA (SAV1),Y 08980 STA $300-1,Y 08990 DEY 09000 BNE .1 09010 RTS 09020 ------------------------------ 09030 DRVJMP PHA ;SAV DRIVE No 09040 PHP 09050 STX $30A ;SETZE SPRUNG 09060 STY $30B ;ADRESSE 09070 LDX #SIOT1 09080 LDY /SIOT1 09090 JSR SIOINIT0 ;INIT SIO 09100 PLP 09110 BCC .1 09120 LDA #$4D 09130 STA $302 09140 .1 PLA ;GET DRIVE 09150 STA $301 ;SET No. 09160 ------------------------------ 09170 MAINSIO LDA #$40 09180 STA $10 09190 STA $D20E 09200 JMP $400 09210 ------------------------------ 09220 ; COMMAND INITILIZE ROUTINE 09230 ------------------------------ 09240 COMINIT PHA ;RETTE A 09250 TXA ; X 09260 PHA ; UND 09270 TYA ; Y 09280 PHA ;AUF STACK 09290 LDX #SIOT3 ;INIT SIO 09300 LDY /SIOT3 ;MIT 09310 JSR SIOINIT0 ;CMD $41 09320 ------------------------------ 09330 PLA 09340 STA $305 09350 PLA 09360 STA $304 09370 PLA 09380 STA $301 ;DRV NO 09390 JSR MAINSIO 09400 LDA $301 09410 RTS 09420 ------------------------------ 09430 ; BILDSCHIRM AUSGABE 09440 ------------------------------ 09450 EOUT TAY 09460 LDA $E407 09470 PHA 09480 LDA $E406 09490 PHA 09500 TYA 09510 RTS 09520 ------------------------------ 09530 ; HEXOUT GIBT ZWEI HEXADEZIMAL 09540 ; ZAHLEN AUS. DAS BYTE MUSS IM 09550 ; ACCU STEHEN 09560 ------------------------------ 09570 PHEXOUT PHA ;RETTE BYTE 09580 LSR ;MULTIPLIZIERE 09590 LSR ;DEN 09600 LSR ;WERT 09610 LSR ;4 MAL 09620 JSR HEXOUT0 09630 PLA 09640 AND #$F 09650 HEXOUT0 CMP #10 ;0-9? 09660 BCC .1 ;JA 09670 ADC #6 ;MUSS A-F 09680 .1 CLC 09690 ADC #$30 ;LESE ASCII 09700 JMP EOUT ;AUSGABE 09710 ------------------------------ 09720 ; INITIAL FLAG TELLS NOT TO 09730 ; PROGRAMM THE DRIVE ANY MORE 09740 ------------------------------ 09750 ADDBUF LDA $304 09760 EOR #$80 09770 STA $304 09780 BMI INCBUF 09790 INC $305 09800 INCBUF LDA $30A 09810 EOR #$80 09820 STA $30A 09830 BMI .2 09840 INC $30B 09850 .2 RTS 09860 ------------------------------ 09870 OPENSCR JSR OPENE 09880 LDA #1 09890 STA $2F0 09900 JSR TEXTOUT 09910 .HX 7DEA 09920 RTS 09930 ------------------------------ 09940 OPENE LDA $E401 09950 PHA 09960 LDA $E400 09970 PHA 09980 RTS 09990 ------------------------------ 10000 ; ADDBUFFER ROUTINE : 10010 ------------------------------ 10020 ADDBUFR LDA RDSKPAR0+2 10030 CLC 10040 ADC #$80 10050 STA RDSKPAR0+2 10060 BCC .1 10070 INC RDSKPAR0+3 10080 ------------------------------ 10090 .1 INC RSEC 10100 BNE SETSECR 10110 INC RSEC+1 10120 ------------------------------ 10130 SETSECR LDA RSEC 10140 STA RDSKPAR0 10150 LDA RSEC+1 10160 STA RDSKPAR0+1 10170 RTS 10180 ------------------------------ 10190 TRACKTAB .BL 80,0 10200 RSEC .HX 0000 10210 ------------------------------ 10220 HEADERWA .BL $180,0 ; HEADER WORK AREA 10230 ------------------------------ 10240 ; $180 BYTES FREIER ARBEITSSPEICHER FUER DEN TRACK 10250 ------------------------------ 10260 DRIVES .HX 00000000
INIT.ASM#
00010 ------------------------------ 00020 .LION 00030 ;"†…Œ…‘†" 00040 .LIOFF 00050 ------------------------------ 00060 ; STAND : 25/11/86 00070 ------------------------------ 00080 DRVIX RTS 00090 DRVINIT LDA #1 ;DRIVE 1 00100 STA DRVSEL 00110 .2 LDA DRVSEL 00120 JSR SELDRV ;CONVERT TO PHYSICAL DRIVE NUMBER 00130 BCS DRVIX ;ERROR ? 00140 PHA ;SAVE NO. 00150 LDX #0 ;KALTSTART 00160 LDY #$FF ;AUF SELEKTIERTEM LAUFWERK 00170 SEC ;X,Y CONTAINS JUMP ADR 00180 JSR DRVJMP ;C=1 MEANS IMMIDEATE QUIT 00190 ------------------------------ 00200 LDY #$57 ;JUST WAIT THAT DRIVE 00210 LDX #0 ;COMES UP 00220 .41 STA $D40A 00230 DEX 00240 BNE .41 00250 DEY 00260 BNE .41 00270 LDX #SIOT7 ;INITIALIZE SIO FOR COMMAND $4F. 00280 LDY /SIOT7 ;DRIVE CONFIGURATION TAB CONTAINS THE FOLLOWING 00290 JSR SIOINIT0 ;PARAMETER: 00300 PLA ;SINGLE DENSITY / 40 TRACK 00310 PHA ;18 SECTORS / 128 BYTES PER SECTOR 00320 STA $301 00330 JSR MAINSIO ;EXECUTE COMMAND 00340 ------------------------------ 00350 ;"‘“¡Œ”∆≈“≈†‘»≈†√œ–Ÿ†Õ¡√»…Œ≈†“œ’ ‘…Œ≈†‘œ†ƒ“…÷≈Æ" 00360 ------------------------------ 00370 LDX #SIOT 00380 LDY /SIOT 00390 JSR SIOINIT0 00400 PLA 00410 PHA 00420 STA $301 00430 LDA #0 00440 .40 PHA 00450 .45 LDA #$80 00460 STA $303 00470 JSR MAINSIO 00480 BMI .45 00490 JSR ADDBUF 00500 PLA 00510 TAX 00520 INX 00530 TXA 00540 CMP #17 ; TEST IF 5 PAGES ARE SEND. 00550 BCC .40 00560 ------------------------------ 00570 ; NOW WRITE THE COMMANDS INTO DRIVE'S COMMAND TABLE: 00580 ; 00590 ; COM. $54 DRIVE ANALYSIS READ 00600 ; COM. $55 DRIVE ANALYSIS WRITE 00610 ; COM. $56 REFORMAT TRACK 00620 ------------------------------ 00630 PLA 00640 PHA 00650 LDX #COMT0 00660 LDY /COMT0 ; INIT : 00670 JSR COMINIT ; SDRV0 00680 LDX #COMT1 00690 LDY /COMT1 00700 JSR COMINIT ; SDRV1 00710 LDX #COMT2 00720 LDY /COMT2 00730 JSR COMINIT ; REFORM 00740 PLA 00750 PHA 00760 LDX #ACTIVATE 00770 LDY /ACTIVATE 00780 SEC 00790 JSR DRVJMP 00800 ------------------------------ 00810 JSR TEXTOUT 00820 .AS "DRIVE $" 00830 .HX EA 00840 PLA 00850 JSR PHEXOUT 00860 JSR TEXTOUT 00870 .DA " INITIALIZED",#$9B,#$9B,#$EA 00880 INC DRVSEL 00890 JMP .2 00900 ------------------------------ 00910 LOCSPEEDY LDA #1 00920 STA DRVSEL ;DRV = 1 00930 JSR TEXTOUT 00940 .HX 9B9BEA 00950 ------------------------------ 00960 ;"Ãœ√¡‘≈†”–≈≈ƒŸ†ƒ“…÷≈" 00970 ------------------------------ 00980 LDA BASE 00990 STA LMS 01000 LDA BASE+1 01010 STA LMS+1 01020 .1 LDX #SIOT1 ; INIT 01030 LDY /SIOT1 ; JMP COM. 01040 JSR SIOINIT0 ; TO SIO 01050 LDA #SENDC 01060 STA $30A 01070 LDA /SENDC 01080 STA $30B 01090 LDA #0 ; MIN. 01100 STA $306 ; TIMEOUT 01110 LDA DRVSEL 01120 STA $301 01130 JSR MAINSIO 01140 BPL .2 01160 LDA #0 01170 LDY DRVSEL 01180 STA DRIVES-1,Y 01190 BPL .3 =JMP 01200 ------------------------------ 01210 .2 JSR TEXTOUT 01220 .AS "DRIVE $" 01230 .HX EA 01240 LDA DRVSEL 01250 JSR PHEXOUT 01260 JSR TEXTOUT 01270 .DA " IS SPEEDY ",#$9B,#$EA 01280 LDA #$10 01290 LDY DRVSEL 01300 STA DRIVES-1,Y 01310 ------------------------------ 01320 .3 INC DRVSEL 01330 LDA DRVSEL 01340 CMP #MAXDRV+1 DRV=4 01350 BCC .1 01360 ------------------------------ 01370 JSR SORTDRV 01380 BCC .5 01390 JSR TEXTOUT 01400 .DA "SORRY , NO SPEEDY LOCATED,",#$9B 01410 .DA "... CANNOUT CONTINUE",#$EA 01420 .99 JMP .99 01430 ------------------------------ 01440 .5 JSR TEXTOUT 01450 .HX 9BEA 01460 RTS
DRIVE.ASM#
00010 ------------------------------ 00020 .LI ON 00030 ;"†ƒ“…÷≈†" 00040 .LI OFF 00050 ------------------------------ 00060 ------------------------------ 00070 ;FOLGENDE LAUFWERKSFUNKTIONEN 00080 ;SIND ENTHALTEN: 00090 ;1.EINLESEN DER SECTOR ID'S 00100 ; EINES TRACK'S 00110 ;2.EINLESEN DER DATENFELDER 00120 ;3.TABELLIERUNG DER STATI 00130 ;4.FORMATIERUNG MITTELS 00140 ; INTERLEAVING 00150 ;5.SCHREIBEN DER DATENFELDER 00160 ; UND IHRER STATI 00170 ; 00180 ; STAND: 26/11/86' 00190 ------------------------------ 00200 .OR $8000 00210 SDRV0 JSR SEM0 00220 LDA XSAV 00230 STZ STBUF ; CLEAR DRIVE STATUS 00240 JSR TSTWRP 00250 AND #$80 ; KLAPPE OFFEN ? 00260 BNE .1 ; FEHLER ! 00270 LDX #2 ; ANZAHL RETRYS 00280 .13 PHX 00290 ------------------------------ 00300 JSR READH 00310 JSR CONRES 00320 JSR MOVE 00330 ------------------------------ 00340 ;TEST AUF 18 HEADER 00350 ------------------------------ 00360 PLX 00370 DEX 00380 BEQ .12 00390 LDA XSAV 00400 CMP #$7F =18*7+1 00410 BNE .13 00420 ------------------------------ 00430 .12 JSR RDSEC 00440 ------------------------------ 00450 JMP SEM1 00460 ------------------------------ 00470 ;STBUF=STATUS,DER ZUM COMPUTER GEHT. 00480 ------------------------------ 00490 .1 LDA #1 00500 STA STBUF 00510 JMP SEM1 00520 ------------------------------ 00530 ;CRC ERROR IM DATENFELD ENTD. 00540 ------------------------------ 00550 .2 JSR SPECVERI 00560 LDA #$80 00570 STA HEADBUF+$17D 00580 JMP SEM1 00590 ------------------------------ 00600 STBUF .HX 00 00610 ------------------------------ 00620 ; MODUL SCHREIBEN : 00630 ------------------------------ 00640 SDRV1 JSR SEM0 00650 STZ STBUF ; CLEAR DRIVE STATUS 00660 LDA #20 ; GAPLAENGE ZWISCHEN DATEN UND 00670 STA FGAP ; ID FIELD (SECTOR/SECTOR) 00680 ------------------------------ 00690 JSR MOTON 00700 JSR TSTWRP ; TEST OB KLAPPE OFFEN ODER WRITE PROTECT 00710 BNE .1 ; FEHLER ! 00720 ------------------------------ 00730 ; ICH GEHE DAVON AUS,DAS ES MOEGLICH IST , 00740 ; 19 SEKTOREN (MIT DATEN) IN EINEM TRACK ZU FORMATIEREN. 00750 ; DAZU WERDEN DIE GAPS AUF EIN MINIMUM GEKUERZT. 00760 ; ES BLEIBT ZU TESTEN: 00770 ; 00780 ; >KOENNEN DANN IN EINER UMDREHU NG ALLE ERFORDERLICHEN 00790 ; DATEN ZURUECK-GESCHRIEBEN WERDEN ? 00800 ; >WIRD BEI JEDEM LAUFWERK RICHT IG FORMATIERT 00810 ------------------------------ 00820 LDA HEADBUF+$17F ; HILEN 00830 CMP #9 00840 BCC .3 00850 BEQ .2 00860 BCS .4 ; AETZER FORMAT ! 00870 .2 LDA HEADBUF+$17E ; LOLEN 00880 BEQ .3 00890 ------------------------------ 00900 ;BEQ ID.NORMALFORMAT $900 BYTES 00910 ------------------------------ 00920 LDA #10 ;ENGERES FORMAT ! 00930 STA FGAP 00940 .3 LDA HEADBUF+$17B ; FORMAT RETRIES 00950 AND #7 00960 .31 PHA 00970 JSR WTRACK ; FORMAT TRACK FUNCTION 00980 PLA 00990 BCC .32 ; ERROR DURING FORMAT ? 01000 DEA 01010 BNE .31 ; NO MORE RETRIES ! 01020 BEQ .4 ; FORMAT ERROR 01030 .32 LDA HEADBUF+$17B ; WRITE RETRIES 01040 AND #7 01050 .33 PHA 01060 JSR WRSEC 01070 PLA 01080 BCC .34 01090 DEA 01100 BNE .33 01110 BEQ .44 ; WRITE ERROR (TIMEOUT) 01120 LDA HEADBUF+$17B ; VERIFY ON? 01130 BPL .34 01140 JSR VERIFY 01150 BCS .45 01160 .34 JMP SEM1 01170 ------------------------------ 01180 .45 LDA #4 ;VERIFY ERRROR 01190 .HX 2C =BIT ABS. 01200 .44 LDA #3 ; WRITE ERROR 01210 .HX 2C =BIT ABS. 01220 .4 LDA #2 ; ILLEGAL FORMAT ERROR 01230 .HX 2C =BIT ABS. 01240 .1 LDA #1 ; FATAL ERROR 01250 STA STBUF 01260 ORA #$F0 01270 JSR HEXOUT 01280 JMP SEM1 ; SEND ERROR ?! 01290 ------------------------------ 01300 FGAP .HX 14 01310 ------------------------------ 01320 ;HIER BEGINNEN DIE DIENST ROUTINEN 01330 ------------------------------ 01340 RDSEC LDY #0 ;SET PAR 01350 STY CSEC ;TO ZERO 01360 STY YSAV 01370 LDA #SECBUF ;SET BUFFER 01380 STA $19 ;POINTER 01390 LDA /SECBUF 01400 STA $1A 01410 LDA XSAV 01420 BNE .2 01430 RTS 01440 ------------------------------ 01450 .2 LDY YSAV 01460 LDA HEADBUF+3,Y ;SET 01470 ------------------------------ 01480 JSR RDSEC1 01490 ------------------------------ 01500 LDY CSEC 01510 STA HEADBUF+$100,Y 01520 INC CSEC 01530 AND #$10 01540 BNE .1 01550 ------------------------------ 01560 LDA $19 ;INC BUFFER 01570 EOR #$80 01580 STA $19 01590 BMI .1 01600 INC $1A 01610 .1 LDA YSAV 01620 CLC 01630 ADC #7 01640 STA YSAV 01650 CMP XSAV 01660 BCC .2 01670 LDA $19 01680 STA HEADBUF+$17E 01690 LDA $1A 01700 SEC 01710 SBC /SECBUF 01720 STA HEADBUF+$17F 01730 LDA CSEC 01740 STA TSEC 01750 RTS 01760 ------------------------------ 01770 ;DIE FUNKTION SORTIERT DEN 01780 ;HEADERBUFFER UM, DAMIT EINE 01790 ;ERHOEHTE GESCHWINDIGKEIT 01800 ;BEIM SEKTORLESEN ERZIEHLT WIRD 01810 ------------------------------ 01820 VAL2 .HX 00 01830 ------------------------------ 01840 MOVE LDY HEADBUF+$FF ; ZUNAECHST 01850 CPY #21 ;TESTE , OB DREI HEADER (3*7) VORHANDEN 01860 BCC MVERR 01870 LDX #0 01880 ------------------------------ 01890 .1 LDA HEADBUF,X ; MOVED 14 BYTES AUF DEN STACK ! 01900 PHA 01910 INX 01920 CPX #14 01930 BCC .1 ; JETZT LIEGT HEADBUF+13 AUF DEM STACK OBEN 01940 TYA 01950 SEC 01960 SBC #14 01970 STA VAL2 01980 ------------------------------ 01990 LDY #0 02000 .2 LDA HEADBUF+14,Y 02010 STA HEADBUF,Y 02020 INY 02030 CPY VAL2 02040 BCC .2 02050 ------------------------------ 02060 LDY HEADBUF+$FF 02070 LDX #13 02080 .3 PLA 02090 STA HEADBUF-1,Y 02100 DEY 02110 DEX 02120 BPL .3 02130 MVERR RTS 02140 ------------------------------ 02150 WRBTSL BVC FORTO 02160 WRBYTS BIT $280 02170 BPL WRBTSL 02180 STA $403 02190 DEY 02200 BNE WRBYTS 02210 RTS 02220 FORTO PLA 02230 PLA 02240 SEC 02250 RTS 02260 ------------------------------ 02270 WRBTL BVC FORTO 02280 WRBYTE BIT $280 02290 BPL WRBTL 02300 STA $403 02310 RTS 02320 ------------------------------ 02330 WTRST LDA #5 02340 STA $29F 02350 LDA #$F8 ;WRITE 02360 STA $400 ;TRACK 02370 LDA #0 02380 LDX #2 02390 .1 BIT $280 02400 BPL .1 02410 STA $403 02420 DEX 02430 BNE .1 02440 LDY #$D0 02450 STY $29F 02460 CLC 02470 RTS 02480 ------------------------------ 02490 ; FORMATIERFUNKTION 1. 02500 ------------------------------ 02510 WTRACK STZ CSEC 02520 STZ YSAV 02530 ------------------------------ 02540 JSR WTRST 02550 ------------------------------ 02560 LDY #80 ; ACCU=0 02570 JSR WRBYTS ;WRITE 40x 02580 LDA #$FC ; INDEX MARK 02590 JSR WRBYTE 02600 .1 LDA #$FF 02610 LDY FGAP ;NORMAL:20 02620 JSR WRBYTS ; ACCU=00 02630 LDA #0 02640 LDY #5 02650 JSR WRBYTS 02660 ------------------------------ 02670 LDA #$FE ;SECTOR ID 02680 JSR WRBYTE 02690 LDA $D ; = TRACK 02700 JSR WRBYTE 02710 LDY YSAV 02720 LDA HEADBUF+2,Y ;=SIDE 02730 JSR WRBYTE 02740 LDA HEADBUF+3,Y ; SECTOR 02750 JSR WRBYTE 02760 LDA HEADBUF+4,Y ; SECLEN 02770 JSR WRBYTE 02780 ------------------------------ 02790 ;JETZT FOLGEN 2 CRC BYTES ! 02800 ------------------------------ 02810 LDA HEADBUF,Y 02820 BEQ .2 02830 LDA #$20 ;SET DD 02840 TRB $280 02850 .2 LDA #$F7 02860 JSR WRBYTE 02870 LDA #$20 ;SET SD 02880 TSB $280 02890 LDY #17 02900 LDA #$FF 02910 JSR WRBYTS 02920 LDY CSEC 02930 LDA HEADBUF+$100,Y 02940 AND #$10 ;MASK OUT 02950 BNE .3 ; RNF 02960 LDA HEADBUF+$17D 02970 BNE .31 02980 ------------------------------ 02990 ;RAUM FUER DATEN FELD 03000 ------------------------------ 03010 .32 LDA #$FB DATA AM 03020 JSR WRBYTE 03030 LDY #$82 DATA FIELD 03040 LDA #$FF 03050 JSR WRBYTS 03060 ------------------------------ 03070 .3 INC CSEC 03080 LDA YSAV 03090 CLC 03100 ADC #7 03110 STA YSAV 03120 CMP XSAV 03130 BCC .1 03140 LDA #1 03150 .11 AND $400 03160 BEQ .12 03170 BIT $280 03180 BPL .11 03190 STZ $403 03200 JMP .11 03210 .12 CLC 03220 RTS 03230 ------------------------------ 03240 .31 LDX CSEC 03250 LDA HEADBUF+$120,X 03260 BEQ .32 03270 PHA 03280 LDA #$FB DATA AM 03290 JSR WRBYTE 03300 PLA 03310 PHA 03320 TAY 03330 LDA #$FF 03340 JSR WRBYTS 03350 LDA #$FB 03360 JSR WRBYTE 03370 PLA 03380 SEC 03390 SBC #$80 03400 EOR #$FF 03410 TAY 03420 INY 03430 LDA #$20 03440 LDX #$F0 03450 .40 BIT $280 03460 BVC .41 03470 BPL .40 03480 STX $403 03490 DEX 03500 DEY 03510 BEQ .42 03520 TRB $280 03530 ------------------------------ 03540 .45 BIT $280 03550 BVC .41 03560 BPL .45 03570 STX $403 03580 TSB $280 03590 DEX 03600 DEY 03610 BNE .40 03620 .42 TSB $280 03630 JMP .3 03640 .41 PLA 03650 PLA 03660 SEC 03670 RTS 03680 ------------------------------ 03690 ;DIE WRITE - SECTOR ROUTINE HAT KEIN ABBRUCH-KRITERIUM BEI 03700 ;TIMEOUT ODER RECORD NOT FOUND. 03710 ;DAS HEISST: 03720 ;ABSTURZ BEI ENDLOSSCHLEIFE. 03730 ;KEIN RETRY FLAG. 03740 ------------------------------ 03750 WRSEC STZ CSEC 03760 STZ YSAV 03770 LDA #SECBUF ;SET BUFFER 03780 STA $19 ;POINTER LO 03790 LDA /SECBUF 03800 STA $1A ;POINTER HI 03810 ------------------------------ 03820 .15 LDY #$A8 03830 LDX CSEC ; INDEX X 03840 LDA HEADBUF+$17D 03850 BEQ .50 03860 LDA HEADBUF+$120,X 03870 BNE .30 03880 .50 LDA HEADBUF+$100,X 03890 ASL ;NOT READY->C 03900 ASL ;WR. PROT.->C 03910 ASL ;C=1 DEL. DAM 03920 BCC .19 03930 INY 03940 ; 03950 .19 ASL ;RNF->C 03960 BCS .21 03970 ASL ;CRC ERR->C 03980 PHP ;SAV CARRY 03990 LDX YSAV 04000 LDA HEADBUF+3,X 04010 STA $402 ;SET SEC. 04020 ------------------------------ 04030 STY $400 04040 LDY #0 04050 LDA #$E6 ;SET 04060 STA $29F ;TIMEOUT 04070 .11 LDA ($19),Y 04080 EOR #$FF 04090 .10 BIT $280 04100 BVC .22 ;TIMEOUT ? 04110 BPL .10 ;DRQ ? 04120 STA $403 04130 INY 04140 BPL .11 04150 ------------------------------ 04160 ;$80 BYTES GESCHRIEBEN 04170 ------------------------------ 04180 LDA HEADBUF+4,X ;ID 04190 BEQ .12 ;SECLEN=0 ? 04200 JSR CONRES 04210 .12 PLP ;GET CARRY 04220 BCC .13 ;CRC ERROR? 04230 LDA #$20 04240 TAY 04250 TRB $280 04260 .13 LDA $400 04270 LSR 04280 BCS .13 04290 TYA 04300 TSB $280 04310 ------------------------------ 04320 .1 LDA $19 04330 EOR #$80 04340 STA $19 04350 BMI .21 04360 INC $1A 04370 .21 INC CSEC 04380 LDA YSAV 04390 CLC 04400 ADC #7 04410 STA YSAV 04420 CMP XSAV 04430 BCC .15 04440 CLC 04450 RTS 04460 .22 JSR CONRES 04470 PLP 04480 SEC 04490 RTS 04500 ------------------------------ 04510 .30 STA ZSAV 04520 LDX YSAV 04530 LDA HEADBUF+3,X 04540 STA $402 ; SECTOR 04550 ------------------------------ 04560 LDY #$A8 WRITE SECTOR 04570 STY $400 04580 LDY #0 04590 LDA #$E6 ; SET 04600 STA $29F ; TIMEOUT 04610 .31 LDA ($19),Y 04620 EOR #$FF 04630 .40 BIT $280 04640 BPL .40 ;DRQ ? 04650 STA $403 04660 INY ;Y IN RANGE 04670 CPY ZSAV ;OF 0-$7F ! 04680 BCC .31 04690 JSR CONRES 04700 JMP .1 04710 ZSAV .HX 00 04720 ------------------------------ 04730 TRK00 JSR MOTON 04740 JSR TRACK0 04750 STZ $D 04760 JMP SENDC 04770 ------------------------------ 04780 ;READSECTOR, ACCU = SECTOR NO 04790 ------------------------------ 04800 RDSEC1 STA $402 ; SET SECTOR REGISTER 04810 LDA #$88 ;READ SECTOR 04820 STA $400 04830 ------------------------------ 04840 LDY #0 04850 LDA #$E6 ;TIMEOUT 04860 STA $29F 04870 .1 BIT $280 04880 BVC .2 04890 BPL .1 04900 LDA #$A 04910 STA $29F 04920 LDA $403 04930 EOR #$FF 04940 STA ($19),Y 04950 INY 04960 .3 BIT $280 04970 BVC .5 04980 BPL .3 04990 LDA $403 05000 EOR #$FF 05010 STA ($19),Y 05020 INY 05030 BPL .3 ;$80 BYTES 05040 LDA #1 05050 .4 AND $400 05060 BNE .4 05070 LDA $400 05080 AND #$3E 05090 RTS 05100 .2 JSR CONRES 05110 LDA #$10 05120 RTS 05130 .5 JSR CONRES 05140 LDA #4 05150 RTS 05160 ------------------------------ 05170 REFORM JSR SEM0 05180 JSR MOTON 05190 JSR CLRTRA 05200 JMP SENDC 05210 ------------------------------ 05220 SEM0 LDA $82 05230 STA XSAV 05240 LDA $83 05250 STA $D 05260 JMP TRACKPO 05270 ------------------------------ 05280 SEM1 JSR SENDC 05290 LDA #1 05300 LDX #STBUF 05310 LDY /STBUF 05320 JMP SDBTS 05330 ------------------------------ 05340 VERIFYFLG .HX 00 05350 ------------------------------ 05360 SPECVERI LDX #$20 05370 .1 STZ HEADBUF+$120,X 05380 DEX 05390 BPL .1 05400 LDA #0 05410 .HX 2C =BIT ABS. 05420 ------------------------------ 05430 VERIFY LDA #1 05440 STA VERIFYFLG 05450 LDY #0 ;SET PAR 05460 STY CSEC ;TO ZERO 05470 STY YSAV 05480 LDA #SECBUF ;SET BUFFER 05490 STA $19 ;POINTER 05500 LDA /SECBUF 05510 STA $1A 05520 LDA XSAV 05530 BNE .2 05540 CLC 05550 RTS 05560 .2 LDY CSEC 05570 LDA HEADBUF+$100,Y 05580 AND #$10 05590 BNE .1 05600 LDY YSAV 05610 LDA HEADBUF+3,Y ; SET 05620 JSR RDSEC2 ; SECTOR 05630 LDA VERIFYFLG ; CARRY 05640 BEQ .13 ; BLEIBT 05650 BCS .99 ;UNVERAENDERT 05660 ------------------------------ 05670 .13 LDA $19 ;INC BUFFER 05680 EOR #$80 05690 STA $19 05700 BCC .1 05710 INC $1A 05720 .1 INC CSEC 05730 LDA YSAV 05740 CLC 05750 ADC #7 05760 STA YSAV 05770 CMP XSAV 05780 BCC .2 05790 CLC 05800 RTS 05810 ------------------------------ 05820 .99 SEC 05830 RTS 05840 ------------------------------ 05850 RDSEC2 STA $402 05860 LDA #1 05870 .11 AND $400 05880 BNE .11 05890 ------------------------------ 05900 LDA #$88 05910 STA $400 05920 ------------------------------ 05930 LDY #0 05940 LDA #$FF ;TIMEOUT 05950 STA $29F 05960 .1 BIT $280 05970 BVC .2 05980 BPL .1 05990 LDA $403 06000 EOR #$FF 06010 CMP ($19),Y 06020 BNE .2 06030 LDA $296 ;STOP TIMER? 06040 INY 06050 .3 BIT $280 06060 BPL .3 06070 LDA $403 06080 EOR #$FF 06090 CMP ($19),Y 06100 BNE .2 06110 INY 06120 BPL .3 ;$80 BYTES 06130 LDA #0 06140 LDY CSEC 06150 STA HEADBUF+$120,Y 06160 JSR CONRES 06170 CLC 06180 RTS 06190 .2 LDX CSEC 06200 TYA 06210 STA HEADBUF+$120,X 06220 JSR CONRES 06230 SEC 06240 RTS 06250 ------------------------------ 06260 CRCCHECK LDY #0 06270 STY YSAV 06280 TYA 06290 .1 ORA HEADBUF+$100,Y 06300 INY 06310 CPY TSEC 06320 BCC .1 06330 AND #8 06340 CMP #1 ;IF ZERO C=1 06350 RTS 06360 ------------------------------ 06370 ;HEADER LESE FUNKTION: 06380 ------------------------------ 06390 READH LDX #0 ;LOCAL VEC 06400 STX HEADBUF+$17D 06410 STX YSAV ;GLOBAL VEC 06420 ------------------------------ 06430 .2 LDA #$D6 06440 STA $29F 06450 .3 JSR RDHD1 ;GET NEXT HD 06460 BCS .4 06470 TAX 06480 LDA $7A 06490 CMP $D 06500 BNE .3 06510 LDA $7C 06520 BEQ .3 06530 CMP #19 06540 BCS .3 06550 TXA 06560 ------------------------------ 06570 JSR SHTAB ;& COPY HD 06580 JMP .3 06590 ------------------------------ 06600 .4 LDY YSAV 06610 BEQ .6 06620 LDA HEADBUF+3 06630 CMP HEADBUF-4,Y 06640 BNE .5 06650 TYA 06660 SEC 06670 SBC #7 06680 TAY 06690 BRA .6 06700 .5 CMP HEADBUF-11,Y 06710 BNE .6 06720 TYA 06730 SEC 06740 SBC #14 06750 TAY 06760 ; 06770 .6 STY XSAV 06780 STY HEADBUF+$FF 06790 RTS 06800 ------------------------------ 06810 ;SETZE HEADER UND STATUS IM HEADERBUFFER : 06820 ;AUFBAU DES PUFFERS: 06830 ;BYTE:0 IST DER STATUS DIESES HEADERS 06840 ; 1 ENTSPRICHT DEM TRACK 06850 ; 2 " " SEITENBYTE 06860 ; 3 " " SECTOR 06870 ; 4 " DER LAENGE (NACH IBM STANDARD) 06880 ; 6 1. CRC BYTE 06890 ; 7 2. CRC BYTE 06900 ------------------------------ 06910 SHTAB LDY YSAV ; GET Y 06920 STA HEADBUF,Y 06930 INY 06940 LDX #$7A 06950 .1 LDA $0,X 06960 STA HEADBUF,Y 06970 INY 06980 INX 06990 BPL .1 07000 STY YSAV 07010 RTS 07020 ------------------------------ 07030 ;DRIVE DISPLAY CONTROL 07040 ------------------------------ 07050 MEMDOOR .HX 00 07060 BELL = $FF99 07070 CLRDSP = $FF9C 07080 HEXOUT = $FFA5 07090 DOORCHECK = $FF6F 07100 CNT .HX 0000 07110 LOOP = 7 07120 ------------------------------ 07130 DISKWAIT STZ $1D ; LAST DOOR POSITION IS CLOSED 07140 LDA #1 07150 TRB $282 ; DAMIT ERHAELT DER POKEY EIN SERIAL FRAME. 07160 STZ MEMDOOR 07170 ------------------------------ 07180 START JSR CLRDSP 07190 STZ CNT 07200 LDA #LOOP ;7 07210 STA CNT+1 07220 ------------------------------ 07230 LDA #$FF 07240 STA $4002 07250 LDA #$CD 07260 JSR HEXOUT 07270 JSR BELL 07280 ------------------------------ 07290 .0 JSR DISKCHECK ; IST DIE KLAPPE GESCHLOSSEN WORDEN ? 07300 BCS .3 ; C=1 => DISK CHANGE 07310 ------------------------------ 07320 JSR ESCTEST ; IST IM COMPUTER 'ESC' GEDRUECKT ? 07330 BCS .3 ; C=1 => ESCAPE 07340 ------------------------------ 07350 DEC CNT 07360 BNE .0 07370 DEC CNT+1 07380 BNE .0 07390 ------------------------------ 07400 ;2. SCHLEIFE. 07410 ------------------------------ 07420 JSR CLRDSP 07430 STZ CNT 07440 LDA #LOOP ;7 07450 STA CNT+1 07460 ------------------------------ 07470 .1 JSR DISKCHECK ; IST DIE KLAPPE GESCHLOSSEN WORDEN ? 07480 BCS .3 ; C=1 => DISK CHANGE 07490 ------------------------------ 07500 JSR ESCTEST ; IST IM COMPUTER 'ESC' GEDRUECKT ? 07510 BCS .3 ; C=1 => ESCAPE 07520 ------------------------------ 07530 DEC CNT 07540 BNE .1 07550 DEC CNT+1 07560 BNE .1 07570 JMP START 07580 ------------------------------ 07590 .3 LDA #1 07600 TSB $282 07610 JMP CLRDSP 07620 ------------------------------ 07630 CARRYC CLC 07640 RTS 07650 CARRYS SEC 07660 RTS 07670 ------------------------------ 07680 DISKCHECK LDA MEMDOOR 07690 BNE .1 07700 ------------------------------ 07710 ;LAUFWERKKLAPPE GEOEFFNET? 07720 ------------------------------ 07730 JSR DOORCHECK 07740 AND #$80 07750 BEQ CARRYC 07760 STA MEMDOOR 07770 ------------------------------ 07780 ;KLAPPE GESCHLOSSEN? 07790 ------------------------------ 07800 .1 JSR DOORCHECK 07810 AND #$80 07820 BEQ CARRYS 07830 BRA CARRYC 07840 ------------------------------ 07850 ESCTEST LDA $282 07860 TAX 07870 AND #2 07880 BEQ .1 07890 JMP ($FFFC) 07900 .1 TXA 07910 AND #$80 07920 CMP #$80 07930 RTS 07940 ------------------------------ 07950 ACTIVATE LDA #$82 ;SET SD 07960 STA $9 ;FORKEN 07970 STA $A ;FORKEN2 07980 JSR SDRDDP 07990 LDA #$2C 08000 STA $17 ;STEPTIM 08010 LDA $9F80 08020 STA BEREIT 08030 LDA $9F80+1 08040 STA BEREIT+1 08050 LDA #NORM 08060 STA $9F80 08070 LDA /NORM 08080 STA $9F80+1 08090 ------------------------------ 08100 NORM STZ $1D 08110 LDA $282 08120 AND #2 08130 BNE .1 08140 JMP (BEREIT) 08150 .1 JMP ($FFFC) 08160 ------------------------------ 08170 BEREIT .DA $E100 08180 DRVEND
