/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / basicutls / !BasicUtls / BASICUtils / PC_Format

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 f4 20 3e 3a | 34 2e 73 68 61 72 65 64 |... . >:|4.shared|
|00000010| 2e 21 72 75 62 62 69 73 | 68 2e 46 6f 72 6d 61 74 |.!rubbis|h.Format|
|00000020| 0d 00 14 04 0d 00 1e 09 | f2 69 6e 69 74 0d 00 28 |........|.init..(|
|00000030| 14 ee 20 85 20 f2 65 72 | 72 6f 72 28 9f 2c f6 24 |.. . .er|ror(.,.$|
|00000040| 29 0d 00 32 0d 66 6f 72 | 6d 61 74 25 3d 33 0d 00 |)..2.for|mat%=3..|
|00000050| 3c 11 67 61 70 5f 62 79 | 74 65 25 3d 26 34 45 0d |<.gap_by|te%=&4E.|
|00000060| 00 46 12 66 69 6c 6c 5f | 62 79 74 65 25 3d 26 35 |.F.fill_|byte%=&5|
|00000070| 41 0d 00 50 11 de 20 62 | 75 66 66 25 20 31 30 32 |A..P.. b|uff% 102|
|00000080| 34 30 0d 00 5a 0b f2 66 | 6f 72 6d 61 74 0d 00 64 |40..Z..f|ormat..d|
|00000090| 05 f5 0d 00 6e 09 f2 6e | 75 6c 6c 0d 00 78 1e fd |....n..n|ull..x..|
|000000a0| 20 28 73 74 61 74 65 25 | 20 80 20 66 6f 72 6d 61 | (state%| . forma|
|000000b0| 74 74 69 6e 67 25 29 3d | 30 0d 00 82 0c f2 72 6f |tting%)=|0.....ro|
|000000c0| 6f 74 64 69 72 0d 00 8c | 05 e0 0d 00 96 05 3a 0d |otdir...|......:.|
|000000d0| 00 a0 0c dd 20 f2 61 62 | 6f 72 74 0d 00 aa 0c f2 |.... .ab|ort.....|
|000000e0| 74 69 64 79 5f 75 70 0d | 00 b4 16 f2 72 65 70 6f |tidy_up.|....repo|
|000000f0| 72 74 28 22 41 62 6f 72 | 74 65 64 22 29 0d 00 be |rt("Abor|ted")...|
|00000100| 05 e1 0d 00 c8 05 3a 0d | 00 d2 11 dd 20 a4 63 68 |......:.|.... .ch|
|00000110| 65 63 6b 5f 64 69 73 63 | 0d 00 dc 08 20 3d 20 31 |eck_disc|.... = 1|
|00000120| 0d 00 e6 05 cd 0d 00 f0 | 05 3a 0d 00 fa 1d dd 20 |........|.:..... |
|00000130| a4 64 69 73 63 5f 61 64 | 64 28 74 72 61 63 6b 25 |.disc_ad|d(track%|
|00000140| 2c 73 69 64 65 25 29 0d | 01 04 10 e7 20 68 65 61 |,side%).|.... hea|
|00000150| 64 73 25 3d 31 20 8c 0d | 01 0e 29 20 3d 20 28 74 |ds%=1 ..|..) = (t|
|00000160| 72 61 63 6b 25 2b 73 69 | 64 65 25 2a 74 72 61 63 |rack%+si|de%*trac|
|00000170| 6b 73 25 29 2a 74 72 61 | 63 6b 5f 73 69 7a 65 25 |ks%)*tra|ck_size%|
|00000180| 0d 01 18 05 cc 0d 01 22 | 23 20 3d 20 28 74 72 61 |......."|# = (tra|
|00000190| 63 6b 25 2a 32 2b 73 69 | 64 65 25 29 2a 74 72 61 |ck%*2+si|de%)*tra|
|000001a0| 63 6b 5f 73 69 7a 65 25 | 0d 01 2c 05 cd 0d 01 36 |ck_size%|..,....6|
|000001b0| 05 3a 0d 01 40 14 dd 20 | f2 6d 6f 61 6e 28 72 65 |.:..@.. |.moan(re|
|000001c0| 70 6f 72 74 24 29 0d 01 | 4a 14 85 20 26 32 30 30 |port$)..|J.. &200|
|000001d0| 30 30 2c 72 65 70 6f 72 | 74 24 0d 01 54 05 3a 0d |00,repor|t$..T.:.|
|000001e0| 01 5e 0d dd f2 72 6f 6f | 74 64 69 72 0d 01 68 44 |.^...roo|tdir..hD|
|000001f0| ff 20 22 4c 4f 41 44 20 | 3a 34 2e 73 68 61 72 65 |. "LOAD |:4.share|
|00000200| 64 2e 61 70 70 73 2e 64 | 6f 73 66 6f 72 6d 2e 21 |d.apps.d|osform.!|
|00000210| 64 6f 73 66 6f 72 6d 2e | 64 6f 73 5f 73 79 73 74 |dosform.|dos_syst|
|00000220| 65 6d 2e 69 70 6c 20 22 | 2b c3 7e 62 75 66 66 25 |em.ipl "|+.~buff%|
|00000230| 0d 01 72 18 f2 6f 70 28 | 32 2c 35 31 32 2c 62 75 |..r..op(|2,512,bu|
|00000240| 66 66 25 2c 35 31 32 29 | 0d 01 73 20 e3 6c 25 3d |ff%,512)|..s .l%=|
|00000250| 30 b8 35 31 31 3a 62 75 | 66 66 25 3f 28 6c 25 2b |0.511:bu|ff%?(l%+|
|00000260| 35 31 32 29 3d 30 3a ed | 0d 01 7c 19 f2 6f 70 28 |512)=0:.|..|..op(|
|00000270| 32 2c 31 30 32 34 2c 62 | 75 66 66 25 2c 35 31 32 |2,1024,b|uff%,512|
|00000280| 29 0d 01 86 19 f2 6f 70 | 28 32 2c 31 35 33 36 2c |).....op|(2,1536,|
|00000290| 62 75 66 66 25 2c 35 31 | 32 29 0d 01 90 05 e1 0d |buff%,51|2)......|
|000002a0| 01 9a 04 0d 01 a4 1b dd | 20 f2 65 72 72 6f 72 28 |........| .error(|
|000002b0| 65 72 72 25 2c 20 72 65 | 70 6f 72 74 24 29 0d 01 |err%, re|port$)..|
|000002c0| ae 15 e7 20 73 74 61 74 | 65 25 20 f2 74 69 64 79 |... stat|e% .tidy|
|000002d0| 5f 75 70 0d 01 b8 56 e7 | 20 28 65 72 72 25 3c 26 |_up...V.| (err%<&|
|000002e0| 31 30 31 30 30 20 84 20 | 65 72 72 25 3e 26 32 30 |10100 . |err%>&20|
|000002f0| 30 30 30 29 20 80 20 65 | 72 72 25 3c 3e 31 37 20 |000) . e|rr%<>17 |
|00000300| 8c 20 72 65 70 6f 72 74 | 24 3d 72 65 70 6f 72 74 |. report|$=report|
|00000310| 24 2b 22 20 69 6e 74 65 | 72 6e 61 6c 20 65 72 72 |$+" inte|rnal err|
|00000320| 6f 72 20 22 2b c3 28 9e | 29 0d 01 c2 0e 21 71 25 |or "+.(.|)....!q%|
|00000330| 20 3d 20 65 72 72 25 0d | 01 cc 13 24 28 71 25 2b | = err%.|...$(q%+|
|00000340| 34 29 3d 72 65 70 6f 72 | 74 24 0d 01 d6 19 f2 7a |4)=repor|t$.....z|
|00000350| 65 72 6f 5f 74 65 72 6d | 69 6e 61 74 65 28 71 25 |ero_term|inate(q%|
|00000360| 2b 34 29 0d 01 e0 0a f6 | 3a f1 9e 3a fa 0d 01 ea |+4).....|:..:....|
|00000370| 05 e1 0d 01 f4 05 3a 0d | 01 fe 0d dd 20 f2 66 6f |......:.|.... .fo|
|00000380| 72 6d 61 74 0d 02 08 18 | 74 68 69 73 5f 66 6f 72 |rmat....|this_for|
|00000390| 6d 61 74 25 3d 66 6f 72 | 6d 61 74 25 0d 02 12 51 |mat%=for|mat%...Q|
|000003a0| c8 99 20 22 58 41 44 46 | 53 5f 44 69 73 63 4f 70 |.. "XADF|S_DiscOp|
|000003b0| 22 2c 2c 6f 70 5f 76 65 | 72 69 66 79 25 20 84 20 |",,op_ve|rify% . |
|000003c0| 28 64 69 73 63 5f 72 65 | 63 25 3c 3c 36 29 2c 64 |(disc_re|c%<<6),d|
|000003d0| 72 69 76 65 25 3c 3c 32 | 39 2c 30 2c 26 34 30 30 |rive%<<2|9,0,&400|
|000003e0| 20 b8 20 52 30 25 3b 66 | 6c 61 67 73 25 0d 02 1c | . R0%;f|lags%...|
|000003f0| 3d e7 20 28 66 6c 61 67 | 73 25 20 80 20 31 29 3d |=. (flag|s% . 1)=|
|00000400| 30 20 8c 20 c8 99 22 58 | 4f 53 5f 43 4c 49 22 2c |0 . .."X|OS_CLI",|
|00000410| 22 41 44 46 53 3a 44 49 | 53 4d 4f 55 4e 54 20 3a |"ADFS:DI|SMOUNT :|
|00000420| 22 2b c3 7e 64 72 69 76 | 65 25 0d 02 26 05 f7 0d |"+.~driv|e%..&...|
|00000430| 02 30 19 e3 20 49 25 3d | 30 20 b8 20 74 68 69 73 |.0.. I%=|0 . this|
|00000440| 5f 66 6f 72 6d 61 74 25 | 0d 02 3a 0b 20 f5 20 f3 |_format%|..:. . .|
|00000450| 20 41 24 0d 02 44 12 20 | fd 20 41 24 3d 22 46 6f | A$..D. |. A$="Fo|
|00000460| 72 6d 61 74 22 0d 02 4e | 08 ed 20 49 25 0d 02 58 |rmat"..N|.. I%..X|
|00000470| 4b f3 20 4c 6f 67 32 53 | 65 63 53 69 7a 65 25 2c |K. Log2S|ecSize%,|
|00000480| 20 73 65 63 74 6f 72 73 | 25 2c 20 68 65 61 64 73 | sectors|%, heads|
|00000490| 25 2c 20 73 6b 65 77 25 | 2c 20 64 65 6e 73 69 74 |%, skew%|, densit|
|000004a0| 79 25 2c 20 47 31 25 2c | 47 32 25 2c 47 33 25 2c |y%, G1%,|G2%,G3%,|
|000004b0| 53 65 63 30 47 61 70 25 | 0d 02 62 1b 53 65 63 53 |Sec0Gap%|..b.SecS|
|000004c0| 69 7a 65 25 3d 32 5e 4c | 6f 67 32 53 65 63 53 69 |ize%=2^L|og2SecSi|
|000004d0| 7a 65 25 0d 02 6c 1b 3f | 64 69 73 63 5f 72 65 63 |ze%..l.?|disc_rec|
|000004e0| 25 3d 4c 6f 67 32 53 65 | 63 53 69 7a 65 25 0d 02 |%=Log2Se|cSize%..|
|000004f0| 76 18 64 69 73 63 5f 72 | 65 63 25 3f 31 3d 73 65 |v.disc_r|ec%?1=se|
|00000500| 63 74 6f 72 73 25 0d 02 | 80 16 64 69 73 63 5f 72 |ctors%..|..disc_r|
|00000510| 65 63 25 3f 32 3d 68 65 | 61 64 73 25 0d 02 8a 18 |ec%?2=he|ads%....|
|00000520| 64 69 73 63 5f 72 65 63 | 25 3f 33 3d 64 65 6e 73 |disc_rec|%?3=dens|
|00000530| 69 74 79 25 0d 02 94 16 | e7 20 74 68 69 73 5f 66 |ity%....|. this_f|
|00000540| 6f 72 6d 61 74 25 3d 30 | 20 8c 0d 02 9e 1a 20 64 |ormat%=0| ..... d|
|00000550| 69 73 63 5f 72 65 63 25 | 21 34 3d 26 30 30 30 31 |isc_rec%|!4=&0001|
|00000560| 30 37 30 46 0d 02 a8 1a | 20 64 69 73 63 5f 72 65 |070F....| disc_re|
|00000570| 63 25 21 38 3d 26 30 35 | 32 30 30 31 30 30 0d 02 |c%!8=&05|200100..|
|00000580| b2 16 20 64 69 73 63 5f | 72 65 63 25 21 31 32 3d |.. disc_|rec%!12=|
|00000590| 26 32 30 33 0d 02 bc 05 | cc 0d 02 c6 12 20 64 69 |&203....|..... di|
|000005a0| 73 63 5f 72 65 63 25 21 | 34 3d 30 0d 02 d0 12 20 |sc_rec%!|4=0.... |
|000005b0| 64 69 73 63 5f 72 65 63 | 25 21 38 3d 30 0d 02 da |disc_rec|%!8=0...|
|000005c0| 17 20 e7 20 74 68 69 73 | 5f 66 6f 72 6d 61 74 25 |. . this|_format%|
|000005d0| 3d 31 20 8c 0d 02 e4 17 | 20 20 64 69 73 63 5f 72 |=1 .....|  disc_r|
|000005e0| 65 63 25 21 31 32 3d 26 | 34 30 30 0d 02 ee 06 20 |ec%!12=&|400.... |
|000005f0| cc 0d 02 f8 17 20 20 64 | 69 73 63 5f 72 65 63 25 |.....  d|isc_rec%|
|00000600| 21 31 32 3d 26 32 30 30 | 0d 03 02 06 20 cd 0d 03 |!12=&200|.... ...|
|00000610| 0c 05 cd 0d 03 16 21 74 | 72 61 63 6b 5f 73 69 7a |......!t|rack_siz|
|00000620| 65 25 3d 53 65 63 53 69 | 7a 65 25 2a 73 65 63 74 |e%=SecSi|ze%*sect|
|00000630| 6f 72 73 25 0d 03 20 24 | 64 69 73 63 5f 73 69 7a |ors%.. $|disc_siz|
|00000640| 65 25 3d 74 72 61 63 6b | 5f 73 69 7a 65 25 2a 74 |e%=track|_size%*t|
|00000650| 72 61 63 6b 73 25 2a 32 | 0d 03 2a 1b 64 69 73 63 |racks%*2|..*.disc|
|00000660| 5f 72 65 63 25 21 31 36 | 3d 64 69 73 63 5f 73 69 |_rec%!16|=disc_si|
|00000670| 7a 65 25 0d 03 34 1b 24 | 28 64 69 73 63 5f 72 65 |ze%..4.$|(disc_re|
|00000680| 63 25 2b 32 32 29 3d 22 | 48 65 6c 6c 6f 22 0d 03 |c%+22)="|Hello"..|
|00000690| 3e 28 e7 20 a9 24 28 64 | 69 73 63 5f 72 65 63 25 |>(. .$(d|isc_rec%|
|000006a0| 2b 32 32 29 3c 32 20 73 | 74 61 74 65 25 3d 6e 6f |+22)<2 s|tate%=no|
|000006b0| 5f 6e 61 6d 65 25 0d 03 | 48 19 e7 20 73 74 61 74 |_name%..|H.. stat|
|000006c0| 65 25 20 80 20 6e 6f 5f | 6e 61 6d 65 25 20 8c 0d |e% . no_|name% ..|
|000006d0| 03 52 0a 20 21 71 25 3d | 33 0d 03 5c 17 20 c8 99 |.R. !q%=|3..\. ..|
|000006e0| 20 22 4f 53 5f 57 6f 72 | 64 22 2c 31 34 2c 71 25 | "OS_Wor|d",14,q%|
|000006f0| 0d 03 66 38 20 c8 99 20 | 22 4f 53 5f 43 6f 6e 76 |..f8 .. |"OS_Conv|
|00000700| 65 72 74 44 61 74 65 41 | 6e 64 54 69 6d 65 22 2c |ertDateA|ndTime",|
|00000710| 71 25 2c 62 75 66 25 2c | 31 30 2c 22 25 32 34 5f |q%,buf%,|10,"%24_|
|00000720| 25 4d 49 5f 25 57 33 22 | 0d 03 70 23 20 24 28 64 |%MI_%W3"|..p# $(d|
|00000730| 69 73 63 5f 72 65 63 25 | 2b 32 32 29 3d a4 73 74 |isc_rec%|+22)=.st|
|00000740| 72 69 6e 67 30 28 62 75 | 66 25 29 0d 03 7a 30 20 |ring0(bu|f%)..z0 |
|00000750| f2 73 65 74 5f 73 74 72 | 69 6e 67 28 69 63 6f 6e |.set_str|ing(icon|
|00000760| 5f 64 69 73 63 6e 61 6d | 65 25 2c 24 28 64 69 73 |_discnam|e%,$(dis|
|00000770| 63 5f 72 65 63 25 2b 32 | 32 29 29 0d 03 84 05 cd |c_rec%+2|2)).....|
|00000780| 0d 03 8e 17 64 69 73 63 | 5f 72 65 63 25 3f 33 34 |....disc|_rec%?34|
|00000790| 3d 64 72 69 76 65 25 0d | 03 98 0e 72 65 74 72 69 |=drive%.|...retri|
|000007a0| 65 73 25 3d 31 0d 03 a2 | 0f 64 69 73 63 5f 61 64 |es%=1...|.disc_ad|
|000007b0| 64 25 3d 30 0d 03 ac 0d | 64 65 66 65 63 74 25 3d |d%=0....|defect%=|
|000007c0| 30 0d 03 b6 0c 74 72 69 | 65 73 25 3d 30 0d 03 c0 |0....tri|es%=0...|
|000007d0| 13 73 74 61 72 74 5f 73 | 65 63 74 6f 72 25 3d 30 |.start_s|ector%=0|
|000007e0| 0d 03 ca 0b 73 69 64 65 | 25 3d 30 0d 03 d4 0c 74 |....side|%=0....t|
|000007f0| 72 61 63 6b 25 3d 30 0d | 03 de 0a 63 79 6c 25 3d |rack%=0.|...cyl%=|
|00000800| 30 0d 03 e8 0a 70 74 72 | 25 3d 30 0d 03 f2 22 f2 |0....ptr|%=0...".|
|00000810| 4e 50 75 74 28 67 61 70 | 5f 62 79 74 65 25 2c 20 |NPut(gap|_byte%, |
|00000820| 47 31 25 2b 53 65 63 30 | 47 61 70 25 29 0d 03 fc |G1%+Sec0|Gap%)...|
|00000830| 1d e3 20 50 68 79 73 53 | 65 63 25 3d 30 20 b8 20 |.. PhysS|ec%=0 . |
|00000840| 73 65 63 74 6f 72 73 25 | 2d 31 0d 04 06 11 20 f2 |sectors%|-1.... .|
|00000850| 4e 50 75 74 28 30 2c 20 | 31 32 29 0d 04 10 12 20 |NPut(0, |12).... |
|00000860| f2 4e 50 75 74 28 26 46 | 35 2c 20 33 29 0d 04 1a |.NPut(&F|5, 3)...|
|00000870| 0e 20 f2 50 75 74 28 26 | 46 45 29 0d 04 24 1b 20 |. .Put(&|FE)..$. |
|00000880| 68 65 61 64 65 72 25 28 | 50 68 79 73 53 65 63 25 |header%(|PhysSec%|
|00000890| 29 3d 70 74 72 25 0d 04 | 2e 10 20 f2 4e 50 75 74 |)=ptr%..|.. .NPut|
|000008a0| 28 30 2c 20 33 29 0d 04 | 38 19 20 f2 50 75 74 28 |(0, 3)..|8. .Put(|
|000008b0| 4c 6f 67 32 53 65 63 53 | 69 7a 65 25 2d 37 29 0d |Log2SecS|ize%-7).|
|000008c0| 04 42 0e 20 f2 50 75 74 | 28 26 46 37 29 0d 04 4c |.B. .Put|(&F7)..L|
|000008d0| 1a 20 f2 4e 50 75 74 28 | 67 61 70 5f 62 79 74 65 |. .NPut(|gap_byte|
|000008e0| 25 2c 20 47 32 25 29 0d | 04 56 11 20 f2 4e 50 75 |%, G2%).|.V. .NPu|
|000008f0| 74 28 30 2c 20 31 32 29 | 0d 04 60 12 20 f2 4e 50 |t(0, 12)|..`. .NP|
|00000900| 75 74 28 26 46 35 2c 20 | 33 29 0d 04 6a 0e 20 f2 |ut(&F5, |3)..j. .|
|00000910| 50 75 74 28 26 46 42 29 | 0d 04 74 20 20 f2 4e 50 |Put(&FB)|..t  .NP|
|00000920| 75 74 28 66 69 6c 6c 5f | 62 79 74 65 25 2c 20 53 |ut(fill_|byte%, S|
|00000930| 65 63 53 69 7a 65 25 29 | 0d 04 7e 0e 20 f2 50 75 |ecSize%)|..~. .Pu|
|00000940| 74 28 26 46 37 29 0d 04 | 88 49 20 e7 20 50 68 79 |t(&F7)..|.I . Phy|
|00000950| 73 53 65 63 25 3c 3e 73 | 65 63 74 6f 72 73 25 2d |sSec%<>s|ectors%-|
|00000960| 31 20 f2 4e 50 75 74 28 | 67 61 70 5f 62 79 74 65 |1 .NPut(|gap_byte|
|00000970| 25 2c 20 47 33 25 29 20 | 8b 20 f2 4e 50 75 74 28 |%, G3%) |. .NPut(|
|00000980| 67 61 70 5f 62 79 74 65 | 25 2c 20 a4 47 34 29 0d |gap_byte|%, .G4).|
|00000990| 04 92 0e ed 20 50 68 79 | 73 53 65 63 25 0d 04 9c |.... Phy|sSec%...|
|000009a0| 44 73 74 61 74 65 25 3d | 73 74 61 74 65 25 20 84 |Dstate%=|state% .|
|000009b0| 20 66 6f 72 6d 61 74 74 | 69 6e 67 25 20 84 20 62 | formatt|ing% . b|
|000009c0| 6c 61 6e 6b 25 3a 70 6f | 6c 6c 5f 6d 61 73 6b 25 |lank%:po|ll_mask%|
|000009d0| 3d 70 6f 6c 6c 5f 6d 61 | 73 6b 25 20 80 20 ac 20 |=poll_ma|sk% . . |
|000009e0| 31 0d 04 a6 1a f2 6f 70 | 28 6f 70 5f 72 65 73 74 |1.....op|(op_rest|
|000009f0| 6f 72 65 25 2c 30 2c 30 | 2c 30 29 0d 04 b0 10 f2 |ore%,0,0|,0).....|
|00000a00| 77 72 69 74 65 5f 74 72 | 61 63 6b 0d 04 ba 2a c8 |write_tr|ack...*.|
|00000a10| 99 22 58 4f 53 5f 43 4c | 49 22 2c 22 41 44 46 53 |."XOS_CL|I","ADFS|
|00000a20| 3a 44 49 53 4d 4f 55 4e | 54 20 3a 22 2b c3 7e 64 |:DISMOUN|T :"+.~d|
|00000a30| 72 69 76 65 25 0d 04 c4 | 05 e1 0d 04 ce 05 3a 0d |rive%...|......:.|
|00000a40| 04 d8 0b dd 20 f2 69 6e | 69 74 0d 04 e2 0c 73 74 |.... .in|it....st|
|00000a50| 61 74 65 25 3d 30 0d 04 | ec 0c 64 72 69 76 65 25 |ate%=0..|..drive%|
|00000a60| 3d 30 0d 04 f6 0d 66 6f | 72 6d 61 74 25 3d 30 0d |=0....fo|rmat%=0.|
|00000a70| 05 00 18 6d 61 78 5f 74 | 72 61 63 6b 25 3d 36 32 |...max_t|rack%=62|
|00000a80| 35 30 2a 31 2e 31 30 0d | 05 0a 0e 74 72 61 63 6b |50*1.10.|...track|
|00000a90| 73 25 3d 38 30 0d 05 14 | 10 6f 70 5f 76 65 72 69 |s%=80...|.op_veri|
|00000aa0| 66 79 25 3d 30 0d 05 1e | 17 6f 70 5f 77 72 69 74 |fy%=0...|.op_writ|
|00000ab0| 65 5f 73 65 63 74 6f 72 | 73 25 3d 32 0d 05 28 15 |e_sector|s%=2..(.|
|00000ac0| 6f 70 5f 77 72 69 74 65 | 5f 74 72 61 63 6b 25 3d |op_write|_track%=|
|00000ad0| 34 0d 05 32 11 6f 70 5f | 72 65 73 74 6f 72 65 25 |4..2.op_|restore%|
|00000ae0| 3d 36 0d 05 3c 4d de 20 | 62 75 66 25 20 6d 61 78 |=6..<M. |buf% max|
|00000af0| 5f 74 72 61 63 6b 25 2c | 20 64 69 73 63 5f 72 65 |_track%,| disc_re|
|00000b00| 63 25 20 36 34 2c 20 68 | 65 61 64 65 72 25 28 31 |c% 64, h|eader%(1|
|00000b10| 35 29 2c 20 64 6c 69 73 | 74 25 20 28 74 72 61 63 |5), dlis|t% (trac|
|00000b20| 6b 73 25 2a 32 2a 31 36 | 2a 34 2b 34 29 2a 33 0d |ks%*2*16|*4+4)*3.|
|00000b30| 05 46 0b 69 64 6c 65 25 | 3d 30 0d 05 50 11 66 6f |.F.idle%|=0..P.fo|
|00000b40| 72 6d 61 74 74 69 6e 67 | 25 3d 31 0d 05 5a 10 76 |rmatting|%=1..Z.v|
|00000b50| 65 72 69 66 79 69 6e 67 | 25 3d 32 0d 05 64 0c 62 |erifying|%=2..d.b|
|00000b60| 6c 61 6e 6b 25 3d 34 0d | 05 6e 0e 6e 6f 5f 6e 61 |lank%=4.|.n.no_na|
|00000b70| 6d 65 25 3d 38 0d 05 78 | 18 70 6f 6c 6c 5f 6d 61 |me%=8..x|.poll_ma|
|00000b80| 73 6b 25 3d ac 28 26 36 | 30 31 34 43 29 0d 05 82 |sk%=.(&6|014C)...|
|00000b90| 11 6d 61 78 62 75 66 25 | 3d 26 34 30 30 30 0d 05 |.maxbuf%|=&4000..|
|00000ba0| 8c 49 de 20 71 25 20 26 | 34 39 30 30 2c 20 63 75 |.I. q% &|4900, cu|
|00000bb0| 72 62 75 66 25 20 6d 61 | 78 62 75 66 25 2c 20 65 |rbuf% ma|xbuf%, e|
|00000bc0| 76 65 6e 74 25 20 26 31 | 30 30 30 2c 20 68 65 6c |vent% &1|000, hel|
|00000bd0| 70 25 20 26 31 30 30 30 | 2c 20 69 63 6f 6e 5f 62 |p% &1000|, icon_b|
|00000be0| 75 66 25 20 34 30 30 0d | 05 96 1b 65 6e 64 62 75 |uf% 400.|...endbu|
|00000bf0| 66 25 3d 63 75 72 62 75 | 66 25 2b 6d 61 78 62 75 |f%=curbu|f%+maxbu|
|00000c00| 66 25 0d 05 a0 10 24 62 | 75 66 25 3d 22 54 41 53 |f%....$b|uf%="TAS|
|00000c10| 4b 22 0d 05 aa 05 e1 0d | 05 b4 05 3a 0d 05 be 0b |K"......|...:....|
|00000c20| dd 20 a4 6e 65 78 74 0d | 05 c8 3b 73 74 61 72 74 |. .next.|..;start|
|00000c30| 5f 73 65 63 74 6f 72 25 | 3d 28 73 74 61 72 74 5f |_sector%|=(start_|
|00000c40| 73 65 63 74 6f 72 25 2b | 73 65 63 74 6f 72 73 25 |sector%+|sectors%|
|00000c50| 2d 73 6b 65 77 25 29 20 | 83 20 73 65 63 74 6f 72 |-skew%) |. sector|
|00000c60| 73 25 0d 05 d2 10 e7 20 | 68 65 61 64 73 25 3d 31 |s%..... |heads%=1|
|00000c70| 20 8c 0d 05 dc 0e 20 74 | 72 61 63 6b 25 2b 3d 31 | ..... t|rack%+=1|
|00000c80| 0d 05 e6 29 20 e7 20 74 | 72 61 63 6b 25 3d 74 72 |...) . t|rack%=tr|
|00000c90| 61 63 6b 73 25 20 8c 20 | 74 72 61 63 6b 25 3d 30 |acks% . |track%=0|
|00000ca0| 3a 73 69 64 65 25 2b 3d | 31 0d 05 f0 10 20 3d 20 |:side%+=|1.... = |
|00000cb0| 28 73 69 64 65 25 3d 32 | 29 0d 05 fa 05 cc 0d 06 |(side%=2|).......|
|00000cc0| 04 0d 20 73 69 64 65 25 | 2b 3d 31 0d 06 0e 22 20 |.. side%|+=1..." |
|00000cd0| e7 20 73 69 64 65 25 3d | 32 20 8c 20 73 69 64 65 |. side%=|2 . side|
|00000ce0| 25 3d 30 3a 74 72 61 63 | 6b 25 2b 3d 31 0d 06 18 |%=0:trac|k%+=1...|
|00000cf0| 17 20 3d 20 28 74 72 61 | 63 6b 25 3d 74 72 61 63 |. = (tra|ck%=trac|
|00000d00| 6b 73 25 29 0d 06 22 05 | cd 0d 06 2c 05 3a 0d 06 |ks%)..".|...,.:..|
|00000d10| 36 0b dd 20 f2 6e 75 6c | 6c 0d 06 40 13 e7 20 a4 |6.. .nul|l..@.. .|
|00000d20| 63 68 65 63 6b 5f 64 69 | 73 63 20 8c 0d 06 4a 1d |check_di|sc ...J.|
|00000d30| 20 e7 20 73 74 61 74 65 | 25 20 80 20 66 6f 72 6d | . state|% . form|
|00000d40| 61 74 74 69 6e 67 25 20 | 8c 0d 06 54 12 20 20 f2 |atting% |...T.  .|
|00000d50| 77 72 69 74 65 5f 74 72 | 61 63 6b 0d 06 5e 06 20 |write_tr|ack..^. |
|00000d60| cc 0d 06 68 06 20 cd 0d | 06 72 05 cd 0d 06 7c 05 |...h. ..|.r....|.|
|00000d70| e1 0d 06 86 05 3a 0d 06 | 90 19 dd 20 f2 6f 70 28 |.....:..|... .op(|
|00000d80| 62 25 2c 20 63 25 2c 20 | 44 25 2c 20 45 25 29 0d |b%, c%, |D%, E%).|
|00000d90| 06 9a 0b ea 20 42 25 2c | 43 25 0d 06 a4 16 42 25 |.... B%,|C%....B%|
|00000da0| 3d 62 25 2b 36 34 2a 64 | 69 73 63 5f 72 65 63 25 |=b%+64*d|isc_rec%|
|00000db0| 0d 06 ae 18 43 25 3d 63 | 25 20 84 20 28 64 72 69 |....C%=c|% . (dri|
|00000dc0| 76 65 25 3c 3c 32 39 29 | 0d 06 b8 22 c8 99 20 22 |ve%<<29)|...".. "|
|00000dd0| 41 44 46 53 5f 44 69 73 | 63 4f 70 22 2c 30 2c 42 |ADFS_Dis|cOp",0,B|
|00000de0| 25 2c 43 25 2c 44 25 2c | 45 25 0d 06 c2 05 e1 0d |%,C%,D%,|E%......|
|00000df0| 06 cc 05 3a 0d 06 d6 16 | dd 20 f2 72 65 70 6f 72 |...:....|. .repor|
|00000e00| 74 28 72 65 70 6f 72 74 | 24 29 0d 06 e0 11 f1 bd |t(report|$)......|
|00000e10| 31 33 3b 72 65 70 6f 72 | 74 24 3b 0d 06 ea 05 e1 |13;repor|t$;.....|
|00000e20| 0d 06 f4 05 3a 0d 06 fe | 10 dd 20 f2 73 74 72 75 |....:...|.. .stru|
|00000e30| 63 74 75 72 65 0d 07 08 | 18 ea 20 66 72 65 65 25 |cture...|.. free%|
|00000e40| 2c 6f 70 74 25 2c 64 65 | 66 65 63 74 24 0d 07 12 |,opt%,de|fect$...|
|00000e50| 15 c8 8e 20 74 68 69 73 | 5f 66 6f 72 6d 61 74 25 |... this|_format%|
|00000e60| 20 ca 0d 07 1c 0f 20 c9 | 20 30 3a 6f 70 74 25 3d | ..... .| 0:opt%=|
|00000e70| 30 0d 07 26 11 20 c9 20 | 31 3a 6f 70 74 25 3d 26 |0..&. . |1:opt%=&|
|00000e80| 34 30 0d 07 30 11 20 c9 | 20 32 3a 6f 70 74 25 3d |40..0. .| 2:opt%=|
|00000e90| 26 43 30 0d 07 3a 05 cb | 0d 07 44 18 64 6c 69 73 |&C0..:..|..D.dlis|
|00000ea0| 74 25 21 64 65 66 65 63 | 74 25 3d 31 3c 3c 32 39 |t%!defec|t%=1<<29|
|00000eb0| 0d 07 4e 47 c8 99 20 22 | 46 69 6c 65 43 6f 72 65 |..NG.. "|FileCore|
|00000ec0| 5f 46 6c 6f 70 70 79 53 | 74 72 75 63 74 75 72 65 |_FloppyS|tructure|
|00000ed0| 22 2c 62 75 66 25 2c 64 | 69 73 63 5f 72 65 63 25 |",buf%,d|isc_rec%|
|00000ee0| 2c 6f 70 74 25 2c 64 6c | 69 73 74 25 20 b8 20 2c |,opt%,dl|ist% . ,|
|00000ef0| 2c 2c 73 69 7a 65 25 0d | 07 58 27 f2 6f 70 28 6f |,,size%.|.X'.op(o|
|00000f00| 70 5f 77 72 69 74 65 5f | 73 65 63 74 6f 72 73 25 |p_write_|sectors%|
|00000f10| 2c 30 2c 62 75 66 25 2c | 73 69 7a 65 25 29 0d 07 |,0,buf%,|size%)..|
|00000f20| 62 2a c8 99 22 58 4f 53 | 5f 43 4c 49 22 2c 22 41 |b*.."XOS|_CLI","A|
|00000f30| 44 46 53 3a 44 49 53 4d | 4f 55 4e 54 20 3a 22 2b |DFS:DISM|OUNT :"+|
|00000f40| c3 7e 64 72 69 76 65 25 | 0d 07 6c 26 c8 99 22 41 |.~drive%|..l&.."A|
|00000f50| 44 46 53 5f 46 72 65 65 | 53 70 61 63 65 22 2c c3 |DFS_Free|Space",.|
|00000f60| 64 72 69 76 65 25 20 b8 | 20 66 72 65 65 25 0d 07 |drive% .| free%..|
|00000f70| 76 0f e7 20 64 65 66 65 | 63 74 25 20 8c 0d 07 80 |v.. defe|ct% ....|
|00000f80| 2f 20 64 65 66 65 63 74 | 24 3d 22 2c 20 22 2b c3 |/ defect|$=", "+.|
|00000f90| 28 64 65 66 65 63 74 25 | 2f 34 29 2b 22 20 64 65 |(defect%|/4)+" de|
|00000fa0| 66 65 63 74 73 20 66 6f | 75 6e 64 22 0d 07 8a 05 |fects fo|und"....|
|00000fb0| cc 0d 07 94 0f 20 64 65 | 66 65 63 74 24 3d 22 22 |..... de|fect$=""|
|00000fc0| 0d 07 9e 05 cd 0d 07 a8 | 38 f2 72 65 70 6f 72 74 |........|8.report|
|00000fd0| 28 22 46 6f 72 6d 61 74 | 74 65 64 20 22 2b c3 28 |("Format|ted "+.(|
|00000fe0| 66 72 65 65 25 2f 31 30 | 32 34 29 2b 22 4b 20 66 |free%/10|24)+"K f|
|00000ff0| 72 65 65 22 2b 64 65 66 | 65 63 74 24 29 0d 07 b2 |ree"+def|ect$)...|
|00001000| 05 e1 0d 07 bc 05 3a 0d | 07 c6 10 dd 20 f2 74 65 |......:.|.... .te|
|00001010| 72 6d 69 6e 61 74 65 0d | 07 d0 15 e7 20 73 74 61 |rminate.|.... sta|
|00001020| 74 65 25 20 f2 74 69 64 | 79 5f 75 70 0d 07 da 17 |te% .tid|y_up....|
|00001030| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|00001040| 77 6e 22 0d 07 e4 05 e1 | 0d 07 ee 05 3a 0d 07 f8 |wn".....|....:...|
|00001050| 0e dd 20 f2 74 69 64 79 | 5f 75 70 0d 08 02 1d 70 |.. .tidy|_up....p|
|00001060| 6f 6c 6c 5f 6d 61 73 6b | 25 3d 70 6f 6c 6c 5f 6d |oll_mask|%=poll_m|
|00001070| 61 73 6b 25 20 84 20 31 | 0d 08 0c 0c 73 74 61 74 |ask% . 1|....stat|
|00001080| 65 25 3d 30 0d 08 16 05 | e1 0d 08 20 05 3a 0d 08 |e%=0....|... .:..|
|00001090| 2a 12 dd 20 f2 77 72 69 | 74 65 5f 74 72 61 63 6b |*.. .wri|te_track|
|000010a0| 0d 08 34 17 e3 20 49 25 | 3d 30 20 b8 20 73 65 63 |..4.. I%|=0 . sec|
|000010b0| 74 6f 72 73 25 2d 31 0d | 08 3e 18 20 48 25 3d 68 |tors%-1.|.>. H%=h|
|000010c0| 65 61 64 65 72 25 28 49 | 25 29 2b 62 75 66 25 0d |eader%(I|%)+buf%.|
|000010d0| 08 48 0f 20 3f 48 25 3d | 74 72 61 63 6b 25 0d 08 |.H. ?H%=|track%..|
|000010e0| 52 0f 20 48 25 3f 31 3d | 73 69 64 65 25 0d 08 5c |R. H%?1=|side%..\|
|000010f0| 26 20 48 25 3f 32 3d 28 | 49 25 2b 73 74 61 72 74 |& H%?2=(|I%+start|
|00001100| 5f 73 65 63 74 6f 72 25 | 29 83 20 73 65 63 74 6f |_sector%|). secto|
|00001110| 72 73 25 0d 08 66 08 ed | 20 49 25 0d 08 70 38 f2 |rs%..f..| I%..p8.|
|00001120| 72 65 70 6f 72 74 28 22 | 46 6f 72 6d 61 74 74 69 |report("|Formatti|
|00001130| 6e 67 20 74 72 61 63 6b | 20 22 2b c3 74 72 61 63 |ng track| "+.trac|
|00001140| 6b 25 2b 22 20 73 69 64 | 65 20 22 2b c3 73 69 64 |k%+" sid|e "+.sid|
|00001150| 65 25 29 0d 08 7a 4f f2 | 6f 70 28 6f 70 5f 77 72 |e%)..zO.|op(op_wr|
|00001160| 69 74 65 5f 74 72 61 63 | 6b 25 2c a4 64 69 73 63 |ite_trac|k%,.disc|
|00001170| 5f 61 64 64 28 74 72 61 | 63 6b 25 2c 73 69 64 65 |_add(tra|ck%,side|
|00001180| 25 29 2c 62 75 66 25 2b | 73 69 64 65 25 2a 53 65 |%),buf%+|side%*Se|
|00001190| 63 30 47 61 70 25 2c 6d | 61 78 5f 74 72 61 63 6b |c0Gap%,m|ax_track|
|000011a0| 25 29 0d 08 84 0d e7 20 | a4 6e 65 78 74 20 8c 0d |%)..... |.next ..|
|000011b0| 08 8e 31 20 73 74 61 74 | 65 25 3d 28 73 74 61 74 |..1 stat|e%=(stat|
|000011c0| 65 25 20 80 20 ac 20 66 | 6f 72 6d 61 74 74 69 6e |e% . . f|ormattin|
|000011d0| 67 25 29 20 84 20 76 65 | 72 69 66 79 69 6e 67 25 |g%) . ve|rifying%|
|000011e0| 0d 08 98 1b 20 f2 6f 70 | 28 6f 70 5f 72 65 73 74 |.... .op|(op_rest|
|000011f0| 6f 72 65 25 2c 30 2c 30 | 2c 30 29 0d 08 a2 05 cd |ore%,0,0|,0).....|
|00001200| 0d 08 ac 05 e1 0d 08 b6 | 05 3a 0d 08 c0 19 dd 20 |........|.:..... |
|00001210| f2 7a 65 72 6f 5f 74 65 | 72 6d 69 6e 61 74 65 28 |.zero_te|rminate(|
|00001220| 53 25 29 0d 08 ca 0d 53 | 25 3f a9 24 53 25 3d 30 |S%)....S|%?.$S%=0|
|00001230| 0d 08 d4 05 e1 0d 08 de | 05 3a 0d 08 e8 19 dd 20 |........|.:..... |
|00001240| a4 47 34 3d 6d 61 78 5f | 74 72 61 63 6b 25 2d 70 |.G4=max_|track%-p|
|00001250| 74 72 25 0d 08 f2 05 3a | 0d 08 fc 11 dd 20 f2 50 |tr%....:|..... .P|
|00001260| 75 74 28 62 79 74 65 25 | 29 0d 09 06 13 62 75 66 |ut(byte%|)....buf|
|00001270| 25 3f 70 74 72 25 3d 62 | 79 74 65 25 0d 09 10 0b |%?ptr%=b|yte%....|
|00001280| 70 74 72 25 2b 3d 31 0d | 09 1a 05 e1 0d 09 24 05 |ptr%+=1.|......$.|
|00001290| 3a 0d 09 2e 17 dd 20 f2 | 4e 50 75 74 28 62 79 74 |:..... .|NPut(byt|
|000012a0| 65 25 2c 6e 75 6d 25 29 | 0d 09 38 0e e7 20 6e 75 |e%,num%)|..8.. nu|
|000012b0| 6d 25 3d 30 20 e1 0d 09 | 42 25 e3 20 49 25 3d 62 |m%=0 ...|B%. I%=b|
|000012c0| 75 66 25 2b 70 74 72 25 | 20 b8 20 62 75 66 25 2b |uf%+ptr%| . buf%+|
|000012d0| 70 74 72 25 2b 6e 75 6d | 25 2d 31 0d 09 4c 0e 20 |ptr%+num|%-1..L. |
|000012e0| 3f 49 25 3d 62 79 74 65 | 25 0d 09 56 05 ed 0d 09 |?I%=byte|%..V....|
|000012f0| 60 0e 70 74 72 25 2b 3d | 6e 75 6d 25 0d 09 6a 05 |`.ptr%+=|num%..j.|
|00001300| e1 0d 09 74 05 3a 0d 09 | 7e 67 f4 20 27 46 6f 72 |...t.:..|~g. 'For|
|00001310| 6d 61 74 27 2c 20 4c 6f | 67 32 20 73 65 63 74 6f |mat', Lo|g2 secto|
|00001320| 72 20 73 69 7a 65 2c 20 | 73 65 63 73 20 70 65 72 |r size, |secs per|
|00001330| 20 74 72 6b 2c 20 68 65 | 61 64 73 2c 20 73 6b 65 | trk, he|ads, ske|
|00001340| 77 2c 20 64 65 6e 73 69 | 74 79 20 2c 20 47 61 70 |w, densi|ty , Gap|
|00001350| 20 31 2c 20 47 61 70 20 | 32 2c 20 47 61 70 33 2c | 1, Gap |2, Gap3,|
|00001360| 20 53 65 63 74 6f 72 20 | 30 20 67 61 70 0d 09 88 | Sector |0 gap...|
|00001370| 2f dc 20 46 6f 72 6d 61 | 74 2c 20 31 30 2c 20 20 |/. Forma|t, 10,  |
|00001380| 35 2c 20 32 2c 20 30 2c | 20 32 2c 20 33 32 2c 20 |5, 2, 0,| 2, 32, |
|00001390| 32 32 2c 20 20 39 30 2c | 20 32 37 31 0d 09 92 2f |22,  90,| 271.../|
|000013a0| dc 20 46 6f 72 6d 61 74 | 2c 20 31 30 2c 20 20 35 |. Format|, 10,  5|
|000013b0| 2c 20 32 2c 20 30 2c 20 | 32 2c 20 33 32 2c 20 32 |, 2, 0, |2, 32, 2|
|000013c0| 32 2c 20 20 39 30 2c 20 | 32 37 31 0d 09 9c 2f dc |2,  90, |271.../.|
|000013d0| 20 46 6f 72 6d 61 74 2c | 20 20 38 2c 20 31 36 2c | Format,|  8, 16,|
|000013e0| 20 31 2c 20 34 2c 20 32 | 2c 20 34 32 2c 20 32 32 | 1, 4, 2|, 42, 22|
|000013f0| 2c 20 20 35 37 2c 20 20 | 20 30 0d 09 a6 2f dc 20 |,  57,  | 0.../. |
|00001400| 46 6f 72 6d 61 74 2c 20 | 20 39 2c 20 20 39 2c 20 |Format, | 9,  9, |
|00001410| 31 2c 20 34 2c 20 32 2c | 20 33 32 2c 20 32 32 2c |1, 4, 2,| 32, 22,|
|00001420| 20 20 39 30 2c 20 32 37 | 31 0d 09 b0 05 3a 0d 09 |  90, 27|1....:..|
|00001430| ba 0b dd f2 6e 61 73 74 | 79 0d 09 c4 14 74 72 61 |....nast|y....tra|
|00001440| 63 6b 25 3d 30 3a 73 69 | 64 65 25 3d 30 0d 09 ce |ck%=0:si|de%=0...|
|00001450| 18 f2 6f 70 28 31 2c 30 | 2c 62 75 66 66 25 2c 39 |..op(1,0|,buff%,9|
|00001460| 2a 35 31 32 29 0d 09 d8 | 24 41 24 3d 22 4d 45 4d |*512)...|$A$="MEM|
|00001470| 4f 52 59 20 42 20 22 2b | c3 7e 62 75 66 66 25 2b |ORY B "+|.~buff%+|
|00001480| 22 20 2b 46 46 46 46 46 | 22 0d 09 e2 05 e1 0d ff |" +FFFFF|".......|
+--------+-------------------------+-------------------------+--------+--------+