!!!Simple Disk Formatter
{{{
00010 .LI OFF
00020 .OR $4000
00030 *
00040 *
00050 LM = $52
00060 CURX = $55
00070 CURY = $54
00080 *
00090 CURINH = 752
00100 *
00110 *
00120 *
00130 S LDA #0 Linker Rand
00140 STA LM auf Null setzen
00150 INC CURINH Cursor aus
00160 JSR PRINT
00170 .AS "}\240\240\240\240\240\240\240\240\240\240\240\240\240\240ƒœ”≠ƒÈÛÎ…ÓÈÙ\240\240\240\240\240\240\240\240\240\240\240\240\240\240"
00180 .AS "\^]\^]\^]\^]\M^Y±\^Y Disk formattieren und DOS schreiben"
00190 .HX 9B
00200 .AS "\^]\M^Y≤\^Y DOS auf formattierte Disk schreiben"
00210 .HX 9B
00220 .AS "\^]\M^Y≥\^Y Disk formattieren (Single)"
00230 .HX 9B
00240 .AS "\^]\M^Y¥\^Y Programm verlassen"
00250 .HX 9B
00260 .AS "\^]\^]\^]\^]\^? Ihre Wahl?@"
00270 *
00280 GETOP JSR GETKEY Taste holen
00290 AND #$7F invers aus
00300 CMP #'1 Nur Ziffern
00310 BCC GETOP "1"-"4"
00320 CMP #'5 zulassen
00330 BCS GETOP
00340 AND #$F obere Bits ausmaskieren
00350 PHA
00360 LDX #8 Cursor
00370 LDY #22 positionieren
00380 JSR POSCUR
00390 JSR PRINT
00400 .AS "Sind Sie sicher? (J/N)@"
00410 JSR GETKEY Taste holen
00420 AND #$7F kein invers
00430 CMP #'J Kommando OK
00440 BEQ .1
00450 PLA Nein. zurueck
00460 JMP S zum Menue
00470 *
00480 .1
00490 LDA #$9C Zeile loeschen
00500 JSR PUTCHAR
00510 PLA
00520 ASL Addresse
00530 TAX der
00540 LDA JTAB-1,X Routine
00550 PHA aufs
00560 LDA JTAB-2,X Stack
00570 PHA legen
00580 RTS JUMP
00590 *
00600 *
00610 JTAB .DA OP1-1,OP2-1
00620 .DA OP3-1,OP4-1
00630 *
00640 ------------------------------
00650 GETKEY LDA $E425 Taste
00660 PHA holen
00670 LDA $E424
00680 PHA
00690 RTS
00700 ------------------------------
00710 *
00720 OP1 JSR FDSK Disk formattieren
00730 JSR WRITEDOS DOS schreiben
00740 *
00750 READY LDX #10 Cursor
00760 LDY #22 setzen
00770 JSR POSCUR
00780 JSR PRINT
00790 .AS "Fertig!!@"
00800 JSR GETKEY Auf Taste warten
00810 JMP S
00820 *
00830 ------------------------------
00840 *
00850 OP2 JSR WRITEDOS DOS schreiben
00860 JMP READY nach READY
00870 *
00880 ------------------------------
00890 *
00900 OP3 JSR FDSK Disk formattieren
00910 JMP READY
00920 *
00930 ------------------------------
00940 *
00950 OP4 LDA #'} Bildschirm loeschen
00960 JMP PUTCHAR zurueck
00970 *
00980 ------------------------------
00990 *
01000 FDSK LDX #$10 Datenkanale 1 schliessen
01010 JSR CLOSE
01020 LDA #FN Formattierungs-
01030 LDY /FN routine auf-
01040 JMP FORMAT rufen
01050 *
01060 ------------------------------
01070 *
01080 WRITEDOS LDX #$10 Datenkanal 1 schliessen
01090 JSR CLOSE
01100 LDX #$18 File DOS.SYS
01110 LDA #FN zum schreiben oeffnen
01120 LDY /FN und schliessen
01130 JSR OPEN (den Rest erledigt
01140 JMP CLOSE das DOS selber)
01150 *
01160 FN .DA "D:DOS.SYS",#$9B
01170 *
01180 ------------------------------
01190 *
01200 POSCUR STX CURX Cursor
01210 STY CURY positionieren
01220 RTS
01230 *
01240 ------------------------------
01250 *
01260 .IN "D:PRINTS.INC"
01270 .IN "D:IOPACK.INC"
}}}