@� >DiskEd  Universal Disk Editor for any Arc or MSDOS format
B� A.P.Look 23/2/88 (Archive mag. 3/88) - Extended T.B. 28/1/89
B� 640k discaddr corrected, 800E (type%=11) added  T.B. 17/5/89
(
2A�12:ș "Wimp_Initialise":ș "Wimp_CloseDown":� defines chars.
<�12:�:*FX4 2
F*�5,&A0,0,&F0:�3,&F0,&A0,0:�6,0,&A0,&A0
P
ZAbfsz=1*1024 :� Can be set much higher (to a multiple of 1024)
dI� Clicking "Size" box to green causes all loads, saves, store, recall
nJ� to deal in sector blocks to full bfsz. Sector stepping with "Select"
x@� moves by bfsz. Store/recall can be used to copy a block to
�2� another disc (any type, even to/from MSDOS).
�G� Size box red: deals with one sector. If copied to another disc of
�9� different sector size buffer truncated/zero-padded.
�
�8� mem% bfsz+4,bmem% bfsz+4,blk% 100,hugo% 8,mcode 60
�
�(dr%=0:id$="  ????  ":sr$=�7," ")+id$
� �assem:dx=1:gs=1:�initialise
�� � �error:�:�ptr(1)
�
��:�inputcmds:� 0
�
�� �error

-� �=17:�"FX4 2":�display(start,lines,1):�

x$=�$+" at line "+Þ

/�1:�window(34-�x$/2,16,�x$,3,10,x$):�ptr(0)

"$�26:�:�7:�132:�0,31)�79;�0,31);

,*FX4

6�

@

J� �initialise

T
changed=�

^,head=0:sector=0:track=0:start=0:lines=23

h	�size

r$�19,0,24,0,0,255|:�132:�:�135:�4

|+�23,140,&18,&18,&18,&18,&18,&18,&18,&18

�	�menu

��next(0):�ptr(1)

��

�

�� �menu

��0

��window(2,1,4,1,4,"Help")

��1

��window(8,1,16,1,4,"Disc:")

�2�window(26,1,24,1,4," Universal Disc Editor ")

�
� gs>1:�6

� �window(58,1,10,1,4,"Size:")

��5
�window(52,1,1,1,4,"s")
�window(55,1,1,1,4,"r")
�0
& �window(70,1,8,1,4,"Drive:")
0�window(1,3,1,1,4,"*")
:�window(4,3,5,1,4,"Quit ")
D+�window(11,3,9,1,4,�136+" Track "+�137)
N*�window(22,3,8,1,4,�136+" Head "+�137)
X-�window(32,3,10,1,4,�136+" Sector "+�137)
b4�window(44,3,25,1,4,"Track:   Head:  Sector:  ")
l�window(71,3,8,1,4,"")
v�window(1,5,78,26,4,"")
�2�1-5*(gs>1):�13,5)"Bufr:";�gs*bpsec/1024;"K";
��oddline
��0:�14,1)nm$;�64,1);
�$� statedsize:�;statedsize �1024;
�1� type%=11:�"E"; �� statedsize:�"K"; ��" ??";
�)�77,1);dr%;:� �sr$>32:�5:�31,5)sr$;
��update
��
�
�
� �update
�>�0:�50,3);track;" ";�58,3);head;�67,3)"  ";�67,3);sector;
�:da$=�"0000000"+�~�discaddr(head,sector,track,type%),8)
��� type%=9:da$=�"0000000"+�~�("&"+da$+�(-(track*heads+head+1)*bpsec)),8):� "real" disc addr. Disc addr act.used pretends sptrk=10
�71,3)da$;
�

 � �oddline
*�18,6)�40;
4�0,1:�5:� 64,848
>*�"Addr:";�16;"Hex:";�37;"ASCII:";:�4:�
H�
R
\"� �window(x,y,sx,sy,d,string$)
fx=x*16:y=1024-(y+sy)*32
psx=sx*16:sy=sy*32
z(�0,7:ȓ Ȑ x-3*d,y-3*d,sx+6*d,sy+6*d
�*�0,0:ȓ      x-2*d,y-2*d,sx+4*d,sy+4*d
�*�x/16,(1024-y)/32-1-(sy �64))string$;
��
�
�� �inputcmds
��
�  ȗ x,y,buttons
�-  dz=�0:� dz=143 � dz=142:�page:buttons=0
�� buttons<>0 � �x,y)<>4
�dx=x/16:dy=32-y/32
�� dy<2 � buttons=4 �
�0  � dx>70:�drive:dx=0 �� dx<7:�star(�):dx=58
�  � dx>58 �
$  � gs=1:gs=bfsz/bpsec+.5 � gs=1
  �menu:�next(0):dx=59
  �
$  � dx<51:�initialise
.  � dx>51 � dx<57:�bfr
8  �
B� dy>7 � dy<30 �
L  � dx<7 � buttons<>2:�page
V  � dx>10 � dx<76 �
`    � buttons=2:�move
j    � buttons=4:�change
t  �
~�
�*� �(dy)=3 � dx<79 � buttons<>2:�select
�� dy>5 � dy<6.5 � dx<8 �
�G  � buttons=1:start=0 � start=�gs*bpsec-lines*&10:� start<0:start=0
�  �display(start,lines,-1)
�  �
��
�
�
� �select
�� dx>70 : �inpaddr
�� dx>43 : �input
�� dx>37 : dir=1 � dir=-1
�B� dx>31 : �save:sector+=dir*(1-(�gs-1)*(buttons=4)):�next(dir)
� dx>26 : dir=1 � dir=-1

(� dx>21 : �save:head+=dir:�next(dir)
� dx>16 : dir=1 � dir=-1
)� dx>10 : �save:track+=dir:�next(dir)
(� dx>3  : �leave
2� dx>0  : �star(�)
<�update:dx=0:dy=0
F�
P
Z
� �change
ddx=�(dx):dy=�(dy)
n � dx>59:�text:� � dx<57:�hex
x�
�
�� �text
��ptr(0)
�	*FX21
��
�!  pos=(dx-60)+(dy-7)*16+start
�1  data=mem%?pos:� data<32 � data>=127:data=46
�  data$=�data
�
  �132:�7
�  �dx,dy)data$;
�/  �:b=�0:ȗ x,y,buttons:� b<>-1 � buttons=1
�  � b<>-1 �
�    � b<>data: changed=�
    mem%?pos=b
;    �display(start,1,dy)                    :�  6<dy<30
!    dx+=1:� dx>75:dx=60:dy+=1
"  �
,.� dy=30 � buttons=1 �(dy=23 � type%*�gs=8)
6$� buttons=1:�display(start,1,dy)
@�ptr(1)
J�
T
^
� �hex
h�ptr(0)
r	*FX21
|�
�  � (dx-10)�3=2:dx+=1
�#  pos=(dx-10)/3+(dy-7)*16+start
�  data=mem%?pos
�0  � pos=�pos: data=data �&10 � data=data �&F
�  data$=�~data
�
  �132:�7
�  �dx,dy)data$;
�  �:b=�0:ȗ x,y,buttons
�1  � (b>64 � b<71) � (b>47 � b<58) � buttons=1
�  � buttons<>1 �
�    � b<>data:changed=�
�    � pos=�pos �
�+      data=(mem%?pos �&F)+�("&"+�b)*&10
      �
(      data=(mem%?pos �&F0)+�("&"+�b)
	    �
&    mem%?pos=data
02    �display(start,1,dy)            :� 6<dy<30
:!    dx+=1:� dx>56:dx=10:dy+=1
D  �
N.� dy=30 � buttons=1 �(dy=23 � type%*�gs=8)
X$� buttons=1:�display(start,1,dy)
b�ptr(1)
l�
v
�� �move
�dy=32-y �32:dy1=dy
�lim=bpsec*�gs-lines*&10
�ȕ buttons=2
�  d=-(dy<dy1)
�9  � dy<>dy1 � ((d=0 � start>0) � (d=1 � start<lim)) �
�    �scroll(d)
�    dy1+=�(dy-dy1)
�  �
�  ȗ x,y,buttons
�  dx=x �16:dy=32-y �32
��
��

� �page
lim=bpsec*�gs-lines*&10
 *� dz=143:buttons=1 �� dz=142:buttons=4
*%� start>lim � buttons=4:buttons=0
4� buttons<>1 � buttons<>4:�
>d=�(buttons-1)
H+� d:len=(lim-start) �16 � len=start �16
Rȕ len>0:�scroll(d):len-=1
\6ȗ x,y,buttons:� buttons=0 � �-129=255:len=0:*FX21
f�
p�
z
�� �scroll(d)
�� d=0:start-=&10
� �display(start+d*&170,1,d+2)
�� d=1:start+=&10
��
�
�� �leave
�	�save
�� 0:�("FX4 0"):�
�
�� �star(x)
�	*FX15
�*FX4
	�28,1,29-x,78,7
	
�135:�0:�
	� �
	$� � � �'�$
	.4� x:�help:� �:�:�"*"oscli$:�(oscli$):� oscli$=""
	8�:�
	B�display(start,lines,1)
	Ldx=0:dy=0:*FX4 2
	V�
	`
	j� �inpaddr
	t$�4:�71,3)�8;�71,3);:�get(8,1E9)
	~
� a$="" �
	�  �da$;
	� �
	�   fac%=�("&"+a$)�(9*bpsec)+1
	�J  �: Conv. "real" MSDOS disk addr to one pretending sptrk=10 (see 600)
	�;  � type%=9:a$=�"0000000"+�~�(�(fac%*bpsec)+"+&"+a$),8)
	� �
	�"�save:� a$<>"":�hst(�("&"+a$))
	��next(0):�update
	��
	�
	�� �drive
	�0flop=1:hard=0:ș "XADFS_Drives" � ,flop,hard
� flop+hard=2 �

  a$=�(1-3*(hard>0)-dr%)
 �
$  �4:�77,1)�1;�77,1);:�get(1,7)
(  � a$="":�;dr%;
2 �
<	�save
F � a$<>"":dr%=�a$:blk%?34=dr%
P�
Z
d� �input
n*�4:�50,3)"   ";�50,3);:�get(2,tracks)
x#� a$="":tk=track:�;tk;:� tk=�a$
�%�58,3)"  ";�58,3);:�get(1,heads)
�"� a$="":hd=head:�;hd;:� hd=�a$
�%�67,3)"  ";�67,3);:�get(2,sptrk)
�$� a$="":sr=sector:�;sr;:� sr=�a$
�$�save:track=tk:sector=sr:head=hd
��next(0):�update
��
�
�� �get(len,limit)
�	a$=""
��
�#  b$=�:b=�b$:� b>=�"a":b=b �&DF
�+  � b$=�127 � �a$<>0:a$=�a$,�a$-1):�127
*  � limit=1E9:� b>=�"A" � b<=�"F":b=48
1  � b>=�"0" � b<=�"9" � �a$<>len:a$+=b$:� b$;

� b=13
"#� �a$>=limit:�ĩa$,�127);:a$=""
,�
6
@� �save
J� � changed:�
T8�4:�18,6)"Do you wish to save changes? [Y] or [N]";
^selected=�
h�
r   ȗ x,y,buttons
|   dx=x �16:dy=31-y �32
�   � buttons=4 � dy=6 �
�#     � dx=48 � dx=55:selected=�
�   �
�)� selected:� �sr$=82:�sr$,6)="stored"
�%�oddline:� �sr$>32:�5:�31,5)sr$;
�9� dx=48:� track=0:� head=0:� sector<2:�adjustchecksum
�<� dx=48:�discop(2,head,sector,track,bpsec*�gs):changed=�
�#�0:�:ȗ x,y,buttons:� buttons=0
��
�
�� �adjustchecksum
�0� type%=9 �(type%=10 � sector>0)� type%=11:�
�A�cs(mem%)=mem%?&FF:�type%*�gs=8 � �cs(mem%+&100)=mem%?&1FF:�
8�9:�18,6)"FS map checksum(s) - adjust? [Y] or [N]";
+selected=�:�:ȗ x,y,buttons:� buttons=0
�
&   ȗ x,y,buttons
0   dx=x �16:dy=31-y �32
:   � buttons=4 � dy=6 �
D#     � dx=48 � dx=55:selected=�
N   �
X� selected:�oddline
bB� dx=48:mem%?&FF=�cs(mem%):� sector=0:mem%?&1FF=�cs(mem%+&100)
ldx=48:�
v
�
� �cs(m%)
�
t%=0:c%=0
�<� a%=m%+&FE � m% �-1:t%+=?a%+c%:c%=-(t%>&FF):t%=t%�&FF:�
�=t%
�
�� �next(dir)
�*FX14 6
�)� type%=9:� dir=0:� sector=0:sector=1
�� type%=8 �
�-ȕ sector>=sptrk:sector-=sptrk:track+=1:�
�(ȕ sector<0:sector+=sptrk:track-=1:�
�,ȕ track>=tracks:track-=tracks:head+=1:�
�&ȕ track<0:track+=tracks:head-=1:�

� head>=heads:head-=heads

� head<0:head+=heads

�

 6ȕ sector>=sptrk:sector-=sptrk+(type%=9):head+=1:�

*3� type%=9:ȕ sector<1:sector+=sptrk-1:head-=1:�

4'ȕ sector<0:sector+=sptrk:head-=1:�

>)ȕ head>=heads:head-=heads:track+=1:�

H$ȕ head<0:head+=heads:track-=1:�

R!� track>=tracks:track-=tracks

\� track<0:track+=tracks

f�

p6� diskerr=0:�discop(1,head,sector,track,bpsec*�gs)

z6id$="["+nm$+"] "+�track+":"+�head+":"+�sector+" ("

�2id$=�id$+�(�gs*bpsec/1024)+"K)"+"        ",28)

�&�display(start,lines,-1):changed=�

�dx=0:*FX13 6

��

�

�� �discaddr(h,s,t,type%)

�� type%=8 �

�"h=((h*tracks+t)*sptrk+s)*bpsec

��

�!h=((t*heads+h)*sptrk+s)*bpsec

��

�=h

�
� �hst(addr)
;addr=addr � bpsec:sector=addr � sptrk:addr=addr � sptrk
� type%=8 �
$*track=addr � tracks:head=addr � tracks
.>� head>heads-1:�hst(�discaddr(heads-1,sector,track,type%))
8�
B(head=addr � heads:track=addr � heads
L@� track>tracks-1:�hst(�discaddr(head,sector,tracks-1,type%))
V�
`�
j
t� �discop(cmd,h,s,t,b)
~G� type%>9:batch=blk%!16-�discaddr(h,s,t,10) � batch=(sptrk-s)*bpsec
�dest=mem%:diskerr=0
�ȕ b>0 � diskerr=0
�:   dad=�discaddr(h,s,t,10)�(dr%<<29):� batch>b:batch=b
�G   ș "XADFS_DiscOp",,(blk%<<6)+cmd,dad,dest,batch � diskerr,,,last
�   dest+=batch:b-=batch
�*   � type%>9:batch=blk%!16:h=0:s=0:t=0
�G   � type%=9:batch=9*512:s=1:h+=1:� h=heads:h=0:t+=1:� t=tracks:t=0
�H   � type%=8:batch=16*256:s=0:t+=1:� t=tracks:t=0:h+=1:� h=heads:h=0
��
�5� last<mem%+bfsz:A%=last:B%=0:C%=mem%+bfsz:� zero
��
�
� �size

'gswas=(gs>1):� gs>1:gs=bfsz/1024+.5
/bpsec=1024:sptrk=5:tracks=80:heads=2:nm$=""
8� Q=0 � 99:blk%?Q=0:�:A%=mem%:B%=0:C%=A%+bfsz:� zero
(Gblk%?0=10:blk%?1=sptrk:blk%?2=heads:blk%?3=2:� density (single N/A)
26blk%!16=sptrk*bpsec*tracks*heads:blk%!64=&20000000
<blk%?34=dr%
F
PDș "XADFS_DiscOp",,(blk%<<6)+1,1024 � dr%<<29,mem%,512 � diskerr
ZK� "1024" causes read from sect 1 on any type of disc!! (because of blk)
d$hugo%="Hugo":type%=0
n7� mem%!1=!hugo%:type%=10 �� mem%!257=!hugo%:type%=8
x;� type%=0:� ?mem%=&E9 �(?mem%=&EB � mem%?2=&90):type%=9
�A� type%=0:�(mem%!21 �&FFFFFF)=&C80:statedsize=&C8000:type%=11
�-� type%=11:� N=26 � 35:nm$+=�(mem%?N):�:�
�F� (type%=0)� diskerr:gs=1:type%=10:statedsize=0:nm$="Not Ident.":�
�� type%=9 �
�!  � N=3 � 10:nm$+=�(mem%?N):�
�4  statedsize=(mem%!11 � &FFFF)*(mem%!19 � &FFFF)
�E  sector=1:blk%!16=statedsize*10/9:sptrk=10:        � 10 not 9 !!
�&  � statedsize<=1024*400:tracks=40
��
�?  ș "XADFS_DiscOp",,(blk%<<6)+1,dr%<<29,mem%,512 � diskerr
�4  � diskerr:gs=1:statedsize=0:nm$="Not ident.":�
�4  � N=&F7 � &FB:nm$+=�(mem%?N)+�(mem%?(N+&FF)):�
�H  statedsize=(mem%!252 � &FFFF)*256:� statedsize<=1024*400:tracks=40
  � type%=8:sptrk=16
4  bpsec=2^type%:blk%!16=sptrk*bpsec*tracks*heads
�
"Dbpsec=2^type%:blk%?0=type%:blk%?1=sptrk:� gswas:gs=bfsz/bpsec+.5
,�
6
@ � �display(start,lines,code)
J+� code>6:�1,code);:start+=(code-7)*&10
T(� code<6:�28,1,29,78,7,30:� code<0:�
^*� code=2:�11:            � scroll down
h(� code=3:�31,0,22,10:    � scroll up
r�0:�135
|/� type%*�gs=8 � start=0 � lines>16:lines=16
�finish=start+lines*&10-1
�� mem=start � finish � &10
�  hex$="":ascii$=""
�  � offset=0 � 15
�,    �((offset+1)�&13)=0:k$=�140 � k$=" "
�$    h$=�~(?(mem%+mem+offset))+k$
�    � �h$=2:h$="0"+h$
�     a$=�(?(mem%+mem+offset))
�    � a$>�127:a$=�(�a$-128)
�"    � a$<" " � a$>=�127:a$="."
�    hex$+=h$:ascii$+=a$
�  �
�  mem$=�~mem
   ȕ �mem$<3:mem$="0"+mem$:�
   ȕ �mem$<6:mem$=" "+mem$:�
  � mem$;�3;hex$;�2;ascii$;
&&  � mem<finish-16:�:� mem=finish+1
0�
:-� type%*�gs=8 � start=0:�28,1,29,78,23,12
D�26
N� diskerr �
X4  x$="":yy=4:�:zz=diskerr?yy:x$+=�zz:yy+=1:�zz=0
b6  �1:�window(34-�x$/2,16,�x$,3,10,x$):�0:diskerr=0
l  �
v�
�
�
� �bfr
�
� dx=54:�
�.� dx<54:sr$="Stored "+id$:B%=mem%:A%=bmem%
�7� dx>54:�sr$,6)="Recall":B%=bmem%:A%=mem%:changed=�
�C%=A%+bfsz:� copy
�&� A%=mem%:�display(start,lines,-1)
��5:�31,5)sr$;:�0
��
�
�
� �ptr(x)
��("POINTER "+�x)
�'� x=1:ȗ x,y,b:� y<848:ȗ � 320,848
�

� �help
 �:ȗ x,y,z:� z=0:*FX15
*s�0,0)"To move around the disc click mouse ""select"" button on one of the arrows"'"of Track, Head, or Sector."
4��'"Alternatively, click on the box with current values of Track, Head, Sector"'"or the next box, which is ""Absolute Sector Address"" and enter new value(s)."
>��"Pressing <RETN> only, leaves an existing value unchanged. If data has been"'"changed, reply to ""Save?"" message by a click on [Y] or [N]."
HE�'"Change Drive similarly. (No entry needed on a 2-drive system)"
RB�'"Click on * box to enter commands. Finish with <RETN> only."
\}�'"To edit data, click ""select"" on hex or text and enter new hex or text."'"To finish press <ESC> or click ""adjust""."
fY�'"To scroll display use Page Up/Down keys, click ""select"" or  ""adjust"" on Addr:"
pW�"column or";:�1:�" Addr:";:�0:�" or drag with ""menu"" button over the data area."
zH�'"To reset for a new disc, click on ";:�1:�"Universal ";:�0:�"box."
�N�'"s/r to store/recall sector data to/from aux. buffer. Use with caution."
�I�'"Clicking on Size box treats sectors as clusters of ";bfsz/1024;"K"
�>�"The cluster size (bfsz) can be altered in the program.";
��:ȗ x,y,z:�(�0>-1) � z
��
�
�� �assem
�� X=0 � 2 � 2
�P%=mcode:[OPT X
�H.copy;                A%=to, B%=from, C%=end_to+1 (all word-aligned)
�LDR R3,[R1],#4
�STR R3,[R0],#4
�CMP R0,R2:BCC copy
MOV PC,R14
I.zero;                A%=to, B%=0, C%=end_to+1 (only C% word-aligned)
STRB R1,[R0],#1
$�S R4,R0,#3:BNE zero
..z2
8STR R1,[R0],#4
BCMP R0,R2:BCC z2
LMOV PC,R14
V]:�
`�
�

00000000  0d 00 0a 40 f4 20 3e 44  69 73 6b 45 64 20 20 55  |...@. >DiskEd  U|
00000010  6e 69 76 65 72 73 61 6c  20 44 69 73 6b 20 45 64  |niversal Disk Ed|
00000020  69 74 6f 72 20 66 6f 72  20 61 6e 79 20 41 72 63  |itor for any Arc|
00000030  20 6f 72 20 4d 53 44 4f  53 20 66 6f 72 6d 61 74  | or MSDOS format|
00000040  0d 00 14 42 f4 20 41 2e  50 2e 4c 6f 6f 6b 20 32  |...B. A.P.Look 2|
00000050  33 2f 32 2f 38 38 20 28  41 72 63 68 69 76 65 20  |3/2/88 (Archive |
00000060  6d 61 67 2e 20 33 2f 38  38 29 20 2d 20 45 78 74  |mag. 3/88) - Ext|
00000070  65 6e 64 65 64 20 54 2e  42 2e 20 32 38 2f 31 2f  |ended T.B. 28/1/|
00000080  38 39 0d 00 1e 42 f4 20  36 34 30 6b 20 64 69 73  |89...B. 640k dis|
00000090  63 61 64 64 72 20 63 6f  72 72 65 63 74 65 64 2c  |caddr corrected,|
000000a0  20 38 30 30 45 20 28 74  79 70 65 25 3d 31 31 29  | 800E (type%=11)|
000000b0  20 61 64 64 65 64 20 20  54 2e 42 2e 20 31 37 2f  | added  T.B. 17/|
000000c0  35 2f 38 39 0d 00 28 04  0d 00 32 41 eb 31 32 3a  |5/89..(...2A.12:|
000000d0  c8 99 20 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |.. "Wimp_Initial|
000000e0  69 73 65 22 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |ise":.. "Wimp_Cl|
000000f0  6f 73 65 44 6f 77 6e 22  3a f4 20 64 65 66 69 6e  |oseDown":. defin|
00000100  65 73 20 63 68 61 72 73  2e 0d 00 3c 10 eb 31 32  |es chars...<..12|
00000110  3a 87 3a 2a 46 58 34 20  32 0d 00 46 2a fb 35 2c  |:.:*FX4 2..F*.5,|
00000120  26 41 30 2c 30 2c 26 46  30 3a fb 33 2c 26 46 30  |&A0,0,&F0:.3,&F0|
00000130  2c 26 41 30 2c 30 3a fb  36 2c 30 2c 26 41 30 2c  |,&A0,0:.6,0,&A0,|
00000140  26 41 30 0d 00 50 04 0d  00 5a 41 62 66 73 7a 3d  |&A0..P...ZAbfsz=|
00000150  31 2a 31 30 32 34 20 3a  f4 20 43 61 6e 20 62 65  |1*1024 :. Can be|
00000160  20 73 65 74 20 6d 75 63  68 20 68 69 67 68 65 72  | set much higher|
00000170  20 28 74 6f 20 61 20 6d  75 6c 74 69 70 6c 65 20  | (to a multiple |
00000180  6f 66 20 31 30 32 34 29  0d 00 64 49 f4 20 43 6c  |of 1024)..dI. Cl|
00000190  69 63 6b 69 6e 67 20 22  53 69 7a 65 22 20 62 6f  |icking "Size" bo|
000001a0  78 20 74 6f 20 67 72 65  65 6e 20 63 61 75 73 65  |x to green cause|
000001b0  73 20 61 6c 6c 20 6c 6f  61 64 73 2c 20 73 61 76  |s all loads, sav|
000001c0  65 73 2c 20 73 74 6f 72  65 2c 20 72 65 63 61 6c  |es, store, recal|
000001d0  6c 0d 00 6e 4a f4 20 74  6f 20 64 65 61 6c 20 69  |l..nJ. to deal i|
000001e0  6e 20 73 65 63 74 6f 72  20 62 6c 6f 63 6b 73 20  |n sector blocks |
000001f0  74 6f 20 66 75 6c 6c 20  62 66 73 7a 2e 20 53 65  |to full bfsz. Se|
00000200  63 74 6f 72 20 73 74 65  70 70 69 6e 67 20 77 69  |ctor stepping wi|
00000210  74 68 20 22 53 65 6c 65  63 74 22 0d 00 78 40 f4  |th "Select"..x@.|
00000220  20 6d 6f 76 65 73 20 62  79 20 62 66 73 7a 2e 20  | moves by bfsz. |
00000230  53 74 6f 72 65 2f 72 65  63 61 6c 6c 20 63 61 6e  |Store/recall can|
00000240  20 62 65 20 75 73 65 64  20 74 6f 20 63 6f 70 79  | be used to copy|
00000250  20 61 20 62 6c 6f 63 6b  20 74 6f 0d 00 82 32 f4  | a block to...2.|
00000260  20 61 6e 6f 74 68 65 72  20 64 69 73 63 20 28 61  | another disc (a|
00000270  6e 79 20 74 79 70 65 2c  20 65 76 65 6e 20 74 6f  |ny type, even to|
00000280  2f 66 72 6f 6d 20 4d 53  44 4f 53 29 2e 0d 00 8c  |/from MSDOS)....|
00000290  47 f4 20 53 69 7a 65 20  62 6f 78 20 72 65 64 3a  |G. Size box red:|
000002a0  20 64 65 61 6c 73 20 77  69 74 68 20 6f 6e 65 20  | deals with one |
000002b0  73 65 63 74 6f 72 2e 20  49 66 20 63 6f 70 69 65  |sector. If copie|
000002c0  64 20 74 6f 20 61 6e 6f  74 68 65 72 20 64 69 73  |d to another dis|
000002d0  63 20 6f 66 0d 00 96 39  f4 20 64 69 66 66 65 72  |c of...9. differ|
000002e0  65 6e 74 20 73 65 63 74  6f 72 20 73 69 7a 65 20  |ent sector size |
000002f0  62 75 66 66 65 72 20 74  72 75 6e 63 61 74 65 64  |buffer truncated|
00000300  2f 7a 65 72 6f 2d 70 61  64 64 65 64 2e 0d 00 a0  |/zero-padded....|
00000310  04 0d 00 aa 38 de 20 6d  65 6d 25 20 62 66 73 7a  |....8. mem% bfsz|
00000320  2b 34 2c 62 6d 65 6d 25  20 62 66 73 7a 2b 34 2c  |+4,bmem% bfsz+4,|
00000330  62 6c 6b 25 20 31 30 30  2c 68 75 67 6f 25 20 38  |blk% 100,hugo% 8|
00000340  2c 6d 63 6f 64 65 20 36  30 0d 00 b4 04 0d 00 be  |,mcode 60.......|
00000350  28 64 72 25 3d 30 3a 69  64 24 3d 22 20 20 3f 3f  |(dr%=0:id$="  ??|
00000360  3f 3f 20 20 22 3a 73 72  24 3d c4 37 2c 22 20 22  |??  ":sr$=.7," "|
00000370  29 2b 69 64 24 0d 00 c8  20 f2 61 73 73 65 6d 3a  |)+id$... .assem:|
00000380  64 78 3d 31 3a 67 73 3d  31 3a f2 69 6e 69 74 69  |dx=1:gs=1:.initi|
00000390  61 6c 69 73 65 0d 00 d2  18 ee 20 85 20 f2 65 72  |alise..... . .er|
000003a0  72 6f 72 3a 87 3a f2 70  74 72 28 31 29 0d 00 dc  |ror:.:.ptr(1)...|
000003b0  04 0d 00 e6 14 f5 3a f2  69 6e 70 75 74 63 6d 64  |......:.inputcmd|
000003c0  73 3a fd 20 30 0d 00 f0  04 0d 00 fa 0c dd 20 f2  |s:. 0......... .|
000003d0  65 72 72 6f 72 0d 01 04  2d e7 20 9f 3d 31 37 3a  |error...-. .=17:|
000003e0  ff 22 46 58 34 20 32 22  3a f2 64 69 73 70 6c 61  |."FX4 2":.displa|
000003f0  79 28 73 74 61 72 74 2c  6c 69 6e 65 73 2c 31 29  |y(start,lines,1)|
00000400  3a e1 0d 01 0e 18 78 24  3d f6 24 2b 22 20 61 74  |:.....x$=.$+" at|
00000410  20 6c 69 6e 65 20 22 2b  c3 9e 0d 01 18 2f fb 31  | line "+...../.1|
00000420  3a f2 77 69 6e 64 6f 77  28 33 34 2d a9 78 24 2f  |:.window(34-.x$/|
00000430  32 2c 31 36 2c a9 78 24  2c 33 2c 31 30 2c 78 24  |2,16,.x$,3,10,x$|
00000440  29 3a f2 70 74 72 28 30  29 0d 01 22 24 ef 32 36  |):.ptr(0).."$.26|
00000450  3a ee 3a fb 37 3a fb 31  33 32 3a f1 8a 30 2c 33  |:.:.7:.132:..0,3|
00000460  31 29 89 37 39 3b 8a 30  2c 33 31 29 3b 0d 01 2c  |1).79;.0,31);..,|
00000470  08 2a 46 58 34 0d 01 36  05 e0 0d 01 40 04 0d 01  |.*FX4..6....@...|
00000480  4a 11 dd 20 f2 69 6e 69  74 69 61 6c 69 73 65 0d  |J.. .initialise.|
00000490  01 54 0d 63 68 61 6e 67  65 64 3d a3 0d 01 5e 2c  |.T.changed=...^,|
000004a0  68 65 61 64 3d 30 3a 73  65 63 74 6f 72 3d 30 3a  |head=0:sector=0:|
000004b0  74 72 61 63 6b 3d 30 3a  73 74 61 72 74 3d 30 3a  |track=0:start=0:|
000004c0  6c 69 6e 65 73 3d 32 33  0d 01 68 09 f2 73 69 7a  |lines=23..h..siz|
000004d0  65 0d 01 72 24 ef 31 39  2c 30 2c 32 34 2c 30 2c  |e..r$.19,0,24,0,|
000004e0  30 2c 32 35 35 7c 3a fb  31 33 32 3a db 3a fb 31  |0,255|:.132:.:.1|
000004f0  33 35 3a fb 34 0d 01 7c  2b ef 32 33 2c 31 34 30  |35:.4..|+.23,140|
00000500  2c 26 31 38 2c 26 31 38  2c 26 31 38 2c 26 31 38  |,&18,&18,&18,&18|
*
00000520  0d 01 86 09 f2 6d 65 6e  75 0d 01 90 14 f2 6e 65  |.....menu.....ne|
00000530  78 74 28 30 29 3a f2 70  74 72 28 31 29 0d 01 9a  |xt(0):.ptr(1)...|
00000540  05 e1 0d 01 a4 04 0d 01  ae 0b dd 20 f2 6d 65 6e  |........... .men|
00000550  75 0d 01 b8 06 fb 30 0d  01 c2 1d f2 77 69 6e 64  |u.....0.....wind|
00000560  6f 77 28 32 2c 31 2c 34  2c 31 2c 34 2c 22 48 65  |ow(2,1,4,1,4,"He|
00000570  6c 70 22 29 0d 01 cc 06  fb 31 0d 01 d6 1f f2 77  |lp").....1.....w|
00000580  69 6e 64 6f 77 28 38 2c  31 2c 31 36 2c 31 2c 34  |indow(8,1,16,1,4|
00000590  2c 22 44 69 73 63 3a 22  29 0d 01 e0 32 f2 77 69  |,"Disc:")...2.wi|
000005a0  6e 64 6f 77 28 32 36 2c  31 2c 32 34 2c 31 2c 34  |ndow(26,1,24,1,4|
000005b0  2c 22 20 55 6e 69 76 65  72 73 61 6c 20 44 69 73  |," Universal Dis|
000005c0  63 20 45 64 69 74 6f 72  20 22 29 0d 01 ea 0d e7  |c Editor ").....|
000005d0  20 67 73 3e 31 3a fb 36  0d 01 f4 20 f2 77 69 6e  | gs>1:.6... .win|
000005e0  64 6f 77 28 35 38 2c 31  2c 31 30 2c 31 2c 34 2c  |dow(58,1,10,1,4,|
000005f0  22 53 69 7a 65 3a 22 29  0d 01 fe 06 fb 35 0d 02  |"Size:").....5..|
00000600  08 1b f2 77 69 6e 64 6f  77 28 35 32 2c 31 2c 31  |...window(52,1,1|
00000610  2c 31 2c 34 2c 22 73 22  29 0d 02 12 1b f2 77 69  |,1,4,"s").....wi|
00000620  6e 64 6f 77 28 35 35 2c  31 2c 31 2c 31 2c 34 2c  |ndow(55,1,1,1,4,|
00000630  22 72 22 29 0d 02 1c 06  fb 30 0d 02 26 20 f2 77  |"r").....0..& .w|
00000640  69 6e 64 6f 77 28 37 30  2c 31 2c 38 2c 31 2c 34  |indow(70,1,8,1,4|
00000650  2c 22 44 72 69 76 65 3a  22 29 0d 02 30 1a f2 77  |,"Drive:")..0..w|
00000660  69 6e 64 6f 77 28 31 2c  33 2c 31 2c 31 2c 34 2c  |indow(1,3,1,1,4,|
00000670  22 2a 22 29 0d 02 3a 1e  f2 77 69 6e 64 6f 77 28  |"*")..:..window(|
00000680  34 2c 33 2c 35 2c 31 2c  34 2c 22 51 75 69 74 20  |4,3,5,1,4,"Quit |
00000690  22 29 0d 02 44 2b f2 77  69 6e 64 6f 77 28 31 31  |")..D+.window(11|
000006a0  2c 33 2c 39 2c 31 2c 34  2c bd 31 33 36 2b 22 20  |,3,9,1,4,.136+" |
000006b0  54 72 61 63 6b 20 22 2b  bd 31 33 37 29 0d 02 4e  |Track "+.137)..N|
000006c0  2a f2 77 69 6e 64 6f 77  28 32 32 2c 33 2c 38 2c  |*.window(22,3,8,|
000006d0  31 2c 34 2c bd 31 33 36  2b 22 20 48 65 61 64 20  |1,4,.136+" Head |
000006e0  22 2b bd 31 33 37 29 0d  02 58 2d f2 77 69 6e 64  |"+.137)..X-.wind|
000006f0  6f 77 28 33 32 2c 33 2c  31 30 2c 31 2c 34 2c bd  |ow(32,3,10,1,4,.|
00000700  31 33 36 2b 22 20 53 65  63 74 6f 72 20 22 2b bd  |136+" Sector "+.|
00000710  31 33 37 29 0d 02 62 34  f2 77 69 6e 64 6f 77 28  |137)..b4.window(|
00000720  34 34 2c 33 2c 32 35 2c  31 2c 34 2c 22 54 72 61  |44,3,25,1,4,"Tra|
00000730  63 6b 3a 20 20 20 48 65  61 64 3a 20 20 53 65 63  |ck:   Head:  Sec|
00000740  74 6f 72 3a 20 20 22 29  0d 02 6c 1a f2 77 69 6e  |tor:  ")..l..win|
00000750  64 6f 77 28 37 31 2c 33  2c 38 2c 31 2c 34 2c 22  |dow(71,3,8,1,4,"|
00000760  22 29 0d 02 76 1b f2 77  69 6e 64 6f 77 28 31 2c  |")..v..window(1,|
00000770  35 2c 37 38 2c 32 36 2c  34 2c 22 22 29 0d 02 80  |5,78,26,4,"")...|
00000780  32 fb 31 2d 35 2a 28 67  73 3e 31 29 3a f1 8a 31  |2.1-5*(gs>1):..1|
00000790  33 2c 35 29 22 42 75 66  72 3a 22 3b a8 67 73 2a  |3,5)"Bufr:";.gs*|
000007a0  62 70 73 65 63 2f 31 30  32 34 3b 22 4b 22 3b 0d  |bpsec/1024;"K";.|
000007b0  02 8a 0c f2 6f 64 64 6c  69 6e 65 0d 02 94 19 fb  |....oddline.....|
000007c0  30 3a f1 8a 31 34 2c 31  29 6e 6d 24 3b 8a 36 34  |0:..14,1)nm$;.64|
000007d0  2c 31 29 3b 0d 02 9e 24  e7 20 73 74 61 74 65 64  |,1);...$. stated|
000007e0  73 69 7a 65 3a f1 3b 73  74 61 74 65 64 73 69 7a  |size:.;statedsiz|
000007f0  65 20 81 31 30 32 34 3b  0d 02 a8 31 e7 20 74 79  |e .1024;...1. ty|
00000800  70 65 25 3d 31 31 3a f1  22 45 22 3b 20 8b e7 20  |pe%=11:."E"; .. |
00000810  73 74 61 74 65 64 73 69  7a 65 3a f1 22 4b 22 3b  |statedsize:."K";|
00000820  20 8b f1 22 20 3f 3f 22  3b 0d 02 b2 29 f1 8a 37  | .." ??";...)..7|
00000830  37 2c 31 29 3b 64 72 25  3b 3a e7 20 97 73 72 24  |7,1);dr%;:. .sr$|
00000840  3e 33 32 3a fb 35 3a f1  8a 33 31 2c 35 29 73 72  |>32:.5:..31,5)sr|
00000850  24 3b 0d 02 bc 0b f2 75  70 64 61 74 65 0d 02 c6  |$;.....update...|
00000860  05 e1 0d 02 d0 04 0d 02  da 0d dd 20 f2 75 70 64  |........... .upd|
00000870  61 74 65 0d 02 e4 3e fb  30 3a f1 8a 35 30 2c 33  |ate...>.0:..50,3|
00000880  29 3b 74 72 61 63 6b 3b  22 20 22 3b 8a 35 38 2c  |);track;" ";.58,|
00000890  33 29 3b 68 65 61 64 3b  8a 36 37 2c 33 29 22 20  |3);head;.67,3)" |
000008a0  20 22 3b 8a 36 37 2c 33  29 3b 73 65 63 74 6f 72  | ";.67,3);sector|
000008b0  3b 0d 02 ee 3a 64 61 24  3d c2 22 30 30 30 30 30  |;...:da$=."00000|
000008c0  30 30 22 2b c3 7e a4 64  69 73 63 61 64 64 72 28  |00"+.~.discaddr(|
000008d0  68 65 61 64 2c 73 65 63  74 6f 72 2c 74 72 61 63  |head,sector,trac|
000008e0  6b 2c 74 79 70 65 25 29  2c 38 29 0d 02 f8 84 e7  |k,type%),8).....|
000008f0  20 74 79 70 65 25 3d 39  3a 64 61 24 3d c2 22 30  | type%=9:da$=."0|
00000900  30 30 30 30 30 30 22 2b  c3 7e a0 28 22 26 22 2b  |000000"+.~.("&"+|
00000910  64 61 24 2b c3 28 2d 28  74 72 61 63 6b 2a 68 65  |da$+.(-(track*he|
00000920  61 64 73 2b 68 65 61 64  2b 31 29 2a 62 70 73 65  |ads+head+1)*bpse|
00000930  63 29 29 2c 38 29 3a f4  20 22 72 65 61 6c 22 20  |c)),8):. "real" |
00000940  64 69 73 63 20 61 64 64  72 2e 20 44 69 73 63 20  |disc addr. Disc |
00000950  61 64 64 72 20 61 63 74  2e 75 73 65 64 20 70 72  |addr act.used pr|
00000960  65 74 65 6e 64 73 20 73  70 74 72 6b 3d 31 30 0d  |etends sptrk=10.|
00000970  03 02 0f f1 8a 37 31 2c  33 29 64 61 24 3b 0d 03  |.....71,3)da$;..|
00000980  0c 05 e1 0d 03 16 04 0d  03 20 0e dd 20 f2 6f 64  |......... .. .od|
00000990  64 6c 69 6e 65 0d 03 2a  0f f1 8a 31 38 2c 36 29  |dline..*...18,6)|
000009a0  89 34 30 3b 0d 03 34 14  e6 30 2c 31 3a ef 35 3a  |.40;..4..0,1:.5:|
000009b0  ec 20 36 34 2c 38 34 38  0d 03 3e 2a f1 22 41 64  |. 64,848..>*."Ad|
000009c0  64 72 3a 22 3b 89 31 36  3b 22 48 65 78 3a 22 3b  |dr:";.16;"Hex:";|
000009d0  89 33 37 3b 22 41 53 43  49 49 3a 22 3b 3a ef 34  |.37;"ASCII:";:.4|
000009e0  3a 87 0d 03 48 05 e1 0d  03 52 04 0d 03 5c 22 dd  |:...H....R...\".|
000009f0  20 f2 77 69 6e 64 6f 77  28 78 2c 79 2c 73 78 2c  | .window(x,y,sx,|
00000a00  73 79 2c 64 2c 73 74 72  69 6e 67 24 29 0d 03 66  |sy,d,string$)..f|
00000a10  1b 78 3d 78 2a 31 36 3a  79 3d 31 30 32 34 2d 28  |.x=x*16:y=1024-(|
00000a20  79 2b 73 79 29 2a 33 32  0d 03 70 15 73 78 3d 73  |y+sy)*32..p.sx=s|
00000a30  78 2a 31 36 3a 73 79 3d  73 79 2a 33 32 0d 03 7a  |x*16:sy=sy*32..z|
00000a40  28 e6 30 2c 37 3a c8 93  20 c8 90 20 78 2d 33 2a  |(.0,7:.. .. x-3*|
00000a50  64 2c 79 2d 33 2a 64 2c  73 78 2b 36 2a 64 2c 73  |d,y-3*d,sx+6*d,s|
00000a60  79 2b 36 2a 64 0d 03 84  2a e6 30 2c 30 3a c8 93  |y+6*d...*.0,0:..|
00000a70  20 20 20 20 20 20 78 2d  32 2a 64 2c 79 2d 32 2a  |      x-2*d,y-2*|
00000a80  64 2c 73 78 2b 34 2a 64  2c 73 79 2b 34 2a 64 0d  |d,sx+4*d,sy+4*d.|
00000a90  03 8e 2a f1 8a 78 2f 31  36 2c 28 31 30 32 34 2d  |..*..x/16,(1024-|
00000aa0  79 29 2f 33 32 2d 31 2d  28 73 79 20 81 36 34 29  |y)/32-1-(sy .64)|
00000ab0  29 73 74 72 69 6e 67 24  3b 0d 03 98 05 e1 0d 03  |)string$;.......|
00000ac0  a2 04 0d 03 ac 10 dd 20  f2 69 6e 70 75 74 63 6d  |....... .inputcm|
00000ad0  64 73 0d 03 b6 05 f5 0d  03 c0 14 20 20 c8 97 20  |ds.........  .. |
00000ae0  78 2c 79 2c 62 75 74 74  6f 6e 73 0d 03 ca 2d 20  |x,y,buttons...- |
00000af0  20 64 7a 3d a6 30 3a e7  20 64 7a 3d 31 34 33 20  | dz=.0:. dz=143 |
00000b00  84 20 64 7a 3d 31 34 32  3a f2 70 61 67 65 3a 62  |. dz=142:.page:b|
00000b10  75 74 74 6f 6e 73 3d 30  0d 03 d4 1b fd 20 62 75  |uttons=0..... bu|
00000b20  74 74 6f 6e 73 3c 3e 30  20 80 20 b0 78 2c 79 29  |ttons<>0 . .x,y)|
00000b30  3c 3e 34 0d 03 de 16 64  78 3d 78 2f 31 36 3a 64  |<>4....dx=x/16:d|
00000b40  79 3d 33 32 2d 79 2f 33  32 0d 03 e8 18 e7 20 64  |y=32-y/32..... d|
00000b50  79 3c 32 20 80 20 62 75  74 74 6f 6e 73 3d 34 20  |y<2 . buttons=4 |
00000b60  8c 0d 03 f2 30 20 20 e7  20 64 78 3e 37 30 3a f2  |....0  . dx>70:.|
00000b70  64 72 69 76 65 3a 64 78  3d 30 20 8b e7 20 64 78  |drive:dx=0 .. dx|
00000b80  3c 37 3a f2 73 74 61 72  28 b9 29 3a 64 78 3d 35  |<7:.star(.):dx=5|
00000b90  38 0d 03 fc 0f 20 20 e7  20 64 78 3e 35 38 20 8c  |8....  . dx>58 .|
00000ba0  0d 04 06 24 20 20 e7 20  67 73 3d 31 3a 67 73 3d  |...$  . gs=1:gs=|
00000bb0  62 66 73 7a 2f 62 70 73  65 63 2b 2e 35 20 8b 20  |bfsz/bpsec+.5 . |
00000bc0  67 73 3d 31 0d 04 10 1a  20 20 f2 6d 65 6e 75 3a  |gs=1....  .menu:|
00000bd0  f2 6e 65 78 74 28 30 29  3a 64 78 3d 35 39 0d 04  |.next(0):dx=59..|
00000be0  1a 07 20 20 cd 0d 04 24  19 20 20 e7 20 64 78 3c  |..  ...$.  . dx<|
00000bf0  35 31 3a f2 69 6e 69 74  69 61 6c 69 73 65 0d 04  |51:.initialise..|
00000c00  2e 1a 20 20 e7 20 64 78  3e 35 31 20 80 20 64 78  |..  . dx>51 . dx|
00000c10  3c 35 37 3a f2 62 66 72  0d 04 38 07 20 20 cd 0d  |<57:.bfr..8.  ..|
00000c20  04 42 14 e7 20 64 79 3e  37 20 80 20 64 79 3c 33  |.B.. dy>7 . dy<3|
00000c30  30 20 8c 0d 04 4c 1f 20  20 e7 20 64 78 3c 37 20  |0 ...L.  . dx<7 |
00000c40  80 20 62 75 74 74 6f 6e  73 3c 3e 32 3a f2 70 61  |. buttons<>2:.pa|
00000c50  67 65 0d 04 56 17 20 20  e7 20 64 78 3e 31 30 20  |ge..V.  . dx>10 |
00000c60  80 20 64 78 3c 37 36 20  8c 0d 04 60 19 20 20 20  |. dx<76 ...`.   |
00000c70  20 e7 20 62 75 74 74 6f  6e 73 3d 32 3a f2 6d 6f  | . buttons=2:.mo|
00000c80  76 65 0d 04 6a 1b 20 20  20 20 e7 20 62 75 74 74  |ve..j.    . butt|
00000c90  6f 6e 73 3d 34 3a f2 63  68 61 6e 67 65 0d 04 74  |ons=4:.change..t|
00000ca0  07 20 20 cd 0d 04 7e 05  cd 0d 04 88 2a e7 20 a8  |.  ...~.....*. .|
00000cb0  28 64 79 29 3d 33 20 80  20 64 78 3c 37 39 20 80  |(dy)=3 . dx<79 .|
00000cc0  20 62 75 74 74 6f 6e 73  3c 3e 32 3a f2 73 65 6c  | buttons<>2:.sel|
00000cd0  65 63 74 0d 04 92 1c e7  20 64 79 3e 35 20 80 20  |ect..... dy>5 . |
00000ce0  64 79 3c 36 2e 35 20 80  20 64 78 3c 38 20 8c 0d  |dy<6.5 . dx<8 ..|
00000cf0  04 9c 47 20 20 e7 20 62  75 74 74 6f 6e 73 3d 31  |..G  . buttons=1|
00000d00  3a 73 74 61 72 74 3d 30  20 8b 20 73 74 61 72 74  |:start=0 . start|
00000d10  3d a8 67 73 2a 62 70 73  65 63 2d 6c 69 6e 65 73  |=.gs*bpsec-lines|
00000d20  2a 26 31 30 3a e7 20 73  74 61 72 74 3c 30 3a 73  |*&10:. start<0:s|
00000d30  74 61 72 74 3d 30 0d 04  a6 1e 20 20 f2 64 69 73  |tart=0....  .dis|
00000d40  70 6c 61 79 28 73 74 61  72 74 2c 6c 69 6e 65 73  |play(start,lines|
00000d50  2c 2d 31 29 0d 04 b0 07  20 20 cd 0d 04 ba 05 e1  |,-1)....  ......|
00000d60  0d 04 c4 04 0d 04 ce 0d  dd 20 f2 73 65 6c 65 63  |......... .selec|
00000d70  74 0d 04 d8 16 e7 20 64  78 3e 37 30 20 3a 20 f2  |t..... dx>70 : .|
00000d80  69 6e 70 61 64 64 72 0d  04 e2 14 e7 20 64 78 3e  |inpaddr..... dx>|
00000d90  34 33 20 3a 20 f2 69 6e  70 75 74 0d 04 ec 1c e7  |43 : .input.....|
00000da0  20 64 78 3e 33 37 20 3a  20 64 69 72 3d 31 20 8b  | dx>37 : dir=1 .|
00000db0  20 64 69 72 3d 2d 31 0d  04 f6 42 e7 20 64 78 3e  | dir=-1...B. dx>|
00000dc0  33 31 20 3a 20 f2 73 61  76 65 3a 73 65 63 74 6f  |31 : .save:secto|
00000dd0  72 2b 3d 64 69 72 2a 28  31 2d 28 a8 67 73 2d 31  |r+=dir*(1-(.gs-1|
00000de0  29 2a 28 62 75 74 74 6f  6e 73 3d 34 29 29 3a f2  |)*(buttons=4)):.|
00000df0  6e 65 78 74 28 64 69 72  29 0d 05 00 1c e7 20 64  |next(dir)..... d|
00000e00  78 3e 32 36 20 3a 20 64  69 72 3d 31 20 8b 20 64  |x>26 : dir=1 . d|
00000e10  69 72 3d 2d 31 0d 05 0a  28 e7 20 64 78 3e 32 31  |ir=-1...(. dx>21|
00000e20  20 3a 20 f2 73 61 76 65  3a 68 65 61 64 2b 3d 64  | : .save:head+=d|
00000e30  69 72 3a f2 6e 65 78 74  28 64 69 72 29 0d 05 14  |ir:.next(dir)...|
00000e40  1c e7 20 64 78 3e 31 36  20 3a 20 64 69 72 3d 31  |.. dx>16 : dir=1|
00000e50  20 8b 20 64 69 72 3d 2d  31 0d 05 1e 29 e7 20 64  | . dir=-1...). d|
00000e60  78 3e 31 30 20 3a 20 f2  73 61 76 65 3a 74 72 61  |x>10 : .save:tra|
00000e70  63 6b 2b 3d 64 69 72 3a  f2 6e 65 78 74 28 64 69  |ck+=dir:.next(di|
00000e80  72 29 0d 05 28 14 e7 20  64 78 3e 33 20 20 3a 20  |r)..(.. dx>3  : |
00000e90  f2 6c 65 61 76 65 0d 05  32 16 e7 20 64 78 3e 30  |.leave..2.. dx>0|
00000ea0  20 20 3a 20 f2 73 74 61  72 28 a3 29 0d 05 3c 15  |  : .star(.)..<.|
00000eb0  f2 75 70 64 61 74 65 3a  64 78 3d 30 3a 64 79 3d  |.update:dx=0:dy=|
00000ec0  30 0d 05 46 05 e1 0d 05  50 04 0d 05 5a 0d dd 20  |0..F....P...Z.. |
00000ed0  f2 63 68 61 6e 67 65 0d  05 64 15 64 78 3d a8 28  |.change..d.dx=.(|
00000ee0  64 78 29 3a 64 79 3d a8  28 64 79 29 0d 05 6e 20  |dx):dy=.(dy)..n |
00000ef0  e7 20 64 78 3e 35 39 3a  f2 74 65 78 74 3a 8b 20  |. dx>59:.text:. |
00000f00  e7 20 64 78 3c 35 37 3a  f2 68 65 78 0d 05 78 05  |. dx<57:.hex..x.|
00000f10  e1 0d 05 82 04 0d 05 8c  0b dd 20 f2 74 65 78 74  |.......... .text|
00000f20  0d 05 96 0b f2 70 74 72  28 30 29 0d 05 a0 09 2a  |.....ptr(0)....*|
00000f30  46 58 32 31 0d 05 aa 05  f5 0d 05 b4 21 20 20 70  |FX21........!  p|
00000f40  6f 73 3d 28 64 78 2d 36  30 29 2b 28 64 79 2d 37  |os=(dx-60)+(dy-7|
00000f50  29 2a 31 36 2b 73 74 61  72 74 0d 05 be 31 20 20  |)*16+start...1  |
00000f60  64 61 74 61 3d 6d 65 6d  25 3f 70 6f 73 3a e7 20  |data=mem%?pos:. |
00000f70  64 61 74 61 3c 33 32 20  84 20 64 61 74 61 3e 3d  |data<32 . data>=|
00000f80  31 32 37 3a 64 61 74 61  3d 34 36 0d 05 c8 11 20  |127:data=46.... |
00000f90  20 64 61 74 61 24 3d bd  64 61 74 61 0d 05 d2 0d  | data$=.data....|
00000fa0  20 20 fb 31 33 32 3a fb  37 0d 05 dc 14 20 20 f1  |  .132:.7....  .|
00000fb0  8a 64 78 2c 64 79 29 64  61 74 61 24 3b 0d 05 e6  |.dx,dy)data$;...|
00000fc0  2f 20 20 f5 3a 62 3d a6  30 3a c8 97 20 78 2c 79  |/  .:b=.0:.. x,y|
00000fd0  2c 62 75 74 74 6f 6e 73  3a fd 20 62 3c 3e 2d 31  |,buttons:. b<>-1|
00000fe0  20 84 20 62 75 74 74 6f  6e 73 3d 31 0d 05 f0 0f  | . buttons=1....|
00000ff0  20 20 e7 20 62 3c 3e 2d  31 20 8c 0d 05 fa 1c 20  |  . b<>-1 ..... |
00001000  20 20 20 e7 20 62 3c 3e  64 61 74 61 3a 20 63 68  |   . b<>data: ch|
00001010  61 6e 67 65 64 3d b9 0d  06 04 12 20 20 20 20 6d  |anged=.....    m|
00001020  65 6d 25 3f 70 6f 73 3d  62 0d 06 0e 3b 20 20 20  |em%?pos=b...;   |
00001030  20 f2 64 69 73 70 6c 61  79 28 73 74 61 72 74 2c  | .display(start,|
00001040  31 2c 64 79 29 20 20 20  20 20 20 20 20 20 20 20  |1,dy)           |
00001050  20 20 20 20 20 20 20 20  20 3a f4 20 20 36 3c 64  |         :.  6<d|
00001060  79 3c 33 30 0d 06 18 21  20 20 20 20 64 78 2b 3d  |y<30...!    dx+=|
00001070  31 3a e7 20 64 78 3e 37  35 3a 64 78 3d 36 30 3a  |1:. dx>75:dx=60:|
00001080  64 79 2b 3d 31 0d 06 22  07 20 20 cd 0d 06 2c 2e  |dy+=1..".  ...,.|
00001090  fd 20 64 79 3d 33 30 20  84 20 62 75 74 74 6f 6e  |. dy=30 . button|
000010a0  73 3d 31 20 84 28 64 79  3d 32 33 20 80 20 74 79  |s=1 .(dy=23 . ty|
000010b0  70 65 25 2a a8 67 73 3d  38 29 0d 06 36 24 e7 20  |pe%*.gs=8)..6$. |
000010c0  62 75 74 74 6f 6e 73 3d  31 3a f2 64 69 73 70 6c  |buttons=1:.displ|
000010d0  61 79 28 73 74 61 72 74  2c 31 2c 64 79 29 0d 06  |ay(start,1,dy)..|
000010e0  40 0b f2 70 74 72 28 31  29 0d 06 4a 05 e1 0d 06  |@..ptr(1)..J....|
000010f0  54 04 0d 06 5e 0a dd 20  f2 68 65 78 0d 06 68 0b  |T...^.. .hex..h.|
00001100  f2 70 74 72 28 30 29 0d  06 72 09 2a 46 58 32 31  |.ptr(0)..r.*FX21|
00001110  0d 06 7c 05 f5 0d 06 86  19 20 20 e7 20 28 64 78  |..|......  . (dx|
00001120  2d 31 30 29 83 33 3d 32  3a 64 78 2b 3d 31 0d 06  |-10).3=2:dx+=1..|
00001130  90 23 20 20 70 6f 73 3d  28 64 78 2d 31 30 29 2f  |.#  pos=(dx-10)/|
00001140  33 2b 28 64 79 2d 37 29  2a 31 36 2b 73 74 61 72  |3+(dy-7)*16+star|
00001150  74 0d 06 9a 13 20 20 64  61 74 61 3d 6d 65 6d 25  |t....  data=mem%|
00001160  3f 70 6f 73 0d 06 a4 30  20 20 e7 20 70 6f 73 3d  |?pos...0  . pos=|
00001170  a8 70 6f 73 3a 20 64 61  74 61 3d 64 61 74 61 20  |.pos: data=data |
00001180  81 26 31 30 20 8b 20 64  61 74 61 3d 64 61 74 61  |.&10 . data=data|
00001190  20 80 26 46 0d 06 ae 12  20 20 64 61 74 61 24 3d  | .&F....  data$=|
000011a0  c3 7e 64 61 74 61 0d 06  b8 0d 20 20 fb 31 33 32  |.~data....  .132|
000011b0  3a fb 37 0d 06 c2 14 20  20 f1 8a 64 78 2c 64 79  |:.7....  ..dx,dy|
000011c0  29 64 61 74 61 24 3b 0d  06 cc 1b 20 20 f5 3a 62  |)data$;....  .:b|
000011d0  3d a6 30 3a c8 97 20 78  2c 79 2c 62 75 74 74 6f  |=.0:.. x,y,butto|
000011e0  6e 73 0d 06 d6 31 20 20  fd 20 28 62 3e 36 34 20  |ns...1  . (b>64 |
000011f0  80 20 62 3c 37 31 29 20  84 20 28 62 3e 34 37 20  |. b<71) . (b>47 |
00001200  80 20 62 3c 35 38 29 20  84 20 62 75 74 74 6f 6e  |. b<58) . button|
00001210  73 3d 31 0d 06 e0 14 20  20 e7 20 62 75 74 74 6f  |s=1....  . butto|
00001220  6e 73 3c 3e 31 20 8c 0d  06 ea 1b 20 20 20 20 e7  |ns<>1 .....    .|
00001230  20 62 3c 3e 64 61 74 61  3a 63 68 61 6e 67 65 64  | b<>data:changed|
00001240  3d b9 0d 06 f4 14 20 20  20 20 e7 20 70 6f 73 3d  |=.....    . pos=|
00001250  a8 70 6f 73 20 8c 0d 06  fe 2b 20 20 20 20 20 20  |.pos ....+      |
00001260  64 61 74 61 3d 28 6d 65  6d 25 3f 70 6f 73 20 80  |data=(mem%?pos .|
00001270  26 46 29 2b a0 28 22 26  22 2b bd 62 29 2a 26 31  |&F)+.("&"+.b)*&1|
00001280  30 0d 07 08 0b 20 20 20  20 20 20 cc 0d 07 12 28  |0....      ....(|
00001290  20 20 20 20 20 20 64 61  74 61 3d 28 6d 65 6d 25  |      data=(mem%|
000012a0  3f 70 6f 73 20 80 26 46  30 29 2b a0 28 22 26 22  |?pos .&F0)+.("&"|
000012b0  2b bd 62 29 0d 07 1c 09  20 20 20 20 cd 0d 07 26  |+.b)....    ...&|
000012c0  15 20 20 20 20 6d 65 6d  25 3f 70 6f 73 3d 64 61  |.    mem%?pos=da|
000012d0  74 61 0d 07 30 32 20 20  20 20 f2 64 69 73 70 6c  |ta..02    .displ|
000012e0  61 79 28 73 74 61 72 74  2c 31 2c 64 79 29 20 20  |ay(start,1,dy)  |
000012f0  20 20 20 20 20 20 20 20  20 20 3a f4 20 36 3c 64  |          :. 6<d|
00001300  79 3c 33 30 0d 07 3a 21  20 20 20 20 64 78 2b 3d  |y<30..:!    dx+=|
00001310  31 3a e7 20 64 78 3e 35  36 3a 64 78 3d 31 30 3a  |1:. dx>56:dx=10:|
00001320  64 79 2b 3d 31 0d 07 44  07 20 20 cd 0d 07 4e 2e  |dy+=1..D.  ...N.|
00001330  fd 20 64 79 3d 33 30 20  84 20 62 75 74 74 6f 6e  |. dy=30 . button|
00001340  73 3d 31 20 84 28 64 79  3d 32 33 20 80 20 74 79  |s=1 .(dy=23 . ty|
00001350  70 65 25 2a a8 67 73 3d  38 29 0d 07 58 24 e7 20  |pe%*.gs=8)..X$. |
00001360  62 75 74 74 6f 6e 73 3d  31 3a f2 64 69 73 70 6c  |buttons=1:.displ|
00001370  61 79 28 73 74 61 72 74  2c 31 2c 64 79 29 0d 07  |ay(start,1,dy)..|
00001380  62 0b f2 70 74 72 28 31  29 0d 07 6c 05 e1 0d 07  |b..ptr(1)..l....|
00001390  76 04 0d 07 80 0b dd 20  f2 6d 6f 76 65 0d 07 8a  |v...... .move...|
000013a0  16 64 79 3d 33 32 2d 79  20 81 33 32 3a 64 79 31  |.dy=32-y .32:dy1|
000013b0  3d 64 79 0d 07 94 1b 6c  69 6d 3d 62 70 73 65 63  |=dy....lim=bpsec|
000013c0  2a a8 67 73 2d 6c 69 6e  65 73 2a 26 31 30 0d 07  |*.gs-lines*&10..|
000013d0  9e 10 c8 95 20 62 75 74  74 6f 6e 73 3d 32 0d 07  |.... buttons=2..|
000013e0  a8 11 20 20 64 3d 2d 28  64 79 3c 64 79 31 29 0d  |..  d=-(dy<dy1).|
000013f0  07 b2 39 20 20 e7 20 64  79 3c 3e 64 79 31 20 80  |..9  . dy<>dy1 .|
00001400  20 28 28 64 3d 30 20 80  20 73 74 61 72 74 3e 30  | ((d=0 . start>0|
00001410  29 20 84 20 28 64 3d 31  20 80 20 73 74 61 72 74  |) . (d=1 . start|
00001420  3c 6c 69 6d 29 29 20 8c  0d 07 bc 12 20 20 20 20  |<lim)) .....    |
00001430  f2 73 63 72 6f 6c 6c 28  64 29 0d 07 c6 16 20 20  |.scroll(d)....  |
00001440  20 20 64 79 31 2b 3d b4  28 64 79 2d 64 79 31 29  |  dy1+=.(dy-dy1)|
00001450  0d 07 d0 07 20 20 cd 0d  07 da 14 20 20 c8 97 20  |....  .....  .. |
00001460  78 2c 79 2c 62 75 74 74  6f 6e 73 0d 07 e4 1a 20  |x,y,buttons.... |
00001470  20 64 78 3d 78 20 81 31  36 3a 64 79 3d 33 32 2d  | dx=x .16:dy=32-|
00001480  79 20 81 33 32 0d 07 ee  05 ce 0d 07 f8 05 e1 0d  |y .32...........|
00001490  08 02 04 0d 08 0c 0b dd  20 f2 70 61 67 65 0d 08  |........ .page..|
000014a0  16 1b 6c 69 6d 3d 62 70  73 65 63 2a a8 67 73 2d  |..lim=bpsec*.gs-|
000014b0  6c 69 6e 65 73 2a 26 31  30 0d 08 20 2a e7 20 64  |lines*&10.. *. d|
000014c0  7a 3d 31 34 33 3a 62 75  74 74 6f 6e 73 3d 31 20  |z=143:buttons=1 |
000014d0  8b e7 20 64 7a 3d 31 34  32 3a 62 75 74 74 6f 6e  |.. dz=142:button|
000014e0  73 3d 34 0d 08 2a 25 e7  20 73 74 61 72 74 3e 6c  |s=4..*%. start>l|
000014f0  69 6d 20 80 20 62 75 74  74 6f 6e 73 3d 34 3a 62  |im . buttons=4:b|
00001500  75 74 74 6f 6e 73 3d 30  0d 08 34 1f e7 20 62 75  |uttons=0..4.. bu|
00001510  74 74 6f 6e 73 3c 3e 31  20 80 20 62 75 74 74 6f  |ttons<>1 . butto|
00001520  6e 73 3c 3e 34 3a e1 0d  08 3e 12 64 3d b4 28 62  |ns<>4:...>.d=.(b|
00001530  75 74 74 6f 6e 73 2d 31  29 0d 08 48 2b e7 20 64  |uttons-1)..H+. d|
00001540  3a 6c 65 6e 3d 28 6c 69  6d 2d 73 74 61 72 74 29  |:len=(lim-start)|
00001550  20 81 31 36 20 8b 20 6c  65 6e 3d 73 74 61 72 74  | .16 . len=start|
00001560  20 81 31 36 0d 08 52 1e  c8 95 20 6c 65 6e 3e 30  | .16..R... len>0|
00001570  3a f2 73 63 72 6f 6c 6c  28 64 29 3a 6c 65 6e 2d  |:.scroll(d):len-|
00001580  3d 31 0d 08 5c 36 c8 97  20 78 2c 79 2c 62 75 74  |=1..\6.. x,y,but|
00001590  74 6f 6e 73 3a e7 20 62  75 74 74 6f 6e 73 3d 30  |tons:. buttons=0|
000015a0  20 80 20 a6 2d 31 32 39  3d 32 35 35 3a 6c 65 6e  | . .-129=255:len|
000015b0  3d 30 3a 2a 46 58 32 31  0d 08 66 05 ce 0d 08 70  |=0:*FX21..f....p|
000015c0  05 e1 0d 08 7a 04 0d 08  84 10 dd 20 f2 73 63 72  |....z...... .scr|
000015d0  6f 6c 6c 28 64 29 0d 08  8e 14 e7 20 64 3d 30 3a  |oll(d)..... d=0:|
000015e0  73 74 61 72 74 2d 3d 26  31 30 0d 08 98 20 f2 64  |start-=&10... .d|
000015f0  69 73 70 6c 61 79 28 73  74 61 72 74 2b 64 2a 26  |isplay(start+d*&|
00001600  31 37 30 2c 31 2c 64 2b  32 29 0d 08 a2 14 e7 20  |170,1,d+2)..... |
00001610  64 3d 31 3a 73 74 61 72  74 2b 3d 26 31 30 0d 08  |d=1:start+=&10..|
00001620  ac 05 e1 0d 08 b6 04 0d  08 c0 0c dd 20 f2 6c 65  |............ .le|
00001630  61 76 65 0d 08 ca 09 f2  73 61 76 65 0d 08 d4 14  |ave.....save....|
00001640  eb 20 30 3a ff 28 22 46  58 34 20 30 22 29 3a e0  |. 0:.("FX4 0"):.|
00001650  0d 08 de 04 0d 08 e8 0e  dd 20 f2 73 74 61 72 28  |......... .star(|
00001660  78 29 0d 08 f2 09 2a 46  58 31 35 0d 08 fc 08 2a  |x)....*FX15....*|
00001670  46 58 34 0d 09 06 13 ef  32 38 2c 31 2c 32 39 2d  |FX4.....28,1,29-|
00001680  78 2c 37 38 2c 37 0d 09  10 0d fb 31 33 35 3a fb  |x,78,7.....135:.|
00001690  30 3a db 0d 09 1a 07 ea  20 85 0d 09 24 0e ee 20  |0:...... ...$.. |
000016a0  85 20 ea 20 f1 27 f6 24  0d 09 2e 34 e7 20 78 3a  |. . .'.$...4. x:|
000016b0  f2 68 65 6c 70 3a 8b 20  ee 3a f5 3a e8 22 2a 22  |.help:. .:.:."*"|
000016c0  6f 73 63 6c 69 24 3a ff  28 6f 73 63 6c 69 24 29  |oscli$:.(oscli$)|
000016d0  3a fd 20 6f 73 63 6c 69  24 3d 22 22 0d 09 38 07  |:. oscli$=""..8.|
000016e0  db 3a 87 0d 09 42 1b f2  64 69 73 70 6c 61 79 28  |.:...B..display(|
000016f0  73 74 61 72 74 2c 6c 69  6e 65 73 2c 31 29 0d 09  |start,lines,1)..|
00001700  4c 14 64 78 3d 30 3a 64  79 3d 30 3a 2a 46 58 34  |L.dx=0:dy=0:*FX4|
00001710  20 32 0d 09 56 05 e1 0d  09 60 04 0d 09 6a 0e dd  | 2..V....`...j..|
00001720  20 f2 69 6e 70 61 64 64  72 0d 09 74 24 fb 34 3a  | .inpaddr..t$.4:|
00001730  f1 8a 37 31 2c 33 29 89  38 3b 8a 37 31 2c 33 29  |..71,3).8;.71,3)|
00001740  3b 3a f2 67 65 74 28 38  2c 31 45 39 29 0d 09 7e  |;:.get(8,1E9)..~|
00001750  0d e7 20 61 24 3d 22 22  20 8c 0d 09 88 0b 20 20  |.. a$="" .....  |
00001760  f1 64 61 24 3b 0d 09 92  06 20 cc 0d 09 9c 20 20  |.da$;.... ....  |
00001770  20 66 61 63 25 3d a0 28  22 26 22 2b 61 24 29 81  | fac%=.("&"+a$).|
00001780  28 39 2a 62 70 73 65 63  29 2b 31 0d 09 a6 4a 20  |(9*bpsec)+1...J |
00001790  20 f4 3a 20 43 6f 6e 76  2e 20 22 72 65 61 6c 22  | .: Conv. "real"|
000017a0  20 4d 53 44 4f 53 20 64  69 73 6b 20 61 64 64 72  | MSDOS disk addr|
000017b0  20 74 6f 20 6f 6e 65 20  70 72 65 74 65 6e 64 69  | to one pretendi|
000017c0  6e 67 20 73 70 74 72 6b  3d 31 30 20 28 73 65 65  |ng sptrk=10 (see|
000017d0  20 36 30 30 29 0d 09 b0  3b 20 20 e7 20 74 79 70  | 600)...;  . typ|
000017e0  65 25 3d 39 3a 61 24 3d  c2 22 30 30 30 30 30 30  |e%=9:a$=."000000|
000017f0  30 22 2b c3 7e a0 28 c3  28 66 61 63 25 2a 62 70  |0"+.~.(.(fac%*bp|
00001800  73 65 63 29 2b 22 2b 26  22 2b 61 24 29 2c 38 29  |sec)+"+&"+a$),8)|
00001810  0d 09 ba 06 20 cd 0d 09  c4 22 f2 73 61 76 65 3a  |.... ....".save:|
00001820  e7 20 61 24 3c 3e 22 22  3a f2 68 73 74 28 a0 28  |. a$<>"":.hst(.(|
00001830  22 26 22 2b 61 24 29 29  0d 09 ce 14 f2 6e 65 78  |"&"+a$)).....nex|
00001840  74 28 30 29 3a f2 75 70  64 61 74 65 0d 09 d8 05  |t(0):.update....|
00001850  e1 0d 09 e2 04 0d 09 ec  0c dd 20 f2 64 72 69 76  |.......... .driv|
00001860  65 0d 09 f6 30 66 6c 6f  70 3d 31 3a 68 61 72 64  |e...0flop=1:hard|
00001870  3d 30 3a c8 99 20 22 58  41 44 46 53 5f 44 72 69  |=0:.. "XADFS_Dri|
00001880  76 65 73 22 20 b8 20 2c  66 6c 6f 70 2c 68 61 72  |ves" . ,flop,har|
00001890  64 0d 0a 00 13 e7 20 66  6c 6f 70 2b 68 61 72 64  |d..... flop+hard|
000018a0  3d 32 20 8c 0d 0a 0a 1c  20 20 61 24 3d c3 28 31  |=2 .....  a$=.(1|
000018b0  2d 33 2a 28 68 61 72 64  3e 30 29 2d 64 72 25 29  |-3*(hard>0)-dr%)|
000018c0  0d 0a 14 06 20 cc 0d 0a  1e 24 20 20 fb 34 3a f1  |.... ....$  .4:.|
000018d0  8a 37 37 2c 31 29 89 31  3b 8a 37 37 2c 31 29 3b  |.77,1).1;.77,1);|
000018e0  3a f2 67 65 74 28 31 2c  37 29 0d 0a 28 14 20 20  |:.get(1,7)..(.  |
000018f0  e7 20 61 24 3d 22 22 3a  f1 3b 64 72 25 3b 0d 0a  |. a$="":.;dr%;..|
00001900  32 06 20 cd 0d 0a 3c 09  f2 73 61 76 65 0d 0a 46  |2. ...<..save..F|
00001910  20 e7 20 61 24 3c 3e 22  22 3a 64 72 25 3d bb 61  | . a$<>"":dr%=.a|
00001920  24 3a 62 6c 6b 25 3f 33  34 3d 64 72 25 0d 0a 50  |$:blk%?34=dr%..P|
00001930  05 e1 0d 0a 5a 04 0d 0a  64 0c dd 20 f2 69 6e 70  |....Z...d.. .inp|
00001940  75 74 0d 0a 6e 2a fb 34  3a f1 8a 35 30 2c 33 29  |ut..n*.4:..50,3)|
00001950  22 20 20 20 22 3b 8a 35  30 2c 33 29 3b 3a f2 67  |"   ";.50,3);:.g|
00001960  65 74 28 32 2c 74 72 61  63 6b 73 29 0d 0a 78 23  |et(2,tracks)..x#|
00001970  e7 20 61 24 3d 22 22 3a  74 6b 3d 74 72 61 63 6b  |. a$="":tk=track|
00001980  3a f1 3b 74 6b 3b 3a 8b  20 74 6b 3d bb 61 24 0d  |:.;tk;:. tk=.a$.|
00001990  0a 82 25 f1 8a 35 38 2c  33 29 22 20 20 22 3b 8a  |..%..58,3)"  ";.|
000019a0  35 38 2c 33 29 3b 3a f2  67 65 74 28 31 2c 68 65  |58,3);:.get(1,he|
000019b0  61 64 73 29 0d 0a 8c 22  e7 20 61 24 3d 22 22 3a  |ads)...". a$="":|
000019c0  68 64 3d 68 65 61 64 3a  f1 3b 68 64 3b 3a 8b 20  |hd=head:.;hd;:. |
000019d0  68 64 3d bb 61 24 0d 0a  96 25 f1 8a 36 37 2c 33  |hd=.a$...%..67,3|
000019e0  29 22 20 20 22 3b 8a 36  37 2c 33 29 3b 3a f2 67  |)"  ";.67,3);:.g|
000019f0  65 74 28 32 2c 73 70 74  72 6b 29 0d 0a a0 24 e7  |et(2,sptrk)...$.|
00001a00  20 61 24 3d 22 22 3a 73  72 3d 73 65 63 74 6f 72  | a$="":sr=sector|
00001a10  3a f1 3b 73 72 3b 3a 8b  20 73 72 3d bb 61 24 0d  |:.;sr;:. sr=.a$.|
00001a20  0a aa 24 f2 73 61 76 65  3a 74 72 61 63 6b 3d 74  |..$.save:track=t|
00001a30  6b 3a 73 65 63 74 6f 72  3d 73 72 3a 68 65 61 64  |k:sector=sr:head|
00001a40  3d 68 64 0d 0a b4 14 f2  6e 65 78 74 28 30 29 3a  |=hd.....next(0):|
00001a50  f2 75 70 64 61 74 65 0d  0a be 05 e1 0d 0a c8 04  |.update.........|
00001a60  0d 0a d2 15 dd 20 f2 67  65 74 28 6c 65 6e 2c 6c  |..... .get(len,l|
00001a70  69 6d 69 74 29 0d 0a dc  09 61 24 3d 22 22 0d 0a  |imit)....a$=""..|
00001a80  e6 05 f5 0d 0a f0 23 20  20 62 24 3d be 3a 62 3d  |......#  b$=.:b=|
00001a90  97 62 24 3a e7 20 62 3e  3d 97 22 61 22 3a 62 3d  |.b$:. b>=."a":b=|
00001aa0  62 20 80 26 44 46 0d 0a  fa 2b 20 20 e7 20 62 24  |b .&DF...+  . b$|
00001ab0  3d bd 31 32 37 20 80 20  a9 61 24 3c 3e 30 3a 61  |=.127 . .a$<>0:a|
00001ac0  24 3d c0 61 24 2c a9 61  24 2d 31 29 3a ef 31 32  |$=.a$,.a$-1):.12|
00001ad0  37 0d 0b 04 2a 20 20 e7  20 6c 69 6d 69 74 3d 31  |7...*  . limit=1|
00001ae0  45 39 3a e7 20 62 3e 3d  97 22 41 22 20 80 20 62  |E9:. b>=."A" . b|
00001af0  3c 3d 97 22 46 22 3a 62  3d 34 38 0d 0b 0e 31 20  |<=."F":b=48...1 |
00001b00  20 e7 20 62 3e 3d 97 22  30 22 20 80 20 62 3c 3d  | . b>=."0" . b<=|
00001b10  97 22 39 22 20 80 20 a9  61 24 3c 3e 6c 65 6e 3a  |."9" . .a$<>len:|
00001b20  61 24 2b 3d 62 24 3a f1  20 62 24 3b 0d 0b 18 0a  |a$+=b$:. b$;....|
00001b30  fd 20 62 3d 31 33 0d 0b  22 23 e7 20 bb 61 24 3e  |. b=13.."#. .a$>|
00001b40  3d 6c 69 6d 69 74 3a f1  c4 a9 61 24 2c bd 31 32  |=limit:...a$,.12|
00001b50  37 29 3b 3a 61 24 3d 22  22 0d 0b 2c 05 e1 0d 0b  |7);:a$=""..,....|
00001b60  36 04 0d 0b 40 0b dd 20  f2 73 61 76 65 0d 0b 4a  |6...@.. .save..J|
00001b70  11 e7 20 ac 20 63 68 61  6e 67 65 64 3a e1 0d 0b  |.. . changed:...|
00001b80  54 38 fb 34 3a f1 8a 31  38 2c 36 29 22 44 6f 20  |T8.4:..18,6)"Do |
00001b90  79 6f 75 20 77 69 73 68  20 74 6f 20 73 61 76 65  |you wish to save|
00001ba0  20 63 68 61 6e 67 65 73  3f 20 5b 59 5d 20 6f 72  | changes? [Y] or|
00001bb0  20 5b 4e 5d 22 3b 0d 0b  5e 0e 73 65 6c 65 63 74  | [N]";..^.select|
00001bc0  65 64 3d a3 0d 0b 68 05  f5 0d 0b 72 15 20 20 20  |ed=...h....r.   |
00001bd0  c8 97 20 78 2c 79 2c 62  75 74 74 6f 6e 73 0d 0b  |.. x,y,buttons..|
00001be0  7c 1b 20 20 20 64 78 3d  78 20 81 31 36 3a 64 79  ||.   dx=x .16:dy|
00001bf0  3d 33 31 2d 79 20 81 33  32 0d 0b 86 1b 20 20 20  |=31-y .32....   |
00001c00  e7 20 62 75 74 74 6f 6e  73 3d 34 20 80 20 64 79  |. buttons=4 . dy|
00001c10  3d 36 20 8c 0d 0b 90 23  20 20 20 20 20 e7 20 64  |=6 ....#     . d|
00001c20  78 3d 34 38 20 84 20 64  78 3d 35 35 3a 73 65 6c  |x=48 . dx=55:sel|
00001c30  65 63 74 65 64 3d b9 0d  0b 9a 08 20 20 20 cd 0d  |ected=.....   ..|
00001c40  0b a4 29 fd 20 73 65 6c  65 63 74 65 64 3a e7 20  |..). selected:. |
00001c50  97 73 72 24 3d 38 32 3a  c0 73 72 24 2c 36 29 3d  |.sr$=82:.sr$,6)=|
00001c60  22 73 74 6f 72 65 64 22  0d 0b ae 25 f2 6f 64 64  |"stored"...%.odd|
00001c70  6c 69 6e 65 3a e7 20 97  73 72 24 3e 33 32 3a fb  |line:. .sr$>32:.|
00001c80  35 3a f1 8a 33 31 2c 35  29 73 72 24 3b 0d 0b b8  |5:..31,5)sr$;...|
00001c90  39 e7 20 64 78 3d 34 38  3a e7 20 74 72 61 63 6b  |9. dx=48:. track|
00001ca0  3d 30 3a e7 20 68 65 61  64 3d 30 3a e7 20 73 65  |=0:. head=0:. se|
00001cb0  63 74 6f 72 3c 32 3a f2  61 64 6a 75 73 74 63 68  |ctor<2:.adjustch|
00001cc0  65 63 6b 73 75 6d 0d 0b  c2 3c e7 20 64 78 3d 34  |ecksum...<. dx=4|
00001cd0  38 3a f2 64 69 73 63 6f  70 28 32 2c 68 65 61 64  |8:.discop(2,head|
00001ce0  2c 73 65 63 74 6f 72 2c  74 72 61 63 6b 2c 62 70  |,sector,track,bp|
00001cf0  73 65 63 2a a8 67 73 29  3a 63 68 61 6e 67 65 64  |sec*.gs):changed|
00001d00  3d a3 0d 0b cc 23 fb 30  3a f5 3a c8 97 20 78 2c  |=....#.0:.:.. x,|
00001d10  79 2c 62 75 74 74 6f 6e  73 3a fd 20 62 75 74 74  |y,buttons:. butt|
00001d20  6f 6e 73 3d 30 0d 0b d6  05 e1 0d 0b e0 04 0d 0b  |ons=0...........|
00001d30  ea 15 dd 20 f2 61 64 6a  75 73 74 63 68 65 63 6b  |... .adjustcheck|
00001d40  73 75 6d 0d 0b f4 30 e7  20 74 79 70 65 25 3d 39  |sum...0. type%=9|
00001d50  20 84 28 74 79 70 65 25  3d 31 30 20 80 20 73 65  | .(type%=10 . se|
00001d60  63 74 6f 72 3e 30 29 84  20 74 79 70 65 25 3d 31  |ctor>0). type%=1|
00001d70  31 3a e1 0d 0b fe 41 e7  a4 63 73 28 6d 65 6d 25  |1:....A..cs(mem%|
00001d80  29 3d 6d 65 6d 25 3f 26  46 46 3a e7 74 79 70 65  |)=mem%?&FF:.type|
00001d90  25 2a a8 67 73 3d 38 20  84 20 a4 63 73 28 6d 65  |%*.gs=8 . .cs(me|
00001da0  6d 25 2b 26 31 30 30 29  3d 6d 65 6d 25 3f 26 31  |m%+&100)=mem%?&1|
00001db0  46 46 3a e1 0d 0c 08 38  fb 39 3a f1 8a 31 38 2c  |FF:....8.9:..18,|
00001dc0  36 29 22 46 53 20 6d 61  70 20 63 68 65 63 6b 73  |6)"FS map checks|
00001dd0  75 6d 28 73 29 20 2d 20  61 64 6a 75 73 74 3f 20  |um(s) - adjust? |
00001de0  5b 59 5d 20 6f 72 20 5b  4e 5d 22 3b 0d 0c 12 2b  |[Y] or [N]";...+|
00001df0  73 65 6c 65 63 74 65 64  3d a3 3a f5 3a c8 97 20  |selected=.:.:.. |
00001e00  78 2c 79 2c 62 75 74 74  6f 6e 73 3a fd 20 62 75  |x,y,buttons:. bu|
00001e10  74 74 6f 6e 73 3d 30 0d  0c 1c 05 f5 0d 0c 26 15  |ttons=0.......&.|
00001e20  20 20 20 c8 97 20 78 2c  79 2c 62 75 74 74 6f 6e  |   .. x,y,button|
00001e30  73 0d 0c 30 1b 20 20 20  64 78 3d 78 20 81 31 36  |s..0.   dx=x .16|
00001e40  3a 64 79 3d 33 31 2d 79  20 81 33 32 0d 0c 3a 1b  |:dy=31-y .32..:.|
00001e50  20 20 20 e7 20 62 75 74  74 6f 6e 73 3d 34 20 80  |   . buttons=4 .|
00001e60  20 64 79 3d 36 20 8c 0d  0c 44 23 20 20 20 20 20  | dy=6 ...D#     |
00001e70  e7 20 64 78 3d 34 38 20  84 20 64 78 3d 35 35 3a  |. dx=48 . dx=55:|
00001e80  73 65 6c 65 63 74 65 64  3d b9 0d 0c 4e 08 20 20  |selected=...N.  |
00001e90  20 cd 0d 0c 58 17 fd 20  73 65 6c 65 63 74 65 64  | ...X.. selected|
00001ea0  3a f2 6f 64 64 6c 69 6e  65 0d 0c 62 42 e7 20 64  |:.oddline..bB. d|
00001eb0  78 3d 34 38 3a 6d 65 6d  25 3f 26 46 46 3d a4 63  |x=48:mem%?&FF=.c|
00001ec0  73 28 6d 65 6d 25 29 3a  e7 20 73 65 63 74 6f 72  |s(mem%):. sector|
00001ed0  3d 30 3a 6d 65 6d 25 3f  26 31 46 46 3d a4 63 73  |=0:mem%?&1FF=.cs|
00001ee0  28 6d 65 6d 25 2b 26 31  30 30 29 0d 0c 6c 0b 64  |(mem%+&100)..l.d|
00001ef0  78 3d 34 38 3a e1 0d 0c  76 04 0d 0c 80 0d dd 20  |x=48:...v...... |
00001f00  a4 63 73 28 6d 25 29 0d  0c 8a 0d 74 25 3d 30 3a  |.cs(m%)....t%=0:|
00001f10  63 25 3d 30 0d 0c 94 3c  e3 20 61 25 3d 6d 25 2b  |c%=0...<. a%=m%+|
00001f20  26 46 45 20 b8 20 6d 25  20 88 2d 31 3a 74 25 2b  |&FE . m% .-1:t%+|
00001f30  3d 3f 61 25 2b 63 25 3a  63 25 3d 2d 28 74 25 3e  |=?a%+c%:c%=-(t%>|
00001f40  26 46 46 29 3a 74 25 3d  74 25 80 26 46 46 3a ed  |&FF):t%=t%.&FF:.|
00001f50  0d 0c 9e 07 3d 74 25 0d  0c a8 04 0d 0c b2 10 dd  |....=t%.........|
00001f60  20 f2 6e 65 78 74 28 64  69 72 29 0d 0c bc 0b 2a  | .next(dir)....*|
00001f70  46 58 31 34 20 36 0d 0c  c6 29 e7 20 74 79 70 65  |FX14 6...). type|
00001f80  25 3d 39 3a e7 20 64 69  72 3d 30 3a e7 20 73 65  |%=9:. dir=0:. se|
00001f90  63 74 6f 72 3d 30 3a 73  65 63 74 6f 72 3d 31 0d  |ctor=0:sector=1.|
00001fa0  0c d0 0f e7 20 74 79 70  65 25 3d 38 20 8c 0d 0c  |.... type%=8 ...|
00001fb0  da 2d c8 95 20 73 65 63  74 6f 72 3e 3d 73 70 74  |.-.. sector>=spt|
00001fc0  72 6b 3a 73 65 63 74 6f  72 2d 3d 73 70 74 72 6b  |rk:sector-=sptrk|
00001fd0  3a 74 72 61 63 6b 2b 3d  31 3a ce 0d 0c e4 28 c8  |:track+=1:....(.|
00001fe0  95 20 73 65 63 74 6f 72  3c 30 3a 73 65 63 74 6f  |. sector<0:secto|
00001ff0  72 2b 3d 73 70 74 72 6b  3a 74 72 61 63 6b 2d 3d  |r+=sptrk:track-=|
00002000  31 3a ce 0d 0c ee 2c c8  95 20 74 72 61 63 6b 3e  |1:....,.. track>|
00002010  3d 74 72 61 63 6b 73 3a  74 72 61 63 6b 2d 3d 74  |=tracks:track-=t|
00002020  72 61 63 6b 73 3a 68 65  61 64 2b 3d 31 3a ce 0d  |racks:head+=1:..|
00002030  0c f8 26 c8 95 20 74 72  61 63 6b 3c 30 3a 74 72  |..&.. track<0:tr|
00002040  61 63 6b 2b 3d 74 72 61  63 6b 73 3a 68 65 61 64  |ack+=tracks:head|
00002050  2d 3d 31 3a ce 0d 0d 02  1d e7 20 68 65 61 64 3e  |-=1:...... head>|
00002060  3d 68 65 61 64 73 3a 68  65 61 64 2d 3d 68 65 61  |=heads:head-=hea|
00002070  64 73 0d 0d 0c 18 e7 20  68 65 61 64 3c 30 3a 68  |ds..... head<0:h|
00002080  65 61 64 2b 3d 68 65 61  64 73 0d 0d 16 05 cc 0d  |ead+=heads......|
00002090  0d 20 36 c8 95 20 73 65  63 74 6f 72 3e 3d 73 70  |. 6.. sector>=sp|
000020a0  74 72 6b 3a 73 65 63 74  6f 72 2d 3d 73 70 74 72  |trk:sector-=sptr|
000020b0  6b 2b 28 74 79 70 65 25  3d 39 29 3a 68 65 61 64  |k+(type%=9):head|
000020c0  2b 3d 31 3a ce 0d 0d 2a  33 e7 20 74 79 70 65 25  |+=1:...*3. type%|
000020d0  3d 39 3a c8 95 20 73 65  63 74 6f 72 3c 31 3a 73  |=9:.. sector<1:s|
000020e0  65 63 74 6f 72 2b 3d 73  70 74 72 6b 2d 31 3a 68  |ector+=sptrk-1:h|
000020f0  65 61 64 2d 3d 31 3a ce  0d 0d 34 27 c8 95 20 73  |ead-=1:...4'.. s|
00002100  65 63 74 6f 72 3c 30 3a  73 65 63 74 6f 72 2b 3d  |ector<0:sector+=|
00002110  73 70 74 72 6b 3a 68 65  61 64 2d 3d 31 3a ce 0d  |sptrk:head-=1:..|
00002120  0d 3e 29 c8 95 20 68 65  61 64 3e 3d 68 65 61 64  |.>).. head>=head|
00002130  73 3a 68 65 61 64 2d 3d  68 65 61 64 73 3a 74 72  |s:head-=heads:tr|
00002140  61 63 6b 2b 3d 31 3a ce  0d 0d 48 24 c8 95 20 68  |ack+=1:...H$.. h|
00002150  65 61 64 3c 30 3a 68 65  61 64 2b 3d 68 65 61 64  |ead<0:head+=head|
00002160  73 3a 74 72 61 63 6b 2d  3d 31 3a ce 0d 0d 52 21  |s:track-=1:...R!|
00002170  e7 20 74 72 61 63 6b 3e  3d 74 72 61 63 6b 73 3a  |. track>=tracks:|
00002180  74 72 61 63 6b 2d 3d 74  72 61 63 6b 73 0d 0d 5c  |track-=tracks..\|
00002190  1b e7 20 74 72 61 63 6b  3c 30 3a 74 72 61 63 6b  |.. track<0:track|
000021a0  2b 3d 74 72 61 63 6b 73  0d 0d 66 05 cd 0d 0d 70  |+=tracks..f....p|
000021b0  36 e7 20 64 69 73 6b 65  72 72 3d 30 3a f2 64 69  |6. diskerr=0:.di|
000021c0  73 63 6f 70 28 31 2c 68  65 61 64 2c 73 65 63 74  |scop(1,head,sect|
000021d0  6f 72 2c 74 72 61 63 6b  2c 62 70 73 65 63 2a a8  |or,track,bpsec*.|
000021e0  67 73 29 0d 0d 7a 36 69  64 24 3d 22 5b 22 2b 6e  |gs)..z6id$="["+n|
000021f0  6d 24 2b 22 5d 20 22 2b  c3 74 72 61 63 6b 2b 22  |m$+"] "+.track+"|
00002200  3a 22 2b c3 68 65 61 64  2b 22 3a 22 2b c3 73 65  |:"+.head+":"+.se|
00002210  63 74 6f 72 2b 22 20 28  22 0d 0d 84 32 69 64 24  |ctor+" ("...2id$|
00002220  3d c0 69 64 24 2b c3 28  a8 67 73 2a 62 70 73 65  |=.id$+.(.gs*bpse|
00002230  63 2f 31 30 32 34 29 2b  22 4b 29 22 2b 22 20 20  |c/1024)+"K)"+"  |
00002240  20 20 20 20 20 20 22 2c  32 38 29 0d 0d 8e 26 f2  |      ",28)...&.|
00002250  64 69 73 70 6c 61 79 28  73 74 61 72 74 2c 6c 69  |display(start,li|
00002260  6e 65 73 2c 2d 31 29 3a  63 68 61 6e 67 65 64 3d  |nes,-1):changed=|
00002270  a3 0d 0d 98 10 64 78 3d  30 3a 2a 46 58 31 33 20  |.....dx=0:*FX13 |
00002280  36 0d 0d a2 05 e1 0d 0d  ac 04 0d 0d b6 1c dd 20  |6.............. |
00002290  a4 64 69 73 63 61 64 64  72 28 68 2c 73 2c 74 2c  |.discaddr(h,s,t,|
000022a0  74 79 70 65 25 29 0d 0d  c0 0f e7 20 74 79 70 65  |type%)..... type|
000022b0  25 3d 38 20 8c 0d 0d ca  22 68 3d 28 28 68 2a 74  |%=8 ...."h=((h*t|
000022c0  72 61 63 6b 73 2b 74 29  2a 73 70 74 72 6b 2b 73  |racks+t)*sptrk+s|
000022d0  29 2a 62 70 73 65 63 0d  0d d4 05 cc 0d 0d de 21  |)*bpsec........!|
000022e0  68 3d 28 28 74 2a 68 65  61 64 73 2b 68 29 2a 73  |h=((t*heads+h)*s|
000022f0  70 74 72 6b 2b 73 29 2a  62 70 73 65 63 0d 0d e8  |ptrk+s)*bpsec...|
00002300  05 cd 0d 0d f2 06 3d 68  0d 0d fc 04 0d 0e 06 10  |......=h........|
00002310  dd 20 f2 68 73 74 28 61  64 64 72 29 0d 0e 10 3b  |. .hst(addr)...;|
00002320  61 64 64 72 3d 61 64 64  72 20 81 20 62 70 73 65  |addr=addr . bpse|
00002330  63 3a 73 65 63 74 6f 72  3d 61 64 64 72 20 83 20  |c:sector=addr . |
00002340  73 70 74 72 6b 3a 61 64  64 72 3d 61 64 64 72 20  |sptrk:addr=addr |
00002350  81 20 73 70 74 72 6b 0d  0e 1a 0f e7 20 74 79 70  |. sptrk..... typ|
00002360  65 25 3d 38 20 8c 0d 0e  24 2a 74 72 61 63 6b 3d  |e%=8 ...$*track=|
00002370  61 64 64 72 20 83 20 74  72 61 63 6b 73 3a 68 65  |addr . tracks:he|
00002380  61 64 3d 61 64 64 72 20  81 20 74 72 61 63 6b 73  |ad=addr . tracks|
00002390  0d 0e 2e 3e e7 20 68 65  61 64 3e 68 65 61 64 73  |...>. head>heads|
000023a0  2d 31 3a f2 68 73 74 28  a4 64 69 73 63 61 64 64  |-1:.hst(.discadd|
000023b0  72 28 68 65 61 64 73 2d  31 2c 73 65 63 74 6f 72  |r(heads-1,sector|
000023c0  2c 74 72 61 63 6b 2c 74  79 70 65 25 29 29 0d 0e  |,track,type%))..|
000023d0  38 05 cc 0d 0e 42 28 68  65 61 64 3d 61 64 64 72  |8....B(head=addr|
000023e0  20 83 20 68 65 61 64 73  3a 74 72 61 63 6b 3d 61  | . heads:track=a|
000023f0  64 64 72 20 81 20 68 65  61 64 73 0d 0e 4c 40 e7  |ddr . heads..L@.|
00002400  20 74 72 61 63 6b 3e 74  72 61 63 6b 73 2d 31 3a  | track>tracks-1:|
00002410  f2 68 73 74 28 a4 64 69  73 63 61 64 64 72 28 68  |.hst(.discaddr(h|
00002420  65 61 64 2c 73 65 63 74  6f 72 2c 74 72 61 63 6b  |ead,sector,track|
00002430  73 2d 31 2c 74 79 70 65  25 29 29 0d 0e 56 05 cd  |s-1,type%))..V..|
00002440  0d 0e 60 05 e1 0d 0e 6a  04 0d 0e 74 1a dd 20 f2  |..`....j...t.. .|
00002450  64 69 73 63 6f 70 28 63  6d 64 2c 68 2c 73 2c 74  |discop(cmd,h,s,t|
00002460  2c 62 29 0d 0e 7e 47 e7  20 74 79 70 65 25 3e 39  |,b)..~G. type%>9|
00002470  3a 62 61 74 63 68 3d 62  6c 6b 25 21 31 36 2d a4  |:batch=blk%!16-.|
00002480  64 69 73 63 61 64 64 72  28 68 2c 73 2c 74 2c 31  |discaddr(h,s,t,1|
00002490  30 29 20 8b 20 62 61 74  63 68 3d 28 73 70 74 72  |0) . batch=(sptr|
000024a0  6b 2d 73 29 2a 62 70 73  65 63 0d 0e 88 17 64 65  |k-s)*bpsec....de|
000024b0  73 74 3d 6d 65 6d 25 3a  64 69 73 6b 65 72 72 3d  |st=mem%:diskerr=|
000024c0  30 0d 0e 92 16 c8 95 20  62 3e 30 20 80 20 64 69  |0...... b>0 . di|
000024d0  73 6b 65 72 72 3d 30 0d  0e 9c 3a 20 20 20 64 61  |skerr=0...:   da|
000024e0  64 3d a4 64 69 73 63 61  64 64 72 28 68 2c 73 2c  |d=.discaddr(h,s,|
000024f0  74 2c 31 30 29 84 28 64  72 25 3c 3c 32 39 29 3a  |t,10).(dr%<<29):|
00002500  e7 20 62 61 74 63 68 3e  62 3a 62 61 74 63 68 3d  |. batch>b:batch=|
00002510  62 0d 0e a6 47 20 20 20  c8 99 20 22 58 41 44 46  |b...G   .. "XADF|
00002520  53 5f 44 69 73 63 4f 70  22 2c 2c 28 62 6c 6b 25  |S_DiscOp",,(blk%|
00002530  3c 3c 36 29 2b 63 6d 64  2c 64 61 64 2c 64 65 73  |<<6)+cmd,dad,des|
00002540  74 2c 62 61 74 63 68 20  b8 20 64 69 73 6b 65 72  |t,batch . disker|
00002550  72 2c 2c 2c 6c 61 73 74  0d 0e b0 1b 20 20 20 64  |r,,,last....   d|
00002560  65 73 74 2b 3d 62 61 74  63 68 3a 62 2d 3d 62 61  |est+=batch:b-=ba|
00002570  74 63 68 0d 0e ba 2a 20  20 20 e7 20 74 79 70 65  |tch...*   . type|
00002580  25 3e 39 3a 62 61 74 63  68 3d 62 6c 6b 25 21 31  |%>9:batch=blk%!1|
00002590  36 3a 68 3d 30 3a 73 3d  30 3a 74 3d 30 0d 0e c4  |6:h=0:s=0:t=0...|
000025a0  47 20 20 20 e7 20 74 79  70 65 25 3d 39 3a 62 61  |G   . type%=9:ba|
000025b0  74 63 68 3d 39 2a 35 31  32 3a 73 3d 31 3a 68 2b  |tch=9*512:s=1:h+|
000025c0  3d 31 3a e7 20 68 3d 68  65 61 64 73 3a 68 3d 30  |=1:. h=heads:h=0|
000025d0  3a 74 2b 3d 31 3a e7 20  74 3d 74 72 61 63 6b 73  |:t+=1:. t=tracks|
000025e0  3a 74 3d 30 0d 0e ce 48  20 20 20 e7 20 74 79 70  |:t=0...H   . typ|
000025f0  65 25 3d 38 3a 62 61 74  63 68 3d 31 36 2a 32 35  |e%=8:batch=16*25|
00002600  36 3a 73 3d 30 3a 74 2b  3d 31 3a e7 20 74 3d 74  |6:s=0:t+=1:. t=t|
00002610  72 61 63 6b 73 3a 74 3d  30 3a 68 2b 3d 31 3a e7  |racks:t=0:h+=1:.|
00002620  20 68 3d 68 65 61 64 73  3a 68 3d 30 0d 0e d8 05  | h=heads:h=0....|
00002630  ce 0d 0e e2 35 e7 20 6c  61 73 74 3c 6d 65 6d 25  |....5. last<mem%|
00002640  2b 62 66 73 7a 3a 41 25  3d 6c 61 73 74 3a 42 25  |+bfsz:A%=last:B%|
00002650  3d 30 3a 43 25 3d 6d 65  6d 25 2b 62 66 73 7a 3a  |=0:C%=mem%+bfsz:|
00002660  d6 20 7a 65 72 6f 0d 0e  ec 05 e1 0d 0e f6 04 0d  |. zero..........|
00002670  0f 00 0b dd 20 f2 73 69  7a 65 0d 0f 0a 27 67 73  |.... .size...'gs|
00002680  77 61 73 3d 28 67 73 3e  31 29 3a e7 20 67 73 3e  |was=(gs>1):. gs>|
00002690  31 3a 67 73 3d 62 66 73  7a 2f 31 30 32 34 2b 2e  |1:gs=bfsz/1024+.|
000026a0  35 0d 0f 14 2f 62 70 73  65 63 3d 31 30 32 34 3a  |5.../bpsec=1024:|
000026b0  73 70 74 72 6b 3d 35 3a  74 72 61 63 6b 73 3d 38  |sptrk=5:tracks=8|
000026c0  30 3a 68 65 61 64 73 3d  32 3a 6e 6d 24 3d 22 22  |0:heads=2:nm$=""|
000026d0  0d 0f 1e 38 e3 20 51 3d  30 20 b8 20 39 39 3a 62  |...8. Q=0 . 99:b|
000026e0  6c 6b 25 3f 51 3d 30 3a  ed 3a 41 25 3d 6d 65 6d  |lk%?Q=0:.:A%=mem|
000026f0  25 3a 42 25 3d 30 3a 43  25 3d 41 25 2b 62 66 73  |%:B%=0:C%=A%+bfs|
00002700  7a 3a d6 20 7a 65 72 6f  0d 0f 28 47 62 6c 6b 25  |z:. zero..(Gblk%|
00002710  3f 30 3d 31 30 3a 62 6c  6b 25 3f 31 3d 73 70 74  |?0=10:blk%?1=spt|
00002720  72 6b 3a 62 6c 6b 25 3f  32 3d 68 65 61 64 73 3a  |rk:blk%?2=heads:|
00002730  62 6c 6b 25 3f 33 3d 32  3a f4 20 64 65 6e 73 69  |blk%?3=2:. densi|
00002740  74 79 20 28 73 69 6e 67  6c 65 20 4e 2f 41 29 0d  |ty (single N/A).|
00002750  0f 32 36 62 6c 6b 25 21  31 36 3d 73 70 74 72 6b  |.26blk%!16=sptrk|
00002760  2a 62 70 73 65 63 2a 74  72 61 63 6b 73 2a 68 65  |*bpsec*tracks*he|
00002770  61 64 73 3a 62 6c 6b 25  21 36 34 3d 26 32 30 30  |ads:blk%!64=&200|
00002780  30 30 30 30 30 0d 0f 3c  0f 62 6c 6b 25 3f 33 34  |00000..<.blk%?34|
00002790  3d 64 72 25 0d 0f 46 04  0d 0f 50 44 c8 99 20 22  |=dr%..F...PD.. "|
000027a0  58 41 44 46 53 5f 44 69  73 63 4f 70 22 2c 2c 28  |XADFS_DiscOp",,(|
000027b0  62 6c 6b 25 3c 3c 36 29  2b 31 2c 31 30 32 34 20  |blk%<<6)+1,1024 |
000027c0  84 20 64 72 25 3c 3c 32  39 2c 6d 65 6d 25 2c 35  |. dr%<<29,mem%,5|
000027d0  31 32 20 b8 20 64 69 73  6b 65 72 72 0d 0f 5a 4b  |12 . diskerr..ZK|
000027e0  f4 20 22 31 30 32 34 22  20 63 61 75 73 65 73 20  |. "1024" causes |
000027f0  72 65 61 64 20 66 72 6f  6d 20 73 65 63 74 20 31  |read from sect 1|
00002800  20 6f 6e 20 61 6e 79 20  74 79 70 65 20 6f 66 20  | on any type of |
00002810  64 69 73 63 21 21 20 28  62 65 63 61 75 73 65 20  |disc!! (because |
00002820  6f 66 20 62 6c 6b 29 0d  0f 64 19 24 68 75 67 6f  |of blk)..d.$hugo|
00002830  25 3d 22 48 75 67 6f 22  3a 74 79 70 65 25 3d 30  |%="Hugo":type%=0|
00002840  0d 0f 6e 37 e7 20 6d 65  6d 25 21 31 3d 21 68 75  |..n7. mem%!1=!hu|
00002850  67 6f 25 3a 74 79 70 65  25 3d 31 30 20 8b e7 20  |go%:type%=10 .. |
00002860  6d 65 6d 25 21 32 35 37  3d 21 68 75 67 6f 25 3a  |mem%!257=!hugo%:|
00002870  74 79 70 65 25 3d 38 0d  0f 78 3b e7 20 74 79 70  |type%=8..x;. typ|
00002880  65 25 3d 30 3a e7 20 3f  6d 65 6d 25 3d 26 45 39  |e%=0:. ?mem%=&E9|
00002890  20 84 28 3f 6d 65 6d 25  3d 26 45 42 20 80 20 6d  | .(?mem%=&EB . m|
000028a0  65 6d 25 3f 32 3d 26 39  30 29 3a 74 79 70 65 25  |em%?2=&90):type%|
000028b0  3d 39 0d 0f 82 41 e7 20  74 79 70 65 25 3d 30 3a  |=9...A. type%=0:|
000028c0  e7 28 6d 65 6d 25 21 32  31 20 80 26 46 46 46 46  |.(mem%!21 .&FFFF|
000028d0  46 46 29 3d 26 43 38 30  3a 73 74 61 74 65 64 73  |FF)=&C80:stateds|
000028e0  69 7a 65 3d 26 43 38 30  30 30 3a 74 79 70 65 25  |ize=&C8000:type%|
000028f0  3d 31 31 0d 0f 8c 2d e7  20 74 79 70 65 25 3d 31  |=11...-. type%=1|
00002900  31 3a e3 20 4e 3d 32 36  20 b8 20 33 35 3a 6e 6d  |1:. N=26 . 35:nm|
00002910  24 2b 3d bd 28 6d 65 6d  25 3f 4e 29 3a ed 3a e1  |$+=.(mem%?N):.:.|
00002920  0d 0f 96 46 e7 20 28 74  79 70 65 25 3d 30 29 84  |...F. (type%=0).|
00002930  20 64 69 73 6b 65 72 72  3a 67 73 3d 31 3a 74 79  | diskerr:gs=1:ty|
00002940  70 65 25 3d 31 30 3a 73  74 61 74 65 64 73 69 7a  |pe%=10:statedsiz|
00002950  65 3d 30 3a 6e 6d 24 3d  22 4e 6f 74 20 49 64 65  |e=0:nm$="Not Ide|
00002960  6e 74 2e 22 3a e1 0d 0f  a0 0f e7 20 74 79 70 65  |nt.":...... type|
00002970  25 3d 39 20 8c 0d 0f aa  21 20 20 e3 20 4e 3d 33  |%=9 ....!  . N=3|
00002980  20 b8 20 31 30 3a 6e 6d  24 2b 3d bd 28 6d 65 6d  | . 10:nm$+=.(mem|
00002990  25 3f 4e 29 3a ed 0d 0f  b4 34 20 20 73 74 61 74  |%?N):....4  stat|
000029a0  65 64 73 69 7a 65 3d 28  6d 65 6d 25 21 31 31 20  |edsize=(mem%!11 |
000029b0  80 20 26 46 46 46 46 29  2a 28 6d 65 6d 25 21 31  |. &FFFF)*(mem%!1|
000029c0  39 20 80 20 26 46 46 46  46 29 0d 0f be 45 20 20  |9 . &FFFF)...E  |
000029d0  73 65 63 74 6f 72 3d 31  3a 62 6c 6b 25 21 31 36  |sector=1:blk%!16|
000029e0  3d 73 74 61 74 65 64 73  69 7a 65 2a 31 30 2f 39  |=statedsize*10/9|
000029f0  3a 73 70 74 72 6b 3d 31  30 3a 20 20 20 20 20 20  |:sptrk=10:      |
00002a00  20 20 f4 20 31 30 20 6e  6f 74 20 39 20 21 21 0d  |  . 10 not 9 !!.|
00002a10  0f c8 26 20 20 e7 20 73  74 61 74 65 64 73 69 7a  |..&  . statedsiz|
00002a20  65 3c 3d 31 30 32 34 2a  34 30 30 3a 74 72 61 63  |e<=1024*400:trac|
00002a30  6b 73 3d 34 30 0d 0f d2  05 cc 0d 0f dc 3f 20 20  |ks=40........?  |
00002a40  c8 99 20 22 58 41 44 46  53 5f 44 69 73 63 4f 70  |.. "XADFS_DiscOp|
00002a50  22 2c 2c 28 62 6c 6b 25  3c 3c 36 29 2b 31 2c 64  |",,(blk%<<6)+1,d|
00002a60  72 25 3c 3c 32 39 2c 6d  65 6d 25 2c 35 31 32 20  |r%<<29,mem%,512 |
00002a70  b8 20 64 69 73 6b 65 72  72 0d 0f e6 34 20 20 e7  |. diskerr...4  .|
00002a80  20 64 69 73 6b 65 72 72  3a 67 73 3d 31 3a 73 74  | diskerr:gs=1:st|
00002a90  61 74 65 64 73 69 7a 65  3d 30 3a 6e 6d 24 3d 22  |atedsize=0:nm$="|
00002aa0  4e 6f 74 20 69 64 65 6e  74 2e 22 3a e1 0d 0f f0  |Not ident.":....|
00002ab0  34 20 20 e3 20 4e 3d 26  46 37 20 b8 20 26 46 42  |4  . N=&F7 . &FB|
00002ac0  3a 6e 6d 24 2b 3d bd 28  6d 65 6d 25 3f 4e 29 2b  |:nm$+=.(mem%?N)+|
00002ad0  bd 28 6d 65 6d 25 3f 28  4e 2b 26 46 46 29 29 3a  |.(mem%?(N+&FF)):|
00002ae0  ed 0d 0f fa 48 20 20 73  74 61 74 65 64 73 69 7a  |....H  statedsiz|
00002af0  65 3d 28 6d 65 6d 25 21  32 35 32 20 80 20 26 46  |e=(mem%!252 . &F|
00002b00  46 46 46 29 2a 32 35 36  3a e7 20 73 74 61 74 65  |FFF)*256:. state|
00002b10  64 73 69 7a 65 3c 3d 31  30 32 34 2a 34 30 30 3a  |dsize<=1024*400:|
00002b20  74 72 61 63 6b 73 3d 34  30 0d 10 04 18 20 20 e7  |tracks=40....  .|
00002b30  20 74 79 70 65 25 3d 38  3a 73 70 74 72 6b 3d 31  | type%=8:sptrk=1|
00002b40  36 0d 10 0e 34 20 20 62  70 73 65 63 3d 32 5e 74  |6...4  bpsec=2^t|
00002b50  79 70 65 25 3a 62 6c 6b  25 21 31 36 3d 73 70 74  |ype%:blk%!16=spt|
00002b60  72 6b 2a 62 70 73 65 63  2a 74 72 61 63 6b 73 2a  |rk*bpsec*tracks*|
00002b70  68 65 61 64 73 0d 10 18  05 cd 0d 10 22 44 62 70  |heads......."Dbp|
00002b80  73 65 63 3d 32 5e 74 79  70 65 25 3a 62 6c 6b 25  |sec=2^type%:blk%|
00002b90  3f 30 3d 74 79 70 65 25  3a 62 6c 6b 25 3f 31 3d  |?0=type%:blk%?1=|
00002ba0  73 70 74 72 6b 3a e7 20  67 73 77 61 73 3a 67 73  |sptrk:. gswas:gs|
00002bb0  3d 62 66 73 7a 2f 62 70  73 65 63 2b 2e 35 0d 10  |=bfsz/bpsec+.5..|
00002bc0  2c 05 e1 0d 10 36 04 0d  10 40 20 dd 20 f2 64 69  |,....6...@ . .di|
00002bd0  73 70 6c 61 79 28 73 74  61 72 74 2c 6c 69 6e 65  |splay(start,line|
00002be0  73 2c 63 6f 64 65 29 0d  10 4a 2b e7 20 63 6f 64  |s,code)..J+. cod|
00002bf0  65 3e 36 3a f1 8a 31 2c  63 6f 64 65 29 3b 3a 73  |e>6:..1,code);:s|
00002c00  74 61 72 74 2b 3d 28 63  6f 64 65 2d 37 29 2a 26  |tart+=(code-7)*&|
00002c10  31 30 0d 10 54 28 e7 20  63 6f 64 65 3c 36 3a ef  |10..T(. code<6:.|
00002c20  32 38 2c 31 2c 32 39 2c  37 38 2c 37 2c 33 30 3a  |28,1,29,78,7,30:|
00002c30  e7 20 63 6f 64 65 3c 30  3a db 0d 10 5e 2a e7 20  |. code<0:...^*. |
00002c40  63 6f 64 65 3d 32 3a ef  31 31 3a 20 20 20 20 20  |code=2:.11:     |
00002c50  20 20 20 20 20 20 20 f4  20 73 63 72 6f 6c 6c 20  |       . scroll |
00002c60  64 6f 77 6e 0d 10 68 28  e7 20 63 6f 64 65 3d 33  |down..h(. code=3|
00002c70  3a ef 33 31 2c 30 2c 32  32 2c 31 30 3a 20 20 20  |:.31,0,22,10:   |
00002c80  20 f4 20 73 63 72 6f 6c  6c 20 75 70 0d 10 72 0b  | . scroll up..r.|
00002c90  fb 30 3a fb 31 33 35 0d  10 7c 2f e7 20 74 79 70  |.0:.135..|/. typ|
00002ca0  65 25 2a a8 67 73 3d 38  20 80 20 73 74 61 72 74  |e%*.gs=8 . start|
00002cb0  3d 30 20 80 20 6c 69 6e  65 73 3e 31 36 3a 6c 69  |=0 . lines>16:li|
00002cc0  6e 65 73 3d 31 36 0d 10  86 1c 66 69 6e 69 73 68  |nes=16....finish|
00002cd0  3d 73 74 61 72 74 2b 6c  69 6e 65 73 2a 26 31 30  |=start+lines*&10|
00002ce0  2d 31 0d 10 90 1e e3 20  6d 65 6d 3d 73 74 61 72  |-1..... mem=star|
00002cf0  74 20 b8 20 66 69 6e 69  73 68 20 88 20 26 31 30  |t . finish . &10|
00002d00  0d 10 9a 17 20 20 68 65  78 24 3d 22 22 3a 61 73  |....  hex$="":as|
00002d10  63 69 69 24 3d 22 22 0d  10 a4 15 20 20 e3 20 6f  |cii$=""....  . o|
00002d20  66 66 73 65 74 3d 30 20  b8 20 31 35 0d 10 ae 2c  |ffset=0 . 15...,|
00002d30  20 20 20 20 e7 28 28 6f  66 66 73 65 74 2b 31 29  |    .((offset+1)|
00002d40  80 26 31 33 29 3d 30 3a  6b 24 3d bd 31 34 30 20  |.&13)=0:k$=.140 |
00002d50  8b 20 6b 24 3d 22 20 22  0d 10 b8 24 20 20 20 20  |. k$=" "...$    |
00002d60  68 24 3d c3 7e 28 3f 28  6d 65 6d 25 2b 6d 65 6d  |h$=.~(?(mem%+mem|
00002d70  2b 6f 66 66 73 65 74 29  29 2b 6b 24 0d 10 c2 19  |+offset))+k$....|
00002d80  20 20 20 20 e7 20 a9 68  24 3d 32 3a 68 24 3d 22  |    . .h$=2:h$="|
00002d90  30 22 2b 68 24 0d 10 cc  20 20 20 20 20 61 24 3d  |0"+h$...     a$=|
00002da0  bd 28 3f 28 6d 65 6d 25  2b 6d 65 6d 2b 6f 66 66  |.(?(mem%+mem+off|
00002db0  73 65 74 29 29 0d 10 d6  1f 20 20 20 20 e7 20 61  |set))....    . a|
00002dc0  24 3e bd 31 32 37 3a 61  24 3d bd 28 97 61 24 2d  |$>.127:a$=.(.a$-|
00002dd0  31 32 38 29 0d 10 e0 22  20 20 20 20 e7 20 61 24  |128)..."    . a$|
00002de0  3c 22 20 22 20 84 20 61  24 3e 3d bd 31 32 37 3a  |<" " . a$>=.127:|
00002df0  61 24 3d 22 2e 22 0d 10  ea 1b 20 20 20 20 68 65  |a$="."....    he|
00002e00  78 24 2b 3d 68 24 3a 61  73 63 69 69 24 2b 3d 61  |x$+=h$:ascii$+=a|
00002e10  24 0d 10 f4 07 20 20 ed  0d 10 fe 10 20 20 6d 65  |$....  .....  me|
00002e20  6d 24 3d c3 7e 6d 65 6d  0d 11 08 20 20 20 c8 95  |m$=.~mem...   ..|
00002e30  20 a9 6d 65 6d 24 3c 33  3a 6d 65 6d 24 3d 22 30  | .mem$<3:mem$="0|
00002e40  22 2b 6d 65 6d 24 3a ce  0d 11 12 20 20 20 c8 95  |"+mem$:....   ..|
00002e50  20 a9 6d 65 6d 24 3c 36  3a 6d 65 6d 24 3d 22 20  | .mem$<6:mem$=" |
00002e60  22 2b 6d 65 6d 24 3a ce  0d 11 1c 1f 20 20 f1 20  |"+mem$:.....  . |
00002e70  6d 65 6d 24 3b 89 33 3b  68 65 78 24 3b 89 32 3b  |mem$;.3;hex$;.2;|
00002e80  61 73 63 69 69 24 3b 0d  11 26 26 20 20 e7 20 6d  |ascii$;..&&  . m|
00002e90  65 6d 3c 66 69 6e 69 73  68 2d 31 36 3a f1 3a 8b  |em<finish-16:.:.|
00002ea0  20 6d 65 6d 3d 66 69 6e  69 73 68 2b 31 0d 11 30  | mem=finish+1..0|
00002eb0  05 ed 0d 11 3a 2d e7 20  74 79 70 65 25 2a a8 67  |....:-. type%*.g|
00002ec0  73 3d 38 20 80 20 73 74  61 72 74 3d 30 3a ef 32  |s=8 . start=0:.2|
00002ed0  38 2c 31 2c 32 39 2c 37  38 2c 32 33 2c 31 32 0d  |8,1,29,78,23,12.|
00002ee0  11 44 07 ef 32 36 0d 11  4e 0f e7 20 64 69 73 6b  |.D..26..N.. disk|
00002ef0  65 72 72 20 8c 0d 11 58  34 20 20 78 24 3d 22 22  |err ...X4  x$=""|
00002f00  3a 79 79 3d 34 3a f5 3a  7a 7a 3d 64 69 73 6b 65  |:yy=4:.:zz=diske|
00002f10  72 72 3f 79 79 3a 78 24  2b 3d bd 7a 7a 3a 79 79  |rr?yy:x$+=.zz:yy|
00002f20  2b 3d 31 3a fd 7a 7a 3d  30 0d 11 62 36 20 20 fb  |+=1:.zz=0..b6  .|
00002f30  31 3a f2 77 69 6e 64 6f  77 28 33 34 2d a9 78 24  |1:.window(34-.x$|
00002f40  2f 32 2c 31 36 2c a9 78  24 2c 33 2c 31 30 2c 78  |/2,16,.x$,3,10,x|
00002f50  24 29 3a fb 30 3a 64 69  73 6b 65 72 72 3d 30 0d  |$):.0:diskerr=0.|
00002f60  11 6c 07 20 20 cd 0d 11  76 05 e1 0d 11 80 04 0d  |.l.  ...v.......|
00002f70  11 8a 0a dd 20 f2 62 66  72 0d 11 94 0d e7 20 64  |.... .bfr..... d|
00002f80  78 3d 35 34 3a e1 0d 11  9e 2e e7 20 64 78 3c 35  |x=54:...... dx<5|
00002f90  34 3a 73 72 24 3d 22 53  74 6f 72 65 64 20 22 2b  |4:sr$="Stored "+|
00002fa0  69 64 24 3a 42 25 3d 6d  65 6d 25 3a 41 25 3d 62  |id$:B%=mem%:A%=b|
00002fb0  6d 65 6d 25 0d 11 a8 37  e7 20 64 78 3e 35 34 3a  |mem%...7. dx>54:|
00002fc0  c0 73 72 24 2c 36 29 3d  22 52 65 63 61 6c 6c 22  |.sr$,6)="Recall"|
00002fd0  3a 42 25 3d 62 6d 65 6d  25 3a 41 25 3d 6d 65 6d  |:B%=bmem%:A%=mem|
00002fe0  25 3a 63 68 61 6e 67 65  64 3d b9 0d 11 b2 15 43  |%:changed=.....C|
00002ff0  25 3d 41 25 2b 62 66 73  7a 3a d6 20 63 6f 70 79  |%=A%+bfsz:. copy|
00003000  0d 11 bc 26 e7 20 41 25  3d 6d 65 6d 25 3a f2 64  |...&. A%=mem%:.d|
00003010  69 73 70 6c 61 79 28 73  74 61 72 74 2c 6c 69 6e  |isplay(start,lin|
00003020  65 73 2c 2d 31 29 0d 11  c6 15 fb 35 3a f1 8a 33  |es,-1).....5:..3|
00003030  31 2c 35 29 73 72 24 3b  3a fb 30 0d 11 d0 05 e1  |1,5)sr$;:.0.....|
00003040  0d 11 da 04 0d 11 e4 0d  dd 20 f2 70 74 72 28 78  |......... .ptr(x|
00003050  29 0d 11 ee 14 ff 28 22  50 4f 49 4e 54 45 52 20  |).....("POINTER |
00003060  22 2b c3 78 29 0d 11 f8  27 e7 20 78 3d 31 3a c8  |"+.x)...'. x=1:.|
00003070  97 20 78 2c 79 2c 62 3a  e7 20 79 3c 38 34 38 3a  |. x,y,b:. y<848:|
00003080  c8 97 20 b8 20 33 32 30  2c 38 34 38 0d 12 02 05  |.. . 320,848....|
00003090  e1 0d 12 0c 04 0d 12 16  0b dd 20 f2 68 65 6c 70  |.......... .help|
000030a0  0d 12 20 1a f5 3a c8 97  20 78 2c 79 2c 7a 3a fd  |.. ..:.. x,y,z:.|
000030b0  20 7a 3d 30 3a 2a 46 58  31 35 0d 12 2a 73 f1 8a  | z=0:*FX15..*s..|
000030c0  30 2c 30 29 22 54 6f 20  6d 6f 76 65 20 61 72 6f  |0,0)"To move aro|
000030d0  75 6e 64 20 74 68 65 20  64 69 73 63 20 63 6c 69  |und the disc cli|
000030e0  63 6b 20 6d 6f 75 73 65  20 22 22 73 65 6c 65 63  |ck mouse ""selec|
000030f0  74 22 22 20 62 75 74 74  6f 6e 20 6f 6e 20 6f 6e  |t"" button on on|
00003100  65 20 6f 66 20 74 68 65  20 61 72 72 6f 77 73 22  |e of the arrows"|
00003110  27 22 6f 66 20 54 72 61  63 6b 2c 20 48 65 61 64  |'"of Track, Head|
00003120  2c 20 6f 72 20 53 65 63  74 6f 72 2e 22 0d 12 34  |, or Sector."..4|
00003130  a2 f1 27 22 41 6c 74 65  72 6e 61 74 69 76 65 6c  |..'"Alternativel|
00003140  79 2c 20 63 6c 69 63 6b  20 6f 6e 20 74 68 65 20  |y, click on the |
00003150  62 6f 78 20 77 69 74 68  20 63 75 72 72 65 6e 74  |box with current|
00003160  20 76 61 6c 75 65 73 20  6f 66 20 54 72 61 63 6b  | values of Track|
00003170  2c 20 48 65 61 64 2c 20  53 65 63 74 6f 72 22 27  |, Head, Sector"'|
00003180  22 6f 72 20 74 68 65 20  6e 65 78 74 20 62 6f 78  |"or the next box|
00003190  2c 20 77 68 69 63 68 20  69 73 20 22 22 41 62 73  |, which is ""Abs|
000031a0  6f 6c 75 74 65 20 53 65  63 74 6f 72 20 41 64 64  |olute Sector Add|
000031b0  72 65 73 73 22 22 20 61  6e 64 20 65 6e 74 65 72  |ress"" and enter|
000031c0  20 6e 65 77 20 76 61 6c  75 65 28 73 29 2e 22 0d  | new value(s).".|
000031d0  12 3e 91 f1 22 50 72 65  73 73 69 6e 67 20 3c 52  |.>.."Pressing <R|
000031e0  45 54 4e 3e 20 6f 6e 6c  79 2c 20 6c 65 61 76 65  |ETN> only, leave|
000031f0  73 20 61 6e 20 65 78 69  73 74 69 6e 67 20 76 61  |s an existing va|
00003200  6c 75 65 20 75 6e 63 68  61 6e 67 65 64 2e 20 49  |lue unchanged. I|
00003210  66 20 64 61 74 61 20 68  61 73 20 62 65 65 6e 22  |f data has been"|
00003220  27 22 63 68 61 6e 67 65  64 2c 20 72 65 70 6c 79  |'"changed, reply|
00003230  20 74 6f 20 22 22 53 61  76 65 3f 22 22 20 6d 65  | to ""Save?"" me|
00003240  73 73 61 67 65 20 62 79  20 61 20 63 6c 69 63 6b  |ssage by a click|
00003250  20 6f 6e 20 5b 59 5d 20  6f 72 20 5b 4e 5d 2e 22  | on [Y] or [N]."|
00003260  0d 12 48 45 f1 27 22 43  68 61 6e 67 65 20 44 72  |..HE.'"Change Dr|
00003270  69 76 65 20 73 69 6d 69  6c 61 72 6c 79 2e 20 28  |ive similarly. (|
00003280  4e 6f 20 65 6e 74 72 79  20 6e 65 65 64 65 64 20  |No entry needed |
00003290  6f 6e 20 61 20 32 2d 64  72 69 76 65 20 73 79 73  |on a 2-drive sys|
000032a0  74 65 6d 29 22 0d 12 52  42 f1 27 22 43 6c 69 63  |tem)"..RB.'"Clic|
000032b0  6b 20 6f 6e 20 2a 20 62  6f 78 20 74 6f 20 65 6e  |k on * box to en|
000032c0  74 65 72 20 63 6f 6d 6d  61 6e 64 73 2e 20 46 69  |ter commands. Fi|
000032d0  6e 69 73 68 20 77 69 74  68 20 3c 52 45 54 4e 3e  |nish with <RETN>|
000032e0  20 6f 6e 6c 79 2e 22 0d  12 5c 7d f1 27 22 54 6f  | only."..\}.'"To|
000032f0  20 65 64 69 74 20 64 61  74 61 2c 20 63 6c 69 63  | edit data, clic|
00003300  6b 20 22 22 73 65 6c 65  63 74 22 22 20 6f 6e 20  |k ""select"" on |
00003310  68 65 78 20 6f 72 20 74  65 78 74 20 61 6e 64 20  |hex or text and |
00003320  65 6e 74 65 72 20 6e 65  77 20 68 65 78 20 6f 72  |enter new hex or|
00003330  20 74 65 78 74 2e 22 27  22 54 6f 20 66 69 6e 69  | text."'"To fini|
00003340  73 68 20 70 72 65 73 73  20 3c 45 53 43 3e 20 6f  |sh press <ESC> o|
00003350  72 20 63 6c 69 63 6b 20  22 22 61 64 6a 75 73 74  |r click ""adjust|
00003360  22 22 2e 22 0d 12 66 59  f1 27 22 54 6f 20 73 63  |""."..fY.'"To sc|
00003370  72 6f 6c 6c 20 64 69 73  70 6c 61 79 20 75 73 65  |roll display use|
00003380  20 50 61 67 65 20 55 70  2f 44 6f 77 6e 20 6b 65  | Page Up/Down ke|
00003390  79 73 2c 20 63 6c 69 63  6b 20 22 22 73 65 6c 65  |ys, click ""sele|
000033a0  63 74 22 22 20 6f 72 20  20 22 22 61 64 6a 75 73  |ct"" or  ""adjus|
000033b0  74 22 22 20 6f 6e 20 41  64 64 72 3a 22 0d 12 70  |t"" on Addr:"..p|
000033c0  57 f1 22 63 6f 6c 75 6d  6e 20 6f 72 22 3b 3a fb  |W."column or";:.|
000033d0  31 3a f1 22 20 41 64 64  72 3a 22 3b 3a fb 30 3a  |1:." Addr:";:.0:|
000033e0  f1 22 20 6f 72 20 64 72  61 67 20 77 69 74 68 20  |." or drag with |
000033f0  22 22 6d 65 6e 75 22 22  20 62 75 74 74 6f 6e 20  |""menu"" button |
00003400  6f 76 65 72 20 74 68 65  20 64 61 74 61 20 61 72  |over the data ar|
00003410  65 61 2e 22 0d 12 7a 48  f1 27 22 54 6f 20 72 65  |ea."..zH.'"To re|
00003420  73 65 74 20 66 6f 72 20  61 20 6e 65 77 20 64 69  |set for a new di|
00003430  73 63 2c 20 63 6c 69 63  6b 20 6f 6e 20 22 3b 3a  |sc, click on ";:|
00003440  fb 31 3a f1 22 55 6e 69  76 65 72 73 61 6c 20 22  |.1:."Universal "|
00003450  3b 3a fb 30 3a f1 22 62  6f 78 2e 22 0d 12 84 4e  |;:.0:."box."...N|
00003460  f1 27 22 73 2f 72 20 74  6f 20 73 74 6f 72 65 2f  |.'"s/r to store/|
00003470  72 65 63 61 6c 6c 20 73  65 63 74 6f 72 20 64 61  |recall sector da|
00003480  74 61 20 74 6f 2f 66 72  6f 6d 20 61 75 78 2e 20  |ta to/from aux. |
00003490  62 75 66 66 65 72 2e 20  55 73 65 20 77 69 74 68  |buffer. Use with|
000034a0  20 63 61 75 74 69 6f 6e  2e 22 0d 12 8e 49 f1 27  | caution."...I.'|
000034b0  22 43 6c 69 63 6b 69 6e  67 20 6f 6e 20 53 69 7a  |"Clicking on Siz|
000034c0  65 20 62 6f 78 20 74 72  65 61 74 73 20 73 65 63  |e box treats sec|
000034d0  74 6f 72 73 20 61 73 20  63 6c 75 73 74 65 72 73  |tors as clusters|
000034e0  20 6f 66 20 22 3b 62 66  73 7a 2f 31 30 32 34 3b  | of ";bfsz/1024;|
000034f0  22 4b 22 0d 12 98 3e f1  22 54 68 65 20 63 6c 75  |"K"...>."The clu|
00003500  73 74 65 72 20 73 69 7a  65 20 28 62 66 73 7a 29  |ster size (bfsz)|
00003510  20 63 61 6e 20 62 65 20  61 6c 74 65 72 65 64 20  | can be altered |
00003520  69 6e 20 74 68 65 20 70  72 6f 67 72 61 6d 2e 22  |in the program."|
00003530  3b 0d 12 a2 1b f5 3a c8  97 20 78 2c 79 2c 7a 3a  |;.....:.. x,y,z:|
00003540  fd 28 a6 30 3e 2d 31 29  20 84 20 7a 0d 12 ac 05  |.(.0>-1) . z....|
00003550  e1 0d 12 b6 04 0d 12 c0  0c dd 20 f2 61 73 73 65  |.......... .asse|
00003560  6d 0d 12 ca 11 e3 20 58  3d 30 20 b8 20 32 20 88  |m..... X=0 . 2 .|
00003570  20 32 0d 12 d4 13 50 25  3d 6d 63 6f 64 65 3a 5b  | 2....P%=mcode:[|
00003580  4f 50 54 20 58 0d 12 de  48 2e 63 6f 70 79 3b 20  |OPT X...H.copy; |
00003590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 41  |               A|
000035a0  25 3d 74 6f 2c 20 42 25  3d 66 72 6f 6d 2c 20 43  |%=to, B%=from, C|
000035b0  25 3d 65 6e 64 5f 74 6f  2b 31 20 28 61 6c 6c 20  |%=end_to+1 (all |
000035c0  77 6f 72 64 2d 61 6c 69  67 6e 65 64 29 0d 12 e8  |word-aligned)...|
000035d0  12 4c 44 52 20 52 33 2c  5b 52 31 5d 2c 23 34 0d  |.LDR R3,[R1],#4.|
000035e0  12 f2 12 53 54 52 20 52  33 2c 5b 52 30 5d 2c 23  |...STR R3,[R0],#|
000035f0  34 0d 12 fc 16 43 4d 50  20 52 30 2c 52 32 3a 42  |4....CMP R0,R2:B|
00003600  43 43 20 63 6f 70 79 0d  13 06 0e 4d 4f 56 20 50  |CC copy....MOV P|
00003610  43 2c 52 31 34 0d 13 10  49 2e 7a 65 72 6f 3b 20  |C,R14...I.zero; |
00003620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 41  |               A|
00003630  25 3d 74 6f 2c 20 42 25  3d 30 2c 20 43 25 3d 65  |%=to, B%=0, C%=e|
00003640  6e 64 5f 74 6f 2b 31 20  28 6f 6e 6c 79 20 43 25  |nd_to+1 (only C%|
00003650  20 77 6f 72 64 2d 61 6c  69 67 6e 65 64 29 0d 13  | word-aligned)..|
00003660  1a 13 53 54 52 42 20 52  31 2c 5b 52 30 5d 2c 23  |..STRB R1,[R0],#|
00003670  31 0d 13 24 18 80 53 20  52 34 2c 52 30 2c 23 33  |1..$..S R4,R0,#3|
00003680  3a 42 4e 45 20 7a 65 72  6f 0d 13 2e 07 2e 7a 32  |:BNE zero.....z2|
00003690  0d 13 38 12 53 54 52 20  52 31 2c 5b 52 30 5d 2c  |..8.STR R1,[R0],|
000036a0  23 34 0d 13 42 14 43 4d  50 20 52 30 2c 52 32 3a  |#4..B.CMP R0,R2:|
000036b0  42 43 43 20 7a 32 0d 13  4c 0e 4d 4f 56 20 50 43  |BCC z2..L.MOV PC|
000036c0  2c 52 31 34 0d 13 56 07  5d 3a ed 0d 13 60 05 e1  |,R14..V.]:...`..|
000036d0  0d ff                                             |..|
000036d2