� >CreateRI
!� for !ClickDir, version 0.10
� By L.R.Gordon, April 1991
#%� (c) Archimedes World March 1992
(:
2� code% &1000
<:
Findirect=0
Pend_indirect=0
ZJtask_desc=0:� to fix a BASIC V bug, try removing these lines to see it
d:
n� opt=0 � 1
xP%=&8000:O%=code%
�[OPT opt*3+4
�
.start
�1   bl    get_data_block          \ set up R12
�   mov   R0,#0
�3   strb  R0,[R12,#finished]      \ not finished
�4   strb  R0,[R12,#mode_flag]     \ one shot mode
�   strb  R0,[R12,#dir_flag]
�
�   mov   R0,#200
�   ldr   R1,task
�   add   R2,R12,#task_desc
�   swi   "Wimp_Initialise"
�   str   R1,[R12,#thandle]



   bl    load_template

   bl    icon_bar

"

,.poll_loop

6   ldr   R0,poll_mask

@   mov   R1,R12

J   swi   "Wimp_Poll"

T;   adr   R14,return              \ make b's act as bl's

^   cmp   R0,#2

h=   beq   open_window_request     \ for moving info window

r   cmp   R0,#3

|!   beq   close_window_request

�   cmp   R0,#6

�   beq   mouse_click

�   cmp   R0,#9

�   beq   menu_selection

�   cmp   R0,#17

�   cmpne R0,#18

�   bleq  user_message

�.return

�   ldrb  R0,[R12,#finished]

�   cmp   R0,#0

�   beq   poll_loop

�

�   ldr   R0,[R12,#thandle]
   ldr   R1,task
   swi   "Wimp_CloseDown"
+   swi   "OS_Exit"               \ quit
&
0	.task
:   equs  "TASK"
D.poll_mask
N.   equd  %00000000000000000001100000110001
X
b.open_window_request
l   swi   "Wimp_OpenWindow"
v   mov   PC,R14
�
�.close_window_request
�   swi   "Wimp_CloseWindow"
�   mov   PC,R14
�
�.mouse_click
�H   ldr   R0,[R1,#8]              \ buttons, only icon can be clicked
�   cmp   R0,#2
�0   beq   icon_menu               \ no return
�   cmp   R0,#1
�   cmpne R0,#4
�   mvneq R0,#0
�L   streqb   R0,[R12,#dir_flag]   \ change directory on next double-click
   mov   PC,R14

4.menu_selection                  \ only one menu
    ldr   R0,[R1]
*4   cmp   R0,#1                   \ one shot mode
4   moveq R2,#0
>#   streqb   R2,[R12,#mode_flag]
H"   streqb   R2,[R12,#dir_flag]
R5   cmp   R0,#2                   \ automatic mode
\   mvneq R2,#0
f#   streqb   R2,[R12,#mode_flag]
p"   streqb   R2,[R12,#dir_flag]
z+   cmp   R0,#3                   \ quit
�   mvneq R2,#0
�"   streqb   R2,[R12,#finished]
�   mov   R1,R12
�"   swi   "Wimp_GetPointerInfo"
�.   ldr   R0,[R1,#8]              \ buttons
�-   cmp   R0,#1                   \ adjust
�@   beq   icon_menu               \ recreate menu (no return)
�   mov   PC,R14
�
�.user_message
�   ldr   R0,[R1,#16]
�3   cmp   R0,#0                   \ Message_Quit
�   mvneq R0,#0
"   streqb   R0,[R12,#finished]
   beq   end_user_message
7   cmp   R0,#5                   \ Message_DataOpen
$   bne   end_user_message
.   ldrb  R0,[R12,#dir_flag]
82   cmp   R0,#0                   \ change dir?
B   beq   end_user_message
L?   ldrb  R0,[R12,#mode_flag]     \ 0=one shot, >0=automatic
V   strb  R0,[R12,#dir_flag]
`/   ldr   R0,[R1,#40]             \ filetype
j   cmp   R0,#&1000
t5   add   R1,R1,#44               \ directory name
~   beq   set_directory
�   mov   R0,R1
�   mov   R3,R1
�
.find_dot
�   ldrb  R2,[R3],#1
�   cmp   R2,#0
�   beq   end_search
�   cmp   R2,#�"."
�   subeq R0,R3,#1
�   b     find_dot
�.end_search
�J   strb  R2,[R0]                 \ removes the filename, leaving a dir
�.set_directory
<   mov   R0,#0                   \ set current directory

   swi   "XOS_FSControl"
.end_user_message
   mov   PC,R14
(
2.load_template
<   adr   R1,temp_file
F    swi   "Wimp_OpenTemplate"
P
Z   mov   R1,R12
d   add   R2,R12,#indirect
n!   add   R3,R12,#end_indirect
x   mvn   R4,#0
�9   adr   R5,info_temp            \ About this program
�   mov   R6,#0
�    swi   "Wimp_LoadTemplate"
�   cmp   R6,#0
�   beq   no_temp
�    swi   "Wimp_CreateWindow"
�   str   R0,[R12,#fhandle]
�
�!   swi   "Wimp_CloseTemplate"
�   mov   PC,R14
�
�.no_temp
�!   swi   "Wimp_CloseTemplate"
A   adr   R0,missing_temp         \ I can't take it anymore...
0   swi   "OS_GenerateError"      \ ...aaargh
.missing_temp
"   equd  1
,   equs  "Template missing"
6   equb  0
@   ALIGN
J.temp_file
T'   equs  "<ClickDir$Dir>.Templates"
^   equb  0
h   ALIGN
r.info_temp
|!   equs  "ClickDirIF":equd  0
�
�
.icon_bar
�   adr   R1,clickdir_icon
�   swi   "Wimp_CreateIcon"
�   str   R0,[R12,#ihandle]
�   mov   PC,R14
�.clickdir_icon
�   equd  -1
�   equd  0
�   equd  0
�   equd  68
�   equd  68
�   equb  %00000010
   equb  %00110000
   equb  0
   equb  %00000001
&   equs  "!clickdir"
0   equb  0
:   ALIGN
D
N.icon_menu
X    ldr   R0,[R12,#mode_flag]
b   cmp   R0,#0
l8   ldr   R0,item_1               \ fiddle with ticks
v   orreq R0,R0,#1
�   bicne R0,R0,#1
�   str   R0,item_1
�   ldr   R0,item_2
�   orrne R0,R0,#1
�   biceq R0,R0,#1
�   str   R0,item_2
�   mov   R1,R12
�"   swi   "Wimp_GetPointerInfo"
�   ldr   R2,[R1]
�   sub   R2,R2,#64
�   mov   R3,#(4*44)+96
�   adr   R1,clickdir_menu
�2   ldr   R0,[R12,#fhandle]       \ info window
   str   R0,(item_0+4)
   swi   "Wimp_CreateMenu"
   mov   PC,R14
 .clickdir_menu
*   equs  "ClickDir":equd  0
4.   equd  &00070207               \ colours
>,   equd  160                     \ width
H-   equd  44                      \ height
R*   equd  0                       \ gap
\.item_0
f1   equd  0                       \ menu flags
p=   equd  -1                      \ window/submenu pointer
z6   equd  &07009011               \ menu icon flags
�#   equs  "Info":equd  0:equd  0
�.item_1
�   equd  0
�   equd  -1
�   equd  &07009011
�   equs  "One Shot":equd  0
�.item_2
�   equd  0
�   equd  -1
�   equd  &07009011
�(   equs  "Automatic":equw  0:equb  0
�.item_3
�   equd  128
	   equd  -1
	   equd  &07009011
	#   equs  "Quit":equd  0:equd  0
	$
	..get_data_block
	8   adr   R12,block
	B   mov   PC,R14
	L
.block
	V]
	`*P%=&200:O%+=&200:� Room for WIMP block
	jindirect=P%
	t?P%+=&C0:O%+=&C0:� Room for indirected icons (from template)
	~[OPT opt*3+4
	�.end_indirect
	�.task_desc
	�   equs  "ClickDir"
	�   equb  0
	�   ALIGN
	�.thandle
	�   equd  0
	�.fhandle
	�   equd  0
	�.ihandle
	�   equd  0
	�
.finished
   equb  0

.mode_flag
   equb  0

.dir_flag
(   equb  0
2   equb  0
<]
F�
P(� "Save !RunImage "+�~code%+" "+�~O%
Z*SetType !RunImage Absolute
d�
�

00000000  0d 00 0a 0f f4 20 3e 43  72 65 61 74 65 52 49 0d  |..... >CreateRI.|
00000010  00 14 21 f4 20 66 6f 72  20 21 43 6c 69 63 6b 44  |..!. for !ClickD|
00000020  69 72 2c 20 76 65 72 73  69 6f 6e 20 30 2e 31 30  |ir, version 0.10|
00000030  0d 00 1e 1f f4 20 42 79  20 4c 2e 52 2e 47 6f 72  |..... By L.R.Gor|
00000040  64 6f 6e 2c 20 41 70 72  69 6c 20 31 39 39 31 0d  |don, April 1991.|
00000050  00 23 25 f4 20 28 63 29  20 41 72 63 68 69 6d 65  |.#%. (c) Archime|
00000060  64 65 73 20 57 6f 72 6c  64 20 4d 61 72 63 68 20  |des World March |
00000070  31 39 39 32 0d 00 28 05  3a 0d 00 32 11 de 20 63  |1992..(.:..2.. c|
00000080  6f 64 65 25 20 26 31 30  30 30 0d 00 3c 05 3a 0d  |ode% &1000..<.:.|
00000090  00 46 0e 69 6e 64 69 72  65 63 74 3d 30 0d 00 50  |.F.indirect=0..P|
000000a0  12 65 6e 64 5f 69 6e 64  69 72 65 63 74 3d 30 0d  |.end_indirect=0.|
000000b0  00 5a 4a 74 61 73 6b 5f  64 65 73 63 3d 30 3a f4  |.ZJtask_desc=0:.|
000000c0  20 74 6f 20 66 69 78 20  61 20 42 41 53 49 43 20  | to fix a BASIC |
000000d0  56 20 62 75 67 2c 20 74  72 79 20 72 65 6d 6f 76  |V bug, try remov|
000000e0  69 6e 67 20 74 68 65 73  65 20 6c 69 6e 65 73 20  |ing these lines |
000000f0  74 6f 20 73 65 65 20 69  74 0d 00 64 05 3a 0d 00  |to see it..d.:..|
00000100  6e 0f e3 20 6f 70 74 3d  30 20 b8 20 31 0d 00 78  |n.. opt=0 . 1..x|
00000110  15 50 25 3d 26 38 30 30  30 3a 4f 25 3d 63 6f 64  |.P%=&8000:O%=cod|
00000120  65 25 0d 00 82 10 5b 4f  50 54 20 6f 70 74 2a 33  |e%....[OPT opt*3|
00000130  2b 34 0d 00 8c 0a 2e 73  74 61 72 74 0d 00 96 31  |+4.....start...1|
00000140  20 20 20 62 6c 20 20 20  20 67 65 74 5f 64 61 74  |   bl    get_dat|
00000150  61 5f 62 6c 6f 63 6b 20  20 20 20 20 20 20 20 20  |a_block         |
00000160  20 5c 20 73 65 74 20 75  70 20 52 31 32 0d 00 a0  | \ set up R12...|
00000170  12 20 20 20 6d 6f 76 20  20 20 52 30 2c 23 30 0d  |.   mov   R0,#0.|
00000180  00 aa 33 20 20 20 73 74  72 62 20 20 52 30 2c 5b  |..3   strb  R0,[|
00000190  52 31 32 2c 23 66 69 6e  69 73 68 65 64 5d 20 20  |R12,#finished]  |
000001a0  20 20 20 20 5c 20 6e 6f  74 20 66 69 6e 69 73 68  |    \ not finish|
000001b0  65 64 0d 00 b4 34 20 20  20 73 74 72 62 20 20 52  |ed...4   strb  R|
000001c0  30 2c 5b 52 31 32 2c 23  6d 6f 64 65 5f 66 6c 61  |0,[R12,#mode_fla|
000001d0  67 5d 20 20 20 20 20 5c  20 6f 6e 65 20 73 68 6f  |g]     \ one sho|
000001e0  74 20 6d 6f 64 65 0d 00  be 1f 20 20 20 73 74 72  |t mode....   str|
000001f0  62 20 20 52 30 2c 5b 52  31 32 2c 23 64 69 72 5f  |b  R0,[R12,#dir_|
00000200  66 6c 61 67 5d 0d 00 c8  04 0d 00 d2 14 20 20 20  |flag]........   |
00000210  6d 6f 76 20 20 20 52 30  2c 23 32 30 30 0d 00 dc  |mov   R0,#200...|
00000220  14 20 20 20 6c 64 72 20  20 20 52 31 2c 74 61 73  |.   ldr   R1,tas|
00000230  6b 0d 00 e6 1e 20 20 20  61 64 64 20 20 20 52 32  |k....   add   R2|
00000240  2c 52 31 32 2c 23 74 61  73 6b 5f 64 65 73 63 0d  |,R12,#task_desc.|
00000250  00 f0 1e 20 20 20 73 77  69 20 20 20 22 57 69 6d  |...   swi   "Wim|
00000260  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 0d 00 fa  |p_Initialise"...|
00000270  1e 20 20 20 73 74 72 20  20 20 52 31 2c 5b 52 31  |.   str   R1,[R1|
00000280  32 2c 23 74 68 61 6e 64  6c 65 5d 0d 01 04 04 0d  |2,#thandle].....|
00000290  01 0e 1a 20 20 20 62 6c  20 20 20 20 6c 6f 61 64  |...   bl    load|
000002a0  5f 74 65 6d 70 6c 61 74  65 0d 01 18 15 20 20 20  |_template....   |
000002b0  62 6c 20 20 20 20 69 63  6f 6e 5f 62 61 72 0d 01  |bl    icon_bar..|
000002c0  22 04 0d 01 2c 0e 2e 70  6f 6c 6c 5f 6c 6f 6f 70  |"...,..poll_loop|
000002d0  0d 01 36 19 20 20 20 6c  64 72 20 20 20 52 30 2c  |..6.   ldr   R0,|
000002e0  70 6f 6c 6c 5f 6d 61 73  6b 0d 01 40 13 20 20 20  |poll_mask..@.   |
000002f0  6d 6f 76 20 20 20 52 31  2c 52 31 32 0d 01 4a 18  |mov   R1,R12..J.|
00000300  20 20 20 73 77 69 20 20  20 22 57 69 6d 70 5f 50  |   swi   "Wimp_P|
00000310  6f 6c 6c 22 0d 01 54 3b  20 20 20 61 64 72 20 20  |oll"..T;   adr  |
00000320  20 52 31 34 2c 72 65 74  75 72 6e 20 20 20 20 20  | R14,return     |
00000330  20 20 20 20 20 20 20 20  20 5c 20 6d 61 6b 65 20  |         \ make |
00000340  62 27 73 20 61 63 74 20  61 73 20 62 6c 27 73 0d  |b's act as bl's.|
00000350  01 5e 12 20 20 20 63 6d  70 20 20 20 52 30 2c 23  |.^.   cmp   R0,#|
00000360  32 0d 01 68 3d 20 20 20  62 65 71 20 20 20 6f 70  |2..h=   beq   op|
00000370  65 6e 5f 77 69 6e 64 6f  77 5f 72 65 71 75 65 73  |en_window_reques|
00000380  74 20 20 20 20 20 5c 20  66 6f 72 20 6d 6f 76 69  |t     \ for movi|
00000390  6e 67 20 69 6e 66 6f 20  77 69 6e 64 6f 77 0d 01  |ng info window..|
000003a0  72 12 20 20 20 63 6d 70  20 20 20 52 30 2c 23 33  |r.   cmp   R0,#3|
000003b0  0d 01 7c 21 20 20 20 62  65 71 20 20 20 63 6c 6f  |..|!   beq   clo|
000003c0  73 65 5f 77 69 6e 64 6f  77 5f 72 65 71 75 65 73  |se_window_reques|
000003d0  74 0d 01 86 12 20 20 20  63 6d 70 20 20 20 52 30  |t....   cmp   R0|
000003e0  2c 23 36 0d 01 90 18 20  20 20 62 65 71 20 20 20  |,#6....   beq   |
000003f0  6d 6f 75 73 65 5f 63 6c  69 63 6b 0d 01 9a 12 20  |mouse_click.... |
00000400  20 20 63 6d 70 20 20 20  52 30 2c 23 39 0d 01 a4  |  cmp   R0,#9...|
00000410  1b 20 20 20 62 65 71 20  20 20 6d 65 6e 75 5f 73  |.   beq   menu_s|
00000420  65 6c 65 63 74 69 6f 6e  0d 01 ae 13 20 20 20 63  |election....   c|
00000430  6d 70 20 20 20 52 30 2c  23 31 37 0d 01 b8 13 20  |mp   R0,#17.... |
00000440  20 20 63 6d 70 6e 65 20  52 30 2c 23 31 38 0d 01  |  cmpne R0,#18..|
00000450  c2 19 20 20 20 62 6c 65  71 20 20 75 73 65 72 5f  |..   bleq  user_|
00000460  6d 65 73 73 61 67 65 0d  01 cc 0b 2e 72 65 74 75  |message.....retu|
00000470  72 6e 0d 01 d6 1f 20 20  20 6c 64 72 62 20 20 52  |rn....   ldrb  R|
00000480  30 2c 5b 52 31 32 2c 23  66 69 6e 69 73 68 65 64  |0,[R12,#finished|
00000490  5d 0d 01 e0 12 20 20 20  63 6d 70 20 20 20 52 30  |]....   cmp   R0|
000004a0  2c 23 30 0d 01 ea 16 20  20 20 62 65 71 20 20 20  |,#0....   beq   |
000004b0  70 6f 6c 6c 5f 6c 6f 6f  70 0d 01 f4 04 0d 01 fe  |poll_loop.......|
000004c0  1e 20 20 20 6c 64 72 20  20 20 52 30 2c 5b 52 31  |.   ldr   R0,[R1|
000004d0  32 2c 23 74 68 61 6e 64  6c 65 5d 0d 02 08 14 20  |2,#thandle].... |
000004e0  20 20 6c 64 72 20 20 20  52 31 2c 74 61 73 6b 0d  |  ldr   R1,task.|
000004f0  02 12 1d 20 20 20 73 77  69 20 20 20 22 57 69 6d  |...   swi   "Wim|
00000500  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 02 1c 2b  |p_CloseDown"...+|
00000510  20 20 20 73 77 69 20 20  20 22 4f 53 5f 45 78 69  |   swi   "OS_Exi|
00000520  74 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |t"              |
00000530  20 5c 20 71 75 69 74 0d  02 26 04 0d 02 30 09 2e  | \ quit..&...0..|
00000540  74 61 73 6b 0d 02 3a 13  20 20 20 65 71 75 73 20  |task..:.   equs |
00000550  20 22 54 41 53 4b 22 0d  02 44 0e 2e 70 6f 6c 6c  | "TASK"..D..poll|
00000560  5f 6d 61 73 6b 0d 02 4e  2e 20 20 20 65 71 75 64  |_mask..N.   equd|
00000570  20 20 25 30 30 30 30 30  30 30 30 30 30 30 30 30  |  %0000000000000|
00000580  30 30 30 30 30 30 31 31  30 30 30 30 30 31 31 30  |0000001100000110|
00000590  30 30 31 0d 02 58 04 0d  02 62 18 2e 6f 70 65 6e  |001..X...b..open|
000005a0  5f 77 69 6e 64 6f 77 5f  72 65 71 75 65 73 74 0d  |_window_request.|
000005b0  02 6c 1e 20 20 20 73 77  69 20 20 20 22 57 69 6d  |.l.   swi   "Wim|
000005c0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 0d 02 76  |p_OpenWindow"..v|
000005d0  13 20 20 20 6d 6f 76 20  20 20 50 43 2c 52 31 34  |.   mov   PC,R14|
000005e0  0d 02 80 04 0d 02 8a 19  2e 63 6c 6f 73 65 5f 77  |.........close_w|
000005f0  69 6e 64 6f 77 5f 72 65  71 75 65 73 74 0d 02 94  |indow_request...|
00000600  1f 20 20 20 73 77 69 20  20 20 22 57 69 6d 70 5f  |.   swi   "Wimp_|
00000610  43 6c 6f 73 65 57 69 6e  64 6f 77 22 0d 02 9e 13  |CloseWindow"....|
00000620  20 20 20 6d 6f 76 20 20  20 50 43 2c 52 31 34 0d  |   mov   PC,R14.|
00000630  02 a8 04 0d 02 b2 10 2e  6d 6f 75 73 65 5f 63 6c  |........mouse_cl|
00000640  69 63 6b 0d 02 bc 48 20  20 20 6c 64 72 20 20 20  |ick...H   ldr   |
00000650  52 30 2c 5b 52 31 2c 23  38 5d 20 20 20 20 20 20  |R0,[R1,#8]      |
00000660  20 20 20 20 20 20 20 20  5c 20 62 75 74 74 6f 6e  |        \ button|
00000670  73 2c 20 6f 6e 6c 79 20  69 63 6f 6e 20 63 61 6e  |s, only icon can|
00000680  20 62 65 20 63 6c 69 63  6b 65 64 0d 02 c6 12 20  | be clicked.... |
00000690  20 20 63 6d 70 20 20 20  52 30 2c 23 32 0d 02 d0  |  cmp   R0,#2...|
000006a0  30 20 20 20 62 65 71 20  20 20 69 63 6f 6e 5f 6d  |0   beq   icon_m|
000006b0  65 6e 75 20 20 20 20 20  20 20 20 20 20 20 20 20  |enu             |
000006c0  20 20 5c 20 6e 6f 20 72  65 74 75 72 6e 0d 02 da  |  \ no return...|
000006d0  12 20 20 20 63 6d 70 20  20 20 52 30 2c 23 31 0d  |.   cmp   R0,#1.|
000006e0  02 e4 12 20 20 20 63 6d  70 6e 65 20 52 30 2c 23  |...   cmpne R0,#|
000006f0  34 0d 02 ee 12 20 20 20  6d 76 6e 65 71 20 52 30  |4....   mvneq R0|
00000700  2c 23 30 0d 02 f8 4c 20  20 20 73 74 72 65 71 62  |,#0...L   streqb|
00000710  20 20 20 52 30 2c 5b 52  31 32 2c 23 64 69 72 5f  |   R0,[R12,#dir_|
00000720  66 6c 61 67 5d 20 20 20  5c 20 63 68 61 6e 67 65  |flag]   \ change|
00000730  20 64 69 72 65 63 74 6f  72 79 20 6f 6e 20 6e 65  | directory on ne|
00000740  78 74 20 64 6f 75 62 6c  65 2d 63 6c 69 63 6b 0d  |xt double-click.|
00000750  03 02 13 20 20 20 6d 6f  76 20 20 20 50 43 2c 52  |...   mov   PC,R|
00000760  31 34 0d 03 0c 04 0d 03  16 34 2e 6d 65 6e 75 5f  |14.......4.menu_|
00000770  73 65 6c 65 63 74 69 6f  6e 20 20 20 20 20 20 20  |selection       |
00000780  20 20 20 20 20 20 20 20  20 20 20 5c 20 6f 6e 6c  |           \ onl|
00000790  79 20 6f 6e 65 20 6d 65  6e 75 0d 03 20 14 20 20  |y one menu.. .  |
000007a0  20 6c 64 72 20 20 20 52  30 2c 5b 52 31 5d 0d 03  | ldr   R0,[R1]..|
000007b0  2a 34 20 20 20 63 6d 70  20 20 20 52 30 2c 23 31  |*4   cmp   R0,#1|
000007c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007d0  20 20 20 5c 20 6f 6e 65  20 73 68 6f 74 20 6d 6f  |   \ one shot mo|
000007e0  64 65 0d 03 34 12 20 20  20 6d 6f 76 65 71 20 52  |de..4.   moveq R|
000007f0  32 2c 23 30 0d 03 3e 23  20 20 20 73 74 72 65 71  |2,#0..>#   streq|
00000800  62 20 20 20 52 32 2c 5b  52 31 32 2c 23 6d 6f 64  |b   R2,[R12,#mod|
00000810  65 5f 66 6c 61 67 5d 0d  03 48 22 20 20 20 73 74  |e_flag]..H"   st|
00000820  72 65 71 62 20 20 20 52  32 2c 5b 52 31 32 2c 23  |reqb   R2,[R12,#|
00000830  64 69 72 5f 66 6c 61 67  5d 0d 03 52 35 20 20 20  |dir_flag]..R5   |
00000840  63 6d 70 20 20 20 52 30  2c 23 32 20 20 20 20 20  |cmp   R0,#2     |
00000850  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00000860  61 75 74 6f 6d 61 74 69  63 20 6d 6f 64 65 0d 03  |automatic mode..|
00000870  5c 12 20 20 20 6d 76 6e  65 71 20 52 32 2c 23 30  |\.   mvneq R2,#0|
00000880  0d 03 66 23 20 20 20 73  74 72 65 71 62 20 20 20  |..f#   streqb   |
00000890  52 32 2c 5b 52 31 32 2c  23 6d 6f 64 65 5f 66 6c  |R2,[R12,#mode_fl|
000008a0  61 67 5d 0d 03 70 22 20  20 20 73 74 72 65 71 62  |ag]..p"   streqb|
000008b0  20 20 20 52 32 2c 5b 52  31 32 2c 23 64 69 72 5f  |   R2,[R12,#dir_|
000008c0  66 6c 61 67 5d 0d 03 7a  2b 20 20 20 63 6d 70 20  |flag]..z+   cmp |
000008d0  20 20 52 30 2c 23 33 20  20 20 20 20 20 20 20 20  |  R0,#3         |
000008e0  20 20 20 20 20 20 20 20  20 20 5c 20 71 75 69 74  |          \ quit|
000008f0  0d 03 84 12 20 20 20 6d  76 6e 65 71 20 52 32 2c  |....   mvneq R2,|
00000900  23 30 0d 03 8e 22 20 20  20 73 74 72 65 71 62 20  |#0..."   streqb |
00000910  20 20 52 32 2c 5b 52 31  32 2c 23 66 69 6e 69 73  |  R2,[R12,#finis|
00000920  68 65 64 5d 0d 03 98 13  20 20 20 6d 6f 76 20 20  |hed]....   mov  |
00000930  20 52 31 2c 52 31 32 0d  03 a2 22 20 20 20 73 77  | R1,R12..."   sw|
00000940  69 20 20 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |i   "Wimp_GetPoi|
00000950  6e 74 65 72 49 6e 66 6f  22 0d 03 ac 2e 20 20 20  |nterInfo"....   |
00000960  6c 64 72 20 20 20 52 30  2c 5b 52 31 2c 23 38 5d  |ldr   R0,[R1,#8]|
00000970  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00000980  62 75 74 74 6f 6e 73 0d  03 b6 2d 20 20 20 63 6d  |buttons...-   cm|
00000990  70 20 20 20 52 30 2c 23  31 20 20 20 20 20 20 20  |p   R0,#1       |
000009a0  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 61 64  |            \ ad|
000009b0  6a 75 73 74 0d 03 c0 40  20 20 20 62 65 71 20 20  |just...@   beq  |
000009c0  20 69 63 6f 6e 5f 6d 65  6e 75 20 20 20 20 20 20  | icon_menu      |
000009d0  20 20 20 20 20 20 20 20  20 5c 20 72 65 63 72 65  |         \ recre|
000009e0  61 74 65 20 6d 65 6e 75  20 28 6e 6f 20 72 65 74  |ate menu (no ret|
000009f0  75 72 6e 29 0d 03 ca 13  20 20 20 6d 6f 76 20 20  |urn)....   mov  |
00000a00  20 50 43 2c 52 31 34 0d  03 d4 04 0d 03 de 11 2e  | PC,R14.........|
00000a10  75 73 65 72 5f 6d 65 73  73 61 67 65 0d 03 e8 18  |user_message....|
00000a20  20 20 20 6c 64 72 20 20  20 52 30 2c 5b 52 31 2c  |   ldr   R0,[R1,|
00000a30  23 31 36 5d 0d 03 f2 33  20 20 20 63 6d 70 20 20  |#16]...3   cmp  |
00000a40  20 52 30 2c 23 30 20 20  20 20 20 20 20 20 20 20  | R0,#0          |
00000a50  20 20 20 20 20 20 20 20  20 5c 20 4d 65 73 73 61  |         \ Messa|
00000a60  67 65 5f 51 75 69 74 0d  03 fc 12 20 20 20 6d 76  |ge_Quit....   mv|
00000a70  6e 65 71 20 52 30 2c 23  30 0d 04 06 22 20 20 20  |neq R0,#0..."   |
00000a80  73 74 72 65 71 62 20 20  20 52 30 2c 5b 52 31 32  |streqb   R0,[R12|
00000a90  2c 23 66 69 6e 69 73 68  65 64 5d 0d 04 10 1d 20  |,#finished].... |
00000aa0  20 20 62 65 71 20 20 20  65 6e 64 5f 75 73 65 72  |  beq   end_user|
00000ab0  5f 6d 65 73 73 61 67 65  0d 04 1a 37 20 20 20 63  |_message...7   c|
00000ac0  6d 70 20 20 20 52 30 2c  23 35 20 20 20 20 20 20  |mp   R0,#5      |
00000ad0  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 4d  |             \ M|
00000ae0  65 73 73 61 67 65 5f 44  61 74 61 4f 70 65 6e 0d  |essage_DataOpen.|
00000af0  04 24 1d 20 20 20 62 6e  65 20 20 20 65 6e 64 5f  |.$.   bne   end_|
00000b00  75 73 65 72 5f 6d 65 73  73 61 67 65 0d 04 2e 1f  |user_message....|
00000b10  20 20 20 6c 64 72 62 20  20 52 30 2c 5b 52 31 32  |   ldrb  R0,[R12|
00000b20  2c 23 64 69 72 5f 66 6c  61 67 5d 0d 04 38 32 20  |,#dir_flag]..82 |
00000b30  20 20 63 6d 70 20 20 20  52 30 2c 23 30 20 20 20  |  cmp   R0,#0   |
00000b40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b50  5c 20 63 68 61 6e 67 65  20 64 69 72 3f 0d 04 42  |\ change dir?..B|
00000b60  1d 20 20 20 62 65 71 20  20 20 65 6e 64 5f 75 73  |.   beq   end_us|
00000b70  65 72 5f 6d 65 73 73 61  67 65 0d 04 4c 3f 20 20  |er_message..L?  |
00000b80  20 6c 64 72 62 20 20 52  30 2c 5b 52 31 32 2c 23  | ldrb  R0,[R12,#|
00000b90  6d 6f 64 65 5f 66 6c 61  67 5d 20 20 20 20 20 5c  |mode_flag]     \|
00000ba0  20 30 3d 6f 6e 65 20 73  68 6f 74 2c 20 3e 30 3d  | 0=one shot, >0=|
00000bb0  61 75 74 6f 6d 61 74 69  63 0d 04 56 1f 20 20 20  |automatic..V.   |
00000bc0  73 74 72 62 20 20 52 30  2c 5b 52 31 32 2c 23 64  |strb  R0,[R12,#d|
00000bd0  69 72 5f 66 6c 61 67 5d  0d 04 60 2f 20 20 20 6c  |ir_flag]..`/   l|
00000be0  64 72 20 20 20 52 30 2c  5b 52 31 2c 23 34 30 5d  |dr   R0,[R1,#40]|
00000bf0  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 66  |             \ f|
00000c00  69 6c 65 74 79 70 65 0d  04 6a 16 20 20 20 63 6d  |iletype..j.   cm|
00000c10  70 20 20 20 52 30 2c 23  26 31 30 30 30 0d 04 74  |p   R0,#&1000..t|
00000c20  35 20 20 20 61 64 64 20  20 20 52 31 2c 52 31 2c  |5   add   R1,R1,|
00000c30  23 34 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |#44             |
00000c40  20 20 5c 20 64 69 72 65  63 74 6f 72 79 20 6e 61  |  \ directory na|
00000c50  6d 65 0d 04 7e 1a 20 20  20 62 65 71 20 20 20 73  |me..~.   beq   s|
00000c60  65 74 5f 64 69 72 65 63  74 6f 72 79 0d 04 88 12  |et_directory....|
00000c70  20 20 20 6d 6f 76 20 20  20 52 30 2c 52 31 0d 04  |   mov   R0,R1..|
00000c80  92 12 20 20 20 6d 6f 76  20 20 20 52 33 2c 52 31  |..   mov   R3,R1|
00000c90  0d 04 9c 0d 2e 66 69 6e  64 5f 64 6f 74 0d 04 a6  |.....find_dot...|
00000ca0  17 20 20 20 6c 64 72 62  20 20 52 32 2c 5b 52 33  |.   ldrb  R2,[R3|
00000cb0  5d 2c 23 31 0d 04 b0 12  20 20 20 63 6d 70 20 20  |],#1....   cmp  |
00000cc0  20 52 32 2c 23 30 0d 04  ba 17 20 20 20 62 65 71  | R2,#0....   beq|
00000cd0  20 20 20 65 6e 64 5f 73  65 61 72 63 68 0d 04 c4  |   end_search...|
00000ce0  15 20 20 20 63 6d 70 20  20 20 52 32 2c 23 97 22  |.   cmp   R2,#."|
00000cf0  2e 22 0d 04 ce 15 20 20  20 73 75 62 65 71 20 52  |."....   subeq R|
00000d00  30 2c 52 33 2c 23 31 0d  04 d8 15 20 20 20 62 20  |0,R3,#1....   b |
00000d10  20 20 20 20 66 69 6e 64  5f 64 6f 74 0d 04 e2 0f  |    find_dot....|
00000d20  2e 65 6e 64 5f 73 65 61  72 63 68 0d 04 ec 4a 20  |.end_search...J |
00000d30  20 20 73 74 72 62 20 20  52 32 2c 5b 52 30 5d 20  |  strb  R2,[R0] |
00000d40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d50  5c 20 72 65 6d 6f 76 65  73 20 74 68 65 20 66 69  |\ removes the fi|
00000d60  6c 65 6e 61 6d 65 2c 20  6c 65 61 76 69 6e 67 20  |lename, leaving |
00000d70  61 20 64 69 72 0d 04 f6  12 2e 73 65 74 5f 64 69  |a dir.....set_di|
00000d80  72 65 63 74 6f 72 79 0d  05 00 3c 20 20 20 6d 6f  |rectory...<   mo|
00000d90  76 20 20 20 52 30 2c 23  30 20 20 20 20 20 20 20  |v   R0,#0       |
00000da0  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 73 65  |            \ se|
00000db0  74 20 63 75 72 72 65 6e  74 20 64 69 72 65 63 74  |t current direct|
00000dc0  6f 72 79 0d 05 0a 1c 20  20 20 73 77 69 20 20 20  |ory....   swi   |
00000dd0  22 58 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 0d  |"XOS_FSControl".|
00000de0  05 14 15 2e 65 6e 64 5f  75 73 65 72 5f 6d 65 73  |....end_user_mes|
00000df0  73 61 67 65 0d 05 1e 13  20 20 20 6d 6f 76 20 20  |sage....   mov  |
00000e00  20 50 43 2c 52 31 34 0d  05 28 04 0d 05 32 12 2e  | PC,R14..(...2..|
00000e10  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 0d 05 3c  |load_template..<|
00000e20  19 20 20 20 61 64 72 20  20 20 52 31 2c 74 65 6d  |.   adr   R1,tem|
00000e30  70 5f 66 69 6c 65 0d 05  46 20 20 20 20 73 77 69  |p_file..F    swi|
00000e40  20 20 20 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |   "Wimp_OpenTem|
00000e50  70 6c 61 74 65 22 0d 05  50 04 0d 05 5a 13 20 20  |plate"..P...Z.  |
00000e60  20 6d 6f 76 20 20 20 52  31 2c 52 31 32 0d 05 64  | mov   R1,R12..d|
00000e70  1d 20 20 20 61 64 64 20  20 20 52 32 2c 52 31 32  |.   add   R2,R12|
00000e80  2c 23 69 6e 64 69 72 65  63 74 0d 05 6e 21 20 20  |,#indirect..n!  |
00000e90  20 61 64 64 20 20 20 52  33 2c 52 31 32 2c 23 65  | add   R3,R12,#e|
00000ea0  6e 64 5f 69 6e 64 69 72  65 63 74 0d 05 78 12 20  |nd_indirect..x. |
00000eb0  20 20 6d 76 6e 20 20 20  52 34 2c 23 30 0d 05 82  |  mvn   R4,#0...|
00000ec0  39 20 20 20 61 64 72 20  20 20 52 35 2c 69 6e 66  |9   adr   R5,inf|
00000ed0  6f 5f 74 65 6d 70 20 20  20 20 20 20 20 20 20 20  |o_temp          |
00000ee0  20 20 5c 20 41 62 6f 75  74 20 74 68 69 73 20 70  |  \ About this p|
00000ef0  72 6f 67 72 61 6d 0d 05  8c 12 20 20 20 6d 6f 76  |rogram....   mov|
00000f00  20 20 20 52 36 2c 23 30  0d 05 96 20 20 20 20 73  |   R6,#0...    s|
00000f10  77 69 20 20 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |wi   "Wimp_LoadT|
00000f20  65 6d 70 6c 61 74 65 22  0d 05 a0 12 20 20 20 63  |emplate"....   c|
00000f30  6d 70 20 20 20 52 36 2c  23 30 0d 05 aa 14 20 20  |mp   R6,#0....  |
00000f40  20 62 65 71 20 20 20 6e  6f 5f 74 65 6d 70 0d 05  | beq   no_temp..|
00000f50  b4 20 20 20 20 73 77 69  20 20 20 22 57 69 6d 70  |.    swi   "Wimp|
00000f60  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 0d 05  |_CreateWindow"..|
00000f70  be 1e 20 20 20 73 74 72  20 20 20 52 30 2c 5b 52  |..   str   R0,[R|
00000f80  31 32 2c 23 66 68 61 6e  64 6c 65 5d 0d 05 c8 04  |12,#fhandle]....|
00000f90  0d 05 d2 21 20 20 20 73  77 69 20 20 20 22 57 69  |...!   swi   "Wi|
00000fa0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000fb0  22 0d 05 dc 13 20 20 20  6d 6f 76 20 20 20 50 43  |"....   mov   PC|
00000fc0  2c 52 31 34 0d 05 e6 04  0d 05 f0 0c 2e 6e 6f 5f  |,R14.........no_|
00000fd0  74 65 6d 70 0d 05 fa 21  20 20 20 73 77 69 20 20  |temp...!   swi  |
00000fe0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00000ff0  6c 61 74 65 22 0d 06 04  41 20 20 20 61 64 72 20  |late"...A   adr |
00001000  20 20 52 30 2c 6d 69 73  73 69 6e 67 5f 74 65 6d  |  R0,missing_tem|
00001010  70 20 20 20 20 20 20 20  20 20 5c 20 49 20 63 61  |p         \ I ca|
00001020  6e 27 74 20 74 61 6b 65  20 69 74 20 61 6e 79 6d  |n't take it anym|
00001030  6f 72 65 2e 2e 2e 0d 06  0e 30 20 20 20 73 77 69  |ore......0   swi|
00001040  20 20 20 22 4f 53 5f 47  65 6e 65 72 61 74 65 45  |   "OS_GenerateE|
00001050  72 72 6f 72 22 20 20 20  20 20 20 5c 20 2e 2e 2e  |rror"      \ ...|
00001060  61 61 61 72 67 68 0d 06  18 11 2e 6d 69 73 73 69  |aaargh.....missi|
00001070  6e 67 5f 74 65 6d 70 0d  06 22 0e 20 20 20 65 71  |ng_temp..".   eq|
00001080  75 64 20 20 31 0d 06 2c  1f 20 20 20 65 71 75 73  |ud  1..,.   equs|
00001090  20 20 22 54 65 6d 70 6c  61 74 65 20 6d 69 73 73  |  "Template miss|
000010a0  69 6e 67 22 0d 06 36 0e  20 20 20 65 71 75 62 20  |ing"..6.   equb |
000010b0  20 30 0d 06 40 0c 20 20  20 41 4c 49 47 4e 0d 06  | 0..@.   ALIGN..|
000010c0  4a 0e 2e 74 65 6d 70 5f  66 69 6c 65 0d 06 54 27  |J..temp_file..T'|
000010d0  20 20 20 65 71 75 73 20  20 22 3c 43 6c 69 63 6b  |   equs  "<Click|
000010e0  44 69 72 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |Dir$Dir>.Templat|
000010f0  65 73 22 0d 06 5e 0e 20  20 20 65 71 75 62 20 20  |es"..^.   equb  |
00001100  30 0d 06 68 0c 20 20 20  41 4c 49 47 4e 0d 06 72  |0..h.   ALIGN..r|
00001110  0e 2e 69 6e 66 6f 5f 74  65 6d 70 0d 06 7c 21 20  |..info_temp..|! |
00001120  20 20 65 71 75 73 20 20  22 43 6c 69 63 6b 44 69  |  equs  "ClickDi|
00001130  72 49 46 22 3a 65 71 75  64 20 20 30 0d 06 86 04  |rIF":equd  0....|
00001140  0d 06 90 0d 2e 69 63 6f  6e 5f 62 61 72 0d 06 9a  |.....icon_bar...|
00001150  1d 20 20 20 61 64 72 20  20 20 52 31 2c 63 6c 69  |.   adr   R1,cli|
00001160  63 6b 64 69 72 5f 69 63  6f 6e 0d 06 a4 1e 20 20  |ckdir_icon....  |
00001170  20 73 77 69 20 20 20 22  57 69 6d 70 5f 43 72 65  | swi   "Wimp_Cre|
00001180  61 74 65 49 63 6f 6e 22  0d 06 ae 1e 20 20 20 73  |ateIcon"....   s|
00001190  74 72 20 20 20 52 30 2c  5b 52 31 32 2c 23 69 68  |tr   R0,[R12,#ih|
000011a0  61 6e 64 6c 65 5d 0d 06  b8 13 20 20 20 6d 6f 76  |andle]....   mov|
000011b0  20 20 20 50 43 2c 52 31  34 0d 06 c2 12 2e 63 6c  |   PC,R14.....cl|
000011c0  69 63 6b 64 69 72 5f 69  63 6f 6e 0d 06 cc 0f 20  |ickdir_icon.... |
000011d0  20 20 65 71 75 64 20 20  2d 31 0d 06 d6 0e 20 20  |  equd  -1....  |
000011e0  20 65 71 75 64 20 20 30  0d 06 e0 0e 20 20 20 65  | equd  0....   e|
000011f0  71 75 64 20 20 30 0d 06  ea 0f 20 20 20 65 71 75  |qud  0....   equ|
00001200  64 20 20 36 38 0d 06 f4  0f 20 20 20 65 71 75 64  |d  68....   equd|
00001210  20 20 36 38 0d 06 fe 16  20 20 20 65 71 75 62 20  |  68....   equb |
00001220  20 25 30 30 30 30 30 30  31 30 0d 07 08 16 20 20  | %00000010....  |
00001230  20 65 71 75 62 20 20 25  30 30 31 31 30 30 30 30  | equb  %00110000|
00001240  0d 07 12 0e 20 20 20 65  71 75 62 20 20 30 0d 07  |....   equb  0..|
00001250  1c 16 20 20 20 65 71 75  62 20 20 25 30 30 30 30  |..   equb  %0000|
00001260  30 30 30 31 0d 07 26 18  20 20 20 65 71 75 73 20  |0001..&.   equs |
00001270  20 22 21 63 6c 69 63 6b  64 69 72 22 0d 07 30 0e  | "!clickdir"..0.|
00001280  20 20 20 65 71 75 62 20  20 30 0d 07 3a 0c 20 20  |   equb  0..:.  |
00001290  20 41 4c 49 47 4e 0d 07  44 04 0d 07 4e 0e 2e 69  | ALIGN..D...N..i|
000012a0  63 6f 6e 5f 6d 65 6e 75  0d 07 58 20 20 20 20 6c  |con_menu..X    l|
000012b0  64 72 20 20 20 52 30 2c  5b 52 31 32 2c 23 6d 6f  |dr   R0,[R12,#mo|
000012c0  64 65 5f 66 6c 61 67 5d  0d 07 62 12 20 20 20 63  |de_flag]..b.   c|
000012d0  6d 70 20 20 20 52 30 2c  23 30 0d 07 6c 38 20 20  |mp   R0,#0..l8  |
000012e0  20 6c 64 72 20 20 20 52  30 2c 69 74 65 6d 5f 31  | ldr   R0,item_1|
000012f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00001300  20 66 69 64 64 6c 65 20  77 69 74 68 20 74 69 63  | fiddle with tic|
00001310  6b 73 0d 07 76 15 20 20  20 6f 72 72 65 71 20 52  |ks..v.   orreq R|
00001320  30 2c 52 30 2c 23 31 0d  07 80 15 20 20 20 62 69  |0,R0,#1....   bi|
00001330  63 6e 65 20 52 30 2c 52  30 2c 23 31 0d 07 8a 16  |cne R0,R0,#1....|
00001340  20 20 20 73 74 72 20 20  20 52 30 2c 69 74 65 6d  |   str   R0,item|
00001350  5f 31 0d 07 94 16 20 20  20 6c 64 72 20 20 20 52  |_1....   ldr   R|
00001360  30 2c 69 74 65 6d 5f 32  0d 07 9e 15 20 20 20 6f  |0,item_2....   o|
00001370  72 72 6e 65 20 52 30 2c  52 30 2c 23 31 0d 07 a8  |rrne R0,R0,#1...|
00001380  15 20 20 20 62 69 63 65  71 20 52 30 2c 52 30 2c  |.   biceq R0,R0,|
00001390  23 31 0d 07 b2 16 20 20  20 73 74 72 20 20 20 52  |#1....   str   R|
000013a0  30 2c 69 74 65 6d 5f 32  0d 07 bc 13 20 20 20 6d  |0,item_2....   m|
000013b0  6f 76 20 20 20 52 31 2c  52 31 32 0d 07 c6 22 20  |ov   R1,R12..." |
000013c0  20 20 73 77 69 20 20 20  22 57 69 6d 70 5f 47 65  |  swi   "Wimp_Ge|
000013d0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 0d 07 d0  |tPointerInfo"...|
000013e0  14 20 20 20 6c 64 72 20  20 20 52 32 2c 5b 52 31  |.   ldr   R2,[R1|
000013f0  5d 0d 07 da 16 20 20 20  73 75 62 20 20 20 52 32  |]....   sub   R2|
00001400  2c 52 32 2c 23 36 34 0d  07 e4 1a 20 20 20 6d 6f  |,R2,#64....   mo|
00001410  76 20 20 20 52 33 2c 23  28 34 2a 34 34 29 2b 39  |v   R3,#(4*44)+9|
00001420  36 0d 07 ee 1d 20 20 20  61 64 72 20 20 20 52 31  |6....   adr   R1|
00001430  2c 63 6c 69 63 6b 64 69  72 5f 6d 65 6e 75 0d 07  |,clickdir_menu..|
00001440  f8 32 20 20 20 6c 64 72  20 20 20 52 30 2c 5b 52  |.2   ldr   R0,[R|
00001450  31 32 2c 23 66 68 61 6e  64 6c 65 5d 20 20 20 20  |12,#fhandle]    |
00001460  20 20 20 5c 20 69 6e 66  6f 20 77 69 6e 64 6f 77  |   \ info window|
00001470  0d 08 02 1a 20 20 20 73  74 72 20 20 20 52 30 2c  |....   str   R0,|
00001480  28 69 74 65 6d 5f 30 2b  34 29 0d 08 0c 1e 20 20  |(item_0+4)....  |
00001490  20 73 77 69 20 20 20 22  57 69 6d 70 5f 43 72 65  | swi   "Wimp_Cre|
000014a0  61 74 65 4d 65 6e 75 22  0d 08 16 13 20 20 20 6d  |ateMenu"....   m|
000014b0  6f 76 20 20 20 50 43 2c  52 31 34 0d 08 20 12 2e  |ov   PC,R14.. ..|
000014c0  63 6c 69 63 6b 64 69 72  5f 6d 65 6e 75 0d 08 2a  |clickdir_menu..*|
000014d0  1f 20 20 20 65 71 75 73  20 20 22 43 6c 69 63 6b  |.   equs  "Click|
000014e0  44 69 72 22 3a 65 71 75  64 20 20 30 0d 08 34 2e  |Dir":equd  0..4.|
000014f0  20 20 20 65 71 75 64 20  20 26 30 30 30 37 30 32  |   equd  &000702|
00001500  30 37 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |07              |
00001510  20 5c 20 63 6f 6c 6f 75  72 73 0d 08 3e 2c 20 20  | \ colours..>,  |
00001520  20 65 71 75 64 20 20 31  36 30 20 20 20 20 20 20  | equd  160      |
00001530  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00001540  20 77 69 64 74 68 0d 08  48 2d 20 20 20 65 71 75  | width..H-   equ|
00001550  64 20 20 34 34 20 20 20  20 20 20 20 20 20 20 20  |d  44           |
00001560  20 20 20 20 20 20 20 20  20 20 20 5c 20 68 65 69  |           \ hei|
00001570  67 68 74 0d 08 52 2a 20  20 20 65 71 75 64 20 20  |ght..R*   equd  |
00001580  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00001590  20 20 20 20 20 20 20 20  5c 20 67 61 70 0d 08 5c  |        \ gap..\|
000015a0  0b 2e 69 74 65 6d 5f 30  0d 08 66 31 20 20 20 65  |..item_0..f1   e|
000015b0  71 75 64 20 20 30 20 20  20 20 20 20 20 20 20 20  |qud  0          |
000015c0  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 6d  |             \ m|
000015d0  65 6e 75 20 66 6c 61 67  73 0d 08 70 3d 20 20 20  |enu flags..p=   |
000015e0  65 71 75 64 20 20 2d 31  20 20 20 20 20 20 20 20  |equd  -1        |
000015f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00001600  77 69 6e 64 6f 77 2f 73  75 62 6d 65 6e 75 20 70  |window/submenu p|
00001610  6f 69 6e 74 65 72 0d 08  7a 36 20 20 20 65 71 75  |ointer..z6   equ|
00001620  64 20 20 26 30 37 30 30  39 30 31 31 20 20 20 20  |d  &07009011    |
00001630  20 20 20 20 20 20 20 20  20 20 20 5c 20 6d 65 6e  |           \ men|
00001640  75 20 69 63 6f 6e 20 66  6c 61 67 73 0d 08 84 23  |u icon flags...#|
00001650  20 20 20 65 71 75 73 20  20 22 49 6e 66 6f 22 3a  |   equs  "Info":|
00001660  65 71 75 64 20 20 30 3a  65 71 75 64 20 20 30 0d  |equd  0:equd  0.|
00001670  08 8e 0b 2e 69 74 65 6d  5f 31 0d 08 98 0e 20 20  |....item_1....  |
00001680  20 65 71 75 64 20 20 30  0d 08 a2 0f 20 20 20 65  | equd  0....   e|
00001690  71 75 64 20 20 2d 31 0d  08 ac 16 20 20 20 65 71  |qud  -1....   eq|
000016a0  75 64 20 20 26 30 37 30  30 39 30 31 31 0d 08 b6  |ud  &07009011...|
000016b0  1f 20 20 20 65 71 75 73  20 20 22 4f 6e 65 20 53  |.   equs  "One S|
000016c0  68 6f 74 22 3a 65 71 75  64 20 20 30 0d 08 c0 0b  |hot":equd  0....|
000016d0  2e 69 74 65 6d 5f 32 0d  08 ca 0e 20 20 20 65 71  |.item_2....   eq|
000016e0  75 64 20 20 30 0d 08 d4  0f 20 20 20 65 71 75 64  |ud  0....   equd|
000016f0  20 20 2d 31 0d 08 de 16  20 20 20 65 71 75 64 20  |  -1....   equd |
00001700  20 26 30 37 30 30 39 30  31 31 0d 08 e8 28 20 20  | &07009011...(  |
00001710  20 65 71 75 73 20 20 22  41 75 74 6f 6d 61 74 69  | equs  "Automati|
00001720  63 22 3a 65 71 75 77 20  20 30 3a 65 71 75 62 20  |c":equw  0:equb |
00001730  20 30 0d 08 f2 0b 2e 69  74 65 6d 5f 33 0d 08 fc  | 0.....item_3...|
00001740  10 20 20 20 65 71 75 64  20 20 31 32 38 0d 09 06  |.   equd  128...|
00001750  0f 20 20 20 65 71 75 64  20 20 2d 31 0d 09 10 16  |.   equd  -1....|
00001760  20 20 20 65 71 75 64 20  20 26 30 37 30 30 39 30  |   equd  &070090|
00001770  31 31 0d 09 1a 23 20 20  20 65 71 75 73 20 20 22  |11...#   equs  "|
00001780  51 75 69 74 22 3a 65 71  75 64 20 20 30 3a 65 71  |Quit":equd  0:eq|
00001790  75 64 20 20 30 0d 09 24  04 0d 09 2e 13 2e 67 65  |ud  0..$......ge|
000017a0  74 5f 64 61 74 61 5f 62  6c 6f 63 6b 0d 09 38 16  |t_data_block..8.|
000017b0  20 20 20 61 64 72 20 20  20 52 31 32 2c 62 6c 6f  |   adr   R12,blo|
000017c0  63 6b 0d 09 42 13 20 20  20 6d 6f 76 20 20 20 50  |ck..B.   mov   P|
000017d0  43 2c 52 31 34 0d 09 4c  0a 2e 62 6c 6f 63 6b 0d  |C,R14..L..block.|
000017e0  09 56 05 5d 0d 09 60 2a  50 25 3d 26 32 30 30 3a  |.V.]..`*P%=&200:|
000017f0  4f 25 2b 3d 26 32 30 30  3a f4 20 52 6f 6f 6d 20  |O%+=&200:. Room |
00001800  66 6f 72 20 57 49 4d 50  20 62 6c 6f 63 6b 0d 09  |for WIMP block..|
00001810  6a 0f 69 6e 64 69 72 65  63 74 3d 50 25 0d 09 74  |j.indirect=P%..t|
00001820  3f 50 25 2b 3d 26 43 30  3a 4f 25 2b 3d 26 43 30  |?P%+=&C0:O%+=&C0|
00001830  3a f4 20 52 6f 6f 6d 20  66 6f 72 20 69 6e 64 69  |:. Room for indi|
00001840  72 65 63 74 65 64 20 69  63 6f 6e 73 20 28 66 72  |rected icons (fr|
00001850  6f 6d 20 74 65 6d 70 6c  61 74 65 29 0d 09 7e 10  |om template)..~.|
00001860  5b 4f 50 54 20 6f 70 74  2a 33 2b 34 0d 09 88 11  |[OPT opt*3+4....|
00001870  2e 65 6e 64 5f 69 6e 64  69 72 65 63 74 0d 09 92  |.end_indirect...|
00001880  0e 2e 74 61 73 6b 5f 64  65 73 63 0d 09 9c 17 20  |..task_desc.... |
00001890  20 20 65 71 75 73 20 20  22 43 6c 69 63 6b 44 69  |  equs  "ClickDi|
000018a0  72 22 0d 09 a6 0e 20 20  20 65 71 75 62 20 20 30  |r"....   equb  0|
000018b0  0d 09 b0 0c 20 20 20 41  4c 49 47 4e 0d 09 ba 0c  |....   ALIGN....|
000018c0  2e 74 68 61 6e 64 6c 65  0d 09 c4 0e 20 20 20 65  |.thandle....   e|
000018d0  71 75 64 20 20 30 0d 09  ce 0c 2e 66 68 61 6e 64  |qud  0.....fhand|
000018e0  6c 65 0d 09 d8 0e 20 20  20 65 71 75 64 20 20 30  |le....   equd  0|
000018f0  0d 09 e2 0c 2e 69 68 61  6e 64 6c 65 0d 09 ec 0e  |.....ihandle....|
00001900  20 20 20 65 71 75 64 20  20 30 0d 09 f6 0d 2e 66  |   equd  0.....f|
00001910  69 6e 69 73 68 65 64 0d  0a 00 0e 20 20 20 65 71  |inished....   eq|
00001920  75 62 20 20 30 0d 0a 0a  0e 2e 6d 6f 64 65 5f 66  |ub  0.....mode_f|
00001930  6c 61 67 0d 0a 14 0e 20  20 20 65 71 75 62 20 20  |lag....   equb  |
00001940  30 0d 0a 1e 0d 2e 64 69  72 5f 66 6c 61 67 0d 0a  |0.....dir_flag..|
00001950  28 0e 20 20 20 65 71 75  62 20 20 30 0d 0a 32 0e  |(.   equb  0..2.|
00001960  20 20 20 65 71 75 62 20  20 30 0d 0a 3c 05 5d 0d  |   equb  0..<.].|
00001970  0a 46 05 ed 0d 0a 50 28  ff 20 22 53 61 76 65 20  |.F....P(. "Save |
00001980  21 52 75 6e 49 6d 61 67  65 20 22 2b c3 7e 63 6f  |!RunImage "+.~co|
00001990  64 65 25 2b 22 20 22 2b  c3 7e 4f 25 0d 0a 5a 1f  |de%+" "+.~O%..Z.|
000019a0  2a 53 65 74 54 79 70 65  20 21 52 75 6e 49 6d 61  |*SetType !RunIma|
000019b0  67 65 20 41 62 73 6f 6c  75 74 65 0d 0a 64 05 e0  |ge Absolute..d..|
000019c0  0d ff                                             |..|
000019c2