� The HodgePodge Machine
� ======================
:
(� � � � �,�$+" @ "+Þ:�
2	�init
<� � �error
Fȕ quit%=�
P	�poll
Z�
dș"Wimp_CloseDown"
n�
x:
�� �init
�-taskname$="HodgePodge":errname$=taskname$
�A� q% 2048,miscb% 256,errblock% 256,pixtrans% 256,scaleblk% 20
�� code% 5*&400
�� sp%(2)
�/ș"Wimp_Initialise",200,&4B534154,taskname$
��init_templates
��init_ibar
��init_menus
��default
��change_settings
�*openmenu%=0:quit%=�:frame%=1:status%=0
��

:

� �init_templates

� t$,s$,f%

"� tname% 11

,!idsize%=1400:� idata% idsize%

6(idmax%=idata%+idsize%:idleft%=idata%

@nextt%=0

J"s$="Sprites22":t$="Templates2"

T� toolspr% 1600

^ !toolspr%=1600:toolspr%!8=16

hș&2E,&109,toolspr%

r'ș"OS_ReadModeVariable",-1,5 � ,,y%

|(� y%=2 � s$="Sprites":t$="Templates"

�&ș"XWimp_SpriteOp",40,,"pup" � ;f%

�� (f%�1) � t$="Templates"

�)ș&2E,&10A,toolspr%,"<Hodge$Dir>."+s$

�,ș"Wimp_OpenTemplate",,"<Hodge$Dir>."+t$

�,wh_proginfo%=�loadtemplate("progInfo",1)

�*wh_display%=�loadtemplate("Display",1)

�&wh_setup%=�loadtemplate("Setup",1)

�-wh_tools%=�loadtemplate("Tools",toolspr%)

�)wh_save%=�loadtemplate("xfer_send",1)

�&wh_scale%=�loadtemplate("Scale",1)

�ș"Wimp_CloseTemplate"

��

�#� �loadtemplate(tname$,sparea%)
$tname%=tname$
Lș"Wimp_LoadTemplate",,q%,idleft%,idmax%,-1,tname%,0�,,idleft%,,,,nextt%
q%!64=sparea%
&(ș"Wimp_CreateWindow",,q% � whandle%
0
=whandle%
::
D� �init_ibar
N9!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=&700301A
X$(q%+24)="!hodge"
b&ș"Wimp_CreateIcon",,q% � ih_ibar%
l�
v:
�� �init_menus
�Dmenu_ibar%=�makemenu("Hodge","Info�wh_proginfo%|Settings�|Quit")
�Jmenu_display%=�makemenu("Hodge","Scale�wh_scale%|Save image�wh_save%")
��
�:
�C� =============================================================
�:
�� �poll
�ș"Wimp_Poll",,q% � reason%
�Ȏ reason% �
�	  � 0
�    � status%�4 �
�      status%=status%�3
5      !q%=wh_display%:ș"Wimp_GetWindowState",,q%
      �opendisplay
	    �
     � status%>0 �
*    Ȕ A%,B%:� update
4    frame%=frame%�3
>2    !q%=wh_display%:q%!4=0:q%!8=-ymax%*scale2%
H#    q%!12=xmax%*scale2%:q%!16=0
R1    ș"Wimp_UpdateWindow",,q% � more%:�redraw
\.    gen%+=1:�setitext(wh_tools%,4,�(gen%))
f	    �
p    � status%=1 status%=0
z	  � 1
�)    ș"Wimp_RedrawWindow",,q% � more%
�    �redraw
�	  � 2
�B    � !q%=wh_display% � �opendisplay � ș"Wimp_OpenWindow",,q%
�"  � 3:ș"Wimp_CloseWindow",,q%
�@    � !q%=wh_display% !q%=wh_tools%:ș"Wimp_CloseWindow",,q%
�	  � 6
�5    � q%!8=2 �openmenu � �click(q%!8,q%!12,q%!16)
�  � 7:�save_stopdrag
�  � 8:�keypress(q%!24)
�  � 9:�menuselect
�  � 17,18:�receive
��
�
:

� �redraw
$7!miscb%=wh_display%:ș"Wimp_GetWindowState",,miscb%
.ȕ more%
8T  ș&2E,&234,spr%,sp%(frame%),miscb%!4,miscb%!16-scale2%*ymax%,,scale%,pixtrans%
B  ș&400CA,,q% � more%
L�
V�
`:
j� �openmenu
t� ypos%
~Ȏ q%!12 �
�)  � -2:ypos%=228:openmenu%=menu_ibar%
�@  � wh_display%,wh_tools%:ypos%=q%!4:openmenu%=menu_display%
��
�:� ypos%<>0 ș"Wimp_CreateMenu",,openmenu%,!q%-64,ypos%
��
�:
�'� �click(button%,whandle%,ihandle%)
�Ȏ whandle% �
�
  � -2
�5    � button%=4 � !q%=wh_display% � !q%=wh_setup%
�#    ș"Wimp_GetWindowState",,q%
�:    q%!28=-1:� ((q%!32)�(1<<16))=0 �centrewindow(q%+4)
:    � button%=4 �opendisplay � ș"Wimp_OpenWindow",,q%

3  � wh_setup%:�settings_click(ihandle%,button%)
  � wh_tools%
    Ȏ ihandle% �
(      � 0:status%=0
2      � 1:status%=2
<      � 2:status%=1
F      � 3:�singletask
P
      � 5
Z        oldA%=A%
d1        A%=�:D%=sp%(frame%)+!(sp%(frame%)+32)
n&        E%=D%+xmax%*ymax%:� random
x        A%=oldA%
�K        ș"Wimp_ForceRedraw",wh_display%,0,-ymax%*scale2%,xmax%*scale2%
�1        gen%=0:�setitext(wh_tools%,4,�(gen%))
�	    �
�  � wh_scale%
�    Ȏ ihandle% �
�      � 1,2
�%        c%=�(�itext(wh_scale%,0))
�&        � ihandle%=1 c%-=1 � c%+=1
�9        � c%>0 � c%<9 �setwritable(wh_scale%,0,�(c%))
�      � 3:�change_display
�1        � button%=4 � ș"Wimp_CreateMenu",,-1
�	    �
�  � wh_save%
    Ȏ ihandle% �
,      � 3:� button%=64 � �save_startdrag

      � 0
"�        � ��itext(wh_save%,2),".")=0 � dummy%=�report("To save, drag the icon to a directory viewer",1) � �save_doit(�itext(wh_save%,2))
,#        ș"Wimp_CreateMenu",,-1
6	    �
@�
J�
T:
^� �menuselect
h� openmenu%=menu_ibar% �
r  Ȏ !q% �
|    � 1:�settings_show
�;      !miscb%=wh_setup%:ș"Wimp_GetWindowState",,miscb%
�;      � ((miscb%!32)�(1<<16))=0 �centrewindow(miscb%+4)
�2      miscb%!28=-1:ș"Wimp_OpenWindow",,miscb%
�    � 2:quit%=�
�  �
��
�#ș"Wimp_GetPointerInfo",,miscb%
�5� miscb%!8=1 � ș"Wimp_CreateMenu",,openmenu%,0,0
��
�:
�� �receive
�� n$
�Ȏ q%!16 �
  � 0:quit%=�
	  � 2
    n$=�cts(q%+44)
&    �save_doit(n$)
0;    � �n$,"<Wimp$Scrap>")=0 �setwritable(wh_save%,2,n$)
:"    q%!12=q%!8:q%!16=3:!q%=256
D.    ș"Wimp_SendMessage",18,q%,q%!20,q%!24
N  � &400C1
XC    ș"ColourTrans_GenerateTable",spr%,sp%(1),-1,-1,pixtrans%,1
b    �change_display
l�
v�
�:
�� �keypress(k%)
�� c%
�Ȏ !q% �
�  � wh_scale%
�    � k%=13 � q%!4=13 �
�      c%=�:�change_display
�!      ș"Wimp_CreateMenu",,-1
�	    �
�  � wh_setup%
�    � k%=13 �
�      �settings_check
�      �change_settings
0      !q%=wh_setup%:ș"Wimp_CloseWindow",,q%
	    �
  � wh_save%
     � k%=13 �
*�      � ��itext(wh_save%,2),".")=0 � dummy%=�report("To save, drag the icon to a directory viewer",1) � �save_doit(�itext(wh_save%,2))
4!      ș"Wimp_CreateMenu",,-1
>      c%=�
H	    �
R�
\#� c%=� � ș"Wimp_ProcessKey",k%
f�
p:
z� �default
�n%=100:k1%=2:k2%=3:g%=5
�xmax%=128:ymax%=128:wrap%=�
�nb%=%010101010
��
�:
�� �settings_show
�� w%
�w%=wh_setup%
��setwritable(w%,1,�(n%))
��setwritable(w%,5,�(k1%))
��setwritable(w%,9,�(k2%))
��setwritable(w%,13,�(g%))
� �setwritable(w%,28,�(xmax%))
	 �setwritable(w%,32,�(ymax%))
	�selecticon(w%,35,wrap%)
	� i%=0 � 8
	$/� i%<>4 � �selecticon(w%,i%+16,nb%�(1<<i%))
	.� i%
	8�
	B:
	L� �settings_read
	V� w%,i%
	`w%=wh_setup%
	jn%=�(�itext(w%,1))
	tk1%=�(�itext(w%,5))
	~k2%=�(�itext(w%,9))
	�g%=�(�itext(w%,13))
	�xmax%=�(�itext(w%,28))
	�ymax%=�(�itext(w%,32))
	�wrap%=�selicon(w%,35)
	�	nb%=0
	�� i%=0 � 8
	�/� i%<>4 � nb%+=(�selicon(w%,i%+16)�(1<<i%))
	�� i%
	��
	�:
	�� �settings_check
	��settings_read
n%=�limit(n%,2,255)

k1%=�limit(k1%,1,10)
k2%=�limit(k2%,1,10)
g%=�limit(g%,1,n%)
(!xmax%=�limit(xmax%,20,512)�-4
2!ymax%=�limit(ymax%,20,512)�-4
<�settings_show
F�
P:
Z� �settings_click(ih%,bt%)
dȎ ih% �
n  � 2:�alter(1,-1,2,255)
x  � 3:�alter(1,1,2,255)
�  � 6:�alter(5,-1,1,10)
�  � 7:�alter(5,1,1,10)
�  � 10:�alter(9,-1,1,10)
�  � 11:�alter(9,1,1,10)
�  � 14:�alter(13,-1,1,99)
�  � 15:�alter(13,1,1,99)
�  � 29:�alter(28,-4,20,512)
�  � 30:�alter(28,4,20,512)
�  � 33:�alter(32,-4,20,512)
�  � 34:�alter(32,4,20,512)
�+  � 26:�settings_check:�change_settings
�@    � bt%=4 � !miscb%=wh_setup%:ș"Wimp_CloseWindow",,miscb%
�"  � 25:�default:�settings_show
@    � bt%=4 � !miscb%=wh_setup%:ș"Wimp_CloseWindow",,miscb%
�
�
":
,!� �alter(ih%,step%,min%,max%)
6� c%,d%
@c%=�(�itext(wh_setup%,ih%))
Jd%=c%+step%
T� d%<min% � d%=min%
^� d%>max% � d%=max%
h0� d%<>c% � �setwritable(wh_setup%,ih%,�(d%))
r�
|:
�� �change_settings
�'ssize_req%=128+2*xmax%*ymax%:spr%=�
�&ș "OS_ReadMemMapInfo" � pagesize%
�!pages%=ssize_req% � pagesize%
�,� (ssize_req% � pagesize%)>0 � pages%+=1
�slotsize%=spr%-&8000
�@ș "Wimp_SlotSize",slotsize%+pagesize%*pages%,-1 � slotsize%
�sprend%=slotsize%+&8000
�/� sprend%<=spr% � � 0,"No room for sprites"
�)!spr%=sprend%-spr%:spr%!4=0:spr%!8=16
�ș&2E,&109,spr%
�(ș&2E,&10F,spr%,"1",0,xmax%,ymax%,28
�(ș&2E,&10F,spr%,"2",0,xmax%,ymax%,28
"ș&2E,&118,spr%,"1" � ,,sp%(1)
"ș&2E,&118,spr%,"2" � ,,sp%(2)
�change_display
&?ș"ColourTrans_GenerateTable",spr%,sp%(1),-1,-1,pixtrans%,1
0
�assemble
:1A%=�:D%=sp%(1)+!(sp%(1)+32):E%=D%+xmax%*ymax%
D� random
N1A%=sp%(1)+!(sp%(1)+32):B%=sp%(2)+!(sp%(2)+32)
X2frame%=1:gen%=0:�setitext(wh_tools%,4,�(gen%))
b�
l:
v� �change_display
�%� xeig%,yeig%,zoom%,xsize%,ysize%
�/xeig%=�readmodevar(4):yeig%=�readmodevar(5)
� zoom%=�(�itext(wh_scale%,0))
�;� xeig%<yeig% scale%=zoom%<<yeig% � scale%=zoom%<<xeig%
�0!q%=wh_display%:ș"Wimp_GetWindowInfo",,q%+1
�b� ((q%!32)�(1<<16)) ș"Wimp_ForceRedraw",wh_display%,q%!44,q%!48,q%!52,q%!56:status%=status%�4
�F!miscb%=0:miscb%!4=-scale%*ymax%:miscb%!8=scale%*xmax%:miscb%!12=0
�)ș"Wimp_SetExtent",wh_display%,miscb%
�scale2%=scale%
�� xeig%=yeig% � zoom%=1 �
�  scale%=0
� �
�  scale%=scaleblk%

%  � xeig%<yeig% � xeig%=1:yeig%=0

�

!scaleblk%=zoom%<<xeig%

 scaleblk%!4=zoom%<<yeig%

* scaleblk%!8=1:scaleblk%!12=1

4�

>:

H� �opendisplay

R� xsize%,ysize%,xpos%

\xpos%=q%!4

fș"Wimp_OpenWindow",,q%

p!ș"Wimp_GetWindowOutline",,q%

z5!miscb%=wh_tools%:ș"Wimp_GetWindowState",,miscb%

�7xsize%=miscb%!12-miscb%!4:ysize%=miscb%!16-miscb%!8

�>miscb%!4=xpos%:miscb%!8=q%!8-ysize%:miscb%!12=xpos%+xsize%

�(miscb%!16=q%!8:miscb%!28=wh_display%

�ș"Wimp_OpenWindow",,miscb%

��

�:

�� �limit(a%,min%,max%)

�� a%<min% a%=min%

�� a%>max% a%=max%

�=a%

�:

�� �singletask

�3� oldmode%,mode%,xs%,ys%,xmul%,ymul%,xp%,yp%,k%
oldmode%=�
�
�
$
  � mode%
.$� �checkmode(mode%)=� � mode%=-1
8� mode%=-1 mode%=13
B� mode%
L�
Vxs%=�readmodevar(11)+1
`ys%=�readmodevar(12)+1
j<ș"ColourTrans_GenerateTable",spr%,sp%(1),-1,-1,miscb%,1
t'xmul%=xs% � xmax%:� xmul%=0 xmul%=1
~xp%=(xs% - xmax%*xmul%)
�%ymul%=ys%/ymax%:� ymul%=0 ymul%=1
�yp%=(ys% - ymax%*ymul%)
�3q%!1000=xmul%:q%!1004=ymul%:q%!1008=1:q%!1012=1
��
�  gen%+=1:frame%=frame%�3
�  Ȕ A%,B%:� update
�  Ȗ
�9  ș&2E,&234,spr%,sp%(frame%),xp%,yp%,,q%+1000,miscb%
�  ș6,121 � ,k%
�
� k%<>&FF
�ș"Wimp_SetMode",oldmode%
�
ș6,15
�

� 32,28,36,15,-1
:
� �checkmode(mode%)
(� f%
2� mode%=-1 � =�
<ș&35,mode% � ;f%
F� (f%�2) � =� � =�
P:
Z� �save_startdrag
d� xorig%,yorig%
n!miscb%=wh_save%
x#ș"Wimp_GetWindowState",,miscb%
�xorig%=miscb%!4-miscb%!20
�yorig%=miscb%!16-miscb%!24
�miscb%!4=3
�!ș"Wimp_GetIconState",,miscb%
�5!miscb%=xorig%+miscb%!8:miscb%!4=yorig%+miscb%!12
�8miscb%!8=xorig%+miscb%!16:miscb%!12=yorig%+miscb%!20
�7ș"DragASprite_Start",%10000101,1,"file_ff9",miscb%
��
�:
�� �save_stopdrag
�ș"DragASprite_Stop"
�ș"Wimp_CreateMenu",,-1
�#ș"Wimp_GetPointerInfo",,miscb%
#q%!20=miscb%!12:q%!24=miscb%!16
 q%!28=!miscb%:q%!32=miscb%!4
#q%!36=48+xmax%*ymax%:q%!40=&ff9
"-$(q%+44)=�leafname(�itext(wh_save%,2))+�0
,q%!16=1:q%!12=0
63!q%=((48+�(�leafname(�itext(wh_save%,2))))�4)*4
@*ș"Wimp_SendMessage",18,q%,q%!20,q%!24
J�
T:
^� �save_doit(path$)
h� f%,o%
rf%=frame%�3
|ș&2E,&219,spr%,sp%(f%)
�%ș&2E,&11A,spr%,�(frame%),�(gen%)
�ș&2E,&10C,spr%,path$
�%ș&2E,&11A,spr%,�(gen%),�(frame%)
�*ș&2E,&10F,spr%,�(f%),0,xmax%,ymax%,28
�%ș&2E,&118,spr%,�(f%) � ,,sp%(f%)
�-ș&2E,&118,spr%,�(frame%) � ,,sp%(frame%)
�$A%=sp%(frame%)+!(sp%(frame%)+32)
�B%=sp%(f%)+!(sp%(f%)+32)
��
�:
�C� =============================================================
�:
�� �makemenu(title$,menu$)
<� b%,items%,pos%,size%,id%,ids%,i$,f$,f%,p%,sub%,maxlen%
maxlen%=�(title$)-3
�
& a%=�menu$,"|",pos%+1)
0  i$=�menu$,pos%+1,a%-pos%-1)
:$ � �i$,"�") � i$=�i$,�i$,"�")-1)
D, � �i$,"\") � f$=�i$,�i$,"\")-1) � f$=""
N i$=�i$,�i$,"\")+1)
X* � �(i$)>11 � �f$,"I") � ids%+=�(i$)+1
b! pos%=a%:� pos%>0 � items%+=1
l
� a%=0
vsize%=24*items%+60
�� b% size%
�*� ids%>0 � ids%+=8:� id% ids%:ids%=id%
�,$b%=title$:b%!12=&70207:b%!20=44:b%!24=0
�
pos%=0
�� l%=0 � items%
� f%=0:sub%=-1
� � l%=items% � f%=&80
� a%=�menu$,"|",pos%+1)
� � a%=0 � a%=�(menu$)+1
�  i$=�menu$,pos%+1,a%-pos%-1)
� � �i$,"�") �
�  i$=�i$,�i$,"�")-1)
�2  sub%=�(�menu$,pos%+�(i$)+2,a%-pos%-�(i$)-2))
 �
, � �i$,"\") � f$=�i$,�i$,"\")-1) � f$=""
 i$=�i$,�i$,"\")+1)
  � �f$,"T") � f%+=1
* � �f$,"_") � f%+=2
4 � �f$,"W") � f%+=4
> � �f$,"M") � f%+=8
H p%=b%+28+24*l%
R# !p%=f%:p%!4=sub%:p%!8=&7000021
\ � �(i$)>11 � �f$,"I") �
f0   p%!8+=&100:p%!12=ids%:p%!16=0:p%!20=�(i$)
p   $ids%=i$:ids%+=�(i$)+1
z  � 
�   $(p%+12)=i$
� �
�$ � �(i$)>maxlen% � maxlen%=�(i$)
� pos%=a%
�� l%
�b%!16=(maxlen%+1)<<4
�=b%
�:
�� �report(report$,flags%)
�)!errblock%=255:$(errblock%+4)=report$
�<ș"Wimp_ReportError",errblock%,flags%,errname$ � ,click%
�=click%
�:
� �error
6� �report(�$+" at line "+Þ+" - quit?",3)=1quit%=1
�
$:
.� �centrewindow(b%)
8� xsize%,ysize%,wx%,wy%
B2xsize%=(�readmodevar(11)+1)<<(�readmodevar(4))
L2ysize%=(�readmodevar(12)+1)<<(�readmodevar(5))
Vwx%=b%!8-!b%:wy%=b%!12-b%!4
`!b%=(xsize%�2)-(wx%�2)
jb%!4=(ysize%�2)-(wy%�2)
tb%!8=!b%+wx%:b%!12=b%!4+wy%
~�
�:
�� �readmodevar(var%)
�� value%
�.ș"OS_ReadModeVariable",-1,var% � ,,value%
�=value%
�:
�!� �setwritable(wh%,ih%,text$)
�!miscb%=wh%:miscb%!4=ih%
�!ș"Wimp_GetIconState",,miscb%
�� $(miscb%!28)=text$ �
�$(miscb%!28)=text$
�%ș"Wimp_GetCaretPosition",,miscb%
"� !miscb%=wh% � miscb%!4=ih% �

-� (miscb%!20)>�(text$) miscb%!20=�(text$)
Nș"Wimp_SetCaretPosition",!miscb%,miscb%!4,miscb%!8,miscb%!12,-1,miscb%!20
�
(�seticon(wh%,ih%,0,0)
2�
<:
F� �seticon(wh%,ih%,e%,c%)
P5!miscb%=wh%:miscb%!4=ih%:miscb%!8=e%:miscb%!12=c%
Z!ș"Wimp_SetIconState",,miscb%
d�
n:
x!� �selecticon(wh%,ih%,state%)
�,!miscb%=wh%:miscb%!4=ih%:miscb%!12=1<<21
�*� state% miscb%!8=(1<<21) � miscb%!8=0
�!ș"Wimp_SetIconState",,miscb%
��
�:
�� �itext(wh%,ih%)
�!miscb%=wh%:miscb%!4=ih%
�!ș"Wimp_GetIconState",,miscb%
�=�cts(miscb%!28)
�:
�� �setitext(wh%,ih%,text$)
�!miscb%=wh%:miscb%!4=ih%
�!ș"Wimp_GetIconState",,miscb%
,$(miscb%!28)=text$:�seticon(wh%,ih%,0,0)
�
:
"� �cts(p%)
,� o$
6ȕ ?p%>31 � �(o$)<255
@o$+=�?p%:p%+=1
J�
T=o$
^:
h� �selicon(wh%,ih%)
r!miscb%=wh%:miscb%!4=ih%
|!ș"Wimp_GetIconState",,miscb%
�#� (miscb%!24)�(1<<21) � =� � =�
�:
�� �leafname(in$)
�� out$,pos%
�pos%=�(in$)
�!ȕ �in$,pos%,1)<>"." � pos%>0
�
pos%-=1:�
�=�in$,pos%+1)
�:
�C� =============================================================
�:
�� �assemble
�� A,B,S,top,mid,bot
A=2:B=3:S=4
top=5:mid=6:bot=7
� pass%=0 � 2 � 2
&P%=code%
0[OPT pass%
:E.random                         ; r0 seed (!=0), r3 start, r4 end
D        MOV     r2,#17
N.random_loop
X!        MOV     r1,r0,ASR #13
b"        �     r1,r1,r0,ASR #24
l         MOVS    r1,r1,ROR #1
v        ADCS    r0,r0,r0
�        SUBS    r2,r2,#1
�        BNE     random_loop
�        STRB    r0,[r3],#1
�        CMP     r3,r4
�        BLT     random
�        MOVS    pc,r14
�.divtable1
�        �divtable(k1%)
�.divtable2
�        �divtable(k2%)
�.update
�7        MOV     r8,r0            ; r8 is write bank
�6        MOV     r9,r1            ; r9 is read bank
!        �readcells(0,-1,0,-1)
        �writecell
        MOV     r1,#xmax%
         SUB     r1,r1,#2
*.xloop_top
4"        �readcells(0,-1,-1,-1)
>        �writecell
H        SUBS    r1,r1,#1
R        BGT     xloop_top
\!        �readcells(0,-1,-1,0)
f        �writecell
p        MOV     r0,#ymax%
z        SUB     r0,r0,#2
�
.yloop
�"        �readcells(-1,-1,0,-1)
�        �writecell
�        MOV     r1,#xmax%
�        SUB     r1,r1,#2
�
.xloop
�#        �readcells(-1,-1,-1,-1)
�        �writecell
�        SUBS    r1,r1,#1
�        BGT     xloop
�"        �readcells(-1,-1,-1,0)
�        �writecell
�        SUBS    r0,r0,#1
        BGT     yloop
!        �readcells(-1,0,0,-1)
        �writecell
$        MOV     r1,#xmax%
.        SUB     r1,r1,#2
8.xloop_bot
B"        �readcells(-1,0,-1,-1)
L        �writecell
V        SUBS    r1,r1,#1
`        BGT     xloop_bot
j!        �readcells(-1,0,-1,0)
t        �writecell
~        MOV     PC,r14
�]
�� pass%
��
�:
�� �readcells(t%,b%,l%,r%)
�C� wrap%=� � �read_wrap(t%,b%,l%,r%) � �read_nowrap(t%,b%,l%,r%)
�!� wrap%=� t%=�:b%=�:l%=�:r%=�
�[OPT pass%
�        MOV     A,#0
�        MOV     B,#0
�        MOV     S,#0
�]
#� ((nb%�%100000000)� t% � l%) �

[OPT pass%
#        MOV     r10,top,LSR #16
        �S    r10,r10,#&FF
(        �checkcell
2]
<�
F� ((nb%�%010000000)� t%) �
P[OPT pass%
Z"        MOV     r10,top,LSR #8
d        �S    r10,r10,#&FF
n        �checkcell
x]
��
�#� ((nb%�%001000000)� t% � l%) �
�[OPT pass%
�        �S    r10,top,#&FF
�        �checkcell
�]
��
�� ((nb%�%000100000)� l%) �
�[OPT pass%
�#        MOV     r10,mid,LSR #16
�        �S    r10,r10,#&FF
�        �checkcell
�]
�
� ((nb%�%000001000)� r%) �
[OPT pass%
"        �S    r10,mid,#&FF
,        �checkcell
6]
@�
J#� ((nb%�%000000100)� b% � l%) �
T[OPT pass%
^#        MOV     r10,bot,LSR #16
h        �S    r10,r10,#&FF
r        �checkcell
|]
��
�� ((nb%�%000000010)� b%) �
�[OPT pass%
�"        MOV     r10,bot,LSR #8
�        �S    r10,r10,#&FF
�        �checkcell
�]
��
�#� ((nb%�%000000001)� b% � l%) �
�[OPT pass%
�        �S    r10,bot,#&FF
�        �checkcell
�]
�
=0
:
&� �read_nowrap(t%,b%,l%,r%)
0� l%=� �
:
� t% �
D[OPT pass%
N!        SUB     r11,r9,#xmax%
X        LDRB    top,[r11]
b        LDRB    r4,[r11,#1]
l%        ADD     top,r4,top,LSL #8
v]
��
�[OPT pass%
�        LDRB    mid,[r9]
�        LDRB    r4,[r9,#1]
�%        ADD     mid,r4,mid,LSL #8
�]
�
� b% �
�[OPT pass%
�!        ADD     r11,r9,#xmax%
�        LDRB    bot,[r11]
�        LDRB    r4,[r11,#1]
�%        ADD     bot,r4,bot,LSL #8
�]
�
�
� r%=� �
 [OPT pass%
*"        MOV     top,top,LSL #8
4"        MOV     mid,mid,LSL #8
>"        MOV     bot,bot,LSL #8
H]
R�
\� r%=� � l%=� �
f
� t% �
p[OPT pass%
z!        SUB     r11,r9,#xmax%
�         LDRB    r10,[r11,#1]
�&        ADD     top,r10,top,LSL #8
�]
��
�[OPT pass%
�        LDRB    r10,[r9,#1]
�&        ADD     mid,r10,mid,LSL #8
�]
�
� b% �
�[OPT pass%
�!        ADD     r11,r9,#xmax%
�         LDRB    r10,[r11,#1]
�&        ADD     bot,r10,bot,LSL #8
]
�
�
$�
.:
8� �read_wrap(t%,b%,l%,r%)
B� t%=� �
L[OPT pass%
V$        �movl(2,xmax%*(ymax%-1))
`        ADD     r2,r2,r9
j]
t�
~� b%=� �
�[OPT pass%
�$        �movl(2,xmax%*(ymax%-1))
�        SUB     r2,r9,r2
�]
��
�
�� l%=� �
�[OPT pass%
�        MOV     r3,#xmax%
�        SUB     r3,r3,#1
�]
�
� t% �
[OPT pass%

!        SUB     r11,r9,#xmax%
        LDRB    top,[r11]
        LDRB    r4,[r11,#1]
(%        ADD     top,r4,top,LSL #8
2        MVN     r4,#0
<        LDRB    r11,[r9,r4]
F'        ADD     top,top,r11,LSL #16
P]
Z�
d[OPT pass%
n        LDRB    top,[r2]
x        LDRB    r4,[r2,#1]
�%        ADD     top,r4,top,LSL #8
�        LDRB    r11,[r2,r3]
�'        ADD     top,top,r11,LSL #16
�]
��
�[OPT pass%
�        LDRB    mid,[r9]
�        LDRB    r4,[r9,#1]
�%        ADD     mid,r4,mid,LSL #8
�        LDRB    r11,[r9,r3]
�'        ADD     mid,mid,r11,LSL #16
�]
�
� b% �
[OPT pass%
!        ADD     r11,r9,#xmax%
        LDRB    bot,[r11]
"        LDRB    r4,[r11,#1]
,%        ADD     bot,r4,bot,LSL #8
6         ADD     r4,r3,#xmax%
@        LDRB    r11,[r9,r4]
J'        ADD     bot,bot,r11,LSL #16
T]
^�
h[OPT pass%
r        LDRB    bot,[r2]
|        LDRB    r4,[r2,#1]
�%        ADD     bot,r4,bot,LSL #8
�        LDRB    r11,[r2,r3]
�'        ADD     bot,bot,r11,LSL #16
�]
��
��
�
�� r%=� �
�� t%=� �
�[OPT pass%
�         SUB     r3,r9,#xmax%
�         SUB     r3,r3,#xmax%
�        LDRB    r11,[r3,#1]
 &        ADD     top,r11,top,LSL #8
 ]
 �
 &[OPT pass%
 0         SUB     r3,r2,#xmax%
 :        LDRB    r11,[r3,#1]
 D&        ADD     top,r11,top,LSL #8
 N]
 X�
 b[OPT pass%
 l         SUB     r3,r9,#xmax%
 v        LDRB    r11,[r3,#1]
 �&        ADD     mid,r11,mid,LSL #8
 �]
 �� b%=� �
 �[OPT pass%
 �        LDRB    r11,[r9,#1]
 �&        ADD     bot,r11,bot,LSL #8
 �]
 ��
 �[OPT pass%
 �         SUB     r3,r2,#xmax%
 �        LDRB    r11,[r3,#1]
 �&        ADD     bot,r11,bot,LSL #8
 �]
!�
!�
!
! � r%=� � l%=� �
!*
� t% �
!4[OPT pass%
!>!        SUB     r11,r9,#xmax%
!H         LDRB    r10,[r11,#1]
!R&        ADD     top,r10,top,LSL #8
!\]
!f�
!p[OPT pass%
!z        LDRB    r10,[r2,#1]
!�&        ADD     top,r10,top,LSL #8
!�]
!��
!�[OPT pass%
!�        LDRB    r10,[r9,#1]
!�&        ADD     mid,r10,mid,LSL #8
!�]
!�
� b% �
!�[OPT pass%
!�!        ADD     r11,r9,#xmax%
!�         LDRB    r10,[r11,#1]
!�&        ADD     bot,r10,bot,LSL #8
!�]
"�
"[OPT pass%
"        LDRB    r10,[r2,#1]
"$&        ADD     bot,r10,bot,LSL #8
".]
"8�
"B�
"L�
"V:
"`� �checkcell
"j[OPT pass%
"t        ADDNE   A,A,#1
"~        CMP     r10,#n%
"�        ADDEQ   B,B,#1
"�        ADD     S,r10,S
"�]
"�=0
"�:
"�� �writecell
"�� healthy,done,pass2%,p%
"�	p%=P%
"�pass2%=-2:�
"�
pass2%+=2
"�	P%=p%
"�[OPT pass2%
#        SUB     A,A,B
#
        LDRB    r10,[r9],#1
#        CMP     r10,#n%
#        �Q   r10,#0
#(        BEQ     done
#2        ADD     A,A,#1
#<        CMP     r10,#0
#F        BEQ     healthy
#P        ADD     S,S,r10
#Z        �div(S,A,10)
#d        ADD     r10,r10,#g%
#n        CMP     r10,#n%
#x        MOVGT   r10,#n%
#�        B       done
#�.healthy
#�        �adrl(4,divtable1)
#�        LDRB    r10,[r4,A]
#�        �adrl(4,divtable2)
#�        LDRB    r11,[r4,B]
#�        ADD     r10,r10,r11
#�.done   STRB    r10,[r8],#1
#�]
#�� pass%=0 � pass2%=2
#�=0
#�:
#�� �div(a,b,d)
$ � loop1,loop2,done,pass2%,p%
$	p%=P%
$pass2%=-2:�
$"
pass2%+=2
$,	P%=p%
$6[OPT pass%
$@        CMP     b,#1
$J        �Q   d,a
$T        BEQ     done
$^        CMP     b,#2
$h        �Q   d,a,LSR #1
$r        BEQ     done
$|        CMP     b,#4
$�        �Q   d,a,LSR #2
$�        BEQ     done
$�        CMP     b,#8
$�        �Q   d,a,LSR #3
$�        BEQ     done
$�        MOV     d,#0
$�
.loop1
$�        TST     a,#1
$�        TSTEQ   b,#1
$�        �Q   a,a,LSR #1
$�        �Q   b,b,LSR #1
$�        BEQ     loop1
$�
.loop2
$�        SUBS    a,a,b
$�        ADDGE   d,d,#1
$�        BGE     loop2
$�	.done
$�]
$�� pass%=0 � pass2%=2
%=0
%:
%&� �divtable(c%)
%0� i%
%:� i%=0 � 9
%D[OPT pass%
%N        DCB     (i% � c%)
%X]
%b� i%
%l[OPT pass%:ALIGN:]
%v=0
%�:
%�� �movl(reg%,const%)
%�� i%,s%,m%
%�� i%=0 � 3
%�m%=((&FF)<<(i%*8))
%�� (const%� m%) �
%�� s%=� �
%�+[OPT pass%:ADD reg%,reg%,#(const% � m%)
%�]
%��
%�+s%=�:[OPT pass%:MOV reg%,#(const% � m%)
%�]
%��
&�
&� i%
&=0
& :
&*� �adrl(reg%, addr%)
&4� offs%
&>offs%=addr%-P%-8
&H� offs%>=0 �
&R[OPT pass%
&\ADD reg%,pc,  #offs% � &FF
&f ADD reg%,reg%,#offs% � &FF00
&p]
&z�
&�[OPT pass%
&�!SUB reg%,pc,  #(-offs%) � &FF
&�#SUB reg%,reg%,#(-offs%) � &FF00
&�]
&��
&�=0
&�
�

00000000  0d 00 0a 1c f4 20 54 68  65 20 48 6f 64 67 65 50  |..... The HodgeP|
00000010  6f 64 67 65 20 4d 61 63  68 69 6e 65 0d 00 14 1c  |odge Machine....|
00000020  f4 20 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |. ==============|
00000030  3d 3d 3d 3d 3d 3d 3d 3d  0d 00 1e 05 3a 0d 00 28  |========....:..(|
00000040  1b ee 20 85 20 85 20 a2  20 9f 2c f6 24 2b 22 20  |.. . . . .,.$+" |
00000050  40 20 22 2b c3 9e 3a e0  0d 00 32 09 f2 69 6e 69  |@ "+..:...2..ini|
00000060  74 0d 00 3c 0e ee 20 85  20 f2 65 72 72 6f 72 0d  |t..<.. . .error.|
00000070  00 46 0e c8 95 20 71 75  69 74 25 3d a3 0d 00 50  |.F... quit%=...P|
00000080  09 f2 70 6f 6c 6c 0d 00  5a 05 ce 0d 00 64 16 c8  |..poll..Z....d..|
00000090  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
000000a0  22 0d 00 6e 05 e0 0d 00  78 05 3a 0d 00 82 0b dd  |"..n....x.:.....|
000000b0  20 f2 69 6e 69 74 0d 00  8c 2d 74 61 73 6b 6e 61  | .init...-taskna|
000000c0  6d 65 24 3d 22 48 6f 64  67 65 50 6f 64 67 65 22  |me$="HodgePodge"|
000000d0  3a 65 72 72 6e 61 6d 65  24 3d 74 61 73 6b 6e 61  |:errname$=taskna|
000000e0  6d 65 24 0d 00 96 41 de  20 71 25 20 32 30 34 38  |me$...A. q% 2048|
000000f0  2c 6d 69 73 63 62 25 20  32 35 36 2c 65 72 72 62  |,miscb% 256,errb|
00000100  6c 6f 63 6b 25 20 32 35  36 2c 70 69 78 74 72 61  |lock% 256,pixtra|
00000110  6e 73 25 20 32 35 36 2c  73 63 61 6c 65 62 6c 6b  |ns% 256,scaleblk|
00000120  25 20 32 30 0d 00 a0 12  de 20 63 6f 64 65 25 20  |% 20..... code% |
00000130  35 2a 26 34 30 30 0d 00  aa 0c de 20 73 70 25 28  |5*&400..... sp%(|
00000140  32 29 0d 00 b4 2f c8 99  22 57 69 6d 70 5f 49 6e  |2).../.."Wimp_In|
00000150  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00000160  42 35 33 34 31 35 34 2c  74 61 73 6b 6e 61 6d 65  |B534154,taskname|
00000170  24 0d 00 be 13 f2 69 6e  69 74 5f 74 65 6d 70 6c  |$.....init_templ|
00000180  61 74 65 73 0d 00 c8 0e  f2 69 6e 69 74 5f 69 62  |ates.....init_ib|
00000190  61 72 0d 00 d2 0f f2 69  6e 69 74 5f 6d 65 6e 75  |ar.....init_menu|
000001a0  73 0d 00 dc 0c f2 64 65  66 61 75 6c 74 0d 00 e6  |s.....default...|
000001b0  14 f2 63 68 61 6e 67 65  5f 73 65 74 74 69 6e 67  |..change_setting|
000001c0  73 0d 00 f0 2a 6f 70 65  6e 6d 65 6e 75 25 3d 30  |s...*openmenu%=0|
000001d0  3a 71 75 69 74 25 3d a3  3a 66 72 61 6d 65 25 3d  |:quit%=.:frame%=|
000001e0  31 3a 73 74 61 74 75 73  25 3d 30 0d 00 fa 05 e1  |1:status%=0.....|
000001f0  0d 01 04 05 3a 0d 01 0e  15 dd 20 f2 69 6e 69 74  |....:..... .init|
00000200  5f 74 65 6d 70 6c 61 74  65 73 0d 01 18 0e ea 20  |_templates..... |
00000210  74 24 2c 73 24 2c 66 25  0d 01 22 0f de 20 74 6e  |t$,s$,f%..".. tn|
00000220  61 6d 65 25 20 31 31 0d  01 2c 21 69 64 73 69 7a  |ame% 11..,!idsiz|
00000230  65 25 3d 31 34 30 30 3a  de 20 69 64 61 74 61 25  |e%=1400:. idata%|
00000240  20 69 64 73 69 7a 65 25  0d 01 36 28 69 64 6d 61  | idsize%..6(idma|
00000250  78 25 3d 69 64 61 74 61  25 2b 69 64 73 69 7a 65  |x%=idata%+idsize|
00000260  25 3a 69 64 6c 65 66 74  25 3d 69 64 61 74 61 25  |%:idleft%=idata%|
00000270  0d 01 40 0c 6e 65 78 74  74 25 3d 30 0d 01 4a 22  |..@.nextt%=0..J"|
00000280  73 24 3d 22 53 70 72 69  74 65 73 32 32 22 3a 74  |s$="Sprites22":t|
00000290  24 3d 22 54 65 6d 70 6c  61 74 65 73 32 22 0d 01  |$="Templates2"..|
000002a0  54 13 de 20 74 6f 6f 6c  73 70 72 25 20 31 36 30  |T.. toolspr% 160|
000002b0  30 0d 01 5e 20 21 74 6f  6f 6c 73 70 72 25 3d 31  |0..^ !toolspr%=1|
000002c0  36 30 30 3a 74 6f 6f 6c  73 70 72 25 21 38 3d 31  |600:toolspr%!8=1|
000002d0  36 0d 01 68 17 c8 99 26  32 45 2c 26 31 30 39 2c  |6..h...&2E,&109,|
000002e0  74 6f 6f 6c 73 70 72 25  0d 01 72 27 c8 99 22 4f  |toolspr%..r'.."O|
000002f0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000300  6c 65 22 2c 2d 31 2c 35  20 b8 20 2c 2c 79 25 0d  |le",-1,5 . ,,y%.|
00000310  01 7c 28 e7 20 79 25 3d  32 20 8c 20 73 24 3d 22  |.|(. y%=2 . s$="|
00000320  53 70 72 69 74 65 73 22  3a 74 24 3d 22 54 65 6d  |Sprites":t$="Tem|
00000330  70 6c 61 74 65 73 22 0d  01 86 26 c8 99 22 58 57  |plates"...&.."XW|
00000340  69 6d 70 5f 53 70 72 69  74 65 4f 70 22 2c 34 30  |imp_SpriteOp",40|
00000350  2c 2c 22 70 75 70 22 20  b8 20 3b 66 25 0d 01 90  |,,"pup" . ;f%...|
00000360  1d e7 20 28 66 25 80 31  29 20 8c 20 74 24 3d 22  |.. (f%.1) . t$="|
00000370  54 65 6d 70 6c 61 74 65  73 22 0d 01 9a 29 c8 99  |Templates"...)..|
00000380  26 32 45 2c 26 31 30 41  2c 74 6f 6f 6c 73 70 72  |&2E,&10A,toolspr|
00000390  25 2c 22 3c 48 6f 64 67  65 24 44 69 72 3e 2e 22  |%,"<Hodge$Dir>."|
000003a0  2b 73 24 0d 01 a4 2c c8  99 22 57 69 6d 70 5f 4f  |+s$...,.."Wimp_O|
000003b0  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
000003c0  48 6f 64 67 65 24 44 69  72 3e 2e 22 2b 74 24 0d  |Hodge$Dir>."+t$.|
000003d0  01 ae 2c 77 68 5f 70 72  6f 67 69 6e 66 6f 25 3d  |..,wh_proginfo%=|
000003e0  a4 6c 6f 61 64 74 65 6d  70 6c 61 74 65 28 22 70  |.loadtemplate("p|
000003f0  72 6f 67 49 6e 66 6f 22  2c 31 29 0d 01 b8 2a 77  |rogInfo",1)...*w|
00000400  68 5f 64 69 73 70 6c 61  79 25 3d a4 6c 6f 61 64  |h_display%=.load|
00000410  74 65 6d 70 6c 61 74 65  28 22 44 69 73 70 6c 61  |template("Displa|
00000420  79 22 2c 31 29 0d 01 c2  26 77 68 5f 73 65 74 75  |y",1)...&wh_setu|
00000430  70 25 3d a4 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |p%=.loadtemplate|
00000440  28 22 53 65 74 75 70 22  2c 31 29 0d 01 cc 2d 77  |("Setup",1)...-w|
00000450  68 5f 74 6f 6f 6c 73 25  3d a4 6c 6f 61 64 74 65  |h_tools%=.loadte|
00000460  6d 70 6c 61 74 65 28 22  54 6f 6f 6c 73 22 2c 74  |mplate("Tools",t|
00000470  6f 6f 6c 73 70 72 25 29  0d 01 d6 29 77 68 5f 73  |oolspr%)...)wh_s|
00000480  61 76 65 25 3d a4 6c 6f  61 64 74 65 6d 70 6c 61  |ave%=.loadtempla|
00000490  74 65 28 22 78 66 65 72  5f 73 65 6e 64 22 2c 31  |te("xfer_send",1|
000004a0  29 0d 01 e0 26 77 68 5f  73 63 61 6c 65 25 3d a4  |)...&wh_scale%=.|
000004b0  6c 6f 61 64 74 65 6d 70  6c 61 74 65 28 22 53 63  |loadtemplate("Sc|
000004c0  61 6c 65 22 2c 31 29 0d  01 ea 1a c8 99 22 57 69  |ale",1)......"Wi|
000004d0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
000004e0  22 0d 01 f4 05 e1 0d 01  fe 23 dd 20 a4 6c 6f 61  |"........#. .loa|
000004f0  64 74 65 6d 70 6c 61 74  65 28 74 6e 61 6d 65 24  |dtemplate(tname$|
00000500  2c 73 70 61 72 65 61 25  29 0d 02 08 12 24 74 6e  |,sparea%)....$tn|
00000510  61 6d 65 25 3d 74 6e 61  6d 65 24 0d 02 12 4c c8  |ame%=tname$...L.|
00000520  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000530  61 74 65 22 2c 2c 71 25  2c 69 64 6c 65 66 74 25  |ate",,q%,idleft%|
00000540  2c 69 64 6d 61 78 25 2c  2d 31 2c 74 6e 61 6d 65  |,idmax%,-1,tname|
00000550  25 2c 30 b8 2c 2c 69 64  6c 65 66 74 25 2c 2c 2c  |%,0.,,idleft%,,,|
00000560  2c 6e 65 78 74 74 25 0d  02 1c 11 71 25 21 36 34  |,nextt%....q%!64|
00000570  3d 73 70 61 72 65 61 25  0d 02 26 28 c8 99 22 57  |=sparea%..&(.."W|
00000580  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000590  22 2c 2c 71 25 20 b8 20  77 68 61 6e 64 6c 65 25  |",,q% . whandle%|
000005a0  0d 02 30 0d 3d 77 68 61  6e 64 6c 65 25 0d 02 3a  |..0.=whandle%..:|
000005b0  05 3a 0d 02 44 10 dd 20  f2 69 6e 69 74 5f 69 62  |.:..D.. .init_ib|
000005c0  61 72 0d 02 4e 39 21 71  25 3d 2d 31 3a 71 25 21  |ar..N9!q%=-1:q%!|
000005d0  34 3d 30 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |4=0:q%!8=0:q%!12|
000005e0  3d 36 38 3a 71 25 21 31  36 3d 36 38 3a 71 25 21  |=68:q%!16=68:q%!|
000005f0  32 30 3d 26 37 30 30 33  30 31 41 0d 02 58 15 24  |20=&700301A..X.$|
00000600  28 71 25 2b 32 34 29 3d  22 21 68 6f 64 67 65 22  |(q%+24)="!hodge"|
00000610  0d 02 62 26 c8 99 22 57  69 6d 70 5f 43 72 65 61  |..b&.."Wimp_Crea|
00000620  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 69 68  |teIcon",,q% . ih|
00000630  5f 69 62 61 72 25 0d 02  6c 05 e1 0d 02 76 05 3a  |_ibar%..l....v.:|
00000640  0d 02 80 11 dd 20 f2 69  6e 69 74 5f 6d 65 6e 75  |..... .init_menu|
00000650  73 0d 02 8a 44 6d 65 6e  75 5f 69 62 61 72 25 3d  |s...Dmenu_ibar%=|
00000660  a4 6d 61 6b 65 6d 65 6e  75 28 22 48 6f 64 67 65  |.makemenu("Hodge|
00000670  22 2c 22 49 6e 66 6f bb  77 68 5f 70 72 6f 67 69  |","Info.wh_progi|
00000680  6e 66 6f 25 7c 53 65 74  74 69 6e 67 73 8c 7c 51  |nfo%|Settings.|Q|
00000690  75 69 74 22 29 0d 02 94  4a 6d 65 6e 75 5f 64 69  |uit")...Jmenu_di|
000006a0  73 70 6c 61 79 25 3d a4  6d 61 6b 65 6d 65 6e 75  |splay%=.makemenu|
000006b0  28 22 48 6f 64 67 65 22  2c 22 53 63 61 6c 65 bb  |("Hodge","Scale.|
000006c0  77 68 5f 73 63 61 6c 65  25 7c 53 61 76 65 20 69  |wh_scale%|Save i|
000006d0  6d 61 67 65 bb 77 68 5f  73 61 76 65 25 22 29 0d  |mage.wh_save%").|
000006e0  02 9e 05 e1 0d 02 a8 05  3a 0d 02 b2 43 f4 20 3d  |........:...C. =|
000006f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000720  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 02 bc 05  |============....|
00000730  3a 0d 02 c6 0b dd 20 f2  70 6f 6c 6c 0d 02 d0 1f  |:..... .poll....|
00000740  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 2c 71  |.."Wimp_Poll",,q|
00000750  25 20 b8 20 72 65 61 73  6f 6e 25 0d 02 da 10 c8  |% . reason%.....|
00000760  8e 20 72 65 61 73 6f 6e  25 20 ca 0d 02 e4 09 20  |. reason% ..... |
00000770  20 c9 20 30 0d 02 ee 15  20 20 20 20 e7 20 73 74  | . 0....    . st|
00000780  61 74 75 73 25 80 34 20  8c 0d 02 f8 1b 20 20 20  |atus%.4 .....   |
00000790  20 20 20 73 74 61 74 75  73 25 3d 73 74 61 74 75  |   status%=statu|
000007a0  73 25 80 33 0d 03 02 35  20 20 20 20 20 20 21 71  |s%.3...5      !q|
000007b0  25 3d 77 68 5f 64 69 73  70 6c 61 79 25 3a c8 99  |%=wh_display%:..|
000007c0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000007d0  74 61 74 65 22 2c 2c 71  25 0d 03 0c 16 20 20 20  |tate",,q%....   |
000007e0  20 20 20 f2 6f 70 65 6e  64 69 73 70 6c 61 79 0d  |   .opendisplay.|
000007f0  03 16 09 20 20 20 20 cd  0d 03 20 15 20 20 20 20  |...    ... .    |
00000800  e7 20 73 74 61 74 75 73  25 3e 30 20 8c 0d 03 2a  |. status%>0 ...*|
00000810  19 20 20 20 20 c8 94 20  41 25 2c 42 25 3a d6 20  |.    .. A%,B%:. |
00000820  75 70 64 61 74 65 0d 03  34 17 20 20 20 20 66 72  |update..4.    fr|
00000830  61 6d 65 25 3d 66 72 61  6d 65 25 82 33 0d 03 3e  |ame%=frame%.3..>|
00000840  32 20 20 20 20 21 71 25  3d 77 68 5f 64 69 73 70  |2    !q%=wh_disp|
00000850  6c 61 79 25 3a 71 25 21  34 3d 30 3a 71 25 21 38  |lay%:q%!4=0:q%!8|
00000860  3d 2d 79 6d 61 78 25 2a  73 63 61 6c 65 32 25 0d  |=-ymax%*scale2%.|
00000870  03 48 23 20 20 20 20 71  25 21 31 32 3d 78 6d 61  |.H#    q%!12=xma|
00000880  78 25 2a 73 63 61 6c 65  32 25 3a 71 25 21 31 36  |x%*scale2%:q%!16|
00000890  3d 30 0d 03 52 31 20 20  20 20 c8 99 22 57 69 6d  |=0..R1    .."Wim|
000008a0  70 5f 55 70 64 61 74 65  57 69 6e 64 6f 77 22 2c  |p_UpdateWindow",|
000008b0  2c 71 25 20 b8 20 6d 6f  72 65 25 3a f2 72 65 64  |,q% . more%:.red|
000008c0  72 61 77 0d 03 5c 2e 20  20 20 20 67 65 6e 25 2b  |raw..\.    gen%+|
000008d0  3d 31 3a f2 73 65 74 69  74 65 78 74 28 77 68 5f  |=1:.setitext(wh_|
000008e0  74 6f 6f 6c 73 25 2c 34  2c c3 28 67 65 6e 25 29  |tools%,4,.(gen%)|
000008f0  29 0d 03 66 09 20 20 20  20 cd 0d 03 70 1d 20 20  |)..f.    ...p.  |
00000900  20 20 e7 20 73 74 61 74  75 73 25 3d 31 20 73 74  |  . status%=1 st|
00000910  61 74 75 73 25 3d 30 0d  03 7a 09 20 20 c9 20 31  |atus%=0..z.  . 1|
00000920  0d 03 84 29 20 20 20 20  c8 99 22 57 69 6d 70 5f  |...)    .."Wimp_|
00000930  52 65 64 72 61 77 57 69  6e 64 6f 77 22 2c 2c 71  |RedrawWindow",,q|
00000940  25 20 b8 20 6d 6f 72 65  25 0d 03 8e 0f 20 20 20  |% . more%....   |
00000950  20 f2 72 65 64 72 61 77  0d 03 98 09 20 20 c9 20  | .redraw....  . |
00000960  32 0d 03 a2 42 20 20 20  20 e7 20 21 71 25 3d 77  |2...B    . !q%=w|
00000970  68 5f 64 69 73 70 6c 61  79 25 20 8c 20 f2 6f 70  |h_display% . .op|
00000980  65 6e 64 69 73 70 6c 61  79 20 8b 20 c8 99 22 57  |endisplay . .."W|
00000990  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000009a0  2c 71 25 0d 03 ac 22 20  20 c9 20 33 3a c8 99 22  |,q%..."  . 3:.."|
000009b0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000009c0  22 2c 2c 71 25 0d 03 b6  40 20 20 20 20 e7 20 21  |",,q%...@    . !|
000009d0  71 25 3d 77 68 5f 64 69  73 70 6c 61 79 25 20 21  |q%=wh_display% !|
000009e0  71 25 3d 77 68 5f 74 6f  6f 6c 73 25 3a c8 99 22  |q%=wh_tools%:.."|
000009f0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000a00  22 2c 2c 71 25 0d 03 c0  09 20 20 c9 20 36 0d 03  |",,q%....  . 6..|
00000a10  ca 35 20 20 20 20 e7 20  71 25 21 38 3d 32 20 f2  |.5    . q%!8=2 .|
00000a20  6f 70 65 6e 6d 65 6e 75  20 8b 20 f2 63 6c 69 63  |openmenu . .clic|
00000a30  6b 28 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |k(q%!8,q%!12,q%!|
00000a40  31 36 29 0d 03 d4 18 20  20 c9 20 37 3a f2 73 61  |16)....  . 7:.sa|
00000a50  76 65 5f 73 74 6f 70 64  72 61 67 0d 03 de 1a 20  |ve_stopdrag.... |
00000a60  20 c9 20 38 3a f2 6b 65  79 70 72 65 73 73 28 71  | . 8:.keypress(q|
00000a70  25 21 32 34 29 0d 03 e8  15 20 20 c9 20 39 3a f2  |%!24)....  . 9:.|
00000a80  6d 65 6e 75 73 65 6c 65  63 74 0d 03 f2 16 20 20  |menuselect....  |
00000a90  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
00000aa0  0d 03 fc 05 cb 0d 04 06  05 e1 0d 04 10 05 3a 0d  |..............:.|
00000ab0  04 1a 0d dd 20 f2 72 65  64 72 61 77 0d 04 24 37  |.... .redraw..$7|
00000ac0  21 6d 69 73 63 62 25 3d  77 68 5f 64 69 73 70 6c  |!miscb%=wh_displ|
00000ad0  61 79 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |ay%:.."Wimp_GetW|
00000ae0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 6d 69 73  |indowState",,mis|
00000af0  63 62 25 0d 04 2e 0c c8  95 20 6d 6f 72 65 25 0d  |cb%...... more%.|
00000b00  04 38 54 20 20 c8 99 26  32 45 2c 26 32 33 34 2c  |.8T  ..&2E,&234,|
00000b10  73 70 72 25 2c 73 70 25  28 66 72 61 6d 65 25 29  |spr%,sp%(frame%)|
00000b20  2c 6d 69 73 63 62 25 21  34 2c 6d 69 73 63 62 25  |,miscb%!4,miscb%|
00000b30  21 31 36 2d 73 63 61 6c  65 32 25 2a 79 6d 61 78  |!16-scale2%*ymax|
00000b40  25 2c 2c 73 63 61 6c 65  25 2c 70 69 78 74 72 61  |%,,scale%,pixtra|
00000b50  6e 73 25 0d 04 42 1a 20  20 c8 99 26 34 30 30 43  |ns%..B.  ..&400C|
00000b60  41 2c 2c 71 25 20 b8 20  6d 6f 72 65 25 0d 04 4c  |A,,q% . more%..L|
00000b70  05 ce 0d 04 56 05 e1 0d  04 60 05 3a 0d 04 6a 0f  |....V....`.:..j.|
00000b80  dd 20 f2 6f 70 65 6e 6d  65 6e 75 0d 04 74 0b ea  |. .openmenu..t..|
00000b90  20 79 70 6f 73 25 0d 04  7e 0e c8 8e 20 71 25 21  | ypos%..~... q%!|
00000ba0  31 32 20 ca 0d 04 88 29  20 20 c9 20 2d 32 3a 79  |12 ....)  . -2:y|
00000bb0  70 6f 73 25 3d 32 32 38  3a 6f 70 65 6e 6d 65 6e  |pos%=228:openmen|
00000bc0  75 25 3d 6d 65 6e 75 5f  69 62 61 72 25 0d 04 92  |u%=menu_ibar%...|
00000bd0  40 20 20 c9 20 77 68 5f  64 69 73 70 6c 61 79 25  |@  . wh_display%|
00000be0  2c 77 68 5f 74 6f 6f 6c  73 25 3a 79 70 6f 73 25  |,wh_tools%:ypos%|
00000bf0  3d 71 25 21 34 3a 6f 70  65 6e 6d 65 6e 75 25 3d  |=q%!4:openmenu%=|
00000c00  6d 65 6e 75 5f 64 69 73  70 6c 61 79 25 0d 04 9c  |menu_display%...|
00000c10  05 cb 0d 04 a6 3a e7 20  79 70 6f 73 25 3c 3e 30  |.....:. ypos%<>0|
00000c20  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
00000c30  65 6e 75 22 2c 2c 6f 70  65 6e 6d 65 6e 75 25 2c  |enu",,openmenu%,|
00000c40  21 71 25 2d 36 34 2c 79  70 6f 73 25 0d 04 b0 05  |!q%-64,ypos%....|
00000c50  e1 0d 04 ba 05 3a 0d 04  c4 27 dd 20 f2 63 6c 69  |.....:...'. .cli|
00000c60  63 6b 28 62 75 74 74 6f  6e 25 2c 77 68 61 6e 64  |ck(button%,whand|
00000c70  6c 65 25 2c 69 68 61 6e  64 6c 65 25 29 0d 04 ce  |le%,ihandle%)...|
00000c80  11 c8 8e 20 77 68 61 6e  64 6c 65 25 20 ca 0d 04  |... whandle% ...|
00000c90  d8 0a 20 20 c9 20 2d 32  0d 04 e2 35 20 20 20 20  |..  . -2...5    |
00000ca0  e7 20 62 75 74 74 6f 6e  25 3d 34 20 8c 20 21 71  |. button%=4 . !q|
00000cb0  25 3d 77 68 5f 64 69 73  70 6c 61 79 25 20 8b 20  |%=wh_display% . |
00000cc0  21 71 25 3d 77 68 5f 73  65 74 75 70 25 0d 04 ec  |!q%=wh_setup%...|
00000cd0  23 20 20 20 20 c8 99 22  57 69 6d 70 5f 47 65 74  |#    .."Wimp_Get|
00000ce0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
00000cf0  0d 04 f6 3a 20 20 20 20  71 25 21 32 38 3d 2d 31  |...:    q%!28=-1|
00000d00  3a e7 20 28 28 71 25 21  33 32 29 80 28 31 3c 3c  |:. ((q%!32).(1<<|
00000d10  31 36 29 29 3d 30 20 f2  63 65 6e 74 72 65 77 69  |16))=0 .centrewi|
00000d20  6e 64 6f 77 28 71 25 2b  34 29 0d 05 00 3a 20 20  |ndow(q%+4)...:  |
00000d30  20 20 e7 20 62 75 74 74  6f 6e 25 3d 34 20 f2 6f  |  . button%=4 .o|
00000d40  70 65 6e 64 69 73 70 6c  61 79 20 8b 20 c8 99 22  |pendisplay . .."|
00000d50  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000d60  2c 2c 71 25 0d 05 0a 33  20 20 c9 20 77 68 5f 73  |,,q%...3  . wh_s|
00000d70  65 74 75 70 25 3a f2 73  65 74 74 69 6e 67 73 5f  |etup%:.settings_|
00000d80  63 6c 69 63 6b 28 69 68  61 6e 64 6c 65 25 2c 62  |click(ihandle%,b|
00000d90  75 74 74 6f 6e 25 29 0d  05 14 11 20 20 c9 20 77  |utton%)....  . w|
00000da0  68 5f 74 6f 6f 6c 73 25  0d 05 1e 15 20 20 20 20  |h_tools%....    |
00000db0  c8 8e 20 69 68 61 6e 64  6c 65 25 20 ca 0d 05 28  |.. ihandle% ...(|
00000dc0  17 20 20 20 20 20 20 c9  20 30 3a 73 74 61 74 75  |.      . 0:statu|
00000dd0  73 25 3d 30 0d 05 32 17  20 20 20 20 20 20 c9 20  |s%=0..2.      . |
00000de0  31 3a 73 74 61 74 75 73  25 3d 32 0d 05 3c 17 20  |1:status%=2..<. |
00000df0  20 20 20 20 20 c9 20 32  3a 73 74 61 74 75 73 25  |     . 2:status%|
00000e00  3d 31 0d 05 46 19 20 20  20 20 20 20 c9 20 33 3a  |=1..F.      . 3:|
00000e10  f2 73 69 6e 67 6c 65 74  61 73 6b 0d 05 50 0d 20  |.singletask..P. |
00000e20  20 20 20 20 20 c9 20 35  0d 05 5a 14 20 20 20 20  |     . 5..Z.    |
00000e30  20 20 20 20 6f 6c 64 41  25 3d 41 25 0d 05 64 31  |    oldA%=A%..d1|
00000e40  20 20 20 20 20 20 20 20  41 25 3d 91 3a 44 25 3d  |        A%=.:D%=|
00000e50  73 70 25 28 66 72 61 6d  65 25 29 2b 21 28 73 70  |sp%(frame%)+!(sp|
00000e60  25 28 66 72 61 6d 65 25  29 2b 33 32 29 0d 05 6e  |%(frame%)+32)..n|
00000e70  26 20 20 20 20 20 20 20  20 45 25 3d 44 25 2b 78  |&        E%=D%+x|
00000e80  6d 61 78 25 2a 79 6d 61  78 25 3a d6 20 72 61 6e  |max%*ymax%:. ran|
00000e90  64 6f 6d 0d 05 78 14 20  20 20 20 20 20 20 20 41  |dom..x.        A|
00000ea0  25 3d 6f 6c 64 41 25 0d  05 82 4b 20 20 20 20 20  |%=oldA%...K     |
00000eb0  20 20 20 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |   .."Wimp_Force|
00000ec0  52 65 64 72 61 77 22 2c  77 68 5f 64 69 73 70 6c  |Redraw",wh_displ|
00000ed0  61 79 25 2c 30 2c 2d 79  6d 61 78 25 2a 73 63 61  |ay%,0,-ymax%*sca|
00000ee0  6c 65 32 25 2c 78 6d 61  78 25 2a 73 63 61 6c 65  |le2%,xmax%*scale|
00000ef0  32 25 0d 05 8c 31 20 20  20 20 20 20 20 20 67 65  |2%...1        ge|
00000f00  6e 25 3d 30 3a f2 73 65  74 69 74 65 78 74 28 77  |n%=0:.setitext(w|
00000f10  68 5f 74 6f 6f 6c 73 25  2c 34 2c c3 28 67 65 6e  |h_tools%,4,.(gen|
00000f20  25 29 29 0d 05 96 09 20  20 20 20 cb 0d 05 a0 11  |%))....    .....|
00000f30  20 20 c9 20 77 68 5f 73  63 61 6c 65 25 0d 05 aa  |  . wh_scale%...|
00000f40  15 20 20 20 20 c8 8e 20  69 68 61 6e 64 6c 65 25  |.    .. ihandle%|
00000f50  20 ca 0d 05 b4 0f 20 20  20 20 20 20 c9 20 31 2c  | .....      . 1,|
00000f60  32 0d 05 be 25 20 20 20  20 20 20 20 20 63 25 3d  |2...%        c%=|
00000f70  bb 28 a4 69 74 65 78 74  28 77 68 5f 73 63 61 6c  |.(.itext(wh_scal|
00000f80  65 25 2c 30 29 29 0d 05  c8 26 20 20 20 20 20 20  |e%,0))...&      |
00000f90  20 20 e7 20 69 68 61 6e  64 6c 65 25 3d 31 20 63  |  . ihandle%=1 c|
00000fa0  25 2d 3d 31 20 8b 20 63  25 2b 3d 31 0d 05 d2 39  |%-=1 . c%+=1...9|
00000fb0  20 20 20 20 20 20 20 20  e7 20 63 25 3e 30 20 80  |        . c%>0 .|
00000fc0  20 63 25 3c 39 20 f2 73  65 74 77 72 69 74 61 62  | c%<9 .setwritab|
00000fd0  6c 65 28 77 68 5f 73 63  61 6c 65 25 2c 30 2c c3  |le(wh_scale%,0,.|
00000fe0  28 63 25 29 29 0d 05 dc  1d 20 20 20 20 20 20 c9  |(c%))....      .|
00000ff0  20 33 3a f2 63 68 61 6e  67 65 5f 64 69 73 70 6c  | 3:.change_displ|
00001000  61 79 0d 05 e6 31 20 20  20 20 20 20 20 20 e7 20  |ay...1        . |
00001010  62 75 74 74 6f 6e 25 3d  34 20 8c 20 c8 99 22 57  |button%=4 . .."W|
00001020  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001030  2c 2d 31 0d 05 f0 09 20  20 20 20 cb 0d 05 fa 10  |,-1....    .....|
00001040  20 20 c9 20 77 68 5f 73  61 76 65 25 0d 06 04 15  |  . wh_save%....|
00001050  20 20 20 20 c8 8e 20 69  68 61 6e 64 6c 65 25 20  |    .. ihandle% |
00001060  ca 0d 06 0e 2c 20 20 20  20 20 20 c9 20 33 3a e7  |....,      . 3:.|
00001070  20 62 75 74 74 6f 6e 25  3d 36 34 20 8c 20 f2 73  | button%=64 . .s|
00001080  61 76 65 5f 73 74 61 72  74 64 72 61 67 0d 06 18  |ave_startdrag...|
00001090  0d 20 20 20 20 20 20 c9  20 30 0d 06 22 8c 20 20  |.      . 0..".  |
000010a0  20 20 20 20 20 20 e7 20  a7 a4 69 74 65 78 74 28  |      . ..itext(|
000010b0  77 68 5f 73 61 76 65 25  2c 32 29 2c 22 2e 22 29  |wh_save%,2),".")|
000010c0  3d 30 20 8c 20 64 75 6d  6d 79 25 3d a4 72 65 70  |=0 . dummy%=.rep|
000010d0  6f 72 74 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |ort("To save, dr|
000010e0  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
000010f0  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
00001100  72 22 2c 31 29 20 8b 20  f2 73 61 76 65 5f 64 6f  |r",1) . .save_do|
00001110  69 74 28 a4 69 74 65 78  74 28 77 68 5f 73 61 76  |it(.itext(wh_sav|
00001120  65 25 2c 32 29 29 0d 06  2c 23 20 20 20 20 20 20  |e%,2))..,#      |
00001130  20 20 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |  .."Wimp_Create|
00001140  4d 65 6e 75 22 2c 2c 2d  31 0d 06 36 09 20 20 20  |Menu",,-1..6.   |
00001150  20 cb 0d 06 40 05 cb 0d  06 4a 05 e1 0d 06 54 05  | ...@....J....T.|
00001160  3a 0d 06 5e 11 dd 20 f2  6d 65 6e 75 73 65 6c 65  |:..^.. .menusele|
00001170  63 74 0d 06 68 1c e7 20  6f 70 65 6e 6d 65 6e 75  |ct..h.. openmenu|
00001180  25 3d 6d 65 6e 75 5f 69  62 61 72 25 20 8c 0d 06  |%=menu_ibar% ...|
00001190  72 0e 20 20 c8 8e 20 21  71 25 20 ca 0d 06 7c 1a  |r.  .. !q% ...|.|
000011a0  20 20 20 20 c9 20 31 3a  f2 73 65 74 74 69 6e 67  |    . 1:.setting|
000011b0  73 5f 73 68 6f 77 0d 06  86 3b 20 20 20 20 20 20  |s_show...;      |
000011c0  21 6d 69 73 63 62 25 3d  77 68 5f 73 65 74 75 70  |!miscb%=wh_setup|
000011d0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
000011e0  64 6f 77 53 74 61 74 65  22 2c 2c 6d 69 73 63 62  |dowState",,miscb|
000011f0  25 0d 06 90 3b 20 20 20  20 20 20 e7 20 28 28 6d  |%...;      . ((m|
00001200  69 73 63 62 25 21 33 32  29 80 28 31 3c 3c 31 36  |iscb%!32).(1<<16|
00001210  29 29 3d 30 20 f2 63 65  6e 74 72 65 77 69 6e 64  |))=0 .centrewind|
00001220  6f 77 28 6d 69 73 63 62  25 2b 34 29 0d 06 9a 32  |ow(miscb%+4)...2|
00001230  20 20 20 20 20 20 6d 69  73 63 62 25 21 32 38 3d  |      miscb%!28=|
00001240  2d 31 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |-1:.."Wimp_OpenW|
00001250  69 6e 64 6f 77 22 2c 2c  6d 69 73 63 62 25 0d 06  |indow",,miscb%..|
00001260  a4 13 20 20 20 20 c9 20  32 3a 71 75 69 74 25 3d  |..    . 2:quit%=|
00001270  b9 0d 06 ae 07 20 20 cb  0d 06 b8 05 cd 0d 06 c2  |.....  .........|
00001280  23 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |#.."Wimp_GetPoin|
00001290  74 65 72 49 6e 66 6f 22  2c 2c 6d 69 73 63 62 25  |terInfo",,miscb%|
000012a0  0d 06 cc 35 e7 20 6d 69  73 63 62 25 21 38 3d 31  |...5. miscb%!8=1|
000012b0  20 8c 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  | . .."Wimp_Creat|
000012c0  65 4d 65 6e 75 22 2c 2c  6f 70 65 6e 6d 65 6e 75  |eMenu",,openmenu|
000012d0  25 2c 30 2c 30 0d 06 d6  05 e1 0d 06 e0 05 3a 0d  |%,0,0.........:.|
000012e0  06 ea 0e dd 20 f2 72 65  63 65 69 76 65 0d 06 f4  |.... .receive...|
000012f0  08 ea 20 6e 24 0d 06 fe  0e c8 8e 20 71 25 21 31  |.. n$...... q%!1|
00001300  36 20 ca 0d 07 08 11 20  20 c9 20 30 3a 71 75 69  |6 .....  . 0:qui|
00001310  74 25 3d b9 0d 07 12 09  20 20 c9 20 32 0d 07 1c  |t%=.....  . 2...|
00001320  16 20 20 20 20 6e 24 3d  a4 63 74 73 28 71 25 2b  |.    n$=.cts(q%+|
00001330  34 34 29 0d 07 26 16 20  20 20 20 f2 73 61 76 65  |44)..&.    .save|
00001340  5f 64 6f 69 74 28 6e 24  29 0d 07 30 3b 20 20 20  |_doit(n$)..0;   |
00001350  20 e7 20 a7 6e 24 2c 22  3c 57 69 6d 70 24 53 63  | . .n$,"<Wimp$Sc|
00001360  72 61 70 3e 22 29 3d 30  20 f2 73 65 74 77 72 69  |rap>")=0 .setwri|
00001370  74 61 62 6c 65 28 77 68  5f 73 61 76 65 25 2c 32  |table(wh_save%,2|
00001380  2c 6e 24 29 0d 07 3a 22  20 20 20 20 71 25 21 31  |,n$)..:"    q%!1|
00001390  32 3d 71 25 21 38 3a 71  25 21 31 36 3d 33 3a 21  |2=q%!8:q%!16=3:!|
000013a0  71 25 3d 32 35 36 0d 07  44 2e 20 20 20 20 c8 99  |q%=256..D.    ..|
000013b0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000013c0  65 22 2c 31 38 2c 71 25  2c 71 25 21 32 30 2c 71  |e",18,q%,q%!20,q|
000013d0  25 21 32 34 0d 07 4e 0e  20 20 c9 20 26 34 30 30  |%!24..N.  . &400|
000013e0  43 31 0d 07 58 43 20 20  20 20 c8 99 22 43 6f 6c  |C1..XC    .."Col|
000013f0  6f 75 72 54 72 61 6e 73  5f 47 65 6e 65 72 61 74  |ourTrans_Generat|
00001400  65 54 61 62 6c 65 22 2c  73 70 72 25 2c 73 70 25  |eTable",spr%,sp%|
00001410  28 31 29 2c 2d 31 2c 2d  31 2c 70 69 78 74 72 61  |(1),-1,-1,pixtra|
00001420  6e 73 25 2c 31 0d 07 62  17 20 20 20 20 f2 63 68  |ns%,1..b.    .ch|
00001430  61 6e 67 65 5f 64 69 73  70 6c 61 79 0d 07 6c 05  |ange_display..l.|
00001440  cb 0d 07 76 05 e1 0d 07  80 05 3a 0d 07 8a 13 dd  |...v......:.....|
00001450  20 f2 6b 65 79 70 72 65  73 73 28 6b 25 29 0d 07  | .keypress(k%)..|
00001460  94 08 ea 20 63 25 0d 07  9e 0c c8 8e 20 21 71 25  |... c%...... !q%|
00001470  20 ca 0d 07 a8 11 20 20  c9 20 77 68 5f 73 63 61  | .....  . wh_sca|
00001480  6c 65 25 0d 07 b2 1b 20  20 20 20 e7 20 6b 25 3d  |le%....    . k%=|
00001490  31 33 20 80 20 71 25 21  34 3d 31 33 20 8c 0d 07  |13 . q%!4=13 ...|
000014a0  bc 1e 20 20 20 20 20 20  63 25 3d b9 3a f2 63 68  |..      c%=.:.ch|
000014b0  61 6e 67 65 5f 64 69 73  70 6c 61 79 0d 07 c6 21  |ange_display...!|
000014c0  20 20 20 20 20 20 c8 99  22 57 69 6d 70 5f 43 72  |      .."Wimp_Cr|
000014d0  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 07 d0  |eateMenu",,-1...|
000014e0  09 20 20 20 20 cd 0d 07  da 11 20 20 c9 20 77 68  |.    .....  . wh|
000014f0  5f 73 65 74 75 70 25 0d  07 e4 11 20 20 20 20 e7  |_setup%....    .|
00001500  20 6b 25 3d 31 33 20 8c  0d 07 ee 19 20 20 20 20  | k%=13 .....    |
00001510  20 20 f2 73 65 74 74 69  6e 67 73 5f 63 68 65 63  |  .settings_chec|
00001520  6b 0d 07 f8 1a 20 20 20  20 20 20 f2 63 68 61 6e  |k....      .chan|
00001530  67 65 5f 73 65 74 74 69  6e 67 73 0d 08 02 30 20  |ge_settings...0 |
00001540  20 20 20 20 20 21 71 25  3d 77 68 5f 73 65 74 75  |     !q%=wh_setu|
00001550  70 25 3a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |p%:.."Wimp_Close|
00001560  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 08 0c 09 20  |Window",,q%.... |
00001570  20 20 20 cd 0d 08 16 10  20 20 c9 20 77 68 5f 73  |   .....  . wh_s|
00001580  61 76 65 25 0d 08 20 11  20 20 20 20 e7 20 6b 25  |ave%.. .    . k%|
00001590  3d 31 33 20 8c 0d 08 2a  8a 20 20 20 20 20 20 e7  |=13 ...*.      .|
000015a0  20 a7 a4 69 74 65 78 74  28 77 68 5f 73 61 76 65  | ..itext(wh_save|
000015b0  25 2c 32 29 2c 22 2e 22  29 3d 30 20 8c 20 64 75  |%,2),".")=0 . du|
000015c0  6d 6d 79 25 3d a4 72 65  70 6f 72 74 28 22 54 6f  |mmy%=.report("To|
000015d0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
000015e0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
000015f0  6f 72 79 20 76 69 65 77  65 72 22 2c 31 29 20 8b  |ory viewer",1) .|
00001600  20 f2 73 61 76 65 5f 64  6f 69 74 28 a4 69 74 65  | .save_doit(.ite|
00001610  78 74 28 77 68 5f 73 61  76 65 25 2c 32 29 29 0d  |xt(wh_save%,2)).|
00001620  08 34 21 20 20 20 20 20  20 c8 99 22 57 69 6d 70  |.4!      .."Wimp|
00001630  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
00001640  0d 08 3e 0e 20 20 20 20  20 20 63 25 3d b9 0d 08  |..>.      c%=...|
00001650  48 09 20 20 20 20 cd 0d  08 52 05 cb 0d 08 5c 23  |H.    ...R....\#|
00001660  e7 20 63 25 3d a3 20 8c  20 c8 99 22 57 69 6d 70  |. c%=. . .."Wimp|
00001670  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 6b 25 0d  |_ProcessKey",k%.|
00001680  08 66 05 e1 0d 08 70 05  3a 0d 08 7a 0e dd 20 f2  |.f....p.:..z.. .|
00001690  64 65 66 61 75 6c 74 0d  08 84 1b 6e 25 3d 31 30  |default....n%=10|
000016a0  30 3a 6b 31 25 3d 32 3a  6b 32 25 3d 33 3a 67 25  |0:k1%=2:k2%=3:g%|
000016b0  3d 35 0d 08 8e 1f 78 6d  61 78 25 3d 31 32 38 3a  |=5....xmax%=128:|
000016c0  79 6d 61 78 25 3d 31 32  38 3a 77 72 61 70 25 3d  |ymax%=128:wrap%=|
000016d0  a3 0d 08 98 12 6e 62 25  3d 25 30 31 30 31 30 31  |.....nb%=%010101|
000016e0  30 31 30 0d 08 a2 05 e1  0d 08 ac 05 3a 0d 08 b6  |010.........:...|
000016f0  14 dd 20 f2 73 65 74 74  69 6e 67 73 5f 73 68 6f  |.. .settings_sho|
00001700  77 0d 08 c0 08 ea 20 77  25 0d 08 ca 10 77 25 3d  |w..... w%....w%=|
00001710  77 68 5f 73 65 74 75 70  25 0d 08 d4 1c f2 73 65  |wh_setup%.....se|
00001720  74 77 72 69 74 61 62 6c  65 28 77 25 2c 31 2c c3  |twritable(w%,1,.|
00001730  28 6e 25 29 29 0d 08 de  1d f2 73 65 74 77 72 69  |(n%)).....setwri|
00001740  74 61 62 6c 65 28 77 25  2c 35 2c c3 28 6b 31 25  |table(w%,5,.(k1%|
00001750  29 29 0d 08 e8 1d f2 73  65 74 77 72 69 74 61 62  |)).....setwritab|
00001760  6c 65 28 77 25 2c 39 2c  c3 28 6b 32 25 29 29 0d  |le(w%,9,.(k2%)).|
00001770  08 f2 1d f2 73 65 74 77  72 69 74 61 62 6c 65 28  |....setwritable(|
00001780  77 25 2c 31 33 2c c3 28  67 25 29 29 0d 08 fc 20  |w%,13,.(g%))... |
00001790  f2 73 65 74 77 72 69 74  61 62 6c 65 28 77 25 2c  |.setwritable(w%,|
000017a0  32 38 2c c3 28 78 6d 61  78 25 29 29 0d 09 06 20  |28,.(xmax%))... |
000017b0  f2 73 65 74 77 72 69 74  61 62 6c 65 28 77 25 2c  |.setwritable(w%,|
000017c0  33 32 2c c3 28 79 6d 61  78 25 29 29 0d 09 10 1c  |32,.(ymax%))....|
000017d0  f2 73 65 6c 65 63 74 69  63 6f 6e 28 77 25 2c 33  |.selecticon(w%,3|
000017e0  35 2c 77 72 61 70 25 29  0d 09 1a 0e e3 20 69 25  |5,wrap%)..... i%|
000017f0  3d 30 20 b8 20 38 0d 09  24 2f e7 20 69 25 3c 3e  |=0 . 8..$/. i%<>|
00001800  34 20 8c 20 f2 73 65 6c  65 63 74 69 63 6f 6e 28  |4 . .selecticon(|
00001810  77 25 2c 69 25 2b 31 36  2c 6e 62 25 80 28 31 3c  |w%,i%+16,nb%.(1<|
00001820  3c 69 25 29 29 0d 09 2e  08 ed 20 69 25 0d 09 38  |<i%))..... i%..8|
00001830  05 e1 0d 09 42 05 3a 0d  09 4c 14 dd 20 f2 73 65  |....B.:..L.. .se|
00001840  74 74 69 6e 67 73 5f 72  65 61 64 0d 09 56 0b ea  |ttings_read..V..|
00001850  20 77 25 2c 69 25 0d 09  60 10 77 25 3d 77 68 5f  | w%,i%..`.w%=wh_|
00001860  73 65 74 75 70 25 0d 09  6a 16 6e 25 3d bb 28 a4  |setup%..j.n%=.(.|
00001870  69 74 65 78 74 28 77 25  2c 31 29 29 0d 09 74 17  |itext(w%,1))..t.|
00001880  6b 31 25 3d bb 28 a4 69  74 65 78 74 28 77 25 2c  |k1%=.(.itext(w%,|
00001890  35 29 29 0d 09 7e 17 6b  32 25 3d bb 28 a4 69 74  |5))..~.k2%=.(.it|
000018a0  65 78 74 28 77 25 2c 39  29 29 0d 09 88 17 67 25  |ext(w%,9))....g%|
000018b0  3d bb 28 a4 69 74 65 78  74 28 77 25 2c 31 33 29  |=.(.itext(w%,13)|
000018c0  29 0d 09 92 1a 78 6d 61  78 25 3d bb 28 a4 69 74  |)....xmax%=.(.it|
000018d0  65 78 74 28 77 25 2c 32  38 29 29 0d 09 9c 1a 79  |ext(w%,28))....y|
000018e0  6d 61 78 25 3d bb 28 a4  69 74 65 78 74 28 77 25  |max%=.(.itext(w%|
000018f0  2c 33 32 29 29 0d 09 a6  19 77 72 61 70 25 3d a4  |,32))....wrap%=.|
00001900  73 65 6c 69 63 6f 6e 28  77 25 2c 33 35 29 0d 09  |selicon(w%,35)..|
00001910  b0 09 6e 62 25 3d 30 0d  09 ba 0e e3 20 69 25 3d  |..nb%=0..... i%=|
00001920  30 20 b8 20 38 0d 09 c4  2f e7 20 69 25 3c 3e 34  |0 . 8.../. i%<>4|
00001930  20 8c 20 6e 62 25 2b 3d  28 a4 73 65 6c 69 63 6f  | . nb%+=(.selico|
00001940  6e 28 77 25 2c 69 25 2b  31 36 29 80 28 31 3c 3c  |n(w%,i%+16).(1<<|
00001950  69 25 29 29 0d 09 ce 08  ed 20 69 25 0d 09 d8 05  |i%))..... i%....|
00001960  e1 0d 09 e2 05 3a 0d 09  ec 15 dd 20 f2 73 65 74  |.....:..... .set|
00001970  74 69 6e 67 73 5f 63 68  65 63 6b 0d 09 f6 12 f2  |tings_check.....|
00001980  73 65 74 74 69 6e 67 73  5f 72 65 61 64 0d 0a 00  |settings_read...|
00001990  17 6e 25 3d a4 6c 69 6d  69 74 28 6e 25 2c 32 2c  |.n%=.limit(n%,2,|
000019a0  32 35 35 29 0d 0a 0a 18  6b 31 25 3d a4 6c 69 6d  |255)....k1%=.lim|
000019b0  69 74 28 6b 31 25 2c 31  2c 31 30 29 0d 0a 14 18  |it(k1%,1,10)....|
000019c0  6b 32 25 3d a4 6c 69 6d  69 74 28 6b 32 25 2c 31  |k2%=.limit(k2%,1|
000019d0  2c 31 30 29 0d 0a 1e 16  67 25 3d a4 6c 69 6d 69  |,10)....g%=.limi|
000019e0  74 28 67 25 2c 31 2c 6e  25 29 0d 0a 28 21 78 6d  |t(g%,1,n%)..(!xm|
000019f0  61 78 25 3d a4 6c 69 6d  69 74 28 78 6d 61 78 25  |ax%=.limit(xmax%|
00001a00  2c 32 30 2c 35 31 32 29  80 2d 34 0d 0a 32 21 79  |,20,512).-4..2!y|
00001a10  6d 61 78 25 3d a4 6c 69  6d 69 74 28 79 6d 61 78  |max%=.limit(ymax|
00001a20  25 2c 32 30 2c 35 31 32  29 80 2d 34 0d 0a 3c 12  |%,20,512).-4..<.|
00001a30  f2 73 65 74 74 69 6e 67  73 5f 73 68 6f 77 0d 0a  |.settings_show..|
00001a40  46 05 e1 0d 0a 50 05 3a  0d 0a 5a 1e dd 20 f2 73  |F....P.:..Z.. .s|
00001a50  65 74 74 69 6e 67 73 5f  63 6c 69 63 6b 28 69 68  |ettings_click(ih|
00001a60  25 2c 62 74 25 29 0d 0a  64 0c c8 8e 20 69 68 25  |%,bt%)..d... ih%|
00001a70  20 ca 0d 0a 6e 1c 20 20  c9 20 32 3a f2 61 6c 74  | ...n.  . 2:.alt|
00001a80  65 72 28 31 2c 2d 31 2c  32 2c 32 35 35 29 0d 0a  |er(1,-1,2,255)..|
00001a90  78 1b 20 20 c9 20 33 3a  f2 61 6c 74 65 72 28 31  |x.  . 3:.alter(1|
00001aa0  2c 31 2c 32 2c 32 35 35  29 0d 0a 82 1b 20 20 c9  |,1,2,255)....  .|
00001ab0  20 36 3a f2 61 6c 74 65  72 28 35 2c 2d 31 2c 31  | 6:.alter(5,-1,1|
00001ac0  2c 31 30 29 0d 0a 8c 1a  20 20 c9 20 37 3a f2 61  |,10)....  . 7:.a|
00001ad0  6c 74 65 72 28 35 2c 31  2c 31 2c 31 30 29 0d 0a  |lter(5,1,1,10)..|
00001ae0  96 1c 20 20 c9 20 31 30  3a f2 61 6c 74 65 72 28  |..  . 10:.alter(|
00001af0  39 2c 2d 31 2c 31 2c 31  30 29 0d 0a a0 1b 20 20  |9,-1,1,10)....  |
00001b00  c9 20 31 31 3a f2 61 6c  74 65 72 28 39 2c 31 2c  |. 11:.alter(9,1,|
00001b10  31 2c 31 30 29 0d 0a aa  1d 20 20 c9 20 31 34 3a  |1,10)....  . 14:|
00001b20  f2 61 6c 74 65 72 28 31  33 2c 2d 31 2c 31 2c 39  |.alter(13,-1,1,9|
00001b30  39 29 0d 0a b4 1c 20 20  c9 20 31 35 3a f2 61 6c  |9)....  . 15:.al|
00001b40  74 65 72 28 31 33 2c 31  2c 31 2c 39 39 29 0d 0a  |ter(13,1,1,99)..|
00001b50  be 1f 20 20 c9 20 32 39  3a f2 61 6c 74 65 72 28  |..  . 29:.alter(|
00001b60  32 38 2c 2d 34 2c 32 30  2c 35 31 32 29 0d 0a c8  |28,-4,20,512)...|
00001b70  1e 20 20 c9 20 33 30 3a  f2 61 6c 74 65 72 28 32  |.  . 30:.alter(2|
00001b80  38 2c 34 2c 32 30 2c 35  31 32 29 0d 0a d2 1f 20  |8,4,20,512).... |
00001b90  20 c9 20 33 33 3a f2 61  6c 74 65 72 28 33 32 2c  | . 33:.alter(32,|
00001ba0  2d 34 2c 32 30 2c 35 31  32 29 0d 0a dc 1e 20 20  |-4,20,512)....  |
00001bb0  c9 20 33 34 3a f2 61 6c  74 65 72 28 33 32 2c 34  |. 34:.alter(32,4|
00001bc0  2c 32 30 2c 35 31 32 29  0d 0a e6 2b 20 20 c9 20  |,20,512)...+  . |
00001bd0  32 36 3a f2 73 65 74 74  69 6e 67 73 5f 63 68 65  |26:.settings_che|
00001be0  63 6b 3a f2 63 68 61 6e  67 65 5f 73 65 74 74 69  |ck:.change_setti|
00001bf0  6e 67 73 0d 0a f0 40 20  20 20 20 e7 20 62 74 25  |ngs...@    . bt%|
00001c00  3d 34 20 8c 20 21 6d 69  73 63 62 25 3d 77 68 5f  |=4 . !miscb%=wh_|
00001c10  73 65 74 75 70 25 3a c8  99 22 57 69 6d 70 5f 43  |setup%:.."Wimp_C|
00001c20  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 6d 69 73  |loseWindow",,mis|
00001c30  63 62 25 0d 0a fa 22 20  20 c9 20 32 35 3a f2 64  |cb%..."  . 25:.d|
00001c40  65 66 61 75 6c 74 3a f2  73 65 74 74 69 6e 67 73  |efault:.settings|
00001c50  5f 73 68 6f 77 0d 0b 04  40 20 20 20 20 e7 20 62  |_show...@    . b|
00001c60  74 25 3d 34 20 8c 20 21  6d 69 73 63 62 25 3d 77  |t%=4 . !miscb%=w|
00001c70  68 5f 73 65 74 75 70 25  3a c8 99 22 57 69 6d 70  |h_setup%:.."Wimp|
00001c80  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 6d  |_CloseWindow",,m|
00001c90  69 73 63 62 25 0d 0b 0e  05 cb 0d 0b 18 05 e1 0d  |iscb%...........|
00001ca0  0b 22 05 3a 0d 0b 2c 21  dd 20 f2 61 6c 74 65 72  |.".:..,!. .alter|
00001cb0  28 69 68 25 2c 73 74 65  70 25 2c 6d 69 6e 25 2c  |(ih%,step%,min%,|
00001cc0  6d 61 78 25 29 0d 0b 36  0b ea 20 63 25 2c 64 25  |max%)..6.. c%,d%|
00001cd0  0d 0b 40 1f 63 25 3d bb  28 a4 69 74 65 78 74 28  |..@.c%=.(.itext(|
00001ce0  77 68 5f 73 65 74 75 70  25 2c 69 68 25 29 29 0d  |wh_setup%,ih%)).|
00001cf0  0b 4a 0f 64 25 3d 63 25  2b 73 74 65 70 25 0d 0b  |.J.d%=c%+step%..|
00001d00  54 17 e7 20 64 25 3c 6d  69 6e 25 20 8c 20 64 25  |T.. d%<min% . d%|
00001d10  3d 6d 69 6e 25 0d 0b 5e  17 e7 20 64 25 3e 6d 61  |=min%..^.. d%>ma|
00001d20  78 25 20 8c 20 64 25 3d  6d 61 78 25 0d 0b 68 30  |x% . d%=max%..h0|
00001d30  e7 20 64 25 3c 3e 63 25  20 8c 20 f2 73 65 74 77  |. d%<>c% . .setw|
00001d40  72 69 74 61 62 6c 65 28  77 68 5f 73 65 74 75 70  |ritable(wh_setup|
00001d50  25 2c 69 68 25 2c c3 28  64 25 29 29 0d 0b 72 05  |%,ih%,.(d%))..r.|
00001d60  e1 0d 0b 7c 05 3a 0d 0b  86 16 dd 20 f2 63 68 61  |...|.:..... .cha|
00001d70  6e 67 65 5f 73 65 74 74  69 6e 67 73 0d 0b 90 27  |nge_settings...'|
00001d80  73 73 69 7a 65 5f 72 65  71 25 3d 31 32 38 2b 32  |ssize_req%=128+2|
00001d90  2a 78 6d 61 78 25 2a 79  6d 61 78 25 3a 73 70 72  |*xmax%*ymax%:spr|
00001da0  25 3d 93 0d 0b 9a 26 c8  99 20 22 4f 53 5f 52 65  |%=....&.. "OS_Re|
00001db0  61 64 4d 65 6d 4d 61 70  49 6e 66 6f 22 20 b8 20  |adMemMapInfo" . |
00001dc0  70 61 67 65 73 69 7a 65  25 0d 0b a4 21 70 61 67  |pagesize%...!pag|
00001dd0  65 73 25 3d 73 73 69 7a  65 5f 72 65 71 25 20 81  |es%=ssize_req% .|
00001de0  20 70 61 67 65 73 69 7a  65 25 0d 0b ae 2c e7 20  | pagesize%...,. |
00001df0  28 73 73 69 7a 65 5f 72  65 71 25 20 83 20 70 61  |(ssize_req% . pa|
00001e00  67 65 73 69 7a 65 25 29  3e 30 20 8c 20 70 61 67  |gesize%)>0 . pag|
00001e10  65 73 25 2b 3d 31 0d 0b  b8 18 73 6c 6f 74 73 69  |es%+=1....slotsi|
00001e20  7a 65 25 3d 73 70 72 25  2d 26 38 30 30 30 0d 0b  |ze%=spr%-&8000..|
00001e30  c2 40 c8 99 20 22 57 69  6d 70 5f 53 6c 6f 74 53  |.@.. "Wimp_SlotS|
00001e40  69 7a 65 22 2c 73 6c 6f  74 73 69 7a 65 25 2b 70  |ize",slotsize%+p|
00001e50  61 67 65 73 69 7a 65 25  2a 70 61 67 65 73 25 2c  |agesize%*pages%,|
00001e60  2d 31 20 b8 20 73 6c 6f  74 73 69 7a 65 25 0d 0b  |-1 . slotsize%..|
00001e70  cc 1b 73 70 72 65 6e 64  25 3d 73 6c 6f 74 73 69  |..sprend%=slotsi|
00001e80  7a 65 25 2b 26 38 30 30  30 0d 0b d6 2f e7 20 73  |ze%+&8000.../. s|
00001e90  70 72 65 6e 64 25 3c 3d  73 70 72 25 20 8c 20 85  |prend%<=spr% . .|
00001ea0  20 30 2c 22 4e 6f 20 72  6f 6f 6d 20 66 6f 72 20  | 0,"No room for |
00001eb0  73 70 72 69 74 65 73 22  0d 0b e0 29 21 73 70 72  |sprites"...)!spr|
00001ec0  25 3d 73 70 72 65 6e 64  25 2d 73 70 72 25 3a 73  |%=sprend%-spr%:s|
00001ed0  70 72 25 21 34 3d 30 3a  73 70 72 25 21 38 3d 31  |pr%!4=0:spr%!8=1|
00001ee0  36 0d 0b ea 13 c8 99 26  32 45 2c 26 31 30 39 2c  |6......&2E,&109,|
00001ef0  73 70 72 25 0d 0b f4 28  c8 99 26 32 45 2c 26 31  |spr%...(..&2E,&1|
00001f00  30 46 2c 73 70 72 25 2c  22 31 22 2c 30 2c 78 6d  |0F,spr%,"1",0,xm|
00001f10  61 78 25 2c 79 6d 61 78  25 2c 32 38 0d 0b fe 28  |ax%,ymax%,28...(|
00001f20  c8 99 26 32 45 2c 26 31  30 46 2c 73 70 72 25 2c  |..&2E,&10F,spr%,|
00001f30  22 32 22 2c 30 2c 78 6d  61 78 25 2c 79 6d 61 78  |"2",0,xmax%,ymax|
00001f40  25 2c 32 38 0d 0c 08 22  c8 99 26 32 45 2c 26 31  |%,28..."..&2E,&1|
00001f50  31 38 2c 73 70 72 25 2c  22 31 22 20 b8 20 2c 2c  |18,spr%,"1" . ,,|
00001f60  73 70 25 28 31 29 0d 0c  12 22 c8 99 26 32 45 2c  |sp%(1)..."..&2E,|
00001f70  26 31 31 38 2c 73 70 72  25 2c 22 32 22 20 b8 20  |&118,spr%,"2" . |
00001f80  2c 2c 73 70 25 28 32 29  0d 0c 1c 13 f2 63 68 61  |,,sp%(2).....cha|
00001f90  6e 67 65 5f 64 69 73 70  6c 61 79 0d 0c 26 3f c8  |nge_display..&?.|
00001fa0  99 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 47 65  |."ColourTrans_Ge|
00001fb0  6e 65 72 61 74 65 54 61  62 6c 65 22 2c 73 70 72  |nerateTable",spr|
00001fc0  25 2c 73 70 25 28 31 29  2c 2d 31 2c 2d 31 2c 70  |%,sp%(1),-1,-1,p|
00001fd0  69 78 74 72 61 6e 73 25  2c 31 0d 0c 30 0d f2 61  |ixtrans%,1..0..a|
00001fe0  73 73 65 6d 62 6c 65 0d  0c 3a 31 41 25 3d 91 3a  |ssemble..:1A%=.:|
00001ff0  44 25 3d 73 70 25 28 31  29 2b 21 28 73 70 25 28  |D%=sp%(1)+!(sp%(|
00002000  31 29 2b 33 32 29 3a 45  25 3d 44 25 2b 78 6d 61  |1)+32):E%=D%+xma|
00002010  78 25 2a 79 6d 61 78 25  0d 0c 44 0c d6 20 72 61  |x%*ymax%..D.. ra|
00002020  6e 64 6f 6d 0d 0c 4e 31  41 25 3d 73 70 25 28 31  |ndom..N1A%=sp%(1|
00002030  29 2b 21 28 73 70 25 28  31 29 2b 33 32 29 3a 42  |)+!(sp%(1)+32):B|
00002040  25 3d 73 70 25 28 32 29  2b 21 28 73 70 25 28 32  |%=sp%(2)+!(sp%(2|
00002050  29 2b 33 32 29 0d 0c 58  32 66 72 61 6d 65 25 3d  |)+32)..X2frame%=|
00002060  31 3a 67 65 6e 25 3d 30  3a f2 73 65 74 69 74 65  |1:gen%=0:.setite|
00002070  78 74 28 77 68 5f 74 6f  6f 6c 73 25 2c 34 2c c3  |xt(wh_tools%,4,.|
00002080  28 67 65 6e 25 29 29 0d  0c 62 05 e1 0d 0c 6c 05  |(gen%))..b....l.|
00002090  3a 0d 0c 76 15 dd 20 f2  63 68 61 6e 67 65 5f 64  |:..v.. .change_d|
000020a0  69 73 70 6c 61 79 0d 0c  80 25 ea 20 78 65 69 67  |isplay...%. xeig|
000020b0  25 2c 79 65 69 67 25 2c  7a 6f 6f 6d 25 2c 78 73  |%,yeig%,zoom%,xs|
000020c0  69 7a 65 25 2c 79 73 69  7a 65 25 0d 0c 8a 2f 78  |ize%,ysize%.../x|
000020d0  65 69 67 25 3d a4 72 65  61 64 6d 6f 64 65 76 61  |eig%=.readmodeva|
000020e0  72 28 34 29 3a 79 65 69  67 25 3d a4 72 65 61 64  |r(4):yeig%=.read|
000020f0  6d 6f 64 65 76 61 72 28  35 29 0d 0c 94 20 7a 6f  |modevar(5)... zo|
00002100  6f 6d 25 3d bb 28 a4 69  74 65 78 74 28 77 68 5f  |om%=.(.itext(wh_|
00002110  73 63 61 6c 65 25 2c 30  29 29 0d 0c 9e 3b e7 20  |scale%,0))...;. |
00002120  78 65 69 67 25 3c 79 65  69 67 25 20 73 63 61 6c  |xeig%<yeig% scal|
00002130  65 25 3d 7a 6f 6f 6d 25  3c 3c 79 65 69 67 25 20  |e%=zoom%<<yeig% |
00002140  8b 20 73 63 61 6c 65 25  3d 7a 6f 6f 6d 25 3c 3c  |. scale%=zoom%<<|
00002150  78 65 69 67 25 0d 0c a8  30 21 71 25 3d 77 68 5f  |xeig%...0!q%=wh_|
00002160  64 69 73 70 6c 61 79 25  3a c8 99 22 57 69 6d 70  |display%:.."Wimp|
00002170  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
00002180  2c 71 25 2b 31 0d 0c b2  62 e7 20 28 28 71 25 21  |,q%+1...b. ((q%!|
00002190  33 32 29 80 28 31 3c 3c  31 36 29 29 20 c8 99 22  |32).(1<<16)) .."|
000021a0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
000021b0  22 2c 77 68 5f 64 69 73  70 6c 61 79 25 2c 71 25  |",wh_display%,q%|
000021c0  21 34 34 2c 71 25 21 34  38 2c 71 25 21 35 32 2c  |!44,q%!48,q%!52,|
000021d0  71 25 21 35 36 3a 73 74  61 74 75 73 25 3d 73 74  |q%!56:status%=st|
000021e0  61 74 75 73 25 84 34 0d  0c bc 46 21 6d 69 73 63  |atus%.4...F!misc|
000021f0  62 25 3d 30 3a 6d 69 73  63 62 25 21 34 3d 2d 73  |b%=0:miscb%!4=-s|
00002200  63 61 6c 65 25 2a 79 6d  61 78 25 3a 6d 69 73 63  |cale%*ymax%:misc|
00002210  62 25 21 38 3d 73 63 61  6c 65 25 2a 78 6d 61 78  |b%!8=scale%*xmax|
00002220  25 3a 6d 69 73 63 62 25  21 31 32 3d 30 0d 0c c6  |%:miscb%!12=0...|
00002230  29 c8 99 22 57 69 6d 70  5f 53 65 74 45 78 74 65  |).."Wimp_SetExte|
00002240  6e 74 22 2c 77 68 5f 64  69 73 70 6c 61 79 25 2c  |nt",wh_display%,|
00002250  6d 69 73 63 62 25 0d 0c  d0 12 73 63 61 6c 65 32  |miscb%....scale2|
00002260  25 3d 73 63 61 6c 65 25  0d 0c da 1d e7 20 78 65  |%=scale%..... xe|
00002270  69 67 25 3d 79 65 69 67  25 20 80 20 7a 6f 6f 6d  |ig%=yeig% . zoom|
00002280  25 3d 31 20 8c 0d 0c e4  0e 20 20 73 63 61 6c 65  |%=1 .....  scale|
00002290  25 3d 30 0d 0c ee 06 20  cc 0d 0c f8 16 20 20 73  |%=0.... .....  s|
000022a0  63 61 6c 65 25 3d 73 63  61 6c 65 62 6c 6b 25 0d  |cale%=scaleblk%.|
000022b0  0d 02 25 20 20 e7 20 78  65 69 67 25 3c 79 65 69  |..%  . xeig%<yei|
000022c0  67 25 20 8c 20 78 65 69  67 25 3d 31 3a 79 65 69  |g% . xeig%=1:yei|
000022d0  67 25 3d 30 0d 0d 0c 05  cd 0d 0d 16 1b 21 73 63  |g%=0.........!sc|
000022e0  61 6c 65 62 6c 6b 25 3d  7a 6f 6f 6d 25 3c 3c 78  |aleblk%=zoom%<<x|
000022f0  65 69 67 25 0d 0d 20 1c  73 63 61 6c 65 62 6c 6b  |eig%.. .scaleblk|
00002300  25 21 34 3d 7a 6f 6f 6d  25 3c 3c 79 65 69 67 25  |%!4=zoom%<<yeig%|
00002310  0d 0d 2a 20 73 63 61 6c  65 62 6c 6b 25 21 38 3d  |..* scaleblk%!8=|
00002320  31 3a 73 63 61 6c 65 62  6c 6b 25 21 31 32 3d 31  |1:scaleblk%!12=1|
00002330  0d 0d 34 05 e1 0d 0d 3e  05 3a 0d 0d 48 12 dd 20  |..4....>.:..H.. |
00002340  f2 6f 70 65 6e 64 69 73  70 6c 61 79 0d 0d 52 19  |.opendisplay..R.|
00002350  ea 20 78 73 69 7a 65 25  2c 79 73 69 7a 65 25 2c  |. xsize%,ysize%,|
00002360  78 70 6f 73 25 0d 0d 5c  0e 78 70 6f 73 25 3d 71  |xpos%..\.xpos%=q|
00002370  25 21 34 0d 0d 66 1b c8  99 22 57 69 6d 70 5f 4f  |%!4..f..."Wimp_O|
00002380  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 0d  |penWindow",,q%..|
00002390  70 21 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |p!.."Wimp_GetWin|
000023a0  64 6f 77 4f 75 74 6c 69  6e 65 22 2c 2c 71 25 0d  |dowOutline",,q%.|
000023b0  0d 7a 35 21 6d 69 73 63  62 25 3d 77 68 5f 74 6f  |.z5!miscb%=wh_to|
000023c0  6f 6c 73 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |ols%:.."Wimp_Get|
000023d0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 6d 69  |WindowState",,mi|
000023e0  73 63 62 25 0d 0d 84 37  78 73 69 7a 65 25 3d 6d  |scb%...7xsize%=m|
000023f0  69 73 63 62 25 21 31 32  2d 6d 69 73 63 62 25 21  |iscb%!12-miscb%!|
00002400  34 3a 79 73 69 7a 65 25  3d 6d 69 73 63 62 25 21  |4:ysize%=miscb%!|
00002410  31 36 2d 6d 69 73 63 62  25 21 38 0d 0d 8e 3e 6d  |16-miscb%!8...>m|
00002420  69 73 63 62 25 21 34 3d  78 70 6f 73 25 3a 6d 69  |iscb%!4=xpos%:mi|
00002430  73 63 62 25 21 38 3d 71  25 21 38 2d 79 73 69 7a  |scb%!8=q%!8-ysiz|
00002440  65 25 3a 6d 69 73 63 62  25 21 31 32 3d 78 70 6f  |e%:miscb%!12=xpo|
00002450  73 25 2b 78 73 69 7a 65  25 0d 0d 98 28 6d 69 73  |s%+xsize%...(mis|
00002460  63 62 25 21 31 36 3d 71  25 21 38 3a 6d 69 73 63  |cb%!16=q%!8:misc|
00002470  62 25 21 32 38 3d 77 68  5f 64 69 73 70 6c 61 79  |b%!28=wh_display|
00002480  25 0d 0d a2 1f c8 99 22  57 69 6d 70 5f 4f 70 65  |%......"Wimp_Ope|
00002490  6e 57 69 6e 64 6f 77 22  2c 2c 6d 69 73 63 62 25  |nWindow",,miscb%|
000024a0  0d 0d ac 05 e1 0d 0d b6  05 3a 0d 0d c0 1a dd 20  |.........:..... |
000024b0  a4 6c 69 6d 69 74 28 61  25 2c 6d 69 6e 25 2c 6d  |.limit(a%,min%,m|
000024c0  61 78 25 29 0d 0d ca 15  e7 20 61 25 3c 6d 69 6e  |ax%)..... a%<min|
000024d0  25 20 61 25 3d 6d 69 6e  25 0d 0d d4 15 e7 20 61  |% a%=min%..... a|
000024e0  25 3e 6d 61 78 25 20 61  25 3d 6d 61 78 25 0d 0d  |%>max% a%=max%..|
000024f0  de 07 3d 61 25 0d 0d e8  05 3a 0d 0d f2 11 dd 20  |..=a%....:..... |
00002500  f2 73 69 6e 67 6c 65 74  61 73 6b 0d 0d fc 33 ea  |.singletask...3.|
00002510  20 6f 6c 64 6d 6f 64 65  25 2c 6d 6f 64 65 25 2c  | oldmode%,mode%,|
00002520  78 73 25 2c 79 73 25 2c  78 6d 75 6c 25 2c 79 6d  |xs%,ys%,xmul%,ym|
00002530  75 6c 25 2c 78 70 25 2c  79 70 25 2c 6b 25 0d 0e  |ul%,xp%,yp%,k%..|
00002540  06 0e 6f 6c 64 6d 6f 64  65 25 3d eb 0d 0e 10 05  |..oldmode%=.....|
00002550  f7 0d 0e 1a 05 f5 0d 0e  24 0d 20 20 f3 20 6d 6f  |........$.  . mo|
00002560  64 65 25 0d 0e 2e 24 fd  20 a4 63 68 65 63 6b 6d  |de%...$. .checkm|
00002570  6f 64 65 28 6d 6f 64 65  25 29 3d b9 20 84 20 6d  |ode(mode%)=. . m|
00002580  6f 64 65 25 3d 2d 31 0d  0e 38 17 e7 20 6d 6f 64  |ode%=-1..8.. mod|
00002590  65 25 3d 2d 31 20 6d 6f  64 65 25 3d 31 33 0d 0e  |e%=-1 mode%=13..|
000025a0  42 0b eb 20 6d 6f 64 65  25 0d 0e 4c 05 87 0d 0e  |B.. mode%..L....|
000025b0  56 1a 78 73 25 3d a4 72  65 61 64 6d 6f 64 65 76  |V.xs%=.readmodev|
000025c0  61 72 28 31 31 29 2b 31  0d 0e 60 1a 79 73 25 3d  |ar(11)+1..`.ys%=|
000025d0  a4 72 65 61 64 6d 6f 64  65 76 61 72 28 31 32 29  |.readmodevar(12)|
000025e0  2b 31 0d 0e 6a 3c c8 99  22 43 6f 6c 6f 75 72 54  |+1..j<.."ColourT|
000025f0  72 61 6e 73 5f 47 65 6e  65 72 61 74 65 54 61 62  |rans_GenerateTab|
00002600  6c 65 22 2c 73 70 72 25  2c 73 70 25 28 31 29 2c  |le",spr%,sp%(1),|
00002610  2d 31 2c 2d 31 2c 6d 69  73 63 62 25 2c 31 0d 0e  |-1,-1,miscb%,1..|
00002620  74 27 78 6d 75 6c 25 3d  78 73 25 20 81 20 78 6d  |t'xmul%=xs% . xm|
00002630  61 78 25 3a e7 20 78 6d  75 6c 25 3d 30 20 78 6d  |ax%:. xmul%=0 xm|
00002640  75 6c 25 3d 31 0d 0e 7e  1b 78 70 25 3d 28 78 73  |ul%=1..~.xp%=(xs|
00002650  25 20 2d 20 78 6d 61 78  25 2a 78 6d 75 6c 25 29  |% - xmax%*xmul%)|
00002660  0d 0e 88 25 79 6d 75 6c  25 3d 79 73 25 2f 79 6d  |...%ymul%=ys%/ym|
00002670  61 78 25 3a e7 20 79 6d  75 6c 25 3d 30 20 79 6d  |ax%:. ymul%=0 ym|
00002680  75 6c 25 3d 31 0d 0e 92  1b 79 70 25 3d 28 79 73  |ul%=1....yp%=(ys|
00002690  25 20 2d 20 79 6d 61 78  25 2a 79 6d 75 6c 25 29  |% - ymax%*ymul%)|
000026a0  0d 0e 9c 33 71 25 21 31  30 30 30 3d 78 6d 75 6c  |...3q%!1000=xmul|
000026b0  25 3a 71 25 21 31 30 30  34 3d 79 6d 75 6c 25 3a  |%:q%!1004=ymul%:|
000026c0  71 25 21 31 30 30 38 3d  31 3a 71 25 21 31 30 31  |q%!1008=1:q%!101|
000026d0  32 3d 31 0d 0e a6 05 f5  0d 0e b0 1d 20 20 67 65  |2=1.........  ge|
000026e0  6e 25 2b 3d 31 3a 66 72  61 6d 65 25 3d 66 72 61  |n%+=1:frame%=fra|
000026f0  6d 65 25 82 33 0d 0e ba  17 20 20 c8 94 20 41 25  |me%.3....  .. A%|
00002700  2c 42 25 3a d6 20 75 70  64 61 74 65 0d 0e c4 08  |,B%:. update....|
00002710  20 20 c8 96 0d 0e ce 39  20 20 c8 99 26 32 45 2c  |  .....9  ..&2E,|
00002720  26 32 33 34 2c 73 70 72  25 2c 73 70 25 28 66 72  |&234,spr%,sp%(fr|
00002730  61 6d 65 25 29 2c 78 70  25 2c 79 70 25 2c 2c 71  |ame%),xp%,yp%,,q|
00002740  25 2b 31 30 30 30 2c 6d  69 73 63 62 25 0d 0e d8  |%+1000,miscb%...|
00002750  13 20 20 c8 99 36 2c 31  32 31 20 b8 20 2c 6b 25  |.  ..6,121 . ,k%|
00002760  0d 0e e2 0d fd 20 6b 25  3c 3e 26 46 46 0d 0e ec  |..... k%<>&FF...|
00002770  1d c8 99 22 57 69 6d 70  5f 53 65 74 4d 6f 64 65  |..."Wimp_SetMode|
00002780  22 2c 6f 6c 64 6d 6f 64  65 25 0d 0e f6 0a c8 99  |",oldmode%......|
00002790  36 2c 31 35 0d 0f 00 05  e1 0d 0f 0a 14 dc 20 33  |6,15.......... 3|
000027a0  32 2c 32 38 2c 33 36 2c  31 35 2c 2d 31 0d 0f 14  |2,28,36,15,-1...|
000027b0  05 3a 0d 0f 1e 17 dd 20  a4 63 68 65 63 6b 6d 6f  |.:..... .checkmo|
000027c0  64 65 28 6d 6f 64 65 25  29 0d 0f 28 08 ea 20 66  |de(mode%)..(.. f|
000027d0  25 0d 0f 32 13 e7 20 6d  6f 64 65 25 3d 2d 31 20  |%..2.. mode%=-1 |
000027e0  8c 20 3d a3 0d 0f 3c 15  c8 99 26 33 35 2c 6d 6f  |. =...<...&35,mo|
000027f0  64 65 25 20 b8 20 3b 66  25 0d 0f 46 16 e7 20 28  |de% . ;f%..F.. (|
00002800  66 25 80 32 29 20 8c 20  3d a3 20 8b 20 3d b9 0d  |f%.2) . =. . =..|
00002810  0f 50 05 3a 0d 0f 5a 15  dd 20 f2 73 61 76 65 5f  |.P.:..Z.. .save_|
00002820  73 74 61 72 74 64 72 61  67 0d 0f 64 13 ea 20 78  |startdrag..d.. x|
00002830  6f 72 69 67 25 2c 79 6f  72 69 67 25 0d 0f 6e 14  |orig%,yorig%..n.|
00002840  21 6d 69 73 63 62 25 3d  77 68 5f 73 61 76 65 25  |!miscb%=wh_save%|
00002850  0d 0f 78 23 c8 99 22 57  69 6d 70 5f 47 65 74 57  |..x#.."Wimp_GetW|
00002860  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 6d 69 73  |indowState",,mis|
00002870  63 62 25 0d 0f 82 1d 78  6f 72 69 67 25 3d 6d 69  |cb%....xorig%=mi|
00002880  73 63 62 25 21 34 2d 6d  69 73 63 62 25 21 32 30  |scb%!4-miscb%!20|
00002890  0d 0f 8c 1e 79 6f 72 69  67 25 3d 6d 69 73 63 62  |....yorig%=miscb|
000028a0  25 21 31 36 2d 6d 69 73  63 62 25 21 32 34 0d 0f  |%!16-miscb%!24..|
000028b0  96 0e 6d 69 73 63 62 25  21 34 3d 33 0d 0f a0 21  |..miscb%!4=3...!|
000028c0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
000028d0  74 61 74 65 22 2c 2c 6d  69 73 63 62 25 0d 0f aa  |tate",,miscb%...|
000028e0  35 21 6d 69 73 63 62 25  3d 78 6f 72 69 67 25 2b  |5!miscb%=xorig%+|
000028f0  6d 69 73 63 62 25 21 38  3a 6d 69 73 63 62 25 21  |miscb%!8:miscb%!|
00002900  34 3d 79 6f 72 69 67 25  2b 6d 69 73 63 62 25 21  |4=yorig%+miscb%!|
00002910  31 32 0d 0f b4 38 6d 69  73 63 62 25 21 38 3d 78  |12...8miscb%!8=x|
00002920  6f 72 69 67 25 2b 6d 69  73 63 62 25 21 31 36 3a  |orig%+miscb%!16:|
00002930  6d 69 73 63 62 25 21 31  32 3d 79 6f 72 69 67 25  |miscb%!12=yorig%|
00002940  2b 6d 69 73 63 62 25 21  32 30 0d 0f be 37 c8 99  |+miscb%!20...7..|
00002950  22 44 72 61 67 41 53 70  72 69 74 65 5f 53 74 61  |"DragASprite_Sta|
00002960  72 74 22 2c 25 31 30 30  30 30 31 30 31 2c 31 2c  |rt",%10000101,1,|
00002970  22 66 69 6c 65 5f 66 66  39 22 2c 6d 69 73 63 62  |"file_ff9",miscb|
00002980  25 0d 0f c8 05 e1 0d 0f  d2 05 3a 0d 0f dc 14 dd  |%.........:.....|
00002990  20 f2 73 61 76 65 5f 73  74 6f 70 64 72 61 67 0d  | .save_stopdrag.|
000029a0  0f e6 18 c8 99 22 44 72  61 67 41 53 70 72 69 74  |....."DragASprit|
000029b0  65 5f 53 74 6f 70 22 0d  0f f0 1b c8 99 22 57 69  |e_Stop"......"Wi|
000029c0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000029d0  2d 31 0d 0f fa 23 c8 99  22 57 69 6d 70 5f 47 65  |-1...#.."Wimp_Ge|
000029e0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 6d  |tPointerInfo",,m|
000029f0  69 73 63 62 25 0d 10 04  23 71 25 21 32 30 3d 6d  |iscb%...#q%!20=m|
00002a00  69 73 63 62 25 21 31 32  3a 71 25 21 32 34 3d 6d  |iscb%!12:q%!24=m|
00002a10  69 73 63 62 25 21 31 36  0d 10 0e 20 71 25 21 32  |iscb%!16... q%!2|
00002a20  38 3d 21 6d 69 73 63 62  25 3a 71 25 21 33 32 3d  |8=!miscb%:q%!32=|
00002a30  6d 69 73 63 62 25 21 34  0d 10 18 23 71 25 21 33  |miscb%!4...#q%!3|
00002a40  36 3d 34 38 2b 78 6d 61  78 25 2a 79 6d 61 78 25  |6=48+xmax%*ymax%|
00002a50  3a 71 25 21 34 30 3d 26  66 66 39 0d 10 22 2d 24  |:q%!40=&ff9.."-$|
00002a60  28 71 25 2b 34 34 29 3d  a4 6c 65 61 66 6e 61 6d  |(q%+44)=.leafnam|
00002a70  65 28 a4 69 74 65 78 74  28 77 68 5f 73 61 76 65  |e(.itext(wh_save|
00002a80  25 2c 32 29 29 2b bd 30  0d 10 2c 13 71 25 21 31  |%,2))+.0..,.q%!1|
00002a90  36 3d 31 3a 71 25 21 31  32 3d 30 0d 10 36 33 21  |6=1:q%!12=0..63!|
00002aa0  71 25 3d 28 28 34 38 2b  a9 28 a4 6c 65 61 66 6e  |q%=((48+.(.leafn|
00002ab0  61 6d 65 28 a4 69 74 65  78 74 28 77 68 5f 73 61  |ame(.itext(wh_sa|
00002ac0  76 65 25 2c 32 29 29 29  29 81 34 29 2a 34 0d 10  |ve%,2)))).4)*4..|
00002ad0  40 2a c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |@*.."Wimp_SendMe|
00002ae0  73 73 61 67 65 22 2c 31  38 2c 71 25 2c 71 25 21  |ssage",18,q%,q%!|
00002af0  32 30 2c 71 25 21 32 34  0d 10 4a 05 e1 0d 10 54  |20,q%!24..J....T|
00002b00  05 3a 0d 10 5e 17 dd 20  f2 73 61 76 65 5f 64 6f  |.:..^.. .save_do|
00002b10  69 74 28 70 61 74 68 24  29 0d 10 68 0b ea 20 66  |it(path$)..h.. f|
00002b20  25 2c 6f 25 0d 10 72 0f  66 25 3d 66 72 61 6d 65  |%,o%..r.f%=frame|
00002b30  25 82 33 0d 10 7c 1b c8  99 26 32 45 2c 26 32 31  |%.3..|...&2E,&21|
00002b40  39 2c 73 70 72 25 2c 73  70 25 28 66 25 29 0d 10  |9,spr%,sp%(f%)..|
00002b50  86 25 c8 99 26 32 45 2c  26 31 31 41 2c 73 70 72  |.%..&2E,&11A,spr|
00002b60  25 2c c3 28 66 72 61 6d  65 25 29 2c c3 28 67 65  |%,.(frame%),.(ge|
00002b70  6e 25 29 0d 10 90 19 c8  99 26 32 45 2c 26 31 30  |n%)......&2E,&10|
00002b80  43 2c 73 70 72 25 2c 70  61 74 68 24 0d 10 9a 25  |C,spr%,path$...%|
00002b90  c8 99 26 32 45 2c 26 31  31 41 2c 73 70 72 25 2c  |..&2E,&11A,spr%,|
00002ba0  c3 28 67 65 6e 25 29 2c  c3 28 66 72 61 6d 65 25  |.(gen%),.(frame%|
00002bb0  29 0d 10 a4 2a c8 99 26  32 45 2c 26 31 30 46 2c  |)...*..&2E,&10F,|
00002bc0  73 70 72 25 2c c3 28 66  25 29 2c 30 2c 78 6d 61  |spr%,.(f%),0,xma|
00002bd0  78 25 2c 79 6d 61 78 25  2c 32 38 0d 10 ae 25 c8  |x%,ymax%,28...%.|
00002be0  99 26 32 45 2c 26 31 31  38 2c 73 70 72 25 2c c3  |.&2E,&118,spr%,.|
00002bf0  28 66 25 29 20 b8 20 2c  2c 73 70 25 28 66 25 29  |(f%) . ,,sp%(f%)|
00002c00  0d 10 b8 2d c8 99 26 32  45 2c 26 31 31 38 2c 73  |...-..&2E,&118,s|
00002c10  70 72 25 2c c3 28 66 72  61 6d 65 25 29 20 b8 20  |pr%,.(frame%) . |
00002c20  2c 2c 73 70 25 28 66 72  61 6d 65 25 29 0d 10 c2  |,,sp%(frame%)...|
00002c30  24 41 25 3d 73 70 25 28  66 72 61 6d 65 25 29 2b  |$A%=sp%(frame%)+|
00002c40  21 28 73 70 25 28 66 72  61 6d 65 25 29 2b 33 32  |!(sp%(frame%)+32|
00002c50  29 0d 10 cc 1c 42 25 3d  73 70 25 28 66 25 29 2b  |)....B%=sp%(f%)+|
00002c60  21 28 73 70 25 28 66 25  29 2b 33 32 29 0d 10 d6  |!(sp%(f%)+32)...|
00002c70  05 e1 0d 10 e0 05 3a 0d  10 ea 43 f4 20 3d 3d 3d  |......:...C. ===|
00002c80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002cb0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 10 f4 05 3a 0d  |==========....:.|
00002cc0  10 fe 1d dd 20 a4 6d 61  6b 65 6d 65 6e 75 28 74  |.... .makemenu(t|
00002cd0  69 74 6c 65 24 2c 6d 65  6e 75 24 29 0d 11 08 3c  |itle$,menu$)...<|
00002ce0  ea 20 62 25 2c 69 74 65  6d 73 25 2c 70 6f 73 25  |. b%,items%,pos%|
00002cf0  2c 73 69 7a 65 25 2c 69  64 25 2c 69 64 73 25 2c  |,size%,id%,ids%,|
00002d00  69 24 2c 66 24 2c 66 25  2c 70 25 2c 73 75 62 25  |i$,f$,f%,p%,sub%|
00002d10  2c 6d 61 78 6c 65 6e 25  0d 11 12 17 6d 61 78 6c  |,maxlen%....maxl|
00002d20  65 6e 25 3d a9 28 74 69  74 6c 65 24 29 2d 33 0d  |en%=.(title$)-3.|
00002d30  11 1c 05 f5 0d 11 26 1a  20 61 25 3d a7 6d 65 6e  |......&. a%=.men|
00002d40  75 24 2c 22 7c 22 2c 70  6f 73 25 2b 31 29 0d 11  |u$,"|",pos%+1)..|
00002d50  30 20 20 69 24 3d c1 6d  65 6e 75 24 2c 70 6f 73  |0  i$=.menu$,pos|
00002d60  25 2b 31 2c 61 25 2d 70  6f 73 25 2d 31 29 0d 11  |%+1,a%-pos%-1)..|
00002d70  3a 24 20 e7 20 a7 69 24  2c 22 bb 22 29 20 8c 20  |:$ . .i$,".") . |
00002d80  69 24 3d c0 69 24 2c a7  69 24 2c 22 bb 22 29 2d  |i$=.i$,.i$,".")-|
00002d90  31 29 0d 11 44 2c 20 e7  20 a7 69 24 2c 22 5c 22  |1)..D, . .i$,"\"|
00002da0  29 20 8c 20 66 24 3d c0  69 24 2c a7 69 24 2c 22  |) . f$=.i$,.i$,"|
00002db0  5c 22 29 2d 31 29 20 8b  20 66 24 3d 22 22 0d 11  |\")-1) . f$=""..|
00002dc0  4e 17 20 69 24 3d c1 69  24 2c a7 69 24 2c 22 5c  |N. i$=.i$,.i$,"\|
00002dd0  22 29 2b 31 29 0d 11 58  2a 20 e7 20 a9 28 69 24  |")+1)..X* . .(i$|
00002de0  29 3e 31 31 20 84 20 a7  66 24 2c 22 49 22 29 20  |)>11 . .f$,"I") |
00002df0  8c 20 69 64 73 25 2b 3d  a9 28 69 24 29 2b 31 0d  |. ids%+=.(i$)+1.|
00002e00  11 62 21 20 70 6f 73 25  3d 61 25 3a e7 20 70 6f  |.b! pos%=a%:. po|
00002e10  73 25 3e 30 20 8c 20 69  74 65 6d 73 25 2b 3d 31  |s%>0 . items%+=1|
00002e20  0d 11 6c 0a fd 20 61 25  3d 30 0d 11 76 16 73 69  |..l.. a%=0..v.si|
00002e30  7a 65 25 3d 32 34 2a 69  74 65 6d 73 25 2b 36 30  |ze%=24*items%+60|
00002e40  0d 11 80 0e de 20 62 25  20 73 69 7a 65 25 0d 11  |..... b% size%..|
00002e50  8a 2a e7 20 69 64 73 25  3e 30 20 8c 20 69 64 73  |.*. ids%>0 . ids|
00002e60  25 2b 3d 38 3a de 20 69  64 25 20 69 64 73 25 3a  |%+=8:. id% ids%:|
00002e70  69 64 73 25 3d 69 64 25  0d 11 94 2c 24 62 25 3d  |ids%=id%...,$b%=|
00002e80  74 69 74 6c 65 24 3a 62  25 21 31 32 3d 26 37 30  |title$:b%!12=&70|
00002e90  32 30 37 3a 62 25 21 32  30 3d 34 34 3a 62 25 21  |207:b%!20=44:b%!|
00002ea0  32 34 3d 30 0d 11 9e 0a  70 6f 73 25 3d 30 0d 11  |24=0....pos%=0..|
00002eb0  a8 13 e3 20 6c 25 3d 30  20 b8 20 69 74 65 6d 73  |... l%=0 . items|
00002ec0  25 0d 11 b2 11 20 66 25  3d 30 3a 73 75 62 25 3d  |%.... f%=0:sub%=|
00002ed0  2d 31 0d 11 bc 19 20 e7  20 6c 25 3d 69 74 65 6d  |-1.... . l%=item|
00002ee0  73 25 20 8c 20 66 25 3d  26 38 30 0d 11 c6 1a 20  |s% . f%=&80.... |
00002ef0  61 25 3d a7 6d 65 6e 75  24 2c 22 7c 22 2c 70 6f  |a%=.menu$,"|",po|
00002f00  73 25 2b 31 29 0d 11 d0  1b 20 e7 20 61 25 3d 30  |s%+1).... . a%=0|
00002f10  20 8c 20 61 25 3d a9 28  6d 65 6e 75 24 29 2b 31  | . a%=.(menu$)+1|
00002f20  0d 11 da 20 20 69 24 3d  c1 6d 65 6e 75 24 2c 70  |...  i$=.menu$,p|
00002f30  6f 73 25 2b 31 2c 61 25  2d 70 6f 73 25 2d 31 29  |os%+1,a%-pos%-1)|
00002f40  0d 11 e4 11 20 e7 20 a7  69 24 2c 22 bb 22 29 20  |.... . .i$,".") |
00002f50  8c 0d 11 ee 18 20 20 69  24 3d c0 69 24 2c a7 69  |.....  i$=.i$,.i|
00002f60  24 2c 22 bb 22 29 2d 31  29 0d 11 f8 32 20 20 73  |$,".")-1)...2  s|
00002f70  75 62 25 3d a0 28 c1 6d  65 6e 75 24 2c 70 6f 73  |ub%=.(.menu$,pos|
00002f80  25 2b a9 28 69 24 29 2b  32 2c 61 25 2d 70 6f 73  |%+.(i$)+2,a%-pos|
00002f90  25 2d a9 28 69 24 29 2d  32 29 29 0d 12 02 06 20  |%-.(i$)-2)).... |
00002fa0  cd 0d 12 0c 2c 20 e7 20  a7 69 24 2c 22 5c 22 29  |...., . .i$,"\")|
00002fb0  20 8c 20 66 24 3d c0 69  24 2c a7 69 24 2c 22 5c  | . f$=.i$,.i$,"\|
00002fc0  22 29 2d 31 29 20 8b 20  66 24 3d 22 22 0d 12 16  |")-1) . f$=""...|
00002fd0  17 20 69 24 3d c1 69 24  2c a7 69 24 2c 22 5c 22  |. i$=.i$,.i$,"\"|
00002fe0  29 2b 31 29 0d 12 20 17  20 e7 20 a7 66 24 2c 22  |)+1).. . . .f$,"|
00002ff0  54 22 29 20 8c 20 66 25  2b 3d 31 0d 12 2a 17 20  |T") . f%+=1..*. |
00003000  e7 20 a7 66 24 2c 22 5f  22 29 20 8c 20 66 25 2b  |. .f$,"_") . f%+|
00003010  3d 32 0d 12 34 17 20 e7  20 a7 66 24 2c 22 57 22  |=2..4. . .f$,"W"|
00003020  29 20 8c 20 66 25 2b 3d  34 0d 12 3e 17 20 e7 20  |) . f%+=4..>. . |
00003030  a7 66 24 2c 22 4d 22 29  20 8c 20 66 25 2b 3d 38  |.f$,"M") . f%+=8|
00003040  0d 12 48 13 20 70 25 3d  62 25 2b 32 38 2b 32 34  |..H. p%=b%+28+24|
00003050  2a 6c 25 0d 12 52 23 20  21 70 25 3d 66 25 3a 70  |*l%..R# !p%=f%:p|
00003060  25 21 34 3d 73 75 62 25  3a 70 25 21 38 3d 26 37  |%!4=sub%:p%!8=&7|
00003070  30 30 30 30 32 31 0d 12  5c 1c 20 e7 20 a9 28 69  |000021..\. . .(i|
00003080  24 29 3e 31 31 20 84 20  a7 66 24 2c 22 49 22 29  |$)>11 . .f$,"I")|
00003090  20 8c 0d 12 66 30 20 20  20 70 25 21 38 2b 3d 26  | ...f0   p%!8+=&|
000030a0  31 30 30 3a 70 25 21 31  32 3d 69 64 73 25 3a 70  |100:p%!12=ids%:p|
000030b0  25 21 31 36 3d 30 3a 70  25 21 32 30 3d a9 28 69  |%!16=0:p%!20=.(i|
000030c0  24 29 0d 12 70 1d 20 20  20 24 69 64 73 25 3d 69  |$)..p.   $ids%=i|
000030d0  24 3a 69 64 73 25 2b 3d  a9 28 69 24 29 2b 31 0d  |$:ids%+=.(i$)+1.|
000030e0  12 7a 08 20 20 cc 20 0d  12 84 12 20 20 20 24 28  |.z.  . ....   $(|
000030f0  70 25 2b 31 32 29 3d 69  24 0d 12 8e 06 20 cd 0d  |p%+12)=i$.... ..|
00003100  12 98 24 20 e7 20 a9 28  69 24 29 3e 6d 61 78 6c  |..$ . .(i$)>maxl|
00003110  65 6e 25 20 8c 20 6d 61  78 6c 65 6e 25 3d a9 28  |en% . maxlen%=.(|
00003120  69 24 29 0d 12 a2 0c 20  70 6f 73 25 3d 61 25 0d  |i$).... pos%=a%.|
00003130  12 ac 08 ed 20 6c 25 0d  12 b6 18 62 25 21 31 36  |.... l%....b%!16|
00003140  3d 28 6d 61 78 6c 65 6e  25 2b 31 29 3c 3c 34 0d  |=(maxlen%+1)<<4.|
00003150  12 c0 07 3d 62 25 0d 12  ca 05 3a 0d 12 d4 1d dd  |...=b%....:.....|
00003160  20 a4 72 65 70 6f 72 74  28 72 65 70 6f 72 74 24  | .report(report$|
00003170  2c 66 6c 61 67 73 25 29  0d 12 de 29 21 65 72 72  |,flags%)...)!err|
00003180  62 6c 6f 63 6b 25 3d 32  35 35 3a 24 28 65 72 72  |block%=255:$(err|
00003190  62 6c 6f 63 6b 25 2b 34  29 3d 72 65 70 6f 72 74  |block%+4)=report|
000031a0  24 0d 12 e8 3c c8 99 22  57 69 6d 70 5f 52 65 70  |$...<.."Wimp_Rep|
000031b0  6f 72 74 45 72 72 6f 72  22 2c 65 72 72 62 6c 6f  |ortError",errblo|
000031c0  63 6b 25 2c 66 6c 61 67  73 25 2c 65 72 72 6e 61  |ck%,flags%,errna|
000031d0  6d 65 24 20 b8 20 2c 63  6c 69 63 6b 25 0d 12 f2  |me$ . ,click%...|
000031e0  0b 3d 63 6c 69 63 6b 25  0d 12 fc 05 3a 0d 13 06  |.=click%....:...|
000031f0  0c dd 20 f2 65 72 72 6f  72 0d 13 10 36 e7 20 a4  |.. .error...6. .|
00003200  72 65 70 6f 72 74 28 f6  24 2b 22 20 61 74 20 6c  |report(.$+" at l|
00003210  69 6e 65 20 22 2b c3 9e  2b 22 20 2d 20 71 75 69  |ine "+..+" - qui|
00003220  74 3f 22 2c 33 29 3d 31  71 75 69 74 25 3d 31 0d  |t?",3)=1quit%=1.|
00003230  13 1a 05 e1 0d 13 24 05  3a 0d 13 2e 17 dd 20 f2  |......$.:..... .|
00003240  63 65 6e 74 72 65 77 69  6e 64 6f 77 28 62 25 29  |centrewindow(b%)|
00003250  0d 13 38 1b ea 20 78 73  69 7a 65 25 2c 79 73 69  |..8.. xsize%,ysi|
00003260  7a 65 25 2c 77 78 25 2c  77 79 25 0d 13 42 32 78  |ze%,wx%,wy%..B2x|
00003270  73 69 7a 65 25 3d 28 a4  72 65 61 64 6d 6f 64 65  |size%=(.readmode|
00003280  76 61 72 28 31 31 29 2b  31 29 3c 3c 28 a4 72 65  |var(11)+1)<<(.re|
00003290  61 64 6d 6f 64 65 76 61  72 28 34 29 29 0d 13 4c  |admodevar(4))..L|
000032a0  32 79 73 69 7a 65 25 3d  28 a4 72 65 61 64 6d 6f  |2ysize%=(.readmo|
000032b0  64 65 76 61 72 28 31 32  29 2b 31 29 3c 3c 28 a4  |devar(12)+1)<<(.|
000032c0  72 65 61 64 6d 6f 64 65  76 61 72 28 35 29 29 0d  |readmodevar(5)).|
000032d0  13 56 1f 77 78 25 3d 62  25 21 38 2d 21 62 25 3a  |.V.wx%=b%!8-!b%:|
000032e0  77 79 25 3d 62 25 21 31  32 2d 62 25 21 34 0d 13  |wy%=b%!12-b%!4..|
000032f0  60 1a 21 62 25 3d 28 78  73 69 7a 65 25 81 32 29  |`.!b%=(xsize%.2)|
00003300  2d 28 77 78 25 81 32 29  0d 13 6a 1b 62 25 21 34  |-(wx%.2)..j.b%!4|
00003310  3d 28 79 73 69 7a 65 25  81 32 29 2d 28 77 79 25  |=(ysize%.2)-(wy%|
00003320  81 32 29 0d 13 74 1f 62  25 21 38 3d 21 62 25 2b  |.2)..t.b%!8=!b%+|
00003330  77 78 25 3a 62 25 21 31  32 3d 62 25 21 34 2b 77  |wx%:b%!12=b%!4+w|
00003340  79 25 0d 13 7e 05 e1 0d  13 88 05 3a 0d 13 92 18  |y%..~......:....|
00003350  dd 20 a4 72 65 61 64 6d  6f 64 65 76 61 72 28 76  |. .readmodevar(v|
00003360  61 72 25 29 0d 13 9c 0c  ea 20 76 61 6c 75 65 25  |ar%)..... value%|
00003370  0d 13 a6 2e c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |......"OS_ReadMo|
00003380  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 76  |deVariable",-1,v|
00003390  61 72 25 20 b8 20 2c 2c  76 61 6c 75 65 25 0d 13  |ar% . ,,value%..|
000033a0  b0 0b 3d 76 61 6c 75 65  25 0d 13 ba 05 3a 0d 13  |..=value%....:..|
000033b0  c4 21 dd 20 f2 73 65 74  77 72 69 74 61 62 6c 65  |.!. .setwritable|
000033c0  28 77 68 25 2c 69 68 25  2c 74 65 78 74 24 29 0d  |(wh%,ih%,text$).|
000033d0  13 ce 1c 21 6d 69 73 63  62 25 3d 77 68 25 3a 6d  |...!miscb%=wh%:m|
000033e0  69 73 63 62 25 21 34 3d  69 68 25 0d 13 d8 21 c8  |iscb%!4=ih%...!.|
000033f0  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00003400  61 74 65 22 2c 2c 6d 69  73 63 62 25 0d 13 e2 1a  |ate",,miscb%....|
00003410  e7 20 24 28 6d 69 73 63  62 25 21 32 38 29 3d 74  |. $(miscb%!28)=t|
00003420  65 78 74 24 20 e1 0d 13  ec 16 24 28 6d 69 73 63  |ext$ .....$(misc|
00003430  62 25 21 32 38 29 3d 74  65 78 74 24 0d 13 f6 25  |b%!28)=text$...%|
00003440  c8 99 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |.."Wimp_GetCaret|
00003450  50 6f 73 69 74 69 6f 6e  22 2c 2c 6d 69 73 63 62  |Position",,miscb|
00003460  25 0d 14 00 22 e7 20 21  6d 69 73 63 62 25 3d 77  |%...". !miscb%=w|
00003470  68 25 20 80 20 6d 69 73  63 62 25 21 34 3d 69 68  |h% . miscb%!4=ih|
00003480  25 20 8c 0d 14 0a 2d e7  20 28 6d 69 73 63 62 25  |% ....-. (miscb%|
00003490  21 32 30 29 3e a9 28 74  65 78 74 24 29 20 6d 69  |!20)>.(text$) mi|
000034a0  73 63 62 25 21 32 30 3d  a9 28 74 65 78 74 24 29  |scb%!20=.(text$)|
000034b0  0d 14 14 4e c8 99 22 57  69 6d 70 5f 53 65 74 43  |...N.."Wimp_SetC|
000034c0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 21 6d  |aretPosition",!m|
000034d0  69 73 63 62 25 2c 6d 69  73 63 62 25 21 34 2c 6d  |iscb%,miscb%!4,m|
000034e0  69 73 63 62 25 21 38 2c  6d 69 73 63 62 25 21 31  |iscb%!8,miscb%!1|
000034f0  32 2c 2d 31 2c 6d 69 73  63 62 25 21 32 30 0d 14  |2,-1,miscb%!20..|
00003500  1e 05 cd 0d 14 28 19 f2  73 65 74 69 63 6f 6e 28  |.....(..seticon(|
00003510  77 68 25 2c 69 68 25 2c  30 2c 30 29 0d 14 32 05  |wh%,ih%,0,0)..2.|
00003520  e1 0d 14 3c 05 3a 0d 14  46 1d dd 20 f2 73 65 74  |...<.:..F.. .set|
00003530  69 63 6f 6e 28 77 68 25  2c 69 68 25 2c 65 25 2c  |icon(wh%,ih%,e%,|
00003540  63 25 29 0d 14 50 35 21  6d 69 73 63 62 25 3d 77  |c%)..P5!miscb%=w|
00003550  68 25 3a 6d 69 73 63 62  25 21 34 3d 69 68 25 3a  |h%:miscb%!4=ih%:|
00003560  6d 69 73 63 62 25 21 38  3d 65 25 3a 6d 69 73 63  |miscb%!8=e%:misc|
00003570  62 25 21 31 32 3d 63 25  0d 14 5a 21 c8 99 22 57  |b%!12=c%..Z!.."W|
00003580  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00003590  22 2c 2c 6d 69 73 63 62  25 0d 14 64 05 e1 0d 14  |",,miscb%..d....|
000035a0  6e 05 3a 0d 14 78 21 dd  20 f2 73 65 6c 65 63 74  |n.:..x!. .select|
000035b0  69 63 6f 6e 28 77 68 25  2c 69 68 25 2c 73 74 61  |icon(wh%,ih%,sta|
000035c0  74 65 25 29 0d 14 82 2c  21 6d 69 73 63 62 25 3d  |te%)...,!miscb%=|
000035d0  77 68 25 3a 6d 69 73 63  62 25 21 34 3d 69 68 25  |wh%:miscb%!4=ih%|
000035e0  3a 6d 69 73 63 62 25 21  31 32 3d 31 3c 3c 32 31  |:miscb%!12=1<<21|
000035f0  0d 14 8c 2a e7 20 73 74  61 74 65 25 20 6d 69 73  |...*. state% mis|
00003600  63 62 25 21 38 3d 28 31  3c 3c 32 31 29 20 8b 20  |cb%!8=(1<<21) . |
00003610  6d 69 73 63 62 25 21 38  3d 30 0d 14 96 21 c8 99  |miscb%!8=0...!..|
00003620  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003630  74 65 22 2c 2c 6d 69 73  63 62 25 0d 14 a0 05 e1  |te",,miscb%.....|
00003640  0d 14 aa 05 3a 0d 14 b4  15 dd 20 a4 69 74 65 78  |....:..... .itex|
00003650  74 28 77 68 25 2c 69 68  25 29 0d 14 be 1c 21 6d  |t(wh%,ih%)....!m|
00003660  69 73 63 62 25 3d 77 68  25 3a 6d 69 73 63 62 25  |iscb%=wh%:miscb%|
00003670  21 34 3d 69 68 25 0d 14  c8 21 c8 99 22 57 69 6d  |!4=ih%...!.."Wim|
00003680  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003690  2c 6d 69 73 63 62 25 0d  14 d2 14 3d a4 63 74 73  |,miscb%....=.cts|
000036a0  28 6d 69 73 63 62 25 21  32 38 29 0d 14 dc 05 3a  |(miscb%!28)....:|
000036b0  0d 14 e6 1e dd 20 f2 73  65 74 69 74 65 78 74 28  |..... .setitext(|
000036c0  77 68 25 2c 69 68 25 2c  74 65 78 74 24 29 0d 14  |wh%,ih%,text$)..|
000036d0  f0 1c 21 6d 69 73 63 62  25 3d 77 68 25 3a 6d 69  |..!miscb%=wh%:mi|
000036e0  73 63 62 25 21 34 3d 69  68 25 0d 14 fa 21 c8 99  |scb%!4=ih%...!..|
000036f0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00003700  74 65 22 2c 2c 6d 69 73  63 62 25 0d 15 04 2c 24  |te",,miscb%...,$|
00003710  28 6d 69 73 63 62 25 21  32 38 29 3d 74 65 78 74  |(miscb%!28)=text|
00003720  24 3a f2 73 65 74 69 63  6f 6e 28 77 68 25 2c 69  |$:.seticon(wh%,i|
00003730  68 25 2c 30 2c 30 29 0d  15 0e 05 e1 0d 15 18 05  |h%,0,0).........|
00003740  3a 0d 15 22 0e dd 20 a4  63 74 73 28 70 25 29 0d  |:..".. .cts(p%).|
00003750  15 2c 08 ea 20 6f 24 0d  15 36 19 c8 95 20 3f 70  |.,.. o$..6... ?p|
00003760  25 3e 33 31 20 80 20 a9  28 6f 24 29 3c 32 35 35  |%>31 . .(o$)<255|
00003770  0d 15 40 12 6f 24 2b 3d  bd 3f 70 25 3a 70 25 2b  |..@.o$+=.?p%:p%+|
00003780  3d 31 0d 15 4a 05 ce 0d  15 54 07 3d 6f 24 0d 15  |=1..J....T.=o$..|
00003790  5e 05 3a 0d 15 68 17 dd  20 a4 73 65 6c 69 63 6f  |^.:..h.. .selico|
000037a0  6e 28 77 68 25 2c 69 68  25 29 0d 15 72 1c 21 6d  |n(wh%,ih%)..r.!m|
000037b0  69 73 63 62 25 3d 77 68  25 3a 6d 69 73 63 62 25  |iscb%=wh%:miscb%|
000037c0  21 34 3d 69 68 25 0d 15  7c 21 c8 99 22 57 69 6d  |!4=ih%..|!.."Wim|
000037d0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000037e0  2c 6d 69 73 63 62 25 0d  15 86 23 e7 20 28 6d 69  |,miscb%...#. (mi|
000037f0  73 63 62 25 21 32 34 29  80 28 31 3c 3c 32 31 29  |scb%!24).(1<<21)|
00003800  20 8c 20 3d b9 20 8b 20  3d a3 0d 15 90 05 3a 0d  | . =. . =.....:.|
00003810  15 9a 14 dd 20 a4 6c 65  61 66 6e 61 6d 65 28 69  |.... .leafname(i|
00003820  6e 24 29 0d 15 a4 0f ea  20 6f 75 74 24 2c 70 6f  |n$)..... out$,po|
00003830  73 25 0d 15 ae 0f 70 6f  73 25 3d a9 28 69 6e 24  |s%....pos%=.(in$|
00003840  29 0d 15 b8 21 c8 95 20  c1 69 6e 24 2c 70 6f 73  |)...!.. .in$,pos|
00003850  25 2c 31 29 3c 3e 22 2e  22 20 80 20 70 6f 73 25  |%,1)<>"." . pos%|
00003860  3e 30 0d 15 c2 0d 70 6f  73 25 2d 3d 31 3a ce 0d  |>0....pos%-=1:..|
00003870  15 cc 11 3d c1 69 6e 24  2c 70 6f 73 25 2b 31 29  |...=.in$,pos%+1)|
00003880  0d 15 d6 05 3a 0d 15 e0  43 f4 20 3d 3d 3d 3d 3d  |....:...C. =====|
00003890  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000038c0  3d 3d 3d 3d 3d 3d 3d 3d  0d 15 ea 05 3a 0d 15 f4  |========....:...|
000038d0  0f dd 20 f2 61 73 73 65  6d 62 6c 65 0d 15 fe 17  |.. .assemble....|
000038e0  ea 20 41 2c 42 2c 53 2c  74 6f 70 2c 6d 69 64 2c  |. A,B,S,top,mid,|
000038f0  62 6f 74 0d 16 08 0f 41  3d 32 3a 42 3d 33 3a 53  |bot....A=2:B=3:S|
00003900  3d 34 0d 16 12 15 74 6f  70 3d 35 3a 6d 69 64 3d  |=4....top=5:mid=|
00003910  36 3a 62 6f 74 3d 37 0d  16 1c 15 e3 20 70 61 73  |6:bot=7..... pas|
00003920  73 25 3d 30 20 b8 20 32  20 88 20 32 0d 16 26 0c  |s%=0 . 2 . 2..&.|
00003930  50 25 3d 63 6f 64 65 25  0d 16 30 0e 5b 4f 50 54  |P%=code%..0.[OPT|
00003940  20 70 61 73 73 25 0d 16  3a 45 2e 72 61 6e 64 6f  | pass%..:E.rando|
00003950  6d 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |m               |
00003960  20 20 20 20 20 20 20 20  20 20 3b 20 72 30 20 73  |          ; r0 s|
00003970  65 65 64 20 28 21 3d 30  29 2c 20 72 33 20 73 74  |eed (!=0), r3 st|
00003980  61 72 74 2c 20 72 34 20  65 6e 64 0d 16 44 1a 20  |art, r4 end..D. |
00003990  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 72  |       MOV     r|
000039a0  32 2c 23 31 37 0d 16 4e  10 2e 72 61 6e 64 6f 6d  |2,#17..N..random|
000039b0  5f 6c 6f 6f 70 0d 16 58  21 20 20 20 20 20 20 20  |_loop..X!       |
000039c0  20 4d 4f 56 20 20 20 20  20 72 31 2c 72 30 2c 41  | MOV     r1,r0,A|
000039d0  53 52 20 23 31 33 0d 16  62 22 20 20 20 20 20 20  |SR #13..b"      |
000039e0  20 20 82 20 20 20 20 20  72 31 2c 72 31 2c 72 30  |  .     r1,r1,r0|
000039f0  2c 41 53 52 20 23 32 34  0d 16 6c 20 20 20 20 20  |,ASR #24..l     |
00003a00  20 20 20 20 4d 4f 56 53  20 20 20 20 72 31 2c 72  |    MOVS    r1,r|
00003a10  31 2c 52 4f 52 20 23 31  0d 16 76 1c 20 20 20 20  |1,ROR #1..v.    |
00003a20  20 20 20 20 41 44 43 53  20 20 20 20 72 30 2c 72  |    ADCS    r0,r|
00003a30  30 2c 72 30 0d 16 80 1c  20 20 20 20 20 20 20 20  |0,r0....        |
00003a40  53 55 42 53 20 20 20 20  72 32 2c 72 32 2c 23 31  |SUBS    r2,r2,#1|
00003a50  0d 16 8a 1f 20 20 20 20  20 20 20 20 42 4e 45 20  |....        BNE |
00003a60  20 20 20 20 72 61 6e 64  6f 6d 5f 6c 6f 6f 70 0d  |    random_loop.|
00003a70  16 94 1e 20 20 20 20 20  20 20 20 53 54 52 42 20  |...        STRB |
00003a80  20 20 20 72 30 2c 5b 72  33 5d 2c 23 31 0d 16 9e  |   r0,[r3],#1...|
00003a90  19 20 20 20 20 20 20 20  20 43 4d 50 20 20 20 20  |.        CMP    |
00003aa0  20 72 33 2c 72 34 0d 16  a8 1a 20 20 20 20 20 20  | r3,r4....      |
00003ab0  20 20 42 4c 54 20 20 20  20 20 72 61 6e 64 6f 6d  |  BLT     random|
00003ac0  0d 16 b2 1a 20 20 20 20  20 20 20 20 4d 4f 56 53  |....        MOVS|
00003ad0  20 20 20 20 70 63 2c 72  31 34 0d 16 bc 0e 2e 64  |    pc,r14.....d|
00003ae0  69 76 74 61 62 6c 65 31  0d 16 c6 1a 20 20 20 20  |ivtable1....    |
00003af0  20 20 20 20 a4 64 69 76  74 61 62 6c 65 28 6b 31  |    .divtable(k1|
00003b00  25 29 0d 16 d0 0e 2e 64  69 76 74 61 62 6c 65 32  |%).....divtable2|
00003b10  0d 16 da 1a 20 20 20 20  20 20 20 20 a4 64 69 76  |....        .div|
00003b20  74 61 62 6c 65 28 6b 32  25 29 0d 16 e4 0b 2e 75  |table(k2%).....u|
00003b30  70 64 61 74 65 0d 16 ee  37 20 20 20 20 20 20 20  |pdate...7       |
00003b40  20 4d 4f 56 20 20 20 20  20 72 38 2c 72 30 20 20  | MOV     r8,r0  |
00003b50  20 20 20 20 20 20 20 20  20 20 3b 20 72 38 20 69  |          ; r8 i|
00003b60  73 20 77 72 69 74 65 20  62 61 6e 6b 0d 16 f8 36  |s write bank...6|
00003b70  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00003b80  72 39 2c 72 31 20 20 20  20 20 20 20 20 20 20 20  |r9,r1           |
00003b90  20 3b 20 72 39 20 69 73  20 72 65 61 64 20 62 61  | ; r9 is read ba|
00003ba0  6e 6b 0d 17 02 21 20 20  20 20 20 20 20 20 a4 72  |nk...!        .r|
00003bb0  65 61 64 63 65 6c 6c 73  28 30 2c 2d 31 2c 30 2c  |eadcells(0,-1,0,|
00003bc0  2d 31 29 0d 17 0c 16 20  20 20 20 20 20 20 20 a4  |-1)....        .|
00003bd0  77 72 69 74 65 63 65 6c  6c 0d 17 16 1d 20 20 20  |writecell....   |
00003be0  20 20 20 20 20 4d 4f 56  20 20 20 20 20 72 31 2c  |     MOV     r1,|
00003bf0  23 78 6d 61 78 25 0d 17  20 1c 20 20 20 20 20 20  |#xmax%.. .      |
00003c00  20 20 53 55 42 20 20 20  20 20 72 31 2c 72 31 2c  |  SUB     r1,r1,|
00003c10  23 32 0d 17 2a 0e 2e 78  6c 6f 6f 70 5f 74 6f 70  |#2..*..xloop_top|
00003c20  0d 17 34 22 20 20 20 20  20 20 20 20 a4 72 65 61  |..4"        .rea|
00003c30  64 63 65 6c 6c 73 28 30  2c 2d 31 2c 2d 31 2c 2d  |dcells(0,-1,-1,-|
00003c40  31 29 0d 17 3e 16 20 20  20 20 20 20 20 20 a4 77  |1)..>.        .w|
00003c50  72 69 74 65 63 65 6c 6c  0d 17 48 1c 20 20 20 20  |ritecell..H.    |
00003c60  20 20 20 20 53 55 42 53  20 20 20 20 72 31 2c 72  |    SUBS    r1,r|
00003c70  31 2c 23 31 0d 17 52 1d  20 20 20 20 20 20 20 20  |1,#1..R.        |
00003c80  42 47 54 20 20 20 20 20  78 6c 6f 6f 70 5f 74 6f  |BGT     xloop_to|
00003c90  70 0d 17 5c 21 20 20 20  20 20 20 20 20 a4 72 65  |p..\!        .re|
00003ca0  61 64 63 65 6c 6c 73 28  30 2c 2d 31 2c 2d 31 2c  |adcells(0,-1,-1,|
00003cb0  30 29 0d 17 66 16 20 20  20 20 20 20 20 20 a4 77  |0)..f.        .w|
00003cc0  72 69 74 65 63 65 6c 6c  0d 17 70 1d 20 20 20 20  |ritecell..p.    |
00003cd0  20 20 20 20 4d 4f 56 20  20 20 20 20 72 30 2c 23  |    MOV     r0,#|
00003ce0  79 6d 61 78 25 0d 17 7a  1c 20 20 20 20 20 20 20  |ymax%..z.       |
00003cf0  20 53 55 42 20 20 20 20  20 72 30 2c 72 30 2c 23  | SUB     r0,r0,#|
00003d00  32 0d 17 84 0a 2e 79 6c  6f 6f 70 0d 17 8e 22 20  |2.....yloop..." |
00003d10  20 20 20 20 20 20 20 a4  72 65 61 64 63 65 6c 6c  |       .readcell|
00003d20  73 28 2d 31 2c 2d 31 2c  30 2c 2d 31 29 0d 17 98  |s(-1,-1,0,-1)...|
00003d30  16 20 20 20 20 20 20 20  20 a4 77 72 69 74 65 63  |.        .writec|
00003d40  65 6c 6c 0d 17 a2 1d 20  20 20 20 20 20 20 20 4d  |ell....        M|
00003d50  4f 56 20 20 20 20 20 72  31 2c 23 78 6d 61 78 25  |OV     r1,#xmax%|
00003d60  0d 17 ac 1c 20 20 20 20  20 20 20 20 53 55 42 20  |....        SUB |
00003d70  20 20 20 20 72 31 2c 72  31 2c 23 32 0d 17 b6 0a  |    r1,r1,#2....|
00003d80  2e 78 6c 6f 6f 70 0d 17  c0 23 20 20 20 20 20 20  |.xloop...#      |
00003d90  20 20 a4 72 65 61 64 63  65 6c 6c 73 28 2d 31 2c  |  .readcells(-1,|
00003da0  2d 31 2c 2d 31 2c 2d 31  29 0d 17 ca 16 20 20 20  |-1,-1,-1)....   |
00003db0  20 20 20 20 20 a4 77 72  69 74 65 63 65 6c 6c 0d  |     .writecell.|
00003dc0  17 d4 1c 20 20 20 20 20  20 20 20 53 55 42 53 20  |...        SUBS |
00003dd0  20 20 20 72 31 2c 72 31  2c 23 31 0d 17 de 19 20  |   r1,r1,#1.... |
00003de0  20 20 20 20 20 20 20 42  47 54 20 20 20 20 20 78  |       BGT     x|
00003df0  6c 6f 6f 70 0d 17 e8 22  20 20 20 20 20 20 20 20  |loop..."        |
00003e00  a4 72 65 61 64 63 65 6c  6c 73 28 2d 31 2c 2d 31  |.readcells(-1,-1|
00003e10  2c 2d 31 2c 30 29 0d 17  f2 16 20 20 20 20 20 20  |,-1,0)....      |
00003e20  20 20 a4 77 72 69 74 65  63 65 6c 6c 0d 17 fc 1c  |  .writecell....|
00003e30  20 20 20 20 20 20 20 20  53 55 42 53 20 20 20 20  |        SUBS    |
00003e40  72 30 2c 72 30 2c 23 31  0d 18 06 19 20 20 20 20  |r0,r0,#1....    |
00003e50  20 20 20 20 42 47 54 20  20 20 20 20 79 6c 6f 6f  |    BGT     yloo|
00003e60  70 0d 18 10 21 20 20 20  20 20 20 20 20 a4 72 65  |p...!        .re|
00003e70  61 64 63 65 6c 6c 73 28  2d 31 2c 30 2c 30 2c 2d  |adcells(-1,0,0,-|
00003e80  31 29 0d 18 1a 16 20 20  20 20 20 20 20 20 a4 77  |1)....        .w|
00003e90  72 69 74 65 63 65 6c 6c  0d 18 24 1d 20 20 20 20  |ritecell..$.    |
00003ea0  20 20 20 20 4d 4f 56 20  20 20 20 20 72 31 2c 23  |    MOV     r1,#|
00003eb0  78 6d 61 78 25 0d 18 2e  1c 20 20 20 20 20 20 20  |xmax%....       |
00003ec0  20 53 55 42 20 20 20 20  20 72 31 2c 72 31 2c 23  | SUB     r1,r1,#|
00003ed0  32 0d 18 38 0e 2e 78 6c  6f 6f 70 5f 62 6f 74 0d  |2..8..xloop_bot.|
00003ee0  18 42 22 20 20 20 20 20  20 20 20 a4 72 65 61 64  |.B"        .read|
00003ef0  63 65 6c 6c 73 28 2d 31  2c 30 2c 2d 31 2c 2d 31  |cells(-1,0,-1,-1|
00003f00  29 0d 18 4c 16 20 20 20  20 20 20 20 20 a4 77 72  |)..L.        .wr|
00003f10  69 74 65 63 65 6c 6c 0d  18 56 1c 20 20 20 20 20  |itecell..V.     |
00003f20  20 20 20 53 55 42 53 20  20 20 20 72 31 2c 72 31  |   SUBS    r1,r1|
00003f30  2c 23 31 0d 18 60 1d 20  20 20 20 20 20 20 20 42  |,#1..`.        B|
00003f40  47 54 20 20 20 20 20 78  6c 6f 6f 70 5f 62 6f 74  |GT     xloop_bot|
00003f50  0d 18 6a 21 20 20 20 20  20 20 20 20 a4 72 65 61  |..j!        .rea|
00003f60  64 63 65 6c 6c 73 28 2d  31 2c 30 2c 2d 31 2c 30  |dcells(-1,0,-1,0|
00003f70  29 0d 18 74 16 20 20 20  20 20 20 20 20 a4 77 72  |)..t.        .wr|
00003f80  69 74 65 63 65 6c 6c 0d  18 7e 1a 20 20 20 20 20  |itecell..~.     |
00003f90  20 20 20 4d 4f 56 20 20  20 20 20 50 43 2c 72 31  |   MOV     PC,r1|
00003fa0  34 0d 18 88 05 5d 0d 18  92 0b ed 20 70 61 73 73  |4....]..... pass|
00003fb0  25 0d 18 9c 05 e1 0d 18  a6 05 3a 0d 18 b0 1d dd  |%.........:.....|
00003fc0  20 a4 72 65 61 64 63 65  6c 6c 73 28 74 25 2c 62  | .readcells(t%,b|
00003fd0  25 2c 6c 25 2c 72 25 29  0d 18 ba 43 e7 20 77 72  |%,l%,r%)...C. wr|
00003fe0  61 70 25 3d b9 20 8c 20  f2 72 65 61 64 5f 77 72  |ap%=. . .read_wr|
00003ff0  61 70 28 74 25 2c 62 25  2c 6c 25 2c 72 25 29 20  |ap(t%,b%,l%,r%) |
00004000  8b 20 f2 72 65 61 64 5f  6e 6f 77 72 61 70 28 74  |. .read_nowrap(t|
00004010  25 2c 62 25 2c 6c 25 2c  72 25 29 0d 18 c4 21 e7  |%,b%,l%,r%)...!.|
00004020  20 77 72 61 70 25 3d b9  20 74 25 3d b9 3a 62 25  | wrap%=. t%=.:b%|
00004030  3d b9 3a 6c 25 3d b9 3a  72 25 3d b9 0d 18 ce 0e  |=.:l%=.:r%=.....|
00004040  5b 4f 50 54 20 70 61 73  73 25 0d 18 d8 18 20 20  |[OPT pass%....  |
00004050  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 41 2c  |      MOV     A,|
00004060  23 30 0d 18 e2 18 20 20  20 20 20 20 20 20 4d 4f  |#0....        MO|
00004070  56 20 20 20 20 20 42 2c  23 30 0d 18 ec 18 20 20  |V     B,#0....  |
00004080  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 53 2c  |      MOV     S,|
00004090  23 30 0d 18 f6 05 5d 0d  19 00 23 e7 20 28 28 6e  |#0....]...#. ((n|
000040a0  62 25 80 25 31 30 30 30  30 30 30 30 30 29 80 20  |b%.%100000000). |
000040b0  74 25 20 80 20 6c 25 29  20 8c 0d 19 0a 0e 5b 4f  |t% . l%) .....[O|
000040c0  50 54 20 70 61 73 73 25  0d 19 14 23 20 20 20 20  |PT pass%...#    |
000040d0  20 20 20 20 4d 4f 56 20  20 20 20 20 72 31 30 2c  |    MOV     r10,|
000040e0  74 6f 70 2c 4c 53 52 20  23 31 36 0d 19 1e 1e 20  |top,LSR #16.... |
000040f0  20 20 20 20 20 20 20 80  53 20 20 20 20 72 31 30  |       .S    r10|
00004100  2c 72 31 30 2c 23 26 46  46 0d 19 28 16 20 20 20  |,r10,#&FF..(.   |
00004110  20 20 20 20 20 a4 63 68  65 63 6b 63 65 6c 6c 0d  |     .checkcell.|
00004120  19 32 05 5d 0d 19 3c 05  cd 0d 19 46 1e e7 20 28  |.2.]..<....F.. (|
00004130  28 6e 62 25 80 25 30 31  30 30 30 30 30 30 30 29  |(nb%.%010000000)|
00004140  80 20 74 25 29 20 8c 0d  19 50 0e 5b 4f 50 54 20  |. t%) ...P.[OPT |
00004150  70 61 73 73 25 0d 19 5a  22 20 20 20 20 20 20 20  |pass%..Z"       |
00004160  20 4d 4f 56 20 20 20 20  20 72 31 30 2c 74 6f 70  | MOV     r10,top|
00004170  2c 4c 53 52 20 23 38 0d  19 64 1e 20 20 20 20 20  |,LSR #8..d.     |
00004180  20 20 20 80 53 20 20 20  20 72 31 30 2c 72 31 30  |   .S    r10,r10|
00004190  2c 23 26 46 46 0d 19 6e  16 20 20 20 20 20 20 20  |,#&FF..n.       |
000041a0  20 a4 63 68 65 63 6b 63  65 6c 6c 0d 19 78 05 5d  | .checkcell..x.]|
000041b0  0d 19 82 05 cd 0d 19 8c  23 e7 20 28 28 6e 62 25  |........#. ((nb%|
000041c0  80 25 30 30 31 30 30 30  30 30 30 29 80 20 74 25  |.%001000000). t%|
000041d0  20 80 20 6c 25 29 20 8c  0d 19 96 0e 5b 4f 50 54  | . l%) .....[OPT|
000041e0  20 70 61 73 73 25 0d 19  a0 1e 20 20 20 20 20 20  | pass%....      |
000041f0  20 20 80 53 20 20 20 20  72 31 30 2c 74 6f 70 2c  |  .S    r10,top,|
00004200  23 26 46 46 0d 19 aa 16  20 20 20 20 20 20 20 20  |#&FF....        |
00004210  a4 63 68 65 63 6b 63 65  6c 6c 0d 19 b4 05 5d 0d  |.checkcell....].|
00004220  19 be 05 cd 0d 19 c8 1e  e7 20 28 28 6e 62 25 80  |......... ((nb%.|
00004230  25 30 30 30 31 30 30 30  30 30 29 80 20 6c 25 29  |%000100000). l%)|
00004240  20 8c 0d 19 d2 0e 5b 4f  50 54 20 70 61 73 73 25  | .....[OPT pass%|
00004250  0d 19 dc 23 20 20 20 20  20 20 20 20 4d 4f 56 20  |...#        MOV |
00004260  20 20 20 20 72 31 30 2c  6d 69 64 2c 4c 53 52 20  |    r10,mid,LSR |
00004270  23 31 36 0d 19 e6 1e 20  20 20 20 20 20 20 20 80  |#16....        .|
00004280  53 20 20 20 20 72 31 30  2c 72 31 30 2c 23 26 46  |S    r10,r10,#&F|
00004290  46 0d 19 f0 16 20 20 20  20 20 20 20 20 a4 63 68  |F....        .ch|
000042a0  65 63 6b 63 65 6c 6c 0d  19 fa 05 5d 0d 1a 04 05  |eckcell....]....|
000042b0  cd 0d 1a 0e 1e e7 20 28  28 6e 62 25 80 25 30 30  |...... ((nb%.%00|
000042c0  30 30 30 31 30 30 30 29  80 20 72 25 29 20 8c 0d  |0001000). r%) ..|
000042d0  1a 18 0e 5b 4f 50 54 20  70 61 73 73 25 0d 1a 22  |...[OPT pass%.."|
000042e0  1e 20 20 20 20 20 20 20  20 80 53 20 20 20 20 72  |.        .S    r|
000042f0  31 30 2c 6d 69 64 2c 23  26 46 46 0d 1a 2c 16 20  |10,mid,#&FF..,. |
00004300  20 20 20 20 20 20 20 a4  63 68 65 63 6b 63 65 6c  |       .checkcel|
00004310  6c 0d 1a 36 05 5d 0d 1a  40 05 cd 0d 1a 4a 23 e7  |l..6.]..@....J#.|
00004320  20 28 28 6e 62 25 80 25  30 30 30 30 30 30 31 30  | ((nb%.%00000010|
00004330  30 29 80 20 62 25 20 80  20 6c 25 29 20 8c 0d 1a  |0). b% . l%) ...|
00004340  54 0e 5b 4f 50 54 20 70  61 73 73 25 0d 1a 5e 23  |T.[OPT pass%..^#|
00004350  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00004360  72 31 30 2c 62 6f 74 2c  4c 53 52 20 23 31 36 0d  |r10,bot,LSR #16.|
00004370  1a 68 1e 20 20 20 20 20  20 20 20 80 53 20 20 20  |.h.        .S   |
00004380  20 72 31 30 2c 72 31 30  2c 23 26 46 46 0d 1a 72  | r10,r10,#&FF..r|
00004390  16 20 20 20 20 20 20 20  20 a4 63 68 65 63 6b 63  |.        .checkc|
000043a0  65 6c 6c 0d 1a 7c 05 5d  0d 1a 86 05 cd 0d 1a 90  |ell..|.]........|
000043b0  1e e7 20 28 28 6e 62 25  80 25 30 30 30 30 30 30  |.. ((nb%.%000000|
000043c0  30 31 30 29 80 20 62 25  29 20 8c 0d 1a 9a 0e 5b  |010). b%) .....[|
000043d0  4f 50 54 20 70 61 73 73  25 0d 1a a4 22 20 20 20  |OPT pass%..."   |
000043e0  20 20 20 20 20 4d 4f 56  20 20 20 20 20 72 31 30  |     MOV     r10|
000043f0  2c 62 6f 74 2c 4c 53 52  20 23 38 0d 1a ae 1e 20  |,bot,LSR #8.... |
00004400  20 20 20 20 20 20 20 80  53 20 20 20 20 72 31 30  |       .S    r10|
00004410  2c 72 31 30 2c 23 26 46  46 0d 1a b8 16 20 20 20  |,r10,#&FF....   |
00004420  20 20 20 20 20 a4 63 68  65 63 6b 63 65 6c 6c 0d  |     .checkcell.|
00004430  1a c2 05 5d 0d 1a cc 05  cd 0d 1a d6 23 e7 20 28  |...]........#. (|
00004440  28 6e 62 25 80 25 30 30  30 30 30 30 30 30 31 29  |(nb%.%000000001)|
00004450  80 20 62 25 20 80 20 6c  25 29 20 8c 0d 1a e0 0e  |. b% . l%) .....|
00004460  5b 4f 50 54 20 70 61 73  73 25 0d 1a ea 1e 20 20  |[OPT pass%....  |
00004470  20 20 20 20 20 20 80 53  20 20 20 20 72 31 30 2c  |      .S    r10,|
00004480  62 6f 74 2c 23 26 46 46  0d 1a f4 16 20 20 20 20  |bot,#&FF....    |
00004490  20 20 20 20 a4 63 68 65  63 6b 63 65 6c 6c 0d 1a  |    .checkcell..|
000044a0  fe 05 5d 0d 1b 08 05 cd  0d 1b 12 06 3d 30 0d 1b  |..].........=0..|
000044b0  1c 05 3a 0d 1b 26 1f dd  20 f2 72 65 61 64 5f 6e  |..:..&.. .read_n|
000044c0  6f 77 72 61 70 28 74 25  2c 62 25 2c 6c 25 2c 72  |owrap(t%,b%,l%,r|
000044d0  25 29 0d 1b 30 0c e7 20  6c 25 3d a3 20 8c 0d 1b  |%)..0.. l%=. ...|
000044e0  3a 0a e7 20 74 25 20 8c  0d 1b 44 0e 5b 4f 50 54  |:.. t% ...D.[OPT|
000044f0  20 70 61 73 73 25 0d 1b  4e 21 20 20 20 20 20 20  | pass%..N!      |
00004500  20 20 53 55 42 20 20 20  20 20 72 31 31 2c 72 39  |  SUB     r11,r9|
00004510  2c 23 78 6d 61 78 25 0d  1b 58 1d 20 20 20 20 20  |,#xmax%..X.     |
00004520  20 20 20 4c 44 52 42 20  20 20 20 74 6f 70 2c 5b  |   LDRB    top,[|
00004530  72 31 31 5d 0d 1b 62 1f  20 20 20 20 20 20 20 20  |r11]..b.        |
00004540  4c 44 52 42 20 20 20 20  72 34 2c 5b 72 31 31 2c  |LDRB    r4,[r11,|
00004550  23 31 5d 0d 1b 6c 25 20  20 20 20 20 20 20 20 41  |#1]..l%        A|
00004560  44 44 20 20 20 20 20 74  6f 70 2c 72 34 2c 74 6f  |DD     top,r4,to|
00004570  70 2c 4c 53 4c 20 23 38  0d 1b 76 05 5d 0d 1b 80  |p,LSL #8..v.]...|
00004580  05 cd 0d 1b 8a 0e 5b 4f  50 54 20 70 61 73 73 25  |......[OPT pass%|
00004590  0d 1b 94 1c 20 20 20 20  20 20 20 20 4c 44 52 42  |....        LDRB|
000045a0  20 20 20 20 6d 69 64 2c  5b 72 39 5d 0d 1b 9e 1e  |    mid,[r9]....|
000045b0  20 20 20 20 20 20 20 20  4c 44 52 42 20 20 20 20  |        LDRB    |
000045c0  72 34 2c 5b 72 39 2c 23  31 5d 0d 1b a8 25 20 20  |r4,[r9,#1]...%  |
000045d0  20 20 20 20 20 20 41 44  44 20 20 20 20 20 6d 69  |      ADD     mi|
000045e0  64 2c 72 34 2c 6d 69 64  2c 4c 53 4c 20 23 38 0d  |d,r4,mid,LSL #8.|
000045f0  1b b2 05 5d 0d 1b bc 0a  e7 20 62 25 20 8c 0d 1b  |...]..... b% ...|
00004600  c6 0e 5b 4f 50 54 20 70  61 73 73 25 0d 1b d0 21  |..[OPT pass%...!|
00004610  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
00004620  72 31 31 2c 72 39 2c 23  78 6d 61 78 25 0d 1b da  |r11,r9,#xmax%...|
00004630  1d 20 20 20 20 20 20 20  20 4c 44 52 42 20 20 20  |.        LDRB   |
00004640  20 62 6f 74 2c 5b 72 31  31 5d 0d 1b e4 1f 20 20  | bot,[r11]....  |
00004650  20 20 20 20 20 20 4c 44  52 42 20 20 20 20 72 34  |      LDRB    r4|
00004660  2c 5b 72 31 31 2c 23 31  5d 0d 1b ee 25 20 20 20  |,[r11,#1]...%   |
00004670  20 20 20 20 20 41 44 44  20 20 20 20 20 62 6f 74  |     ADD     bot|
00004680  2c 72 34 2c 62 6f 74 2c  4c 53 4c 20 23 38 0d 1b  |,r4,bot,LSL #8..|
00004690  f8 05 5d 0d 1c 02 05 cd  0d 1c 0c 05 cd 0d 1c 16  |..].............|
000046a0  0c e7 20 72 25 3d a3 20  8c 0d 1c 20 0e 5b 4f 50  |.. r%=. ... .[OP|
000046b0  54 20 70 61 73 73 25 0d  1c 2a 22 20 20 20 20 20  |T pass%..*"     |
000046c0  20 20 20 4d 4f 56 20 20  20 20 20 74 6f 70 2c 74  |   MOV     top,t|
000046d0  6f 70 2c 4c 53 4c 20 23  38 0d 1c 34 22 20 20 20  |op,LSL #8..4"   |
000046e0  20 20 20 20 20 4d 4f 56  20 20 20 20 20 6d 69 64  |     MOV     mid|
000046f0  2c 6d 69 64 2c 4c 53 4c  20 23 38 0d 1c 3e 22 20  |,mid,LSL #8..>" |
00004700  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 62  |       MOV     b|
00004710  6f 74 2c 62 6f 74 2c 4c  53 4c 20 23 38 0d 1c 48  |ot,bot,LSL #8..H|
00004720  05 5d 0d 1c 52 05 cd 0d  1c 5c 13 e7 20 72 25 3d  |.]..R....\.. r%=|
00004730  b9 20 80 20 6c 25 3d b9  20 8c 0d 1c 66 0a e7 20  |. . l%=. ...f.. |
00004740  74 25 20 8c 0d 1c 70 0e  5b 4f 50 54 20 70 61 73  |t% ...p.[OPT pas|
00004750  73 25 0d 1c 7a 21 20 20  20 20 20 20 20 20 53 55  |s%..z!        SU|
00004760  42 20 20 20 20 20 72 31  31 2c 72 39 2c 23 78 6d  |B     r11,r9,#xm|
00004770  61 78 25 0d 1c 84 20 20  20 20 20 20 20 20 20 4c  |ax%...         L|
00004780  44 52 42 20 20 20 20 72  31 30 2c 5b 72 31 31 2c  |DRB    r10,[r11,|
00004790  23 31 5d 0d 1c 8e 26 20  20 20 20 20 20 20 20 41  |#1]...&        A|
000047a0  44 44 20 20 20 20 20 74  6f 70 2c 72 31 30 2c 74  |DD     top,r10,t|
000047b0  6f 70 2c 4c 53 4c 20 23  38 0d 1c 98 05 5d 0d 1c  |op,LSL #8....]..|
000047c0  a2 05 cd 0d 1c ac 0e 5b  4f 50 54 20 70 61 73 73  |.......[OPT pass|
000047d0  25 0d 1c b6 1f 20 20 20  20 20 20 20 20 4c 44 52  |%....        LDR|
000047e0  42 20 20 20 20 72 31 30  2c 5b 72 39 2c 23 31 5d  |B    r10,[r9,#1]|
000047f0  0d 1c c0 26 20 20 20 20  20 20 20 20 41 44 44 20  |...&        ADD |
00004800  20 20 20 20 6d 69 64 2c  72 31 30 2c 6d 69 64 2c  |    mid,r10,mid,|
00004810  4c 53 4c 20 23 38 0d 1c  ca 05 5d 0d 1c d4 0a e7  |LSL #8....].....|
00004820  20 62 25 20 8c 0d 1c de  0e 5b 4f 50 54 20 70 61  | b% .....[OPT pa|
00004830  73 73 25 0d 1c e8 21 20  20 20 20 20 20 20 20 41  |ss%...!        A|
00004840  44 44 20 20 20 20 20 72  31 31 2c 72 39 2c 23 78  |DD     r11,r9,#x|
00004850  6d 61 78 25 0d 1c f2 20  20 20 20 20 20 20 20 20  |max%...         |
00004860  4c 44 52 42 20 20 20 20  72 31 30 2c 5b 72 31 31  |LDRB    r10,[r11|
00004870  2c 23 31 5d 0d 1c fc 26  20 20 20 20 20 20 20 20  |,#1]...&        |
00004880  41 44 44 20 20 20 20 20  62 6f 74 2c 72 31 30 2c  |ADD     bot,r10,|
00004890  62 6f 74 2c 4c 53 4c 20  23 38 0d 1d 06 05 5d 0d  |bot,LSL #8....].|
000048a0  1d 10 05 cd 0d 1d 1a 05  cd 0d 1d 24 05 e1 0d 1d  |...........$....|
000048b0  2e 05 3a 0d 1d 38 1d dd  20 f2 72 65 61 64 5f 77  |..:..8.. .read_w|
000048c0  72 61 70 28 74 25 2c 62  25 2c 6c 25 2c 72 25 29  |rap(t%,b%,l%,r%)|
000048d0  0d 1d 42 0c e7 20 74 25  3d a3 20 8c 0d 1d 4c 0e  |..B.. t%=. ...L.|
000048e0  5b 4f 50 54 20 70 61 73  73 25 0d 1d 56 24 20 20  |[OPT pass%..V$  |
000048f0  20 20 20 20 20 20 a4 6d  6f 76 6c 28 32 2c 78 6d  |      .movl(2,xm|
00004900  61 78 25 2a 28 79 6d 61  78 25 2d 31 29 29 0d 1d  |ax%*(ymax%-1))..|
00004910  60 1c 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |`.        ADD   |
00004920  20 20 72 32 2c 72 32 2c  72 39 0d 1d 6a 05 5d 0d  |  r2,r2,r9..j.].|
00004930  1d 74 05 cd 0d 1d 7e 0c  e7 20 62 25 3d a3 20 8c  |.t....~.. b%=. .|
00004940  0d 1d 88 0e 5b 4f 50 54  20 70 61 73 73 25 0d 1d  |....[OPT pass%..|
00004950  92 24 20 20 20 20 20 20  20 20 a4 6d 6f 76 6c 28  |.$        .movl(|
00004960  32 2c 78 6d 61 78 25 2a  28 79 6d 61 78 25 2d 31  |2,xmax%*(ymax%-1|
00004970  29 29 0d 1d 9c 1c 20 20  20 20 20 20 20 20 53 55  |))....        SU|
00004980  42 20 20 20 20 20 72 32  2c 72 39 2c 72 32 0d 1d  |B     r2,r9,r2..|
00004990  a6 05 5d 0d 1d b0 05 cd  0d 1d ba 04 0d 1d c4 0c  |..].............|
000049a0  e7 20 6c 25 3d a3 20 8c  0d 1d ce 0e 5b 4f 50 54  |. l%=. .....[OPT|
000049b0  20 70 61 73 73 25 0d 1d  d8 1d 20 20 20 20 20 20  | pass%....      |
000049c0  20 20 4d 4f 56 20 20 20  20 20 72 33 2c 23 78 6d  |  MOV     r3,#xm|
000049d0  61 78 25 0d 1d e2 1c 20  20 20 20 20 20 20 20 53  |ax%....        S|
000049e0  55 42 20 20 20 20 20 72  33 2c 72 33 2c 23 31 0d  |UB     r3,r3,#1.|
000049f0  1d ec 05 5d 0d 1d f6 0a  e7 20 74 25 20 8c 0d 1e  |...]..... t% ...|
00004a00  00 0e 5b 4f 50 54 20 70  61 73 73 25 0d 1e 0a 21  |..[OPT pass%...!|
00004a10  20 20 20 20 20 20 20 20  53 55 42 20 20 20 20 20  |        SUB     |
00004a20  72 31 31 2c 72 39 2c 23  78 6d 61 78 25 0d 1e 14  |r11,r9,#xmax%...|
00004a30  1d 20 20 20 20 20 20 20  20 4c 44 52 42 20 20 20  |.        LDRB   |
00004a40  20 74 6f 70 2c 5b 72 31  31 5d 0d 1e 1e 1f 20 20  | top,[r11]....  |
00004a50  20 20 20 20 20 20 4c 44  52 42 20 20 20 20 72 34  |      LDRB    r4|
00004a60  2c 5b 72 31 31 2c 23 31  5d 0d 1e 28 25 20 20 20  |,[r11,#1]..(%   |
00004a70  20 20 20 20 20 41 44 44  20 20 20 20 20 74 6f 70  |     ADD     top|
00004a80  2c 72 34 2c 74 6f 70 2c  4c 53 4c 20 23 38 0d 1e  |,r4,top,LSL #8..|
00004a90  32 19 20 20 20 20 20 20  20 20 4d 56 4e 20 20 20  |2.        MVN   |
00004aa0  20 20 72 34 2c 23 30 0d  1e 3c 1f 20 20 20 20 20  |  r4,#0..<.     |
00004ab0  20 20 20 4c 44 52 42 20  20 20 20 72 31 31 2c 5b  |   LDRB    r11,[|
00004ac0  72 39 2c 72 34 5d 0d 1e  46 27 20 20 20 20 20 20  |r9,r4]..F'      |
00004ad0  20 20 41 44 44 20 20 20  20 20 74 6f 70 2c 74 6f  |  ADD     top,to|
00004ae0  70 2c 72 31 31 2c 4c 53  4c 20 23 31 36 0d 1e 50  |p,r11,LSL #16..P|
00004af0  05 5d 0d 1e 5a 05 cc 0d  1e 64 0e 5b 4f 50 54 20  |.]..Z....d.[OPT |
00004b00  70 61 73 73 25 0d 1e 6e  1c 20 20 20 20 20 20 20  |pass%..n.       |
00004b10  20 4c 44 52 42 20 20 20  20 74 6f 70 2c 5b 72 32  | LDRB    top,[r2|
00004b20  5d 0d 1e 78 1e 20 20 20  20 20 20 20 20 4c 44 52  |]..x.        LDR|
00004b30  42 20 20 20 20 72 34 2c  5b 72 32 2c 23 31 5d 0d  |B    r4,[r2,#1].|
00004b40  1e 82 25 20 20 20 20 20  20 20 20 41 44 44 20 20  |..%        ADD  |
00004b50  20 20 20 74 6f 70 2c 72  34 2c 74 6f 70 2c 4c 53  |   top,r4,top,LS|
00004b60  4c 20 23 38 0d 1e 8c 1f  20 20 20 20 20 20 20 20  |L #8....        |
00004b70  4c 44 52 42 20 20 20 20  72 31 31 2c 5b 72 32 2c  |LDRB    r11,[r2,|
00004b80  72 33 5d 0d 1e 96 27 20  20 20 20 20 20 20 20 41  |r3]...'        A|
00004b90  44 44 20 20 20 20 20 74  6f 70 2c 74 6f 70 2c 72  |DD     top,top,r|
00004ba0  31 31 2c 4c 53 4c 20 23  31 36 0d 1e a0 05 5d 0d  |11,LSL #16....].|
00004bb0  1e aa 05 cd 0d 1e b4 0e  5b 4f 50 54 20 70 61 73  |........[OPT pas|
00004bc0  73 25 0d 1e be 1c 20 20  20 20 20 20 20 20 4c 44  |s%....        LD|
00004bd0  52 42 20 20 20 20 6d 69  64 2c 5b 72 39 5d 0d 1e  |RB    mid,[r9]..|
00004be0  c8 1e 20 20 20 20 20 20  20 20 4c 44 52 42 20 20  |..        LDRB  |
00004bf0  20 20 72 34 2c 5b 72 39  2c 23 31 5d 0d 1e d2 25  |  r4,[r9,#1]...%|
00004c00  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
00004c10  6d 69 64 2c 72 34 2c 6d  69 64 2c 4c 53 4c 20 23  |mid,r4,mid,LSL #|
00004c20  38 0d 1e dc 1f 20 20 20  20 20 20 20 20 4c 44 52  |8....        LDR|
00004c30  42 20 20 20 20 72 31 31  2c 5b 72 39 2c 72 33 5d  |B    r11,[r9,r3]|
00004c40  0d 1e e6 27 20 20 20 20  20 20 20 20 41 44 44 20  |...'        ADD |
00004c50  20 20 20 20 6d 69 64 2c  6d 69 64 2c 72 31 31 2c  |    mid,mid,r11,|
00004c60  4c 53 4c 20 23 31 36 0d  1e f0 05 5d 0d 1e fa 0a  |LSL #16....]....|
00004c70  e7 20 62 25 20 8c 0d 1f  04 0e 5b 4f 50 54 20 70  |. b% .....[OPT p|
00004c80  61 73 73 25 0d 1f 0e 21  20 20 20 20 20 20 20 20  |ass%...!        |
00004c90  41 44 44 20 20 20 20 20  72 31 31 2c 72 39 2c 23  |ADD     r11,r9,#|
00004ca0  78 6d 61 78 25 0d 1f 18  1d 20 20 20 20 20 20 20  |xmax%....       |
00004cb0  20 4c 44 52 42 20 20 20  20 62 6f 74 2c 5b 72 31  | LDRB    bot,[r1|
00004cc0  31 5d 0d 1f 22 1f 20 20  20 20 20 20 20 20 4c 44  |1]..".        LD|
00004cd0  52 42 20 20 20 20 72 34  2c 5b 72 31 31 2c 23 31  |RB    r4,[r11,#1|
00004ce0  5d 0d 1f 2c 25 20 20 20  20 20 20 20 20 41 44 44  |]..,%        ADD|
00004cf0  20 20 20 20 20 62 6f 74  2c 72 34 2c 62 6f 74 2c  |     bot,r4,bot,|
00004d00  4c 53 4c 20 23 38 0d 1f  36 20 20 20 20 20 20 20  |LSL #8..6       |
00004d10  20 20 41 44 44 20 20 20  20 20 72 34 2c 72 33 2c  |  ADD     r4,r3,|
00004d20  23 78 6d 61 78 25 0d 1f  40 1f 20 20 20 20 20 20  |#xmax%..@.      |
00004d30  20 20 4c 44 52 42 20 20  20 20 72 31 31 2c 5b 72  |  LDRB    r11,[r|
00004d40  39 2c 72 34 5d 0d 1f 4a  27 20 20 20 20 20 20 20  |9,r4]..J'       |
00004d50  20 41 44 44 20 20 20 20  20 62 6f 74 2c 62 6f 74  | ADD     bot,bot|
00004d60  2c 72 31 31 2c 4c 53 4c  20 23 31 36 0d 1f 54 05  |,r11,LSL #16..T.|
00004d70  5d 0d 1f 5e 05 cc 0d 1f  68 0e 5b 4f 50 54 20 70  |]..^....h.[OPT p|
00004d80  61 73 73 25 0d 1f 72 1c  20 20 20 20 20 20 20 20  |ass%..r.        |
00004d90  4c 44 52 42 20 20 20 20  62 6f 74 2c 5b 72 32 5d  |LDRB    bot,[r2]|
00004da0  0d 1f 7c 1e 20 20 20 20  20 20 20 20 4c 44 52 42  |..|.        LDRB|
00004db0  20 20 20 20 72 34 2c 5b  72 32 2c 23 31 5d 0d 1f  |    r4,[r2,#1]..|
00004dc0  86 25 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |.%        ADD   |
00004dd0  20 20 62 6f 74 2c 72 34  2c 62 6f 74 2c 4c 53 4c  |  bot,r4,bot,LSL|
00004de0  20 23 38 0d 1f 90 1f 20  20 20 20 20 20 20 20 4c  | #8....        L|
00004df0  44 52 42 20 20 20 20 72  31 31 2c 5b 72 32 2c 72  |DRB    r11,[r2,r|
00004e00  33 5d 0d 1f 9a 27 20 20  20 20 20 20 20 20 41 44  |3]...'        AD|
00004e10  44 20 20 20 20 20 62 6f  74 2c 62 6f 74 2c 72 31  |D     bot,bot,r1|
00004e20  31 2c 4c 53 4c 20 23 31  36 0d 1f a4 05 5d 0d 1f  |1,LSL #16....]..|
00004e30  ae 05 cd 0d 1f b8 05 cd  0d 1f c2 04 0d 1f cc 0c  |................|
00004e40  e7 20 72 25 3d a3 20 8c  0d 1f d6 0c e7 20 74 25  |. r%=. ...... t%|
00004e50  3d b9 20 8c 0d 1f e0 0e  5b 4f 50 54 20 70 61 73  |=. .....[OPT pas|
00004e60  73 25 0d 1f ea 20 20 20  20 20 20 20 20 20 53 55  |s%...         SU|
00004e70  42 20 20 20 20 20 72 33  2c 72 39 2c 23 78 6d 61  |B     r3,r9,#xma|
00004e80  78 25 0d 1f f4 20 20 20  20 20 20 20 20 20 53 55  |x%...         SU|
00004e90  42 20 20 20 20 20 72 33  2c 72 33 2c 23 78 6d 61  |B     r3,r3,#xma|
00004ea0  78 25 0d 1f fe 1f 20 20  20 20 20 20 20 20 4c 44  |x%....        LD|
00004eb0  52 42 20 20 20 20 72 31  31 2c 5b 72 33 2c 23 31  |RB    r11,[r3,#1|
00004ec0  5d 0d 20 08 26 20 20 20  20 20 20 20 20 41 44 44  |]. .&        ADD|
00004ed0  20 20 20 20 20 74 6f 70  2c 72 31 31 2c 74 6f 70  |     top,r11,top|
00004ee0  2c 4c 53 4c 20 23 38 0d  20 12 05 5d 0d 20 1c 05  |,LSL #8. ..]. ..|
00004ef0  cc 0d 20 26 0e 5b 4f 50  54 20 70 61 73 73 25 0d  |.. &.[OPT pass%.|
00004f00  20 30 20 20 20 20 20 20  20 20 20 53 55 42 20 20  | 0         SUB  |
00004f10  20 20 20 72 33 2c 72 32  2c 23 78 6d 61 78 25 0d  |   r3,r2,#xmax%.|
00004f20  20 3a 1f 20 20 20 20 20  20 20 20 4c 44 52 42 20  | :.        LDRB |
00004f30  20 20 20 72 31 31 2c 5b  72 33 2c 23 31 5d 0d 20  |   r11,[r3,#1]. |
00004f40  44 26 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |D&        ADD   |
00004f50  20 20 74 6f 70 2c 72 31  31 2c 74 6f 70 2c 4c 53  |  top,r11,top,LS|
00004f60  4c 20 23 38 0d 20 4e 05  5d 0d 20 58 05 cd 0d 20  |L #8. N.]. X... |
00004f70  62 0e 5b 4f 50 54 20 70  61 73 73 25 0d 20 6c 20  |b.[OPT pass%. l |
00004f80  20 20 20 20 20 20 20 20  53 55 42 20 20 20 20 20  |        SUB     |
00004f90  72 33 2c 72 39 2c 23 78  6d 61 78 25 0d 20 76 1f  |r3,r9,#xmax%. v.|
00004fa0  20 20 20 20 20 20 20 20  4c 44 52 42 20 20 20 20  |        LDRB    |
00004fb0  72 31 31 2c 5b 72 33 2c  23 31 5d 0d 20 80 26 20  |r11,[r3,#1]. .& |
00004fc0  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 6d  |       ADD     m|
00004fd0  69 64 2c 72 31 31 2c 6d  69 64 2c 4c 53 4c 20 23  |id,r11,mid,LSL #|
00004fe0  38 0d 20 8a 05 5d 0d 20  94 0c e7 20 62 25 3d b9  |8. ..]. ... b%=.|
00004ff0  20 8c 0d 20 9e 0e 5b 4f  50 54 20 70 61 73 73 25  | .. ..[OPT pass%|
00005000  0d 20 a8 1f 20 20 20 20  20 20 20 20 4c 44 52 42  |. ..        LDRB|
00005010  20 20 20 20 72 31 31 2c  5b 72 39 2c 23 31 5d 0d  |    r11,[r9,#1].|
00005020  20 b2 26 20 20 20 20 20  20 20 20 41 44 44 20 20  | .&        ADD  |
00005030  20 20 20 62 6f 74 2c 72  31 31 2c 62 6f 74 2c 4c  |   bot,r11,bot,L|
00005040  53 4c 20 23 38 0d 20 bc  05 5d 0d 20 c6 05 cc 0d  |SL #8. ..]. ....|
00005050  20 d0 0e 5b 4f 50 54 20  70 61 73 73 25 0d 20 da  | ..[OPT pass%. .|
00005060  20 20 20 20 20 20 20 20  20 53 55 42 20 20 20 20  |         SUB    |
00005070  20 72 33 2c 72 32 2c 23  78 6d 61 78 25 0d 20 e4  | r3,r2,#xmax%. .|
00005080  1f 20 20 20 20 20 20 20  20 4c 44 52 42 20 20 20  |.        LDRB   |
00005090  20 72 31 31 2c 5b 72 33  2c 23 31 5d 0d 20 ee 26  | r11,[r3,#1]. .&|
000050a0  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
000050b0  62 6f 74 2c 72 31 31 2c  62 6f 74 2c 4c 53 4c 20  |bot,r11,bot,LSL |
000050c0  23 38 0d 20 f8 05 5d 0d  21 02 05 cd 0d 21 0c 05  |#8. ..].!....!..|
000050d0  cd 0d 21 16 04 0d 21 20  13 e7 20 72 25 3d b9 20  |..!...! .. r%=. |
000050e0  80 20 6c 25 3d b9 20 8c  0d 21 2a 0a e7 20 74 25  |. l%=. ..!*.. t%|
000050f0  20 8c 0d 21 34 0e 5b 4f  50 54 20 70 61 73 73 25  | ..!4.[OPT pass%|
00005100  0d 21 3e 21 20 20 20 20  20 20 20 20 53 55 42 20  |.!>!        SUB |
00005110  20 20 20 20 72 31 31 2c  72 39 2c 23 78 6d 61 78  |    r11,r9,#xmax|
00005120  25 0d 21 48 20 20 20 20  20 20 20 20 20 4c 44 52  |%.!H         LDR|
00005130  42 20 20 20 20 72 31 30  2c 5b 72 31 31 2c 23 31  |B    r10,[r11,#1|
00005140  5d 0d 21 52 26 20 20 20  20 20 20 20 20 41 44 44  |].!R&        ADD|
00005150  20 20 20 20 20 74 6f 70  2c 72 31 30 2c 74 6f 70  |     top,r10,top|
00005160  2c 4c 53 4c 20 23 38 0d  21 5c 05 5d 0d 21 66 05  |,LSL #8.!\.].!f.|
00005170  cc 0d 21 70 0e 5b 4f 50  54 20 70 61 73 73 25 0d  |..!p.[OPT pass%.|
00005180  21 7a 1f 20 20 20 20 20  20 20 20 4c 44 52 42 20  |!z.        LDRB |
00005190  20 20 20 72 31 30 2c 5b  72 32 2c 23 31 5d 0d 21  |   r10,[r2,#1].!|
000051a0  84 26 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |.&        ADD   |
000051b0  20 20 74 6f 70 2c 72 31  30 2c 74 6f 70 2c 4c 53  |  top,r10,top,LS|
000051c0  4c 20 23 38 0d 21 8e 05  5d 0d 21 98 05 cd 0d 21  |L #8.!..].!....!|
000051d0  a2 0e 5b 4f 50 54 20 70  61 73 73 25 0d 21 ac 1f  |..[OPT pass%.!..|
000051e0  20 20 20 20 20 20 20 20  4c 44 52 42 20 20 20 20  |        LDRB    |
000051f0  72 31 30 2c 5b 72 39 2c  23 31 5d 0d 21 b6 26 20  |r10,[r9,#1].!.& |
00005200  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 6d  |       ADD     m|
00005210  69 64 2c 72 31 30 2c 6d  69 64 2c 4c 53 4c 20 23  |id,r10,mid,LSL #|
00005220  38 0d 21 c0 05 5d 0d 21  ca 0a e7 20 62 25 20 8c  |8.!..].!... b% .|
00005230  0d 21 d4 0e 5b 4f 50 54  20 70 61 73 73 25 0d 21  |.!..[OPT pass%.!|
00005240  de 21 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |.!        ADD   |
00005250  20 20 72 31 31 2c 72 39  2c 23 78 6d 61 78 25 0d  |  r11,r9,#xmax%.|
00005260  21 e8 20 20 20 20 20 20  20 20 20 4c 44 52 42 20  |!.         LDRB |
00005270  20 20 20 72 31 30 2c 5b  72 31 31 2c 23 31 5d 0d  |   r10,[r11,#1].|
00005280  21 f2 26 20 20 20 20 20  20 20 20 41 44 44 20 20  |!.&        ADD  |
00005290  20 20 20 62 6f 74 2c 72  31 30 2c 62 6f 74 2c 4c  |   bot,r10,bot,L|
000052a0  53 4c 20 23 38 0d 21 fc  05 5d 0d 22 06 05 cc 0d  |SL #8.!..]."....|
000052b0  22 10 0e 5b 4f 50 54 20  70 61 73 73 25 0d 22 1a  |"..[OPT pass%.".|
000052c0  1f 20 20 20 20 20 20 20  20 4c 44 52 42 20 20 20  |.        LDRB   |
000052d0  20 72 31 30 2c 5b 72 32  2c 23 31 5d 0d 22 24 26  | r10,[r2,#1]."$&|
000052e0  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
000052f0  62 6f 74 2c 72 31 30 2c  62 6f 74 2c 4c 53 4c 20  |bot,r10,bot,LSL |
00005300  23 38 0d 22 2e 05 5d 0d  22 38 05 cd 0d 22 42 05  |#8."..]."8..."B.|
00005310  cd 0d 22 4c 05 e1 0d 22  56 05 3a 0d 22 60 10 dd  |.."L..."V.:."`..|
00005320  20 a4 63 68 65 63 6b 63  65 6c 6c 0d 22 6a 0e 5b  | .checkcell."j.[|
00005330  4f 50 54 20 70 61 73 73  25 0d 22 74 1a 20 20 20  |OPT pass%."t.   |
00005340  20 20 20 20 20 41 44 44  4e 45 20 20 20 41 2c 41  |     ADDNE   A,A|
00005350  2c 23 31 0d 22 7e 1b 20  20 20 20 20 20 20 20 43  |,#1."~.        C|
00005360  4d 50 20 20 20 20 20 72  31 30 2c 23 6e 25 0d 22  |MP     r10,#n%."|
00005370  88 1a 20 20 20 20 20 20  20 20 41 44 44 45 51 20  |..        ADDEQ |
00005380  20 20 42 2c 42 2c 23 31  0d 22 92 1b 20 20 20 20  |  B,B,#1."..    |
00005390  20 20 20 20 41 44 44 20  20 20 20 20 53 2c 72 31  |    ADD     S,r1|
000053a0  30 2c 53 0d 22 9c 05 5d  0d 22 a6 06 3d 30 0d 22  |0,S."..]."..=0."|
000053b0  b0 05 3a 0d 22 ba 10 dd  20 a4 77 72 69 74 65 63  |..:."... .writec|
000053c0  65 6c 6c 0d 22 c4 1c ea  20 68 65 61 6c 74 68 79  |ell."... healthy|
000053d0  2c 64 6f 6e 65 2c 70 61  73 73 32 25 2c 70 25 0d  |,done,pass2%,p%.|
000053e0  22 ce 09 70 25 3d 50 25  0d 22 d8 0f 70 61 73 73  |"..p%=P%."..pass|
000053f0  32 25 3d 2d 32 3a f5 0d  22 e2 0d 70 61 73 73 32  |2%=-2:.."..pass2|
00005400  25 2b 3d 32 0d 22 ec 09  50 25 3d 70 25 0d 22 f6  |%+=2."..P%=p%.".|
00005410  0f 5b 4f 50 54 20 70 61  73 73 32 25 0d 23 00 19  |.[OPT pass2%.#..|
00005420  20 20 20 20 20 20 20 20  53 55 42 20 20 20 20 20  |        SUB     |
00005430  41 2c 41 2c 42 0d 23 0a  1f 20 20 20 20 20 20 20  |A,A,B.#..       |
00005440  20 4c 44 52 42 20 20 20  20 72 31 30 2c 5b 72 39  | LDRB    r10,[r9|
00005450  5d 2c 23 31 0d 23 14 1b  20 20 20 20 20 20 20 20  |],#1.#..        |
00005460  43 4d 50 20 20 20 20 20  72 31 30 2c 23 6e 25 0d  |CMP     r10,#n%.|
00005470  23 1e 17 20 20 20 20 20  20 20 20 ec 51 20 20 20  |#..        .Q   |
00005480  72 31 30 2c 23 30 0d 23  28 18 20 20 20 20 20 20  |r10,#0.#(.      |
00005490  20 20 42 45 51 20 20 20  20 20 64 6f 6e 65 0d 23  |  BEQ     done.#|
000054a0  32 1a 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |2.        ADD   |
000054b0  20 20 41 2c 41 2c 23 31  0d 23 3c 1a 20 20 20 20  |  A,A,#1.#<.    |
000054c0  20 20 20 20 43 4d 50 20  20 20 20 20 72 31 30 2c  |    CMP     r10,|
000054d0  23 30 0d 23 46 1b 20 20  20 20 20 20 20 20 42 45  |#0.#F.        BE|
000054e0  51 20 20 20 20 20 68 65  61 6c 74 68 79 0d 23 50  |Q     healthy.#P|
000054f0  1b 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |.        ADD    |
00005500  20 53 2c 53 2c 72 31 30  0d 23 5a 18 20 20 20 20  | S,S,r10.#Z.    |
00005510  20 20 20 20 a4 64 69 76  28 53 2c 41 2c 31 30 29  |    .div(S,A,10)|
00005520  0d 23 64 1f 20 20 20 20  20 20 20 20 41 44 44 20  |.#d.        ADD |
00005530  20 20 20 20 72 31 30 2c  72 31 30 2c 23 67 25 0d  |    r10,r10,#g%.|
00005540  23 6e 1b 20 20 20 20 20  20 20 20 43 4d 50 20 20  |#n.        CMP  |
00005550  20 20 20 72 31 30 2c 23  6e 25 0d 23 78 1b 20 20  |   r10,#n%.#x.  |
00005560  20 20 20 20 20 20 4d 4f  56 47 54 20 20 20 72 31  |      MOVGT   r1|
00005570  30 2c 23 6e 25 0d 23 82  18 20 20 20 20 20 20 20  |0,#n%.#..       |
00005580  20 42 20 20 20 20 20 20  20 64 6f 6e 65 0d 23 8c  | B       done.#.|
00005590  0c 2e 68 65 61 6c 74 68  79 0d 23 96 1e 20 20 20  |..healthy.#..   |
000055a0  20 20 20 20 20 a4 61 64  72 6c 28 34 2c 64 69 76  |     .adrl(4,div|
000055b0  74 61 62 6c 65 31 29 0d  23 a0 1e 20 20 20 20 20  |table1).#..     |
000055c0  20 20 20 4c 44 52 42 20  20 20 20 72 31 30 2c 5b  |   LDRB    r10,[|
000055d0  72 34 2c 41 5d 0d 23 aa  1e 20 20 20 20 20 20 20  |r4,A].#..       |
000055e0  20 a4 61 64 72 6c 28 34  2c 64 69 76 74 61 62 6c  | .adrl(4,divtabl|
000055f0  65 32 29 0d 23 b4 1e 20  20 20 20 20 20 20 20 4c  |e2).#..        L|
00005600  44 52 42 20 20 20 20 72  31 31 2c 5b 72 34 2c 42  |DRB    r11,[r4,B|
00005610  5d 0d 23 be 1f 20 20 20  20 20 20 20 20 41 44 44  |].#..        ADD|
00005620  20 20 20 20 20 72 31 30  2c 72 31 30 2c 72 31 31  |     r10,r10,r11|
00005630  0d 23 c8 1f 2e 64 6f 6e  65 20 20 20 53 54 52 42  |.#...done   STRB|
00005640  20 20 20 20 72 31 30 2c  5b 72 38 5d 2c 23 31 0d  |    r10,[r8],#1.|
00005650  23 d2 05 5d 0d 23 dc 18  fd 20 70 61 73 73 25 3d  |#..].#... pass%=|
00005660  30 20 84 20 70 61 73 73  32 25 3d 32 0d 23 e6 06  |0 . pass2%=2.#..|
00005670  3d 30 0d 23 f0 05 3a 0d  23 fa 11 dd 20 a4 64 69  |=0.#..:.#... .di|
00005680  76 28 61 2c 62 2c 64 29  0d 24 04 20 ea 20 6c 6f  |v(a,b,d).$. . lo|
00005690  6f 70 31 2c 6c 6f 6f 70  32 2c 64 6f 6e 65 2c 70  |op1,loop2,done,p|
000056a0  61 73 73 32 25 2c 70 25  0d 24 0e 09 70 25 3d 50  |ass2%,p%.$..p%=P|
000056b0  25 0d 24 18 0f 70 61 73  73 32 25 3d 2d 32 3a f5  |%.$..pass2%=-2:.|
000056c0  0d 24 22 0d 70 61 73 73  32 25 2b 3d 32 0d 24 2c  |.$".pass2%+=2.$,|
000056d0  09 50 25 3d 70 25 0d 24  36 0e 5b 4f 50 54 20 70  |.P%=p%.$6.[OPT p|
000056e0  61 73 73 25 0d 24 40 18  20 20 20 20 20 20 20 20  |ass%.$@.        |
000056f0  43 4d 50 20 20 20 20 20  62 2c 23 31 0d 24 4a 14  |CMP     b,#1.$J.|
00005700  20 20 20 20 20 20 20 20  ec 51 20 20 20 64 2c 61  |        .Q   d,a|
00005710  0d 24 54 18 20 20 20 20  20 20 20 20 42 45 51 20  |.$T.        BEQ |
00005720  20 20 20 20 64 6f 6e 65  0d 24 5e 18 20 20 20 20  |    done.$^.    |
00005730  20 20 20 20 43 4d 50 20  20 20 20 20 62 2c 23 32  |    CMP     b,#2|
00005740  0d 24 68 1b 20 20 20 20  20 20 20 20 ec 51 20 20  |.$h.        .Q  |
00005750  20 64 2c 61 2c 4c 53 52  20 23 31 0d 24 72 18 20  | d,a,LSR #1.$r. |
00005760  20 20 20 20 20 20 20 42  45 51 20 20 20 20 20 64  |       BEQ     d|
00005770  6f 6e 65 0d 24 7c 18 20  20 20 20 20 20 20 20 43  |one.$|.        C|
00005780  4d 50 20 20 20 20 20 62  2c 23 34 0d 24 86 1b 20  |MP     b,#4.$.. |
00005790  20 20 20 20 20 20 20 ec  51 20 20 20 64 2c 61 2c  |       .Q   d,a,|
000057a0  4c 53 52 20 23 32 0d 24  90 18 20 20 20 20 20 20  |LSR #2.$..      |
000057b0  20 20 42 45 51 20 20 20  20 20 64 6f 6e 65 0d 24  |  BEQ     done.$|
000057c0  9a 18 20 20 20 20 20 20  20 20 43 4d 50 20 20 20  |..        CMP   |
000057d0  20 20 62 2c 23 38 0d 24  a4 1b 20 20 20 20 20 20  |  b,#8.$..      |
000057e0  20 20 ec 51 20 20 20 64  2c 61 2c 4c 53 52 20 23  |  .Q   d,a,LSR #|
000057f0  33 0d 24 ae 18 20 20 20  20 20 20 20 20 42 45 51  |3.$..        BEQ|
00005800  20 20 20 20 20 64 6f 6e  65 0d 24 b8 18 20 20 20  |     done.$..   |
00005810  20 20 20 20 20 4d 4f 56  20 20 20 20 20 64 2c 23  |     MOV     d,#|
00005820  30 0d 24 b9 0a 2e 6c 6f  6f 70 31 0d 24 ba 18 20  |0.$...loop1.$.. |
00005830  20 20 20 20 20 20 20 54  53 54 20 20 20 20 20 61  |       TST     a|
00005840  2c 23 31 0d 24 bb 18 20  20 20 20 20 20 20 20 54  |,#1.$..        T|
00005850  53 54 45 51 20 20 20 62  2c 23 31 0d 24 bc 1b 20  |STEQ   b,#1.$.. |
00005860  20 20 20 20 20 20 20 ec  51 20 20 20 61 2c 61 2c  |       .Q   a,a,|
00005870  4c 53 52 20 23 31 0d 24  bd 1b 20 20 20 20 20 20  |LSR #1.$..      |
00005880  20 20 ec 51 20 20 20 62  2c 62 2c 4c 53 52 20 23  |  .Q   b,b,LSR #|
00005890  31 0d 24 be 19 20 20 20  20 20 20 20 20 42 45 51  |1.$..        BEQ|
000058a0  20 20 20 20 20 6c 6f 6f  70 31 0d 24 c2 0a 2e 6c  |     loop1.$...l|
000058b0  6f 6f 70 32 0d 24 cc 19  20 20 20 20 20 20 20 20  |oop2.$..        |
000058c0  53 55 42 53 20 20 20 20  61 2c 61 2c 62 0d 24 d6  |SUBS    a,a,b.$.|
000058d0  1a 20 20 20 20 20 20 20  20 41 44 44 47 45 20 20  |.        ADDGE  |
000058e0  20 64 2c 64 2c 23 31 0d  24 e0 19 20 20 20 20 20  | d,d,#1.$..     |
000058f0  20 20 20 42 47 45 20 20  20 20 20 6c 6f 6f 70 32  |   BGE     loop2|
00005900  0d 24 ea 09 2e 64 6f 6e  65 0d 24 f4 05 5d 0d 24  |.$...done.$..].$|
00005910  fe 18 fd 20 70 61 73 73  25 3d 30 20 84 20 70 61  |... pass%=0 . pa|
00005920  73 73 32 25 3d 32 0d 25  12 06 3d 30 0d 25 1c 05  |ss2%=2.%..=0.%..|
00005930  3a 0d 25 26 13 dd 20 a4  64 69 76 74 61 62 6c 65  |:.%&.. .divtable|
00005940  28 63 25 29 0d 25 30 08  ea 20 69 25 0d 25 3a 0e  |(c%).%0.. i%.%:.|
00005950  e3 20 69 25 3d 30 20 b8  20 39 0d 25 44 0e 5b 4f  |. i%=0 . 9.%D.[O|
00005960  50 54 20 70 61 73 73 25  0d 25 4e 1d 20 20 20 20  |PT pass%.%N.    |
00005970  20 20 20 20 44 43 42 20  20 20 20 20 28 69 25 20  |    DCB     (i% |
00005980  81 20 63 25 29 0d 25 58  05 5d 0d 25 62 08 ed 20  |. c%).%X.].%b.. |
00005990  69 25 0d 25 6c 16 5b 4f  50 54 20 70 61 73 73 25  |i%.%l.[OPT pass%|
000059a0  3a 41 4c 49 47 4e 3a 5d  0d 25 76 06 3d 30 0d 25  |:ALIGN:].%v.=0.%|
000059b0  80 05 3a 0d 25 8a 18 dd  20 a4 6d 6f 76 6c 28 72  |..:.%... .movl(r|
000059c0  65 67 25 2c 63 6f 6e 73  74 25 29 0d 25 94 0e ea  |eg%,const%).%...|
000059d0  20 69 25 2c 73 25 2c 6d  25 0d 25 9e 0e e3 20 69  | i%,s%,m%.%... i|
000059e0  25 3d 30 20 b8 20 33 0d  25 a8 16 6d 25 3d 28 28  |%=0 . 3.%..m%=((|
000059f0  26 46 46 29 3c 3c 28 69  25 2a 38 29 29 0d 25 b2  |&FF)<<(i%*8)).%.|
00005a00  14 e7 20 28 63 6f 6e 73  74 25 80 20 6d 25 29 20  |.. (const%. m%) |
00005a10  8c 0d 25 bc 0c e7 20 73  25 3d b9 20 8c 0d 25 c6  |..%... s%=. ..%.|
00005a20  2b 5b 4f 50 54 20 70 61  73 73 25 3a 41 44 44 20  |+[OPT pass%:ADD |
00005a30  72 65 67 25 2c 72 65 67  25 2c 23 28 63 6f 6e 73  |reg%,reg%,#(cons|
00005a40  74 25 20 80 20 6d 25 29  0d 25 d0 05 5d 0d 25 da  |t% . m%).%..].%.|
00005a50  05 cc 0d 25 e4 2b 73 25  3d b9 3a 5b 4f 50 54 20  |...%.+s%=.:[OPT |
00005a60  70 61 73 73 25 3a 4d 4f  56 20 72 65 67 25 2c 23  |pass%:MOV reg%,#|
00005a70  28 63 6f 6e 73 74 25 20  80 20 6d 25 29 0d 25 ee  |(const% . m%).%.|
00005a80  05 5d 0d 25 f8 05 cd 0d  26 02 05 cd 0d 26 0c 08  |.].%....&....&..|
00005a90  ed 20 69 25 0d 26 16 06  3d 30 0d 26 20 05 3a 0d  |. i%.&..=0.& .:.|
00005aa0  26 2a 18 dd 20 a4 61 64  72 6c 28 72 65 67 25 2c  |&*.. .adrl(reg%,|
00005ab0  20 61 64 64 72 25 29 0d  26 34 0b ea 20 6f 66 66  | addr%).&4.. off|
00005ac0  73 25 0d 26 3e 14 6f 66  66 73 25 3d 61 64 64 72  |s%.&>.offs%=addr|
00005ad0  25 2d 50 25 2d 38 0d 26  48 10 e7 20 6f 66 66 73  |%-P%-8.&H.. offs|
00005ae0  25 3e 3d 30 20 8c 0d 26  52 0e 5b 4f 50 54 20 70  |%>=0 ..&R.[OPT p|
00005af0  61 73 73 25 0d 26 5c 1e  41 44 44 20 72 65 67 25  |ass%.&\.ADD reg%|
00005b00  2c 70 63 2c 20 20 23 6f  66 66 73 25 20 80 20 26  |,pc,  #offs% . &|
00005b10  46 46 0d 26 66 20 41 44  44 20 72 65 67 25 2c 72  |FF.&f ADD reg%,r|
00005b20  65 67 25 2c 23 6f 66 66  73 25 20 80 20 26 46 46  |eg%,#offs% . &FF|
00005b30  30 30 0d 26 70 05 5d 0d  26 7a 05 cc 0d 26 84 0e  |00.&p.].&z...&..|
00005b40  5b 4f 50 54 20 70 61 73  73 25 0d 26 8e 21 53 55  |[OPT pass%.&.!SU|
00005b50  42 20 72 65 67 25 2c 70  63 2c 20 20 23 28 2d 6f  |B reg%,pc,  #(-o|
00005b60  66 66 73 25 29 20 80 20  26 46 46 0d 26 98 23 53  |ffs%) . &FF.&.#S|
00005b70  55 42 20 72 65 67 25 2c  72 65 67 25 2c 23 28 2d  |UB reg%,reg%,#(-|
00005b80  6f 66 66 73 25 29 20 80  20 26 46 46 30 30 0d 26  |offs%) . &FF00.&|
00005b90  a2 05 5d 0d 26 ac 05 cd  0d 26 b6 06 3d 30 0d 26  |..].&....&..=0.&|
00005ba0  c0 04 0d ff                                       |....|
00005ba4