Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_35.ADF » P/F/!RunImage
P/F/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_35.ADF |
| Filename: | P/F/!RunImage |
| Read OK: | ✔ |
| File size: | 1BB7 bytes |
| Load address: | FFFFFB47 |
| Exec address: | C8EDCBF5 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-35_D-EUG35.dsd » f.!Runima
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_35.ADF » P/F/!RunImage
- Personal collection » Acorn hard disk » zipped_disks » elk03 » eug35/P/F/!RunImage
File contents
10REM >!RunImage
20REM !Formatter Main Program
30REM Written July/August 1990 by Der Hansie
40REM (C)1990 Der Hansie Developments
50REM ADFS S and M formats added by Jon Ripley
60REM 13 Sept 1997
70
80MODE0
90DATA 6
100DATA "640 Kbytes ADFS (L)",8,16,0,&5A
110DATA "800 Kbytes ADFS (D/E)",10,5,0,&5A
120DATA "720 Kbytes MS-DOS 3.30",9,9,1,&E5
130DATA "800 Kbytes DOS-II",9,10,1,&00
140DATA "320 Kbytes ADFS (M)",8,16,0,0
150DATA "160 Kbytes ADFS (S)",8,16,0,&0
160DIM bl% 63,bf1% 7168,bf2% 5119,bf3% 5119
170READ q%:DIM n$(q%),l%(q%),s%(q%),b%(q%),f%(q%)
180PROCa
190PROCc("MultiFormat Disk Formatter V1.2")
200PROCc("(C)1990 Der Hansie Developments")
210PROCc("Modified by Jon Ripley 1997")
220PRINT
230PROCc("Formatting time: 64 seconds")
240PROCc("Verification takes up an extra 32 seconds")
250PROCc("Suggestions for additional formats are always welcome")
260PRINT
270FOR i%=1 TO q%
280 READ n$(i%),l%(i%),s%(i%),b%(i%),f%(i%)
290 PRINT SPC(14)CHR$(64+i%)+"/"+CHR$(64+q%+i%)+" - "+n$(i%)
300NEXT i%
310PRINT '"Enter your choice: ";
320REPEAT
330 ch%=GET
340 IF ch%>96 AND ch%<123 THEN ch%-=32
350 ch%-=64
360UNTIL ch%>0 AND ch%<=2*q%
370PRINT CHR$(64+ch%)'
380vf%=(ch%-1) DIV 4
390IF ch%>q% THEN ch%-=q%
400IF ch%=2 THEN
410 PRINT "Enter the desired directory format [D/E]: ";
420 REPEAT
430 fm%=(GET AND &DF)-68
440 UNTIL fm%=0 OR fm%=1
450 PRINT CHR$(68+fm%)'
460ENDIF
470nm$=n$(ch%)
480IF ch%=2 THEN nm$=LEFT$(nm$,17)+CHR$(68+fm%)+")"
490sz%=l%(ch%)
500sc%=s%(ch%)
510st%=b%(ch%)
520ts%=(sc%+st%)<<sz%
530fb%=f%(ch%)
540FOR i%=4 TO 60 STEP 4
550 bl%!i%=0
560NEXT i%
570?bl%=sz%
580bl%?1=sc%+st%
590bl%?2=2
600bl%?3=2
610bl%!16=160*ts%<<sz%
620A%=0
630B%=bf1%
640PROCbuf(60,&4E)
650FOR i%=1 TO sc%
660 PROCbuf(12,&00)
670 PROCbuf( 3,&F5)
680 PROCbuf( 1,&FE)
690 PROCbuf( 2,&00)
700 PROCbuf( 1,st%+i%-1)
710 PROCbuf( 1,sz%-7)
720 PROCbuf( 1,&F7)
730 PROCbuf(22,&4E)
740 PROCbuf(12,&00)
750 PROCbuf( 3,&F5)
760 PROCbuf( 1,&FB)
770 PROCbuf(2^sz%,fb%)
780 PROCbuf( 1,&F7)
790 PROCbuf(24,&4E)
800NEXT i%
810PROCbuf(7168-A%,&4E)
820A%=0
830B%=bf2%
840CASE ch% OF
850 WHEN 1,5,6:
860 IF ch%=6 PRINT "This format should only be done on a 40 track drive or a"'"switchible 40/80 track drive set to 40 tracks. Otherwise"'"the disc may not work on a true 40 track drive."'
870 PROCbuf(1792,&00)
880 PROCbuf(2304,&5A)
890 RESTORE+0
900 FOR i%=1 TO 6
910 READ o%,n%
920 FOR j%=1 TO n%
930 READ a%
940 bf2%?o%=a%
950 o%+=1
960 NEXT j%
970 NEXT i%
980 CASE ch% OF
990 WHEN 1:
1000 bf2%?&FC=0
1010 bf2%?&FD=&A
1020 bf2%?&100=&F9
1030 bf2%?&101=&9
1040 bf2%?&FF=&E8
1050 bf2%?&1FF=&7B
1060 WHEN 5:
1070 bf2%?&FC=0
1080 bf2%?&FD=&5
1090 bf2%?&100=&F9
1100 bf2%?&101=&4
1110 bf2%?&FF=&E3
1120 bf2%?&1FF=&76
1130 WHEN 6:
1140 bf2%?&FC=&80
1150 bf2%?&FD=2
1160 bf2%?&100=&79
1170 bf2%?&101=2
1180 bf2%?&FF=&61
1190 bf2%?&1FF=&F4
1200 ENDCASE
1210 DATA &000, 1,&07
1220 DATA &0F7,11,&21,&6F,&6D,&74,&65,&00,&0A,&00,&E8,&F9,&09
1230 DATA &1F6,15,&46,&72,&61,&74,&72,&49,&2C,&00,&03,&7B,&01,&48,&75,&67,&6F
1240 DATA &6CC, 1,&24
1250 DATA &6D6,21,&02,&00,&00,&28,&43,&29,&31,&39,&39,&30,&20,&44,&65,&72,&20,&48,&61,&6E,&73,&69,&65
1260 DATA &6FA, 6,&01,&48,&75,&67,&6F,&A1
1270 WHEN 2:
1280 IF fm%=0 THEN
1290 PROCbuf(3072,&00)
1300 PROCbuf(2048,&5A)
1310 RESTORE+0
1320 FOR i%=1 TO 6
1330 READ o%,n%
1340 FOR j%=1 TO n%
1350 READ a%
1360 bf2%?o%=a%
1370 o%+=1
1380 NEXT j%
1390 NEXT i%
1400 DATA &000, 1,&0c
1410 DATA &0F7,11,&21,&6F,&6D,&74,&65,&80,&0C,&00,&70,&74,&0C
1420 DATA &1F6,10,&46,&72,&61,&74,&72,&38,&FE,&00,&03,&BB
1430 DATA &400, 5,&01,&48,&75,&67,&6F
1440 DATA &BDA,23,&04,&00,&00,&28,&43,&29,&31,&39,&39,&30,&20,&44,&65,&72,&20,&48,&61,&6E,&73,&69,&65,&00,&24
1450 DATA &BFA, 6,&01,&48,&75,&67,&6F,&94
1460 ELSE
1470 PROCbuf(4096,&00)
1480 PROCbuf(1024,&5A)
1490 RESTORE+0
1500 FOR i%=1 TO 11
1510 READ o%,n%
1520 FOR j%=1 TO n%
1530 READ a%
1540 bf2%?o%=a%
1550 o%+=1
1560 NEXT j%
1570 NEXT i%
1580 DATA &000,18,&59,&18,&82,&FF,&0A,&05,&02,&02,&0F,&07,&01,&00,&00,&01,&20,&05,&03,&02
1590 DATA &015,15,&80,&0C,&00,&1A,&B3,&21,&46,&6F,&72,&6D,&61,&74,&74,&65,&72
1600 DATA &040, 4,&02,&00,&00,&80
1610 DATA &35F, 2,&80,&01
1620 DATA &3FF,19,&80,&59,&18,&82,&FF,&0A,&05,&02,&02,&0F,&07,&01,&00,&00,&01,&20,&05,&03,&02
1630 DATA &415,15,&80,&0C,&00,&1A,&B3,&21,&46,&6F,&72,&6D,&61,&74,&74,&65,&72
1640 DATA &440, 4,&02,&00,&00,&80
1650 DATA &75F, 2,&80,&01
1660 DATA &7FF, 6,&80,&01,&4E,&69,&63,&6B
1670 DATA &FDA,23,&03,&02,&00,&28,&43,&29,&31,&39,&39,&30,&20,&44,&65,&72,&20,&48,&61,&6E,&73,&69,&65,&00,&24
1680 DATA &FFA, 6,&01,&4E,&69,&63,&6B,&30
1690 ENDIF
1700 WHEN 3:
1710 OSCLI "Load <Formatter$Dir>.DOS330 "+STR$~bf2%
1720 A%=512
1730 PROCbuf( 1,&F9)
1740 PROCbuf( 2,&FF)
1750 PROCbuf(509,&00)
1760 PROCbuf(512,&00)
1770 PROCbuf(512,&00)
1780 PROCbuf( 1,&F9)
1790 PROCbuf( 2,&FF)
1800 PROCbuf(509,&00)
1810 PROCbuf(512,&00)
1820 PROCbuf(512,&00)
1830 PROCbuf(512,&00)
1840 PROCbuf(512,&00)
1850 WHEN 4:
1860 PROCbuf(1590,&00)
1870 PROCbuf( 1,&FF)
1880 PROCbuf(3002,&00)
1890 PROCbuf( 1,&FD)
1900 PROCbuf( 14,&3F)
1910 FOR i=1 TO 32
1920 PROCbuf( 1,&FF)
1930 PROCbuf(15,&00)
1940 NEXT i
1950ENDCASE
1960REPEAT
1970 PRINT "Insert blank disk in drive :0 and press <Return>";
1980 REPEAT UNTIL GET=13
1990 er1%=0
2000 er2%=0
2010 PRINT ''"Formatting";
2020 IF vf% THEN PRINT " and verifying";
2030 PRINT " disk as "nm$"."'
2040 si%=1+(ch%=5 OR ch%=6)
2050 FOR t%=0 TO 79+(40*(ch%=6))
2060 FOR s%=0 TO si%
2070 FOR i%=0 TO sc%-1
2080 bf1%?(60+(2^sz%+84)*i%+16)=t%
2090 bf1%?(60+(2^sz%+84)*i%+17)=s%
2100 NEXT i%
2110 PRINT CHR$13"Formatting track ";t%;", side ";s%;
2120 SYS "XADFS_DiscOp",,(bl%<<6)+&44,(2*t%+s%)*ts%,bf1% TO ;er1%
2130 er1%=er1% AND 1
2140 IF vf% THEN
2150 ad%=(2*t%+s%)*ts%+(st%<<sz%)
2160 SYS "XADFS_DiscOp",,(bl%<<6)+&41,ad%,bf3%,sc%<<sz% TO ;er2%
2170 er2%=er2% AND 1
2180 ENDIF
2190 er%=er1%+er2%
2200 IF er% THEN
2210 PRINT ''"Error on format - aborted."'
2220 s%=1
2230 t%=79
2240 ENDIF
2250 NEXT s%
2260 NEXT t%
2270 IF er%=0 THEN
2280 CASE ch% OF
2290 WHEN 1,2,3: PRINT
2300 WHEN 4:
2310 INPUT ''"Enter disk name: "d$
2320 IF d$="" THEN d$=STRING$(14,"?")
2330 d$+=STRING$(14," ")
2340 FOR i%=1 TO 14
2350 bf2%?(4593+i%)=ASC(MID$(d$,i%))
2360 NEXT i%
2370 ENDCASE
2380 SYS "XADFS_DiscOp",,(bl%<<6)+2,st%<<sz%,bf2%,sc%<<sz% TO ;er%
2390 er%=er% AND 1
2400 IF er% THEN
2410 PRINT '"Error on writing directory - format unsuccesful."'
2420 ELSE
2430 IF ch%=5 OR ch%=6 THEN
2440 PRINT ''"ZYSysHelp file required? ";
2450 a%=GET AND &DF
2460 PRINT CHR$a%
2470 ENDIF
2480 IF ch%<3 OR ch%=5 OR ch%=6 THEN
2490 OSCLI "Adfs"
2500 OSCLI "Mount :0"
2510 OSCLI "NameDisk :0 "+MID$(TIME$,17,2)+"_"+MID$(TIME$,20,2)+"_"+LEFT$(TIME$,3)
2520 IF a%=89 OSCLI "Create :0.$.ZYSysHelp 3F80":OSCLI "Access :0.$.ZYSysHelp L"
2530 OSCLI "Dismount :0"
2540 ENDIF
2550 PRINT '"Format complete."'
2560 ENDIF
2570 ENDIF
2580 PRINT "Format another disk? ";
2590 a%=GET AND &DF
2600 PRINT CHR$a%''
2610UNTIL a%<>89
2620END
2630
2640DEF PROCa
2650DIM P% 31
2660[OPT 2
2670.TrackBuf EQUD bf1%
2680.FillBuf
2690 STRB R3,[R1,R0]
2700 ADD R0,R0,#1
2710 SUBS R2,R2,#1
2720 BNE FillBuf
2730 MOV R15,R14
2740]
2750ENDPROC
2760
2770DEF PROCbuf(C%,D%)
2780A%=USR(FillBuf)
2790ENDPROC
2800
2810DEF PROCc(a$)
2820PRINT SPC((59-LENa$)/2)a$
2830ENDPROC
� >!RunImage
� !Formatter Main Program
,� Written July/August 1990 by Der Hansie
(%� (C)1990 Der Hansie Developments
2.� ADFS S and M formats added by Jon Ripley
<� 13 Sept 1997
F
P�0
Z� 6
d&� "640 Kbytes ADFS (L)",8,16,0,&5A
n(� "800 Kbytes ADFS (D/E)",10,5,0,&5A
x(� "720 Kbytes MS-DOS 3.30",9,9,1,&E5
�$� "800 Kbytes DOS-II",9,10,1,&00
�$� "320 Kbytes ADFS (M)",8,16,0,0
�%� "160 Kbytes ADFS (S)",8,16,0,&0
�*� bl% 63,bf1% 7168,bf2% 5119,bf3% 5119
�-� q%:� n$(q%),l%(q%),s%(q%),b%(q%),f%(q%)
��a
�)�c("MultiFormat Disk Formatter V1.2")
�)�c("(C)1990 Der Hansie Developments")
�%�c("Modified by Jon Ripley 1997")
��
�%�c("Formatting time: 64 seconds")
�3�c("Verification takes up an extra 32 seconds")
�?�c("Suggestions for additional formats are always welcome")
�
� i%=1 � q%
* � n$(i%),l%(i%),s%(i%),b%(i%),f%(i%)
"4 � �(14)�(64+i%)+"/"+�(64+q%+i%)+" - "+n$(i%)
,� i%
6 � '"Enter your choice: ";
@�
J ch%=�
T" � ch%>96 � ch%<123 � ch%-=32
^
ch%-=64
h� ch%>0 � ch%<=2*q%
r� �(64+ch%)'
|vf%=(ch%-1) � 4
�� ch%>q% � ch%-=q%
�
� ch%=2 �
�5 � "Enter the desired directory format [D/E]: ";
� �
� fm%=(� � &DF)-68
� � fm%=0 � fm%=1
� � �(68+fm%)'
��
�nm$=n$(ch%)
�(� ch%=2 � nm$=�nm$,17)+�(68+fm%)+")"
�sz%=l%(ch%)
�sc%=s%(ch%)
�st%=b%(ch%)
ts%=(sc%+st%)<<sz%
fb%=f%(ch%)
� i%=4 � 60 � 4
& bl%!i%=0
0� i%
: ?bl%=sz%
Dbl%?1=sc%+st%
N bl%?2=2
X bl%?3=2
bbl%!16=160*ts%<<sz%
lA%=0
v B%=bf1%
��buf(60,&4E)
�� i%=1 � sc%
� �buf(12,&00)
� �buf( 3,&F5)
� �buf( 1,&FE)
� �buf( 2,&00)
� �buf( 1,st%+i%-1)
� �buf( 1,sz%-7)
� �buf( 1,&F7)
� �buf(22,&4E)
� �buf(12,&00)
� �buf( 3,&F5)
� �buf( 1,&FB)
�buf(2^sz%,fb%)
�buf( 1,&F7)
�buf(24,&4E)
� i%
*�buf(7168-A%,&4E)
4A%=0
> B%=bf2%
H Ȏ ch% �
R � 1,5,6:
\� � ch%=6 � "This format should only be done on a 40 track drive or a"'"switchible 40/80 track drive set to 40 tracks. Otherwise"'"the disc may not work on a true 40 track drive."'
f �buf(1792,&00)
p �buf(2304,&5A)
z �+0
� � i%=1 � 6
� � o%,n%
� � j%=1 � n%
� � a%
� bf2%?o%=a%
� o%+=1
� � j%
� � i%
� Ȏ ch% �
� � 1:
� bf2%?&FC=0
� bf2%?&FD=&A
� bf2%?&100=&F9
bf2%?&101=&9
bf2%?&FF=&E8
bf2%?&1FF=&7B
$ � 5:
. bf2%?&FC=0
8 bf2%?&FD=&5
B bf2%?&100=&F9
L bf2%?&101=&4
V bf2%?&FF=&E3
` bf2%?&1FF=&76
j � 6:
t bf2%?&FC=&80
~ bf2%?&FD=2
� bf2%?&100=&79
� bf2%?&101=2
� bf2%?&FF=&61
� bf2%?&1FF=&F4
� �
� � &000, 1,&07
�= � &0F7,11,&21,&6F,&6D,&74,&65,&00,&0A,&00,&E8,&F9,&09
�M � &1F6,15,&46,&72,&61,&74,&72,&49,&2C,&00,&03,&7B,&01,&48,&75,&67,&6F
� � &6CC, 1,&24
�e � &6D6,21,&02,&00,&00,&28,&43,&29,&31,&39,&39,&30,&20,&44,&65,&72,&20,&48,&61,&6E,&73,&69,&65
�) � &6FA, 6,&01,&48,&75,&67,&6F,&A1
�
� 2:
� fm%=0 �
�buf(3072,&00)
�buf(2048,&5A)
�+0
( � i%=1 � 6
2 � o%,n%
< � j%=1 � n%
F � a%
P bf2%?o%=a%
Z o%+=1
d � j%
n � i%
x � &000, 1,&0c
�? � &0F7,11,&21,&6F,&6D,&74,&65,&80,&0C,&00,&70,&74,&0C
�; � &1F6,10,&46,&72,&61,&74,&72,&38,&FE,&00,&03,&BB
�' � &400, 5,&01,&48,&75,&67,&6F
�o � &BDA,23,&04,&00,&00,&28,&43,&29,&31,&39,&39,&30,&20,&44,&65,&72,&20,&48,&61,&6E,&73,&69,&65,&00,&24
�+ � &BFA, 6,&01,&48,&75,&67,&6F,&94
� �
� �buf(4096,&00)
� �buf(1024,&5A)
�
�+0
� � i%=1 � 11
� � o%,n%
� � j%=1 � n%
� � a%
bf2%?o%=a%
o%+=1
� j%
" � i%
,[ � &000,18,&59,&18,&82,&FF,&0A,&05,&02,&02,&0F,&07,&01,&00,&00,&01,&20,&05,&03,&02
6O � &015,15,&80,&0C,&00,&1A,&B3,&21,&46,&6F,&72,&6D,&61,&74,&74,&65,&72
@# � &040, 4,&02,&00,&00,&80
J � &35F, 2,&80,&01
T_ � &3FF,19,&80,&59,&18,&82,&FF,&0A,&05,&02,&02,&0F,&07,&01,&00,&00,&01,&20,&05,&03,&02
^O � &415,15,&80,&0C,&00,&1A,&B3,&21,&46,&6F,&72,&6D,&61,&74,&74,&65,&72
h# � &440, 4,&02,&00,&00,&80
r � &75F, 2,&80,&01
|+ � &7FF, 6,&80,&01,&4E,&69,&63,&6B
�o � &FDA,23,&03,&02,&00,&28,&43,&29,&31,&39,&39,&30,&20,&44,&65,&72,&20,&48,&61,&6E,&73,&69,&65,&00,&24
�+ � &FFA, 6,&01,&4E,&69,&63,&6B,&30
� �
�
� 3:
�/ � "Load <Formatter$Dir>.DOS330 "+�~bf2%
� A%=512
� �buf( 1,&F9)
� �buf( 2,&FF)
� �buf(509,&00)
� �buf(512,&00)
� �buf(512,&00)
� �buf( 1,&F9)
� �buf( 2,&FF)
�buf(509,&00)
�buf(512,&00)
�buf(512,&00)
& �buf(512,&00)
0 �buf(512,&00)
:
� 4:
D �buf(1590,&00)
N �buf( 1,&FF)
X �buf(3002,&00)
b �buf( 1,&FD)
l �buf( 14,&3F)
v � i=1 � 32
� �buf( 1,&FF)
� �buf(15,&00)
� � i
��
��
�; � "Insert blank disk in drive :0 and press <Return>";
� � � �=13
� er1%=0
� er2%=0
� � ''"Formatting";
�! � vf% � � " and verifying";
� � " disk as "nm$"."'
� si%=1+(ch%=5 � ch%=6)
� t%=0 � 79+(40*(ch%=6))
� s%=0 � si%
� i%=0 � sc%-1
) bf1%?(60+(2^sz%+84)*i%+16)=t%
*) bf1%?(60+(2^sz%+84)*i%+17)=s%
4 � i%
>3 � �13"Formatting track ";t%;", side ";s%;
HD ș "XADFS_DiscOp",,(bl%<<6)+&44,(2*t%+s%)*ts%,bf1% � ;er1%
R er1%=er1% � 1
\ � vf% �
f( ad%=(2*t%+s%)*ts%+(st%<<sz%)
pE ș "XADFS_DiscOp",,(bl%<<6)+&41,ad%,bf3%,sc%<<sz% � ;er2%
z er2%=er2% � 1
� �
� er%=er1%+er2%
� � er% �
�- � ''"Error on format - aborted."'
� s%=1
� t%=79
� �
� � s%
�
� t%
� � er%=0 �
� Ȏ ch% �
� � 1,2,3: �
� � 4:
% � ''"Enter disk name: "d$
! � d$="" � d$=�14,"?")
d$+=�14," ")
$ � i%=1 � 14
.' bf2%?(4593+i%)=�(�d$,i%))
8 � i%
B �
LC ș "XADFS_DiscOp",,(bl%<<6)+2,st%<<sz%,bf2%,sc%<<sz% � ;er%
V er%=er% � 1
` � er% �
j@ � '"Error on writing directory - format unsuccesful."'
t �
~ � ch%=5 � ch%=6 �
�, � ''"ZYSysHelp file required? ";
� a%=� � &DF
� � �a%
� �
�" � ch%<3 � ch%=5 � ch%=6 �
� � "Adfs"
� � "Mount :0"
�? � "NameDisk :0 "+��$,17,2)+"_"+��$,20,2)+"_"+��$,3)
�N � a%=89 � "Create :0.$.ZYSysHelp 3F80":� "Access :0.$.ZYSysHelp L"
� � "Dismount :0"
� �
� � '"Format complete."'
�
�
� "Format another disk? ";
a%=� � &DF
(
� �a%''
2 � a%<>89
<�
F
P� �a
Z � P% 31
d
[OPT 2
n.TrackBuf EQUD bf1%
x .FillBuf
� STRB R3,[R1,R0]
� ADD R0,R0,#1
� SUBS R2,R2,#1
� BNE FillBuf
� MOV R15,R14
�]
��
�
�� �buf(C%,D%)
�A%=�(FillBuf)
��
�
� � �c(a$)
� �((59-�a$)/2)a$
�
� 00000000 0d 00 0a 10 f4 20 3e 21 52 75 6e 49 6d 61 67 65 |..... >!RunImage|
00000010 0d 00 14 1d f4 20 21 46 6f 72 6d 61 74 74 65 72 |..... !Formatter|
00000020 20 4d 61 69 6e 20 50 72 6f 67 72 61 6d 0d 00 1e | Main Program...|
00000030 2c f4 20 57 72 69 74 74 65 6e 20 4a 75 6c 79 2f |,. Written July/|
00000040 41 75 67 75 73 74 20 31 39 39 30 20 62 79 20 44 |August 1990 by D|
00000050 65 72 20 48 61 6e 73 69 65 0d 00 28 25 f4 20 28 |er Hansie..(%. (|
00000060 43 29 31 39 39 30 20 44 65 72 20 48 61 6e 73 69 |C)1990 Der Hansi|
00000070 65 20 44 65 76 65 6c 6f 70 6d 65 6e 74 73 0d 00 |e Developments..|
00000080 32 2e f4 20 41 44 46 53 20 53 20 61 6e 64 20 4d |2.. ADFS S and M|
00000090 20 66 6f 72 6d 61 74 73 20 61 64 64 65 64 20 62 | formats added b|
000000a0 79 20 4a 6f 6e 20 52 69 70 6c 65 79 0d 00 3c 12 |y Jon Ripley..<.|
000000b0 f4 20 31 33 20 53 65 70 74 20 31 39 39 37 0d 00 |. 13 Sept 1997..|
000000c0 46 04 0d 00 50 06 eb 30 0d 00 5a 07 dc 20 36 0d |F...P..0..Z.. 6.|
000000d0 00 64 26 dc 20 22 36 34 30 20 4b 62 79 74 65 73 |.d&. "640 Kbytes|
000000e0 20 41 44 46 53 20 28 4c 29 22 2c 38 2c 31 36 2c | ADFS (L)",8,16,|
000000f0 30 2c 26 35 41 0d 00 6e 28 dc 20 22 38 30 30 20 |0,&5A..n(. "800 |
00000100 4b 62 79 74 65 73 20 41 44 46 53 20 28 44 2f 45 |Kbytes ADFS (D/E|
00000110 29 22 2c 31 30 2c 35 2c 30 2c 26 35 41 0d 00 78 |)",10,5,0,&5A..x|
00000120 28 dc 20 22 37 32 30 20 4b 62 79 74 65 73 20 4d |(. "720 Kbytes M|
00000130 53 2d 44 4f 53 20 33 2e 33 30 22 2c 39 2c 39 2c |S-DOS 3.30",9,9,|
00000140 31 2c 26 45 35 0d 00 82 24 dc 20 22 38 30 30 20 |1,&E5...$. "800 |
00000150 4b 62 79 74 65 73 20 44 4f 53 2d 49 49 22 2c 39 |Kbytes DOS-II",9|
00000160 2c 31 30 2c 31 2c 26 30 30 0d 00 8c 24 dc 20 22 |,10,1,&00...$. "|
00000170 33 32 30 20 4b 62 79 74 65 73 20 41 44 46 53 20 |320 Kbytes ADFS |
00000180 28 4d 29 22 2c 38 2c 31 36 2c 30 2c 30 0d 00 96 |(M)",8,16,0,0...|
00000190 25 dc 20 22 31 36 30 20 4b 62 79 74 65 73 20 41 |%. "160 Kbytes A|
000001a0 44 46 53 20 28 53 29 22 2c 38 2c 31 36 2c 30 2c |DFS (S)",8,16,0,|
000001b0 26 30 0d 00 a0 2a de 20 62 6c 25 20 36 33 2c 62 |&0...*. bl% 63,b|
000001c0 66 31 25 20 37 31 36 38 2c 62 66 32 25 20 35 31 |f1% 7168,bf2% 51|
000001d0 31 39 2c 62 66 33 25 20 35 31 31 39 0d 00 aa 2d |19,bf3% 5119...-|
000001e0 f3 20 71 25 3a de 20 6e 24 28 71 25 29 2c 6c 25 |. q%:. n$(q%),l%|
000001f0 28 71 25 29 2c 73 25 28 71 25 29 2c 62 25 28 71 |(q%),s%(q%),b%(q|
00000200 25 29 2c 66 25 28 71 25 29 0d 00 b4 06 f2 61 0d |%),f%(q%).....a.|
00000210 00 be 29 f2 63 28 22 4d 75 6c 74 69 46 6f 72 6d |..).c("MultiForm|
00000220 61 74 20 44 69 73 6b 20 46 6f 72 6d 61 74 74 65 |at Disk Formatte|
00000230 72 20 56 31 2e 32 22 29 0d 00 c8 29 f2 63 28 22 |r V1.2")...).c("|
00000240 28 43 29 31 39 39 30 20 44 65 72 20 48 61 6e 73 |(C)1990 Der Hans|
00000250 69 65 20 44 65 76 65 6c 6f 70 6d 65 6e 74 73 22 |ie Developments"|
00000260 29 0d 00 d2 25 f2 63 28 22 4d 6f 64 69 66 69 65 |)...%.c("Modifie|
00000270 64 20 62 79 20 4a 6f 6e 20 52 69 70 6c 65 79 20 |d by Jon Ripley |
00000280 31 39 39 37 22 29 0d 00 dc 05 f1 0d 00 e6 25 f2 |1997")........%.|
00000290 63 28 22 46 6f 72 6d 61 74 74 69 6e 67 20 74 69 |c("Formatting ti|
000002a0 6d 65 3a 20 36 34 20 73 65 63 6f 6e 64 73 22 29 |me: 64 seconds")|
000002b0 0d 00 f0 33 f2 63 28 22 56 65 72 69 66 69 63 61 |...3.c("Verifica|
000002c0 74 69 6f 6e 20 74 61 6b 65 73 20 75 70 20 61 6e |tion takes up an|
000002d0 20 65 78 74 72 61 20 33 32 20 73 65 63 6f 6e 64 | extra 32 second|
000002e0 73 22 29 0d 00 fa 3f f2 63 28 22 53 75 67 67 65 |s")...?.c("Sugge|
000002f0 73 74 69 6f 6e 73 20 66 6f 72 20 61 64 64 69 74 |stions for addit|
00000300 69 6f 6e 61 6c 20 66 6f 72 6d 61 74 73 20 61 72 |ional formats ar|
00000310 65 20 61 6c 77 61 79 73 20 77 65 6c 63 6f 6d 65 |e always welcome|
00000320 22 29 0d 01 04 05 f1 0d 01 0e 0f e3 20 69 25 3d |").......... i%=|
00000330 31 20 b8 20 71 25 0d 01 18 2a 20 20 f3 20 6e 24 |1 . q%...* . n$|
00000340 28 69 25 29 2c 6c 25 28 69 25 29 2c 73 25 28 69 |(i%),l%(i%),s%(i|
00000350 25 29 2c 62 25 28 69 25 29 2c 66 25 28 69 25 29 |%),b%(i%),f%(i%)|
00000360 0d 01 22 34 20 20 f1 20 89 28 31 34 29 bd 28 36 |.."4 . .(14).(6|
00000370 34 2b 69 25 29 2b 22 2f 22 2b bd 28 36 34 2b 71 |4+i%)+"/"+.(64+q|
00000380 25 2b 69 25 29 2b 22 20 20 2d 20 20 22 2b 6e 24 |%+i%)+" - "+n$|
00000390 28 69 25 29 0d 01 2c 08 ed 20 69 25 0d 01 36 1d |(i%)..,.. i%..6.|
000003a0 f1 20 27 22 45 6e 74 65 72 20 79 6f 75 72 20 63 |. '"Enter your c|
000003b0 68 6f 69 63 65 3a 20 22 3b 0d 01 40 05 f5 0d 01 |hoice: ";..@....|
000003c0 4a 0b 20 20 63 68 25 3d a5 0d 01 54 22 20 20 e7 |J. ch%=...T" .|
000003d0 20 63 68 25 3e 39 36 20 80 20 63 68 25 3c 31 32 | ch%>96 . ch%<12|
000003e0 33 20 8c 20 63 68 25 2d 3d 33 32 0d 01 5e 0d 20 |3 . ch%-=32..^. |
000003f0 20 63 68 25 2d 3d 36 34 0d 01 68 17 fd 20 63 68 | ch%-=64..h.. ch|
00000400 25 3e 30 20 80 20 63 68 25 3c 3d 32 2a 71 25 0d |%>0 . ch%<=2*q%.|
00000410 01 72 10 f1 20 bd 28 36 34 2b 63 68 25 29 27 0d |.r.. .(64+ch%)'.|
00000420 01 7c 13 76 66 25 3d 28 63 68 25 2d 31 29 20 81 |.|.vf%=(ch%-1) .|
00000430 20 34 0d 01 86 16 e7 20 63 68 25 3e 71 25 20 8c | 4..... ch%>q% .|
00000440 20 63 68 25 2d 3d 71 25 0d 01 90 0d e7 20 63 68 | ch%-=q%..... ch|
00000450 25 3d 32 20 8c 0d 01 9a 35 20 20 f1 20 22 45 6e |%=2 ....5 . "En|
00000460 74 65 72 20 74 68 65 20 64 65 73 69 72 65 64 20 |ter the desired |
00000470 64 69 72 65 63 74 6f 72 79 20 66 6f 72 6d 61 74 |directory format|
00000480 20 5b 44 2f 45 5d 3a 20 22 3b 0d 01 a4 07 20 20 | [D/E]: ";.... |
00000490 f5 0d 01 ae 18 20 20 20 20 66 6d 25 3d 28 a5 20 |..... fm%=(. |
000004a0 80 20 26 44 46 29 2d 36 38 0d 01 b8 15 20 20 fd |. &DF)-68.... .|
000004b0 20 66 6d 25 3d 30 20 84 20 66 6d 25 3d 31 0d 01 | fm%=0 . fm%=1..|
000004c0 c2 12 20 20 f1 20 bd 28 36 38 2b 66 6d 25 29 27 |.. . .(68+fm%)'|
000004d0 0d 01 cc 05 cd 0d 01 d6 0f 6e 6d 24 3d 6e 24 28 |.........nm$=n$(|
000004e0 63 68 25 29 0d 01 e0 28 e7 20 63 68 25 3d 32 20 |ch%)...(. ch%=2 |
000004f0 8c 20 6e 6d 24 3d c0 6e 6d 24 2c 31 37 29 2b bd |. nm$=.nm$,17)+.|
00000500 28 36 38 2b 66 6d 25 29 2b 22 29 22 0d 01 ea 0f |(68+fm%)+")"....|
00000510 73 7a 25 3d 6c 25 28 63 68 25 29 0d 01 f4 0f 73 |sz%=l%(ch%)....s|
00000520 63 25 3d 73 25 28 63 68 25 29 0d 01 fe 0f 73 74 |c%=s%(ch%)....st|
00000530 25 3d 62 25 28 63 68 25 29 0d 02 08 16 74 73 25 |%=b%(ch%)....ts%|
00000540 3d 28 73 63 25 2b 73 74 25 29 3c 3c 73 7a 25 0d |=(sc%+st%)<<sz%.|
00000550 02 12 0f 66 62 25 3d 66 25 28 63 68 25 29 0d 02 |...fb%=f%(ch%)..|
00000560 1c 13 e3 20 69 25 3d 34 20 b8 20 36 30 20 88 20 |... i%=4 . 60 . |
00000570 34 0d 02 26 0e 20 20 62 6c 25 21 69 25 3d 30 0d |4..&. bl%!i%=0.|
00000580 02 30 08 ed 20 69 25 0d 02 3a 0c 3f 62 6c 25 3d |.0.. i%..:.?bl%=|
00000590 73 7a 25 0d 02 44 11 62 6c 25 3f 31 3d 73 63 25 |sz%..D.bl%?1=sc%|
000005a0 2b 73 74 25 0d 02 4e 0b 62 6c 25 3f 32 3d 32 0d |+st%..N.bl%?2=2.|
000005b0 02 58 0b 62 6c 25 3f 33 3d 32 0d 02 62 17 62 6c |.X.bl%?3=2..b.bl|
000005c0 25 21 31 36 3d 31 36 30 2a 74 73 25 3c 3c 73 7a |%!16=160*ts%<<sz|
000005d0 25 0d 02 6c 08 41 25 3d 30 0d 02 76 0b 42 25 3d |%..l.A%=0..v.B%=|
000005e0 62 66 31 25 0d 02 80 10 f2 62 75 66 28 36 30 2c |bf1%.....buf(60,|
000005f0 26 34 45 29 0d 02 8a 10 e3 20 69 25 3d 31 20 b8 |&4E)..... i%=1 .|
00000600 20 73 63 25 0d 02 94 12 20 20 f2 62 75 66 28 31 | sc%.... .buf(1|
00000610 32 2c 26 30 30 29 0d 02 9e 12 20 20 f2 62 75 66 |2,&00).... .buf|
00000620 28 20 33 2c 26 46 35 29 0d 02 a8 12 20 20 f2 62 |( 3,&F5).... .b|
00000630 75 66 28 20 31 2c 26 46 45 29 0d 02 b2 12 20 20 |uf( 1,&FE).... |
00000640 f2 62 75 66 28 20 32 2c 26 30 30 29 0d 02 bc 17 |.buf( 2,&00)....|
00000650 20 20 f2 62 75 66 28 20 31 2c 73 74 25 2b 69 25 | .buf( 1,st%+i%|
00000660 2d 31 29 0d 02 c6 14 20 20 f2 62 75 66 28 20 31 |-1).... .buf( 1|
00000670 2c 73 7a 25 2d 37 29 0d 02 d0 12 20 20 f2 62 75 |,sz%-7).... .bu|
00000680 66 28 20 31 2c 26 46 37 29 0d 02 da 12 20 20 f2 |f( 1,&F7).... .|
00000690 62 75 66 28 32 32 2c 26 34 45 29 0d 02 e4 12 20 |buf(22,&4E).... |
000006a0 20 f2 62 75 66 28 31 32 2c 26 30 30 29 0d 02 ee | .buf(12,&00)...|
000006b0 12 20 20 f2 62 75 66 28 20 33 2c 26 46 35 29 0d |. .buf( 3,&F5).|
000006c0 02 f8 12 20 20 f2 62 75 66 28 20 31 2c 26 46 42 |... .buf( 1,&FB|
000006d0 29 0d 03 02 15 20 20 f2 62 75 66 28 32 5e 73 7a |).... .buf(2^sz|
000006e0 25 2c 66 62 25 29 0d 03 0c 12 20 20 f2 62 75 66 |%,fb%).... .buf|
000006f0 28 20 31 2c 26 46 37 29 0d 03 16 12 20 20 f2 62 |( 1,&F7).... .b|
00000700 75 66 28 32 34 2c 26 34 45 29 0d 03 20 08 ed 20 |uf(24,&4E).. .. |
00000710 69 25 0d 03 2a 15 f2 62 75 66 28 37 31 36 38 2d |i%..*..buf(7168-|
00000720 41 25 2c 26 34 45 29 0d 03 34 08 41 25 3d 30 0d |A%,&4E)..4.A%=0.|
00000730 03 3e 0b 42 25 3d 62 66 32 25 0d 03 48 0c c8 8e |.>.B%=bf2%..H...|
00000740 20 63 68 25 20 ca 0d 03 52 0e 20 20 c9 20 31 2c | ch% ...R. . 1,|
00000750 35 2c 36 3a 0d 03 5c ba 20 20 20 20 e7 20 63 68 |5,6:..\. . ch|
00000760 25 3d 36 20 f1 20 22 54 68 69 73 20 66 6f 72 6d |%=6 . "This form|
00000770 61 74 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 |at should only b|
00000780 65 20 64 6f 6e 65 20 6f 6e 20 61 20 34 30 20 74 |e done on a 40 t|
00000790 72 61 63 6b 20 64 72 69 76 65 20 6f 72 20 61 22 |rack drive or a"|
000007a0 27 22 73 77 69 74 63 68 69 62 6c 65 20 34 30 2f |'"switchible 40/|
000007b0 38 30 20 74 72 61 63 6b 20 64 72 69 76 65 20 73 |80 track drive s|
000007c0 65 74 20 74 6f 20 34 30 20 74 72 61 63 6b 73 2e |et to 40 tracks.|
000007d0 20 4f 74 68 65 72 77 69 73 65 22 27 22 74 68 65 | Otherwise"'"the|
000007e0 20 64 69 73 63 20 6d 61 79 20 6e 6f 74 20 77 6f | disc may not wo|
000007f0 72 6b 20 6f 6e 20 61 20 74 72 75 65 20 34 30 20 |rk on a true 40 |
00000800 74 72 61 63 6b 20 64 72 69 76 65 2e 22 27 0d 03 |track drive."'..|
00000810 66 16 20 20 20 20 f2 62 75 66 28 31 37 39 32 2c |f. .buf(1792,|
00000820 26 30 30 29 0d 03 70 16 20 20 20 20 f2 62 75 66 |&00)..p. .buf|
00000830 28 32 33 30 34 2c 26 35 41 29 0d 03 7a 0b 20 20 |(2304,&5A)..z. |
00000840 20 20 f7 2b 30 0d 03 84 12 20 20 20 20 e3 20 69 | .+0.... . i|
00000850 25 3d 31 20 b8 20 36 0d 03 8e 11 20 20 20 20 20 |%=1 . 6.... |
00000860 20 f3 20 6f 25 2c 6e 25 0d 03 98 15 20 20 20 20 | . o%,n%.... |
00000870 20 20 e3 20 6a 25 3d 31 20 b8 20 6e 25 0d 03 a2 | . j%=1 . n%...|
00000880 10 20 20 20 20 20 20 20 20 f3 20 61 25 0d 03 ac |. . a%...|
00000890 16 20 20 20 20 20 20 20 20 62 66 32 25 3f 6f 25 |. bf2%?o%|
000008a0 3d 61 25 0d 03 b6 11 20 20 20 20 20 20 20 20 6f |=a%.... o|
000008b0 25 2b 3d 31 0d 03 c0 0e 20 20 20 20 20 20 ed 20 |%+=1.... . |
000008c0 6a 25 0d 03 ca 0c 20 20 20 20 ed 20 69 25 0d 03 |j%.... . i%..|
000008d0 d4 10 20 20 20 20 c8 8e 20 63 68 25 20 ca 0d 03 |.. .. ch% ...|
000008e0 de 0e 20 20 20 20 20 20 c9 20 31 3a 0d 03 e8 16 |.. . 1:....|
000008f0 20 20 20 20 20 20 20 20 62 66 32 25 3f 26 46 43 | bf2%?&FC|
00000900 3d 30 0d 03 f2 17 20 20 20 20 20 20 20 20 62 66 |=0.... bf|
00000910 32 25 3f 26 46 44 3d 26 41 0d 03 fc 19 20 20 20 |2%?&FD=&A.... |
00000920 20 20 20 20 20 62 66 32 25 3f 26 31 30 30 3d 26 | bf2%?&100=&|
00000930 46 39 0d 04 06 18 20 20 20 20 20 20 20 20 62 66 |F9.... bf|
00000940 32 25 3f 26 31 30 31 3d 26 39 0d 04 10 18 20 20 |2%?&101=&9.... |
00000950 20 20 20 20 20 20 62 66 32 25 3f 26 46 46 3d 26 | bf2%?&FF=&|
00000960 45 38 0d 04 1a 19 20 20 20 20 20 20 20 20 62 66 |E8.... bf|
00000970 32 25 3f 26 31 46 46 3d 26 37 42 0d 04 24 0e 20 |2%?&1FF=&7B..$. |
00000980 20 20 20 20 20 c9 20 35 3a 0d 04 2e 16 20 20 20 | . 5:.... |
00000990 20 20 20 20 20 62 66 32 25 3f 26 46 43 3d 30 0d | bf2%?&FC=0.|
000009a0 04 38 17 20 20 20 20 20 20 20 20 62 66 32 25 3f |.8. bf2%?|
000009b0 26 46 44 3d 26 35 0d 04 42 19 20 20 20 20 20 20 |&FD=&5..B. |
000009c0 20 20 62 66 32 25 3f 26 31 30 30 3d 26 46 39 0d | bf2%?&100=&F9.|
000009d0 04 4c 18 20 20 20 20 20 20 20 20 62 66 32 25 3f |.L. bf2%?|
000009e0 26 31 30 31 3d 26 34 0d 04 56 18 20 20 20 20 20 |&101=&4..V. |
000009f0 20 20 20 62 66 32 25 3f 26 46 46 3d 26 45 33 0d | bf2%?&FF=&E3.|
00000a00 04 60 19 20 20 20 20 20 20 20 20 62 66 32 25 3f |.`. bf2%?|
00000a10 26 31 46 46 3d 26 37 36 0d 04 6a 0e 20 20 20 20 |&1FF=&76..j. |
00000a20 20 20 c9 20 36 3a 0d 04 74 18 20 20 20 20 20 20 | . 6:..t. |
00000a30 20 20 62 66 32 25 3f 26 46 43 3d 26 38 30 0d 04 | bf2%?&FC=&80..|
00000a40 7e 16 20 20 20 20 20 20 20 20 62 66 32 25 3f 26 |~. bf2%?&|
00000a50 46 44 3d 32 0d 04 88 19 20 20 20 20 20 20 20 20 |FD=2.... |
00000a60 62 66 32 25 3f 26 31 30 30 3d 26 37 39 0d 04 92 |bf2%?&100=&79...|
00000a70 17 20 20 20 20 20 20 20 20 62 66 32 25 3f 26 31 |. bf2%?&1|
00000a80 30 31 3d 32 0d 04 9c 18 20 20 20 20 20 20 20 20 |01=2.... |
00000a90 62 66 32 25 3f 26 46 46 3d 26 36 31 0d 04 a6 19 |bf2%?&FF=&61....|
00000aa0 20 20 20 20 20 20 20 20 62 66 32 25 3f 26 31 46 | bf2%?&1F|
00000ab0 46 3d 26 46 34 0d 04 b0 09 20 20 20 20 cb 0d 04 |F=&F4.... ...|
00000ac0 ba 15 20 20 20 20 dc 20 26 30 30 30 2c 20 31 2c |.. . &000, 1,|
00000ad0 26 30 37 0d 04 c4 3d 20 20 20 20 dc 20 26 30 46 |&07...= . &0F|
00000ae0 37 2c 31 31 2c 26 32 31 2c 26 36 46 2c 26 36 44 |7,11,&21,&6F,&6D|
00000af0 2c 26 37 34 2c 26 36 35 2c 26 30 30 2c 26 30 41 |,&74,&65,&00,&0A|
00000b00 2c 26 30 30 2c 26 45 38 2c 26 46 39 2c 26 30 39 |,&00,&E8,&F9,&09|
00000b10 0d 04 ce 4d 20 20 20 20 dc 20 26 31 46 36 2c 31 |...M . &1F6,1|
00000b20 35 2c 26 34 36 2c 26 37 32 2c 26 36 31 2c 26 37 |5,&46,&72,&61,&7|
00000b30 34 2c 26 37 32 2c 26 34 39 2c 26 32 43 2c 26 30 |4,&72,&49,&2C,&0|
00000b40 30 2c 26 30 33 2c 26 37 42 2c 26 30 31 2c 26 34 |0,&03,&7B,&01,&4|
00000b50 38 2c 26 37 35 2c 26 36 37 2c 26 36 46 0d 04 d8 |8,&75,&67,&6F...|
00000b60 15 20 20 20 20 dc 20 26 36 43 43 2c 20 31 2c 26 |. . &6CC, 1,&|
00000b70 32 34 0d 04 e2 65 20 20 20 20 dc 20 26 36 44 36 |24...e . &6D6|
00000b80 2c 32 31 2c 26 30 32 2c 26 30 30 2c 26 30 30 2c |,21,&02,&00,&00,|
00000b90 26 32 38 2c 26 34 33 2c 26 32 39 2c 26 33 31 2c |&28,&43,&29,&31,|
00000ba0 26 33 39 2c 26 33 39 2c 26 33 30 2c 26 32 30 2c |&39,&39,&30,&20,|
00000bb0 26 34 34 2c 26 36 35 2c 26 37 32 2c 26 32 30 2c |&44,&65,&72,&20,|
00000bc0 26 34 38 2c 26 36 31 2c 26 36 45 2c 26 37 33 2c |&48,&61,&6E,&73,|
00000bd0 26 36 39 2c 26 36 35 0d 04 ec 29 20 20 20 20 dc |&69,&65...) .|
00000be0 20 26 36 46 41 2c 20 36 2c 26 30 31 2c 26 34 38 | &6FA, 6,&01,&48|
00000bf0 2c 26 37 35 2c 26 36 37 2c 26 36 46 2c 26 41 31 |,&75,&67,&6F,&A1|
00000c00 0d 04 f6 0a 20 20 c9 20 32 3a 0d 05 00 11 20 20 |.... . 2:.... |
00000c10 20 20 e7 20 66 6d 25 3d 30 20 8c 0d 05 0a 18 20 | . fm%=0 ..... |
00000c20 20 20 20 20 20 f2 62 75 66 28 33 30 37 32 2c 26 | .buf(3072,&|
00000c30 30 30 29 0d 05 14 18 20 20 20 20 20 20 f2 62 75 |00).... .bu|
00000c40 66 28 32 30 34 38 2c 26 35 41 29 0d 05 1e 0d 20 |f(2048,&5A).... |
00000c50 20 20 20 20 20 f7 2b 30 0d 05 28 14 20 20 20 20 | .+0..(. |
00000c60 20 20 e3 20 69 25 3d 31 20 b8 20 36 0d 05 32 13 | . i%=1 . 6..2.|
00000c70 20 20 20 20 20 20 20 20 f3 20 6f 25 2c 6e 25 0d | . o%,n%.|
00000c80 05 3c 17 20 20 20 20 20 20 20 20 e3 20 6a 25 3d |.<. . j%=|
00000c90 31 20 b8 20 6e 25 0d 05 46 12 20 20 20 20 20 20 |1 . n%..F. |
00000ca0 20 20 20 20 f3 20 61 25 0d 05 50 18 20 20 20 20 | . a%..P. |
00000cb0 20 20 20 20 20 20 62 66 32 25 3f 6f 25 3d 61 25 | bf2%?o%=a%|
00000cc0 0d 05 5a 13 20 20 20 20 20 20 20 20 20 20 6f 25 |..Z. o%|
00000cd0 2b 3d 31 0d 05 64 10 20 20 20 20 20 20 20 20 ed |+=1..d. .|
00000ce0 20 6a 25 0d 05 6e 0e 20 20 20 20 20 20 ed 20 69 | j%..n. . i|
00000cf0 25 0d 05 78 17 20 20 20 20 20 20 dc 20 26 30 30 |%..x. . &00|
00000d00 30 2c 20 31 2c 26 30 63 0d 05 82 3f 20 20 20 20 |0, 1,&0c...? |
00000d10 20 20 dc 20 26 30 46 37 2c 31 31 2c 26 32 31 2c | . &0F7,11,&21,|
00000d20 26 36 46 2c 26 36 44 2c 26 37 34 2c 26 36 35 2c |&6F,&6D,&74,&65,|
00000d30 26 38 30 2c 26 30 43 2c 26 30 30 2c 26 37 30 2c |&80,&0C,&00,&70,|
00000d40 26 37 34 2c 26 30 43 0d 05 8c 3b 20 20 20 20 20 |&74,&0C...; |
00000d50 20 dc 20 26 31 46 36 2c 31 30 2c 26 34 36 2c 26 | . &1F6,10,&46,&|
00000d60 37 32 2c 26 36 31 2c 26 37 34 2c 26 37 32 2c 26 |72,&61,&74,&72,&|
00000d70 33 38 2c 26 46 45 2c 26 30 30 2c 26 30 33 2c 26 |38,&FE,&00,&03,&|
00000d80 42 42 0d 05 96 27 20 20 20 20 20 20 dc 20 26 34 |BB...' . &4|
00000d90 30 30 2c 20 35 2c 26 30 31 2c 26 34 38 2c 26 37 |00, 5,&01,&48,&7|
00000da0 35 2c 26 36 37 2c 26 36 46 0d 05 a0 6f 20 20 20 |5,&67,&6F...o |
00000db0 20 20 20 dc 20 26 42 44 41 2c 32 33 2c 26 30 34 | . &BDA,23,&04|
00000dc0 2c 26 30 30 2c 26 30 30 2c 26 32 38 2c 26 34 33 |,&00,&00,&28,&43|
00000dd0 2c 26 32 39 2c 26 33 31 2c 26 33 39 2c 26 33 39 |,&29,&31,&39,&39|
00000de0 2c 26 33 30 2c 26 32 30 2c 26 34 34 2c 26 36 35 |,&30,&20,&44,&65|
00000df0 2c 26 37 32 2c 26 32 30 2c 26 34 38 2c 26 36 31 |,&72,&20,&48,&61|
00000e00 2c 26 36 45 2c 26 37 33 2c 26 36 39 2c 26 36 35 |,&6E,&73,&69,&65|
00000e10 2c 26 30 30 2c 26 32 34 0d 05 aa 2b 20 20 20 20 |,&00,&24...+ |
00000e20 20 20 dc 20 26 42 46 41 2c 20 36 2c 26 30 31 2c | . &BFA, 6,&01,|
00000e30 26 34 38 2c 26 37 35 2c 26 36 37 2c 26 36 46 2c |&48,&75,&67,&6F,|
00000e40 26 39 34 0d 05 b4 09 20 20 20 20 cc 0d 05 be 18 |&94.... .....|
00000e50 20 20 20 20 20 20 f2 62 75 66 28 34 30 39 36 2c | .buf(4096,|
00000e60 26 30 30 29 0d 05 c8 18 20 20 20 20 20 20 f2 62 |&00).... .b|
00000e70 75 66 28 31 30 32 34 2c 26 35 41 29 0d 05 d2 0d |uf(1024,&5A)....|
00000e80 20 20 20 20 20 20 f7 2b 30 0d 05 dc 15 20 20 20 | .+0.... |
00000e90 20 20 20 e3 20 69 25 3d 31 20 b8 20 31 31 0d 05 | . i%=1 . 11..|
00000ea0 e6 13 20 20 20 20 20 20 20 20 f3 20 6f 25 2c 6e |.. . o%,n|
00000eb0 25 0d 05 f0 17 20 20 20 20 20 20 20 20 e3 20 6a |%.... . j|
00000ec0 25 3d 31 20 b8 20 6e 25 0d 05 fa 12 20 20 20 20 |%=1 . n%.... |
00000ed0 20 20 20 20 20 20 f3 20 61 25 0d 06 04 18 20 20 | . a%.... |
00000ee0 20 20 20 20 20 20 20 20 62 66 32 25 3f 6f 25 3d | bf2%?o%=|
00000ef0 61 25 0d 06 0e 13 20 20 20 20 20 20 20 20 20 20 |a%.... |
00000f00 6f 25 2b 3d 31 0d 06 18 10 20 20 20 20 20 20 20 |o%+=1.... |
00000f10 20 ed 20 6a 25 0d 06 22 0e 20 20 20 20 20 20 ed | . j%..". .|
00000f20 20 69 25 0d 06 2c 5b 20 20 20 20 20 20 dc 20 26 | i%..,[ . &|
00000f30 30 30 30 2c 31 38 2c 26 35 39 2c 26 31 38 2c 26 |000,18,&59,&18,&|
00000f40 38 32 2c 26 46 46 2c 26 30 41 2c 26 30 35 2c 26 |82,&FF,&0A,&05,&|
00000f50 30 32 2c 26 30 32 2c 26 30 46 2c 26 30 37 2c 26 |02,&02,&0F,&07,&|
00000f60 30 31 2c 26 30 30 2c 26 30 30 2c 26 30 31 2c 26 |01,&00,&00,&01,&|
00000f70 32 30 2c 26 30 35 2c 26 30 33 2c 26 30 32 0d 06 |20,&05,&03,&02..|
00000f80 36 4f 20 20 20 20 20 20 dc 20 26 30 31 35 2c 31 |6O . &015,1|
00000f90 35 2c 26 38 30 2c 26 30 43 2c 26 30 30 2c 26 31 |5,&80,&0C,&00,&1|
00000fa0 41 2c 26 42 33 2c 26 32 31 2c 26 34 36 2c 26 36 |A,&B3,&21,&46,&6|
00000fb0 46 2c 26 37 32 2c 26 36 44 2c 26 36 31 2c 26 37 |F,&72,&6D,&61,&7|
00000fc0 34 2c 26 37 34 2c 26 36 35 2c 26 37 32 0d 06 40 |4,&74,&65,&72..@|
00000fd0 23 20 20 20 20 20 20 dc 20 26 30 34 30 2c 20 34 |# . &040, 4|
00000fe0 2c 26 30 32 2c 26 30 30 2c 26 30 30 2c 26 38 30 |,&02,&00,&00,&80|
00000ff0 0d 06 4a 1b 20 20 20 20 20 20 dc 20 26 33 35 46 |..J. . &35F|
00001000 2c 20 32 2c 26 38 30 2c 26 30 31 0d 06 54 5f 20 |, 2,&80,&01..T_ |
00001010 20 20 20 20 20 dc 20 26 33 46 46 2c 31 39 2c 26 | . &3FF,19,&|
00001020 38 30 2c 26 35 39 2c 26 31 38 2c 26 38 32 2c 26 |80,&59,&18,&82,&|
00001030 46 46 2c 26 30 41 2c 26 30 35 2c 26 30 32 2c 26 |FF,&0A,&05,&02,&|
00001040 30 32 2c 26 30 46 2c 26 30 37 2c 26 30 31 2c 26 |02,&0F,&07,&01,&|
00001050 30 30 2c 26 30 30 2c 26 30 31 2c 26 32 30 2c 26 |00,&00,&01,&20,&|
00001060 30 35 2c 26 30 33 2c 26 30 32 0d 06 5e 4f 20 20 |05,&03,&02..^O |
00001070 20 20 20 20 dc 20 26 34 31 35 2c 31 35 2c 26 38 | . &415,15,&8|
00001080 30 2c 26 30 43 2c 26 30 30 2c 26 31 41 2c 26 42 |0,&0C,&00,&1A,&B|
00001090 33 2c 26 32 31 2c 26 34 36 2c 26 36 46 2c 26 37 |3,&21,&46,&6F,&7|
000010a0 32 2c 26 36 44 2c 26 36 31 2c 26 37 34 2c 26 37 |2,&6D,&61,&74,&7|
000010b0 34 2c 26 36 35 2c 26 37 32 0d 06 68 23 20 20 20 |4,&65,&72..h# |
000010c0 20 20 20 dc 20 26 34 34 30 2c 20 34 2c 26 30 32 | . &440, 4,&02|
000010d0 2c 26 30 30 2c 26 30 30 2c 26 38 30 0d 06 72 1b |,&00,&00,&80..r.|
000010e0 20 20 20 20 20 20 dc 20 26 37 35 46 2c 20 32 2c | . &75F, 2,|
000010f0 26 38 30 2c 26 30 31 0d 06 7c 2b 20 20 20 20 20 |&80,&01..|+ |
00001100 20 dc 20 26 37 46 46 2c 20 36 2c 26 38 30 2c 26 | . &7FF, 6,&80,&|
00001110 30 31 2c 26 34 45 2c 26 36 39 2c 26 36 33 2c 26 |01,&4E,&69,&63,&|
00001120 36 42 0d 06 86 6f 20 20 20 20 20 20 dc 20 26 46 |6B...o . &F|
00001130 44 41 2c 32 33 2c 26 30 33 2c 26 30 32 2c 26 30 |DA,23,&03,&02,&0|
00001140 30 2c 26 32 38 2c 26 34 33 2c 26 32 39 2c 26 33 |0,&28,&43,&29,&3|
00001150 31 2c 26 33 39 2c 26 33 39 2c 26 33 30 2c 26 32 |1,&39,&39,&30,&2|
00001160 30 2c 26 34 34 2c 26 36 35 2c 26 37 32 2c 26 32 |0,&44,&65,&72,&2|
00001170 30 2c 26 34 38 2c 26 36 31 2c 26 36 45 2c 26 37 |0,&48,&61,&6E,&7|
00001180 33 2c 26 36 39 2c 26 36 35 2c 26 30 30 2c 26 32 |3,&69,&65,&00,&2|
00001190 34 0d 06 90 2b 20 20 20 20 20 20 dc 20 26 46 46 |4...+ . &FF|
000011a0 41 2c 20 36 2c 26 30 31 2c 26 34 45 2c 26 36 39 |A, 6,&01,&4E,&69|
000011b0 2c 26 36 33 2c 26 36 42 2c 26 33 30 0d 06 9a 09 |,&63,&6B,&30....|
000011c0 20 20 20 20 cd 0d 06 a4 0a 20 20 c9 20 33 3a 0d | ..... . 3:.|
000011d0 06 ae 2f 20 20 20 20 ff 20 22 4c 6f 61 64 20 3c |../ . "Load <|
000011e0 46 6f 72 6d 61 74 74 65 72 24 44 69 72 3e 2e 44 |Formatter$Dir>.D|
000011f0 4f 53 33 33 30 20 22 2b c3 7e 62 66 32 25 0d 06 |OS330 "+.~bf2%..|
00001200 b8 0e 20 20 20 20 41 25 3d 35 31 32 0d 06 c2 15 |.. A%=512....|
00001210 20 20 20 20 f2 62 75 66 28 20 20 31 2c 26 46 39 | .buf( 1,&F9|
00001220 29 0d 06 cc 15 20 20 20 20 f2 62 75 66 28 20 20 |).... .buf( |
00001230 32 2c 26 46 46 29 0d 06 d6 15 20 20 20 20 f2 62 |2,&FF).... .b|
00001240 75 66 28 35 30 39 2c 26 30 30 29 0d 06 e0 15 20 |uf(509,&00).... |
00001250 20 20 20 f2 62 75 66 28 35 31 32 2c 26 30 30 29 | .buf(512,&00)|
00001260 0d 06 ea 15 20 20 20 20 f2 62 75 66 28 35 31 32 |.... .buf(512|
00001270 2c 26 30 30 29 0d 06 f4 15 20 20 20 20 f2 62 75 |,&00).... .bu|
00001280 66 28 20 20 31 2c 26 46 39 29 0d 06 fe 15 20 20 |f( 1,&F9).... |
00001290 20 20 f2 62 75 66 28 20 20 32 2c 26 46 46 29 0d | .buf( 2,&FF).|
000012a0 07 08 15 20 20 20 20 f2 62 75 66 28 35 30 39 2c |... .buf(509,|
000012b0 26 30 30 29 0d 07 12 15 20 20 20 20 f2 62 75 66 |&00).... .buf|
000012c0 28 35 31 32 2c 26 30 30 29 0d 07 1c 15 20 20 20 |(512,&00).... |
000012d0 20 f2 62 75 66 28 35 31 32 2c 26 30 30 29 0d 07 | .buf(512,&00)..|
000012e0 26 15 20 20 20 20 f2 62 75 66 28 35 31 32 2c 26 |&. .buf(512,&|
000012f0 30 30 29 0d 07 30 15 20 20 20 20 f2 62 75 66 28 |00)..0. .buf(|
00001300 35 31 32 2c 26 30 30 29 0d 07 3a 0a 20 20 c9 20 |512,&00)..:. . |
00001310 34 3a 0d 07 44 16 20 20 20 20 f2 62 75 66 28 31 |4:..D. .buf(1|
00001320 35 39 30 2c 26 30 30 29 0d 07 4e 16 20 20 20 20 |590,&00)..N. |
00001330 f2 62 75 66 28 20 20 20 31 2c 26 46 46 29 0d 07 |.buf( 1,&FF)..|
00001340 58 16 20 20 20 20 f2 62 75 66 28 33 30 30 32 2c |X. .buf(3002,|
00001350 26 30 30 29 0d 07 62 16 20 20 20 20 f2 62 75 66 |&00)..b. .buf|
00001360 28 20 20 20 31 2c 26 46 44 29 0d 07 6c 16 20 20 |( 1,&FD)..l. |
00001370 20 20 f2 62 75 66 28 20 20 31 34 2c 26 33 46 29 | .buf( 14,&3F)|
00001380 0d 07 76 12 20 20 20 20 e3 20 69 3d 31 20 b8 20 |..v. . i=1 . |
00001390 33 32 0d 07 80 16 20 20 20 20 20 20 f2 62 75 66 |32.... .buf|
000013a0 28 20 31 2c 26 46 46 29 0d 07 8a 16 20 20 20 20 |( 1,&FF).... |
000013b0 20 20 f2 62 75 66 28 31 35 2c 26 30 30 29 0d 07 | .buf(15,&00)..|
000013c0 94 0b 20 20 20 20 ed 20 69 0d 07 9e 05 cb 0d 07 |.. . i.......|
000013d0 a8 05 f5 0d 07 b2 3b 20 20 f1 20 22 49 6e 73 65 |......; . "Inse|
000013e0 72 74 20 62 6c 61 6e 6b 20 64 69 73 6b 20 69 6e |rt blank disk in|
000013f0 20 64 72 69 76 65 20 3a 30 20 61 6e 64 20 70 72 | drive :0 and pr|
00001400 65 73 73 20 3c 52 65 74 75 72 6e 3e 22 3b 0d 07 |ess <Return>";..|
00001410 bc 0e 20 20 f5 20 fd 20 a5 3d 31 33 0d 07 c6 0c |.. . . .=13....|
00001420 20 20 65 72 31 25 3d 30 0d 07 d0 0c 20 20 65 72 | er1%=0.... er|
00001430 32 25 3d 30 0d 07 da 17 20 20 f1 20 27 27 22 46 |2%=0.... . ''"F|
00001440 6f 72 6d 61 74 74 69 6e 67 22 3b 0d 07 e4 21 20 |ormatting";...! |
00001450 20 e7 20 76 66 25 20 8c 20 f1 20 22 20 61 6e 64 | . vf% . . " and|
00001460 20 76 65 72 69 66 79 69 6e 67 22 3b 0d 07 ee 1a | verifying";....|
00001470 20 20 f1 20 22 20 64 69 73 6b 20 61 73 20 22 6e | . " disk as "n|
00001480 6d 24 22 2e 22 27 0d 07 f8 1b 20 20 73 69 25 3d |m$"."'.... si%=|
00001490 31 2b 28 63 68 25 3d 35 20 84 20 63 68 25 3d 36 |1+(ch%=5 . ch%=6|
000014a0 29 0d 08 02 1e 20 20 e3 20 74 25 3d 30 20 b8 20 |).... . t%=0 . |
000014b0 37 39 2b 28 34 30 2a 28 63 68 25 3d 36 29 29 0d |79+(40*(ch%=6)).|
000014c0 08 0c 14 20 20 20 20 e3 20 73 25 3d 30 20 b8 20 |... . s%=0 . |
000014d0 73 69 25 0d 08 16 18 20 20 20 20 20 20 e3 20 69 |si%.... . i|
000014e0 25 3d 30 20 b8 20 73 63 25 2d 31 0d 08 20 29 20 |%=0 . sc%-1.. ) |
000014f0 20 20 20 20 20 20 20 62 66 31 25 3f 28 36 30 2b | bf1%?(60+|
00001500 28 32 5e 73 7a 25 2b 38 34 29 2a 69 25 2b 31 36 |(2^sz%+84)*i%+16|
00001510 29 3d 74 25 0d 08 2a 29 20 20 20 20 20 20 20 20 |)=t%..*) |
00001520 62 66 31 25 3f 28 36 30 2b 28 32 5e 73 7a 25 2b |bf1%?(60+(2^sz%+|
00001530 38 34 29 2a 69 25 2b 31 37 29 3d 73 25 0d 08 34 |84)*i%+17)=s%..4|
00001540 0e 20 20 20 20 20 20 ed 20 69 25 0d 08 3e 33 20 |. . i%..>3 |
00001550 20 20 20 20 20 f1 20 bd 31 33 22 46 6f 72 6d 61 | . .13"Forma|
00001560 74 74 69 6e 67 20 74 72 61 63 6b 20 22 3b 74 25 |tting track ";t%|
00001570 3b 22 2c 20 73 69 64 65 20 22 3b 73 25 3b 0d 08 |;", side ";s%;..|
00001580 48 44 20 20 20 20 20 20 c8 99 20 22 58 41 44 46 |HD .. "XADF|
00001590 53 5f 44 69 73 63 4f 70 22 2c 2c 28 62 6c 25 3c |S_DiscOp",,(bl%<|
000015a0 3c 36 29 2b 26 34 34 2c 28 32 2a 74 25 2b 73 25 |<6)+&44,(2*t%+s%|
000015b0 29 2a 74 73 25 2c 62 66 31 25 20 b8 20 3b 65 72 |)*ts%,bf1% . ;er|
000015c0 31 25 0d 08 52 17 20 20 20 20 20 20 65 72 31 25 |1%..R. er1%|
000015d0 3d 65 72 31 25 20 80 20 31 0d 08 5c 11 20 20 20 |=er1% . 1..\. |
000015e0 20 20 20 e7 20 76 66 25 20 8c 0d 08 66 28 20 20 | . vf% ...f( |
000015f0 20 20 20 20 20 20 61 64 25 3d 28 32 2a 74 25 2b | ad%=(2*t%+|
00001600 73 25 29 2a 74 73 25 2b 28 73 74 25 3c 3c 73 7a |s%)*ts%+(st%<<sz|
00001610 25 29 0d 08 70 45 20 20 20 20 20 20 20 20 c8 99 |%)..pE ..|
00001620 20 22 58 41 44 46 53 5f 44 69 73 63 4f 70 22 2c | "XADFS_DiscOp",|
00001630 2c 28 62 6c 25 3c 3c 36 29 2b 26 34 31 2c 61 64 |,(bl%<<6)+&41,ad|
00001640 25 2c 62 66 33 25 2c 73 63 25 3c 3c 73 7a 25 20 |%,bf3%,sc%<<sz% |
00001650 b8 20 3b 65 72 32 25 0d 08 7a 19 20 20 20 20 20 |. ;er2%..z. |
00001660 20 20 20 65 72 32 25 3d 65 72 32 25 20 80 20 31 | er2%=er2% . 1|
00001670 0d 08 84 0b 20 20 20 20 20 20 cd 0d 08 8e 17 20 |.... ..... |
00001680 20 20 20 20 20 65 72 25 3d 65 72 31 25 2b 65 72 | er%=er1%+er|
00001690 32 25 0d 08 98 11 20 20 20 20 20 20 e7 20 65 72 |2%.... . er|
000016a0 25 20 8c 0d 08 a2 2d 20 20 20 20 20 20 20 20 f1 |% ....- .|
000016b0 20 27 27 22 45 72 72 6f 72 20 6f 6e 20 66 6f 72 | ''"Error on for|
000016c0 6d 61 74 20 2d 20 61 62 6f 72 74 65 64 2e 22 27 |mat - aborted."'|
000016d0 0d 08 ac 10 20 20 20 20 20 20 20 20 73 25 3d 31 |.... s%=1|
000016e0 0d 08 b6 11 20 20 20 20 20 20 20 20 74 25 3d 37 |.... t%=7|
000016f0 39 0d 08 c0 0b 20 20 20 20 20 20 cd 0d 08 ca 0c |9.... .....|
00001700 20 20 20 20 ed 20 73 25 0d 08 d4 0a 20 20 ed 20 | . s%.... . |
00001710 74 25 0d 08 de 0f 20 20 e7 20 65 72 25 3d 30 20 |t%.... . er%=0 |
00001720 8c 0d 08 e8 10 20 20 20 20 c8 8e 20 63 68 25 20 |..... .. ch% |
00001730 ca 0d 08 f2 14 20 20 20 20 20 20 c9 20 31 2c 32 |..... . 1,2|
00001740 2c 33 3a 20 f1 0d 08 fc 0e 20 20 20 20 20 20 c9 |,3: ..... .|
00001750 20 34 3a 0d 09 06 25 20 20 20 20 20 20 20 20 e8 | 4:...% .|
00001760 20 27 27 22 45 6e 74 65 72 20 64 69 73 6b 20 6e | ''"Enter disk n|
00001770 61 6d 65 3a 20 22 64 24 0d 09 10 21 20 20 20 20 |ame: "d$...! |
00001780 20 20 20 20 e7 20 64 24 3d 22 22 20 8c 20 64 24 | . d$="" . d$|
00001790 3d c4 31 34 2c 22 3f 22 29 0d 09 1a 18 20 20 20 |=.14,"?").... |
000017a0 20 20 20 20 20 64 24 2b 3d c4 31 34 2c 22 20 22 | d$+=.14," "|
000017b0 29 0d 09 24 17 20 20 20 20 20 20 20 20 e3 20 69 |)..$. . i|
000017c0 25 3d 31 20 b8 20 31 34 0d 09 2e 27 20 20 20 20 |%=1 . 14...' |
000017d0 20 20 20 20 20 20 62 66 32 25 3f 28 34 35 39 33 | bf2%?(4593|
000017e0 2b 69 25 29 3d 97 28 c1 64 24 2c 69 25 29 29 0d |+i%)=.(.d$,i%)).|
000017f0 09 38 10 20 20 20 20 20 20 20 20 ed 20 69 25 0d |.8. . i%.|
00001800 09 42 09 20 20 20 20 cb 0d 09 4c 43 20 20 20 20 |.B. ...LC |
00001810 c8 99 20 22 58 41 44 46 53 5f 44 69 73 63 4f 70 |.. "XADFS_DiscOp|
00001820 22 2c 2c 28 62 6c 25 3c 3c 36 29 2b 32 2c 73 74 |",,(bl%<<6)+2,st|
00001830 25 3c 3c 73 7a 25 2c 62 66 32 25 2c 73 63 25 3c |%<<sz%,bf2%,sc%<|
00001840 3c 73 7a 25 20 b8 20 3b 65 72 25 0d 09 56 13 20 |<sz% . ;er%..V. |
00001850 20 20 20 65 72 25 3d 65 72 25 20 80 20 31 0d 09 | er%=er% . 1..|
00001860 60 0f 20 20 20 20 e7 20 65 72 25 20 8c 0d 09 6a |`. . er% ...j|
00001870 40 20 20 20 20 20 20 f1 20 27 22 45 72 72 6f 72 |@ . '"Error|
00001880 20 6f 6e 20 77 72 69 74 69 6e 67 20 64 69 72 65 | on writing dire|
00001890 63 74 6f 72 79 20 2d 20 66 6f 72 6d 61 74 20 75 |ctory - format u|
000018a0 6e 73 75 63 63 65 73 66 75 6c 2e 22 27 0d 09 74 |nsuccesful."'..t|
000018b0 09 20 20 20 20 cc 0d 09 7e 1b 20 20 20 20 20 20 |. ...~. |
000018c0 e7 20 63 68 25 3d 35 20 84 20 63 68 25 3d 36 20 |. ch%=5 . ch%=6 |
000018d0 8c 0d 09 88 2c 20 20 20 20 20 20 20 20 f1 20 27 |...., . '|
000018e0 27 22 5a 59 53 79 73 48 65 6c 70 20 66 69 6c 65 |'"ZYSysHelp file|
000018f0 20 72 65 71 75 69 72 65 64 3f 20 22 3b 0d 09 92 | required? ";...|
00001900 16 20 20 20 20 20 20 20 20 61 25 3d a5 20 80 20 |. a%=. . |
00001910 26 44 46 0d 09 9c 11 20 20 20 20 20 20 20 20 f1 |&DF.... .|
00001920 20 bd 61 25 0d 09 a6 0b 20 20 20 20 20 20 cd 0d | .a%.... ..|
00001930 09 b0 22 20 20 20 20 20 e7 20 63 68 25 3c 33 20 |.." . ch%<3 |
00001940 84 20 63 68 25 3d 35 20 84 20 63 68 25 3d 36 20 |. ch%=5 . ch%=6 |
00001950 8c 0d 09 ba 14 20 20 20 20 20 20 20 20 ff 20 22 |..... . "|
00001960 41 64 66 73 22 0d 09 c4 18 20 20 20 20 20 20 20 |Adfs".... |
00001970 20 ff 20 22 4d 6f 75 6e 74 20 3a 30 22 0d 09 ce | . "Mount :0"...|
00001980 3f 20 20 20 20 20 20 20 20 ff 20 22 4e 61 6d 65 |? . "Name|
00001990 44 69 73 6b 20 3a 30 20 22 2b c1 91 24 2c 31 37 |Disk :0 "+..$,17|
000019a0 2c 32 29 2b 22 5f 22 2b c1 91 24 2c 32 30 2c 32 |,2)+"_"+..$,20,2|
000019b0 29 2b 22 5f 22 2b c0 91 24 2c 33 29 0d 09 d8 4e |)+"_"+..$,3)...N|
000019c0 20 20 20 20 20 20 20 20 e7 20 61 25 3d 38 39 20 | . a%=89 |
000019d0 ff 20 22 43 72 65 61 74 65 20 3a 30 2e 24 2e 5a |. "Create :0.$.Z|
000019e0 59 53 79 73 48 65 6c 70 20 33 46 38 30 22 3a ff |YSysHelp 3F80":.|
000019f0 20 22 41 63 63 65 73 73 20 3a 30 2e 24 2e 5a 59 | "Access :0.$.ZY|
00001a00 53 79 73 48 65 6c 70 20 4c 22 0d 09 e2 1b 20 20 |SysHelp L".... |
00001a10 20 20 20 20 20 20 ff 20 22 44 69 73 6d 6f 75 6e | . "Dismoun|
00001a20 74 20 3a 30 22 0d 09 ec 0b 20 20 20 20 20 20 cd |t :0".... .|
00001a30 0d 09 f6 20 20 20 20 20 20 20 f1 20 27 22 46 6f |... . '"Fo|
00001a40 72 6d 61 74 20 63 6f 6d 70 6c 65 74 65 2e 22 27 |rmat complete."'|
00001a50 0d 0a 00 09 20 20 20 20 cd 0d 0a 0a 07 20 20 cd |.... ..... .|
00001a60 0d 0a 14 20 20 20 f1 20 22 46 6f 72 6d 61 74 20 |... . "Format |
00001a70 61 6e 6f 74 68 65 72 20 64 69 73 6b 3f 20 22 3b |another disk? ";|
00001a80 0d 0a 1e 10 20 20 61 25 3d a5 20 80 20 26 44 46 |.... a%=. . &DF|
00001a90 0d 0a 28 0d 20 20 f1 20 bd 61 25 27 27 0d 0a 32 |..(. . .a%''..2|
00001aa0 0c fd 20 61 25 3c 3e 38 39 0d 0a 3c 05 e0 0d 0a |.. a%<>89..<....|
00001ab0 46 04 0d 0a 50 08 dd 20 f2 61 0d 0a 5a 0b de 20 |F...P.. .a..Z.. |
00001ac0 50 25 20 33 31 0d 0a 64 0a 5b 4f 50 54 20 32 0d |P% 31..d.[OPT 2.|
00001ad0 0a 6e 17 2e 54 72 61 63 6b 42 75 66 20 45 51 55 |.n..TrackBuf EQU|
00001ae0 44 20 62 66 31 25 0d 0a 78 0c 2e 46 69 6c 6c 42 |D bf1%..x..FillB|
00001af0 75 66 0d 0a 82 16 20 53 54 52 42 20 20 20 52 33 |uf.... STRB R3|
00001b00 2c 5b 52 31 2c 52 30 5d 0d 0a 8c 14 20 41 44 44 |,[R1,R0].... ADD|
00001b10 20 20 20 20 52 30 2c 52 30 2c 23 31 0d 0a 96 14 | R0,R0,#1....|
00001b20 20 53 55 42 53 20 20 20 52 32 2c 52 32 2c 23 31 | SUBS R2,R2,#1|
00001b30 0d 0a a0 13 20 42 4e 45 20 20 20 20 46 69 6c 6c |.... BNE Fill|
00001b40 42 75 66 0d 0a aa 13 20 4d 4f 56 20 20 20 20 52 |Buf.... MOV R|
00001b50 31 35 2c 52 31 34 0d 0a b4 05 5d 0d 0a be 05 e1 |15,R14....].....|
00001b60 0d 0a c8 04 0d 0a d2 11 dd 20 f2 62 75 66 28 43 |......... .buf(C|
00001b70 25 2c 44 25 29 0d 0a dc 11 41 25 3d ba 28 46 69 |%,D%)....A%=.(Fi|
00001b80 6c 6c 42 75 66 29 0d 0a e6 05 e1 0d 0a f0 04 0d |llBuf)..........|
00001b90 0a fa 0c dd 20 f2 63 28 61 24 29 0d 0b 04 15 f1 |.... .c(a$).....|
00001ba0 20 89 28 28 35 39 2d a9 61 24 29 2f 32 29 61 24 | .((59-.a$)/2)a$|
00001bb0 0d 0b 0e 05 e1 0d ff |.......|
00001bb7 
P/F/!RunImage.m0
P/F/!RunImage.m1
P/F/!RunImage.m2
P/F/!RunImage.m4
P/F/!RunImage.m5
.