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"
