� > <TrashFS$Dir>.Source
!� Source code for Trash Filer
� � David J. Seery 1993
(
2� � � �$+" at line "+Þ:�
<-� code% &2000:� Plenty of assembly space!
F8cmos%=40:� Change if conflicting with something else
P� pass%=12 � 15 � 2
Z P%=0:O%=code%:L%=code%+&2000
d[
n
OPT pass%
x
�EQUD     startup
�EQUD     initialise
�EQUD     finalise
�EQUD     service
�EQUD     title
�EQUD     help
�EQUD     command
�EQUD     0
�
�
.title
�EQUS     "TrashFS":EQUB 0
�	ALIGN
�

	.help

:EQUS     "TrashFS"+�9+�9+"0.66 ("+��$,5,11)+")":EQUB 0

	ALIGN

"

,.command

6%EQUS     "Desktop_TrashFS":EQUB 0

@	ALIGN

JEQUD     command_code

TEQUB     0

^EQUB     %00000000

hEQUB     0

rEQUB     %00000000

|EQUD     command_syntax

�EQUD     command_help

�EQUS     "OpenTrash":EQUB 0

�	ALIGN

�EQUD     opentrash_code

�EQUB     0

�EQUB     %00000000

�EQUB     0

�EQUB     %00000000

�EQUD     opentrash_syntax

�EQUD     opentrash_help

� EQUS     "CloseTrash":EQUB 0

�	ALIGN

�EQUD     closetrash_code
EQUB     0
EQUB     %00000000
EQUB     0
&EQUB     %00000000
0EQUD     closetrash_syntax
:EQUD     closetrash_help
DEQUS     "Warning":EQUB 0
N	ALIGN
XEQUD     warning_code
bEQUB     1
lEQUB     %00000001
vEQUB     1
�EQUB     %00000000
�EQUD     warning_syntax
�EQUD     warning_help
�EQUS     "Immediate":EQUB 0
�	ALIGN
�EQUD     immediate_code
�EQUB     1
�EQUB     %00000001
�EQUB     1
�EQUB     %00000000
�EQUD     immediate_syntax
�EQUD     immediate_help
�EQUS     "Smooth":EQUB 0
	ALIGN
EQUD     animation_code
EQUB     1
 EQUB     %00000001
*EQUB     1
4EQUB     %00000000
>EQUD     animation_syntax
HEQUD     animation_help
R EQUS     "EmptyTrash":EQUB 0
\	ALIGN
fEQUD     emptytrash_code
pEQUB     0
zEQUB     %00000000
�EQUB     0
�EQUB     %00000000
�EQUD     emptytrash_syntax
�EQUD     emptytrash_help
�EQUS     "Trash":EQUB 0
�	ALIGN
�EQUD     trash_code
�EQUB     1
�EQUB     %00000001
�EQUB     1
�EQUB     %00000000
�EQUD     trash_syntax
�EQUD     trash_help
EQUD     0

.command_help
$�EQUS     "The TrashFS Filer provides the Trashcan icon on the icon bar and uses the Filer to display the contents of the Trashcan.":EQUB 10:EQUB 13
.HEQUS     "Do not use *Desktop_TrashFS, use *Desktop instead.":EQUB 0
8	ALIGN
B
L.command_syntax
V.EQUS     "Syntax: *Desktop_TrashFS":EQUB 0
`	ALIGN
j
t.command_code
~STMFD    R13!,{R0-R8,R14}
�MOV      R2,R0
�MOV      R0,#0
� SWI      "XWimp_ReadSysInfo"
�CMP      R0,#0
�ADREQ    R0,notindesktop
�SWIEQ    "OS_GenerateError"
�ADR      R1,title
�MOV      R0,#2
�SWI      "OS_Module"
�LDMFD    R13!,{R0-R8,PC}
�
�.notindesktop
EQUD     0

GEQUS     "You can only start the TrashFS Filer from Risc OS":EQUB 0
	ALIGN

(.initialise
2STMFD    R13!,{R0-R8,R14}
<MOV      R0,#6
FMOV      R3,#512
PSWI      "OS_Module"
ZSTRVC    R2,[R12]
dADRVS    R0,claim_error
nSWIVS    "OS_GenerateError"
xMOV      R1,R2
�MOV      R2,#512
�ADR      R0,trashfs_var
�SWI      "OS_ReadVarVal"
�MOV      R5,#0
�STRB     R5,[R1,R2]
�ADR      R0,trashfs_dir
�BL       copy
�MOV      R0,#&08
��adrl("AL",1,filev)
�MOV      R2,R12
�SWI      "OS_Claim"
�MOV      R0,#&0D
�adrl("AL",1,findv)
MOV      R2,R12
SWI      "OS_Claim"
"MOV      R0,#&0F
,�adrl("AL",1,fscontrolv)
6MOV      R2,R12
@SWI      "OS_Claim"
JLDMFD    R13!,{R0-R8,PC}
T
^.claim_error
hEQUD     0
r,EQUS     "RMA workspace failure!":EQUB 0
|	ALIGN
�
�
.finalise
�STMFD    R13!,{R0-R8,R14}
�BL       closedown
�MOV      R0,#&08
��adrl("AL",1,filev)
�MOV      R2,R12
�SWI      "OS_Release"
�MOV      R0,#&0D
��adrl("AL",1,findv)
�MOV      R2,R12
�SWI      "OS_Release"
�MOV      R0,#&0F
�adrl("AL",1,fscontrolv)
MOV      R2,R12
SWI      "OS_Release"
&MOV      R0,#7
0LDR      R2,[R12]
:SWI      "OS_Module"
DLDMFD    R13!,{R0-R8,PC}
N
X.service
bSTMFD    R13!,{R0-R8,R14}
lCMP      R1,#&49
vBEQ      start_wimp
�CMP      R1,#&4A
�BEQ      started_wimp
�CMP      R1,#&27
�BEQ      reset
�LDMFD    R13!,{R0-R8,PC}
�
�.start_wimp
�LDR      R0,task_handle
�CMP      R0,#0
�MVNEQ    R0,#� -1
�STREQ    R0,task_handle
�LDMFD    R13!,{R0-R8,R14}
�ADREQ    R0,command
�Q    R1,#0
MOV      PC,R14

 .started_wimp
*LDR      R0,task_handle
4CMN      R0,#1
>�Q    R0,#0
HSTREQ    R0,task_handle
RLDMFD    R13!,{R0-R8,PC}
\
f
.reset
pMOV      R0,#0
zSTR      R0,task_handle
�MOV      R0,#&08
��adrl("AL",1,filev)
�MOV      R2,R12
�SWI      "OS_Claim"
�MOV      R0,#&0D
��adrl("AL",1,findv)
�MOV      R2,R12
�SWI      "OS_Claim"
�MOV      R0,#&0F
��adrl("AL",1,fscontrolv)
�MOV      R2,R12
�SWI      "OS_Claim"
�LDMFD    R13!,{R0-R8,PC}
	
		.copy
	STMFD    R13!,{R14}
	$.copy_loop
	.LDRB     R2,[R1],#1
	8CMP      R2,#32
	BMOVLT    R2,#0
	LSTRB     R2,[R0],#1
	VBGE      copy_loop
	`LDMFD    R13!,{PC}
	j
	t.startup
	~LDR      R12,[R12]
	�ADD      R13,R12,#512
	�BL       closedown
	�MOV      R0,#200
	�LDR      R1,task_const
	�ADR      R2,title
	�SWI      "Wimp_Initialise"
	�LDMFD    R13!,{R14}
	�CMP      R0,#200
	�ADRLT    R0,wimpoutofdate
	�SWILT    "OS_GenerateError"
	�STRVC    R1,task_handle
	�BVC      startup2
MOV      PC,R14


.wimpoutofdate
EQUD     0
(5EQUS     "Wimp Manager version too early!":EQUB 0
2	ALIGN
<
F.task_const
PEQUS     "TASK"
Z.task_handle
dEQUD     0
n.trashfs_var
x&EQUS     "TrashFS$TrashDir":EQUB 0
�	ALIGN
�.trashfs_dir
�EQUS     �140,�0)
�	ALIGN
�.iconbar_hand
�EQUD     0
�.trash_open
�EQUD     0
�.borderisred
�EQUD     0
�
�
.startup2
�BL       canexists
BL       templates
BL       readcmos
ADR      R1,iconbar_empty
"ADR      R0,iconbar_ind
,BL       copy
6ADR      R1,iconbar_block
@ADR      R2,iconbar_null
JSTR      R2,iconbar_poke
TADR      R2,iconbar_ind
^STR      R2,iconbar_poke2
hSWI      "Wimp_CreateIcon"
rSTR      R0,iconbar_hand
|
�	.poll
�MOV      R0,#0
�MOV      R1,R12
�SWI      "Wimp_Poll"
�CMP      R0,#0
�BLEQ     null
�CMP      R0,#2
�SWIEQ    "Wimp_OpenWindow"
�CMP      R0,#6
�BLEQ     mouse
�CMP      R0,#9
�BLEQ     menusel
�CMP      R0,#17
BLEQ     message
CMP      R0,#18
BLEQ     message
&B        poll
0
:.iconbar_block
DEQUD     -2
NEQUD     0
XEQUD     0
bEQUD     68
lEQUD     68
v.EQUD     %00010111000000000011000100101011
�(.iconbar_poke      EQUD iconbar_null
�'.iconbar_poke2     EQUD iconbar_ind
�EQUD     6
�.iconbar_ind
�EQUS     �36,�0)
�	ALIGN
�.iconbar_empty
� EQUS     "S!trashfs1":EQUB 0
�	ALIGN
�.iconbar_full
� EQUS     "S!trashfs2":EQUB 0
�	ALIGN
�.iconbar_nearly

 EQUS     "S!trashfs3":EQUB 0

	ALIGN

.iconbar_notsonear

  EQUS     "S!trashfs4":EQUB 0

*	ALIGN

4.iconbar_null

>EQUB     0

H	ALIGN

R

\.menu_block

f�string12("TrashFS")

pEQUD     &70207

zEQUD     12*16

�EQUD     40

�EQUD     0

�EQUD     0

�.info_poke         EQUD 0

�EQUD     &07000021

��string12("Info")

�.warning_poke      EQUD 1

�EQUD     0

�EQUD     &07000021

��string12("Warning")

�.immediate_poke    EQUD 0

�EQUD     0

�EQUD     &07000021
�string12("Immediate")
.animate_poke      EQUD 1
EQUD     0
$EQUD     &07000021
.�string12("Smooth")
8EQUD     0
BEQUD     0
L-.empty_poke        EQUD &07000021 � 1<<22
V�string12("Empty Trash")
`EQUD     &80
j.quit_poke         EQUD 0
tEQUD     &07000021
~�string12("Quit")
�.quit_menu
��string12("Quit")
�EQUD     &70207
�EQUD     10*16
�EQUD     40
�EQUD     0
�EQUD     0
�EQUD     -1
�EQUD     &07000021
��string12("Temporary")
�EQUD     &80
�EQUD     -1
EQUD     &07000021

�string12("Permanent")

	.null
(STMFD    R13!,{R14}
2BL       transvar
<BL       border
FLDR      R0,newicon
PCMP      R0,#1
Z�Q    R0,#0
dSTREQ    R0,newicon
nBLEQ     updateicon
xLDMFD    R13!,{PC}
�
�.newicon
�EQUD     1
�
�.message
�STMFD    R13!,{R14}
�LDR      R0,[R1,#16]
�CMP      R0,#0
�BLEQ     closedown
�CMP      R0,#1
�BLEQ     datasave
�CMP      R0,#3
��Q    R11,#1
BLEQ     trash
LDMFD    R13!,{PC}

".closedown
,STMFD    R13!,{R14}
6LDR      R0,task_handle
@CMP      R0,#0
JLDMLEFD  R13!,{PC}
TBL       closeviewer
^LDR      R0,task_handle
hLDR      R1,task_const
rSWI      "Wimp_CloseDown"
|MOV      R0,#0
�STR      R0,task_handle
�LDMFD    R13!,{PC}
�
�.closeviewer
�STMFD    R13!,{R14}
�LDR      R0,trash_open
�CMP      R0,#1
�LDMNEFD  R13!,{PC}
�MOV      R0,#161
�MOV      R1,#cmos%
�SWI      "OS_Byte"
��      R2,R2,#1<<1
�CMP      R2,#0
LDMNEFD  R13!,{PC}
�adrl("AL",0,filer_poke)
 �adrl("AL",1,filer_closedir)
&BL       copy
0ADR      R1,trashfs_dir
:SUB      R0,R0,#1
DBL       copy
N�adrl("AL",0,filer_poke)
XSWI      "XWimp_StartTask"
bMOV      R0,#0
lSTR      R0,trash_open
vLDMFD    R13!,{PC}
�
�
.datasave
�STMFD    R13!,{R14}
�MVN      R0,#� -1
�STR      R0,[R1,#36]
�STR      R1,oldR1
�ADD      R1,R1,#44
��adrl("AL",0,workspc)
�BL       copy
�LDR      R1,oldR1
�ADD      R0,R1,#44
�ADR      R1,trashfs_dir
�BL       copy
SUB      R0,R0,#1
MOV      R5,#�"."
STR      R5,[R0],#1
 �adrl("AL",1,workspc)
*BL       copy
4LDR      R1,oldR1
>LDR      R0,[R1,#8]
HSTR      R0,[R1,#12]
RMOV      R0,#2
\STR      R0,[R1,#16]
fMOV      R0,#17
pLDR      R2,[R1,#4]
zMOV      R9,#0
�ADD      R10,R1,#44
�.end_of_string
�LDRB     R11,[R10],#1
�ADD      R9,R9,#1
�CMP      R11,#32
�BGE      end_of_string
�LDR      R11,not_3
�ADD      R9,R9,#48
��      R9,R9,R11
�STR      R9,[R1,#0]
�SWI      "Wimp_SendMessage"
�LDMFD    R13!,{PC}
�

.not_3
EQUD     (� 3)

$
.mouse
.STMFD    R13!,{R14}
8LDR      R7,[R1,#0]
BLDR      R8,[R1,#4]
LLDR      R9,[R1,#8]
VLDR      R10,[R1,#12]
`LDR      R11,[R1,#16]
jCMP      R9,#1
tBEQ      adjust
~CMP      R9,#2
�BEQ      menu
�CMP      R9,#4
�BEQ      select
�LDMFD    R13!,{PC}
�
�	.menu
�CMN      R10,#2
�LDMNEFD  R13!,{PC}
�ADR      R1,menu_block
�ADR      R2,quit_menu
�STR      R2,quit_poke
�SUB      R2,R7,#64
MOV      R3,#352

SWI      "Wimp_CreateMenu"
LDMFD    R13!,{PC}
.select
(CMN      R10,#2
2LDMNEFD  R13!,{PC}
<MOV      R0,#161
FMOV      R1,#cmos%
PSWI      "OS_Byte"
Z�      R2,R2,#1<<1
dCMP      R2,#0
nLDMNEFD  R13!,{PC}
xBL       canexists
�ADR      R0,filer_poke
�ADR      R1,filer_opendir
�BL       copy
��adrl("AL",1,trashfs_dir)
�SUB      R0,R0,#1
�BL       copy
�ADR      R0,filer_poke
�SWI      "XWimp_StartTask"
�MOV      R0,#1
�STR      R0,trash_open
�LDMFD    R13!,{PC}
�.adjust
�CMN      R10,#2
LDMNEFD  R13!,{PC}
MOV      R0,#161
MOV      R1,#cmos%
"SWI      "OS_Byte"
,�      R2,R2,#1<<1
6CMP      R2,#0
@LDMNEFD  R13!,{PC}
JBL       canexists
TADR      R0,filer_poke
^ADR      R1,filer_closedir
hBL       copy
r�adrl("AL",1,trashfs_dir)
|SUB      R0,R0,#1
�BL       copy
�ADR      R0,filer_poke
�SWI      "XWimp_StartTask"
�MOV      R0,#0
�STR      R0,trash_open
�LDMFD    R13!,{PC}
�
�.filer_opendir
�$EQUS     "Filer_OpenDir ":EQUB 0
�.filer_closedir
�%EQUS     "Filer_CloseDir ":EQUB 0
�$.filer_poke        EQUS �155,�0)
�	ALIGN

.border
STMFD    R13!,{R14}
&LDR      R0,warning_poke
0CMP      R0,#1
:LDMNEFD  R13!,{PC}
D�adrl("AL",1,workspc)
N"SWI      "Wimp_GetPointerInfo"
XLDR      R7,[R1,#8]
bLDR      R8,[R1,#12]
lLDR      R9,[R1,#16]
vCMN      R8,#2
�LDREQ    R10,iconbar_hand
�CMPEQ    R9,R10
�BEQ      maybedrag
�CMP      R9,#&07
�BEQ      maybeimmediate
�CMP      R9,#&0D
�BNE      maybegrey
�
.maybered
�STR      R8,[R1,#0]
�STR      R9,[R1,#4]
� SWI      "Wimp_GetIconState"
�ADD      R8,R1,#28
�ADR      R9,menu_item
BL       compare
CMP      R4,#3
LDMNEFD  R13!,{PC}
 LDR      R0,borderisred
*CMP      R0,#1
4LDMEQFD  R13!,{PC}
>�adrl("AL",1,workspc)
HSWI      "Wimp_ReadPalette"
RLDR      R0,[R1,#64]
\STR      R0,oldpal
fMOV      R0,#&F000
pSTR      R0,[R1,#64]
zMOV      R0,#19
�SWI      "OS_Byte"
��adrl("AL",1,workspc)
�SWI      "Wimp_SetPalette"
�MOV      R0,#1
�STR      R0,borderisred
�LDMFD    R13!,{PC}
�.maybeimmediate
�BL       updateicon
�CMP      R10,#0
�BEQ      maybegrey
�STR      R8,[R1,#0]
�STR      R9,[R1,#4]
� SWI      "Wimp_GetIconState"
ADD      R8,R1,#28
ADR      R9,menu_item2
BL       compare
$CMP      R4,#3
.LDMNEFD  R13!,{PC}
8LDR      R0,borderisred
BCMP      R0,#1
LLDMEQFD  R13!,{PC}
V�adrl("AL",1,workspc)
`SWI      "Wimp_ReadPalette"
jLDR      R0,[R1,#64]
tSTR      R0,oldpal
~MOV      R0,#&F000
�STR      R0,[R1,#64]
�MOV      R0,#19
�SWI      "OS_Byte"
��adrl("AL",1,workspc)
�SWI      "Wimp_SetPalette"
�MOV      R0,#1
�STR      R0,borderisred
�LDMFD    R13!,{PC}
�.maybegrey
�LDR      R0,borderisred
�CMP      R0,#0
�LDMEQFD  R13!,{PC}
�adrl("AL",1,workspc)

SWI      "Wimp_ReadPalette"
LDR      R0,oldpal
STR      R0,[R1,#64]
(MOV      R0,#19
2SWI      "OS_Byte"
<�adrl("AL",1,workspc)
FSWI      "Wimp_SetPalette"
PMOV      R0,#0
ZSTR      R0,borderisred
dLDMFD    R13!,{PC}
n.maybedrag
xCMP      R7,#4
�CMPNE    R7,#1
�BNE      maybegrey
�LDR      R0,immediate_poke
�CMP      R0,#1
�LDMNEFD  R13!,{PC}
�LDR      R0,borderisred
�CMP      R0,#1
�LDMEQFD  R13!,{PC}
��adrl("AL",1,workspc)
�SWI      "Wimp_ReadPalette"
�LDR      R0,[R1,#64]
�STR      R0,oldpal
�MOV      R0,#&F000
STR      R0,[R1,#64]
MOV      R0,#19
SWI      "OS_Byte"
"�adrl("AL",1,workspc)
,SWI      "Wimp_SetPalette"
6MOV      R0,#1
@STR      R0,borderisred
JLDMFD    R13!,{PC}
T
^.menu_item
h!EQUS     "Empty Trash":EQUB 0
r.menu_item2
|EQUS     "Immediate":EQUB 0
�	ALIGN
�
�.compare
�STMFD    R13!,{R14}
�MOV      R4,#0
�
.compchar
�LDRB     R10,[R8],#1
�LDRB     R11,[R9],#1
�CMP      R10,R11
�MOVGT    R4,#1
�MOVLT    R4,#2
�BNE      compdone
�CMP      R10,#32
ADDLT    R4,R4,#2
CMP      R11,#32
ADDLT    R4,R4,#1
&CMP      R4,#0
0BEQ      compchar
:
.compdone
DLDMFD    R13!,{PC}
N
X.menusel
bSTMFD    R13!,{R14}
lSTR      R1,oldR1
v�adrl("AL",1,workspc)
�"SWI      "Wimp_GetPointerInfo"
�LDR      R9,[R1,#0]
�LDR      R10,[R1,#4]
�LDR      R11,[R1,#8]
��      R11,R11,#1
�LDR      R1,oldR1
�LDR      R0,[R1,#0]
�CMP      R0,#1
�BEQ      warningtog
�CMP      R0,#2
�BEQ      immediatetog
�CMP      R0,#3
�BEQ      animatetog
CMP      R0,#4
BEQ      empty
CMP      R0,#5
 BEQ      quit
*CMP      R11,#0
4�adrl("NE",1,menu_block)
>MOVNE    R2,R9
HMOVNE    R3,R10
RSWINE    "Wimp_CreateMenu"
\LDMFD    R13!,{PC}
f	.quit
pLDR      R0,[R1,#4]
zCMP      R0,#0
�BNE      permanent
�BLEQ     closedown
�CMP      R11,#0
��adrl("NE",1,menu_block)
�MOVNE    R2,R9
�MOVNE    R3,R10
�SWINE    "Wimp_CreateMenu"
�LDMFD    R13!,{PC}
�.permanent
�BLEQ     closedown
�MOV      R0,#4
��adrl("AL",1,title)
�SWI      "OS_Module"
CMP      R11,#0
�adrl("NE",1,menu_block)
MOVNE    R2,R9
$MOVNE    R3,R10
.SWINE    "Wimp_CreateMenu"
8LDMFD    R13!,{PC}
B
.empty
LMOV      R0,#100
VSWI      "XHourglass_Start"
`ADR      R0,fs_buff
j�adrl("AL",1,trashfs_dir)
tBL       copy
~SUB      R0,R0,#1
�MOV      R1,#�"."
�STRB     R1,[R0],#1
�MOV      R1,#�"*"
�STRB     R1,[R0],#1
�MOV      R1,#0
�STRB     R1,[R0]
�MOV      R0,#&1B
�ADR      R1,fs_buff
�LDR      R3,flags2
�SWI      "XOS_FSControl"
�ADRVS    R0,wipe_error
�BVS      error
CMP      R11,#0

�adrl("NE",1,menu_block)
MOVNE    R2,R9
MOVNE    R3,R10
(SWINE    "Wimp_CreateMenu"
2SWI      "XHourglass_Off"
<LDMFD    R13!,{PC}
F.warningtog
PLDR      R0,warning_poke
Z�      R0,R0,#1
dSTR      R0,warning_poke
nBL       writecmos
xCMP      R11,#0
��adrl("NE",1,menu_block)
�MOVNE    R2,R9
�MOVNE    R3,R10
�SWINE    "Wimp_CreateMenu"
�LDMFD    R13!,{PC}
�.immediatetog
�LDR      R0,immediate_poke
��      R0,R0,#1
�STR      R0,immediate_poke
�BL       writecmos
�BL       updateicon
�CMP      R10,#1
�LDREQ    R10,immediate_poke
CMPEQ    R10,#1
BEQ      empty
CMP      R11,#0
"�adrl("NE",1,menu_block)
,MOVNE    R2,R9
6MOVNE    R3,R10
@SWINE    "Wimp_CreateMenu"
JLDMFD    R13!,{PC}
T.animatetog
^LDR      R0,animate_poke
h�      R0,R0,#1
rSTR      R0,animate_poke
|BL       writecmos
�CMP      R11,#0
��adrl("NE",1,menu_block)
�MOVNE    R2,R9
�MOVNE    R3,R10
�SWINE    "Wimp_CreateMenu"
�LDMFD    R13!,{PC}
�
�.flags2
�EQUD     %010000011
�
�.wipe_error
�EQUD     0
�,EQUS     "Cannot empty Trashcan!":EQUB 0
 	ALIGN
 
 .fs_buff
 &EQUS     �142,�0)
 0	ALIGN
 :
 D
.trash
 NSTMFD    R13!,{R14}
 XCMP      R11,#1
 bBNE      skip3
 lLDR      R0,[R1,#8]
 vSTR      R0,[R1,#12]
 �MOV      R0,#4
 �STR      R0,[R1,#16]
 �MOV      R0,#17
 �MOV      R2,#0
 �SWI      "Wimp_SendMessage"
 �
.skip3
 �BL       canexists
 �STMFD    R13!,{R0-R2}
 �MOV      R0,#&18
 �ADD      R1,R1,#44
 �ADR      R2,attributes
 �SWI      "XOS_FSControl"
 �LDMFD    R13!,{R0-R2}
!LDR      R9,immediate_poke
!CMP      R9,#1
!BEQ      immediate
! STMFD    R13!,{R0-R2}
!*MOV      R0,#100
!4SWI      "XHourglass_Start"
!>LDMFD    R13!,{R0-R2}
!HADD      R2,R1,#44
!R.get_end
!\LDRB     R3,[R2],#1
!fCMP      R3,#32
!pBGE      get_end
!zSUB      R2,R2,#1
!�.back_track
!�LDRB     R3,[R2],#-1
!�CMP      R3,#�"."
!�BNE      back_track
!�ADD      R2,R2,#1
!�STR      R1,oldR1
!��adrl("AL",1,trashfs_dir)
!�ADR      R0,trash_name
!�STMFD    R13!,{R2}
!�BL       copy
!�LDMFD    R13!,{R1}
!�SUB      R0,R0,#1
!�BL       copy
"MOV      R0,#&19
"LDR      R1,oldR1
"ADD      R1,R1,#44
"$ADR      R2,trash_name
".SWI      "XOS_FSControl"
"8BLVS     try_copy
"BSWI      "XHourglass_Off"
"LLDMFD    R13!,{PC}
"V
"`.attributes
"jEQUS     "WR":EQUB 0
"t	ALIGN
"~
"�.immediate
"�STR      R1,oldR1
"�MOV      R0,#100
"�SWI      "XHourglass_Start"
"�LDR      R1,oldR1
"�ADD      R1,R1,#44
"�MOV      R0,#&1B
"�LDR      R3,flags2
"�SWI      "XOS_FSControl"
"�ADRVS    R0,wipe_error2
"�BVS      error
"�SWI      "XHourglass_Off"
#LDMFD    R13!,{PC}
#

#.wipe_error2
#EQUD     0
#(4EQUS     "Immediate file deletion error!":EQUB 0
#2	ALIGN
#<
#F
.oldR1
#PEQUD     0
#Z.trash_name
#dEQUS     �140,�0)
#n	ALIGN
#x
#�
.try_copy
#�STMFD    R13!,{R14}
#�MOV      R0,#&1A
#�LDR      R1,oldR1
#�ADD      R1,R1,#44
#�ADR      R2,trash_name
#�LDR      R3,flags
#�SWI      "XOS_FSControl"
#�LDMVCFD  R13!,{PC}
#�ADR      R0,trash_fail
#�MOV      R1,#1
#��adrl("AL",2,title)
#�SWI      "Wimp_ReportError"
$LDMFD    R13!,{PC}
$
$
.flags
$"EQUD     %011000011
$,
$6.trash_fail
$@EQUD     0
$J(EQUS     "Cannot Trash file!":EQUB 0
$T	ALIGN
$^
$h.templates
$rSTMFD    R13!,{R14}
$|ADR      R1,temp_name
$�!SWI      "XWimp_OpenTemplate"
$�MOVVS    R0,#0
$�STRVS    R0,info_poke
$�ADRVS    R0,cant_open
$�BVS      error
$�MOV      R1,R12
$�ADR      R2,ind
$�ADD      R3,R2,#150
$�MVN      R4,#� -1
$�ADR      R5,info_name
$�MOV      R6,#0
$�!SWI      "XWimp_LoadTemplate"
$�MOVVS    R0,#0
%STRVS    R0,info_poke
%ADRVS    R0,cant_load
%BVS      error
%& SWI      "Wimp_CreateWindow"
%0STR      R0,info_poke
%:"SWI      "XWimp_CloseTemplate"
%DMOVVS    R0,#0
%NSTRVS    R0,info_poke
%XADRVS    R0,cant_close
%bBVS      error
%lLDR      R0,info_poke
%vSTR      R0,[R1]
%�MOV      R0,#4
%�STR      R0,[R1,#4]
%� SWI      "Wimp_GetIconState"
%�LDR      R0,[R1,#28]
%� ADR      R1,date_and_version
%�BL       copy
%�LDR      R0,info_poke
%�MOV      R1,R12
%�STR      R0,[R1,#0]
%�MOV      R0,#4
%�STR      R0,[R1,#4]
%�MOV      R0,#0
%�STR      R0,[R1,#8]
&STR      R0,[R1,#12]
& SWI      "Wimp_SetIconState"
&LDMFD    R13!,{PC}
& 
&*.date_and_version
&4*EQUS     "0.66 ("+��$,5,11)+")":EQUB 0
&>	ALIGN
&H
&R.temp_name
&\-EQUS     "<TrashFS$Dir>.Templates":EQUB 0
&f	ALIGN
&p
&z.info_name
&�EQUS     "info":EQUB 0
&�	ALIGN
&�
&�.ind
&�EQUS     �150,�0)
&�	ALIGN
&�
&�
.error
&�MOV      R1,#1
&��adrl("AL",2,title)
&�SWI      "Wimp_ReportError"
&�LDMFD    R13!,{PC}
&�
'.cant_open
'EQUD     0
';EQUS     "Can't open file 'Templates' for input":EQUB 0
'$	ALIGN
'.
'8.cant_load
'BEQUD     0
'L4EQUS     "Can't load template definition":EQUB 0
'V	ALIGN
'`
'j.cant_close
'tEQUD     0
'~2EQUS     "Can't close file 'Templates'":EQUB 0
'�	ALIGN
'�
'�
.filev
'�STMFD    R13!,{R0-R8,R14}
'�CMP      R0,#&00
'�CMPNE    R0,#&06
'�CMPNE    R0,#&07
'�CMPNE    R0,#&08
'�CMPNE    R0,#&0A
'�CMPNE    R0,#&0B
'�LDMNEFD  R13!,{R0-R8,PC}
'�MOV      R0,#1
(STR      R0,newicon
(
LDMFD    R13!,{R0-R8,PC}
(
(
.findv
((STMFD    R13!,{R0-R8,R14}
(2CMP      R0,#&80
(<CMPNE    R0,#&81
(FCMPNE    R0,#&82
(PCMPNE    R0,#&83
(ZCMPNE    R0,#&84
(dCMPNE    R0,#&88
(nCMPNE    R0,#&8C
(xLDMNEFD  R13!,{R0-R8,PC}
(�MOV      R0,#1
(�STR      R0,newicon
(�LDMFD    R13!,{R0-R8,PC}
(�
(�.fscontrolv
(�STMFD    R13!,{R0-R8,R14}
(�CMP      R0,#&19
(�CMPNE    R0,#&1A
(�CMPNE    R0,#&1B
(�LDMNEFD  R13!,{R0-R8,PC}
(�MOV      R0,#1
(�STR      R0,newicon
(�LDMFD    R13!,{R0-R8,PC}
)
).updateicon
)STMFD    R13!,{R14}
)"�adrl("AL",1,trashfs_dir)
),�adrl("AL",0,fs_buff)
)6BL       copy
)@SUB      R0,R0,#1
)JMOV      R1,#�"."
)TSTRB     R1,[R0],#1
)^MOV      R1,#�"*"
)hSTRB     R1,[R0],#1
)rMOV      R1,#0
)|STRB     R1,[R0]
)�MOV      R0,#5
)��adrl("AL",1,fs_buff)
)�SWI      "XOS_File"
)�CMP      R2,#0
)�BEQ      empty_can
)�LDR      R10,iconstate
)�CMP      R10,#1
)�LDMEQFD  R13!,{PC}
)�ADR      R1,workspc
)�MVN      R0,#� -2
)�STR      R0,[R1]
)�LDR      R0,iconbar_hand
)�STR      R0,[R1,#4]
* SWI      "Wimp_GetIconState"
*LDR      R10,animate_poke
*CMP      R10,#1
*&BNE      skip_anim
*0LDR      R0,[R1,#32]
*:#�adrl("AL",1,iconbar_notsonear)
*DBL       copy
*NADR      R1,workspc
*XMOV      R0,#0
*bSTR      R0,[R1,#8]
*lSTR      R0,[R1,#12]
*v SWI      "Wimp_SetIconState"
*�MOV      R0,#19
*�SWI      "OS_Byte"
*�SWI      "OS_Byte"
*�ADR      R1,workspc
*�LDR      R0,[R1,#32]
*� �adrl("AL",1,iconbar_nearly)
*�BL       copy
*�ADR      R1,workspc
*�MOV      R0,#0
*�STR      R0,[R1,#8]
*�STR      R0,[R1,#12]
*� SWI      "Wimp_SetIconState"
*�LDR      R0,[R1,#32]
+MOV      R0,#19
+SWI      "OS_Byte"
+SWI      "OS_Byte"
+ ADR      R1,workspc
+*.skip_anim
+4LDR      R0,[R1,#32]
+>�adrl("AL",1,iconbar_full)
+HBL       copy
+RADR      R1,workspc
+\MOV      R0,#0
+fSTR      R0,[R1,#8]
+pSTR      R0,[R1,#12]
+z SWI      "Wimp_SetIconState"
+�LDR      R0,empty_poke
+��      R2,R0,#(1<<22)
+�CMP      R2,#0
+��NE    R0,R0,#(1<<22)
+�STR      R0,empty_poke
+�MOV      R10,#1
+�STR      R10,iconstate
+�LDMFD    R13!,{PC}
+�.empty_can
+�LDR      R10,iconstate
+�CMP      R10,#0
+�LDMEQFD  R13!,{PC}
+�ADR      R1,workspc
,MVN      R0,#� -2
,STR      R0,[R1]
,LDR      R0,iconbar_hand
,$STR      R0,[R1,#4]
,. SWI      "Wimp_GetIconState"
,8LDR      R10,animate_poke
,BCMP      R10,#1
,LBNE      skip_anim2
,VLDR      R0,[R1,#32]
,` �adrl("AL",1,iconbar_nearly)
,jBL       copy
,tADR      R1,workspc
,~MOV      R0,#0
,�STR      R0,[R1,#8]
,�STR      R0,[R1,#12]
,� SWI      "Wimp_SetIconState"
,�MOV      R0,#19
,�SWI      "OS_Byte"
,�SWI      "OS_Byte"
,�ADR      R1,workspc
,�LDR      R0,[R1,#32]
,�#�adrl("AL",1,iconbar_notsonear)
,�BL       copy
,�ADR      R1,workspc
,�MOV      R0,#0
-STR      R0,[R1,#8]
-
STR      R0,[R1,#12]
- SWI      "Wimp_SetIconState"
-MOV      R0,#19
-(SWI      "OS_Byte"
-2SWI      "OS_Byte"
-<ADR      R1,workspc
-F.skip_anim2
-PLDR      R0,[R1,#32]
-Z�adrl("AL",1,iconbar_empty)
-dBL       copy
-nADR      R1,workspc
-xMOV      R0,#0
-�STR      R0,[R1,#8]
-�STR      R0,[R1,#12]
-� SWI      "Wimp_SetIconState"
-�LDR      R0,empty_poke
-��      R2,R0,#(1<<22)
-�CMP      R2,#0
-��EQ    R0,R0,#(1<<22)
-�STR      R0,empty_poke
-�MOV      R10,#0
-�STR      R10,iconstate
-�LDMFD    R13!,{PC}
-�
-�.iconstate
.EQUD     0
.
..workspc
."EQUS     �80,�0)
.,	ALIGN
.6
.@.oldpal
.JEQUD     0
.T
.^
.readcmos
.hSTMFD    R13!,{R14}
.rMOV      R0,#161
.|MOV      R1,#cmos%
.�SWI      "OS_Byte"
.��      R3,R2,#1<<0
.�CMP      R3,#0
.�MOVNE    R3,#1
.�STR      R3,warning_poke
.��      R3,R2,#1<<1
.�CMP      R3,#0
.�MOVNE    R3,#1
.�STR      R3,immediate_poke
.��      R3,R2,#1<<2
.�CMP      R3,#0
.�MOVNE    R3,#1
.�STR      R3,animate_poke
/LDMFD    R13!,{PC}
/
/.writecmos
/&STMFD    R13!,{R14}
/0MOV      R2,#0
/:LDR      R3,warning_poke
/DCMP      R3,#1
/N�REQ    R2,R2,#1<<0
/XLDR      R3,immediate_poke
/bCMP      R3,#1
/l�REQ    R2,R2,#1<<1
/vLDR      R3,animate_poke
/�CMP      R3,#1
/��REQ    R2,R2,#1<<2
/�MOV      R0,#162
/�MOV      R1,#cmos%
/�SWI      "OS_Byte"
/�LDMFD    R13!,{PC}
/�
/�.canexists
/�STMFD    R13!,{R0-R4,R14}
/�MOV      R0,#8
/��adrl("AL",1,trashfs_dir)
/�MOV      R4,#0
/�SWI      "XOS_File"
0LDMFD    R13!,{R0-R4,PC}
0
0
.transvar
0 STMFD    R13!,{R14}
0*MOV      R1,R12
04MOV      R2,#512
0>MOV      R3,#0
0HMOV      R4,#0
0R�adrl("AL",0,trashfs_var)
0\SWI      "XOS_ReadVarVal"
0fBVS      wotnovar
0pMOV      R5,#0
0zSTRB     R5,[R1,R2]
0��adrl("AL",0,trashfs_dir)
0�MOV      R1,R12
0�BL       copy
0�LDMFD    R13!,{PC}
0�
0�
.wotnovar
0�ADR      R0,novar
0�MOV      R1,#1
0��adrl("AL",2,title)
0�SWI      "Wimp_ReportError"
0�MOV      R0,#4
0��adrl("AL",1,title)
0�SWI      "OS_Module"
1LDMFD    R13!,{PC}
1
1
.novar
1$EQUD     0
1.2EQUS     "TrashFS$TrashDir is missing!":EQUB 0
18	ALIGN
1B
1L.opentrash_help
1VgEQUS     "*OpenTrash opens a filer viewer on the desktop to the Trashcan contents.":EQUB 10:EQUB 13
1`.opentrash_syntax
1j(EQUS     "Syntax: *OpenTrash":EQUB 0
1t	ALIGN
1~
1�.opentrash_code
1�STMFD    R13!,{R0-R8,R14}
1�MOV      R0,#161
1�MOV      R1,#cmos%
1�SWI      "OS_Byte"
1��      R2,R2,#1<<1
1�CMP      R2,#0
1�ADRNE    R0,immediate_on
1�SWINE    "OS_GenerateError"
1�BL       canexists
1��adrl("AL",1,filer_opendir)
1��adrl("AL",0,filer_poke)
2BL       copy
2
�adrl("AL",1,trashfs_dir)
2SUB      R0,R0,#1
2BL       copy
2(�adrl("AL",0,filer_poke)
22SWI      "XOS_CLI"
2<MOV      R0,#1
2F�adrl("AL",1,trash_open)
2PSTR      R0,[R1]
2ZLDMFD    R13!,{R0-R8,PC}
2d
2n.immediate_on
2xEQUD     0
2�AEQUS     "Invalid Trashcan operation in this context.":EQUB 0
2�	ALIGN
2�
2�.warning_help
2�NEQUS     "*Warning switches the Warning option on or off.":EQUB 10:EQUB 13
2�.warning_syntax
2�/EQUS     "Syntax: *Warning [on|off]":EQUB 0
2�	ALIGN
2�
2�.warning_code
2�STMFD    R13!,{R0-R8,R14}
2�LDRB     R2,[R0],#1
2��R      R2,R2,#&20
3CMP      R2,#�"o"
3BNE      badsyntax
3LDRB     R2,[R0],#1
3"�R      R2,R2,#&20
3,CMP      R2,#�"n"
36BEQ      warnon
3@CMP      R2,#�"f"
3JBNE      badsyntax
3TLDRB     R2,[R0],#1
3^�R      R2,R2,#&20
3hCMP      R2,#�"f"
3rBNE      badsyntax
3|B        warnoff
3�
3�.badsyntax
3�LDMFD    R13!,{R0-R8,R14}
3�ADR      R0,warning_syntax
3��RS     PC,R14,#1<<28
3�
3�.warnon
3�MOV      R0,#1
3��adrl("AL",1,warning_poke)
3�STR      R0,[R1]
3�BL       writecmos
3�LDMFD    R13!,{R0-R8,PC}
3�
4.warnoff
4MOV      R0,#0
4�adrl("AL",1,warning_poke)
4&STR      R0,[R1]
40BL       writecmos
4:LDMFD    R13!,{R0-R8,PC}
4D
4N.immediate_help
4XREQUS     "*Immediate switches the Immediate option on or off.":EQUB 10:EQUB 13
4b.immediate_syntax
4l1EQUS     "Syntax: *Immediate [on|off]":EQUB 0
4v	ALIGN
4�
4�.immediate_code
4�STMFD    R13!,{R0-R8,R14}
4�LDRB     R2,[R0],#1
4��R      R2,R2,#&20
4�CMP      R2,#�"o"
4�BNE      badsyntax2
4�LDRB     R2,[R0],#1
4��R      R2,R2,#&20
4�CMP      R2,#�"n"
4�BEQ      immediateon
4�CMP      R2,#�"f"
4�BNE      badsyntax2
5LDRB     R2,[R0],#1
5�R      R2,R2,#&20
5CMP      R2,#�"f"
5 BNE      badsyntax2
5*B        immediateoff
54
5>.badsyntax2
5HLDMFD    R13!,{R0-R8,R14}
5R ADR      R0,immediate_syntax
5\�RS     PC,R14,#1<<28
5f
5p.immediateon
5zMOV      R0,#1
5� �adrl("AL",1,immediate_poke)
5�STR      R0,[R1]
5�BL       writecmos
5�LDMFD    R13!,{R0-R8,PC}
5�
5�.immediateoff
5�MOV      R0,#0
5� �adrl("AL",1,immediate_poke)
5�STR      R0,[R1]
5�BL       writecmos
5�LDMFD    R13!,{R0-R8,PC}
5�
5�.emptytrash_help
6PEQUS     "*EmptyTrash removes the contents of the Trashcan.":EQUB 10:EQUB 13
6.emptytrash_syntax
6)EQUS     "Syntax: *EmptyTrash":EQUB 0
6$	ALIGN
6.
68.emptytrash_code
6BSTMFD    R13!,{R14}
6LMOV      R11,#0
6VB        empty
6`
6j.trash_help
6t\EQUS     "*Trash <objspec> copies the specified file into the Trashcan.":EQUB 10:EQUB 13
6~.trash_syntax
6�.EQUS     "Syntax: *Trash <objspec>":EQUB 0
6�	ALIGN
6�
6�.trash_code
6�STMFD    R13!,{R0-R8,R14}
6��adrl("AL",10,workspc)
6�MOV      R1,R0
6�ADD      R0,R10,#44
6�BL       copy
6�MOV      R11,#0
6�MOV      R1,R10
6�BL       trash
7LDMFD    R13!,{R0-R8,PC}
7

7.animation_help
7qEQUS     "*Smooth switches the smooth transition of the Trashcan from thin to fat on or off.":EQUB 10:EQUB 13
7(.animation_syntax
72.EQUS     "Syntax: *Smooth [on|off]":EQUB 0
7<	ALIGN
7F
7P.animation_code
7ZSTMFD    R13!,{R0-R8,R14}
7dLDRB     R2,[R0],#1
7n�R      R2,R2,#&20
7xCMP      R2,#�"o"
7�BNE      badsyntax3
7�LDRB     R2,[R0],#1
7��R      R2,R2,#&20
7�CMP      R2,#�"n"
7�BEQ      animationon
7�CMP      R2,#�"f"
7�BNE      badsyntax3
7�LDRB     R2,[R0],#1
7��R      R2,R2,#&20
7�CMP      R2,#�"f"
7�BNE      badsyntax3
7�B        animationoff
7�
8.badsyntax3
8LDMFD    R13!,{R0-R8,R14}
8 ADR      R0,animation_syntax
8"�RS     PC,R14,#1<<28
8,
86.animationon
8@MOV      R0,#1
8J�adrl("AL",1,animate_poke)
8TSTR      R0,[R1]
8^BL       writecmos
8hLDMFD    R13!,{R0-R8,PC}
8r
8|.animationoff
8�MOV      R0,#0
8��adrl("AL",1,animate_poke)
8�STR      R0,[R1]
8�BL       writecmos
8�LDMFD    R13!,{R0-R8,PC}
8�
8�.closetrash_help
8�MEQUS     "*CloseTrash close the Desktop Trashcan viewer.":EQUB 10:EQUB 13
8�.closetrash_syntax
8�)EQUS     "Syntax: *CloseTrash":EQUB 0
8�	ALIGN
8�
8�.closetrash_code
9STMFD    R13!,{R0-R8,R14}
9MOV      R0,#161
9MOV      R1,#cmos%
9&SWI      "OS_Byte"
90�      R2,R2,#1<<1
9:CMP      R2,#0
9DADRNE    R0,immediate_on
9NSWINE    "OS_GenerateError"
9XBL       canexists
9b �adrl("AL",1,filer_closedir)
9l�adrl("AL",0,filer_poke)
9vBL       copy
9��adrl("AL",1,trashfs_dir)
9�SUB      R0,R0,#1
9�BL       copy
9��adrl("AL",0,filer_poke)
9�SWI      "XOS_CLI"
9�MOV      R0,#0
9��adrl("AL",1,trash_open)
9�STR      R0,[R1]
9�LDMFD    R13!,{R0-R8,PC}
9�
9�]
9�� pass%
9�
:Bș "OS_File",10,"<TrashFS$Dir>.!RunImage",&FFA,,code%,code%+P%
:�
:
: � �string12(text$)
:*[
:4
OPT pass%
:>EQUS text$+�12-�text$,�0)
:H]
:R=0
:\
:f� �adrl(c$,r%,addr%)
:p0� c%,df%,byte_lo%,byte_hi%,opcode1%,opcode2%
:z2� addr%=P% � (pass% � � 12)=0 � P%+=8:O%+=8:=0
:�e� �(addr%-P%)<256 �error("ADRL failed: Address within range when setting R"+�r%+" to "+�addr%,-1)
:�h� �(addr%-P%)>65535 �error("ADRL failed: Address outside range when setting R"+�r%+" to "+�addr%,-1)
:�� c$=" " � c$="" c$="AL"
:�.c%=�"EQNECSCCMIPLVSVCHILSGELTGTLEALNV",c$)
:�w� c%=0 �error("ADRL failed: ARM condition code not recognized when setting R"+�r%+" to "+�addr%,-1) � c%=(c%-1) � 2
:�df%=addr%-P%-8
:�byte_lo%=�(df%) � &FF
:�byte_hi%=�(df%) � &FF00
:�� df%>=0 �
:�3  opcode1%=(c%<<28)+&028F0000+(r%<<12)+byte_lo%
:�A  opcode2%=(c%<<28)+&02800C00+(r%<<16)+(r%<<12)+(byte_hi%>>8)
:��
:�3  opcode1%=(c%<<28)+&024F0000+(r%<<12)+byte_lo%
;A  opcode2%=(c%<<28)+&02400C00+(r%<<16)+(r%<<12)+(byte_hi%>>8)
;�
;,[OPT pass%:EQUD opcode1%:EQUD opcode2%:]
;$=0
�

00000000  0d 00 0a 1c f4 20 3e 20  3c 54 72 61 73 68 46 53  |..... > <TrashFS|
00000010  24 44 69 72 3e 2e 53 6f  75 72 63 65 0d 00 14 21  |$Dir>.Source...!|
00000020  f4 20 53 6f 75 72 63 65  20 63 6f 64 65 20 66 6f  |. Source code fo|
00000030  72 20 54 72 61 73 68 20  46 69 6c 65 72 0d 00 1e  |r Trash Filer...|
00000040  1b f4 20 a9 20 44 61 76  69 64 20 4a 2e 20 53 65  |.. . David J. Se|
00000050  65 72 79 20 31 39 39 33  0d 00 28 04 0d 00 32 1d  |ery 1993..(...2.|
00000060  ee 20 85 20 f1 20 f6 24  2b 22 20 61 74 20 6c 69  |. . . .$+" at li|
00000070  6e 65 20 22 2b c3 9e 3a  e0 0d 00 3c 2d de 20 63  |ne "+..:...<-. c|
00000080  6f 64 65 25 20 26 32 30  30 30 3a f4 20 50 6c 65  |ode% &2000:. Ple|
00000090  6e 74 79 20 6f 66 20 61  73 73 65 6d 62 6c 79 20  |nty of assembly |
000000a0  73 70 61 63 65 21 0d 00  46 38 63 6d 6f 73 25 3d  |space!..F8cmos%=|
000000b0  34 30 3a f4 20 43 68 61  6e 67 65 20 69 66 20 63  |40:. Change if c|
000000c0  6f 6e 66 6c 69 63 74 69  6e 67 20 77 69 74 68 20  |onflicting with |
000000d0  73 6f 6d 65 74 68 69 6e  67 20 65 6c 73 65 0d 00  |something else..|
000000e0  50 17 e3 20 70 61 73 73  25 3d 31 32 20 b8 20 31  |P.. pass%=12 . 1|
000000f0  35 20 88 20 32 0d 00 5a  20 50 25 3d 30 3a 4f 25  |5 . 2..Z P%=0:O%|
00000100  3d 63 6f 64 65 25 3a 4c  25 3d 63 6f 64 65 25 2b  |=code%:L%=code%+|
00000110  26 32 30 30 30 0d 00 64  05 5b 0d 00 6e 0d 4f 50  |&2000..d.[..n.OP|
00000120  54 20 70 61 73 73 25 0d  00 78 04 0d 00 82 14 45  |T pass%..x.....E|
00000130  51 55 44 20 20 20 20 20  73 74 61 72 74 75 70 0d  |QUD     startup.|
00000140  00 8c 17 45 51 55 44 20  20 20 20 20 69 6e 69 74  |...EQUD     init|
00000150  69 61 6c 69 73 65 0d 00  96 15 45 51 55 44 20 20  |ialise....EQUD  |
00000160  20 20 20 66 69 6e 61 6c  69 73 65 0d 00 a0 14 45  |   finalise....E|
00000170  51 55 44 20 20 20 20 20  73 65 72 76 69 63 65 0d  |QUD     service.|
00000180  00 aa 12 45 51 55 44 20  20 20 20 20 74 69 74 6c  |...EQUD     titl|
00000190  65 0d 00 b4 11 45 51 55  44 20 20 20 20 20 68 65  |e....EQUD     he|
000001a0  6c 70 0d 00 be 14 45 51  55 44 20 20 20 20 20 63  |lp....EQUD     c|
000001b0  6f 6d 6d 61 6e 64 0d 00  c8 0e 45 51 55 44 20 20  |ommand....EQUD  |
000001c0  20 20 20 30 0d 00 d2 04  0d 00 dc 0a 2e 74 69 74  |   0.........tit|
000001d0  6c 65 0d 00 e6 1d 45 51  55 53 20 20 20 20 20 22  |le....EQUS     "|
000001e0  54 72 61 73 68 46 53 22  3a 45 51 55 42 20 30 0d  |TrashFS":EQUB 0.|
000001f0  00 f0 09 41 4c 49 47 4e  0d 00 fa 04 0d 01 04 09  |...ALIGN........|
00000200  2e 68 65 6c 70 0d 01 0e  3a 45 51 55 53 20 20 20  |.help...:EQUS   |
00000210  20 20 22 54 72 61 73 68  46 53 22 2b bd 39 2b bd  |  "TrashFS"+.9+.|
00000220  39 2b 22 30 2e 36 36 20  28 22 2b c1 91 24 2c 35  |9+"0.66 ("+..$,5|
00000230  2c 31 31 29 2b 22 29 22  3a 45 51 55 42 20 30 0d  |,11)+")":EQUB 0.|
00000240  01 18 09 41 4c 49 47 4e  0d 01 22 04 0d 01 2c 0c  |...ALIGN.."...,.|
00000250  2e 63 6f 6d 6d 61 6e 64  0d 01 36 25 45 51 55 53  |.command..6%EQUS|
00000260  20 20 20 20 20 22 44 65  73 6b 74 6f 70 5f 54 72  |     "Desktop_Tr|
00000270  61 73 68 46 53 22 3a 45  51 55 42 20 30 0d 01 40  |ashFS":EQUB 0..@|
00000280  09 41 4c 49 47 4e 0d 01  4a 19 45 51 55 44 20 20  |.ALIGN..J.EQUD  |
00000290  20 20 20 63 6f 6d 6d 61  6e 64 5f 63 6f 64 65 0d  |   command_code.|
000002a0  01 54 0e 45 51 55 42 20  20 20 20 20 30 0d 01 5e  |.T.EQUB     0..^|
000002b0  16 45 51 55 42 20 20 20  20 20 25 30 30 30 30 30  |.EQUB     %00000|
000002c0  30 30 30 0d 01 68 0e 45  51 55 42 20 20 20 20 20  |000..h.EQUB     |
000002d0  30 0d 01 72 16 45 51 55  42 20 20 20 20 20 25 30  |0..r.EQUB     %0|
000002e0  30 30 30 30 30 30 30 0d  01 7c 1b 45 51 55 44 20  |0000000..|.EQUD |
000002f0  20 20 20 20 63 6f 6d 6d  61 6e 64 5f 73 79 6e 74  |    command_synt|
00000300  61 78 0d 01 86 19 45 51  55 44 20 20 20 20 20 63  |ax....EQUD     c|
00000310  6f 6d 6d 61 6e 64 5f 68  65 6c 70 0d 01 90 1f 45  |ommand_help....E|
00000320  51 55 53 20 20 20 20 20  22 4f 70 65 6e 54 72 61  |QUS     "OpenTra|
00000330  73 68 22 3a 45 51 55 42  20 30 0d 01 9a 09 41 4c  |sh":EQUB 0....AL|
00000340  49 47 4e 0d 01 a4 1b 45  51 55 44 20 20 20 20 20  |IGN....EQUD     |
00000350  6f 70 65 6e 74 72 61 73  68 5f 63 6f 64 65 0d 01  |opentrash_code..|
00000360  ae 0e 45 51 55 42 20 20  20 20 20 30 0d 01 b8 16  |..EQUB     0....|
00000370  45 51 55 42 20 20 20 20  20 25 30 30 30 30 30 30  |EQUB     %000000|
00000380  30 30 0d 01 c2 0e 45 51  55 42 20 20 20 20 20 30  |00....EQUB     0|
00000390  0d 01 cc 16 45 51 55 42  20 20 20 20 20 25 30 30  |....EQUB     %00|
000003a0  30 30 30 30 30 30 0d 01  d6 1d 45 51 55 44 20 20  |000000....EQUD  |
000003b0  20 20 20 6f 70 65 6e 74  72 61 73 68 5f 73 79 6e  |   opentrash_syn|
000003c0  74 61 78 0d 01 e0 1b 45  51 55 44 20 20 20 20 20  |tax....EQUD     |
000003d0  6f 70 65 6e 74 72 61 73  68 5f 68 65 6c 70 0d 01  |opentrash_help..|
000003e0  ea 20 45 51 55 53 20 20  20 20 20 22 43 6c 6f 73  |. EQUS     "Clos|
000003f0  65 54 72 61 73 68 22 3a  45 51 55 42 20 30 0d 01  |eTrash":EQUB 0..|
00000400  f4 09 41 4c 49 47 4e 0d  01 fe 1c 45 51 55 44 20  |..ALIGN....EQUD |
00000410  20 20 20 20 63 6c 6f 73  65 74 72 61 73 68 5f 63  |    closetrash_c|
00000420  6f 64 65 0d 02 08 0e 45  51 55 42 20 20 20 20 20  |ode....EQUB     |
00000430  30 0d 02 12 16 45 51 55  42 20 20 20 20 20 25 30  |0....EQUB     %0|
00000440  30 30 30 30 30 30 30 0d  02 1c 0e 45 51 55 42 20  |0000000....EQUB |
00000450  20 20 20 20 30 0d 02 26  16 45 51 55 42 20 20 20  |    0..&.EQUB   |
00000460  20 20 25 30 30 30 30 30  30 30 30 0d 02 30 1e 45  |  %00000000..0.E|
00000470  51 55 44 20 20 20 20 20  63 6c 6f 73 65 74 72 61  |QUD     closetra|
00000480  73 68 5f 73 79 6e 74 61  78 0d 02 3a 1c 45 51 55  |sh_syntax..:.EQU|
00000490  44 20 20 20 20 20 63 6c  6f 73 65 74 72 61 73 68  |D     closetrash|
000004a0  5f 68 65 6c 70 0d 02 44  1d 45 51 55 53 20 20 20  |_help..D.EQUS   |
000004b0  20 20 22 57 61 72 6e 69  6e 67 22 3a 45 51 55 42  |  "Warning":EQUB|
000004c0  20 30 0d 02 4e 09 41 4c  49 47 4e 0d 02 58 19 45  | 0..N.ALIGN..X.E|
000004d0  51 55 44 20 20 20 20 20  77 61 72 6e 69 6e 67 5f  |QUD     warning_|
000004e0  63 6f 64 65 0d 02 62 0e  45 51 55 42 20 20 20 20  |code..b.EQUB    |
000004f0  20 31 0d 02 6c 16 45 51  55 42 20 20 20 20 20 25  | 1..l.EQUB     %|
00000500  30 30 30 30 30 30 30 31  0d 02 76 0e 45 51 55 42  |00000001..v.EQUB|
00000510  20 20 20 20 20 31 0d 02  80 16 45 51 55 42 20 20  |     1....EQUB  |
00000520  20 20 20 25 30 30 30 30  30 30 30 30 0d 02 8a 1b  |   %00000000....|
00000530  45 51 55 44 20 20 20 20  20 77 61 72 6e 69 6e 67  |EQUD     warning|
00000540  5f 73 79 6e 74 61 78 0d  02 94 19 45 51 55 44 20  |_syntax....EQUD |
00000550  20 20 20 20 77 61 72 6e  69 6e 67 5f 68 65 6c 70  |    warning_help|
00000560  0d 02 9e 1f 45 51 55 53  20 20 20 20 20 22 49 6d  |....EQUS     "Im|
00000570  6d 65 64 69 61 74 65 22  3a 45 51 55 42 20 30 0d  |mediate":EQUB 0.|
00000580  02 a8 09 41 4c 49 47 4e  0d 02 b2 1b 45 51 55 44  |...ALIGN....EQUD|
00000590  20 20 20 20 20 69 6d 6d  65 64 69 61 74 65 5f 63  |     immediate_c|
000005a0  6f 64 65 0d 02 bc 0e 45  51 55 42 20 20 20 20 20  |ode....EQUB     |
000005b0  31 0d 02 c6 16 45 51 55  42 20 20 20 20 20 25 30  |1....EQUB     %0|
000005c0  30 30 30 30 30 30 31 0d  02 d0 0e 45 51 55 42 20  |0000001....EQUB |
000005d0  20 20 20 20 31 0d 02 da  16 45 51 55 42 20 20 20  |    1....EQUB   |
000005e0  20 20 25 30 30 30 30 30  30 30 30 0d 02 e4 1d 45  |  %00000000....E|
000005f0  51 55 44 20 20 20 20 20  69 6d 6d 65 64 69 61 74  |QUD     immediat|
00000600  65 5f 73 79 6e 74 61 78  0d 02 ee 1b 45 51 55 44  |e_syntax....EQUD|
00000610  20 20 20 20 20 69 6d 6d  65 64 69 61 74 65 5f 68  |     immediate_h|
00000620  65 6c 70 0d 02 f8 1c 45  51 55 53 20 20 20 20 20  |elp....EQUS     |
00000630  22 53 6d 6f 6f 74 68 22  3a 45 51 55 42 20 30 0d  |"Smooth":EQUB 0.|
00000640  03 02 09 41 4c 49 47 4e  0d 03 0c 1b 45 51 55 44  |...ALIGN....EQUD|
00000650  20 20 20 20 20 61 6e 69  6d 61 74 69 6f 6e 5f 63  |     animation_c|
00000660  6f 64 65 0d 03 16 0e 45  51 55 42 20 20 20 20 20  |ode....EQUB     |
00000670  31 0d 03 20 16 45 51 55  42 20 20 20 20 20 25 30  |1.. .EQUB     %0|
00000680  30 30 30 30 30 30 31 0d  03 2a 0e 45 51 55 42 20  |0000001..*.EQUB |
00000690  20 20 20 20 31 0d 03 34  16 45 51 55 42 20 20 20  |    1..4.EQUB   |
000006a0  20 20 25 30 30 30 30 30  30 30 30 0d 03 3e 1d 45  |  %00000000..>.E|
000006b0  51 55 44 20 20 20 20 20  61 6e 69 6d 61 74 69 6f  |QUD     animatio|
000006c0  6e 5f 73 79 6e 74 61 78  0d 03 48 1b 45 51 55 44  |n_syntax..H.EQUD|
000006d0  20 20 20 20 20 61 6e 69  6d 61 74 69 6f 6e 5f 68  |     animation_h|
000006e0  65 6c 70 0d 03 52 20 45  51 55 53 20 20 20 20 20  |elp..R EQUS     |
000006f0  22 45 6d 70 74 79 54 72  61 73 68 22 3a 45 51 55  |"EmptyTrash":EQU|
00000700  42 20 30 0d 03 5c 09 41  4c 49 47 4e 0d 03 66 1c  |B 0..\.ALIGN..f.|
00000710  45 51 55 44 20 20 20 20  20 65 6d 70 74 79 74 72  |EQUD     emptytr|
00000720  61 73 68 5f 63 6f 64 65  0d 03 70 0e 45 51 55 42  |ash_code..p.EQUB|
00000730  20 20 20 20 20 30 0d 03  7a 16 45 51 55 42 20 20  |     0..z.EQUB  |
00000740  20 20 20 25 30 30 30 30  30 30 30 30 0d 03 84 0e  |   %00000000....|
00000750  45 51 55 42 20 20 20 20  20 30 0d 03 8e 16 45 51  |EQUB     0....EQ|
00000760  55 42 20 20 20 20 20 25  30 30 30 30 30 30 30 30  |UB     %00000000|
00000770  0d 03 98 1e 45 51 55 44  20 20 20 20 20 65 6d 70  |....EQUD     emp|
00000780  74 79 74 72 61 73 68 5f  73 79 6e 74 61 78 0d 03  |tytrash_syntax..|
00000790  a2 1c 45 51 55 44 20 20  20 20 20 65 6d 70 74 79  |..EQUD     empty|
000007a0  74 72 61 73 68 5f 68 65  6c 70 0d 03 ac 1b 45 51  |trash_help....EQ|
000007b0  55 53 20 20 20 20 20 22  54 72 61 73 68 22 3a 45  |US     "Trash":E|
000007c0  51 55 42 20 30 0d 03 b6  09 41 4c 49 47 4e 0d 03  |QUB 0....ALIGN..|
000007d0  c0 17 45 51 55 44 20 20  20 20 20 74 72 61 73 68  |..EQUD     trash|
000007e0  5f 63 6f 64 65 0d 03 ca  0e 45 51 55 42 20 20 20  |_code....EQUB   |
000007f0  20 20 31 0d 03 d4 16 45  51 55 42 20 20 20 20 20  |  1....EQUB     |
00000800  25 30 30 30 30 30 30 30  31 0d 03 de 0e 45 51 55  |%00000001....EQU|
00000810  42 20 20 20 20 20 31 0d  03 e8 16 45 51 55 42 20  |B     1....EQUB |
00000820  20 20 20 20 25 30 30 30  30 30 30 30 30 0d 03 f2  |    %00000000...|
00000830  19 45 51 55 44 20 20 20  20 20 74 72 61 73 68 5f  |.EQUD     trash_|
00000840  73 79 6e 74 61 78 0d 03  fc 17 45 51 55 44 20 20  |syntax....EQUD  |
00000850  20 20 20 74 72 61 73 68  5f 68 65 6c 70 0d 04 06  |   trash_help...|
00000860  0e 45 51 55 44 20 20 20  20 20 30 0d 04 10 04 0d  |.EQUD     0.....|
00000870  04 1a 11 2e 63 6f 6d 6d  61 6e 64 5f 68 65 6c 70  |....command_help|
00000880  0d 04 24 97 45 51 55 53  20 20 20 20 20 22 54 68  |..$.EQUS     "Th|
00000890  65 20 54 72 61 73 68 46  53 20 46 69 6c 65 72 20  |e TrashFS Filer |
000008a0  70 72 6f 76 69 64 65 73  20 74 68 65 20 54 72 61  |provides the Tra|
000008b0  73 68 63 61 6e 20 69 63  6f 6e 20 6f 6e 20 74 68  |shcan icon on th|
000008c0  65 20 69 63 6f 6e 20 62  61 72 20 61 6e 64 20 75  |e icon bar and u|
000008d0  73 65 73 20 74 68 65 20  46 69 6c 65 72 20 74 6f  |ses the Filer to|
000008e0  20 64 69 73 70 6c 61 79  20 74 68 65 20 63 6f 6e  | display the con|
000008f0  74 65 6e 74 73 20 6f 66  20 74 68 65 20 54 72 61  |tents of the Tra|
00000900  73 68 63 61 6e 2e 22 3a  45 51 55 42 20 31 30 3a  |shcan.":EQUB 10:|
00000910  45 51 55 42 20 31 33 0d  04 2e 48 45 51 55 53 20  |EQUB 13...HEQUS |
00000920  20 20 20 20 22 44 6f 20  6e 6f 74 20 75 73 65 20  |    "Do not use |
00000930  2a 44 65 73 6b 74 6f 70  5f 54 72 61 73 68 46 53  |*Desktop_TrashFS|
00000940  2c 20 75 73 65 20 2a 44  65 73 6b 74 6f 70 20 69  |, use *Desktop i|
00000950  6e 73 74 65 61 64 2e 22  3a 45 51 55 42 20 30 0d  |nstead.":EQUB 0.|
00000960  04 38 09 41 4c 49 47 4e  0d 04 42 04 0d 04 4c 13  |.8.ALIGN..B...L.|
00000970  2e 63 6f 6d 6d 61 6e 64  5f 73 79 6e 74 61 78 0d  |.command_syntax.|
00000980  04 56 2e 45 51 55 53 20  20 20 20 20 22 53 79 6e  |.V.EQUS     "Syn|
00000990  74 61 78 3a 20 2a 44 65  73 6b 74 6f 70 5f 54 72  |tax: *Desktop_Tr|
000009a0  61 73 68 46 53 22 3a 45  51 55 42 20 30 0d 04 60  |ashFS":EQUB 0..`|
000009b0  09 41 4c 49 47 4e 0d 04  6a 04 0d 04 74 11 2e 63  |.ALIGN..j...t..c|
000009c0  6f 6d 6d 61 6e 64 5f 63  6f 64 65 0d 04 7e 1d 53  |ommand_code..~.S|
000009d0  54 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 52 30  |TMFD    R13!,{R0|
000009e0  2d 52 38 2c 52 31 34 7d  0d 04 88 12 4d 4f 56 20  |-R8,R14}....MOV |
000009f0  20 20 20 20 20 52 32 2c  52 30 0d 04 92 12 4d 4f  |     R2,R0....MO|
00000a00  56 20 20 20 20 20 20 52  30 2c 23 30 0d 04 9c 20  |V      R0,#0... |
00000a10  53 57 49 20 20 20 20 20  20 22 58 57 69 6d 70 5f  |SWI      "XWimp_|
00000a20  52 65 61 64 53 79 73 49  6e 66 6f 22 0d 04 a6 12  |ReadSysInfo"....|
00000a30  43 4d 50 20 20 20 20 20  20 52 30 2c 23 30 0d 04  |CMP      R0,#0..|
00000a40  b0 1c 41 44 52 45 51 20  20 20 20 52 30 2c 6e 6f  |..ADREQ    R0,no|
00000a50  74 69 6e 64 65 73 6b 74  6f 70 0d 04 ba 1f 53 57  |tindesktop....SW|
00000a60  49 45 51 20 20 20 20 22  4f 53 5f 47 65 6e 65 72  |IEQ    "OS_Gener|
00000a70  61 74 65 45 72 72 6f 72  22 0d 04 c4 15 41 44 52  |ateError"....ADR|
00000a80  20 20 20 20 20 20 52 31  2c 74 69 74 6c 65 0d 04  |      R1,title..|
00000a90  ce 12 4d 4f 56 20 20 20  20 20 20 52 30 2c 23 32  |..MOV      R0,#2|
00000aa0  0d 04 d8 18 53 57 49 20  20 20 20 20 20 22 4f 53  |....SWI      "OS|
00000ab0  5f 4d 6f 64 75 6c 65 22  0d 04 e2 1c 4c 44 4d 46  |_Module"....LDMF|
00000ac0  44 20 20 20 20 52 31 33  21 2c 7b 52 30 2d 52 38  |D    R13!,{R0-R8|
00000ad0  2c 50 43 7d 0d 04 ec 04  0d 04 f6 11 2e 6e 6f 74  |,PC}.........not|
00000ae0  69 6e 64 65 73 6b 74 6f  70 0d 05 00 0e 45 51 55  |indesktop....EQU|
00000af0  44 20 20 20 20 20 30 0d  05 0a 47 45 51 55 53 20  |D     0...GEQUS |
00000b00  20 20 20 20 22 59 6f 75  20 63 61 6e 20 6f 6e 6c  |    "You can onl|
00000b10  79 20 73 74 61 72 74 20  74 68 65 20 54 72 61 73  |y start the Tras|
00000b20  68 46 53 20 46 69 6c 65  72 20 66 72 6f 6d 20 52  |hFS Filer from R|
00000b30  69 73 63 20 4f 53 22 3a  45 51 55 42 20 30 0d 05  |isc OS":EQUB 0..|
00000b40  14 09 41 4c 49 47 4e 0d  05 1e 04 0d 05 28 0f 2e  |..ALIGN......(..|
00000b50  69 6e 69 74 69 61 6c 69  73 65 0d 05 32 1d 53 54  |initialise..2.ST|
00000b60  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00000b70  52 38 2c 52 31 34 7d 0d  05 3c 12 4d 4f 56 20 20  |R8,R14}..<.MOV  |
00000b80  20 20 20 20 52 30 2c 23  36 0d 05 46 14 4d 4f 56  |    R0,#6..F.MOV|
00000b90  20 20 20 20 20 20 52 33  2c 23 35 31 32 0d 05 50  |      R3,#512..P|
00000ba0  18 53 57 49 20 20 20 20  20 20 22 4f 53 5f 4d 6f  |.SWI      "OS_Mo|
00000bb0  64 75 6c 65 22 0d 05 5a  15 53 54 52 56 43 20 20  |dule"..Z.STRVC  |
00000bc0  20 20 52 32 2c 5b 52 31  32 5d 0d 05 64 1b 41 44  |  R2,[R12]..d.AD|
00000bd0  52 56 53 20 20 20 20 52  30 2c 63 6c 61 69 6d 5f  |RVS    R0,claim_|
00000be0  65 72 72 6f 72 0d 05 6e  1f 53 57 49 56 53 20 20  |error..n.SWIVS  |
00000bf0  20 20 22 4f 53 5f 47 65  6e 65 72 61 74 65 45 72  |  "OS_GenerateEr|
00000c00  72 6f 72 22 0d 05 78 12  4d 4f 56 20 20 20 20 20  |ror"..x.MOV     |
00000c10  20 52 31 2c 52 32 0d 05  82 14 4d 4f 56 20 20 20  | R1,R2....MOV   |
00000c20  20 20 20 52 32 2c 23 35  31 32 0d 05 8c 1b 41 44  |   R2,#512....AD|
00000c30  52 20 20 20 20 20 20 52  30 2c 74 72 61 73 68 66  |R      R0,trashf|
00000c40  73 5f 76 61 72 0d 05 96  1c 53 57 49 20 20 20 20  |s_var....SWI    |
00000c50  20 20 22 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  |  "OS_ReadVarVal|
00000c60  22 0d 05 a0 12 4d 4f 56  20 20 20 20 20 20 52 35  |"....MOV      R5|
00000c70  2c 23 30 0d 05 b4 17 53  54 52 42 20 20 20 20 20  |,#0....STRB     |
00000c80  52 35 2c 5b 52 31 2c 52  32 5d 0d 05 be 1b 41 44  |R5,[R1,R2]....AD|
00000c90  52 20 20 20 20 20 20 52  30 2c 74 72 61 73 68 66  |R      R0,trashf|
00000ca0  73 5f 64 69 72 0d 05 c8  11 42 4c 20 20 20 20 20  |s_dir....BL     |
00000cb0  20 20 63 6f 70 79 0d 05  d2 14 4d 4f 56 20 20 20  |  copy....MOV   |
00000cc0  20 20 20 52 30 2c 23 26  30 38 0d 05 dc 17 a4 61  |   R0,#&08.....a|
00000cd0  64 72 6c 28 22 41 4c 22  2c 31 2c 66 69 6c 65 76  |drl("AL",1,filev|
00000ce0  29 0d 05 e6 13 4d 4f 56  20 20 20 20 20 20 52 32  |)....MOV      R2|
00000cf0  2c 52 31 32 0d 05 f0 17  53 57 49 20 20 20 20 20  |,R12....SWI     |
00000d00  20 22 4f 53 5f 43 6c 61  69 6d 22 0d 05 fa 14 4d  | "OS_Claim"....M|
00000d10  4f 56 20 20 20 20 20 20  52 30 2c 23 26 30 44 0d  |OV      R0,#&0D.|
00000d20  06 04 17 a4 61 64 72 6c  28 22 41 4c 22 2c 31 2c  |....adrl("AL",1,|
00000d30  66 69 6e 64 76 29 0d 06  0e 13 4d 4f 56 20 20 20  |findv)....MOV   |
00000d40  20 20 20 52 32 2c 52 31  32 0d 06 18 17 53 57 49  |   R2,R12....SWI|
00000d50  20 20 20 20 20 20 22 4f  53 5f 43 6c 61 69 6d 22  |      "OS_Claim"|
00000d60  0d 06 22 14 4d 4f 56 20  20 20 20 20 20 52 30 2c  |..".MOV      R0,|
00000d70  23 26 30 46 0d 06 2c 1c  a4 61 64 72 6c 28 22 41  |#&0F..,..adrl("A|
00000d80  4c 22 2c 31 2c 66 73 63  6f 6e 74 72 6f 6c 76 29  |L",1,fscontrolv)|
00000d90  0d 06 36 13 4d 4f 56 20  20 20 20 20 20 52 32 2c  |..6.MOV      R2,|
00000da0  52 31 32 0d 06 40 17 53  57 49 20 20 20 20 20 20  |R12..@.SWI      |
00000db0  22 4f 53 5f 43 6c 61 69  6d 22 0d 06 4a 1c 4c 44  |"OS_Claim"..J.LD|
00000dc0  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00000dd0  52 38 2c 50 43 7d 0d 06  54 04 0d 06 5e 10 2e 63  |R8,PC}..T...^..c|
00000de0  6c 61 69 6d 5f 65 72 72  6f 72 0d 06 68 0e 45 51  |laim_error..h.EQ|
00000df0  55 44 20 20 20 20 20 30  0d 06 72 2c 45 51 55 53  |UD     0..r,EQUS|
00000e00  20 20 20 20 20 22 52 4d  41 20 77 6f 72 6b 73 70  |     "RMA worksp|
00000e10  61 63 65 20 66 61 69 6c  75 72 65 21 22 3a 45 51  |ace failure!":EQ|
00000e20  55 42 20 30 0d 06 7c 09  41 4c 49 47 4e 0d 06 86  |UB 0..|.ALIGN...|
00000e30  04 0d 06 90 0d 2e 66 69  6e 61 6c 69 73 65 0d 06  |......finalise..|
00000e40  9a 1d 53 54 4d 46 44 20  20 20 20 52 31 33 21 2c  |..STMFD    R13!,|
00000e50  7b 52 30 2d 52 38 2c 52  31 34 7d 0d 06 a4 16 42  |{R0-R8,R14}....B|
00000e60  4c 20 20 20 20 20 20 20  63 6c 6f 73 65 64 6f 77  |L       closedow|
00000e70  6e 0d 06 ae 14 4d 4f 56  20 20 20 20 20 20 52 30  |n....MOV      R0|
00000e80  2c 23 26 30 38 0d 06 b8  17 a4 61 64 72 6c 28 22  |,#&08.....adrl("|
00000e90  41 4c 22 2c 31 2c 66 69  6c 65 76 29 0d 06 c2 13  |AL",1,filev)....|
00000ea0  4d 4f 56 20 20 20 20 20  20 52 32 2c 52 31 32 0d  |MOV      R2,R12.|
00000eb0  06 cc 19 53 57 49 20 20  20 20 20 20 22 4f 53 5f  |...SWI      "OS_|
00000ec0  52 65 6c 65 61 73 65 22  0d 06 d6 14 4d 4f 56 20  |Release"....MOV |
00000ed0  20 20 20 20 20 52 30 2c  23 26 30 44 0d 06 e0 17  |     R0,#&0D....|
00000ee0  a4 61 64 72 6c 28 22 41  4c 22 2c 31 2c 66 69 6e  |.adrl("AL",1,fin|
00000ef0  64 76 29 0d 06 ea 13 4d  4f 56 20 20 20 20 20 20  |dv)....MOV      |
00000f00  52 32 2c 52 31 32 0d 06  f4 19 53 57 49 20 20 20  |R2,R12....SWI   |
00000f10  20 20 20 22 4f 53 5f 52  65 6c 65 61 73 65 22 0d  |   "OS_Release".|
00000f20  06 fe 14 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |...MOV      R0,#|
00000f30  26 30 46 0d 07 08 1c a4  61 64 72 6c 28 22 41 4c  |&0F.....adrl("AL|
00000f40  22 2c 31 2c 66 73 63 6f  6e 74 72 6f 6c 76 29 0d  |",1,fscontrolv).|
00000f50  07 12 13 4d 4f 56 20 20  20 20 20 20 52 32 2c 52  |...MOV      R2,R|
00000f60  31 32 0d 07 1c 19 53 57  49 20 20 20 20 20 20 22  |12....SWI      "|
00000f70  4f 53 5f 52 65 6c 65 61  73 65 22 0d 07 26 12 4d  |OS_Release"..&.M|
00000f80  4f 56 20 20 20 20 20 20  52 30 2c 23 37 0d 07 30  |OV      R0,#7..0|
00000f90  15 4c 44 52 20 20 20 20  20 20 52 32 2c 5b 52 31  |.LDR      R2,[R1|
00000fa0  32 5d 0d 07 3a 18 53 57  49 20 20 20 20 20 20 22  |2]..:.SWI      "|
00000fb0  4f 53 5f 4d 6f 64 75 6c  65 22 0d 07 44 1c 4c 44  |OS_Module"..D.LD|
00000fc0  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00000fd0  52 38 2c 50 43 7d 0d 07  4e 04 0d 07 58 0c 2e 73  |R8,PC}..N...X..s|
00000fe0  65 72 76 69 63 65 0d 07  62 1d 53 54 4d 46 44 20  |ervice..b.STMFD |
00000ff0  20 20 20 52 31 33 21 2c  7b 52 30 2d 52 38 2c 52  |   R13!,{R0-R8,R|
00001000  31 34 7d 0d 07 6c 14 43  4d 50 20 20 20 20 20 20  |14}..l.CMP      |
00001010  52 31 2c 23 26 34 39 0d  07 76 17 42 45 51 20 20  |R1,#&49..v.BEQ  |
00001020  20 20 20 20 73 74 61 72  74 5f 77 69 6d 70 0d 07  |    start_wimp..|
00001030  80 14 43 4d 50 20 20 20  20 20 20 52 31 2c 23 26  |..CMP      R1,#&|
00001040  34 41 0d 07 8a 19 42 45  51 20 20 20 20 20 20 73  |4A....BEQ      s|
00001050  74 61 72 74 65 64 5f 77  69 6d 70 0d 07 94 14 43  |tarted_wimp....C|
00001060  4d 50 20 20 20 20 20 20  52 31 2c 23 26 32 37 0d  |MP      R1,#&27.|
00001070  07 9e 12 42 45 51 20 20  20 20 20 20 72 65 73 65  |...BEQ      rese|
00001080  74 0d 07 a8 1c 4c 44 4d  46 44 20 20 20 20 52 31  |t....LDMFD    R1|
00001090  33 21 2c 7b 52 30 2d 52  38 2c 50 43 7d 0d 07 b2  |3!,{R0-R8,PC}...|
000010a0  04 0d 07 bc 0f 2e 73 74  61 72 74 5f 77 69 6d 70  |......start_wimp|
000010b0  0d 07 c6 1b 4c 44 52 20  20 20 20 20 20 52 30 2c  |....LDR      R0,|
000010c0  74 61 73 6b 5f 68 61 6e  64 6c 65 0d 07 d0 12 43  |task_handle....C|
000010d0  4d 50 20 20 20 20 20 20  52 30 2c 23 30 0d 07 da  |MP      R0,#0...|
000010e0  15 4d 56 4e 45 51 20 20  20 20 52 30 2c 23 ac 20  |.MVNEQ    R0,#. |
000010f0  2d 31 0d 07 e4 1b 53 54  52 45 51 20 20 20 20 52  |-1....STREQ    R|
00001100  30 2c 74 61 73 6b 5f 68  61 6e 64 6c 65 0d 07 ee  |0,task_handle...|
00001110  1d 4c 44 4d 46 44 20 20  20 20 52 31 33 21 2c 7b  |.LDMFD    R13!,{|
00001120  52 30 2d 52 38 2c 52 31  34 7d 0d 07 f8 17 41 44  |R0-R8,R14}....AD|
00001130  52 45 51 20 20 20 20 52  30 2c 63 6f 6d 6d 61 6e  |REQ    R0,comman|
00001140  64 0d 08 02 0f ec 51 20  20 20 20 52 31 2c 23 30  |d.....Q    R1,#0|
00001150  0d 08 0c 13 4d 4f 56 20  20 20 20 20 20 50 43 2c  |....MOV      PC,|
00001160  52 31 34 0d 08 16 04 0d  08 20 11 2e 73 74 61 72  |R14...... ..star|
00001170  74 65 64 5f 77 69 6d 70  0d 08 2a 1b 4c 44 52 20  |ted_wimp..*.LDR |
00001180  20 20 20 20 20 52 30 2c  74 61 73 6b 5f 68 61 6e  |     R0,task_han|
00001190  64 6c 65 0d 08 34 12 43  4d 4e 20 20 20 20 20 20  |dle..4.CMN      |
000011a0  52 30 2c 23 31 0d 08 3e  0f ec 51 20 20 20 20 52  |R0,#1..>..Q    R|
000011b0  30 2c 23 30 0d 08 48 1b  53 54 52 45 51 20 20 20  |0,#0..H.STREQ   |
000011c0  20 52 30 2c 74 61 73 6b  5f 68 61 6e 64 6c 65 0d  | R0,task_handle.|
000011d0  08 52 1c 4c 44 4d 46 44  20 20 20 20 52 31 33 21  |.R.LDMFD    R13!|
000011e0  2c 7b 52 30 2d 52 38 2c  50 43 7d 0d 08 5c 04 0d  |,{R0-R8,PC}..\..|
000011f0  08 66 0a 2e 72 65 73 65  74 0d 08 70 12 4d 4f 56  |.f..reset..p.MOV|
00001200  20 20 20 20 20 20 52 30  2c 23 30 0d 08 7a 1b 53  |      R0,#0..z.S|
00001210  54 52 20 20 20 20 20 20  52 30 2c 74 61 73 6b 5f  |TR      R0,task_|
00001220  68 61 6e 64 6c 65 0d 08  84 14 4d 4f 56 20 20 20  |handle....MOV   |
00001230  20 20 20 52 30 2c 23 26  30 38 0d 08 8e 17 a4 61  |   R0,#&08.....a|
00001240  64 72 6c 28 22 41 4c 22  2c 31 2c 66 69 6c 65 76  |drl("AL",1,filev|
00001250  29 0d 08 98 13 4d 4f 56  20 20 20 20 20 20 52 32  |)....MOV      R2|
00001260  2c 52 31 32 0d 08 a2 17  53 57 49 20 20 20 20 20  |,R12....SWI     |
00001270  20 22 4f 53 5f 43 6c 61  69 6d 22 0d 08 ac 14 4d  | "OS_Claim"....M|
00001280  4f 56 20 20 20 20 20 20  52 30 2c 23 26 30 44 0d  |OV      R0,#&0D.|
00001290  08 b6 17 a4 61 64 72 6c  28 22 41 4c 22 2c 31 2c  |....adrl("AL",1,|
000012a0  66 69 6e 64 76 29 0d 08  c0 13 4d 4f 56 20 20 20  |findv)....MOV   |
000012b0  20 20 20 52 32 2c 52 31  32 0d 08 ca 17 53 57 49  |   R2,R12....SWI|
000012c0  20 20 20 20 20 20 22 4f  53 5f 43 6c 61 69 6d 22  |      "OS_Claim"|
000012d0  0d 08 d4 14 4d 4f 56 20  20 20 20 20 20 52 30 2c  |....MOV      R0,|
000012e0  23 26 30 46 0d 08 de 1c  a4 61 64 72 6c 28 22 41  |#&0F.....adrl("A|
000012f0  4c 22 2c 31 2c 66 73 63  6f 6e 74 72 6f 6c 76 29  |L",1,fscontrolv)|
00001300  0d 08 e8 13 4d 4f 56 20  20 20 20 20 20 52 32 2c  |....MOV      R2,|
00001310  52 31 32 0d 08 f2 17 53  57 49 20 20 20 20 20 20  |R12....SWI      |
00001320  22 4f 53 5f 43 6c 61 69  6d 22 0d 08 fc 1c 4c 44  |"OS_Claim"....LD|
00001330  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00001340  52 38 2c 50 43 7d 0d 09  06 04 0d 09 10 09 2e 63  |R8,PC}.........c|
00001350  6f 70 79 0d 09 1a 17 53  54 4d 46 44 20 20 20 20  |opy....STMFD    |
00001360  52 31 33 21 2c 7b 52 31  34 7d 0d 09 24 0e 2e 63  |R13!,{R14}..$..c|
00001370  6f 70 79 5f 6c 6f 6f 70  0d 09 2e 17 4c 44 52 42  |opy_loop....LDRB|
00001380  20 20 20 20 20 52 32 2c  5b 52 31 5d 2c 23 31 0d  |     R2,[R1],#1.|
00001390  09 38 13 43 4d 50 20 20  20 20 20 20 52 32 2c 23  |.8.CMP      R2,#|
000013a0  33 32 0d 09 42 12 4d 4f  56 4c 54 20 20 20 20 52  |32..B.MOVLT    R|
000013b0  32 2c 23 30 0d 09 4c 17  53 54 52 42 20 20 20 20  |2,#0..L.STRB    |
000013c0  20 52 32 2c 5b 52 30 5d  2c 23 31 0d 09 56 16 42  | R2,[R0],#1..V.B|
000013d0  47 45 20 20 20 20 20 20  63 6f 70 79 5f 6c 6f 6f  |GE      copy_loo|
000013e0  70 0d 09 60 16 4c 44 4d  46 44 20 20 20 20 52 31  |p..`.LDMFD    R1|
000013f0  33 21 2c 7b 50 43 7d 0d  09 6a 04 0d 09 74 0c 2e  |3!,{PC}..j...t..|
00001400  73 74 61 72 74 75 70 0d  09 7e 16 4c 44 52 20 20  |startup..~.LDR  |
00001410  20 20 20 20 52 31 32 2c  5b 52 31 32 5d 0d 09 88  |    R12,[R12]...|
00001420  19 41 44 44 20 20 20 20  20 20 52 31 33 2c 52 31  |.ADD      R13,R1|
00001430  32 2c 23 35 31 32 0d 09  92 16 42 4c 20 20 20 20  |2,#512....BL    |
00001440  20 20 20 63 6c 6f 73 65  64 6f 77 6e 0d 09 9c 14  |   closedown....|
00001450  4d 4f 56 20 20 20 20 20  20 52 30 2c 23 32 30 30  |MOV      R0,#200|
00001460  0d 09 a6 1a 4c 44 52 20  20 20 20 20 20 52 31 2c  |....LDR      R1,|
00001470  74 61 73 6b 5f 63 6f 6e  73 74 0d 09 b0 15 41 44  |task_const....AD|
00001480  52 20 20 20 20 20 20 52  32 2c 74 69 74 6c 65 0d  |R      R2,title.|
00001490  09 ba 1e 53 57 49 20 20  20 20 20 20 22 57 69 6d  |...SWI      "Wim|
000014a0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 0d 09 c4  |p_Initialise"...|
000014b0  17 4c 44 4d 46 44 20 20  20 20 52 31 33 21 2c 7b  |.LDMFD    R13!,{|
000014c0  52 31 34 7d 0d 09 ce 14  43 4d 50 20 20 20 20 20  |R14}....CMP     |
000014d0  20 52 30 2c 23 32 30 30  0d 09 d8 1d 41 44 52 4c  | R0,#200....ADRL|
000014e0  54 20 20 20 20 52 30 2c  77 69 6d 70 6f 75 74 6f  |T    R0,wimpouto|
000014f0  66 64 61 74 65 0d 09 e2  1f 53 57 49 4c 54 20 20  |fdate....SWILT  |
00001500  20 20 22 4f 53 5f 47 65  6e 65 72 61 74 65 45 72  |  "OS_GenerateEr|
00001510  72 6f 72 22 0d 09 ec 1b  53 54 52 56 43 20 20 20  |ror"....STRVC   |
00001520  20 52 31 2c 74 61 73 6b  5f 68 61 6e 64 6c 65 0d  | R1,task_handle.|
00001530  09 f6 15 42 56 43 20 20  20 20 20 20 73 74 61 72  |...BVC      star|
00001540  74 75 70 32 0d 0a 00 13  4d 4f 56 20 20 20 20 20  |tup2....MOV     |
00001550  20 50 43 2c 52 31 34 0d  0a 0a 04 0d 0a 14 12 2e  | PC,R14.........|
00001560  77 69 6d 70 6f 75 74 6f  66 64 61 74 65 0d 0a 1e  |wimpoutofdate...|
00001570  0e 45 51 55 44 20 20 20  20 20 30 0d 0a 28 35 45  |.EQUD     0..(5E|
00001580  51 55 53 20 20 20 20 20  22 57 69 6d 70 20 4d 61  |QUS     "Wimp Ma|
00001590  6e 61 67 65 72 20 76 65  72 73 69 6f 6e 20 74 6f  |nager version to|
000015a0  6f 20 65 61 72 6c 79 21  22 3a 45 51 55 42 20 30  |o early!":EQUB 0|
000015b0  0d 0a 32 09 41 4c 49 47  4e 0d 0a 3c 04 0d 0a 46  |..2.ALIGN..<...F|
000015c0  0f 2e 74 61 73 6b 5f 63  6f 6e 73 74 0d 0a 50 13  |..task_const..P.|
000015d0  45 51 55 53 20 20 20 20  20 22 54 41 53 4b 22 0d  |EQUS     "TASK".|
000015e0  0a 5a 10 2e 74 61 73 6b  5f 68 61 6e 64 6c 65 0d  |.Z..task_handle.|
000015f0  0a 64 0e 45 51 55 44 20  20 20 20 20 30 0d 0a 6e  |.d.EQUD     0..n|
00001600  10 2e 74 72 61 73 68 66  73 5f 76 61 72 0d 0a 78  |..trashfs_var..x|
00001610  26 45 51 55 53 20 20 20  20 20 22 54 72 61 73 68  |&EQUS     "Trash|
00001620  46 53 24 54 72 61 73 68  44 69 72 22 3a 45 51 55  |FS$TrashDir":EQU|
00001630  42 20 30 0d 0a 82 09 41  4c 49 47 4e 0d 0a 8c 10  |B 0....ALIGN....|
00001640  2e 74 72 61 73 68 66 73  5f 64 69 72 0d 0a 96 15  |.trashfs_dir....|
00001650  45 51 55 53 20 20 20 20  20 c4 31 34 30 2c bd 30  |EQUS     .140,.0|
00001660  29 0d 0a a0 09 41 4c 49  47 4e 0d 0a aa 11 2e 69  |)....ALIGN.....i|
00001670  63 6f 6e 62 61 72 5f 68  61 6e 64 0d 0a b4 0e 45  |conbar_hand....E|
00001680  51 55 44 20 20 20 20 20  30 0d 0a be 0f 2e 74 72  |QUD     0.....tr|
00001690  61 73 68 5f 6f 70 65 6e  0d 0a c8 0e 45 51 55 44  |ash_open....EQUD|
000016a0  20 20 20 20 20 30 0d 0a  d2 10 2e 62 6f 72 64 65  |     0.....borde|
000016b0  72 69 73 72 65 64 0d 0a  dc 0e 45 51 55 44 20 20  |risred....EQUD  |
000016c0  20 20 20 30 0d 0a e6 04  0d 0a f0 0d 2e 73 74 61  |   0.........sta|
000016d0  72 74 75 70 32 0d 0a fa  16 42 4c 20 20 20 20 20  |rtup2....BL     |
000016e0  20 20 63 61 6e 65 78 69  73 74 73 0d 0b 04 16 42  |  canexists....B|
000016f0  4c 20 20 20 20 20 20 20  74 65 6d 70 6c 61 74 65  |L       template|
00001700  73 0d 0b 0e 15 42 4c 20  20 20 20 20 20 20 72 65  |s....BL       re|
00001710  61 64 63 6d 6f 73 0d 0b  18 1d 41 44 52 20 20 20  |adcmos....ADR   |
00001720  20 20 20 52 31 2c 69 63  6f 6e 62 61 72 5f 65 6d  |   R1,iconbar_em|
00001730  70 74 79 0d 0b 22 1b 41  44 52 20 20 20 20 20 20  |pty..".ADR      |
00001740  52 30 2c 69 63 6f 6e 62  61 72 5f 69 6e 64 0d 0b  |R0,iconbar_ind..|
00001750  2c 11 42 4c 20 20 20 20  20 20 20 63 6f 70 79 0d  |,.BL       copy.|
00001760  0b 36 1d 41 44 52 20 20  20 20 20 20 52 31 2c 69  |.6.ADR      R1,i|
00001770  63 6f 6e 62 61 72 5f 62  6c 6f 63 6b 0d 0b 40 1c  |conbar_block..@.|
00001780  41 44 52 20 20 20 20 20  20 52 32 2c 69 63 6f 6e  |ADR      R2,icon|
00001790  62 61 72 5f 6e 75 6c 6c  0d 0b 4a 1c 53 54 52 20  |bar_null..J.STR |
000017a0  20 20 20 20 20 52 32 2c  69 63 6f 6e 62 61 72 5f  |     R2,iconbar_|
000017b0  70 6f 6b 65 0d 0b 54 1b  41 44 52 20 20 20 20 20  |poke..T.ADR     |
000017c0  20 52 32 2c 69 63 6f 6e  62 61 72 5f 69 6e 64 0d  | R2,iconbar_ind.|
000017d0  0b 5e 1d 53 54 52 20 20  20 20 20 20 52 32 2c 69  |.^.STR      R2,i|
000017e0  63 6f 6e 62 61 72 5f 70  6f 6b 65 32 0d 0b 68 1e  |conbar_poke2..h.|
000017f0  53 57 49 20 20 20 20 20  20 22 57 69 6d 70 5f 43  |SWI      "Wimp_C|
00001800  72 65 61 74 65 49 63 6f  6e 22 0d 0b 72 1c 53 54  |reateIcon"..r.ST|
00001810  52 20 20 20 20 20 20 52  30 2c 69 63 6f 6e 62 61  |R      R0,iconba|
00001820  72 5f 68 61 6e 64 0d 0b  7c 04 0d 0b 86 09 2e 70  |r_hand..|......p|
00001830  6f 6c 6c 0d 0b 90 12 4d  4f 56 20 20 20 20 20 20  |oll....MOV      |
00001840  52 30 2c 23 30 0d 0b 9a  13 4d 4f 56 20 20 20 20  |R0,#0....MOV    |
00001850  20 20 52 31 2c 52 31 32  0d 0b a4 18 53 57 49 20  |  R1,R12....SWI |
00001860  20 20 20 20 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |     "Wimp_Poll"|
00001870  0d 0b ae 12 43 4d 50 20  20 20 20 20 20 52 30 2c  |....CMP      R0,|
00001880  23 30 0d 0b b8 11 42 4c  45 51 20 20 20 20 20 6e  |#0....BLEQ     n|
00001890  75 6c 6c 0d 0b c2 12 43  4d 50 20 20 20 20 20 20  |ull....CMP      |
000018a0  52 30 2c 23 32 0d 0b cc  1e 53 57 49 45 51 20 20  |R0,#2....SWIEQ  |
000018b0  20 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |  "Wimp_OpenWind|
000018c0  6f 77 22 0d 0b d6 12 43  4d 50 20 20 20 20 20 20  |ow"....CMP      |
000018d0  52 30 2c 23 36 0d 0b e0  12 42 4c 45 51 20 20 20  |R0,#6....BLEQ   |
000018e0  20 20 6d 6f 75 73 65 0d  0b ea 12 43 4d 50 20 20  |  mouse....CMP  |
000018f0  20 20 20 20 52 30 2c 23  39 0d 0b f4 14 42 4c 45  |    R0,#9....BLE|
00001900  51 20 20 20 20 20 6d 65  6e 75 73 65 6c 0d 0b fe  |Q     menusel...|
00001910  13 43 4d 50 20 20 20 20  20 20 52 30 2c 23 31 37  |.CMP      R0,#17|
00001920  0d 0c 08 14 42 4c 45 51  20 20 20 20 20 6d 65 73  |....BLEQ     mes|
00001930  73 61 67 65 0d 0c 12 13  43 4d 50 20 20 20 20 20  |sage....CMP     |
00001940  20 52 30 2c 23 31 38 0d  0c 1c 14 42 4c 45 51 20  | R0,#18....BLEQ |
00001950  20 20 20 20 6d 65 73 73  61 67 65 0d 0c 26 11 42  |    message..&.B|
00001960  20 20 20 20 20 20 20 20  70 6f 6c 6c 0d 0c 30 04  |        poll..0.|
00001970  0d 0c 3a 12 2e 69 63 6f  6e 62 61 72 5f 62 6c 6f  |..:..iconbar_blo|
00001980  63 6b 0d 0c 44 0f 45 51  55 44 20 20 20 20 20 2d  |ck..D.EQUD     -|
00001990  32 0d 0c 4e 0e 45 51 55  44 20 20 20 20 20 30 0d  |2..N.EQUD     0.|
000019a0  0c 58 0e 45 51 55 44 20  20 20 20 20 30 0d 0c 62  |.X.EQUD     0..b|
000019b0  0f 45 51 55 44 20 20 20  20 20 36 38 0d 0c 6c 0f  |.EQUD     68..l.|
000019c0  45 51 55 44 20 20 20 20  20 36 38 0d 0c 76 2e 45  |EQUD     68..v.E|
000019d0  51 55 44 20 20 20 20 20  25 30 30 30 31 30 31 31  |QUD     %0001011|
000019e0  31 30 30 30 30 30 30 30  30 30 30 31 31 30 30 30  |1000000000011000|
000019f0  31 30 30 31 30 31 30 31  31 0d 0c 80 28 2e 69 63  |100101011...(.ic|
00001a00  6f 6e 62 61 72 5f 70 6f  6b 65 20 20 20 20 20 20  |onbar_poke      |
00001a10  45 51 55 44 20 69 63 6f  6e 62 61 72 5f 6e 75 6c  |EQUD iconbar_nul|
00001a20  6c 0d 0c 8a 27 2e 69 63  6f 6e 62 61 72 5f 70 6f  |l...'.iconbar_po|
00001a30  6b 65 32 20 20 20 20 20  45 51 55 44 20 69 63 6f  |ke2     EQUD ico|
00001a40  6e 62 61 72 5f 69 6e 64  0d 0c 94 0e 45 51 55 44  |nbar_ind....EQUD|
00001a50  20 20 20 20 20 36 0d 0c  9e 10 2e 69 63 6f 6e 62  |     6.....iconb|
00001a60  61 72 5f 69 6e 64 0d 0c  a8 14 45 51 55 53 20 20  |ar_ind....EQUS  |
00001a70  20 20 20 c4 33 36 2c bd  30 29 0d 0c b2 09 41 4c  |   .36,.0)....AL|
00001a80  49 47 4e 0d 0c bc 12 2e  69 63 6f 6e 62 61 72 5f  |IGN.....iconbar_|
00001a90  65 6d 70 74 79 0d 0c c6  20 45 51 55 53 20 20 20  |empty... EQUS   |
00001aa0  20 20 22 53 21 74 72 61  73 68 66 73 31 22 3a 45  |  "S!trashfs1":E|
00001ab0  51 55 42 20 30 0d 0c d0  09 41 4c 49 47 4e 0d 0c  |QUB 0....ALIGN..|
00001ac0  da 11 2e 69 63 6f 6e 62  61 72 5f 66 75 6c 6c 0d  |...iconbar_full.|
00001ad0  0c e4 20 45 51 55 53 20  20 20 20 20 22 53 21 74  |.. EQUS     "S!t|
00001ae0  72 61 73 68 66 73 32 22  3a 45 51 55 42 20 30 0d  |rashfs2":EQUB 0.|
00001af0  0c ee 09 41 4c 49 47 4e  0d 0c f8 13 2e 69 63 6f  |...ALIGN.....ico|
00001b00  6e 62 61 72 5f 6e 65 61  72 6c 79 0d 0d 02 20 45  |nbar_nearly... E|
00001b10  51 55 53 20 20 20 20 20  22 53 21 74 72 61 73 68  |QUS     "S!trash|
00001b20  66 73 33 22 3a 45 51 55  42 20 30 0d 0d 0c 09 41  |fs3":EQUB 0....A|
00001b30  4c 49 47 4e 0d 0d 16 16  2e 69 63 6f 6e 62 61 72  |LIGN.....iconbar|
00001b40  5f 6e 6f 74 73 6f 6e 65  61 72 0d 0d 20 20 45 51  |_notsonear..  EQ|
00001b50  55 53 20 20 20 20 20 22  53 21 74 72 61 73 68 66  |US     "S!trashf|
00001b60  73 34 22 3a 45 51 55 42  20 30 0d 0d 2a 09 41 4c  |s4":EQUB 0..*.AL|
00001b70  49 47 4e 0d 0d 34 11 2e  69 63 6f 6e 62 61 72 5f  |IGN..4..iconbar_|
00001b80  6e 75 6c 6c 0d 0d 3e 0e  45 51 55 42 20 20 20 20  |null..>.EQUB    |
00001b90  20 30 0d 0d 48 09 41 4c  49 47 4e 0d 0d 52 04 0d  | 0..H.ALIGN..R..|
00001ba0  0d 5c 0f 2e 6d 65 6e 75  5f 62 6c 6f 63 6b 0d 0d  |.\..menu_block..|
00001bb0  66 18 a4 73 74 72 69 6e  67 31 32 28 22 54 72 61  |f..string12("Tra|
00001bc0  73 68 46 53 22 29 0d 0d  70 13 45 51 55 44 20 20  |shFS")..p.EQUD  |
00001bd0  20 20 20 26 37 30 32 30  37 0d 0d 7a 12 45 51 55  |   &70207..z.EQU|
00001be0  44 20 20 20 20 20 31 32  2a 31 36 0d 0d 84 0f 45  |D     12*16....E|
00001bf0  51 55 44 20 20 20 20 20  34 30 0d 0d 8e 0e 45 51  |QUD     40....EQ|
00001c00  55 44 20 20 20 20 20 30  0d 0d 98 0e 45 51 55 44  |UD     0....EQUD|
00001c10  20 20 20 20 20 30 0d 0d  a2 1d 2e 69 6e 66 6f 5f  |     0.....info_|
00001c20  70 6f 6b 65 20 20 20 20  20 20 20 20 20 45 51 55  |poke         EQU|
00001c30  44 20 30 0d 0d ac 16 45  51 55 44 20 20 20 20 20  |D 0....EQUD     |
00001c40  26 30 37 30 30 30 30 32  31 0d 0d b6 15 a4 73 74  |&07000021.....st|
00001c50  72 69 6e 67 31 32 28 22  49 6e 66 6f 22 29 0d 0d  |ring12("Info")..|
00001c60  c0 1d 2e 77 61 72 6e 69  6e 67 5f 70 6f 6b 65 20  |...warning_poke |
00001c70  20 20 20 20 20 45 51 55  44 20 31 0d 0d ca 0e 45  |     EQUD 1....E|
00001c80  51 55 44 20 20 20 20 20  30 0d 0d d4 16 45 51 55  |QUD     0....EQU|
00001c90  44 20 20 20 20 20 26 30  37 30 30 30 30 32 31 0d  |D     &07000021.|
00001ca0  0d de 18 a4 73 74 72 69  6e 67 31 32 28 22 57 61  |....string12("Wa|
00001cb0  72 6e 69 6e 67 22 29 0d  0d e8 1d 2e 69 6d 6d 65  |rning").....imme|
00001cc0  64 69 61 74 65 5f 70 6f  6b 65 20 20 20 20 45 51  |diate_poke    EQ|
00001cd0  55 44 20 30 0d 0d f2 0e  45 51 55 44 20 20 20 20  |UD 0....EQUD    |
00001ce0  20 30 0d 0d fc 16 45 51  55 44 20 20 20 20 20 26  | 0....EQUD     &|
00001cf0  30 37 30 30 30 30 32 31  0d 0e 06 1a a4 73 74 72  |07000021.....str|
00001d00  69 6e 67 31 32 28 22 49  6d 6d 65 64 69 61 74 65  |ing12("Immediate|
00001d10  22 29 0d 0e 10 1d 2e 61  6e 69 6d 61 74 65 5f 70  |").....animate_p|
00001d20  6f 6b 65 20 20 20 20 20  20 45 51 55 44 20 31 0d  |oke      EQUD 1.|
00001d30  0e 1a 0e 45 51 55 44 20  20 20 20 20 30 0d 0e 24  |...EQUD     0..$|
00001d40  16 45 51 55 44 20 20 20  20 20 26 30 37 30 30 30  |.EQUD     &07000|
00001d50  30 32 31 0d 0e 2e 17 a4  73 74 72 69 6e 67 31 32  |021.....string12|
00001d60  28 22 53 6d 6f 6f 74 68  22 29 0d 0e 38 0e 45 51  |("Smooth")..8.EQ|
00001d70  55 44 20 20 20 20 20 30  0d 0e 42 0e 45 51 55 44  |UD     0..B.EQUD|
00001d80  20 20 20 20 20 30 0d 0e  4c 2d 2e 65 6d 70 74 79  |     0..L-.empty|
00001d90  5f 70 6f 6b 65 20 20 20  20 20 20 20 20 45 51 55  |_poke        EQU|
00001da0  44 20 26 30 37 30 30 30  30 32 31 20 82 20 31 3c  |D &07000021 . 1<|
00001db0  3c 32 32 0d 0e 56 1c a4  73 74 72 69 6e 67 31 32  |<22..V..string12|
00001dc0  28 22 45 6d 70 74 79 20  54 72 61 73 68 22 29 0d  |("Empty Trash").|
00001dd0  0e 60 10 45 51 55 44 20  20 20 20 20 26 38 30 0d  |.`.EQUD     &80.|
00001de0  0e 6a 1d 2e 71 75 69 74  5f 70 6f 6b 65 20 20 20  |.j..quit_poke   |
00001df0  20 20 20 20 20 20 45 51  55 44 20 30 0d 0e 74 16  |      EQUD 0..t.|
00001e00  45 51 55 44 20 20 20 20  20 26 30 37 30 30 30 30  |EQUD     &070000|
00001e10  32 31 0d 0e 7e 15 a4 73  74 72 69 6e 67 31 32 28  |21..~..string12(|
00001e20  22 51 75 69 74 22 29 0d  0e 88 0e 2e 71 75 69 74  |"Quit").....quit|
00001e30  5f 6d 65 6e 75 0d 0e 92  15 a4 73 74 72 69 6e 67  |_menu.....string|
00001e40  31 32 28 22 51 75 69 74  22 29 0d 0e 9c 13 45 51  |12("Quit")....EQ|
00001e50  55 44 20 20 20 20 20 26  37 30 32 30 37 0d 0e a6  |UD     &70207...|
00001e60  12 45 51 55 44 20 20 20  20 20 31 30 2a 31 36 0d  |.EQUD     10*16.|
00001e70  0e b0 0f 45 51 55 44 20  20 20 20 20 34 30 0d 0e  |...EQUD     40..|
00001e80  ba 0e 45 51 55 44 20 20  20 20 20 30 0d 0e c4 0e  |..EQUD     0....|
00001e90  45 51 55 44 20 20 20 20  20 30 0d 0e ce 0f 45 51  |EQUD     0....EQ|
00001ea0  55 44 20 20 20 20 20 2d  31 0d 0e d8 16 45 51 55  |UD     -1....EQU|
00001eb0  44 20 20 20 20 20 26 30  37 30 30 30 30 32 31 0d  |D     &07000021.|
00001ec0  0e e2 1a a4 73 74 72 69  6e 67 31 32 28 22 54 65  |....string12("Te|
00001ed0  6d 70 6f 72 61 72 79 22  29 0d 0e ec 10 45 51 55  |mporary")....EQU|
00001ee0  44 20 20 20 20 20 26 38  30 0d 0e f6 0f 45 51 55  |D     &80....EQU|
00001ef0  44 20 20 20 20 20 2d 31  0d 0f 00 16 45 51 55 44  |D     -1....EQUD|
00001f00  20 20 20 20 20 26 30 37  30 30 30 30 32 31 0d 0f  |     &07000021..|
00001f10  0a 1a a4 73 74 72 69 6e  67 31 32 28 22 50 65 72  |...string12("Per|
00001f20  6d 61 6e 65 6e 74 22 29  0d 0f 14 04 0d 0f 1e 09  |manent")........|
00001f30  2e 6e 75 6c 6c 0d 0f 28  17 53 54 4d 46 44 20 20  |.null..(.STMFD  |
00001f40  20 20 52 31 33 21 2c 7b  52 31 34 7d 0d 0f 32 15  |  R13!,{R14}..2.|
00001f50  42 4c 20 20 20 20 20 20  20 74 72 61 6e 73 76 61  |BL       transva|
00001f60  72 0d 0f 3c 13 42 4c 20  20 20 20 20 20 20 62 6f  |r..<.BL       bo|
00001f70  72 64 65 72 0d 0f 46 17  4c 44 52 20 20 20 20 20  |rder..F.LDR     |
00001f80  20 52 30 2c 6e 65 77 69  63 6f 6e 0d 0f 50 12 43  | R0,newicon..P.C|
00001f90  4d 50 20 20 20 20 20 20  52 30 2c 23 31 0d 0f 5a  |MP      R0,#1..Z|
00001fa0  0f ec 51 20 20 20 20 52  30 2c 23 30 0d 0f 64 17  |..Q    R0,#0..d.|
00001fb0  53 54 52 45 51 20 20 20  20 52 30 2c 6e 65 77 69  |STREQ    R0,newi|
00001fc0  63 6f 6e 0d 0f 6e 17 42  4c 45 51 20 20 20 20 20  |con..n.BLEQ     |
00001fd0  75 70 64 61 74 65 69 63  6f 6e 0d 0f 78 16 4c 44  |updateicon..x.LD|
00001fe0  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 50 43 7d  |MFD    R13!,{PC}|
00001ff0  0d 0f 82 04 0d 0f 8c 0c  2e 6e 65 77 69 63 6f 6e  |.........newicon|
00002000  0d 0f 96 0e 45 51 55 44  20 20 20 20 20 31 0d 0f  |....EQUD     1..|
00002010  a0 04 0d 0f aa 0c 2e 6d  65 73 73 61 67 65 0d 0f  |.......message..|
00002020  b4 17 53 54 4d 46 44 20  20 20 20 52 31 33 21 2c  |..STMFD    R13!,|
00002030  7b 52 31 34 7d 0d 0f be  18 4c 44 52 20 20 20 20  |{R14}....LDR    |
00002040  20 20 52 30 2c 5b 52 31  2c 23 31 36 5d 0d 0f c8  |  R0,[R1,#16]...|
00002050  12 43 4d 50 20 20 20 20  20 20 52 30 2c 23 30 0d  |.CMP      R0,#0.|
00002060  0f d2 16 42 4c 45 51 20  20 20 20 20 63 6c 6f 73  |...BLEQ     clos|
00002070  65 64 6f 77 6e 0d 0f dc  12 43 4d 50 20 20 20 20  |edown....CMP    |
00002080  20 20 52 30 2c 23 31 0d  0f e6 15 42 4c 45 51 20  |  R0,#1....BLEQ |
00002090  20 20 20 20 64 61 74 61  73 61 76 65 0d 0f f0 12  |    datasave....|
000020a0  43 4d 50 20 20 20 20 20  20 52 30 2c 23 33 0d 0f  |CMP      R0,#3..|
000020b0  fa 10 ec 51 20 20 20 20  52 31 31 2c 23 31 0d 10  |...Q    R11,#1..|
000020c0  04 12 42 4c 45 51 20 20  20 20 20 74 72 61 73 68  |..BLEQ     trash|
000020d0  0d 10 0e 16 4c 44 4d 46  44 20 20 20 20 52 31 33  |....LDMFD    R13|
000020e0  21 2c 7b 50 43 7d 0d 10  18 04 0d 10 22 0e 2e 63  |!,{PC}......"..c|
000020f0  6c 6f 73 65 64 6f 77 6e  0d 10 2c 17 53 54 4d 46  |losedown..,.STMF|
00002100  44 20 20 20 20 52 31 33  21 2c 7b 52 31 34 7d 0d  |D    R13!,{R14}.|
00002110  10 36 1b 4c 44 52 20 20  20 20 20 20 52 30 2c 74  |.6.LDR      R0,t|
00002120  61 73 6b 5f 68 61 6e 64  6c 65 0d 10 40 12 43 4d  |ask_handle..@.CM|
00002130  50 20 20 20 20 20 20 52  30 2c 23 30 0d 10 4a 16  |P      R0,#0..J.|
00002140  4c 44 4d 4c 45 46 44 20  20 52 31 33 21 2c 7b 50  |LDMLEFD  R13!,{P|
00002150  43 7d 0d 10 54 18 42 4c  20 20 20 20 20 20 20 63  |C}..T.BL       c|
00002160  6c 6f 73 65 76 69 65 77  65 72 0d 10 5e 1b 4c 44  |loseviewer..^.LD|
00002170  52 20 20 20 20 20 20 52  30 2c 74 61 73 6b 5f 68  |R      R0,task_h|
00002180  61 6e 64 6c 65 0d 10 68  1a 4c 44 52 20 20 20 20  |andle..h.LDR    |
00002190  20 20 52 31 2c 74 61 73  6b 5f 63 6f 6e 73 74 0d  |  R1,task_const.|
000021a0  10 72 1d 53 57 49 20 20  20 20 20 20 22 57 69 6d  |.r.SWI      "Wim|
000021b0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 10 7c 12  |p_CloseDown"..|.|
000021c0  4d 4f 56 20 20 20 20 20  20 52 30 2c 23 30 0d 10  |MOV      R0,#0..|
000021d0  86 1b 53 54 52 20 20 20  20 20 20 52 30 2c 74 61  |..STR      R0,ta|
000021e0  73 6b 5f 68 61 6e 64 6c  65 0d 10 90 16 4c 44 4d  |sk_handle....LDM|
000021f0  46 44 20 20 20 20 52 31  33 21 2c 7b 50 43 7d 0d  |FD    R13!,{PC}.|
00002200  10 9a 04 0d 10 a4 10 2e  63 6c 6f 73 65 76 69 65  |........closevie|
00002210  77 65 72 0d 10 ae 17 53  54 4d 46 44 20 20 20 20  |wer....STMFD    |
00002220  52 31 33 21 2c 7b 52 31  34 7d 0d 10 b8 1a 4c 44  |R13!,{R14}....LD|
00002230  52 20 20 20 20 20 20 52  30 2c 74 72 61 73 68 5f  |R      R0,trash_|
00002240  6f 70 65 6e 0d 10 c2 12  43 4d 50 20 20 20 20 20  |open....CMP     |
00002250  20 52 30 2c 23 31 0d 10  cc 16 4c 44 4d 4e 45 46  | R0,#1....LDMNEF|
00002260  44 20 20 52 31 33 21 2c  7b 50 43 7d 0d 10 d6 14  |D  R13!,{PC}....|
00002270  4d 4f 56 20 20 20 20 20  20 52 30 2c 23 31 36 31  |MOV      R0,#161|
00002280  0d 10 e0 16 4d 4f 56 20  20 20 20 20 20 52 31 2c  |....MOV      R1,|
00002290  23 63 6d 6f 73 25 0d 10  ea 16 53 57 49 20 20 20  |#cmos%....SWI   |
000022a0  20 20 20 22 4f 53 5f 42  79 74 65 22 0d 10 f4 16  |   "OS_Byte"....|
000022b0  80 20 20 20 20 20 20 52  32 2c 52 32 2c 23 31 3c  |.      R2,R2,#1<|
000022c0  3c 31 0d 10 fe 12 43 4d  50 20 20 20 20 20 20 52  |<1....CMP      R|
000022d0  32 2c 23 30 0d 11 08 16  4c 44 4d 4e 45 46 44 20  |2,#0....LDMNEFD |
000022e0  20 52 31 33 21 2c 7b 50  43 7d 0d 11 12 1c a4 61  | R13!,{PC}.....a|
000022f0  64 72 6c 28 22 41 4c 22  2c 30 2c 66 69 6c 65 72  |drl("AL",0,filer|
00002300  5f 70 6f 6b 65 29 0d 11  1c 20 a4 61 64 72 6c 28  |_poke)... .adrl(|
00002310  22 41 4c 22 2c 31 2c 66  69 6c 65 72 5f 63 6c 6f  |"AL",1,filer_clo|
00002320  73 65 64 69 72 29 0d 11  26 11 42 4c 20 20 20 20  |sedir)..&.BL    |
00002330  20 20 20 63 6f 70 79 0d  11 30 1b 41 44 52 20 20  |   copy..0.ADR  |
00002340  20 20 20 20 52 31 2c 74  72 61 73 68 66 73 5f 64  |    R1,trashfs_d|
00002350  69 72 0d 11 3a 15 53 55  42 20 20 20 20 20 20 52  |ir..:.SUB      R|
00002360  30 2c 52 30 2c 23 31 0d  11 44 11 42 4c 20 20 20  |0,R0,#1..D.BL   |
00002370  20 20 20 20 63 6f 70 79  0d 11 4e 1c a4 61 64 72  |    copy..N..adr|
00002380  6c 28 22 41 4c 22 2c 30  2c 66 69 6c 65 72 5f 70  |l("AL",0,filer_p|
00002390  6f 6b 65 29 0d 11 58 1e  53 57 49 20 20 20 20 20  |oke)..X.SWI     |
000023a0  20 22 58 57 69 6d 70 5f  53 74 61 72 74 54 61 73  | "XWimp_StartTas|
000023b0  6b 22 0d 11 62 12 4d 4f  56 20 20 20 20 20 20 52  |k"..b.MOV      R|
000023c0  30 2c 23 30 0d 11 6c 1a  53 54 52 20 20 20 20 20  |0,#0..l.STR     |
000023d0  20 52 30 2c 74 72 61 73  68 5f 6f 70 65 6e 0d 11  | R0,trash_open..|
000023e0  76 16 4c 44 4d 46 44 20  20 20 20 52 31 33 21 2c  |v.LDMFD    R13!,|
000023f0  7b 50 43 7d 0d 11 80 04  0d 11 8a 0d 2e 64 61 74  |{PC}.........dat|
00002400  61 73 61 76 65 0d 11 94  17 53 54 4d 46 44 20 20  |asave....STMFD  |
00002410  20 20 52 31 33 21 2c 7b  52 31 34 7d 0d 11 9e 15  |  R13!,{R14}....|
00002420  4d 56 4e 20 20 20 20 20  20 52 30 2c 23 ac 20 2d  |MVN      R0,#. -|
00002430  31 0d 11 a8 18 53 54 52  20 20 20 20 20 20 52 30  |1....STR      R0|
00002440  2c 5b 52 31 2c 23 33 36  5d 0d 11 b2 15 53 54 52  |,[R1,#36]....STR|
00002450  20 20 20 20 20 20 52 31  2c 6f 6c 64 52 31 0d 11  |      R1,oldR1..|
00002460  bc 16 41 44 44 20 20 20  20 20 20 52 31 2c 52 31  |..ADD      R1,R1|
00002470  2c 23 34 34 0d 11 c6 19  a4 61 64 72 6c 28 22 41  |,#44.....adrl("A|
00002480  4c 22 2c 30 2c 77 6f 72  6b 73 70 63 29 0d 11 d0  |L",0,workspc)...|
00002490  11 42 4c 20 20 20 20 20  20 20 63 6f 70 79 0d 11  |.BL       copy..|
000024a0  da 15 4c 44 52 20 20 20  20 20 20 52 31 2c 6f 6c  |..LDR      R1,ol|
000024b0  64 52 31 0d 11 e4 16 41  44 44 20 20 20 20 20 20  |dR1....ADD      |
000024c0  52 30 2c 52 31 2c 23 34  34 0d 11 ee 1b 41 44 52  |R0,R1,#44....ADR|
000024d0  20 20 20 20 20 20 52 31  2c 74 72 61 73 68 66 73  |      R1,trashfs|
000024e0  5f 64 69 72 0d 11 f8 11  42 4c 20 20 20 20 20 20  |_dir....BL      |
000024f0  20 63 6f 70 79 0d 12 02  15 53 55 42 20 20 20 20  | copy....SUB    |
00002500  20 20 52 30 2c 52 30 2c  23 31 0d 12 0c 15 4d 4f  |  R0,R0,#1....MO|
00002510  56 20 20 20 20 20 20 52  35 2c 23 97 22 2e 22 0d  |V      R5,#.".".|
00002520  12 16 17 53 54 52 20 20  20 20 20 20 52 35 2c 5b  |...STR      R5,[|
00002530  52 30 5d 2c 23 31 0d 12  20 19 a4 61 64 72 6c 28  |R0],#1.. ..adrl(|
00002540  22 41 4c 22 2c 31 2c 77  6f 72 6b 73 70 63 29 0d  |"AL",1,workspc).|
00002550  12 2a 11 42 4c 20 20 20  20 20 20 20 63 6f 70 79  |.*.BL       copy|
00002560  0d 12 34 15 4c 44 52 20  20 20 20 20 20 52 31 2c  |..4.LDR      R1,|
00002570  6f 6c 64 52 31 0d 12 3e  17 4c 44 52 20 20 20 20  |oldR1..>.LDR    |
00002580  20 20 52 30 2c 5b 52 31  2c 23 38 5d 0d 12 48 18  |  R0,[R1,#8]..H.|
00002590  53 54 52 20 20 20 20 20  20 52 30 2c 5b 52 31 2c  |STR      R0,[R1,|
000025a0  23 31 32 5d 0d 12 52 12  4d 4f 56 20 20 20 20 20  |#12]..R.MOV     |
000025b0  20 52 30 2c 23 32 0d 12  5c 18 53 54 52 20 20 20  | R0,#2..\.STR   |
000025c0  20 20 20 52 30 2c 5b 52  31 2c 23 31 36 5d 0d 12  |   R0,[R1,#16]..|
000025d0  66 13 4d 4f 56 20 20 20  20 20 20 52 30 2c 23 31  |f.MOV      R0,#1|
000025e0  37 0d 12 70 17 4c 44 52  20 20 20 20 20 20 52 32  |7..p.LDR      R2|
000025f0  2c 5b 52 31 2c 23 34 5d  0d 12 7a 12 4d 4f 56 20  |,[R1,#4]..z.MOV |
00002600  20 20 20 20 20 52 39 2c  23 30 0d 12 84 17 41 44  |     R9,#0....AD|
00002610  44 20 20 20 20 20 20 52  31 30 2c 52 31 2c 23 34  |D      R10,R1,#4|
00002620  34 0d 12 8e 12 2e 65 6e  64 5f 6f 66 5f 73 74 72  |4.....end_of_str|
00002630  69 6e 67 0d 12 98 19 4c  44 52 42 20 20 20 20 20  |ing....LDRB     |
00002640  52 31 31 2c 5b 52 31 30  5d 2c 23 31 0d 12 a2 15  |R11,[R10],#1....|
00002650  41 44 44 20 20 20 20 20  20 52 39 2c 52 39 2c 23  |ADD      R9,R9,#|
00002660  31 0d 12 ac 14 43 4d 50  20 20 20 20 20 20 52 31  |1....CMP      R1|
00002670  31 2c 23 33 32 0d 12 b6  1a 42 47 45 20 20 20 20  |1,#32....BGE    |
00002680  20 20 65 6e 64 5f 6f 66  5f 73 74 72 69 6e 67 0d  |  end_of_string.|
00002690  12 c0 16 4c 44 52 20 20  20 20 20 20 52 31 31 2c  |...LDR      R11,|
000026a0  6e 6f 74 5f 33 0d 12 ca  16 41 44 44 20 20 20 20  |not_3....ADD    |
000026b0  20 20 52 39 2c 52 39 2c  23 34 38 0d 12 d4 14 80  |  R9,R9,#48.....|
000026c0  20 20 20 20 20 20 52 39  2c 52 39 2c 52 31 31 0d  |      R9,R9,R11.|
000026d0  12 de 17 53 54 52 20 20  20 20 20 20 52 39 2c 5b  |...STR      R9,[|
000026e0  52 31 2c 23 30 5d 0d 12  e8 1f 53 57 49 20 20 20  |R1,#0]....SWI   |
000026f0  20 20 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |   "Wimp_SendMes|
00002700  73 61 67 65 22 0d 12 f2  16 4c 44 4d 46 44 20 20  |sage"....LDMFD  |
00002710  20 20 52 31 33 21 2c 7b  50 43 7d 0d 12 fc 04 0d  |  R13!,{PC}.....|
00002720  13 06 0a 2e 6e 6f 74 5f  33 0d 13 10 12 45 51 55  |....not_3....EQU|
00002730  44 20 20 20 20 20 28 ac  20 33 29 0d 13 1a 04 0d  |D     (. 3).....|
00002740  13 24 0a 2e 6d 6f 75 73  65 0d 13 2e 17 53 54 4d  |.$..mouse....STM|
00002750  46 44 20 20 20 20 52 31  33 21 2c 7b 52 31 34 7d  |FD    R13!,{R14}|
00002760  0d 13 38 17 4c 44 52 20  20 20 20 20 20 52 37 2c  |..8.LDR      R7,|
00002770  5b 52 31 2c 23 30 5d 0d  13 42 17 4c 44 52 20 20  |[R1,#0]..B.LDR  |
00002780  20 20 20 20 52 38 2c 5b  52 31 2c 23 34 5d 0d 13  |    R8,[R1,#4]..|
00002790  4c 17 4c 44 52 20 20 20  20 20 20 52 39 2c 5b 52  |L.LDR      R9,[R|
000027a0  31 2c 23 38 5d 0d 13 56  19 4c 44 52 20 20 20 20  |1,#8]..V.LDR    |
000027b0  20 20 52 31 30 2c 5b 52  31 2c 23 31 32 5d 0d 13  |  R10,[R1,#12]..|
000027c0  60 19 4c 44 52 20 20 20  20 20 20 52 31 31 2c 5b  |`.LDR      R11,[|
000027d0  52 31 2c 23 31 36 5d 0d  13 6a 12 43 4d 50 20 20  |R1,#16]..j.CMP  |
000027e0  20 20 20 20 52 39 2c 23  31 0d 13 74 13 42 45 51  |    R9,#1..t.BEQ|
000027f0  20 20 20 20 20 20 61 64  6a 75 73 74 0d 13 7e 12  |      adjust..~.|
00002800  43 4d 50 20 20 20 20 20  20 52 39 2c 23 32 0d 13  |CMP      R9,#2..|
00002810  88 11 42 45 51 20 20 20  20 20 20 6d 65 6e 75 0d  |..BEQ      menu.|
00002820  13 92 12 43 4d 50 20 20  20 20 20 20 52 39 2c 23  |...CMP      R9,#|
00002830  34 0d 13 9c 13 42 45 51  20 20 20 20 20 20 73 65  |4....BEQ      se|
00002840  6c 65 63 74 0d 13 a6 16  4c 44 4d 46 44 20 20 20  |lect....LDMFD   |
00002850  20 52 31 33 21 2c 7b 50  43 7d 0d 13 b0 04 0d 13  | R13!,{PC}......|
00002860  ba 09 2e 6d 65 6e 75 0d  13 c4 13 43 4d 4e 20 20  |...menu....CMN  |
00002870  20 20 20 20 52 31 30 2c  23 32 0d 13 ce 16 4c 44  |    R10,#2....LD|
00002880  4d 4e 45 46 44 20 20 52  31 33 21 2c 7b 50 43 7d  |MNEFD  R13!,{PC}|
00002890  0d 13 d8 1a 41 44 52 20  20 20 20 20 20 52 31 2c  |....ADR      R1,|
000028a0  6d 65 6e 75 5f 62 6c 6f  63 6b 0d 13 e2 19 41 44  |menu_block....AD|
000028b0  52 20 20 20 20 20 20 52  32 2c 71 75 69 74 5f 6d  |R      R2,quit_m|
000028c0  65 6e 75 0d 13 ec 19 53  54 52 20 20 20 20 20 20  |enu....STR      |
000028d0  52 32 2c 71 75 69 74 5f  70 6f 6b 65 0d 13 f6 16  |R2,quit_poke....|
000028e0  53 55 42 20 20 20 20 20  20 52 32 2c 52 37 2c 23  |SUB      R2,R7,#|
000028f0  36 34 0d 14 00 14 4d 4f  56 20 20 20 20 20 20 52  |64....MOV      R|
00002900  33 2c 23 33 35 32 0d 14  0a 1e 53 57 49 20 20 20  |3,#352....SWI   |
00002910  20 20 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |   "Wimp_CreateM|
00002920  65 6e 75 22 0d 14 14 16  4c 44 4d 46 44 20 20 20  |enu"....LDMFD   |
00002930  20 52 31 33 21 2c 7b 50  43 7d 0d 14 1e 0b 2e 73  | R13!,{PC}.....s|
00002940  65 6c 65 63 74 0d 14 28  13 43 4d 4e 20 20 20 20  |elect..(.CMN    |
00002950  20 20 52 31 30 2c 23 32  0d 14 32 16 4c 44 4d 4e  |  R10,#2..2.LDMN|
00002960  45 46 44 20 20 52 31 33  21 2c 7b 50 43 7d 0d 14  |EFD  R13!,{PC}..|
00002970  3c 14 4d 4f 56 20 20 20  20 20 20 52 30 2c 23 31  |<.MOV      R0,#1|
00002980  36 31 0d 14 46 16 4d 4f  56 20 20 20 20 20 20 52  |61..F.MOV      R|
00002990  31 2c 23 63 6d 6f 73 25  0d 14 50 16 53 57 49 20  |1,#cmos%..P.SWI |
000029a0  20 20 20 20 20 22 4f 53  5f 42 79 74 65 22 0d 14  |     "OS_Byte"..|
000029b0  5a 16 80 20 20 20 20 20  20 52 32 2c 52 32 2c 23  |Z..      R2,R2,#|
000029c0  31 3c 3c 31 0d 14 64 12  43 4d 50 20 20 20 20 20  |1<<1..d.CMP     |
000029d0  20 52 32 2c 23 30 0d 14  6e 16 4c 44 4d 4e 45 46  | R2,#0..n.LDMNEF|
000029e0  44 20 20 52 31 33 21 2c  7b 50 43 7d 0d 14 78 16  |D  R13!,{PC}..x.|
000029f0  42 4c 20 20 20 20 20 20  20 63 61 6e 65 78 69 73  |BL       canexis|
00002a00  74 73 0d 14 82 1a 41 44  52 20 20 20 20 20 20 52  |ts....ADR      R|
00002a10  30 2c 66 69 6c 65 72 5f  70 6f 6b 65 0d 14 8c 1d  |0,filer_poke....|
00002a20  41 44 52 20 20 20 20 20  20 52 31 2c 66 69 6c 65  |ADR      R1,file|
00002a30  72 5f 6f 70 65 6e 64 69  72 0d 14 96 11 42 4c 20  |r_opendir....BL |
00002a40  20 20 20 20 20 20 63 6f  70 79 0d 14 a0 1d a4 61  |      copy.....a|
00002a50  64 72 6c 28 22 41 4c 22  2c 31 2c 74 72 61 73 68  |drl("AL",1,trash|
00002a60  66 73 5f 64 69 72 29 0d  14 aa 15 53 55 42 20 20  |fs_dir)....SUB  |
00002a70  20 20 20 20 52 30 2c 52  30 2c 23 31 0d 14 b4 11  |    R0,R0,#1....|
00002a80  42 4c 20 20 20 20 20 20  20 63 6f 70 79 0d 14 be  |BL       copy...|
00002a90  1a 41 44 52 20 20 20 20  20 20 52 30 2c 66 69 6c  |.ADR      R0,fil|
00002aa0  65 72 5f 70 6f 6b 65 0d  14 c8 1e 53 57 49 20 20  |er_poke....SWI  |
00002ab0  20 20 20 20 22 58 57 69  6d 70 5f 53 74 61 72 74  |    "XWimp_Start|
00002ac0  54 61 73 6b 22 0d 14 d2  12 4d 4f 56 20 20 20 20  |Task"....MOV    |
00002ad0  20 20 52 30 2c 23 31 0d  14 dc 1a 53 54 52 20 20  |  R0,#1....STR  |
00002ae0  20 20 20 20 52 30 2c 74  72 61 73 68 5f 6f 70 65  |    R0,trash_ope|
00002af0  6e 0d 14 e6 16 4c 44 4d  46 44 20 20 20 20 52 31  |n....LDMFD    R1|
00002b00  33 21 2c 7b 50 43 7d 0d  14 f0 0b 2e 61 64 6a 75  |3!,{PC}.....adju|
00002b10  73 74 0d 14 fa 13 43 4d  4e 20 20 20 20 20 20 52  |st....CMN      R|
00002b20  31 30 2c 23 32 0d 15 04  16 4c 44 4d 4e 45 46 44  |10,#2....LDMNEFD|
00002b30  20 20 52 31 33 21 2c 7b  50 43 7d 0d 15 0e 14 4d  |  R13!,{PC}....M|
00002b40  4f 56 20 20 20 20 20 20  52 30 2c 23 31 36 31 0d  |OV      R0,#161.|
00002b50  15 18 16 4d 4f 56 20 20  20 20 20 20 52 31 2c 23  |...MOV      R1,#|
00002b60  63 6d 6f 73 25 0d 15 22  16 53 57 49 20 20 20 20  |cmos%..".SWI    |
00002b70  20 20 22 4f 53 5f 42 79  74 65 22 0d 15 2c 16 80  |  "OS_Byte"..,..|
00002b80  20 20 20 20 20 20 52 32  2c 52 32 2c 23 31 3c 3c  |      R2,R2,#1<<|
00002b90  31 0d 15 36 12 43 4d 50  20 20 20 20 20 20 52 32  |1..6.CMP      R2|
00002ba0  2c 23 30 0d 15 40 16 4c  44 4d 4e 45 46 44 20 20  |,#0..@.LDMNEFD  |
00002bb0  52 31 33 21 2c 7b 50 43  7d 0d 15 4a 16 42 4c 20  |R13!,{PC}..J.BL |
00002bc0  20 20 20 20 20 20 63 61  6e 65 78 69 73 74 73 0d  |      canexists.|
00002bd0  15 54 1a 41 44 52 20 20  20 20 20 20 52 30 2c 66  |.T.ADR      R0,f|
00002be0  69 6c 65 72 5f 70 6f 6b  65 0d 15 5e 1e 41 44 52  |iler_poke..^.ADR|
00002bf0  20 20 20 20 20 20 52 31  2c 66 69 6c 65 72 5f 63  |      R1,filer_c|
00002c00  6c 6f 73 65 64 69 72 0d  15 68 11 42 4c 20 20 20  |losedir..h.BL   |
00002c10  20 20 20 20 63 6f 70 79  0d 15 72 1d a4 61 64 72  |    copy..r..adr|
00002c20  6c 28 22 41 4c 22 2c 31  2c 74 72 61 73 68 66 73  |l("AL",1,trashfs|
00002c30  5f 64 69 72 29 0d 15 7c  15 53 55 42 20 20 20 20  |_dir)..|.SUB    |
00002c40  20 20 52 30 2c 52 30 2c  23 31 0d 15 86 11 42 4c  |  R0,R0,#1....BL|
00002c50  20 20 20 20 20 20 20 63  6f 70 79 0d 15 90 1a 41  |       copy....A|
00002c60  44 52 20 20 20 20 20 20  52 30 2c 66 69 6c 65 72  |DR      R0,filer|
00002c70  5f 70 6f 6b 65 0d 15 9a  1e 53 57 49 20 20 20 20  |_poke....SWI    |
00002c80  20 20 22 58 57 69 6d 70  5f 53 74 61 72 74 54 61  |  "XWimp_StartTa|
00002c90  73 6b 22 0d 15 a4 12 4d  4f 56 20 20 20 20 20 20  |sk"....MOV      |
00002ca0  52 30 2c 23 30 0d 15 ae  1a 53 54 52 20 20 20 20  |R0,#0....STR    |
00002cb0  20 20 52 30 2c 74 72 61  73 68 5f 6f 70 65 6e 0d  |  R0,trash_open.|
00002cc0  15 b8 16 4c 44 4d 46 44  20 20 20 20 52 31 33 21  |...LDMFD    R13!|
00002cd0  2c 7b 50 43 7d 0d 15 c2  04 0d 15 cc 12 2e 66 69  |,{PC}.........fi|
00002ce0  6c 65 72 5f 6f 70 65 6e  64 69 72 0d 15 d6 24 45  |ler_opendir...$E|
00002cf0  51 55 53 20 20 20 20 20  22 46 69 6c 65 72 5f 4f  |QUS     "Filer_O|
00002d00  70 65 6e 44 69 72 20 22  3a 45 51 55 42 20 30 0d  |penDir ":EQUB 0.|
00002d10  15 e0 13 2e 66 69 6c 65  72 5f 63 6c 6f 73 65 64  |....filer_closed|
00002d20  69 72 0d 15 ea 25 45 51  55 53 20 20 20 20 20 22  |ir...%EQUS     "|
00002d30  46 69 6c 65 72 5f 43 6c  6f 73 65 44 69 72 20 22  |Filer_CloseDir "|
00002d40  3a 45 51 55 42 20 30 0d  15 f4 24 2e 66 69 6c 65  |:EQUB 0...$.file|
00002d50  72 5f 70 6f 6b 65 20 20  20 20 20 20 20 20 45 51  |r_poke        EQ|
00002d60  55 53 20 c4 31 35 35 2c  bd 30 29 0d 15 fe 09 41  |US .155,.0)....A|
00002d70  4c 49 47 4e 0d 16 08 04  0d 16 12 0b 2e 62 6f 72  |LIGN.........bor|
00002d80  64 65 72 0d 16 1c 17 53  54 4d 46 44 20 20 20 20  |der....STMFD    |
00002d90  52 31 33 21 2c 7b 52 31  34 7d 0d 16 26 1c 4c 44  |R13!,{R14}..&.LD|
00002da0  52 20 20 20 20 20 20 52  30 2c 77 61 72 6e 69 6e  |R      R0,warnin|
00002db0  67 5f 70 6f 6b 65 0d 16  30 12 43 4d 50 20 20 20  |g_poke..0.CMP   |
00002dc0  20 20 20 52 30 2c 23 31  0d 16 3a 16 4c 44 4d 4e  |   R0,#1..:.LDMN|
00002dd0  45 46 44 20 20 52 31 33  21 2c 7b 50 43 7d 0d 16  |EFD  R13!,{PC}..|
00002de0  44 19 a4 61 64 72 6c 28  22 41 4c 22 2c 31 2c 77  |D..adrl("AL",1,w|
00002df0  6f 72 6b 73 70 63 29 0d  16 4e 22 53 57 49 20 20  |orkspc)..N"SWI  |
00002e00  20 20 20 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |    "Wimp_GetPoi|
00002e10  6e 74 65 72 49 6e 66 6f  22 0d 16 58 17 4c 44 52  |nterInfo"..X.LDR|
00002e20  20 20 20 20 20 20 52 37  2c 5b 52 31 2c 23 38 5d  |      R7,[R1,#8]|
00002e30  0d 16 62 18 4c 44 52 20  20 20 20 20 20 52 38 2c  |..b.LDR      R8,|
00002e40  5b 52 31 2c 23 31 32 5d  0d 16 6c 18 4c 44 52 20  |[R1,#12]..l.LDR |
00002e50  20 20 20 20 20 52 39 2c  5b 52 31 2c 23 31 36 5d  |     R9,[R1,#16]|
00002e60  0d 16 76 12 43 4d 4e 20  20 20 20 20 20 52 38 2c  |..v.CMN      R8,|
00002e70  23 32 0d 16 80 1d 4c 44  52 45 51 20 20 20 20 52  |#2....LDREQ    R|
00002e80  31 30 2c 69 63 6f 6e 62  61 72 5f 68 61 6e 64 0d  |10,iconbar_hand.|
00002e90  16 8a 13 43 4d 50 45 51  20 20 20 20 52 39 2c 52  |...CMPEQ    R9,R|
00002ea0  31 30 0d 16 94 16 42 45  51 20 20 20 20 20 20 6d  |10....BEQ      m|
00002eb0  61 79 62 65 64 72 61 67  0d 16 9e 14 43 4d 50 20  |aybedrag....CMP |
00002ec0  20 20 20 20 20 52 39 2c  23 26 30 37 0d 16 a8 1b  |     R9,#&07....|
00002ed0  42 45 51 20 20 20 20 20  20 6d 61 79 62 65 69 6d  |BEQ      maybeim|
00002ee0  6d 65 64 69 61 74 65 0d  16 b2 14 43 4d 50 20 20  |mediate....CMP  |
00002ef0  20 20 20 20 52 39 2c 23  26 30 44 0d 16 bc 16 42  |    R9,#&0D....B|
00002f00  4e 45 20 20 20 20 20 20  6d 61 79 62 65 67 72 65  |NE      maybegre|
00002f10  79 0d 16 c6 0d 2e 6d 61  79 62 65 72 65 64 0d 16  |y.....maybered..|
00002f20  d0 17 53 54 52 20 20 20  20 20 20 52 38 2c 5b 52  |..STR      R8,[R|
00002f30  31 2c 23 30 5d 0d 16 da  17 53 54 52 20 20 20 20  |1,#0]....STR    |
00002f40  20 20 52 39 2c 5b 52 31  2c 23 34 5d 0d 16 e4 20  |  R9,[R1,#4]... |
00002f50  53 57 49 20 20 20 20 20  20 22 57 69 6d 70 5f 47  |SWI      "Wimp_G|
00002f60  65 74 49 63 6f 6e 53 74  61 74 65 22 0d 16 ee 16  |etIconState"....|
00002f70  41 44 44 20 20 20 20 20  20 52 38 2c 52 31 2c 23  |ADD      R8,R1,#|
00002f80  32 38 0d 16 f8 19 41 44  52 20 20 20 20 20 20 52  |28....ADR      R|
00002f90  39 2c 6d 65 6e 75 5f 69  74 65 6d 0d 17 02 14 42  |9,menu_item....B|
00002fa0  4c 20 20 20 20 20 20 20  63 6f 6d 70 61 72 65 0d  |L       compare.|
00002fb0  17 0c 12 43 4d 50 20 20  20 20 20 20 52 34 2c 23  |...CMP      R4,#|
00002fc0  33 0d 17 16 16 4c 44 4d  4e 45 46 44 20 20 52 31  |3....LDMNEFD  R1|
00002fd0  33 21 2c 7b 50 43 7d 0d  17 20 1b 4c 44 52 20 20  |3!,{PC}.. .LDR  |
00002fe0  20 20 20 20 52 30 2c 62  6f 72 64 65 72 69 73 72  |    R0,borderisr|
00002ff0  65 64 0d 17 2a 12 43 4d  50 20 20 20 20 20 20 52  |ed..*.CMP      R|
00003000  30 2c 23 31 0d 17 34 16  4c 44 4d 45 51 46 44 20  |0,#1..4.LDMEQFD |
00003010  20 52 31 33 21 2c 7b 50  43 7d 0d 17 3e 19 a4 61  | R13!,{PC}..>..a|
00003020  64 72 6c 28 22 41 4c 22  2c 31 2c 77 6f 72 6b 73  |drl("AL",1,works|
00003030  70 63 29 0d 17 48 1f 53  57 49 20 20 20 20 20 20  |pc)..H.SWI      |
00003040  22 57 69 6d 70 5f 52 65  61 64 50 61 6c 65 74 74  |"Wimp_ReadPalett|
00003050  65 22 0d 17 52 18 4c 44  52 20 20 20 20 20 20 52  |e"..R.LDR      R|
00003060  30 2c 5b 52 31 2c 23 36  34 5d 0d 17 5c 16 53 54  |0,[R1,#64]..\.ST|
00003070  52 20 20 20 20 20 20 52  30 2c 6f 6c 64 70 61 6c  |R      R0,oldpal|
00003080  0d 17 66 16 4d 4f 56 20  20 20 20 20 20 52 30 2c  |..f.MOV      R0,|
00003090  23 26 46 30 30 30 0d 17  70 18 53 54 52 20 20 20  |#&F000..p.STR   |
000030a0  20 20 20 52 30 2c 5b 52  31 2c 23 36 34 5d 0d 17  |   R0,[R1,#64]..|
000030b0  7a 13 4d 4f 56 20 20 20  20 20 20 52 30 2c 23 31  |z.MOV      R0,#1|
000030c0  39 0d 17 84 16 53 57 49  20 20 20 20 20 20 22 4f  |9....SWI      "O|
000030d0  53 5f 42 79 74 65 22 0d  17 8e 19 a4 61 64 72 6c  |S_Byte".....adrl|
000030e0  28 22 41 4c 22 2c 31 2c  77 6f 72 6b 73 70 63 29  |("AL",1,workspc)|
000030f0  0d 17 98 1e 53 57 49 20  20 20 20 20 20 22 57 69  |....SWI      "Wi|
00003100  6d 70 5f 53 65 74 50 61  6c 65 74 74 65 22 0d 17  |mp_SetPalette"..|
00003110  a2 12 4d 4f 56 20 20 20  20 20 20 52 30 2c 23 31  |..MOV      R0,#1|
00003120  0d 17 ac 1b 53 54 52 20  20 20 20 20 20 52 30 2c  |....STR      R0,|
00003130  62 6f 72 64 65 72 69 73  72 65 64 0d 17 b6 16 4c  |borderisred....L|
00003140  44 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 50 43  |DMFD    R13!,{PC|
00003150  7d 0d 17 c0 13 2e 6d 61  79 62 65 69 6d 6d 65 64  |}.....maybeimmed|
00003160  69 61 74 65 0d 17 ca 17  42 4c 20 20 20 20 20 20  |iate....BL      |
00003170  20 75 70 64 61 74 65 69  63 6f 6e 0d 17 d4 13 43  | updateicon....C|
00003180  4d 50 20 20 20 20 20 20  52 31 30 2c 23 30 0d 17  |MP      R10,#0..|
00003190  de 16 42 45 51 20 20 20  20 20 20 6d 61 79 62 65  |..BEQ      maybe|
000031a0  67 72 65 79 0d 17 e8 17  53 54 52 20 20 20 20 20  |grey....STR     |
000031b0  20 52 38 2c 5b 52 31 2c  23 30 5d 0d 17 f2 17 53  | R8,[R1,#0]....S|
000031c0  54 52 20 20 20 20 20 20  52 39 2c 5b 52 31 2c 23  |TR      R9,[R1,#|
000031d0  34 5d 0d 17 fc 20 53 57  49 20 20 20 20 20 20 22  |4]... SWI      "|
000031e0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000031f0  65 22 0d 18 06 16 41 44  44 20 20 20 20 20 20 52  |e"....ADD      R|
00003200  38 2c 52 31 2c 23 32 38  0d 18 10 1a 41 44 52 20  |8,R1,#28....ADR |
00003210  20 20 20 20 20 52 39 2c  6d 65 6e 75 5f 69 74 65  |     R9,menu_ite|
00003220  6d 32 0d 18 1a 14 42 4c  20 20 20 20 20 20 20 63  |m2....BL       c|
00003230  6f 6d 70 61 72 65 0d 18  24 12 43 4d 50 20 20 20  |ompare..$.CMP   |
00003240  20 20 20 52 34 2c 23 33  0d 18 2e 16 4c 44 4d 4e  |   R4,#3....LDMN|
00003250  45 46 44 20 20 52 31 33  21 2c 7b 50 43 7d 0d 18  |EFD  R13!,{PC}..|
00003260  38 1b 4c 44 52 20 20 20  20 20 20 52 30 2c 62 6f  |8.LDR      R0,bo|
00003270  72 64 65 72 69 73 72 65  64 0d 18 42 12 43 4d 50  |rderisred..B.CMP|
00003280  20 20 20 20 20 20 52 30  2c 23 31 0d 18 4c 16 4c  |      R0,#1..L.L|
00003290  44 4d 45 51 46 44 20 20  52 31 33 21 2c 7b 50 43  |DMEQFD  R13!,{PC|
000032a0  7d 0d 18 56 19 a4 61 64  72 6c 28 22 41 4c 22 2c  |}..V..adrl("AL",|
000032b0  31 2c 77 6f 72 6b 73 70  63 29 0d 18 60 1f 53 57  |1,workspc)..`.SW|
000032c0  49 20 20 20 20 20 20 22  57 69 6d 70 5f 52 65 61  |I      "Wimp_Rea|
000032d0  64 50 61 6c 65 74 74 65  22 0d 18 6a 18 4c 44 52  |dPalette"..j.LDR|
000032e0  20 20 20 20 20 20 52 30  2c 5b 52 31 2c 23 36 34  |      R0,[R1,#64|
000032f0  5d 0d 18 74 16 53 54 52  20 20 20 20 20 20 52 30  |]..t.STR      R0|
00003300  2c 6f 6c 64 70 61 6c 0d  18 7e 16 4d 4f 56 20 20  |,oldpal..~.MOV  |
00003310  20 20 20 20 52 30 2c 23  26 46 30 30 30 0d 18 88  |    R0,#&F000...|
00003320  18 53 54 52 20 20 20 20  20 20 52 30 2c 5b 52 31  |.STR      R0,[R1|
00003330  2c 23 36 34 5d 0d 18 92  13 4d 4f 56 20 20 20 20  |,#64]....MOV    |
00003340  20 20 52 30 2c 23 31 39  0d 18 9c 16 53 57 49 20  |  R0,#19....SWI |
00003350  20 20 20 20 20 22 4f 53  5f 42 79 74 65 22 0d 18  |     "OS_Byte"..|
00003360  a6 19 a4 61 64 72 6c 28  22 41 4c 22 2c 31 2c 77  |...adrl("AL",1,w|
00003370  6f 72 6b 73 70 63 29 0d  18 b0 1e 53 57 49 20 20  |orkspc)....SWI  |
00003380  20 20 20 20 22 57 69 6d  70 5f 53 65 74 50 61 6c  |    "Wimp_SetPal|
00003390  65 74 74 65 22 0d 18 ba  12 4d 4f 56 20 20 20 20  |ette"....MOV    |
000033a0  20 20 52 30 2c 23 31 0d  18 c4 1b 53 54 52 20 20  |  R0,#1....STR  |
000033b0  20 20 20 20 52 30 2c 62  6f 72 64 65 72 69 73 72  |    R0,borderisr|
000033c0  65 64 0d 18 ce 16 4c 44  4d 46 44 20 20 20 20 52  |ed....LDMFD    R|
000033d0  31 33 21 2c 7b 50 43 7d  0d 18 d8 0e 2e 6d 61 79  |13!,{PC}.....may|
000033e0  62 65 67 72 65 79 0d 18  e2 1b 4c 44 52 20 20 20  |begrey....LDR   |
000033f0  20 20 20 52 30 2c 62 6f  72 64 65 72 69 73 72 65  |   R0,borderisre|
00003400  64 0d 18 ec 12 43 4d 50  20 20 20 20 20 20 52 30  |d....CMP      R0|
00003410  2c 23 30 0d 18 f6 16 4c  44 4d 45 51 46 44 20 20  |,#0....LDMEQFD  |
00003420  52 31 33 21 2c 7b 50 43  7d 0d 19 00 19 a4 61 64  |R13!,{PC}.....ad|
00003430  72 6c 28 22 41 4c 22 2c  31 2c 77 6f 72 6b 73 70  |rl("AL",1,worksp|
00003440  63 29 0d 19 0a 1f 53 57  49 20 20 20 20 20 20 22  |c)....SWI      "|
00003450  57 69 6d 70 5f 52 65 61  64 50 61 6c 65 74 74 65  |Wimp_ReadPalette|
00003460  22 0d 19 14 16 4c 44 52  20 20 20 20 20 20 52 30  |"....LDR      R0|
00003470  2c 6f 6c 64 70 61 6c 0d  19 1e 18 53 54 52 20 20  |,oldpal....STR  |
00003480  20 20 20 20 52 30 2c 5b  52 31 2c 23 36 34 5d 0d  |    R0,[R1,#64].|
00003490  19 28 13 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |.(.MOV      R0,#|
000034a0  31 39 0d 19 32 16 53 57  49 20 20 20 20 20 20 22  |19..2.SWI      "|
000034b0  4f 53 5f 42 79 74 65 22  0d 19 3c 19 a4 61 64 72  |OS_Byte"..<..adr|
000034c0  6c 28 22 41 4c 22 2c 31  2c 77 6f 72 6b 73 70 63  |l("AL",1,workspc|
000034d0  29 0d 19 46 1e 53 57 49  20 20 20 20 20 20 22 57  |)..F.SWI      "W|
000034e0  69 6d 70 5f 53 65 74 50  61 6c 65 74 74 65 22 0d  |imp_SetPalette".|
000034f0  19 50 12 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |.P.MOV      R0,#|
00003500  30 0d 19 5a 1b 53 54 52  20 20 20 20 20 20 52 30  |0..Z.STR      R0|
00003510  2c 62 6f 72 64 65 72 69  73 72 65 64 0d 19 64 16  |,borderisred..d.|
00003520  4c 44 4d 46 44 20 20 20  20 52 31 33 21 2c 7b 50  |LDMFD    R13!,{P|
00003530  43 7d 0d 19 6e 0e 2e 6d  61 79 62 65 64 72 61 67  |C}..n..maybedrag|
00003540  0d 19 78 12 43 4d 50 20  20 20 20 20 20 52 37 2c  |..x.CMP      R7,|
00003550  23 34 0d 19 82 12 43 4d  50 4e 45 20 20 20 20 52  |#4....CMPNE    R|
00003560  37 2c 23 31 0d 19 8c 16  42 4e 45 20 20 20 20 20  |7,#1....BNE     |
00003570  20 6d 61 79 62 65 67 72  65 79 0d 19 96 1e 4c 44  | maybegrey....LD|
00003580  52 20 20 20 20 20 20 52  30 2c 69 6d 6d 65 64 69  |R      R0,immedi|
00003590  61 74 65 5f 70 6f 6b 65  0d 19 a0 12 43 4d 50 20  |ate_poke....CMP |
000035a0  20 20 20 20 20 52 30 2c  23 31 0d 19 aa 16 4c 44  |     R0,#1....LD|
000035b0  4d 4e 45 46 44 20 20 52  31 33 21 2c 7b 50 43 7d  |MNEFD  R13!,{PC}|
000035c0  0d 19 b4 1b 4c 44 52 20  20 20 20 20 20 52 30 2c  |....LDR      R0,|
000035d0  62 6f 72 64 65 72 69 73  72 65 64 0d 19 be 12 43  |borderisred....C|
000035e0  4d 50 20 20 20 20 20 20  52 30 2c 23 31 0d 19 c8  |MP      R0,#1...|
000035f0  16 4c 44 4d 45 51 46 44  20 20 52 31 33 21 2c 7b  |.LDMEQFD  R13!,{|
00003600  50 43 7d 0d 19 d2 19 a4  61 64 72 6c 28 22 41 4c  |PC}.....adrl("AL|
00003610  22 2c 31 2c 77 6f 72 6b  73 70 63 29 0d 19 dc 1f  |",1,workspc)....|
00003620  53 57 49 20 20 20 20 20  20 22 57 69 6d 70 5f 52  |SWI      "Wimp_R|
00003630  65 61 64 50 61 6c 65 74  74 65 22 0d 19 e6 18 4c  |eadPalette"....L|
00003640  44 52 20 20 20 20 20 20  52 30 2c 5b 52 31 2c 23  |DR      R0,[R1,#|
00003650  36 34 5d 0d 19 f0 16 53  54 52 20 20 20 20 20 20  |64]....STR      |
00003660  52 30 2c 6f 6c 64 70 61  6c 0d 19 fa 16 4d 4f 56  |R0,oldpal....MOV|
00003670  20 20 20 20 20 20 52 30  2c 23 26 46 30 30 30 0d  |      R0,#&F000.|
00003680  1a 04 18 53 54 52 20 20  20 20 20 20 52 30 2c 5b  |...STR      R0,[|
00003690  52 31 2c 23 36 34 5d 0d  1a 0e 13 4d 4f 56 20 20  |R1,#64]....MOV  |
000036a0  20 20 20 20 52 30 2c 23  31 39 0d 1a 18 16 53 57  |    R0,#19....SW|
000036b0  49 20 20 20 20 20 20 22  4f 53 5f 42 79 74 65 22  |I      "OS_Byte"|
000036c0  0d 1a 22 19 a4 61 64 72  6c 28 22 41 4c 22 2c 31  |.."..adrl("AL",1|
000036d0  2c 77 6f 72 6b 73 70 63  29 0d 1a 2c 1e 53 57 49  |,workspc)..,.SWI|
000036e0  20 20 20 20 20 20 22 57  69 6d 70 5f 53 65 74 50  |      "Wimp_SetP|
000036f0  61 6c 65 74 74 65 22 0d  1a 36 12 4d 4f 56 20 20  |alette"..6.MOV  |
00003700  20 20 20 20 52 30 2c 23  31 0d 1a 40 1b 53 54 52  |    R0,#1..@.STR|
00003710  20 20 20 20 20 20 52 30  2c 62 6f 72 64 65 72 69  |      R0,borderi|
00003720  73 72 65 64 0d 1a 4a 16  4c 44 4d 46 44 20 20 20  |sred..J.LDMFD   |
00003730  20 52 31 33 21 2c 7b 50  43 7d 0d 1a 54 04 0d 1a  | R13!,{PC}..T...|
00003740  5e 0e 2e 6d 65 6e 75 5f  69 74 65 6d 0d 1a 68 21  |^..menu_item..h!|
00003750  45 51 55 53 20 20 20 20  20 22 45 6d 70 74 79 20  |EQUS     "Empty |
00003760  54 72 61 73 68 22 3a 45  51 55 42 20 30 0d 1a 72  |Trash":EQUB 0..r|
00003770  0f 2e 6d 65 6e 75 5f 69  74 65 6d 32 0d 1a 7c 1f  |..menu_item2..|.|
00003780  45 51 55 53 20 20 20 20  20 22 49 6d 6d 65 64 69  |EQUS     "Immedi|
00003790  61 74 65 22 3a 45 51 55  42 20 30 0d 1a 86 09 41  |ate":EQUB 0....A|
000037a0  4c 49 47 4e 0d 1a 90 04  0d 1a 9a 0c 2e 63 6f 6d  |LIGN.........com|
000037b0  70 61 72 65 0d 1a a4 17  53 54 4d 46 44 20 20 20  |pare....STMFD   |
000037c0  20 52 31 33 21 2c 7b 52  31 34 7d 0d 1a ae 12 4d  | R13!,{R14}....M|
000037d0  4f 56 20 20 20 20 20 20  52 34 2c 23 30 0d 1a b8  |OV      R4,#0...|
000037e0  0d 2e 63 6f 6d 70 63 68  61 72 0d 1a c2 18 4c 44  |..compchar....LD|
000037f0  52 42 20 20 20 20 20 52  31 30 2c 5b 52 38 5d 2c  |RB     R10,[R8],|
00003800  23 31 0d 1a cc 18 4c 44  52 42 20 20 20 20 20 52  |#1....LDRB     R|
00003810  31 31 2c 5b 52 39 5d 2c  23 31 0d 1a d6 14 43 4d  |11,[R9],#1....CM|
00003820  50 20 20 20 20 20 20 52  31 30 2c 52 31 31 0d 1a  |P      R10,R11..|
00003830  e0 12 4d 4f 56 47 54 20  20 20 20 52 34 2c 23 31  |..MOVGT    R4,#1|
00003840  0d 1a ea 12 4d 4f 56 4c  54 20 20 20 20 52 34 2c  |....MOVLT    R4,|
00003850  23 32 0d 1a f4 15 42 4e  45 20 20 20 20 20 20 63  |#2....BNE      c|
00003860  6f 6d 70 64 6f 6e 65 0d  1a fe 14 43 4d 50 20 20  |ompdone....CMP  |
00003870  20 20 20 20 52 31 30 2c  23 33 32 0d 1b 08 15 41  |    R10,#32....A|
00003880  44 44 4c 54 20 20 20 20  52 34 2c 52 34 2c 23 32  |DDLT    R4,R4,#2|
00003890  0d 1b 12 14 43 4d 50 20  20 20 20 20 20 52 31 31  |....CMP      R11|
000038a0  2c 23 33 32 0d 1b 1c 15  41 44 44 4c 54 20 20 20  |,#32....ADDLT   |
000038b0  20 52 34 2c 52 34 2c 23  31 0d 1b 26 12 43 4d 50  | R4,R4,#1..&.CMP|
000038c0  20 20 20 20 20 20 52 34  2c 23 30 0d 1b 30 15 42  |      R4,#0..0.B|
000038d0  45 51 20 20 20 20 20 20  63 6f 6d 70 63 68 61 72  |EQ      compchar|
000038e0  0d 1b 3a 0d 2e 63 6f 6d  70 64 6f 6e 65 0d 1b 44  |..:..compdone..D|
000038f0  16 4c 44 4d 46 44 20 20  20 20 52 31 33 21 2c 7b  |.LDMFD    R13!,{|
00003900  50 43 7d 0d 1b 4e 04 0d  1b 58 0c 2e 6d 65 6e 75  |PC}..N...X..menu|
00003910  73 65 6c 0d 1b 62 17 53  54 4d 46 44 20 20 20 20  |sel..b.STMFD    |
00003920  52 31 33 21 2c 7b 52 31  34 7d 0d 1b 6c 15 53 54  |R13!,{R14}..l.ST|
00003930  52 20 20 20 20 20 20 52  31 2c 6f 6c 64 52 31 0d  |R      R1,oldR1.|
00003940  1b 76 19 a4 61 64 72 6c  28 22 41 4c 22 2c 31 2c  |.v..adrl("AL",1,|
00003950  77 6f 72 6b 73 70 63 29  0d 1b 80 22 53 57 49 20  |workspc)..."SWI |
00003960  20 20 20 20 20 22 57 69  6d 70 5f 47 65 74 50 6f  |     "Wimp_GetPo|
00003970  69 6e 74 65 72 49 6e 66  6f 22 0d 1b 8a 17 4c 44  |interInfo"....LD|
00003980  52 20 20 20 20 20 20 52  39 2c 5b 52 31 2c 23 30  |R      R9,[R1,#0|
00003990  5d 0d 1b 94 18 4c 44 52  20 20 20 20 20 20 52 31  |]....LDR      R1|
000039a0  30 2c 5b 52 31 2c 23 34  5d 0d 1b 9e 18 4c 44 52  |0,[R1,#4]....LDR|
000039b0  20 20 20 20 20 20 52 31  31 2c 5b 52 31 2c 23 38  |      R11,[R1,#8|
000039c0  5d 0d 1b a8 15 80 20 20  20 20 20 20 52 31 31 2c  |].....      R11,|
000039d0  52 31 31 2c 23 31 0d 1b  b2 15 4c 44 52 20 20 20  |R11,#1....LDR   |
000039e0  20 20 20 52 31 2c 6f 6c  64 52 31 0d 1b bc 17 4c  |   R1,oldR1....L|
000039f0  44 52 20 20 20 20 20 20  52 30 2c 5b 52 31 2c 23  |DR      R0,[R1,#|
00003a00  30 5d 0d 1b c6 12 43 4d  50 20 20 20 20 20 20 52  |0]....CMP      R|
00003a10  30 2c 23 31 0d 1b d0 17  42 45 51 20 20 20 20 20  |0,#1....BEQ     |
00003a20  20 77 61 72 6e 69 6e 67  74 6f 67 0d 1b da 12 43  | warningtog....C|
00003a30  4d 50 20 20 20 20 20 20  52 30 2c 23 32 0d 1b e4  |MP      R0,#2...|
00003a40  19 42 45 51 20 20 20 20  20 20 69 6d 6d 65 64 69  |.BEQ      immedi|
00003a50  61 74 65 74 6f 67 0d 1b  ee 12 43 4d 50 20 20 20  |atetog....CMP   |
00003a60  20 20 20 52 30 2c 23 33  0d 1b f8 17 42 45 51 20  |   R0,#3....BEQ |
00003a70  20 20 20 20 20 61 6e 69  6d 61 74 65 74 6f 67 0d  |     animatetog.|
00003a80  1c 02 12 43 4d 50 20 20  20 20 20 20 52 30 2c 23  |...CMP      R0,#|
00003a90  34 0d 1c 0c 12 42 45 51  20 20 20 20 20 20 65 6d  |4....BEQ      em|
00003aa0  70 74 79 0d 1c 16 12 43  4d 50 20 20 20 20 20 20  |pty....CMP      |
00003ab0  52 30 2c 23 35 0d 1c 20  11 42 45 51 20 20 20 20  |R0,#5.. .BEQ    |
00003ac0  20 20 71 75 69 74 0d 1c  2a 13 43 4d 50 20 20 20  |  quit..*.CMP   |
00003ad0  20 20 20 52 31 31 2c 23  30 0d 1c 34 1c a4 61 64  |   R11,#0..4..ad|
00003ae0  72 6c 28 22 4e 45 22 2c  31 2c 6d 65 6e 75 5f 62  |rl("NE",1,menu_b|
00003af0  6c 6f 63 6b 29 0d 1c 3e  12 4d 4f 56 4e 45 20 20  |lock)..>.MOVNE  |
00003b00  20 20 52 32 2c 52 39 0d  1c 48 13 4d 4f 56 4e 45  |  R2,R9..H.MOVNE|
00003b10  20 20 20 20 52 33 2c 52  31 30 0d 1c 52 1e 53 57  |    R3,R10..R.SW|
00003b20  49 4e 45 20 20 20 20 22  57 69 6d 70 5f 43 72 65  |INE    "Wimp_Cre|
00003b30  61 74 65 4d 65 6e 75 22  0d 1c 5c 16 4c 44 4d 46  |ateMenu"..\.LDMF|
00003b40  44 20 20 20 20 52 31 33  21 2c 7b 50 43 7d 0d 1c  |D    R13!,{PC}..|
00003b50  66 09 2e 71 75 69 74 0d  1c 70 17 4c 44 52 20 20  |f..quit..p.LDR  |
00003b60  20 20 20 20 52 30 2c 5b  52 31 2c 23 34 5d 0d 1c  |    R0,[R1,#4]..|
00003b70  7a 12 43 4d 50 20 20 20  20 20 20 52 30 2c 23 30  |z.CMP      R0,#0|
00003b80  0d 1c 84 16 42 4e 45 20  20 20 20 20 20 70 65 72  |....BNE      per|
00003b90  6d 61 6e 65 6e 74 0d 1c  8e 16 42 4c 45 51 20 20  |manent....BLEQ  |
00003ba0  20 20 20 63 6c 6f 73 65  64 6f 77 6e 0d 1c 98 13  |   closedown....|
00003bb0  43 4d 50 20 20 20 20 20  20 52 31 31 2c 23 30 0d  |CMP      R11,#0.|
00003bc0  1c a2 1c a4 61 64 72 6c  28 22 4e 45 22 2c 31 2c  |....adrl("NE",1,|
00003bd0  6d 65 6e 75 5f 62 6c 6f  63 6b 29 0d 1c ac 12 4d  |menu_block)....M|
00003be0  4f 56 4e 45 20 20 20 20  52 32 2c 52 39 0d 1c b6  |OVNE    R2,R9...|
00003bf0  13 4d 4f 56 4e 45 20 20  20 20 52 33 2c 52 31 30  |.MOVNE    R3,R10|
00003c00  0d 1c c0 1e 53 57 49 4e  45 20 20 20 20 22 57 69  |....SWINE    "Wi|
00003c10  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 0d 1c  |mp_CreateMenu"..|
00003c20  ca 16 4c 44 4d 46 44 20  20 20 20 52 31 33 21 2c  |..LDMFD    R13!,|
00003c30  7b 50 43 7d 0d 1c d4 0e  2e 70 65 72 6d 61 6e 65  |{PC}.....permane|
00003c40  6e 74 0d 1c de 16 42 4c  45 51 20 20 20 20 20 63  |nt....BLEQ     c|
00003c50  6c 6f 73 65 64 6f 77 6e  0d 1c e8 12 4d 4f 56 20  |losedown....MOV |
00003c60  20 20 20 20 20 52 30 2c  23 34 0d 1c f2 17 a4 61  |     R0,#4.....a|
00003c70  64 72 6c 28 22 41 4c 22  2c 31 2c 74 69 74 6c 65  |drl("AL",1,title|
00003c80  29 0d 1c fc 18 53 57 49  20 20 20 20 20 20 22 4f  |)....SWI      "O|
00003c90  53 5f 4d 6f 64 75 6c 65  22 0d 1d 06 13 43 4d 50  |S_Module"....CMP|
00003ca0  20 20 20 20 20 20 52 31  31 2c 23 30 0d 1d 10 1c  |      R11,#0....|
00003cb0  a4 61 64 72 6c 28 22 4e  45 22 2c 31 2c 6d 65 6e  |.adrl("NE",1,men|
00003cc0  75 5f 62 6c 6f 63 6b 29  0d 1d 1a 12 4d 4f 56 4e  |u_block)....MOVN|
00003cd0  45 20 20 20 20 52 32 2c  52 39 0d 1d 24 13 4d 4f  |E    R2,R9..$.MO|
00003ce0  56 4e 45 20 20 20 20 52  33 2c 52 31 30 0d 1d 2e  |VNE    R3,R10...|
00003cf0  1e 53 57 49 4e 45 20 20  20 20 22 57 69 6d 70 5f  |.SWINE    "Wimp_|
00003d00  43 72 65 61 74 65 4d 65  6e 75 22 0d 1d 38 16 4c  |CreateMenu"..8.L|
00003d10  44 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 50 43  |DMFD    R13!,{PC|
00003d20  7d 0d 1d 42 0a 2e 65 6d  70 74 79 0d 1d 4c 14 4d  |}..B..empty..L.M|
00003d30  4f 56 20 20 20 20 20 20  52 30 2c 23 31 30 30 0d  |OV      R0,#100.|
00003d40  1d 56 1f 53 57 49 20 20  20 20 20 20 22 58 48 6f  |.V.SWI      "XHo|
00003d50  75 72 67 6c 61 73 73 5f  53 74 61 72 74 22 0d 1d  |urglass_Start"..|
00003d60  60 17 41 44 52 20 20 20  20 20 20 52 30 2c 66 73  |`.ADR      R0,fs|
00003d70  5f 62 75 66 66 0d 1d 6a  1d a4 61 64 72 6c 28 22  |_buff..j..adrl("|
00003d80  41 4c 22 2c 31 2c 74 72  61 73 68 66 73 5f 64 69  |AL",1,trashfs_di|
00003d90  72 29 0d 1d 74 11 42 4c  20 20 20 20 20 20 20 63  |r)..t.BL       c|
00003da0  6f 70 79 0d 1d 7e 15 53  55 42 20 20 20 20 20 20  |opy..~.SUB      |
00003db0  52 30 2c 52 30 2c 23 31  0d 1d 88 15 4d 4f 56 20  |R0,R0,#1....MOV |
00003dc0  20 20 20 20 20 52 31 2c  23 97 22 2e 22 0d 1d 92  |     R1,#."."...|
00003dd0  17 53 54 52 42 20 20 20  20 20 52 31 2c 5b 52 30  |.STRB     R1,[R0|
00003de0  5d 2c 23 31 0d 1d 9c 15  4d 4f 56 20 20 20 20 20  |],#1....MOV     |
00003df0  20 52 31 2c 23 97 22 2a  22 0d 1d a6 17 53 54 52  | R1,#."*"....STR|
00003e00  42 20 20 20 20 20 52 31  2c 5b 52 30 5d 2c 23 31  |B     R1,[R0],#1|
00003e10  0d 1d b0 12 4d 4f 56 20  20 20 20 20 20 52 31 2c  |....MOV      R1,|
00003e20  23 30 0d 1d ba 14 53 54  52 42 20 20 20 20 20 52  |#0....STRB     R|
00003e30  31 2c 5b 52 30 5d 0d 1d  c4 14 4d 4f 56 20 20 20  |1,[R0]....MOV   |
00003e40  20 20 20 52 30 2c 23 26  31 42 0d 1d ce 17 41 44  |   R0,#&1B....AD|
00003e50  52 20 20 20 20 20 20 52  31 2c 66 73 5f 62 75 66  |R      R1,fs_buf|
00003e60  66 0d 1d d8 16 4c 44 52  20 20 20 20 20 20 52 33  |f....LDR      R3|
00003e70  2c 66 6c 61 67 73 32 0d  1d e2 1c 53 57 49 20 20  |,flags2....SWI  |
00003e80  20 20 20 20 22 58 4f 53  5f 46 53 43 6f 6e 74 72  |    "XOS_FSContr|
00003e90  6f 6c 22 0d 1d ec 1a 41  44 52 56 53 20 20 20 20  |ol"....ADRVS    |
00003ea0  52 30 2c 77 69 70 65 5f  65 72 72 6f 72 0d 1d f6  |R0,wipe_error...|
00003eb0  12 42 56 53 20 20 20 20  20 20 65 72 72 6f 72 0d  |.BVS      error.|
00003ec0  1e 00 13 43 4d 50 20 20  20 20 20 20 52 31 31 2c  |...CMP      R11,|
00003ed0  23 30 0d 1e 0a 1c a4 61  64 72 6c 28 22 4e 45 22  |#0.....adrl("NE"|
00003ee0  2c 31 2c 6d 65 6e 75 5f  62 6c 6f 63 6b 29 0d 1e  |,1,menu_block)..|
00003ef0  14 12 4d 4f 56 4e 45 20  20 20 20 52 32 2c 52 39  |..MOVNE    R2,R9|
00003f00  0d 1e 1e 13 4d 4f 56 4e  45 20 20 20 20 52 33 2c  |....MOVNE    R3,|
00003f10  52 31 30 0d 1e 28 1e 53  57 49 4e 45 20 20 20 20  |R10..(.SWINE    |
00003f20  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00003f30  22 0d 1e 32 1d 53 57 49  20 20 20 20 20 20 22 58  |"..2.SWI      "X|
00003f40  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 1e  |Hourglass_Off"..|
00003f50  3c 16 4c 44 4d 46 44 20  20 20 20 52 31 33 21 2c  |<.LDMFD    R13!,|
00003f60  7b 50 43 7d 0d 1e 46 0f  2e 77 61 72 6e 69 6e 67  |{PC}..F..warning|
00003f70  74 6f 67 0d 1e 50 1c 4c  44 52 20 20 20 20 20 20  |tog..P.LDR      |
00003f80  52 30 2c 77 61 72 6e 69  6e 67 5f 70 6f 6b 65 0d  |R0,warning_poke.|
00003f90  1e 5a 13 82 20 20 20 20  20 20 52 30 2c 52 30 2c  |.Z..      R0,R0,|
00003fa0  23 31 0d 1e 64 1c 53 54  52 20 20 20 20 20 20 52  |#1..d.STR      R|
00003fb0  30 2c 77 61 72 6e 69 6e  67 5f 70 6f 6b 65 0d 1e  |0,warning_poke..|
00003fc0  6e 16 42 4c 20 20 20 20  20 20 20 77 72 69 74 65  |n.BL       write|
00003fd0  63 6d 6f 73 0d 1e 78 13  43 4d 50 20 20 20 20 20  |cmos..x.CMP     |
00003fe0  20 52 31 31 2c 23 30 0d  1e 82 1c a4 61 64 72 6c  | R11,#0.....adrl|
00003ff0  28 22 4e 45 22 2c 31 2c  6d 65 6e 75 5f 62 6c 6f  |("NE",1,menu_blo|
00004000  63 6b 29 0d 1e 8c 12 4d  4f 56 4e 45 20 20 20 20  |ck)....MOVNE    |
00004010  52 32 2c 52 39 0d 1e 96  13 4d 4f 56 4e 45 20 20  |R2,R9....MOVNE  |
00004020  20 20 52 33 2c 52 31 30  0d 1e a0 1e 53 57 49 4e  |  R3,R10....SWIN|
00004030  45 20 20 20 20 22 57 69  6d 70 5f 43 72 65 61 74  |E    "Wimp_Creat|
00004040  65 4d 65 6e 75 22 0d 1e  aa 16 4c 44 4d 46 44 20  |eMenu"....LDMFD |
00004050  20 20 20 52 31 33 21 2c  7b 50 43 7d 0d 1e b4 11  |   R13!,{PC}....|
00004060  2e 69 6d 6d 65 64 69 61  74 65 74 6f 67 0d 1e be  |.immediatetog...|
00004070  1e 4c 44 52 20 20 20 20  20 20 52 30 2c 69 6d 6d  |.LDR      R0,imm|
00004080  65 64 69 61 74 65 5f 70  6f 6b 65 0d 1e c8 13 82  |ediate_poke.....|
00004090  20 20 20 20 20 20 52 30  2c 52 30 2c 23 31 0d 1e  |      R0,R0,#1..|
000040a0  d2 1e 53 54 52 20 20 20  20 20 20 52 30 2c 69 6d  |..STR      R0,im|
000040b0  6d 65 64 69 61 74 65 5f  70 6f 6b 65 0d 1e dc 16  |mediate_poke....|
000040c0  42 4c 20 20 20 20 20 20  20 77 72 69 74 65 63 6d  |BL       writecm|
000040d0  6f 73 0d 1e e6 17 42 4c  20 20 20 20 20 20 20 75  |os....BL       u|
000040e0  70 64 61 74 65 69 63 6f  6e 0d 1e f0 13 43 4d 50  |pdateicon....CMP|
000040f0  20 20 20 20 20 20 52 31  30 2c 23 31 0d 1e fa 1f  |      R10,#1....|
00004100  4c 44 52 45 51 20 20 20  20 52 31 30 2c 69 6d 6d  |LDREQ    R10,imm|
00004110  65 64 69 61 74 65 5f 70  6f 6b 65 0d 1f 04 13 43  |ediate_poke....C|
00004120  4d 50 45 51 20 20 20 20  52 31 30 2c 23 31 0d 1f  |MPEQ    R10,#1..|
00004130  0e 12 42 45 51 20 20 20  20 20 20 65 6d 70 74 79  |..BEQ      empty|
00004140  0d 1f 18 13 43 4d 50 20  20 20 20 20 20 52 31 31  |....CMP      R11|
00004150  2c 23 30 0d 1f 22 1c a4  61 64 72 6c 28 22 4e 45  |,#0.."..adrl("NE|
00004160  22 2c 31 2c 6d 65 6e 75  5f 62 6c 6f 63 6b 29 0d  |",1,menu_block).|
00004170  1f 2c 12 4d 4f 56 4e 45  20 20 20 20 52 32 2c 52  |.,.MOVNE    R2,R|
00004180  39 0d 1f 36 13 4d 4f 56  4e 45 20 20 20 20 52 33  |9..6.MOVNE    R3|
00004190  2c 52 31 30 0d 1f 40 1e  53 57 49 4e 45 20 20 20  |,R10..@.SWINE   |
000041a0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000041b0  75 22 0d 1f 4a 16 4c 44  4d 46 44 20 20 20 20 52  |u"..J.LDMFD    R|
000041c0  31 33 21 2c 7b 50 43 7d  0d 1f 54 0f 2e 61 6e 69  |13!,{PC}..T..ani|
000041d0  6d 61 74 65 74 6f 67 0d  1f 5e 1c 4c 44 52 20 20  |matetog..^.LDR  |
000041e0  20 20 20 20 52 30 2c 61  6e 69 6d 61 74 65 5f 70  |    R0,animate_p|
000041f0  6f 6b 65 0d 1f 68 13 82  20 20 20 20 20 20 52 30  |oke..h..      R0|
00004200  2c 52 30 2c 23 31 0d 1f  72 1c 53 54 52 20 20 20  |,R0,#1..r.STR   |
00004210  20 20 20 52 30 2c 61 6e  69 6d 61 74 65 5f 70 6f  |   R0,animate_po|
00004220  6b 65 0d 1f 7c 16 42 4c  20 20 20 20 20 20 20 77  |ke..|.BL       w|
00004230  72 69 74 65 63 6d 6f 73  0d 1f 86 13 43 4d 50 20  |ritecmos....CMP |
00004240  20 20 20 20 20 52 31 31  2c 23 30 0d 1f 90 1c a4  |     R11,#0.....|
00004250  61 64 72 6c 28 22 4e 45  22 2c 31 2c 6d 65 6e 75  |adrl("NE",1,menu|
00004260  5f 62 6c 6f 63 6b 29 0d  1f 9a 12 4d 4f 56 4e 45  |_block)....MOVNE|
00004270  20 20 20 20 52 32 2c 52  39 0d 1f a4 13 4d 4f 56  |    R2,R9....MOV|
00004280  4e 45 20 20 20 20 52 33  2c 52 31 30 0d 1f ae 1e  |NE    R3,R10....|
00004290  53 57 49 4e 45 20 20 20  20 22 57 69 6d 70 5f 43  |SWINE    "Wimp_C|
000042a0  72 65 61 74 65 4d 65 6e  75 22 0d 1f b8 16 4c 44  |reateMenu"....LD|
000042b0  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 50 43 7d  |MFD    R13!,{PC}|
000042c0  0d 1f c2 04 0d 1f cc 0b  2e 66 6c 61 67 73 32 0d  |.........flags2.|
000042d0  1f d6 17 45 51 55 44 20  20 20 20 20 25 30 31 30  |...EQUD     %010|
000042e0  30 30 30 30 31 31 0d 1f  e0 04 0d 1f ea 0f 2e 77  |000011.........w|
000042f0  69 70 65 5f 65 72 72 6f  72 0d 1f f4 0e 45 51 55  |ipe_error....EQU|
00004300  44 20 20 20 20 20 30 0d  1f fe 2c 45 51 55 53 20  |D     0...,EQUS |
00004310  20 20 20 20 22 43 61 6e  6e 6f 74 20 65 6d 70 74  |    "Cannot empt|
00004320  79 20 54 72 61 73 68 63  61 6e 21 22 3a 45 51 55  |y Trashcan!":EQU|
00004330  42 20 30 0d 20 08 09 41  4c 49 47 4e 0d 20 12 04  |B 0. ..ALIGN. ..|
00004340  0d 20 1c 0c 2e 66 73 5f  62 75 66 66 0d 20 26 15  |. ...fs_buff. &.|
00004350  45 51 55 53 20 20 20 20  20 c4 31 34 32 2c bd 30  |EQUS     .142,.0|
00004360  29 0d 20 30 09 41 4c 49  47 4e 0d 20 3a 04 0d 20  |). 0.ALIGN. :.. |
00004370  44 0a 2e 74 72 61 73 68  0d 20 4e 17 53 54 4d 46  |D..trash. N.STMF|
00004380  44 20 20 20 20 52 31 33  21 2c 7b 52 31 34 7d 0d  |D    R13!,{R14}.|
00004390  20 58 13 43 4d 50 20 20  20 20 20 20 52 31 31 2c  | X.CMP      R11,|
000043a0  23 31 0d 20 62 12 42 4e  45 20 20 20 20 20 20 73  |#1. b.BNE      s|
000043b0  6b 69 70 33 0d 20 6c 17  4c 44 52 20 20 20 20 20  |kip3. l.LDR     |
000043c0  20 52 30 2c 5b 52 31 2c  23 38 5d 0d 20 76 18 53  | R0,[R1,#8]. v.S|
000043d0  54 52 20 20 20 20 20 20  52 30 2c 5b 52 31 2c 23  |TR      R0,[R1,#|
000043e0  31 32 5d 0d 20 80 12 4d  4f 56 20 20 20 20 20 20  |12]. ..MOV      |
000043f0  52 30 2c 23 34 0d 20 8a  18 53 54 52 20 20 20 20  |R0,#4. ..STR    |
00004400  20 20 52 30 2c 5b 52 31  2c 23 31 36 5d 0d 20 94  |  R0,[R1,#16]. .|
00004410  13 4d 4f 56 20 20 20 20  20 20 52 30 2c 23 31 37  |.MOV      R0,#17|
00004420  0d 20 9e 12 4d 4f 56 20  20 20 20 20 20 52 32 2c  |. ..MOV      R2,|
00004430  23 30 0d 20 a8 1f 53 57  49 20 20 20 20 20 20 22  |#0. ..SWI      "|
00004440  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00004450  22 0d 20 b2 0a 2e 73 6b  69 70 33 0d 20 bc 16 42  |". ...skip3. ..B|
00004460  4c 20 20 20 20 20 20 20  63 61 6e 65 78 69 73 74  |L       canexist|
00004470  73 0d 20 c6 19 53 54 4d  46 44 20 20 20 20 52 31  |s. ..STMFD    R1|
00004480  33 21 2c 7b 52 30 2d 52  32 7d 0d 20 d0 14 4d 4f  |3!,{R0-R2}. ..MO|
00004490  56 20 20 20 20 20 20 52  30 2c 23 26 31 38 0d 20  |V      R0,#&18. |
000044a0  da 16 41 44 44 20 20 20  20 20 20 52 31 2c 52 31  |..ADD      R1,R1|
000044b0  2c 23 34 34 0d 20 e4 1a  41 44 52 20 20 20 20 20  |,#44. ..ADR     |
000044c0  20 52 32 2c 61 74 74 72  69 62 75 74 65 73 0d 20  | R2,attributes. |
000044d0  ee 1c 53 57 49 20 20 20  20 20 20 22 58 4f 53 5f  |..SWI      "XOS_|
000044e0  46 53 43 6f 6e 74 72 6f  6c 22 0d 20 f8 19 4c 44  |FSControl". ..LD|
000044f0  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00004500  52 32 7d 0d 21 02 1e 4c  44 52 20 20 20 20 20 20  |R2}.!..LDR      |
00004510  52 39 2c 69 6d 6d 65 64  69 61 74 65 5f 70 6f 6b  |R9,immediate_pok|
00004520  65 0d 21 0c 12 43 4d 50  20 20 20 20 20 20 52 39  |e.!..CMP      R9|
00004530  2c 23 31 0d 21 16 16 42  45 51 20 20 20 20 20 20  |,#1.!..BEQ      |
00004540  69 6d 6d 65 64 69 61 74  65 0d 21 20 19 53 54 4d  |immediate.! .STM|
00004550  46 44 20 20 20 20 52 31  33 21 2c 7b 52 30 2d 52  |FD    R13!,{R0-R|
00004560  32 7d 0d 21 2a 14 4d 4f  56 20 20 20 20 20 20 52  |2}.!*.MOV      R|
00004570  30 2c 23 31 30 30 0d 21  34 1f 53 57 49 20 20 20  |0,#100.!4.SWI   |
00004580  20 20 20 22 58 48 6f 75  72 67 6c 61 73 73 5f 53  |   "XHourglass_S|
00004590  74 61 72 74 22 0d 21 3e  19 4c 44 4d 46 44 20 20  |tart".!>.LDMFD  |
000045a0  20 20 52 31 33 21 2c 7b  52 30 2d 52 32 7d 0d 21  |  R13!,{R0-R2}.!|
000045b0  48 16 41 44 44 20 20 20  20 20 20 52 32 2c 52 31  |H.ADD      R2,R1|
000045c0  2c 23 34 34 0d 21 52 0c  2e 67 65 74 5f 65 6e 64  |,#44.!R..get_end|
000045d0  0d 21 5c 17 4c 44 52 42  20 20 20 20 20 52 33 2c  |.!\.LDRB     R3,|
000045e0  5b 52 32 5d 2c 23 31 0d  21 66 13 43 4d 50 20 20  |[R2],#1.!f.CMP  |
000045f0  20 20 20 20 52 33 2c 23  33 32 0d 21 70 14 42 47  |    R3,#32.!p.BG|
00004600  45 20 20 20 20 20 20 67  65 74 5f 65 6e 64 0d 21  |E      get_end.!|
00004610  7a 15 53 55 42 20 20 20  20 20 20 52 32 2c 52 32  |z.SUB      R2,R2|
00004620  2c 23 31 0d 21 84 0f 2e  62 61 63 6b 5f 74 72 61  |,#1.!...back_tra|
00004630  63 6b 0d 21 8e 18 4c 44  52 42 20 20 20 20 20 52  |ck.!..LDRB     R|
00004640  33 2c 5b 52 32 5d 2c 23  2d 31 0d 21 98 15 43 4d  |3,[R2],#-1.!..CM|
00004650  50 20 20 20 20 20 20 52  33 2c 23 97 22 2e 22 0d  |P      R3,#.".".|
00004660  21 a2 17 42 4e 45 20 20  20 20 20 20 62 61 63 6b  |!..BNE      back|
00004670  5f 74 72 61 63 6b 0d 21  ac 15 41 44 44 20 20 20  |_track.!..ADD   |
00004680  20 20 20 52 32 2c 52 32  2c 23 31 0d 21 b6 15 53  |   R2,R2,#1.!..S|
00004690  54 52 20 20 20 20 20 20  52 31 2c 6f 6c 64 52 31  |TR      R1,oldR1|
000046a0  0d 21 c0 1d a4 61 64 72  6c 28 22 41 4c 22 2c 31  |.!...adrl("AL",1|
000046b0  2c 74 72 61 73 68 66 73  5f 64 69 72 29 0d 21 ca  |,trashfs_dir).!.|
000046c0  1a 41 44 52 20 20 20 20  20 20 52 30 2c 74 72 61  |.ADR      R0,tra|
000046d0  73 68 5f 6e 61 6d 65 0d  21 d4 16 53 54 4d 46 44  |sh_name.!..STMFD|
000046e0  20 20 20 20 52 31 33 21  2c 7b 52 32 7d 0d 21 de  |    R13!,{R2}.!.|
000046f0  11 42 4c 20 20 20 20 20  20 20 63 6f 70 79 0d 21  |.BL       copy.!|
00004700  e8 16 4c 44 4d 46 44 20  20 20 20 52 31 33 21 2c  |..LDMFD    R13!,|
00004710  7b 52 31 7d 0d 21 f2 15  53 55 42 20 20 20 20 20  |{R1}.!..SUB     |
00004720  20 52 30 2c 52 30 2c 23  31 0d 21 fc 11 42 4c 20  | R0,R0,#1.!..BL |
00004730  20 20 20 20 20 20 63 6f  70 79 0d 22 06 14 4d 4f  |      copy."..MO|
00004740  56 20 20 20 20 20 20 52  30 2c 23 26 31 39 0d 22  |V      R0,#&19."|
00004750  10 15 4c 44 52 20 20 20  20 20 20 52 31 2c 6f 6c  |..LDR      R1,ol|
00004760  64 52 31 0d 22 1a 16 41  44 44 20 20 20 20 20 20  |dR1."..ADD      |
00004770  52 31 2c 52 31 2c 23 34  34 0d 22 24 1a 41 44 52  |R1,R1,#44."$.ADR|
00004780  20 20 20 20 20 20 52 32  2c 74 72 61 73 68 5f 6e  |      R2,trash_n|
00004790  61 6d 65 0d 22 2e 1c 53  57 49 20 20 20 20 20 20  |ame."..SWI      |
000047a0  22 58 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 0d  |"XOS_FSControl".|
000047b0  22 38 15 42 4c 56 53 20  20 20 20 20 74 72 79 5f  |"8.BLVS     try_|
000047c0  63 6f 70 79 0d 22 42 1d  53 57 49 20 20 20 20 20  |copy."B.SWI     |
000047d0  20 22 58 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  | "XHourglass_Off|
000047e0  22 0d 22 4c 16 4c 44 4d  46 44 20 20 20 20 52 31  |"."L.LDMFD    R1|
000047f0  33 21 2c 7b 50 43 7d 0d  22 56 04 0d 22 60 0f 2e  |3!,{PC}."V.."`..|
00004800  61 74 74 72 69 62 75 74  65 73 0d 22 6a 18 45 51  |attributes."j.EQ|
00004810  55 53 20 20 20 20 20 22  57 52 22 3a 45 51 55 42  |US     "WR":EQUB|
00004820  20 30 0d 22 74 09 41 4c  49 47 4e 0d 22 7e 04 0d  | 0."t.ALIGN."~..|
00004830  22 88 0e 2e 69 6d 6d 65  64 69 61 74 65 0d 22 92  |"...immediate.".|
00004840  15 53 54 52 20 20 20 20  20 20 52 31 2c 6f 6c 64  |.STR      R1,old|
00004850  52 31 0d 22 9c 14 4d 4f  56 20 20 20 20 20 20 52  |R1."..MOV      R|
00004860  30 2c 23 31 30 30 0d 22  a6 1f 53 57 49 20 20 20  |0,#100."..SWI   |
00004870  20 20 20 22 58 48 6f 75  72 67 6c 61 73 73 5f 53  |   "XHourglass_S|
00004880  74 61 72 74 22 0d 22 b0  15 4c 44 52 20 20 20 20  |tart"."..LDR    |
00004890  20 20 52 31 2c 6f 6c 64  52 31 0d 22 ba 16 41 44  |  R1,oldR1."..AD|
000048a0  44 20 20 20 20 20 20 52  31 2c 52 31 2c 23 34 34  |D      R1,R1,#44|
000048b0  0d 22 c4 14 4d 4f 56 20  20 20 20 20 20 52 30 2c  |."..MOV      R0,|
000048c0  23 26 31 42 0d 22 ce 16  4c 44 52 20 20 20 20 20  |#&1B."..LDR     |
000048d0  20 52 33 2c 66 6c 61 67  73 32 0d 22 d8 1c 53 57  | R3,flags2."..SW|
000048e0  49 20 20 20 20 20 20 22  58 4f 53 5f 46 53 43 6f  |I      "XOS_FSCo|
000048f0  6e 74 72 6f 6c 22 0d 22  e2 1b 41 44 52 56 53 20  |ntrol"."..ADRVS |
00004900  20 20 20 52 30 2c 77 69  70 65 5f 65 72 72 6f 72  |   R0,wipe_error|
00004910  32 0d 22 ec 12 42 56 53  20 20 20 20 20 20 65 72  |2."..BVS      er|
00004920  72 6f 72 0d 22 f6 1d 53  57 49 20 20 20 20 20 20  |ror."..SWI      |
00004930  22 58 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |"XHourglass_Off"|
00004940  0d 23 00 16 4c 44 4d 46  44 20 20 20 20 52 31 33  |.#..LDMFD    R13|
00004950  21 2c 7b 50 43 7d 0d 23  0a 04 0d 23 14 10 2e 77  |!,{PC}.#...#...w|
00004960  69 70 65 5f 65 72 72 6f  72 32 0d 23 1e 0e 45 51  |ipe_error2.#..EQ|
00004970  55 44 20 20 20 20 20 30  0d 23 28 34 45 51 55 53  |UD     0.#(4EQUS|
00004980  20 20 20 20 20 22 49 6d  6d 65 64 69 61 74 65 20  |     "Immediate |
00004990  66 69 6c 65 20 64 65 6c  65 74 69 6f 6e 20 65 72  |file deletion er|
000049a0  72 6f 72 21 22 3a 45 51  55 42 20 30 0d 23 32 09  |ror!":EQUB 0.#2.|
000049b0  41 4c 49 47 4e 0d 23 3c  04 0d 23 46 0a 2e 6f 6c  |ALIGN.#<..#F..ol|
000049c0  64 52 31 0d 23 50 0e 45  51 55 44 20 20 20 20 20  |dR1.#P.EQUD     |
000049d0  30 0d 23 5a 0f 2e 74 72  61 73 68 5f 6e 61 6d 65  |0.#Z..trash_name|
000049e0  0d 23 64 15 45 51 55 53  20 20 20 20 20 c4 31 34  |.#d.EQUS     .14|
000049f0  30 2c bd 30 29 0d 23 6e  09 41 4c 49 47 4e 0d 23  |0,.0).#n.ALIGN.#|
00004a00  78 04 0d 23 82 0d 2e 74  72 79 5f 63 6f 70 79 0d  |x..#...try_copy.|
00004a10  23 8c 17 53 54 4d 46 44  20 20 20 20 52 31 33 21  |#..STMFD    R13!|
00004a20  2c 7b 52 31 34 7d 0d 23  96 14 4d 4f 56 20 20 20  |,{R14}.#..MOV   |
00004a30  20 20 20 52 30 2c 23 26  31 41 0d 23 a0 15 4c 44  |   R0,#&1A.#..LD|
00004a40  52 20 20 20 20 20 20 52  31 2c 6f 6c 64 52 31 0d  |R      R1,oldR1.|
00004a50  23 aa 16 41 44 44 20 20  20 20 20 20 52 31 2c 52  |#..ADD      R1,R|
00004a60  31 2c 23 34 34 0d 23 b4  1a 41 44 52 20 20 20 20  |1,#44.#..ADR    |
00004a70  20 20 52 32 2c 74 72 61  73 68 5f 6e 61 6d 65 0d  |  R2,trash_name.|
00004a80  23 be 15 4c 44 52 20 20  20 20 20 20 52 33 2c 66  |#..LDR      R3,f|
00004a90  6c 61 67 73 0d 23 c8 1c  53 57 49 20 20 20 20 20  |lags.#..SWI     |
00004aa0  20 22 58 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  | "XOS_FSControl"|
00004ab0  0d 23 d2 16 4c 44 4d 56  43 46 44 20 20 52 31 33  |.#..LDMVCFD  R13|
00004ac0  21 2c 7b 50 43 7d 0d 23  dc 1a 41 44 52 20 20 20  |!,{PC}.#..ADR   |
00004ad0  20 20 20 52 30 2c 74 72  61 73 68 5f 66 61 69 6c  |   R0,trash_fail|
00004ae0  0d 23 e6 12 4d 4f 56 20  20 20 20 20 20 52 31 2c  |.#..MOV      R1,|
00004af0  23 31 0d 23 f0 17 a4 61  64 72 6c 28 22 41 4c 22  |#1.#...adrl("AL"|
00004b00  2c 32 2c 74 69 74 6c 65  29 0d 23 fa 1f 53 57 49  |,2,title).#..SWI|
00004b10  20 20 20 20 20 20 22 57  69 6d 70 5f 52 65 70 6f  |      "Wimp_Repo|
00004b20  72 74 45 72 72 6f 72 22  0d 24 04 16 4c 44 4d 46  |rtError".$..LDMF|
00004b30  44 20 20 20 20 52 31 33  21 2c 7b 50 43 7d 0d 24  |D    R13!,{PC}.$|
00004b40  0e 04 0d 24 18 0a 2e 66  6c 61 67 73 0d 24 22 17  |...$...flags.$".|
00004b50  45 51 55 44 20 20 20 20  20 25 30 31 31 30 30 30  |EQUD     %011000|
00004b60  30 31 31 0d 24 2c 04 0d  24 36 0f 2e 74 72 61 73  |011.$,..$6..tras|
00004b70  68 5f 66 61 69 6c 0d 24  40 0e 45 51 55 44 20 20  |h_fail.$@.EQUD  |
00004b80  20 20 20 30 0d 24 4a 28  45 51 55 53 20 20 20 20  |   0.$J(EQUS    |
00004b90  20 22 43 61 6e 6e 6f 74  20 54 72 61 73 68 20 66  | "Cannot Trash f|
00004ba0  69 6c 65 21 22 3a 45 51  55 42 20 30 0d 24 54 09  |ile!":EQUB 0.$T.|
00004bb0  41 4c 49 47 4e 0d 24 5e  04 0d 24 68 0e 2e 74 65  |ALIGN.$^..$h..te|
00004bc0  6d 70 6c 61 74 65 73 0d  24 72 17 53 54 4d 46 44  |mplates.$r.STMFD|
00004bd0  20 20 20 20 52 31 33 21  2c 7b 52 31 34 7d 0d 24  |    R13!,{R14}.$|
00004be0  7c 19 41 44 52 20 20 20  20 20 20 52 31 2c 74 65  ||.ADR      R1,te|
00004bf0  6d 70 5f 6e 61 6d 65 0d  24 86 21 53 57 49 20 20  |mp_name.$.!SWI  |
00004c00  20 20 20 20 22 58 57 69  6d 70 5f 4f 70 65 6e 54  |    "XWimp_OpenT|
00004c10  65 6d 70 6c 61 74 65 22  0d 24 90 12 4d 4f 56 56  |emplate".$..MOVV|
00004c20  53 20 20 20 20 52 30 2c  23 30 0d 24 9a 19 53 54  |S    R0,#0.$..ST|
00004c30  52 56 53 20 20 20 20 52  30 2c 69 6e 66 6f 5f 70  |RVS    R0,info_p|
00004c40  6f 6b 65 0d 24 a4 19 41  44 52 56 53 20 20 20 20  |oke.$..ADRVS    |
00004c50  52 30 2c 63 61 6e 74 5f  6f 70 65 6e 0d 24 ae 12  |R0,cant_open.$..|
00004c60  42 56 53 20 20 20 20 20  20 65 72 72 6f 72 0d 24  |BVS      error.$|
00004c70  b8 13 4d 4f 56 20 20 20  20 20 20 52 31 2c 52 31  |..MOV      R1,R1|
00004c80  32 0d 24 c2 13 41 44 52  20 20 20 20 20 20 52 32  |2.$..ADR      R2|
00004c90  2c 69 6e 64 0d 24 cc 17  41 44 44 20 20 20 20 20  |,ind.$..ADD     |
00004ca0  20 52 33 2c 52 32 2c 23  31 35 30 0d 24 d6 15 4d  | R3,R2,#150.$..M|
00004cb0  56 4e 20 20 20 20 20 20  52 34 2c 23 ac 20 2d 31  |VN      R4,#. -1|
00004cc0  0d 24 e0 19 41 44 52 20  20 20 20 20 20 52 35 2c  |.$..ADR      R5,|
00004cd0  69 6e 66 6f 5f 6e 61 6d  65 0d 24 ea 12 4d 4f 56  |info_name.$..MOV|
00004ce0  20 20 20 20 20 20 52 36  2c 23 30 0d 24 f4 21 53  |      R6,#0.$.!S|
00004cf0  57 49 20 20 20 20 20 20  22 58 57 69 6d 70 5f 4c  |WI      "XWimp_L|
00004d00  6f 61 64 54 65 6d 70 6c  61 74 65 22 0d 24 fe 12  |oadTemplate".$..|
00004d10  4d 4f 56 56 53 20 20 20  20 52 30 2c 23 30 0d 25  |MOVVS    R0,#0.%|
00004d20  08 19 53 54 52 56 53 20  20 20 20 52 30 2c 69 6e  |..STRVS    R0,in|
00004d30  66 6f 5f 70 6f 6b 65 0d  25 12 19 41 44 52 56 53  |fo_poke.%..ADRVS|
00004d40  20 20 20 20 52 30 2c 63  61 6e 74 5f 6c 6f 61 64  |    R0,cant_load|
00004d50  0d 25 1c 12 42 56 53 20  20 20 20 20 20 65 72 72  |.%..BVS      err|
00004d60  6f 72 0d 25 26 20 53 57  49 20 20 20 20 20 20 22  |or.%& SWI      "|
00004d70  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00004d80  77 22 0d 25 30 19 53 54  52 20 20 20 20 20 20 52  |w".%0.STR      R|
00004d90  30 2c 69 6e 66 6f 5f 70  6f 6b 65 0d 25 3a 22 53  |0,info_poke.%:"S|
00004da0  57 49 20 20 20 20 20 20  22 58 57 69 6d 70 5f 43  |WI      "XWimp_C|
00004db0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 25 44  |loseTemplate".%D|
00004dc0  12 4d 4f 56 56 53 20 20  20 20 52 30 2c 23 30 0d  |.MOVVS    R0,#0.|
00004dd0  25 4e 19 53 54 52 56 53  20 20 20 20 52 30 2c 69  |%N.STRVS    R0,i|
00004de0  6e 66 6f 5f 70 6f 6b 65  0d 25 58 1a 41 44 52 56  |nfo_poke.%X.ADRV|
00004df0  53 20 20 20 20 52 30 2c  63 61 6e 74 5f 63 6c 6f  |S    R0,cant_clo|
00004e00  73 65 0d 25 62 12 42 56  53 20 20 20 20 20 20 65  |se.%b.BVS      e|
00004e10  72 72 6f 72 0d 25 6c 19  4c 44 52 20 20 20 20 20  |rror.%l.LDR     |
00004e20  20 52 30 2c 69 6e 66 6f  5f 70 6f 6b 65 0d 25 76  | R0,info_poke.%v|
00004e30  14 53 54 52 20 20 20 20  20 20 52 30 2c 5b 52 31  |.STR      R0,[R1|
00004e40  5d 0d 25 80 12 4d 4f 56  20 20 20 20 20 20 52 30  |].%..MOV      R0|
00004e50  2c 23 34 0d 25 8a 17 53  54 52 20 20 20 20 20 20  |,#4.%..STR      |
00004e60  52 30 2c 5b 52 31 2c 23  34 5d 0d 25 94 20 53 57  |R0,[R1,#4].%. SW|
00004e70  49 20 20 20 20 20 20 22  57 69 6d 70 5f 47 65 74  |I      "Wimp_Get|
00004e80  49 63 6f 6e 53 74 61 74  65 22 0d 25 9e 18 4c 44  |IconState".%..LD|
00004e90  52 20 20 20 20 20 20 52  30 2c 5b 52 31 2c 23 32  |R      R0,[R1,#2|
00004ea0  38 5d 0d 25 a8 20 41 44  52 20 20 20 20 20 20 52  |8].%. ADR      R|
00004eb0  31 2c 64 61 74 65 5f 61  6e 64 5f 76 65 72 73 69  |1,date_and_versi|
00004ec0  6f 6e 0d 25 b2 11 42 4c  20 20 20 20 20 20 20 63  |on.%..BL       c|
00004ed0  6f 70 79 0d 25 bc 19 4c  44 52 20 20 20 20 20 20  |opy.%..LDR      |
00004ee0  52 30 2c 69 6e 66 6f 5f  70 6f 6b 65 0d 25 c6 13  |R0,info_poke.%..|
00004ef0  4d 4f 56 20 20 20 20 20  20 52 31 2c 52 31 32 0d  |MOV      R1,R12.|
00004f00  25 d0 17 53 54 52 20 20  20 20 20 20 52 30 2c 5b  |%..STR      R0,[|
00004f10  52 31 2c 23 30 5d 0d 25  da 12 4d 4f 56 20 20 20  |R1,#0].%..MOV   |
00004f20  20 20 20 52 30 2c 23 34  0d 25 e4 17 53 54 52 20  |   R0,#4.%..STR |
00004f30  20 20 20 20 20 52 30 2c  5b 52 31 2c 23 34 5d 0d  |     R0,[R1,#4].|
00004f40  25 ee 12 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |%..MOV      R0,#|
00004f50  30 0d 25 f8 17 53 54 52  20 20 20 20 20 20 52 30  |0.%..STR      R0|
00004f60  2c 5b 52 31 2c 23 38 5d  0d 26 02 18 53 54 52 20  |,[R1,#8].&..STR |
00004f70  20 20 20 20 20 52 30 2c  5b 52 31 2c 23 31 32 5d  |     R0,[R1,#12]|
00004f80  0d 26 0c 20 53 57 49 20  20 20 20 20 20 22 57 69  |.&. SWI      "Wi|
00004f90  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00004fa0  0d 26 16 16 4c 44 4d 46  44 20 20 20 20 52 31 33  |.&..LDMFD    R13|
00004fb0  21 2c 7b 50 43 7d 0d 26  20 04 0d 26 2a 15 2e 64  |!,{PC}.& ..&*..d|
00004fc0  61 74 65 5f 61 6e 64 5f  76 65 72 73 69 6f 6e 0d  |ate_and_version.|
00004fd0  26 34 2a 45 51 55 53 20  20 20 20 20 22 30 2e 36  |&4*EQUS     "0.6|
00004fe0  36 20 28 22 2b c1 91 24  2c 35 2c 31 31 29 2b 22  |6 ("+..$,5,11)+"|
00004ff0  29 22 3a 45 51 55 42 20  30 0d 26 3e 09 41 4c 49  |)":EQUB 0.&>.ALI|
00005000  47 4e 0d 26 48 04 0d 26  52 0e 2e 74 65 6d 70 5f  |GN.&H..&R..temp_|
00005010  6e 61 6d 65 0d 26 5c 2d  45 51 55 53 20 20 20 20  |name.&\-EQUS    |
00005020  20 22 3c 54 72 61 73 68  46 53 24 44 69 72 3e 2e  | "<TrashFS$Dir>.|
00005030  54 65 6d 70 6c 61 74 65  73 22 3a 45 51 55 42 20  |Templates":EQUB |
00005040  30 0d 26 66 09 41 4c 49  47 4e 0d 26 70 04 0d 26  |0.&f.ALIGN.&p..&|
00005050  7a 0e 2e 69 6e 66 6f 5f  6e 61 6d 65 0d 26 84 1a  |z..info_name.&..|
00005060  45 51 55 53 20 20 20 20  20 22 69 6e 66 6f 22 3a  |EQUS     "info":|
00005070  45 51 55 42 20 30 0d 26  8e 09 41 4c 49 47 4e 0d  |EQUB 0.&..ALIGN.|
00005080  26 98 04 0d 26 a2 08 2e  69 6e 64 0d 26 ac 15 45  |&...&...ind.&..E|
00005090  51 55 53 20 20 20 20 20  c4 31 35 30 2c bd 30 29  |QUS     .150,.0)|
000050a0  0d 26 b6 09 41 4c 49 47  4e 0d 26 c0 04 0d 26 ca  |.&..ALIGN.&...&.|
000050b0  0a 2e 65 72 72 6f 72 0d  26 d4 12 4d 4f 56 20 20  |..error.&..MOV  |
000050c0  20 20 20 20 52 31 2c 23  31 0d 26 de 17 a4 61 64  |    R1,#1.&...ad|
000050d0  72 6c 28 22 41 4c 22 2c  32 2c 74 69 74 6c 65 29  |rl("AL",2,title)|
000050e0  0d 26 e8 1f 53 57 49 20  20 20 20 20 20 22 57 69  |.&..SWI      "Wi|
000050f0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 0d  |mp_ReportError".|
00005100  26 f2 16 4c 44 4d 46 44  20 20 20 20 52 31 33 21  |&..LDMFD    R13!|
00005110  2c 7b 50 43 7d 0d 26 fc  04 0d 27 06 0e 2e 63 61  |,{PC}.&...'...ca|
00005120  6e 74 5f 6f 70 65 6e 0d  27 10 0e 45 51 55 44 20  |nt_open.'..EQUD |
00005130  20 20 20 20 30 0d 27 1a  3b 45 51 55 53 20 20 20  |    0.'.;EQUS   |
00005140  20 20 22 43 61 6e 27 74  20 6f 70 65 6e 20 66 69  |  "Can't open fi|
00005150  6c 65 20 27 54 65 6d 70  6c 61 74 65 73 27 20 66  |le 'Templates' f|
00005160  6f 72 20 69 6e 70 75 74  22 3a 45 51 55 42 20 30  |or input":EQUB 0|
00005170  0d 27 24 09 41 4c 49 47  4e 0d 27 2e 04 0d 27 38  |.'$.ALIGN.'...'8|
00005180  0e 2e 63 61 6e 74 5f 6c  6f 61 64 0d 27 42 0e 45  |..cant_load.'B.E|
00005190  51 55 44 20 20 20 20 20  30 0d 27 4c 34 45 51 55  |QUD     0.'L4EQU|
000051a0  53 20 20 20 20 20 22 43  61 6e 27 74 20 6c 6f 61  |S     "Can't loa|
000051b0  64 20 74 65 6d 70 6c 61  74 65 20 64 65 66 69 6e  |d template defin|
000051c0  69 74 69 6f 6e 22 3a 45  51 55 42 20 30 0d 27 56  |ition":EQUB 0.'V|
000051d0  09 41 4c 49 47 4e 0d 27  60 04 0d 27 6a 0f 2e 63  |.ALIGN.'`..'j..c|
000051e0  61 6e 74 5f 63 6c 6f 73  65 0d 27 74 0e 45 51 55  |ant_close.'t.EQU|
000051f0  44 20 20 20 20 20 30 0d  27 7e 32 45 51 55 53 20  |D     0.'~2EQUS |
00005200  20 20 20 20 22 43 61 6e  27 74 20 63 6c 6f 73 65  |    "Can't close|
00005210  20 66 69 6c 65 20 27 54  65 6d 70 6c 61 74 65 73  | file 'Templates|
00005220  27 22 3a 45 51 55 42 20  30 0d 27 88 09 41 4c 49  |'":EQUB 0.'..ALI|
00005230  47 4e 0d 27 92 04 0d 27  9c 0a 2e 66 69 6c 65 76  |GN.'...'...filev|
00005240  0d 27 a6 1d 53 54 4d 46  44 20 20 20 20 52 31 33  |.'..STMFD    R13|
00005250  21 2c 7b 52 30 2d 52 38  2c 52 31 34 7d 0d 27 b0  |!,{R0-R8,R14}.'.|
00005260  14 43 4d 50 20 20 20 20  20 20 52 30 2c 23 26 30  |.CMP      R0,#&0|
00005270  30 0d 27 ba 14 43 4d 50  4e 45 20 20 20 20 52 30  |0.'..CMPNE    R0|
00005280  2c 23 26 30 36 0d 27 c4  14 43 4d 50 4e 45 20 20  |,#&06.'..CMPNE  |
00005290  20 20 52 30 2c 23 26 30  37 0d 27 ce 14 43 4d 50  |  R0,#&07.'..CMP|
000052a0  4e 45 20 20 20 20 52 30  2c 23 26 30 38 0d 27 d8  |NE    R0,#&08.'.|
000052b0  14 43 4d 50 4e 45 20 20  20 20 52 30 2c 23 26 30  |.CMPNE    R0,#&0|
000052c0  41 0d 27 e2 14 43 4d 50  4e 45 20 20 20 20 52 30  |A.'..CMPNE    R0|
000052d0  2c 23 26 30 42 0d 27 ec  1c 4c 44 4d 4e 45 46 44  |,#&0B.'..LDMNEFD|
000052e0  20 20 52 31 33 21 2c 7b  52 30 2d 52 38 2c 50 43  |  R13!,{R0-R8,PC|
000052f0  7d 0d 27 f6 12 4d 4f 56  20 20 20 20 20 20 52 30  |}.'..MOV      R0|
00005300  2c 23 31 0d 28 00 17 53  54 52 20 20 20 20 20 20  |,#1.(..STR      |
00005310  52 30 2c 6e 65 77 69 63  6f 6e 0d 28 0a 1c 4c 44  |R0,newicon.(..LD|
00005320  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00005330  52 38 2c 50 43 7d 0d 28  14 04 0d 28 1e 0a 2e 66  |R8,PC}.(...(...f|
00005340  69 6e 64 76 0d 28 28 1d  53 54 4d 46 44 20 20 20  |indv.((.STMFD   |
00005350  20 52 31 33 21 2c 7b 52  30 2d 52 38 2c 52 31 34  | R13!,{R0-R8,R14|
00005360  7d 0d 28 32 14 43 4d 50  20 20 20 20 20 20 52 30  |}.(2.CMP      R0|
00005370  2c 23 26 38 30 0d 28 3c  14 43 4d 50 4e 45 20 20  |,#&80.(<.CMPNE  |
00005380  20 20 52 30 2c 23 26 38  31 0d 28 46 14 43 4d 50  |  R0,#&81.(F.CMP|
00005390  4e 45 20 20 20 20 52 30  2c 23 26 38 32 0d 28 50  |NE    R0,#&82.(P|
000053a0  14 43 4d 50 4e 45 20 20  20 20 52 30 2c 23 26 38  |.CMPNE    R0,#&8|
000053b0  33 0d 28 5a 14 43 4d 50  4e 45 20 20 20 20 52 30  |3.(Z.CMPNE    R0|
000053c0  2c 23 26 38 34 0d 28 64  14 43 4d 50 4e 45 20 20  |,#&84.(d.CMPNE  |
000053d0  20 20 52 30 2c 23 26 38  38 0d 28 6e 14 43 4d 50  |  R0,#&88.(n.CMP|
000053e0  4e 45 20 20 20 20 52 30  2c 23 26 38 43 0d 28 78  |NE    R0,#&8C.(x|
000053f0  1c 4c 44 4d 4e 45 46 44  20 20 52 31 33 21 2c 7b  |.LDMNEFD  R13!,{|
00005400  52 30 2d 52 38 2c 50 43  7d 0d 28 82 12 4d 4f 56  |R0-R8,PC}.(..MOV|
00005410  20 20 20 20 20 20 52 30  2c 23 31 0d 28 8c 17 53  |      R0,#1.(..S|
00005420  54 52 20 20 20 20 20 20  52 30 2c 6e 65 77 69 63  |TR      R0,newic|
00005430  6f 6e 0d 28 96 1c 4c 44  4d 46 44 20 20 20 20 52  |on.(..LDMFD    R|
00005440  31 33 21 2c 7b 52 30 2d  52 38 2c 50 43 7d 0d 28  |13!,{R0-R8,PC}.(|
00005450  a0 04 0d 28 aa 0f 2e 66  73 63 6f 6e 74 72 6f 6c  |...(...fscontrol|
00005460  76 0d 28 b4 1d 53 54 4d  46 44 20 20 20 20 52 31  |v.(..STMFD    R1|
00005470  33 21 2c 7b 52 30 2d 52  38 2c 52 31 34 7d 0d 28  |3!,{R0-R8,R14}.(|
00005480  be 14 43 4d 50 20 20 20  20 20 20 52 30 2c 23 26  |..CMP      R0,#&|
00005490  31 39 0d 28 c8 14 43 4d  50 4e 45 20 20 20 20 52  |19.(..CMPNE    R|
000054a0  30 2c 23 26 31 41 0d 28  d2 14 43 4d 50 4e 45 20  |0,#&1A.(..CMPNE |
000054b0  20 20 20 52 30 2c 23 26  31 42 0d 28 dc 1c 4c 44  |   R0,#&1B.(..LD|
000054c0  4d 4e 45 46 44 20 20 52  31 33 21 2c 7b 52 30 2d  |MNEFD  R13!,{R0-|
000054d0  52 38 2c 50 43 7d 0d 28  e6 12 4d 4f 56 20 20 20  |R8,PC}.(..MOV   |
000054e0  20 20 20 52 30 2c 23 31  0d 28 f0 17 53 54 52 20  |   R0,#1.(..STR |
000054f0  20 20 20 20 20 52 30 2c  6e 65 77 69 63 6f 6e 0d  |     R0,newicon.|
00005500  28 fa 1c 4c 44 4d 46 44  20 20 20 20 52 31 33 21  |(..LDMFD    R13!|
00005510  2c 7b 52 30 2d 52 38 2c  50 43 7d 0d 29 04 04 0d  |,{R0-R8,PC}.)...|
00005520  29 0e 0f 2e 75 70 64 61  74 65 69 63 6f 6e 0d 29  |)...updateicon.)|
00005530  18 17 53 54 4d 46 44 20  20 20 20 52 31 33 21 2c  |..STMFD    R13!,|
00005540  7b 52 31 34 7d 0d 29 22  1d a4 61 64 72 6c 28 22  |{R14}.)"..adrl("|
00005550  41 4c 22 2c 31 2c 74 72  61 73 68 66 73 5f 64 69  |AL",1,trashfs_di|
00005560  72 29 0d 29 2c 19 a4 61  64 72 6c 28 22 41 4c 22  |r).),..adrl("AL"|
00005570  2c 30 2c 66 73 5f 62 75  66 66 29 0d 29 36 11 42  |,0,fs_buff).)6.B|
00005580  4c 20 20 20 20 20 20 20  63 6f 70 79 0d 29 40 15  |L       copy.)@.|
00005590  53 55 42 20 20 20 20 20  20 52 30 2c 52 30 2c 23  |SUB      R0,R0,#|
000055a0  31 0d 29 4a 15 4d 4f 56  20 20 20 20 20 20 52 31  |1.)J.MOV      R1|
000055b0  2c 23 97 22 2e 22 0d 29  54 17 53 54 52 42 20 20  |,#.".".)T.STRB  |
000055c0  20 20 20 52 31 2c 5b 52  30 5d 2c 23 31 0d 29 5e  |   R1,[R0],#1.)^|
000055d0  15 4d 4f 56 20 20 20 20  20 20 52 31 2c 23 97 22  |.MOV      R1,#."|
000055e0  2a 22 0d 29 68 17 53 54  52 42 20 20 20 20 20 52  |*".)h.STRB     R|
000055f0  31 2c 5b 52 30 5d 2c 23  31 0d 29 72 12 4d 4f 56  |1,[R0],#1.)r.MOV|
00005600  20 20 20 20 20 20 52 31  2c 23 30 0d 29 7c 14 53  |      R1,#0.)|.S|
00005610  54 52 42 20 20 20 20 20  52 31 2c 5b 52 30 5d 0d  |TRB     R1,[R0].|
00005620  29 86 12 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |)..MOV      R0,#|
00005630  35 0d 29 90 19 a4 61 64  72 6c 28 22 41 4c 22 2c  |5.)...adrl("AL",|
00005640  31 2c 66 73 5f 62 75 66  66 29 0d 29 9a 17 53 57  |1,fs_buff).)..SW|
00005650  49 20 20 20 20 20 20 22  58 4f 53 5f 46 69 6c 65  |I      "XOS_File|
00005660  22 0d 29 a4 12 43 4d 50  20 20 20 20 20 20 52 32  |".)..CMP      R2|
00005670  2c 23 30 0d 29 ae 16 42  45 51 20 20 20 20 20 20  |,#0.)..BEQ      |
00005680  65 6d 70 74 79 5f 63 61  6e 0d 29 b8 1a 4c 44 52  |empty_can.)..LDR|
00005690  20 20 20 20 20 20 52 31  30 2c 69 63 6f 6e 73 74  |      R10,iconst|
000056a0  61 74 65 0d 29 c2 13 43  4d 50 20 20 20 20 20 20  |ate.)..CMP      |
000056b0  52 31 30 2c 23 31 0d 29  cc 16 4c 44 4d 45 51 46  |R10,#1.)..LDMEQF|
000056c0  44 20 20 52 31 33 21 2c  7b 50 43 7d 0d 29 d6 17  |D  R13!,{PC}.)..|
000056d0  41 44 52 20 20 20 20 20  20 52 31 2c 77 6f 72 6b  |ADR      R1,work|
000056e0  73 70 63 0d 29 e0 15 4d  56 4e 20 20 20 20 20 20  |spc.)..MVN      |
000056f0  52 30 2c 23 ac 20 2d 32  0d 29 ea 14 53 54 52 20  |R0,#. -2.)..STR |
00005700  20 20 20 20 20 52 30 2c  5b 52 31 5d 0d 29 f4 1c  |     R0,[R1].)..|
00005710  4c 44 52 20 20 20 20 20  20 52 30 2c 69 63 6f 6e  |LDR      R0,icon|
00005720  62 61 72 5f 68 61 6e 64  0d 29 fe 17 53 54 52 20  |bar_hand.)..STR |
00005730  20 20 20 20 20 52 30 2c  5b 52 31 2c 23 34 5d 0d  |     R0,[R1,#4].|
00005740  2a 08 20 53 57 49 20 20  20 20 20 20 22 57 69 6d  |*. SWI      "Wim|
00005750  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 0d  |p_GetIconState".|
00005760  2a 12 1d 4c 44 52 20 20  20 20 20 20 52 31 30 2c  |*..LDR      R10,|
00005770  61 6e 69 6d 61 74 65 5f  70 6f 6b 65 0d 2a 1c 13  |animate_poke.*..|
00005780  43 4d 50 20 20 20 20 20  20 52 31 30 2c 23 31 0d  |CMP      R10,#1.|
00005790  2a 26 16 42 4e 45 20 20  20 20 20 20 73 6b 69 70  |*&.BNE      skip|
000057a0  5f 61 6e 69 6d 0d 2a 30  18 4c 44 52 20 20 20 20  |_anim.*0.LDR    |
000057b0  20 20 52 30 2c 5b 52 31  2c 23 33 32 5d 0d 2a 3a  |  R0,[R1,#32].*:|
000057c0  23 a4 61 64 72 6c 28 22  41 4c 22 2c 31 2c 69 63  |#.adrl("AL",1,ic|
000057d0  6f 6e 62 61 72 5f 6e 6f  74 73 6f 6e 65 61 72 29  |onbar_notsonear)|
000057e0  0d 2a 44 11 42 4c 20 20  20 20 20 20 20 63 6f 70  |.*D.BL       cop|
000057f0  79 0d 2a 4e 17 41 44 52  20 20 20 20 20 20 52 31  |y.*N.ADR      R1|
00005800  2c 77 6f 72 6b 73 70 63  0d 2a 58 12 4d 4f 56 20  |,workspc.*X.MOV |
00005810  20 20 20 20 20 52 30 2c  23 30 0d 2a 62 17 53 54  |     R0,#0.*b.ST|
00005820  52 20 20 20 20 20 20 52  30 2c 5b 52 31 2c 23 38  |R      R0,[R1,#8|
00005830  5d 0d 2a 6c 18 53 54 52  20 20 20 20 20 20 52 30  |].*l.STR      R0|
00005840  2c 5b 52 31 2c 23 31 32  5d 0d 2a 76 20 53 57 49  |,[R1,#12].*v SWI|
00005850  20 20 20 20 20 20 22 57  69 6d 70 5f 53 65 74 49  |      "Wimp_SetI|
00005860  63 6f 6e 53 74 61 74 65  22 0d 2a 80 13 4d 4f 56  |conState".*..MOV|
00005870  20 20 20 20 20 20 52 30  2c 23 31 39 0d 2a 8a 16  |      R0,#19.*..|
00005880  53 57 49 20 20 20 20 20  20 22 4f 53 5f 42 79 74  |SWI      "OS_Byt|
00005890  65 22 0d 2a 94 16 53 57  49 20 20 20 20 20 20 22  |e".*..SWI      "|
000058a0  4f 53 5f 42 79 74 65 22  0d 2a 9e 17 41 44 52 20  |OS_Byte".*..ADR |
000058b0  20 20 20 20 20 52 31 2c  77 6f 72 6b 73 70 63 0d  |     R1,workspc.|
000058c0  2a a8 18 4c 44 52 20 20  20 20 20 20 52 30 2c 5b  |*..LDR      R0,[|
000058d0  52 31 2c 23 33 32 5d 0d  2a b2 20 a4 61 64 72 6c  |R1,#32].*. .adrl|
000058e0  28 22 41 4c 22 2c 31 2c  69 63 6f 6e 62 61 72 5f  |("AL",1,iconbar_|
000058f0  6e 65 61 72 6c 79 29 0d  2a bc 11 42 4c 20 20 20  |nearly).*..BL   |
00005900  20 20 20 20 63 6f 70 79  0d 2a c6 17 41 44 52 20  |    copy.*..ADR |
00005910  20 20 20 20 20 52 31 2c  77 6f 72 6b 73 70 63 0d  |     R1,workspc.|
00005920  2a d0 12 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |*..MOV      R0,#|
00005930  30 0d 2a da 17 53 54 52  20 20 20 20 20 20 52 30  |0.*..STR      R0|
00005940  2c 5b 52 31 2c 23 38 5d  0d 2a e4 18 53 54 52 20  |,[R1,#8].*..STR |
00005950  20 20 20 20 20 52 30 2c  5b 52 31 2c 23 31 32 5d  |     R0,[R1,#12]|
00005960  0d 2a ee 20 53 57 49 20  20 20 20 20 20 22 57 69  |.*. SWI      "Wi|
00005970  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00005980  0d 2a f8 18 4c 44 52 20  20 20 20 20 20 52 30 2c  |.*..LDR      R0,|
00005990  5b 52 31 2c 23 33 32 5d  0d 2b 02 13 4d 4f 56 20  |[R1,#32].+..MOV |
000059a0  20 20 20 20 20 52 30 2c  23 31 39 0d 2b 0c 16 53  |     R0,#19.+..S|
000059b0  57 49 20 20 20 20 20 20  22 4f 53 5f 42 79 74 65  |WI      "OS_Byte|
000059c0  22 0d 2b 16 16 53 57 49  20 20 20 20 20 20 22 4f  |".+..SWI      "O|
000059d0  53 5f 42 79 74 65 22 0d  2b 20 17 41 44 52 20 20  |S_Byte".+ .ADR  |
000059e0  20 20 20 20 52 31 2c 77  6f 72 6b 73 70 63 0d 2b  |    R1,workspc.+|
000059f0  2a 0e 2e 73 6b 69 70 5f  61 6e 69 6d 0d 2b 34 18  |*..skip_anim.+4.|
00005a00  4c 44 52 20 20 20 20 20  20 52 30 2c 5b 52 31 2c  |LDR      R0,[R1,|
00005a10  23 33 32 5d 0d 2b 3e 1e  a4 61 64 72 6c 28 22 41  |#32].+>..adrl("A|
00005a20  4c 22 2c 31 2c 69 63 6f  6e 62 61 72 5f 66 75 6c  |L",1,iconbar_ful|
00005a30  6c 29 0d 2b 48 11 42 4c  20 20 20 20 20 20 20 63  |l).+H.BL       c|
00005a40  6f 70 79 0d 2b 52 17 41  44 52 20 20 20 20 20 20  |opy.+R.ADR      |
00005a50  52 31 2c 77 6f 72 6b 73  70 63 0d 2b 5c 12 4d 4f  |R1,workspc.+\.MO|
00005a60  56 20 20 20 20 20 20 52  30 2c 23 30 0d 2b 66 17  |V      R0,#0.+f.|
00005a70  53 54 52 20 20 20 20 20  20 52 30 2c 5b 52 31 2c  |STR      R0,[R1,|
00005a80  23 38 5d 0d 2b 70 18 53  54 52 20 20 20 20 20 20  |#8].+p.STR      |
00005a90  52 30 2c 5b 52 31 2c 23  31 32 5d 0d 2b 7a 20 53  |R0,[R1,#12].+z S|
00005aa0  57 49 20 20 20 20 20 20  22 57 69 6d 70 5f 53 65  |WI      "Wimp_Se|
00005ab0  74 49 63 6f 6e 53 74 61  74 65 22 0d 2b 84 1a 4c  |tIconState".+..L|
00005ac0  44 52 20 20 20 20 20 20  52 30 2c 65 6d 70 74 79  |DR      R0,empty|
00005ad0  5f 70 6f 6b 65 0d 2b 8e  19 80 20 20 20 20 20 20  |_poke.+...      |
00005ae0  52 32 2c 52 30 2c 23 28  31 3c 3c 32 32 29 0d 2b  |R2,R0,#(1<<22).+|
00005af0  98 12 43 4d 50 20 20 20  20 20 20 52 32 2c 23 30  |..CMP      R2,#0|
00005b00  0d 2b a2 19 82 4e 45 20  20 20 20 52 30 2c 52 30  |.+...NE    R0,R0|
00005b10  2c 23 28 31 3c 3c 32 32  29 0d 2b ac 1a 53 54 52  |,#(1<<22).+..STR|
00005b20  20 20 20 20 20 20 52 30  2c 65 6d 70 74 79 5f 70  |      R0,empty_p|
00005b30  6f 6b 65 0d 2b b6 13 4d  4f 56 20 20 20 20 20 20  |oke.+..MOV      |
00005b40  52 31 30 2c 23 31 0d 2b  c0 1a 53 54 52 20 20 20  |R10,#1.+..STR   |
00005b50  20 20 20 52 31 30 2c 69  63 6f 6e 73 74 61 74 65  |   R10,iconstate|
00005b60  0d 2b ca 16 4c 44 4d 46  44 20 20 20 20 52 31 33  |.+..LDMFD    R13|
00005b70  21 2c 7b 50 43 7d 0d 2b  d4 0e 2e 65 6d 70 74 79  |!,{PC}.+...empty|
00005b80  5f 63 61 6e 0d 2b de 1a  4c 44 52 20 20 20 20 20  |_can.+..LDR     |
00005b90  20 52 31 30 2c 69 63 6f  6e 73 74 61 74 65 0d 2b  | R10,iconstate.+|
00005ba0  e8 13 43 4d 50 20 20 20  20 20 20 52 31 30 2c 23  |..CMP      R10,#|
00005bb0  30 0d 2b f2 16 4c 44 4d  45 51 46 44 20 20 52 31  |0.+..LDMEQFD  R1|
00005bc0  33 21 2c 7b 50 43 7d 0d  2b fc 17 41 44 52 20 20  |3!,{PC}.+..ADR  |
00005bd0  20 20 20 20 52 31 2c 77  6f 72 6b 73 70 63 0d 2c  |    R1,workspc.,|
00005be0  06 15 4d 56 4e 20 20 20  20 20 20 52 30 2c 23 ac  |..MVN      R0,#.|
00005bf0  20 2d 32 0d 2c 10 14 53  54 52 20 20 20 20 20 20  | -2.,..STR      |
00005c00  52 30 2c 5b 52 31 5d 0d  2c 1a 1c 4c 44 52 20 20  |R0,[R1].,..LDR  |
00005c10  20 20 20 20 52 30 2c 69  63 6f 6e 62 61 72 5f 68  |    R0,iconbar_h|
00005c20  61 6e 64 0d 2c 24 17 53  54 52 20 20 20 20 20 20  |and.,$.STR      |
00005c30  52 30 2c 5b 52 31 2c 23  34 5d 0d 2c 2e 20 53 57  |R0,[R1,#4].,. SW|
00005c40  49 20 20 20 20 20 20 22  57 69 6d 70 5f 47 65 74  |I      "Wimp_Get|
00005c50  49 63 6f 6e 53 74 61 74  65 22 0d 2c 38 1d 4c 44  |IconState".,8.LD|
00005c60  52 20 20 20 20 20 20 52  31 30 2c 61 6e 69 6d 61  |R      R10,anima|
00005c70  74 65 5f 70 6f 6b 65 0d  2c 42 13 43 4d 50 20 20  |te_poke.,B.CMP  |
00005c80  20 20 20 20 52 31 30 2c  23 31 0d 2c 4c 17 42 4e  |    R10,#1.,L.BN|
00005c90  45 20 20 20 20 20 20 73  6b 69 70 5f 61 6e 69 6d  |E      skip_anim|
00005ca0  32 0d 2c 56 18 4c 44 52  20 20 20 20 20 20 52 30  |2.,V.LDR      R0|
00005cb0  2c 5b 52 31 2c 23 33 32  5d 0d 2c 60 20 a4 61 64  |,[R1,#32].,` .ad|
00005cc0  72 6c 28 22 41 4c 22 2c  31 2c 69 63 6f 6e 62 61  |rl("AL",1,iconba|
00005cd0  72 5f 6e 65 61 72 6c 79  29 0d 2c 6a 11 42 4c 20  |r_nearly).,j.BL |
00005ce0  20 20 20 20 20 20 63 6f  70 79 0d 2c 74 17 41 44  |      copy.,t.AD|
00005cf0  52 20 20 20 20 20 20 52  31 2c 77 6f 72 6b 73 70  |R      R1,worksp|
00005d00  63 0d 2c 7e 12 4d 4f 56  20 20 20 20 20 20 52 30  |c.,~.MOV      R0|
00005d10  2c 23 30 0d 2c 88 17 53  54 52 20 20 20 20 20 20  |,#0.,..STR      |
00005d20  52 30 2c 5b 52 31 2c 23  38 5d 0d 2c 92 18 53 54  |R0,[R1,#8].,..ST|
00005d30  52 20 20 20 20 20 20 52  30 2c 5b 52 31 2c 23 31  |R      R0,[R1,#1|
00005d40  32 5d 0d 2c 9c 20 53 57  49 20 20 20 20 20 20 22  |2].,. SWI      "|
00005d50  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00005d60  65 22 0d 2c a6 13 4d 4f  56 20 20 20 20 20 20 52  |e".,..MOV      R|
00005d70  30 2c 23 31 39 0d 2c b0  16 53 57 49 20 20 20 20  |0,#19.,..SWI    |
00005d80  20 20 22 4f 53 5f 42 79  74 65 22 0d 2c ba 16 53  |  "OS_Byte".,..S|
00005d90  57 49 20 20 20 20 20 20  22 4f 53 5f 42 79 74 65  |WI      "OS_Byte|
00005da0  22 0d 2c c4 17 41 44 52  20 20 20 20 20 20 52 31  |".,..ADR      R1|
00005db0  2c 77 6f 72 6b 73 70 63  0d 2c ce 18 4c 44 52 20  |,workspc.,..LDR |
00005dc0  20 20 20 20 20 52 30 2c  5b 52 31 2c 23 33 32 5d  |     R0,[R1,#32]|
00005dd0  0d 2c d8 23 a4 61 64 72  6c 28 22 41 4c 22 2c 31  |.,.#.adrl("AL",1|
00005de0  2c 69 63 6f 6e 62 61 72  5f 6e 6f 74 73 6f 6e 65  |,iconbar_notsone|
00005df0  61 72 29 0d 2c e2 11 42  4c 20 20 20 20 20 20 20  |ar).,..BL       |
00005e00  63 6f 70 79 0d 2c ec 17  41 44 52 20 20 20 20 20  |copy.,..ADR     |
00005e10  20 52 31 2c 77 6f 72 6b  73 70 63 0d 2c f6 12 4d  | R1,workspc.,..M|
00005e20  4f 56 20 20 20 20 20 20  52 30 2c 23 30 0d 2d 00  |OV      R0,#0.-.|
00005e30  17 53 54 52 20 20 20 20  20 20 52 30 2c 5b 52 31  |.STR      R0,[R1|
00005e40  2c 23 38 5d 0d 2d 0a 18  53 54 52 20 20 20 20 20  |,#8].-..STR     |
00005e50  20 52 30 2c 5b 52 31 2c  23 31 32 5d 0d 2d 14 20  | R0,[R1,#12].-. |
00005e60  53 57 49 20 20 20 20 20  20 22 57 69 6d 70 5f 53  |SWI      "Wimp_S|
00005e70  65 74 49 63 6f 6e 53 74  61 74 65 22 0d 2d 1e 13  |etIconState".-..|
00005e80  4d 4f 56 20 20 20 20 20  20 52 30 2c 23 31 39 0d  |MOV      R0,#19.|
00005e90  2d 28 16 53 57 49 20 20  20 20 20 20 22 4f 53 5f  |-(.SWI      "OS_|
00005ea0  42 79 74 65 22 0d 2d 32  16 53 57 49 20 20 20 20  |Byte".-2.SWI    |
00005eb0  20 20 22 4f 53 5f 42 79  74 65 22 0d 2d 3c 17 41  |  "OS_Byte".-<.A|
00005ec0  44 52 20 20 20 20 20 20  52 31 2c 77 6f 72 6b 73  |DR      R1,works|
00005ed0  70 63 0d 2d 46 0f 2e 73  6b 69 70 5f 61 6e 69 6d  |pc.-F..skip_anim|
00005ee0  32 0d 2d 50 18 4c 44 52  20 20 20 20 20 20 52 30  |2.-P.LDR      R0|
00005ef0  2c 5b 52 31 2c 23 33 32  5d 0d 2d 5a 1f a4 61 64  |,[R1,#32].-Z..ad|
00005f00  72 6c 28 22 41 4c 22 2c  31 2c 69 63 6f 6e 62 61  |rl("AL",1,iconba|
00005f10  72 5f 65 6d 70 74 79 29  0d 2d 64 11 42 4c 20 20  |r_empty).-d.BL  |
00005f20  20 20 20 20 20 63 6f 70  79 0d 2d 6e 17 41 44 52  |     copy.-n.ADR|
00005f30  20 20 20 20 20 20 52 31  2c 77 6f 72 6b 73 70 63  |      R1,workspc|
00005f40  0d 2d 78 12 4d 4f 56 20  20 20 20 20 20 52 30 2c  |.-x.MOV      R0,|
00005f50  23 30 0d 2d 82 17 53 54  52 20 20 20 20 20 20 52  |#0.-..STR      R|
00005f60  30 2c 5b 52 31 2c 23 38  5d 0d 2d 8c 18 53 54 52  |0,[R1,#8].-..STR|
00005f70  20 20 20 20 20 20 52 30  2c 5b 52 31 2c 23 31 32  |      R0,[R1,#12|
00005f80  5d 0d 2d 96 20 53 57 49  20 20 20 20 20 20 22 57  |].-. SWI      "W|
00005f90  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00005fa0  22 0d 2d a0 1a 4c 44 52  20 20 20 20 20 20 52 30  |".-..LDR      R0|
00005fb0  2c 65 6d 70 74 79 5f 70  6f 6b 65 0d 2d aa 19 80  |,empty_poke.-...|
00005fc0  20 20 20 20 20 20 52 32  2c 52 30 2c 23 28 31 3c  |      R2,R0,#(1<|
00005fd0  3c 32 32 29 0d 2d b4 12  43 4d 50 20 20 20 20 20  |<22).-..CMP     |
00005fe0  20 52 32 2c 23 30 0d 2d  be 19 82 45 51 20 20 20  | R2,#0.-...EQ   |
00005ff0  20 52 30 2c 52 30 2c 23  28 31 3c 3c 32 32 29 0d  | R0,R0,#(1<<22).|
00006000  2d c8 1a 53 54 52 20 20  20 20 20 20 52 30 2c 65  |-..STR      R0,e|
00006010  6d 70 74 79 5f 70 6f 6b  65 0d 2d d2 13 4d 4f 56  |mpty_poke.-..MOV|
00006020  20 20 20 20 20 20 52 31  30 2c 23 30 0d 2d dc 1a  |      R10,#0.-..|
00006030  53 54 52 20 20 20 20 20  20 52 31 30 2c 69 63 6f  |STR      R10,ico|
00006040  6e 73 74 61 74 65 0d 2d  e6 16 4c 44 4d 46 44 20  |nstate.-..LDMFD |
00006050  20 20 20 52 31 33 21 2c  7b 50 43 7d 0d 2d f0 04  |   R13!,{PC}.-..|
00006060  0d 2d fa 0e 2e 69 63 6f  6e 73 74 61 74 65 0d 2e  |.-...iconstate..|
00006070  04 0e 45 51 55 44 20 20  20 20 20 30 0d 2e 0e 04  |..EQUD     0....|
00006080  0d 2e 18 0c 2e 77 6f 72  6b 73 70 63 0d 2e 22 14  |.....workspc..".|
00006090  45 51 55 53 20 20 20 20  20 c4 38 30 2c bd 30 29  |EQUS     .80,.0)|
000060a0  0d 2e 2c 09 41 4c 49 47  4e 0d 2e 36 04 0d 2e 40  |..,.ALIGN..6...@|
000060b0  0b 2e 6f 6c 64 70 61 6c  0d 2e 4a 0e 45 51 55 44  |..oldpal..J.EQUD|
000060c0  20 20 20 20 20 30 0d 2e  54 04 0d 2e 5e 0d 2e 72  |     0..T...^..r|
000060d0  65 61 64 63 6d 6f 73 0d  2e 68 17 53 54 4d 46 44  |eadcmos..h.STMFD|
000060e0  20 20 20 20 52 31 33 21  2c 7b 52 31 34 7d 0d 2e  |    R13!,{R14}..|
000060f0  72 14 4d 4f 56 20 20 20  20 20 20 52 30 2c 23 31  |r.MOV      R0,#1|
00006100  36 31 0d 2e 7c 16 4d 4f  56 20 20 20 20 20 20 52  |61..|.MOV      R|
00006110  31 2c 23 63 6d 6f 73 25  0d 2e 86 16 53 57 49 20  |1,#cmos%....SWI |
00006120  20 20 20 20 20 22 4f 53  5f 42 79 74 65 22 0d 2e  |     "OS_Byte"..|
00006130  90 16 80 20 20 20 20 20  20 52 33 2c 52 32 2c 23  |...      R3,R2,#|
00006140  31 3c 3c 30 0d 2e 9a 12  43 4d 50 20 20 20 20 20  |1<<0....CMP     |
00006150  20 52 33 2c 23 30 0d 2e  a4 12 4d 4f 56 4e 45 20  | R3,#0....MOVNE |
00006160  20 20 20 52 33 2c 23 31  0d 2e ae 1c 53 54 52 20  |   R3,#1....STR |
00006170  20 20 20 20 20 52 33 2c  77 61 72 6e 69 6e 67 5f  |     R3,warning_|
00006180  70 6f 6b 65 0d 2e b8 16  80 20 20 20 20 20 20 52  |poke.....      R|
00006190  33 2c 52 32 2c 23 31 3c  3c 31 0d 2e c2 12 43 4d  |3,R2,#1<<1....CM|
000061a0  50 20 20 20 20 20 20 52  33 2c 23 30 0d 2e cc 12  |P      R3,#0....|
000061b0  4d 4f 56 4e 45 20 20 20  20 52 33 2c 23 31 0d 2e  |MOVNE    R3,#1..|
000061c0  d6 1e 53 54 52 20 20 20  20 20 20 52 33 2c 69 6d  |..STR      R3,im|
000061d0  6d 65 64 69 61 74 65 5f  70 6f 6b 65 0d 2e e0 16  |mediate_poke....|
000061e0  80 20 20 20 20 20 20 52  33 2c 52 32 2c 23 31 3c  |.      R3,R2,#1<|
000061f0  3c 32 0d 2e ea 12 43 4d  50 20 20 20 20 20 20 52  |<2....CMP      R|
00006200  33 2c 23 30 0d 2e f4 12  4d 4f 56 4e 45 20 20 20  |3,#0....MOVNE   |
00006210  20 52 33 2c 23 31 0d 2e  fe 1c 53 54 52 20 20 20  | R3,#1....STR   |
00006220  20 20 20 52 33 2c 61 6e  69 6d 61 74 65 5f 70 6f  |   R3,animate_po|
00006230  6b 65 0d 2f 08 16 4c 44  4d 46 44 20 20 20 20 52  |ke./..LDMFD    R|
00006240  31 33 21 2c 7b 50 43 7d  0d 2f 12 04 0d 2f 1c 0e  |13!,{PC}./.../..|
00006250  2e 77 72 69 74 65 63 6d  6f 73 0d 2f 26 17 53 54  |.writecmos./&.ST|
00006260  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 31 34  |MFD    R13!,{R14|
00006270  7d 0d 2f 30 12 4d 4f 56  20 20 20 20 20 20 52 32  |}./0.MOV      R2|
00006280  2c 23 30 0d 2f 3a 1c 4c  44 52 20 20 20 20 20 20  |,#0./:.LDR      |
00006290  52 33 2c 77 61 72 6e 69  6e 67 5f 70 6f 6b 65 0d  |R3,warning_poke.|
000062a0  2f 44 12 43 4d 50 20 20  20 20 20 20 52 33 2c 23  |/D.CMP      R3,#|
000062b0  31 0d 2f 4e 17 84 52 45  51 20 20 20 20 52 32 2c  |1./N..REQ    R2,|
000062c0  52 32 2c 23 31 3c 3c 30  0d 2f 58 1e 4c 44 52 20  |R2,#1<<0./X.LDR |
000062d0  20 20 20 20 20 52 33 2c  69 6d 6d 65 64 69 61 74  |     R3,immediat|
000062e0  65 5f 70 6f 6b 65 0d 2f  62 12 43 4d 50 20 20 20  |e_poke./b.CMP   |
000062f0  20 20 20 52 33 2c 23 31  0d 2f 6c 17 84 52 45 51  |   R3,#1./l..REQ|
00006300  20 20 20 20 52 32 2c 52  32 2c 23 31 3c 3c 31 0d  |    R2,R2,#1<<1.|
00006310  2f 76 1c 4c 44 52 20 20  20 20 20 20 52 33 2c 61  |/v.LDR      R3,a|
00006320  6e 69 6d 61 74 65 5f 70  6f 6b 65 0d 2f 80 12 43  |nimate_poke./..C|
00006330  4d 50 20 20 20 20 20 20  52 33 2c 23 31 0d 2f 8a  |MP      R3,#1./.|
00006340  17 84 52 45 51 20 20 20  20 52 32 2c 52 32 2c 23  |..REQ    R2,R2,#|
00006350  31 3c 3c 32 0d 2f 94 14  4d 4f 56 20 20 20 20 20  |1<<2./..MOV     |
00006360  20 52 30 2c 23 31 36 32  0d 2f 9e 16 4d 4f 56 20  | R0,#162./..MOV |
00006370  20 20 20 20 20 52 31 2c  23 63 6d 6f 73 25 0d 2f  |     R1,#cmos%./|
00006380  a8 16 53 57 49 20 20 20  20 20 20 22 4f 53 5f 42  |..SWI      "OS_B|
00006390  79 74 65 22 0d 2f b2 16  4c 44 4d 46 44 20 20 20  |yte"./..LDMFD   |
000063a0  20 52 31 33 21 2c 7b 50  43 7d 0d 2f bc 04 0d 2f  | R13!,{PC}./.../|
000063b0  c6 0e 2e 63 61 6e 65 78  69 73 74 73 0d 2f d0 1d  |...canexists./..|
000063c0  53 54 4d 46 44 20 20 20  20 52 31 33 21 2c 7b 52  |STMFD    R13!,{R|
000063d0  30 2d 52 34 2c 52 31 34  7d 0d 2f da 12 4d 4f 56  |0-R4,R14}./..MOV|
000063e0  20 20 20 20 20 20 52 30  2c 23 38 0d 2f e4 1d a4  |      R0,#8./...|
000063f0  61 64 72 6c 28 22 41 4c  22 2c 31 2c 74 72 61 73  |adrl("AL",1,tras|
00006400  68 66 73 5f 64 69 72 29  0d 2f ee 12 4d 4f 56 20  |hfs_dir)./..MOV |
00006410  20 20 20 20 20 52 34 2c  23 30 0d 2f f8 17 53 57  |     R4,#0./..SW|
00006420  49 20 20 20 20 20 20 22  58 4f 53 5f 46 69 6c 65  |I      "XOS_File|
00006430  22 0d 30 02 1c 4c 44 4d  46 44 20 20 20 20 52 31  |".0..LDMFD    R1|
00006440  33 21 2c 7b 52 30 2d 52  34 2c 50 43 7d 0d 30 0c  |3!,{R0-R4,PC}.0.|
00006450  04 0d 30 16 0d 2e 74 72  61 6e 73 76 61 72 0d 30  |..0...transvar.0|
00006460  20 17 53 54 4d 46 44 20  20 20 20 52 31 33 21 2c  | .STMFD    R13!,|
00006470  7b 52 31 34 7d 0d 30 2a  13 4d 4f 56 20 20 20 20  |{R14}.0*.MOV    |
00006480  20 20 52 31 2c 52 31 32  0d 30 34 14 4d 4f 56 20  |  R1,R12.04.MOV |
00006490  20 20 20 20 20 52 32 2c  23 35 31 32 0d 30 3e 12  |     R2,#512.0>.|
000064a0  4d 4f 56 20 20 20 20 20  20 52 33 2c 23 30 0d 30  |MOV      R3,#0.0|
000064b0  48 12 4d 4f 56 20 20 20  20 20 20 52 34 2c 23 30  |H.MOV      R4,#0|
000064c0  0d 30 52 1d a4 61 64 72  6c 28 22 41 4c 22 2c 30  |.0R..adrl("AL",0|
000064d0  2c 74 72 61 73 68 66 73  5f 76 61 72 29 0d 30 5c  |,trashfs_var).0\|
000064e0  1d 53 57 49 20 20 20 20  20 20 22 58 4f 53 5f 52  |.SWI      "XOS_R|
000064f0  65 61 64 56 61 72 56 61  6c 22 0d 30 66 15 42 56  |eadVarVal".0f.BV|
00006500  53 20 20 20 20 20 20 77  6f 74 6e 6f 76 61 72 0d  |S      wotnovar.|
00006510  30 70 12 4d 4f 56 20 20  20 20 20 20 52 35 2c 23  |0p.MOV      R5,#|
00006520  30 0d 30 7a 17 53 54 52  42 20 20 20 20 20 52 35  |0.0z.STRB     R5|
00006530  2c 5b 52 31 2c 52 32 5d  0d 30 84 1d a4 61 64 72  |,[R1,R2].0...adr|
00006540  6c 28 22 41 4c 22 2c 30  2c 74 72 61 73 68 66 73  |l("AL",0,trashfs|
00006550  5f 64 69 72 29 0d 30 8e  13 4d 4f 56 20 20 20 20  |_dir).0..MOV    |
00006560  20 20 52 31 2c 52 31 32  0d 30 98 11 42 4c 20 20  |  R1,R12.0..BL  |
00006570  20 20 20 20 20 63 6f 70  79 0d 30 a2 16 4c 44 4d  |     copy.0..LDM|
00006580  46 44 20 20 20 20 52 31  33 21 2c 7b 50 43 7d 0d  |FD    R13!,{PC}.|
00006590  30 ac 04 0d 30 b6 0d 2e  77 6f 74 6e 6f 76 61 72  |0...0...wotnovar|
000065a0  0d 30 c0 15 41 44 52 20  20 20 20 20 20 52 30 2c  |.0..ADR      R0,|
000065b0  6e 6f 76 61 72 0d 30 ca  12 4d 4f 56 20 20 20 20  |novar.0..MOV    |
000065c0  20 20 52 31 2c 23 31 0d  30 d4 17 a4 61 64 72 6c  |  R1,#1.0...adrl|
000065d0  28 22 41 4c 22 2c 32 2c  74 69 74 6c 65 29 0d 30  |("AL",2,title).0|
000065e0  de 1f 53 57 49 20 20 20  20 20 20 22 57 69 6d 70  |..SWI      "Wimp|
000065f0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 0d 30 e8  |_ReportError".0.|
00006600  12 4d 4f 56 20 20 20 20  20 20 52 30 2c 23 34 0d  |.MOV      R0,#4.|
00006610  30 f2 17 a4 61 64 72 6c  28 22 41 4c 22 2c 31 2c  |0...adrl("AL",1,|
00006620  74 69 74 6c 65 29 0d 30  fc 18 53 57 49 20 20 20  |title).0..SWI   |
00006630  20 20 20 22 4f 53 5f 4d  6f 64 75 6c 65 22 0d 31  |   "OS_Module".1|
00006640  06 16 4c 44 4d 46 44 20  20 20 20 52 31 33 21 2c  |..LDMFD    R13!,|
00006650  7b 50 43 7d 0d 31 10 04  0d 31 1a 0a 2e 6e 6f 76  |{PC}.1...1...nov|
00006660  61 72 0d 31 24 0e 45 51  55 44 20 20 20 20 20 30  |ar.1$.EQUD     0|
00006670  0d 31 2e 32 45 51 55 53  20 20 20 20 20 22 54 72  |.1.2EQUS     "Tr|
00006680  61 73 68 46 53 24 54 72  61 73 68 44 69 72 20 69  |ashFS$TrashDir i|
00006690  73 20 6d 69 73 73 69 6e  67 21 22 3a 45 51 55 42  |s missing!":EQUB|
000066a0  20 30 0d 31 38 09 41 4c  49 47 4e 0d 31 42 04 0d  | 0.18.ALIGN.1B..|
000066b0  31 4c 13 2e 6f 70 65 6e  74 72 61 73 68 5f 68 65  |1L..opentrash_he|
000066c0  6c 70 0d 31 56 67 45 51  55 53 20 20 20 20 20 22  |lp.1VgEQUS     "|
000066d0  2a 4f 70 65 6e 54 72 61  73 68 20 6f 70 65 6e 73  |*OpenTrash opens|
000066e0  20 61 20 66 69 6c 65 72  20 76 69 65 77 65 72 20  | a filer viewer |
000066f0  6f 6e 20 74 68 65 20 64  65 73 6b 74 6f 70 20 74  |on the desktop t|
00006700  6f 20 74 68 65 20 54 72  61 73 68 63 61 6e 20 63  |o the Trashcan c|
00006710  6f 6e 74 65 6e 74 73 2e  22 3a 45 51 55 42 20 31  |ontents.":EQUB 1|
00006720  30 3a 45 51 55 42 20 31  33 0d 31 60 15 2e 6f 70  |0:EQUB 13.1`..op|
00006730  65 6e 74 72 61 73 68 5f  73 79 6e 74 61 78 0d 31  |entrash_syntax.1|
00006740  6a 28 45 51 55 53 20 20  20 20 20 22 53 79 6e 74  |j(EQUS     "Synt|
00006750  61 78 3a 20 2a 4f 70 65  6e 54 72 61 73 68 22 3a  |ax: *OpenTrash":|
00006760  45 51 55 42 20 30 0d 31  74 09 41 4c 49 47 4e 0d  |EQUB 0.1t.ALIGN.|
00006770  31 7e 04 0d 31 88 13 2e  6f 70 65 6e 74 72 61 73  |1~..1...opentras|
00006780  68 5f 63 6f 64 65 0d 31  92 1d 53 54 4d 46 44 20  |h_code.1..STMFD |
00006790  20 20 20 52 31 33 21 2c  7b 52 30 2d 52 38 2c 52  |   R13!,{R0-R8,R|
000067a0  31 34 7d 0d 31 9c 14 4d  4f 56 20 20 20 20 20 20  |14}.1..MOV      |
000067b0  52 30 2c 23 31 36 31 0d  31 a6 16 4d 4f 56 20 20  |R0,#161.1..MOV  |
000067c0  20 20 20 20 52 31 2c 23  63 6d 6f 73 25 0d 31 b0  |    R1,#cmos%.1.|
000067d0  16 53 57 49 20 20 20 20  20 20 22 4f 53 5f 42 79  |.SWI      "OS_By|
000067e0  74 65 22 0d 31 ba 16 80  20 20 20 20 20 20 52 32  |te".1...      R2|
000067f0  2c 52 32 2c 23 31 3c 3c  31 0d 31 c4 12 43 4d 50  |,R2,#1<<1.1..CMP|
00006800  20 20 20 20 20 20 52 32  2c 23 30 0d 31 ce 1c 41  |      R2,#0.1..A|
00006810  44 52 4e 45 20 20 20 20  52 30 2c 69 6d 6d 65 64  |DRNE    R0,immed|
00006820  69 61 74 65 5f 6f 6e 0d  31 d8 1f 53 57 49 4e 45  |iate_on.1..SWINE|
00006830  20 20 20 20 22 4f 53 5f  47 65 6e 65 72 61 74 65  |    "OS_Generate|
00006840  45 72 72 6f 72 22 0d 31  e2 16 42 4c 20 20 20 20  |Error".1..BL    |
00006850  20 20 20 63 61 6e 65 78  69 73 74 73 0d 31 ec 1f  |   canexists.1..|
00006860  a4 61 64 72 6c 28 22 41  4c 22 2c 31 2c 66 69 6c  |.adrl("AL",1,fil|
00006870  65 72 5f 6f 70 65 6e 64  69 72 29 0d 31 f6 1c a4  |er_opendir).1...|
00006880  61 64 72 6c 28 22 41 4c  22 2c 30 2c 66 69 6c 65  |adrl("AL",0,file|
00006890  72 5f 70 6f 6b 65 29 0d  32 00 11 42 4c 20 20 20  |r_poke).2..BL   |
000068a0  20 20 20 20 63 6f 70 79  0d 32 0a 1d a4 61 64 72  |    copy.2...adr|
000068b0  6c 28 22 41 4c 22 2c 31  2c 74 72 61 73 68 66 73  |l("AL",1,trashfs|
000068c0  5f 64 69 72 29 0d 32 14  15 53 55 42 20 20 20 20  |_dir).2..SUB    |
000068d0  20 20 52 30 2c 52 30 2c  23 31 0d 32 1e 11 42 4c  |  R0,R0,#1.2..BL|
000068e0  20 20 20 20 20 20 20 63  6f 70 79 0d 32 28 1c a4  |       copy.2(..|
000068f0  61 64 72 6c 28 22 41 4c  22 2c 30 2c 66 69 6c 65  |adrl("AL",0,file|
00006900  72 5f 70 6f 6b 65 29 0d  32 32 16 53 57 49 20 20  |r_poke).22.SWI  |
00006910  20 20 20 20 22 58 4f 53  5f 43 4c 49 22 0d 32 3c  |    "XOS_CLI".2<|
00006920  12 4d 4f 56 20 20 20 20  20 20 52 30 2c 23 31 0d  |.MOV      R0,#1.|
00006930  32 46 1c a4 61 64 72 6c  28 22 41 4c 22 2c 31 2c  |2F..adrl("AL",1,|
00006940  74 72 61 73 68 5f 6f 70  65 6e 29 0d 32 50 14 53  |trash_open).2P.S|
00006950  54 52 20 20 20 20 20 20  52 30 2c 5b 52 31 5d 0d  |TR      R0,[R1].|
00006960  32 5a 1c 4c 44 4d 46 44  20 20 20 20 52 31 33 21  |2Z.LDMFD    R13!|
00006970  2c 7b 52 30 2d 52 38 2c  50 43 7d 0d 32 64 04 0d  |,{R0-R8,PC}.2d..|
00006980  32 6e 11 2e 69 6d 6d 65  64 69 61 74 65 5f 6f 6e  |2n..immediate_on|
00006990  0d 32 78 0e 45 51 55 44  20 20 20 20 20 30 0d 32  |.2x.EQUD     0.2|
000069a0  82 41 45 51 55 53 20 20  20 20 20 22 49 6e 76 61  |.AEQUS     "Inva|
000069b0  6c 69 64 20 54 72 61 73  68 63 61 6e 20 6f 70 65  |lid Trashcan ope|
000069c0  72 61 74 69 6f 6e 20 69  6e 20 74 68 69 73 20 63  |ration in this c|
000069d0  6f 6e 74 65 78 74 2e 22  3a 45 51 55 42 20 30 0d  |ontext.":EQUB 0.|
000069e0  32 8c 09 41 4c 49 47 4e  0d 32 96 04 0d 32 a0 11  |2..ALIGN.2...2..|
000069f0  2e 77 61 72 6e 69 6e 67  5f 68 65 6c 70 0d 32 aa  |.warning_help.2.|
00006a00  4e 45 51 55 53 20 20 20  20 20 22 2a 57 61 72 6e  |NEQUS     "*Warn|
00006a10  69 6e 67 20 73 77 69 74  63 68 65 73 20 74 68 65  |ing switches the|
00006a20  20 57 61 72 6e 69 6e 67  20 6f 70 74 69 6f 6e 20  | Warning option |
00006a30  6f 6e 20 6f 72 20 6f 66  66 2e 22 3a 45 51 55 42  |on or off.":EQUB|
00006a40  20 31 30 3a 45 51 55 42  20 31 33 0d 32 b4 13 2e  | 10:EQUB 13.2...|
00006a50  77 61 72 6e 69 6e 67 5f  73 79 6e 74 61 78 0d 32  |warning_syntax.2|
00006a60  be 2f 45 51 55 53 20 20  20 20 20 22 53 79 6e 74  |./EQUS     "Synt|
00006a70  61 78 3a 20 2a 57 61 72  6e 69 6e 67 20 5b 6f 6e  |ax: *Warning [on|
00006a80  7c 6f 66 66 5d 22 3a 45  51 55 42 20 30 0d 32 c8  ||off]":EQUB 0.2.|
00006a90  09 41 4c 49 47 4e 0d 32  d2 04 0d 32 dc 11 2e 77  |.ALIGN.2...2...w|
00006aa0  61 72 6e 69 6e 67 5f 63  6f 64 65 0d 32 e6 1d 53  |arning_code.2..S|
00006ab0  54 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 52 30  |TMFD    R13!,{R0|
00006ac0  2d 52 38 2c 52 31 34 7d  0d 32 f0 17 4c 44 52 42  |-R8,R14}.2..LDRB|
00006ad0  20 20 20 20 20 52 32 2c  5b 52 30 5d 2c 23 31 0d  |     R2,[R0],#1.|
00006ae0  32 fa 16 84 52 20 20 20  20 20 20 52 32 2c 52 32  |2...R      R2,R2|
00006af0  2c 23 26 32 30 0d 33 04  15 43 4d 50 20 20 20 20  |,#&20.3..CMP    |
00006b00  20 20 52 32 2c 23 97 22  6f 22 0d 33 0e 16 42 4e  |  R2,#."o".3..BN|
00006b10  45 20 20 20 20 20 20 62  61 64 73 79 6e 74 61 78  |E      badsyntax|
00006b20  0d 33 18 17 4c 44 52 42  20 20 20 20 20 52 32 2c  |.3..LDRB     R2,|
00006b30  5b 52 30 5d 2c 23 31 0d  33 22 16 84 52 20 20 20  |[R0],#1.3"..R   |
00006b40  20 20 20 52 32 2c 52 32  2c 23 26 32 30 0d 33 2c  |   R2,R2,#&20.3,|
00006b50  15 43 4d 50 20 20 20 20  20 20 52 32 2c 23 97 22  |.CMP      R2,#."|
00006b60  6e 22 0d 33 36 13 42 45  51 20 20 20 20 20 20 77  |n".36.BEQ      w|
00006b70  61 72 6e 6f 6e 0d 33 40  15 43 4d 50 20 20 20 20  |arnon.3@.CMP    |
00006b80  20 20 52 32 2c 23 97 22  66 22 0d 33 4a 16 42 4e  |  R2,#."f".3J.BN|
00006b90  45 20 20 20 20 20 20 62  61 64 73 79 6e 74 61 78  |E      badsyntax|
00006ba0  0d 33 54 17 4c 44 52 42  20 20 20 20 20 52 32 2c  |.3T.LDRB     R2,|
00006bb0  5b 52 30 5d 2c 23 31 0d  33 5e 16 84 52 20 20 20  |[R0],#1.3^..R   |
00006bc0  20 20 20 52 32 2c 52 32  2c 23 26 32 30 0d 33 68  |   R2,R2,#&20.3h|
00006bd0  15 43 4d 50 20 20 20 20  20 20 52 32 2c 23 97 22  |.CMP      R2,#."|
00006be0  66 22 0d 33 72 16 42 4e  45 20 20 20 20 20 20 62  |f".3r.BNE      b|
00006bf0  61 64 73 79 6e 74 61 78  0d 33 7c 14 42 20 20 20  |adsyntax.3|.B   |
00006c00  20 20 20 20 20 77 61 72  6e 6f 66 66 0d 33 86 04  |     warnoff.3..|
00006c10  0d 33 90 0e 2e 62 61 64  73 79 6e 74 61 78 0d 33  |.3...badsyntax.3|
00006c20  9a 1d 4c 44 4d 46 44 20  20 20 20 52 31 33 21 2c  |..LDMFD    R13!,|
00006c30  7b 52 30 2d 52 38 2c 52  31 34 7d 0d 33 a4 1e 41  |{R0-R8,R14}.3..A|
00006c40  44 52 20 20 20 20 20 20  52 30 2c 77 61 72 6e 69  |DR      R0,warni|
00006c50  6e 67 5f 73 79 6e 74 61  78 0d 33 ae 19 84 52 53  |ng_syntax.3...RS|
00006c60  20 20 20 20 20 50 43 2c  52 31 34 2c 23 31 3c 3c  |     PC,R14,#1<<|
00006c70  32 38 0d 33 b8 04 0d 33  c2 0b 2e 77 61 72 6e 6f  |28.3...3...warno|
00006c80  6e 0d 33 cc 12 4d 4f 56  20 20 20 20 20 20 52 30  |n.3..MOV      R0|
00006c90  2c 23 31 0d 33 d6 1e a4  61 64 72 6c 28 22 41 4c  |,#1.3...adrl("AL|
00006ca0  22 2c 31 2c 77 61 72 6e  69 6e 67 5f 70 6f 6b 65  |",1,warning_poke|
00006cb0  29 0d 33 e0 14 53 54 52  20 20 20 20 20 20 52 30  |).3..STR      R0|
00006cc0  2c 5b 52 31 5d 0d 33 ea  16 42 4c 20 20 20 20 20  |,[R1].3..BL     |
00006cd0  20 20 77 72 69 74 65 63  6d 6f 73 0d 33 f4 1c 4c  |  writecmos.3..L|
00006ce0  44 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 52 30  |DMFD    R13!,{R0|
00006cf0  2d 52 38 2c 50 43 7d 0d  33 fe 04 0d 34 08 0c 2e  |-R8,PC}.3...4...|
00006d00  77 61 72 6e 6f 66 66 0d  34 12 12 4d 4f 56 20 20  |warnoff.4..MOV  |
00006d10  20 20 20 20 52 30 2c 23  30 0d 34 1c 1e a4 61 64  |    R0,#0.4...ad|
00006d20  72 6c 28 22 41 4c 22 2c  31 2c 77 61 72 6e 69 6e  |rl("AL",1,warnin|
00006d30  67 5f 70 6f 6b 65 29 0d  34 26 14 53 54 52 20 20  |g_poke).4&.STR  |
00006d40  20 20 20 20 52 30 2c 5b  52 31 5d 0d 34 30 16 42  |    R0,[R1].40.B|
00006d50  4c 20 20 20 20 20 20 20  77 72 69 74 65 63 6d 6f  |L       writecmo|
00006d60  73 0d 34 3a 1c 4c 44 4d  46 44 20 20 20 20 52 31  |s.4:.LDMFD    R1|
00006d70  33 21 2c 7b 52 30 2d 52  38 2c 50 43 7d 0d 34 44  |3!,{R0-R8,PC}.4D|
00006d80  04 0d 34 4e 13 2e 69 6d  6d 65 64 69 61 74 65 5f  |..4N..immediate_|
00006d90  68 65 6c 70 0d 34 58 52  45 51 55 53 20 20 20 20  |help.4XREQUS    |
00006da0  20 22 2a 49 6d 6d 65 64  69 61 74 65 20 73 77 69  | "*Immediate swi|
00006db0  74 63 68 65 73 20 74 68  65 20 49 6d 6d 65 64 69  |tches the Immedi|
00006dc0  61 74 65 20 6f 70 74 69  6f 6e 20 6f 6e 20 6f 72  |ate option on or|
00006dd0  20 6f 66 66 2e 22 3a 45  51 55 42 20 31 30 3a 45  | off.":EQUB 10:E|
00006de0  51 55 42 20 31 33 0d 34  62 15 2e 69 6d 6d 65 64  |QUB 13.4b..immed|
00006df0  69 61 74 65 5f 73 79 6e  74 61 78 0d 34 6c 31 45  |iate_syntax.4l1E|
00006e00  51 55 53 20 20 20 20 20  22 53 79 6e 74 61 78 3a  |QUS     "Syntax:|
00006e10  20 2a 49 6d 6d 65 64 69  61 74 65 20 5b 6f 6e 7c  | *Immediate [on||
00006e20  6f 66 66 5d 22 3a 45 51  55 42 20 30 0d 34 76 09  |off]":EQUB 0.4v.|
00006e30  41 4c 49 47 4e 0d 34 80  04 0d 34 8a 13 2e 69 6d  |ALIGN.4...4...im|
00006e40  6d 65 64 69 61 74 65 5f  63 6f 64 65 0d 34 94 1d  |mediate_code.4..|
00006e50  53 54 4d 46 44 20 20 20  20 52 31 33 21 2c 7b 52  |STMFD    R13!,{R|
00006e60  30 2d 52 38 2c 52 31 34  7d 0d 34 9e 17 4c 44 52  |0-R8,R14}.4..LDR|
00006e70  42 20 20 20 20 20 52 32  2c 5b 52 30 5d 2c 23 31  |B     R2,[R0],#1|
00006e80  0d 34 a8 16 84 52 20 20  20 20 20 20 52 32 2c 52  |.4...R      R2,R|
00006e90  32 2c 23 26 32 30 0d 34  b2 15 43 4d 50 20 20 20  |2,#&20.4..CMP   |
00006ea0  20 20 20 52 32 2c 23 97  22 6f 22 0d 34 bc 17 42  |   R2,#."o".4..B|
00006eb0  4e 45 20 20 20 20 20 20  62 61 64 73 79 6e 74 61  |NE      badsynta|
00006ec0  78 32 0d 34 c6 17 4c 44  52 42 20 20 20 20 20 52  |x2.4..LDRB     R|
00006ed0  32 2c 5b 52 30 5d 2c 23  31 0d 34 d0 16 84 52 20  |2,[R0],#1.4...R |
00006ee0  20 20 20 20 20 52 32 2c  52 32 2c 23 26 32 30 0d  |     R2,R2,#&20.|
00006ef0  34 da 15 43 4d 50 20 20  20 20 20 20 52 32 2c 23  |4..CMP      R2,#|
00006f00  97 22 6e 22 0d 34 e4 18  42 45 51 20 20 20 20 20  |."n".4..BEQ     |
00006f10  20 69 6d 6d 65 64 69 61  74 65 6f 6e 0d 34 ee 15  | immediateon.4..|
00006f20  43 4d 50 20 20 20 20 20  20 52 32 2c 23 97 22 66  |CMP      R2,#."f|
00006f30  22 0d 34 f8 17 42 4e 45  20 20 20 20 20 20 62 61  |".4..BNE      ba|
00006f40  64 73 79 6e 74 61 78 32  0d 35 02 17 4c 44 52 42  |dsyntax2.5..LDRB|
00006f50  20 20 20 20 20 52 32 2c  5b 52 30 5d 2c 23 31 0d  |     R2,[R0],#1.|
00006f60  35 0c 16 84 52 20 20 20  20 20 20 52 32 2c 52 32  |5...R      R2,R2|
00006f70  2c 23 26 32 30 0d 35 16  15 43 4d 50 20 20 20 20  |,#&20.5..CMP    |
00006f80  20 20 52 32 2c 23 97 22  66 22 0d 35 20 17 42 4e  |  R2,#."f".5 .BN|
00006f90  45 20 20 20 20 20 20 62  61 64 73 79 6e 74 61 78  |E      badsyntax|
00006fa0  32 0d 35 2a 19 42 20 20  20 20 20 20 20 20 69 6d  |2.5*.B        im|
00006fb0  6d 65 64 69 61 74 65 6f  66 66 0d 35 34 04 0d 35  |mediateoff.54..5|
00006fc0  3e 0f 2e 62 61 64 73 79  6e 74 61 78 32 0d 35 48  |>..badsyntax2.5H|
00006fd0  1d 4c 44 4d 46 44 20 20  20 20 52 31 33 21 2c 7b  |.LDMFD    R13!,{|
00006fe0  52 30 2d 52 38 2c 52 31  34 7d 0d 35 52 20 41 44  |R0-R8,R14}.5R AD|
00006ff0  52 20 20 20 20 20 20 52  30 2c 69 6d 6d 65 64 69  |R      R0,immedi|
00007000  61 74 65 5f 73 79 6e 74  61 78 0d 35 5c 19 84 52  |ate_syntax.5\..R|
00007010  53 20 20 20 20 20 50 43  2c 52 31 34 2c 23 31 3c  |S     PC,R14,#1<|
00007020  3c 32 38 0d 35 66 04 0d  35 70 10 2e 69 6d 6d 65  |<28.5f..5p..imme|
00007030  64 69 61 74 65 6f 6e 0d  35 7a 12 4d 4f 56 20 20  |diateon.5z.MOV  |
00007040  20 20 20 20 52 30 2c 23  31 0d 35 84 20 a4 61 64  |    R0,#1.5. .ad|
00007050  72 6c 28 22 41 4c 22 2c  31 2c 69 6d 6d 65 64 69  |rl("AL",1,immedi|
00007060  61 74 65 5f 70 6f 6b 65  29 0d 35 8e 14 53 54 52  |ate_poke).5..STR|
00007070  20 20 20 20 20 20 52 30  2c 5b 52 31 5d 0d 35 98  |      R0,[R1].5.|
00007080  16 42 4c 20 20 20 20 20  20 20 77 72 69 74 65 63  |.BL       writec|
00007090  6d 6f 73 0d 35 a2 1c 4c  44 4d 46 44 20 20 20 20  |mos.5..LDMFD    |
000070a0  52 31 33 21 2c 7b 52 30  2d 52 38 2c 50 43 7d 0d  |R13!,{R0-R8,PC}.|
000070b0  35 ac 04 0d 35 b6 11 2e  69 6d 6d 65 64 69 61 74  |5...5...immediat|
000070c0  65 6f 66 66 0d 35 c0 12  4d 4f 56 20 20 20 20 20  |eoff.5..MOV     |
000070d0  20 52 30 2c 23 30 0d 35  ca 20 a4 61 64 72 6c 28  | R0,#0.5. .adrl(|
000070e0  22 41 4c 22 2c 31 2c 69  6d 6d 65 64 69 61 74 65  |"AL",1,immediate|
000070f0  5f 70 6f 6b 65 29 0d 35  d4 14 53 54 52 20 20 20  |_poke).5..STR   |
00007100  20 20 20 52 30 2c 5b 52  31 5d 0d 35 de 16 42 4c  |   R0,[R1].5..BL|
00007110  20 20 20 20 20 20 20 77  72 69 74 65 63 6d 6f 73  |       writecmos|
00007120  0d 35 e8 1c 4c 44 4d 46  44 20 20 20 20 52 31 33  |.5..LDMFD    R13|
00007130  21 2c 7b 52 30 2d 52 38  2c 50 43 7d 0d 35 f2 04  |!,{R0-R8,PC}.5..|
00007140  0d 35 fc 14 2e 65 6d 70  74 79 74 72 61 73 68 5f  |.5...emptytrash_|
00007150  68 65 6c 70 0d 36 06 50  45 51 55 53 20 20 20 20  |help.6.PEQUS    |
00007160  20 22 2a 45 6d 70 74 79  54 72 61 73 68 20 72 65  | "*EmptyTrash re|
00007170  6d 6f 76 65 73 20 74 68  65 20 63 6f 6e 74 65 6e  |moves the conten|
00007180  74 73 20 6f 66 20 74 68  65 20 54 72 61 73 68 63  |ts of the Trashc|
00007190  61 6e 2e 22 3a 45 51 55  42 20 31 30 3a 45 51 55  |an.":EQUB 10:EQU|
000071a0  42 20 31 33 0d 36 10 16  2e 65 6d 70 74 79 74 72  |B 13.6...emptytr|
000071b0  61 73 68 5f 73 79 6e 74  61 78 0d 36 1a 29 45 51  |ash_syntax.6.)EQ|
000071c0  55 53 20 20 20 20 20 22  53 79 6e 74 61 78 3a 20  |US     "Syntax: |
000071d0  2a 45 6d 70 74 79 54 72  61 73 68 22 3a 45 51 55  |*EmptyTrash":EQU|
000071e0  42 20 30 0d 36 24 09 41  4c 49 47 4e 0d 36 2e 04  |B 0.6$.ALIGN.6..|
000071f0  0d 36 38 14 2e 65 6d 70  74 79 74 72 61 73 68 5f  |.68..emptytrash_|
00007200  63 6f 64 65 0d 36 42 17  53 54 4d 46 44 20 20 20  |code.6B.STMFD   |
00007210  20 52 31 33 21 2c 7b 52  31 34 7d 0d 36 4c 13 4d  | R13!,{R14}.6L.M|
00007220  4f 56 20 20 20 20 20 20  52 31 31 2c 23 30 0d 36  |OV      R11,#0.6|
00007230  56 12 42 20 20 20 20 20  20 20 20 65 6d 70 74 79  |V.B        empty|
00007240  0d 36 60 04 0d 36 6a 0f  2e 74 72 61 73 68 5f 68  |.6`..6j..trash_h|
00007250  65 6c 70 0d 36 74 5c 45  51 55 53 20 20 20 20 20  |elp.6t\EQUS     |
00007260  22 2a 54 72 61 73 68 20  3c 6f 62 6a 73 70 65 63  |"*Trash <objspec|
00007270  3e 20 63 6f 70 69 65 73  20 74 68 65 20 73 70 65  |> copies the spe|
00007280  63 69 66 69 65 64 20 66  69 6c 65 20 69 6e 74 6f  |cified file into|
00007290  20 74 68 65 20 54 72 61  73 68 63 61 6e 2e 22 3a  | the Trashcan.":|
000072a0  45 51 55 42 20 31 30 3a  45 51 55 42 20 31 33 0d  |EQUB 10:EQUB 13.|
000072b0  36 7e 11 2e 74 72 61 73  68 5f 73 79 6e 74 61 78  |6~..trash_syntax|
000072c0  0d 36 88 2e 45 51 55 53  20 20 20 20 20 22 53 79  |.6..EQUS     "Sy|
000072d0  6e 74 61 78 3a 20 2a 54  72 61 73 68 20 3c 6f 62  |ntax: *Trash <ob|
000072e0  6a 73 70 65 63 3e 22 3a  45 51 55 42 20 30 0d 36  |jspec>":EQUB 0.6|
000072f0  92 09 41 4c 49 47 4e 0d  36 9c 04 0d 36 a6 0f 2e  |..ALIGN.6...6...|
00007300  74 72 61 73 68 5f 63 6f  64 65 0d 36 b0 1d 53 54  |trash_code.6..ST|
00007310  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
00007320  52 38 2c 52 31 34 7d 0d  36 ba 1a a4 61 64 72 6c  |R8,R14}.6...adrl|
00007330  28 22 41 4c 22 2c 31 30  2c 77 6f 72 6b 73 70 63  |("AL",10,workspc|
00007340  29 0d 36 c4 12 4d 4f 56  20 20 20 20 20 20 52 31  |).6..MOV      R1|
00007350  2c 52 30 0d 36 ce 17 41  44 44 20 20 20 20 20 20  |,R0.6..ADD      |
00007360  52 30 2c 52 31 30 2c 23  34 34 0d 36 d8 11 42 4c  |R0,R10,#44.6..BL|
00007370  20 20 20 20 20 20 20 63  6f 70 79 0d 36 e2 13 4d  |       copy.6..M|
00007380  4f 56 20 20 20 20 20 20  52 31 31 2c 23 30 0d 36  |OV      R11,#0.6|
00007390  ec 13 4d 4f 56 20 20 20  20 20 20 52 31 2c 52 31  |..MOV      R1,R1|
000073a0  30 0d 36 f6 12 42 4c 20  20 20 20 20 20 20 74 72  |0.6..BL       tr|
000073b0  61 73 68 0d 37 00 1c 4c  44 4d 46 44 20 20 20 20  |ash.7..LDMFD    |
000073c0  52 31 33 21 2c 7b 52 30  2d 52 38 2c 50 43 7d 0d  |R13!,{R0-R8,PC}.|
000073d0  37 0a 04 0d 37 14 13 2e  61 6e 69 6d 61 74 69 6f  |7...7...animatio|
000073e0  6e 5f 68 65 6c 70 0d 37  1e 71 45 51 55 53 20 20  |n_help.7.qEQUS  |
000073f0  20 20 20 22 2a 53 6d 6f  6f 74 68 20 73 77 69 74  |   "*Smooth swit|
00007400  63 68 65 73 20 74 68 65  20 73 6d 6f 6f 74 68 20  |ches the smooth |
00007410  74 72 61 6e 73 69 74 69  6f 6e 20 6f 66 20 74 68  |transition of th|
00007420  65 20 54 72 61 73 68 63  61 6e 20 66 72 6f 6d 20  |e Trashcan from |
00007430  74 68 69 6e 20 74 6f 20  66 61 74 20 6f 6e 20 6f  |thin to fat on o|
00007440  72 20 6f 66 66 2e 22 3a  45 51 55 42 20 31 30 3a  |r off.":EQUB 10:|
00007450  45 51 55 42 20 31 33 0d  37 28 15 2e 61 6e 69 6d  |EQUB 13.7(..anim|
00007460  61 74 69 6f 6e 5f 73 79  6e 74 61 78 0d 37 32 2e  |ation_syntax.72.|
00007470  45 51 55 53 20 20 20 20  20 22 53 79 6e 74 61 78  |EQUS     "Syntax|
00007480  3a 20 2a 53 6d 6f 6f 74  68 20 5b 6f 6e 7c 6f 66  |: *Smooth [on|of|
00007490  66 5d 22 3a 45 51 55 42  20 30 0d 37 3c 09 41 4c  |f]":EQUB 0.7<.AL|
000074a0  49 47 4e 0d 37 46 04 0d  37 50 13 2e 61 6e 69 6d  |IGN.7F..7P..anim|
000074b0  61 74 69 6f 6e 5f 63 6f  64 65 0d 37 5a 1d 53 54  |ation_code.7Z.ST|
000074c0  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
000074d0  52 38 2c 52 31 34 7d 0d  37 64 17 4c 44 52 42 20  |R8,R14}.7d.LDRB |
000074e0  20 20 20 20 52 32 2c 5b  52 30 5d 2c 23 31 0d 37  |    R2,[R0],#1.7|
000074f0  6e 16 84 52 20 20 20 20  20 20 52 32 2c 52 32 2c  |n..R      R2,R2,|
00007500  23 26 32 30 0d 37 78 15  43 4d 50 20 20 20 20 20  |#&20.7x.CMP     |
00007510  20 52 32 2c 23 97 22 6f  22 0d 37 82 17 42 4e 45  | R2,#."o".7..BNE|
00007520  20 20 20 20 20 20 62 61  64 73 79 6e 74 61 78 33  |      badsyntax3|
00007530  0d 37 8c 17 4c 44 52 42  20 20 20 20 20 52 32 2c  |.7..LDRB     R2,|
00007540  5b 52 30 5d 2c 23 31 0d  37 96 16 84 52 20 20 20  |[R0],#1.7...R   |
00007550  20 20 20 52 32 2c 52 32  2c 23 26 32 30 0d 37 a0  |   R2,R2,#&20.7.|
00007560  15 43 4d 50 20 20 20 20  20 20 52 32 2c 23 97 22  |.CMP      R2,#."|
00007570  6e 22 0d 37 aa 18 42 45  51 20 20 20 20 20 20 61  |n".7..BEQ      a|
00007580  6e 69 6d 61 74 69 6f 6e  6f 6e 0d 37 b4 15 43 4d  |nimationon.7..CM|
00007590  50 20 20 20 20 20 20 52  32 2c 23 97 22 66 22 0d  |P      R2,#."f".|
000075a0  37 be 17 42 4e 45 20 20  20 20 20 20 62 61 64 73  |7..BNE      bads|
000075b0  79 6e 74 61 78 33 0d 37  c8 17 4c 44 52 42 20 20  |yntax3.7..LDRB  |
000075c0  20 20 20 52 32 2c 5b 52  30 5d 2c 23 31 0d 37 d2  |   R2,[R0],#1.7.|
000075d0  16 84 52 20 20 20 20 20  20 52 32 2c 52 32 2c 23  |..R      R2,R2,#|
000075e0  26 32 30 0d 37 dc 15 43  4d 50 20 20 20 20 20 20  |&20.7..CMP      |
000075f0  52 32 2c 23 97 22 66 22  0d 37 e6 17 42 4e 45 20  |R2,#."f".7..BNE |
00007600  20 20 20 20 20 62 61 64  73 79 6e 74 61 78 33 0d  |     badsyntax3.|
00007610  37 f0 19 42 20 20 20 20  20 20 20 20 61 6e 69 6d  |7..B        anim|
00007620  61 74 69 6f 6e 6f 66 66  0d 37 fa 04 0d 38 04 0f  |ationoff.7...8..|
00007630  2e 62 61 64 73 79 6e 74  61 78 33 0d 38 0e 1d 4c  |.badsyntax3.8..L|
00007640  44 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 52 30  |DMFD    R13!,{R0|
00007650  2d 52 38 2c 52 31 34 7d  0d 38 18 20 41 44 52 20  |-R8,R14}.8. ADR |
00007660  20 20 20 20 20 52 30 2c  61 6e 69 6d 61 74 69 6f  |     R0,animatio|
00007670  6e 5f 73 79 6e 74 61 78  0d 38 22 19 84 52 53 20  |n_syntax.8"..RS |
00007680  20 20 20 20 50 43 2c 52  31 34 2c 23 31 3c 3c 32  |    PC,R14,#1<<2|
00007690  38 0d 38 2c 04 0d 38 36  10 2e 61 6e 69 6d 61 74  |8.8,..86..animat|
000076a0  69 6f 6e 6f 6e 0d 38 40  12 4d 4f 56 20 20 20 20  |ionon.8@.MOV    |
000076b0  20 20 52 30 2c 23 31 0d  38 4a 1e a4 61 64 72 6c  |  R0,#1.8J..adrl|
000076c0  28 22 41 4c 22 2c 31 2c  61 6e 69 6d 61 74 65 5f  |("AL",1,animate_|
000076d0  70 6f 6b 65 29 0d 38 54  14 53 54 52 20 20 20 20  |poke).8T.STR    |
000076e0  20 20 52 30 2c 5b 52 31  5d 0d 38 5e 16 42 4c 20  |  R0,[R1].8^.BL |
000076f0  20 20 20 20 20 20 77 72  69 74 65 63 6d 6f 73 0d  |      writecmos.|
00007700  38 68 1c 4c 44 4d 46 44  20 20 20 20 52 31 33 21  |8h.LDMFD    R13!|
00007710  2c 7b 52 30 2d 52 38 2c  50 43 7d 0d 38 72 04 0d  |,{R0-R8,PC}.8r..|
00007720  38 7c 11 2e 61 6e 69 6d  61 74 69 6f 6e 6f 66 66  |8|..animationoff|
00007730  0d 38 86 12 4d 4f 56 20  20 20 20 20 20 52 30 2c  |.8..MOV      R0,|
00007740  23 30 0d 38 90 1e a4 61  64 72 6c 28 22 41 4c 22  |#0.8...adrl("AL"|
00007750  2c 31 2c 61 6e 69 6d 61  74 65 5f 70 6f 6b 65 29  |,1,animate_poke)|
00007760  0d 38 9a 14 53 54 52 20  20 20 20 20 20 52 30 2c  |.8..STR      R0,|
00007770  5b 52 31 5d 0d 38 a4 16  42 4c 20 20 20 20 20 20  |[R1].8..BL      |
00007780  20 77 72 69 74 65 63 6d  6f 73 0d 38 ae 1c 4c 44  | writecmos.8..LD|
00007790  4d 46 44 20 20 20 20 52  31 33 21 2c 7b 52 30 2d  |MFD    R13!,{R0-|
000077a0  52 38 2c 50 43 7d 0d 38  b8 04 0d 38 c2 14 2e 63  |R8,PC}.8...8...c|
000077b0  6c 6f 73 65 74 72 61 73  68 5f 68 65 6c 70 0d 38  |losetrash_help.8|
000077c0  cc 4d 45 51 55 53 20 20  20 20 20 22 2a 43 6c 6f  |.MEQUS     "*Clo|
000077d0  73 65 54 72 61 73 68 20  63 6c 6f 73 65 20 74 68  |seTrash close th|
000077e0  65 20 44 65 73 6b 74 6f  70 20 54 72 61 73 68 63  |e Desktop Trashc|
000077f0  61 6e 20 76 69 65 77 65  72 2e 22 3a 45 51 55 42  |an viewer.":EQUB|
00007800  20 31 30 3a 45 51 55 42  20 31 33 0d 38 d6 16 2e  | 10:EQUB 13.8...|
00007810  63 6c 6f 73 65 74 72 61  73 68 5f 73 79 6e 74 61  |closetrash_synta|
00007820  78 0d 38 e0 29 45 51 55  53 20 20 20 20 20 22 53  |x.8.)EQUS     "S|
00007830  79 6e 74 61 78 3a 20 2a  43 6c 6f 73 65 54 72 61  |yntax: *CloseTra|
00007840  73 68 22 3a 45 51 55 42  20 30 0d 38 ea 09 41 4c  |sh":EQUB 0.8..AL|
00007850  49 47 4e 0d 38 f4 04 0d  38 fe 14 2e 63 6c 6f 73  |IGN.8...8...clos|
00007860  65 74 72 61 73 68 5f 63  6f 64 65 0d 39 08 1d 53  |etrash_code.9..S|
00007870  54 4d 46 44 20 20 20 20  52 31 33 21 2c 7b 52 30  |TMFD    R13!,{R0|
00007880  2d 52 38 2c 52 31 34 7d  0d 39 12 14 4d 4f 56 20  |-R8,R14}.9..MOV |
00007890  20 20 20 20 20 52 30 2c  23 31 36 31 0d 39 1c 16  |     R0,#161.9..|
000078a0  4d 4f 56 20 20 20 20 20  20 52 31 2c 23 63 6d 6f  |MOV      R1,#cmo|
000078b0  73 25 0d 39 26 16 53 57  49 20 20 20 20 20 20 22  |s%.9&.SWI      "|
000078c0  4f 53 5f 42 79 74 65 22  0d 39 30 16 80 20 20 20  |OS_Byte".90..   |
000078d0  20 20 20 52 32 2c 52 32  2c 23 31 3c 3c 31 0d 39  |   R2,R2,#1<<1.9|
000078e0  3a 12 43 4d 50 20 20 20  20 20 20 52 32 2c 23 30  |:.CMP      R2,#0|
000078f0  0d 39 44 1c 41 44 52 4e  45 20 20 20 20 52 30 2c  |.9D.ADRNE    R0,|
00007900  69 6d 6d 65 64 69 61 74  65 5f 6f 6e 0d 39 4e 1f  |immediate_on.9N.|
00007910  53 57 49 4e 45 20 20 20  20 22 4f 53 5f 47 65 6e  |SWINE    "OS_Gen|
00007920  65 72 61 74 65 45 72 72  6f 72 22 0d 39 58 16 42  |erateError".9X.B|
00007930  4c 20 20 20 20 20 20 20  63 61 6e 65 78 69 73 74  |L       canexist|
00007940  73 0d 39 62 20 a4 61 64  72 6c 28 22 41 4c 22 2c  |s.9b .adrl("AL",|
00007950  31 2c 66 69 6c 65 72 5f  63 6c 6f 73 65 64 69 72  |1,filer_closedir|
00007960  29 0d 39 6c 1c a4 61 64  72 6c 28 22 41 4c 22 2c  |).9l..adrl("AL",|
00007970  30 2c 66 69 6c 65 72 5f  70 6f 6b 65 29 0d 39 76  |0,filer_poke).9v|
00007980  11 42 4c 20 20 20 20 20  20 20 63 6f 70 79 0d 39  |.BL       copy.9|
00007990  80 1d a4 61 64 72 6c 28  22 41 4c 22 2c 31 2c 74  |...adrl("AL",1,t|
000079a0  72 61 73 68 66 73 5f 64  69 72 29 0d 39 8a 15 53  |rashfs_dir).9..S|
000079b0  55 42 20 20 20 20 20 20  52 30 2c 52 30 2c 23 31  |UB      R0,R0,#1|
000079c0  0d 39 94 11 42 4c 20 20  20 20 20 20 20 63 6f 70  |.9..BL       cop|
000079d0  79 0d 39 9e 1c a4 61 64  72 6c 28 22 41 4c 22 2c  |y.9...adrl("AL",|
000079e0  30 2c 66 69 6c 65 72 5f  70 6f 6b 65 29 0d 39 a8  |0,filer_poke).9.|
000079f0  16 53 57 49 20 20 20 20  20 20 22 58 4f 53 5f 43  |.SWI      "XOS_C|
00007a00  4c 49 22 0d 39 b2 12 4d  4f 56 20 20 20 20 20 20  |LI".9..MOV      |
00007a10  52 30 2c 23 30 0d 39 bc  1c a4 61 64 72 6c 28 22  |R0,#0.9...adrl("|
00007a20  41 4c 22 2c 31 2c 74 72  61 73 68 5f 6f 70 65 6e  |AL",1,trash_open|
00007a30  29 0d 39 c6 14 53 54 52  20 20 20 20 20 20 52 30  |).9..STR      R0|
00007a40  2c 5b 52 31 5d 0d 39 d0  1c 4c 44 4d 46 44 20 20  |,[R1].9..LDMFD  |
00007a50  20 20 52 31 33 21 2c 7b  52 30 2d 52 38 2c 50 43  |  R13!,{R0-R8,PC|
00007a60  7d 0d 39 da 04 0d 39 e4  05 5d 0d 39 ee 0b ed 20  |}.9...9..].9... |
00007a70  70 61 73 73 25 0d 39 f8  04 0d 3a 02 42 c8 99 20  |pass%.9...:.B.. |
00007a80  22 4f 53 5f 46 69 6c 65  22 2c 31 30 2c 22 3c 54  |"OS_File",10,"<T|
00007a90  72 61 73 68 46 53 24 44  69 72 3e 2e 21 52 75 6e  |rashFS$Dir>.!Run|
00007aa0  49 6d 61 67 65 22 2c 26  46 46 41 2c 2c 63 6f 64  |Image",&FFA,,cod|
00007ab0  65 25 2c 63 6f 64 65 25  2b 50 25 0d 3a 0c 05 e0  |e%,code%+P%.:...|
00007ac0  0d 3a 16 04 0d 3a 20 16  dd 20 a4 73 74 72 69 6e  |.:...: .. .strin|
00007ad0  67 31 32 28 74 65 78 74  24 29 0d 3a 2a 05 5b 0d  |g12(text$).:*.[.|
00007ae0  3a 34 0d 4f 50 54 20 70  61 73 73 25 0d 3a 3e 1d  |:4.OPT pass%.:>.|
00007af0  45 51 55 53 20 74 65 78  74 24 2b c4 31 32 2d a9  |EQUS text$+.12-.|
00007b00  74 65 78 74 24 2c bd 30  29 0d 3a 48 05 5d 0d 3a  |text$,.0).:H.].:|
00007b10  52 06 3d 30 0d 3a 5c 04  0d 3a 66 18 dd 20 a4 61  |R.=0.:\..:f.. .a|
00007b20  64 72 6c 28 63 24 2c 72  25 2c 61 64 64 72 25 29  |drl(c$,r%,addr%)|
00007b30  0d 3a 70 30 ea 20 63 25  2c 64 66 25 2c 62 79 74  |.:p0. c%,df%,byt|
00007b40  65 5f 6c 6f 25 2c 62 79  74 65 5f 68 69 25 2c 6f  |e_lo%,byte_hi%,o|
00007b50  70 63 6f 64 65 31 25 2c  6f 70 63 6f 64 65 32 25  |pcode1%,opcode2%|
00007b60  0d 3a 7a 32 e7 20 61 64  64 72 25 3d 50 25 20 84  |.:z2. addr%=P% .|
00007b70  20 28 70 61 73 73 25 20  80 20 ac 20 31 32 29 3d  | (pass% . . 12)=|
00007b80  30 20 8c 20 50 25 2b 3d  38 3a 4f 25 2b 3d 38 3a  |0 . P%+=8:O%+=8:|
00007b90  3d 30 0d 3a 84 65 e7 20  94 28 61 64 64 72 25 2d  |=0.:.e. .(addr%-|
00007ba0  50 25 29 3c 32 35 36 20  f2 65 72 72 6f 72 28 22  |P%)<256 .error("|
00007bb0  41 44 52 4c 20 66 61 69  6c 65 64 3a 20 41 64 64  |ADRL failed: Add|
00007bc0  72 65 73 73 20 77 69 74  68 69 6e 20 72 61 6e 67  |ress within rang|
00007bd0  65 20 77 68 65 6e 20 73  65 74 74 69 6e 67 20 52  |e when setting R|
00007be0  22 2b c3 72 25 2b 22 20  74 6f 20 22 2b c3 61 64  |"+.r%+" to "+.ad|
00007bf0  64 72 25 2c 2d 31 29 0d  3a 8e 68 e7 20 94 28 61  |dr%,-1).:.h. .(a|
00007c00  64 64 72 25 2d 50 25 29  3e 36 35 35 33 35 20 f2  |ddr%-P%)>65535 .|
00007c10  65 72 72 6f 72 28 22 41  44 52 4c 20 66 61 69 6c  |error("ADRL fail|
00007c20  65 64 3a 20 41 64 64 72  65 73 73 20 6f 75 74 73  |ed: Address outs|
00007c30  69 64 65 20 72 61 6e 67  65 20 77 68 65 6e 20 73  |ide range when s|
00007c40  65 74 74 69 6e 67 20 52  22 2b c3 72 25 2b 22 20  |etting R"+.r%+" |
00007c50  74 6f 20 22 2b c3 61 64  64 72 25 2c 2d 31 29 0d  |to "+.addr%,-1).|
00007c60  3a 98 1c e7 20 63 24 3d  22 20 22 20 84 20 63 24  |:... c$=" " . c$|
00007c70  3d 22 22 20 63 24 3d 22  41 4c 22 0d 3a a2 2e 63  |="" c$="AL".:..c|
00007c80  25 3d a7 22 45 51 4e 45  43 53 43 43 4d 49 50 4c  |%=."EQNECSCCMIPL|
00007c90  56 53 56 43 48 49 4c 53  47 45 4c 54 47 54 4c 45  |VSVCHILSGELTGTLE|
00007ca0  41 4c 4e 56 22 2c 63 24  29 0d 3a ac 77 e7 20 63  |ALNV",c$).:.w. c|
00007cb0  25 3d 30 20 f2 65 72 72  6f 72 28 22 41 44 52 4c  |%=0 .error("ADRL|
00007cc0  20 66 61 69 6c 65 64 3a  20 41 52 4d 20 63 6f 6e  | failed: ARM con|
00007cd0  64 69 74 69 6f 6e 20 63  6f 64 65 20 6e 6f 74 20  |dition code not |
00007ce0  72 65 63 6f 67 6e 69 7a  65 64 20 77 68 65 6e 20  |recognized when |
00007cf0  73 65 74 74 69 6e 67 20  52 22 2b c3 72 25 2b 22  |setting R"+.r%+"|
00007d00  20 74 6f 20 22 2b c3 61  64 64 72 25 2c 2d 31 29  | to "+.addr%,-1)|
00007d10  20 8b 20 63 25 3d 28 63  25 2d 31 29 20 81 20 32  | . c%=(c%-1) . 2|
00007d20  0d 3a b6 12 64 66 25 3d  61 64 64 72 25 2d 50 25  |.:..df%=addr%-P%|
00007d30  2d 38 0d 3a c0 19 62 79  74 65 5f 6c 6f 25 3d 94  |-8.:..byte_lo%=.|
00007d40  28 64 66 25 29 20 80 20  26 46 46 0d 3a ca 1b 62  |(df%) . &FF.:..b|
00007d50  79 74 65 5f 68 69 25 3d  94 28 64 66 25 29 20 80  |yte_hi%=.(df%) .|
00007d60  20 26 46 46 30 30 0d 3a  d4 0e e7 20 64 66 25 3e  | &FF00.:... df%>|
00007d70  3d 30 20 8c 0d 3a de 33  20 20 6f 70 63 6f 64 65  |=0 ..:.3  opcode|
00007d80  31 25 3d 28 63 25 3c 3c  32 38 29 2b 26 30 32 38  |1%=(c%<<28)+&028|
00007d90  46 30 30 30 30 2b 28 72  25 3c 3c 31 32 29 2b 62  |F0000+(r%<<12)+b|
00007da0  79 74 65 5f 6c 6f 25 0d  3a e8 41 20 20 6f 70 63  |yte_lo%.:.A  opc|
00007db0  6f 64 65 32 25 3d 28 63  25 3c 3c 32 38 29 2b 26  |ode2%=(c%<<28)+&|
00007dc0  30 32 38 30 30 43 30 30  2b 28 72 25 3c 3c 31 36  |02800C00+(r%<<16|
00007dd0  29 2b 28 72 25 3c 3c 31  32 29 2b 28 62 79 74 65  |)+(r%<<12)+(byte|
00007de0  5f 68 69 25 3e 3e 38 29  0d 3a f2 05 cc 0d 3a fc  |_hi%>>8).:....:.|
00007df0  33 20 20 6f 70 63 6f 64  65 31 25 3d 28 63 25 3c  |3  opcode1%=(c%<|
00007e00  3c 32 38 29 2b 26 30 32  34 46 30 30 30 30 2b 28  |<28)+&024F0000+(|
00007e10  72 25 3c 3c 31 32 29 2b  62 79 74 65 5f 6c 6f 25  |r%<<12)+byte_lo%|
00007e20  0d 3b 06 41 20 20 6f 70  63 6f 64 65 32 25 3d 28  |.;.A  opcode2%=(|
00007e30  63 25 3c 3c 32 38 29 2b  26 30 32 34 30 30 43 30  |c%<<28)+&02400C0|
00007e40  30 2b 28 72 25 3c 3c 31  36 29 2b 28 72 25 3c 3c  |0+(r%<<16)+(r%<<|
00007e50  31 32 29 2b 28 62 79 74  65 5f 68 69 25 3e 3e 38  |12)+(byte_hi%>>8|
00007e60  29 0d 3b 10 05 cd 0d 3b  1a 2c 5b 4f 50 54 20 70  |).;....;.,[OPT p|
00007e70  61 73 73 25 3a 45 51 55  44 20 6f 70 63 6f 64 65  |ass%:EQUD opcode|
00007e80  31 25 3a 45 51 55 44 20  6f 70 63 6f 64 65 32 25  |1%:EQUD opcode2%|
00007e90  3a 5d 0d 3b 24 06 3d 30  0d ff                    |:].;$.=0..|
00007e9a