 
4Т ---------------------------------------------- Т EDIT - Disk editor 4Т ---------------------------------------------- ( 2#ч param 12, sectab 39, data 255 <osword=&FFF1 FК 7 PРbegin        :Т get drive ZУ           :Т repeat d  Рmain       :Т main loop n"  К 7         :Т normal cursor x'Щ get%=&8F   :Т until user finished ┌Ю ▄ √ ═щРbegin ╙О 23;11,0;0;0;0; Є$Т set KEY 0 to &8C, KEY 1 to &8D Ў$Т set KEY 2 to &8E, KEY 3 to &8F х*KEY0 |!|L р*KEY1 |!|M э*KEY2 |!|N Ф*KEY3 |!|O ПТ display header З	РheadТ get drive numberУ  Я┼3,5);д38," ")"&  Я┼3,5);Ґ130;"Enter drive (0-3)";,  Х " > "drive%6Щ drive%>-1 ─ drive%<4@"Т *DRIVE for this drive numberJЪ "DRIVE "+цdrive%TТ get user to insert disk^.Я┼3,7);Ґ130;"insert disk in drive ";drive%h.Я┼3,8);Ґ130;"press SPACE when ready to go"rУ Щ і(100)=32|Т find out how many tracks├
A%=&7E░X%=param Y%=X% │ 256єж oswordўmaxtrack%=(!param │ 2560)-1╦АблщРchoicesжТ disable cursor editingЮ
*FX4,1ЙТ display choicesТ$Я┼0,21);Ґ133;"you may edit the";Ч*ЯҐ131;"hex";Ґ133;"or the";Ґ129;"ASCII"9Я┼0,22);Ґ131;"(f0 = other half  : f1 = main menu   )"9Я┼0,23);Ґ131;"(f2 = update disk : f3 = quit program)"А&0:DщРcoordNТ get cursor coordinatesXx%=╠by%=╪lАv─щРdispdata┼Т display header■	Рhead·&Т display a 16 by 8 matrix of data╗Ц I%=1 ╦ 16╡  Рdispline(I%)╪МI%фТ display choicesпРchoicesз!Т position cursor at 1st byteДО 31,5,4НАЬщРdispline(W%)Т display a line of data!Т set J%=relative byte number J%=part%*128 + 8*(W%-1)*/Т set start% to address of 1st byte of data4start%=data+J%>)Т set str$ to 2-byte hex string of J%HРstring(J%)R5Т print it in green and set up the rest in yellow\"Я ┼0,W%+3);Ґ130;str$;Ґ131;" ";f,Т initialise ASCII representaion of datap	A$=""z!Т for each of 8 bytes of data└Ц Z%=0 ╦ 7▌  Т set C% = next byte≤  C%=start%?Z%╒(  Т store ASCII representation in A$╛.  Г C%<32 └ C%>126:A$=A$+"." ▀ A$=A$+Ґ(C%)І*  Т set str$ = 2-byte hex string of C%ю  Рstring(C%)й  Т print itт  Яstr$;" ";чМХ'Т print ACSII representation in redРЯ Ґ129;A$ЭА
щРdownТ move cursor down one line$О 10.Т get cursor coordinates8
РcoordB7Т if it's fallen off the bottom, wrap around to topLГ y%>19 ▄ О 31,x%,4VА`j
щРedittТ get cursor coordinates~
Рcoord┬$Т if user editing ASCII do edit2▓Г x%>29:Рedit2:А°=Т user is editing hex, so change key-in from ASCII to hexіget%=get%-&30╟Г get%>9:get%=get%-7╨#Т make sure the key-in is validдГ get%<0 :АнГ get%>15:Аь<Т calculate relative memory address of byte being editedБ*mem%=part%*128 + 8*(y%-4) + (x%-5) │ 3Л(Т find existing value of left nibbleЖleft%=data?mem% │ 16 )Т find existing value of right nibble
right%=data?mem% ┐ 16;Т if user is editing left nibble, overwrite left nibble!Т else overwrite right nibble(+Г (x%-5) ┐ 3=0:left%=get% ▀ right%=get%2"Т put new value back in memory<data?mem%=16*left%+right%FТ redisplay whole linePРdispline(y%-3)ZТ restore cursor positiondО 31,x%,y%nТ move cursor rightx
Рright┌А▄√щРedit2═/Т get relative address of byte being edited╙%mem%=part%*128 + 8*(y%-4) + x%-30Є+Т overwrite this byte with key-in valueЎdata?mem%=get%хТ redisplay whole lineрРdispline(y%-3)эТ restore cursor positionФО 31,x%,y%ПТ move cursor rightЗ
РrightА	щРerr"%Т handle a bad result from OSWORD,	Рhead6Я┼0,5);Ґ129;bad$@#Я┼0,6);Ґ129;"result = &";ц~res%J+Я┼0,8);Ґ133;"press SPACE for main menu"TУ Щ і(100)=32^Аhr	щРget|Т get keyboard input├У░  get%=╔ >  Т if user pressed f0, toggle next half of sector displayє*  Г get%=&8C:part%=part% ┌ 1:Рdispdataў+  Т if user pressed f2, update the disk╦  Г get%=&8E:Рwriteб"  Т if cursor key, move cursorл  Г get%=&88:Рleftж  Г get%=&89:РrightЮ  Г get%=&8A:РdownЙ  Г get%=&8B:РupТ"  Т if editing a byte, do editЧ!  Г get%>&1F ─ get%<&80:Рedit+  Т repeat all this until user wants to1  Т return to main menu, updater disk or quitЩ get%>&8C&А0:
щРheadDТ display screen headerNшX#Я┼10,0);Ґ141;Ґ132;"DISK EDITOR"b#Я┼10,1);Ґ141;Ґ132;"DISK EDITOR"lАv─
щРleft┼Т move cursor left■О 8·Т get cursor corrdinates╗
Рcoord╡>Т if it's falled off at the left, wrap around to the right╪Г x%<5 :О 31,37,y%:Аф.Т if it's at X=28 or X=29, move it to X=30пГ x%>29:АзГ x%=28:О 8:АДГ x%=29:О 8,8:АН$Т if it's in a gap, move it leftЬГ (x%-4) ┐ 3=0:О 8А
щРmain О 23;11,0;0;0;0;*Т main menu program loop4Т find out which track>	РmenuH(Т seek track 0, reset track registerRРseek(0)\'Т read sector IDs from wanted trackfРsectoridsp%Т if any problems, return to mainzГ res%<>0:А└Т find out which sector▌Рwhichsec≤Т set track register╒Рtrack(?sectab)╛Т read the sectorІ	Рreadю%Т if any problems, return to mainйГ res%<>0:Ат3Т initialise display to 1st 128 bytes of sectorчpart%=0ХТ special editing cursorРО 23;10,0;0;0;0;ЭО 23;11,255;0;0;0;	Т display 128 bytes of data	Рdispdata	!Т start reading from keyboard	$Рget	.А	8	B
щРmenu	LТ find out which track	V@%=2	`	Рhead	jУ	t  Я┼0,5);д38," ")	~;  Я┼0,5);Ґ130;"Enter track number (0 - ";maxtrack%;")";	┬  Х " > "track%	▓$Щ track%>-1 ─ track%<maxtrack%+1	°А	і	╟щРow(R%)	╨1Т call OSWORD and set res% to result register	д=Т on entry, R%=index into param block for result register	н
A%=&7F	ьX%=param	БY%=X% │ 256	Лж osword	Жres%=param?R%
 А



щРread
Т read a sector
(param?0=drive%    :Т drive
2 param!1=data      :Т address
<*param?5=3         :Т num of parameters
Fparam?6=&57       :Т read
Pparam?7=?sectab   :Т track
Zparam?8=sector%   :Т sector
d#param?9=&21       :Т one sector
nРow(10)
x*Т save delete bit from result register
┌del%=res% ─ &20
▄#Т mask off the deleted data bit
√res%=res% ─ &1E
═Т report any problems
╙Г res%=0:А
Є)bad$="sector "+ц(sector%)+" bad read"
ЎРerr
хА
р:
эщРright
ФТ move the cursor right
ПО 9
ЗТ get cursor coordinates
Рcoord8Т if cursor drops off right, wrap around to the leftГ x%>37:О 31,5,y%:А"Г x%>29:А,!Т don't leave cursor in a gap6Г x%=28:О 9,9:А@Г x%=29:О 9:АJГ (x%-4) ┐ 3=0:О 9TА^hщРsectoridsrТ read sector IDs|param?0=drive%    :Т drive├ param!1=sectab    :Т address░*param?5=3         :Т num of parameters (param?6=&5B       :Т read sector IDsє'param?7=track%    :Т physical trackўparam?8=0         :Т dummy╦'param?9=10        :Т num of sectorsбРow(10)лТ report any problemsжГ res%=0:АЮ1bad$="track "+ц(track%)+" missing sector IDs"ЙРerrТАЧщРseek(T%)Т seek a trackparam?0=drive%    :Т drive&#param!1=&FFFF     :Т no address0*param?5=1         :Т num of parameters:param?6=&69       :Т seekD'param?7=T%        :Т physical trackN
Рow(8)XТ report any problemsbГ res%=0:Аl%bad$="tack "+ц(track%)+" missing"vРerr─А┼■щРstring(num%)·(Т make 2-byte hex string of a number╗str$=б"0"+ц~num%,2)╡╪фпзДщРtrack(T%)НТ adjust track registerЬparam?0=drive%    :Т drive#param!1=&FFFF     :Т no address*param?5=2         :Т num of parameters'param?6=&7A       :Т write spec reg !Т pick correct track register*&Г drive% ┐ 2=1:reg%=&1A ▀ reg%=&124param?7=reg%      :Т reg>param?8=T%        :Т valueH
Рow(9)RА\fщРuppТ move cursor up one linezО 11└Т get cursor coordinates▌
Рcoord≤<Т if cursor falls off the top, wrap around to the bottom╒Г y%<4:О 31,x%,19╛АІющРwhichsecй Т found out lowest sector IDтlowsec%=sectab?2чЦ I%=1 ╦ 9Х;  Г sectab?((4*I%)+2)<lowsec%:lowsec%=sectab?((4*I%)+2)РМЭТ display header	РheadТ display track details@%=2$(Я ┼5,5);Ґ131;"you are positioned on".)Я ┼8,7);Ґ133;"physical track ";track%8)Я ┼8,8);Ґ133;" logical track "?sectabBТ get a valid sector IDLУV  Я ┼0,10);д38," ")`H  Я ┼0,10);Ґ130;"enter sector number (";lowsec%;" - ";lowsec%+9;")";j  Х " > "sector%t,Щ sector%>lowsec%-1 ─ sector%<lowsec%+10~А┬▓щРwrite°!Т write a sector back to diskіparam?0=drive%    :Т drive╟ param!1=data      :Т address╨*param?5=3         :Т num of parametersд3Т if deleted data read, write back deleted dataн#Г del%<>0:code%=&4F ▀ code%=&4Bьparam?6=code%     :Т writeБparam?7=?sectab   :Т trackЛparam?8=sector%   :Т sectorЖ#param?9=&21       :Т one sector Рow(10)
*res%=res% ─ &1E :Т mask off delete bitТ report any problemsГ res%=0:А(*bad$="sector "+ц(sector%)+" bad write"2Рerr<АЪ