� > Source

� MoveWindow source.
(A� Hold down Ctrl and Shift, then use Select or Adjust to move
21� windows around without using the title bar.
<E� NB. Alt cannot be used as Impression uses Alt+Shift to move the
F(� document around inside its window.
P
Z� � Andrew Brooks 1992
d%� 0.02 - Tue,19 Nov 1991.15:06:36
nA�        Conversion from 32k BASIC program by Iain Fothergill
x%� 0.03 - Wed,30 Jan 1901.19:13:15
�@�        Window being dragged is not lost when moving slowly
�
�ver$="0.03"
�date$=��$,5,11)
�cmd$="Desktop_MoveWindow"
�ModuleTitle$="MoveWindow"
�ModuleHelp$="Move Window"
�#author$=" � Andrew Brooks 1991"
�KtaskHandle=0       :� offset into workspace where task handle is stored
�EdragFlag=4         :� offset of flag to indicate drag in progress
�8block=8            :� wimp block offset in workspace
�EpollMask%=%10000001100101110010 :� Wimp_Poll  Null, Messages only
�Kshift_keys%=0      :� internal key number for either shift key, PRM 477

@alt_keys%=2        :� internal key number for either alt key

Actrl_keys%=1       :� internal key number for either ctrl key

Cleft_button%=9     :� internal key number for left mouse button

"Dright_button%=11   :� internal key number for right mouse button

,3keyboard_scan%=121 :� OS_Byte 121, PRM 493 (II)

69RMAwanted=1024     :� for task handle and wimp buffer

@�module("!Run")

J�

T

^� �assemble

h[OPT pass%

rEQUD start

|EQUD initialise

�EQUD finalise

�EQUD service

�EQUD title

�
EQUD help

�EQUD command

�EQUD 0:EQUD 0:EQUD 0:EQUD 0

�.title EQUS ModuleTitle$+�0

�C.help  EQUS ModuleHelp$+�9+ver$+" ("+date$+")"+author$+�0:ALIGN

�.command

�EQUS cmd$+�0:ALIGN

�EQUD commandCode

�
EQUD 0

�EQUD commandSyntax
EQUD commandHelp

EQUD 0
M.commandHelp    EQUS cmd$+" starts Move Window (Shift+Ctrl+Drag)"+�10+�13
&I.commandSyntax  EQUS "Syntax: *"+cmd$+" (just use *Desktop)"+�0:ALIGN
0
:.commandCode
DSTMFD R13!,{R14}
N7MOV R2,R0                   ; Point to command tail
X6ADR R1,title                ; Point to module name
b3MOV R0,#2                   ; Module_Enter code
lISWI "XOS_Module"            ; Enter as a language through start point
v9LDMFD R13!,{PC}             ; Returns only if failure
�
�
.start
�-LDR R12,[R12]               ; Get W/S ptr
�EADD R13,R12,#RMAwanted      ; pointer to end of workspace claimed
�1LDR R0,[R12,#taskHandle]    ; get task handle
�CTEQ R0,#0                   ; If non-zero, then already running
�(LDRGT R1,taskCode           ; "TASK"
�4SWIGT "XWimp_CloseDown"     ; so shut down first
�2MOVGT R0,#0                 ; Mark as inactive
�STRGT R0,[R12,#taskHandle]
�6MOV R0,#200                 ; Minimum Wimp version
�(LDR R1,taskCode             ; "TASK"
�;ADR R2,title                ; Module title is Task Name
)SWI "XWimp_Initialise"      ; Startup
9SWIVS "OS_Exit"             ; Exit if cannot start up
2STR R1,[R12,#taskHandle]    ; Keep task handle
 
MOV R0,#0
*8STR R0,[R12,#dragFlag]      ; Initially not dragging
4
>
.pollLoop
H:LDR R0,pollMask             ; Mask out unwanted events
R1ADD R1,R12,#block           ; Wimp Poll block
\SWI "XWimp_Poll"
f
BVS error
p
CMP R0,#0
zBEQ null
�*CMP R0,#7                   ; Drag end
�BEQ endDrag
�)CMP R0,#17                  ; Message
�)CMPNE R0,#18                ; Message
�BNE pollLoop
�;LDR R0,[R12,#block+16]      ; Received message 17 or 18
�CMP R0,#Message_Quit
�BNE pollLoop
�
.pollExit
�-MOV R0,#7                   ; Module_Free
�-MOV R2,R12                  ; W/S pointer
�CSWI "XOS_Module"            ; Free RMA workspace before leaving
�SWI "OS_Exit"
.taskCode EQUS "TASK"
.pollMask EQUD pollMask%

$.initialise
.STMFD R13!,{R14}
8LDR R0,[R12]
BNCMP R0,#0                   ; Re-initialisation so w/space already claimed
LBNE initialise0
V3MOV R0,#6                   ; Module_Claim code
`8MOV R3,#RMAwanted           ; Size to claim from RMA
j1SWI "XOS_Module"            ; Claim workspace
t3LDMVSFD R13!,{PC}           ; Return if failure
~DSTR R2,[R12]                ; Store W/S ptr in my "Private Word"
�.initialise0
�,LDR R12,[R12]               ; Ptr to W/S
�
MOV R0,#0
�3STR R0,[R12,#taskHandle]    ; Reset task handle
�LDMFD R13!,{PC}
�
�
.finalise
�STMFD R13!,{R14}
�LDR R12,[R12]
�LDR R0,[R12,#taskHandle]
�7TEQ R0,#0                   ; If task handle>0 then
�(LDRGT R1,taskCode           ; "TASK"
0SWIGT "XWimp_CloseDown"     ; Shut down task


MOV R0,#0
3STR R0,[R12,#taskHandle]    ; Reset task handle
LDMFD R13!,{PC}
(
2.service
<TEQ R1,#Service_StartWimp
F/BEQ serviceStartWimp        ; Wimp starting
PTEQ R1,#Service_StartedWimp
ZMOVNE PC,R14
d.                            ; Wimp started
n.serviceStartedWimp
xSTMFD R13!,{R14}
�LDR R12,[R12]
�JLDR R14,[R12,#taskHandle]   ; If Wimp started and task handle is still
�;CMN R14,#1                  ; stuck at -1 then failure,
�/�Q R14,#0                ; so reset it to 0
�STR R14,[R12,#taskHandle]
�LDMFD R13!,{PC}
�
�.serviceStartWimp
�STMFD R13!,{R14}
�LDR R12,[R12]
�LDR R14,[R12,#taskHandle]
�6TEQ R14,#0                  ; If task not running,
�<MVNEQ R14,#0                ; temporarily set handle=-1,
STREQ R14,[R12,#taskHandle]
EADREQ R0,command            ; and try to execute startup command,
7�Q R1,#0                 ; by claiming service call
"LDMFD R13!,{PC}
,
6	.null
@<LDR R0,[R12,#dragFlag]          ; is a drag in progress?
J
CMP R0,#0
TBBNE checkEndDrag                ; if so, check for end of drag
^MOV R0,#keyboard_scan%
h=MOV R1,#(shift_keys% � &80)   ; test for either shift key
rSWI "XOS_Byte"
|
BVS error
�6TEQ R1,#&FF                     ; &FF if held down
�BNE pollLoop
�<MOV R1,#(ctrl_keys% � &80)    ; test for either ctrl key
�SWI "XOS_Byte"
�
BVS error
�TEQ R1,#&FF
�BNE pollLoop
�:MOV R1,#(left_button% � &80)  ; test for Select button
�SWI "XOS_Byte"
�
BVS error
�TEQ R1,#&FF
�BEQ startDrag
�:MOV R1,#(right_button% � &80) ; test for Adjust button
SWI "XOS_Byte"

BVS error
TEQ R1,#&FF
&BNE pollLoop
0.startDrag
:ADD R1,R12,#block
DSWI "XWimp_GetPointerInfo"
N
BVS error
X/LDR R0,[R12,#block+12]      ; window handle
b
CMP R0,#0
l6BLT pollLoop                ; leave icon bar alone
v7STR R0,[R12,#block+4]       ; block!4=window handle
�,ADD R1,R12,#block+4         ; r1=block+4
�SWI "XWimp_GetWindowState"
�
BVS error
�ALDR R0,[R12,#block+4]       ; AGGGGHHHHH!  R0 gets corrupted!
�7STR R0,[R12,#block+0]       ; block!0=window handle
�
MOV R0,#1
�GSTR R0,[R12,#block+4]       ; block!4=drag type (1=drag window pos)
�ADD R1,R12,#block
�SWI "XWimp_DragBox"
�
BVS error
�
MOV R0,#1
�;STR R0,[R12,#dragFlag]      ; indicate drag in progress
�B pollLoop

.checkEndDrag
MOV R0,#keyboard_scan%
 :MOV R1,#(left_button% � &80)  ; test for Select button
*SWI "XOS_Byte"
4
BVS error
>TEQ R1,#&FF
HBEQ pollLoop
R:MOV R1,#(right_button% � &80) ; test for Adjust button
\SWI "XOS_Byte"
f
BVS error
pTEQ R1,#&FF
zBEQ pollLoop
�
�F.endDrag                    ; called from pollLoop or checkEndDrag
�
MOV R1,#0
�7SWI "XWimp_DragBox"         ; Cancel drag operation
�SWIVS "OS_Exit"
�
MOV R0,#0
�<STR R0,[R12,#dragFlag]      ; drag no longer in progress
�B pollLoop
�
�
.error
�
MOV R1,#0
�ADR R2,title
�SWI "Wimp_ReportError"
	SWI "OS_Exit"
	
	]
	$�
	.
	8� �module(FileName$)
	B� code% &1000, L%-1
	L�moduleInitVars
	V� pass%=12 � 14 � 2
	`  P%=0:O%=code%
	j  �assemble
	t�
	~,�"Save "+FileName$+" "+�~code%+" +"+�~P%
	�#�"SetType "+FileName$+" Module"
	��
	�
	�� �moduleInitVars
	�Service_Serviced=&00
	�Service_UKCommand=&04
	�Service_Error=&06
	�Service_UKByte=&07
	�Service_UKWord=&08
	�Service_Help=&09
	�Service_ReleaseFIQ=&0B
	�Service_ClaimFIQ=&0C
Service_Memory=&11

Service_StartUpFS=&12
Service_Reset=&27
Service_UKConfig=&28
(Service_UKStatus=&29
2Service_NewApplication=&2A
<Service_FSRedeclare=&40
FService_Print=&41
PService_LookUpFileType=&42
ZService_International=&43
dService_Keyhandler=&44
nService_PreReset=&45
xService_ModeChange=&46
�$Service_ClaimFIQinBackground=&47
�Service_ReAllocatePorts=&48
�Service_StartWimp=&49
�Service_StartedWimp=&4A
�Service_StartFiler=&4B
�Service_StartedFiler=&4C
�Service_PreModeChange=&4D
�Service_MemoryMoved=&4E
�Service_FilerDying=&4F
�Service_ModeExtension=&50
�Service_ModeTranslation=&51
�Service_MouseTrap=&52
�Service_WimpCloseDown=&53
Service_Sound=&54
Service_NetFS=&55
Service_EconetDying=&56
"Service_ReportError=&57
,
UserV=&00
6ErrorV=&01
@IrqV=&02
J
WrchV=&03
TReadCV=&04
^CLIV=&05
h
ByteV=&06
r
WordV=&07
|
FileV=&08
�
ArgsV=&09
�
BGetV=&0A
�
BPutV=&0B
�
GBPBV=&0C
�
FindV=&0D
�ReadLineV=&0E
�FSControlV=&0F
�EventV=&10
�InsV=&14
�RemV=&15
�CnpV=&16
�UKVDU23V=&17
�UKSWIV=&18
UKPLOTV=&19
MouseV=&1A
<VduXV=&1B               : �  ** Note the name change! **
&TickerV=&1C
0UpCallV=&1D
:ChangeEnvironmentV=&1E
DSpriteV=&1F
N
DrawV=&20
XEconetV=&21
bColourV=&22
l.� Event 0 = Output buffer has become empty
v,� Event 1 = Input buffer has become full
�9� Event 2 = Character has been placed in input buffer
�A� Event 3 = End of ADC conversion on a BBC I/O expansion card
�E� Event 4 = Electron beam has reached last displayed line (VSync)
�/� Event 5 = Interval timer has crossed zero
�2� Event 6 = Escape condition has been detected
�/� Event 7 = RS423 = error has been detected
�<� Event 8 = Econet user remote procedure has been called
�+� Event 9 = User has generated an event
�1� Event 10 = Mouse buttons have changed state
�3� Event 11 = A key has been pressed or released
�<� Event 12 = Sound system has reached the start of a bar
�3� Event 13 = PC Emulator has generated an event
�-� Event 14 = Econet receive has completed

.� Event 15 = Econet transmit has completed

I� Event 16 = Econet operating system remote procedure has been called

3� Event 17 = MIDI system has generated an event

 Message_Quit=&0

*Message_DataSave=&1

4Message_DataSaveAck=&2

>Message_DataLoad=&3

HMessage_DataLoadAck=&4

RMessage_DataOpen=&5

\Message_RAMFetch=&6

fMessage_RAMTransmit=&7

pMessage_PreQuit=&8

zMessage_PaletteChange=&9

�Message_FilerOpenDir=&400

�Message_FilerCloseDir=&401

�Message_Notify=&40040

�Message_MenuWarning=&400C0

�Message_ModeChange=&400C1

�!Message_TaskInitialise=&400C2

� Message_TaskCloseDown=&400C3

�Message_SlotSize=&400C4

�Message_SetSlot=&400C5

�Message_TaskNameRq=&400C6

�Message_TaskNameIs=&400C7

�Nflag%=(1<<31)

�Zflag%=(1<<30)
Cflag%=(1<<29)
Vflag%=(1<<28)
Iflag%=(1<<27)
$Fflag%=(1<<26)
.UsrMode%=0
8FIQmode%=1
BIRQmode%=2
LSVCmode%=3
V�
�

00000000  0d 00 0a 0e f4 20 3e 20  53 6f 75 72 63 65 0d 00  |..... > Source..|
00000010  14 04 0d 00 1e 18 f4 20  4d 6f 76 65 57 69 6e 64  |....... MoveWind|
00000020  6f 77 20 73 6f 75 72 63  65 2e 0d 00 28 41 f4 20  |ow source...(A. |
00000030  48 6f 6c 64 20 64 6f 77  6e 20 43 74 72 6c 20 61  |Hold down Ctrl a|
00000040  6e 64 20 53 68 69 66 74  2c 20 74 68 65 6e 20 75  |nd Shift, then u|
00000050  73 65 20 53 65 6c 65 63  74 20 6f 72 20 41 64 6a  |se Select or Adj|
00000060  75 73 74 20 74 6f 20 6d  6f 76 65 0d 00 32 31 f4  |ust to move..21.|
00000070  20 77 69 6e 64 6f 77 73  20 61 72 6f 75 6e 64 20  | windows around |
00000080  77 69 74 68 6f 75 74 20  75 73 69 6e 67 20 74 68  |without using th|
00000090  65 20 74 69 74 6c 65 20  62 61 72 2e 0d 00 3c 45  |e title bar...<E|
000000a0  f4 20 4e 42 2e 20 41 6c  74 20 63 61 6e 6e 6f 74  |. NB. Alt cannot|
000000b0  20 62 65 20 75 73 65 64  20 61 73 20 49 6d 70 72  | be used as Impr|
000000c0  65 73 73 69 6f 6e 20 75  73 65 73 20 41 6c 74 2b  |ession uses Alt+|
000000d0  53 68 69 66 74 20 74 6f  20 6d 6f 76 65 20 74 68  |Shift to move th|
000000e0  65 0d 00 46 28 f4 20 64  6f 63 75 6d 65 6e 74 20  |e..F(. document |
000000f0  61 72 6f 75 6e 64 20 69  6e 73 69 64 65 20 69 74  |around inside it|
00000100  73 20 77 69 6e 64 6f 77  2e 0d 00 50 04 0d 00 5a  |s window...P...Z|
00000110  1a f4 20 a9 20 41 6e 64  72 65 77 20 42 72 6f 6f  |.. . Andrew Broo|
00000120  6b 73 20 31 39 39 32 0d  00 64 25 f4 20 30 2e 30  |ks 1992..d%. 0.0|
00000130  32 20 2d 20 54 75 65 2c  31 39 20 4e 6f 76 20 31  |2 - Tue,19 Nov 1|
00000140  39 39 31 2e 31 35 3a 30  36 3a 33 36 0d 00 6e 41  |991.15:06:36..nA|
00000150  f4 20 20 20 20 20 20 20  20 43 6f 6e 76 65 72 73  |.        Convers|
00000160  69 6f 6e 20 66 72 6f 6d  20 33 32 6b 20 42 41 53  |ion from 32k BAS|
00000170  49 43 20 70 72 6f 67 72  61 6d 20 62 79 20 49 61  |IC program by Ia|
00000180  69 6e 20 46 6f 74 68 65  72 67 69 6c 6c 0d 00 78  |in Fothergill..x|
00000190  25 f4 20 30 2e 30 33 20  2d 20 57 65 64 2c 33 30  |%. 0.03 - Wed,30|
000001a0  20 4a 61 6e 20 31 39 30  31 2e 31 39 3a 31 33 3a  | Jan 1901.19:13:|
000001b0  31 35 0d 00 82 40 f4 20  20 20 20 20 20 20 20 57  |15...@.        W|
000001c0  69 6e 64 6f 77 20 62 65  69 6e 67 20 64 72 61 67  |indow being drag|
000001d0  67 65 64 20 69 73 20 6e  6f 74 20 6c 6f 73 74 20  |ged is not lost |
000001e0  77 68 65 6e 20 6d 6f 76  69 6e 67 20 73 6c 6f 77  |when moving slow|
000001f0  6c 79 0d 00 8c 04 0d 00  96 0f 76 65 72 24 3d 22  |ly........ver$="|
00000200  30 2e 30 33 22 0d 00 a0  13 64 61 74 65 24 3d c1  |0.03"....date$=.|
00000210  91 24 2c 35 2c 31 31 29  0d 00 aa 1d 63 6d 64 24  |.$,5,11)....cmd$|
00000220  3d 22 44 65 73 6b 74 6f  70 5f 4d 6f 76 65 57 69  |="Desktop_MoveWi|
00000230  6e 64 6f 77 22 0d 00 b4  1d 4d 6f 64 75 6c 65 54  |ndow"....ModuleT|
00000240  69 74 6c 65 24 3d 22 4d  6f 76 65 57 69 6e 64 6f  |itle$="MoveWindo|
00000250  77 22 0d 00 be 1d 4d 6f  64 75 6c 65 48 65 6c 70  |w"....ModuleHelp|
00000260  24 3d 22 4d 6f 76 65 20  57 69 6e 64 6f 77 22 0d  |$="Move Window".|
00000270  00 c8 23 61 75 74 68 6f  72 24 3d 22 20 a9 20 41  |..#author$=" . A|
00000280  6e 64 72 65 77 20 42 72  6f 6f 6b 73 20 31 39 39  |ndrew Brooks 199|
00000290  31 22 0d 00 d2 4b 74 61  73 6b 48 61 6e 64 6c 65  |1"...KtaskHandle|
000002a0  3d 30 20 20 20 20 20 20  20 3a f4 20 6f 66 66 73  |=0       :. offs|
000002b0  65 74 20 69 6e 74 6f 20  77 6f 72 6b 73 70 61 63  |et into workspac|
000002c0  65 20 77 68 65 72 65 20  74 61 73 6b 20 68 61 6e  |e where task han|
000002d0  64 6c 65 20 69 73 20 73  74 6f 72 65 64 0d 00 dc  |dle is stored...|
000002e0  45 64 72 61 67 46 6c 61  67 3d 34 20 20 20 20 20  |EdragFlag=4     |
000002f0  20 20 20 20 3a f4 20 6f  66 66 73 65 74 20 6f 66  |    :. offset of|
00000300  20 66 6c 61 67 20 74 6f  20 69 6e 64 69 63 61 74  | flag to indicat|
00000310  65 20 64 72 61 67 20 69  6e 20 70 72 6f 67 72 65  |e drag in progre|
00000320  73 73 0d 00 e6 38 62 6c  6f 63 6b 3d 38 20 20 20  |ss...8block=8   |
00000330  20 20 20 20 20 20 20 20  20 3a f4 20 77 69 6d 70  |         :. wimp|
00000340  20 62 6c 6f 63 6b 20 6f  66 66 73 65 74 20 69 6e  | block offset in|
00000350  20 77 6f 72 6b 73 70 61  63 65 0d 00 f0 45 70 6f  | workspace...Epo|
00000360  6c 6c 4d 61 73 6b 25 3d  25 31 30 30 30 30 30 30  |llMask%=%1000000|
00000370  31 31 30 30 31 30 31 31  31 30 30 31 30 20 3a f4  |1100101110010 :.|
00000380  20 57 69 6d 70 5f 50 6f  6c 6c 20 20 4e 75 6c 6c  | Wimp_Poll  Null|
00000390  2c 20 4d 65 73 73 61 67  65 73 20 6f 6e 6c 79 0d  |, Messages only.|
000003a0  00 fa 4b 73 68 69 66 74  5f 6b 65 79 73 25 3d 30  |..Kshift_keys%=0|
000003b0  20 20 20 20 20 20 3a f4  20 69 6e 74 65 72 6e 61  |      :. interna|
000003c0  6c 20 6b 65 79 20 6e 75  6d 62 65 72 20 66 6f 72  |l key number for|
000003d0  20 65 69 74 68 65 72 20  73 68 69 66 74 20 6b 65  | either shift ke|
000003e0  79 2c 20 50 52 4d 20 34  37 37 0d 01 04 40 61 6c  |y, PRM 477...@al|
000003f0  74 5f 6b 65 79 73 25 3d  32 20 20 20 20 20 20 20  |t_keys%=2       |
00000400  20 3a f4 20 69 6e 74 65  72 6e 61 6c 20 6b 65 79  | :. internal key|
00000410  20 6e 75 6d 62 65 72 20  66 6f 72 20 65 69 74 68  | number for eith|
00000420  65 72 20 61 6c 74 20 6b  65 79 0d 01 0e 41 63 74  |er alt key...Act|
00000430  72 6c 5f 6b 65 79 73 25  3d 31 20 20 20 20 20 20  |rl_keys%=1      |
00000440  20 3a f4 20 69 6e 74 65  72 6e 61 6c 20 6b 65 79  | :. internal key|
00000450  20 6e 75 6d 62 65 72 20  66 6f 72 20 65 69 74 68  | number for eith|
00000460  65 72 20 63 74 72 6c 20  6b 65 79 0d 01 18 43 6c  |er ctrl key...Cl|
00000470  65 66 74 5f 62 75 74 74  6f 6e 25 3d 39 20 20 20  |eft_button%=9   |
00000480  20 20 3a f4 20 69 6e 74  65 72 6e 61 6c 20 6b 65  |  :. internal ke|
00000490  79 20 6e 75 6d 62 65 72  20 66 6f 72 20 6c 65 66  |y number for lef|
000004a0  74 20 6d 6f 75 73 65 20  62 75 74 74 6f 6e 0d 01  |t mouse button..|
000004b0  22 44 72 69 67 68 74 5f  62 75 74 74 6f 6e 25 3d  |"Dright_button%=|
000004c0  31 31 20 20 20 3a f4 20  69 6e 74 65 72 6e 61 6c  |11   :. internal|
000004d0  20 6b 65 79 20 6e 75 6d  62 65 72 20 66 6f 72 20  | key number for |
000004e0  72 69 67 68 74 20 6d 6f  75 73 65 20 62 75 74 74  |right mouse butt|
000004f0  6f 6e 0d 01 2c 33 6b 65  79 62 6f 61 72 64 5f 73  |on..,3keyboard_s|
00000500  63 61 6e 25 3d 31 32 31  20 3a f4 20 4f 53 5f 42  |can%=121 :. OS_B|
00000510  79 74 65 20 31 32 31 2c  20 50 52 4d 20 34 39 33  |yte 121, PRM 493|
00000520  20 28 49 49 29 0d 01 36  39 52 4d 41 77 61 6e 74  | (II)..69RMAwant|
00000530  65 64 3d 31 30 32 34 20  20 20 20 20 3a f4 20 66  |ed=1024     :. f|
00000540  6f 72 20 74 61 73 6b 20  68 61 6e 64 6c 65 20 61  |or task handle a|
00000550  6e 64 20 77 69 6d 70 20  62 75 66 66 65 72 0d 01  |nd wimp buffer..|
00000560  40 13 f2 6d 6f 64 75 6c  65 28 22 21 52 75 6e 22  |@..module("!Run"|
00000570  29 0d 01 4a 05 e0 0d 01  54 04 0d 01 5e 0f dd 20  |)..J....T...^.. |
00000580  f2 61 73 73 65 6d 62 6c  65 0d 01 68 0e 5b 4f 50  |.assemble..h.[OP|
00000590  54 20 70 61 73 73 25 0d  01 72 0e 45 51 55 44 20  |T pass%..r.EQUD |
000005a0  73 74 61 72 74 0d 01 7c  13 45 51 55 44 20 69 6e  |start..|.EQUD in|
000005b0  69 74 69 61 6c 69 73 65  0d 01 86 11 45 51 55 44  |itialise....EQUD|
000005c0  20 66 69 6e 61 6c 69 73  65 0d 01 90 10 45 51 55  | finalise....EQU|
000005d0  44 20 73 65 72 76 69 63  65 0d 01 9a 0e 45 51 55  |D service....EQU|
000005e0  44 20 74 69 74 6c 65 0d  01 a4 0d 45 51 55 44 20  |D title....EQUD |
000005f0  68 65 6c 70 0d 01 ae 10  45 51 55 44 20 63 6f 6d  |help....EQUD com|
00000600  6d 61 6e 64 0d 01 b8 1f  45 51 55 44 20 30 3a 45  |mand....EQUD 0:E|
00000610  51 55 44 20 30 3a 45 51  55 44 20 30 3a 45 51 55  |QUD 0:EQUD 0:EQU|
00000620  44 20 30 0d 01 c2 1f 2e  74 69 74 6c 65 20 45 51  |D 0.....title EQ|
00000630  55 53 20 4d 6f 64 75 6c  65 54 69 74 6c 65 24 2b  |US ModuleTitle$+|
00000640  bd 30 0d 01 cc 43 2e 68  65 6c 70 20 20 45 51 55  |.0...C.help  EQU|
00000650  53 20 4d 6f 64 75 6c 65  48 65 6c 70 24 2b bd 39  |S ModuleHelp$+.9|
00000660  2b 76 65 72 24 2b 22 20  28 22 2b 64 61 74 65 24  |+ver$+" ("+date$|
00000670  2b 22 29 22 2b 61 75 74  68 6f 72 24 2b bd 30 3a  |+")"+author$+.0:|
00000680  41 4c 49 47 4e 0d 01 d6  0c 2e 63 6f 6d 6d 61 6e  |ALIGN.....comman|
00000690  64 0d 01 e0 16 45 51 55  53 20 63 6d 64 24 2b bd  |d....EQUS cmd$+.|
000006a0  30 3a 41 4c 49 47 4e 0d  01 ea 14 45 51 55 44 20  |0:ALIGN....EQUD |
000006b0  63 6f 6d 6d 61 6e 64 43  6f 64 65 0d 01 f4 0a 45  |commandCode....E|
000006c0  51 55 44 20 30 0d 01 fe  16 45 51 55 44 20 63 6f  |QUD 0....EQUD co|
000006d0  6d 6d 61 6e 64 53 79 6e  74 61 78 0d 02 08 14 45  |mmandSyntax....E|
000006e0  51 55 44 20 63 6f 6d 6d  61 6e 64 48 65 6c 70 0d  |QUD commandHelp.|
000006f0  02 12 0a 45 51 55 44 20  30 0d 02 1c 4d 2e 63 6f  |...EQUD 0...M.co|
00000700  6d 6d 61 6e 64 48 65 6c  70 20 20 20 20 45 51 55  |mmandHelp    EQU|
00000710  53 20 63 6d 64 24 2b 22  20 73 74 61 72 74 73 20  |S cmd$+" starts |
00000720  4d 6f 76 65 20 57 69 6e  64 6f 77 20 28 53 68 69  |Move Window (Shi|
00000730  66 74 2b 43 74 72 6c 2b  44 72 61 67 29 22 2b bd  |ft+Ctrl+Drag)"+.|
00000740  31 30 2b bd 31 33 0d 02  26 49 2e 63 6f 6d 6d 61  |10+.13..&I.comma|
00000750  6e 64 53 79 6e 74 61 78  20 20 45 51 55 53 20 22  |ndSyntax  EQUS "|
00000760  53 79 6e 74 61 78 3a 20  2a 22 2b 63 6d 64 24 2b  |Syntax: *"+cmd$+|
00000770  22 20 28 6a 75 73 74 20  75 73 65 20 2a 44 65 73  |" (just use *Des|
00000780  6b 74 6f 70 29 22 2b bd  30 3a 41 4c 49 47 4e 0d  |ktop)"+.0:ALIGN.|
00000790  02 30 04 0d 02 3a 10 2e  63 6f 6d 6d 61 6e 64 43  |.0...:..commandC|
000007a0  6f 64 65 0d 02 44 14 53  54 4d 46 44 20 52 31 33  |ode..D.STMFD R13|
000007b0  21 2c 7b 52 31 34 7d 0d  02 4e 37 4d 4f 56 20 52  |!,{R14}..N7MOV R|
000007c0  32 2c 52 30 20 20 20 20  20 20 20 20 20 20 20 20  |2,R0            |
000007d0  20 20 20 20 20 20 20 3b  20 50 6f 69 6e 74 20 74  |       ; Point t|
000007e0  6f 20 63 6f 6d 6d 61 6e  64 20 74 61 69 6c 0d 02  |o command tail..|
000007f0  58 36 41 44 52 20 52 31  2c 74 69 74 6c 65 20 20  |X6ADR R1,title  |
00000800  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00000810  50 6f 69 6e 74 20 74 6f  20 6d 6f 64 75 6c 65 20  |Point to module |
00000820  6e 61 6d 65 0d 02 62 33  4d 4f 56 20 52 30 2c 23  |name..b3MOV R0,#|
00000830  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00000840  20 20 20 20 3b 20 4d 6f  64 75 6c 65 5f 45 6e 74  |    ; Module_Ent|
00000850  65 72 20 63 6f 64 65 0d  02 6c 49 53 57 49 20 22  |er code..lISWI "|
00000860  58 4f 53 5f 4d 6f 64 75  6c 65 22 20 20 20 20 20  |XOS_Module"     |
00000870  20 20 20 20 20 20 20 3b  20 45 6e 74 65 72 20 61  |       ; Enter a|
00000880  73 20 61 20 6c 61 6e 67  75 61 67 65 20 74 68 72  |s a language thr|
00000890  6f 75 67 68 20 73 74 61  72 74 20 70 6f 69 6e 74  |ough start point|
000008a0  0d 02 76 39 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |..v9LDMFD R13!,{|
000008b0  50 43 7d 20 20 20 20 20  20 20 20 20 20 20 20 20  |PC}             |
000008c0  3b 20 52 65 74 75 72 6e  73 20 6f 6e 6c 79 20 69  |; Returns only i|
000008d0  66 20 66 61 69 6c 75 72  65 0d 02 80 04 0d 02 8a  |f failure.......|
000008e0  0a 2e 73 74 61 72 74 0d  02 94 2d 4c 44 52 20 52  |..start...-LDR R|
000008f0  31 32 2c 5b 52 31 32 5d  20 20 20 20 20 20 20 20  |12,[R12]        |
00000900  20 20 20 20 20 20 20 3b  20 47 65 74 20 57 2f 53  |       ; Get W/S|
00000910  20 70 74 72 0d 02 9e 45  41 44 44 20 52 31 33 2c  | ptr...EADD R13,|
00000920  52 31 32 2c 23 52 4d 41  77 61 6e 74 65 64 20 20  |R12,#RMAwanted  |
00000930  20 20 20 20 3b 20 70 6f  69 6e 74 65 72 20 74 6f  |    ; pointer to|
00000940  20 65 6e 64 20 6f 66 20  77 6f 72 6b 73 70 61 63  | end of workspac|
00000950  65 20 63 6c 61 69 6d 65  64 0d 02 a8 31 4c 44 52  |e claimed...1LDR|
00000960  20 52 30 2c 5b 52 31 32  2c 23 74 61 73 6b 48 61  | R0,[R12,#taskHa|
00000970  6e 64 6c 65 5d 20 20 20  20 3b 20 67 65 74 20 74  |ndle]    ; get t|
00000980  61 73 6b 20 68 61 6e 64  6c 65 0d 02 b2 43 54 45  |ask handle...CTE|
00000990  51 20 52 30 2c 23 30 20  20 20 20 20 20 20 20 20  |Q R0,#0         |
000009a0  20 20 20 20 20 20 20 20  20 20 3b 20 49 66 20 6e  |          ; If n|
000009b0  6f 6e 2d 7a 65 72 6f 2c  20 74 68 65 6e 20 61 6c  |on-zero, then al|
000009c0  72 65 61 64 79 20 72 75  6e 6e 69 6e 67 0d 02 bc  |ready running...|
000009d0  28 4c 44 52 47 54 20 52  31 2c 74 61 73 6b 43 6f  |(LDRGT R1,taskCo|
000009e0  64 65 20 20 20 20 20 20  20 20 20 20 20 3b 20 22  |de           ; "|
000009f0  54 41 53 4b 22 0d 02 c6  34 53 57 49 47 54 20 22  |TASK"...4SWIGT "|
00000a00  58 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |XWimp_CloseDown"|
00000a10  20 20 20 20 20 3b 20 73  6f 20 73 68 75 74 20 64  |     ; so shut d|
00000a20  6f 77 6e 20 66 69 72 73  74 0d 02 d0 32 4d 4f 56  |own first...2MOV|
00000a30  47 54 20 52 30 2c 23 30  20 20 20 20 20 20 20 20  |GT R0,#0        |
00000a40  20 20 20 20 20 20 20 20  20 3b 20 4d 61 72 6b 20  |         ; Mark |
00000a50  61 73 20 69 6e 61 63 74  69 76 65 0d 02 da 1e 53  |as inactive....S|
00000a60  54 52 47 54 20 52 30 2c  5b 52 31 32 2c 23 74 61  |TRGT R0,[R12,#ta|
00000a70  73 6b 48 61 6e 64 6c 65  5d 0d 02 e4 36 4d 4f 56  |skHandle]...6MOV|
00000a80  20 52 30 2c 23 32 30 30  20 20 20 20 20 20 20 20  | R0,#200        |
00000a90  20 20 20 20 20 20 20 20  20 3b 20 4d 69 6e 69 6d  |         ; Minim|
00000aa0  75 6d 20 57 69 6d 70 20  76 65 72 73 69 6f 6e 0d  |um Wimp version.|
00000ab0  02 ee 28 4c 44 52 20 52  31 2c 74 61 73 6b 43 6f  |..(LDR R1,taskCo|
00000ac0  64 65 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |de             ;|
00000ad0  20 22 54 41 53 4b 22 0d  02 f8 3b 41 44 52 20 52  | "TASK"...;ADR R|
00000ae0  32 2c 74 69 74 6c 65 20  20 20 20 20 20 20 20 20  |2,title         |
00000af0  20 20 20 20 20 20 20 3b  20 4d 6f 64 75 6c 65 20  |       ; Module |
00000b00  74 69 74 6c 65 20 69 73  20 54 61 73 6b 20 4e 61  |title is Task Na|
00000b10  6d 65 0d 03 02 29 53 57  49 20 22 58 57 69 6d 70  |me...)SWI "XWimp|
00000b20  5f 49 6e 69 74 69 61 6c  69 73 65 22 20 20 20 20  |_Initialise"    |
00000b30  20 20 3b 20 53 74 61 72  74 75 70 0d 03 0c 39 53  |  ; Startup...9S|
00000b40  57 49 56 53 20 22 4f 53  5f 45 78 69 74 22 20 20  |WIVS "OS_Exit"  |
00000b50  20 20 20 20 20 20 20 20  20 20 20 3b 20 45 78 69  |           ; Exi|
00000b60  74 20 69 66 20 63 61 6e  6e 6f 74 20 73 74 61 72  |t if cannot star|
00000b70  74 20 75 70 0d 03 16 32  53 54 52 20 52 31 2c 5b  |t up...2STR R1,[|
00000b80  52 31 32 2c 23 74 61 73  6b 48 61 6e 64 6c 65 5d  |R12,#taskHandle]|
00000b90  20 20 20 20 3b 20 4b 65  65 70 20 74 61 73 6b 20  |    ; Keep task |
00000ba0  68 61 6e 64 6c 65 0d 03  20 0d 4d 4f 56 20 52 30  |handle.. .MOV R0|
00000bb0  2c 23 30 0d 03 2a 38 53  54 52 20 52 30 2c 5b 52  |,#0..*8STR R0,[R|
00000bc0  31 32 2c 23 64 72 61 67  46 6c 61 67 5d 20 20 20  |12,#dragFlag]   |
00000bd0  20 20 20 3b 20 49 6e 69  74 69 61 6c 6c 79 20 6e  |   ; Initially n|
00000be0  6f 74 20 64 72 61 67 67  69 6e 67 0d 03 34 04 0d  |ot dragging..4..|
00000bf0  03 3e 0d 2e 70 6f 6c 6c  4c 6f 6f 70 0d 03 48 3a  |.>..pollLoop..H:|
00000c00  4c 44 52 20 52 30 2c 70  6f 6c 6c 4d 61 73 6b 20  |LDR R0,pollMask |
00000c10  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 4d 61  |            ; Ma|
00000c20  73 6b 20 6f 75 74 20 75  6e 77 61 6e 74 65 64 20  |sk out unwanted |
00000c30  65 76 65 6e 74 73 0d 03  52 31 41 44 44 20 52 31  |events..R1ADD R1|
00000c40  2c 52 31 32 2c 23 62 6c  6f 63 6b 20 20 20 20 20  |,R12,#block     |
00000c50  20 20 20 20 20 20 3b 20  57 69 6d 70 20 50 6f 6c  |      ; Wimp Pol|
00000c60  6c 20 62 6c 6f 63 6b 0d  03 5c 14 53 57 49 20 22  |l block..\.SWI "|
00000c70  58 57 69 6d 70 5f 50 6f  6c 6c 22 0d 03 66 0d 42  |XWimp_Poll"..f.B|
00000c80  56 53 20 65 72 72 6f 72  0d 03 70 0d 43 4d 50 20  |VS error..p.CMP |
00000c90  52 30 2c 23 30 0d 03 7a  0c 42 45 51 20 6e 75 6c  |R0,#0..z.BEQ nul|
00000ca0  6c 0d 03 84 2a 43 4d 50  20 52 30 2c 23 37 20 20  |l...*CMP R0,#7  |
00000cb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000cc0  20 3b 20 44 72 61 67 20  65 6e 64 0d 03 8e 0f 42  | ; Drag end....B|
00000cd0  45 51 20 65 6e 64 44 72  61 67 0d 03 98 29 43 4d  |EQ endDrag...)CM|
00000ce0  50 20 52 30 2c 23 31 37  20 20 20 20 20 20 20 20  |P R0,#17        |
00000cf0  20 20 20 20 20 20 20 20  20 20 3b 20 4d 65 73 73  |          ; Mess|
00000d00  61 67 65 0d 03 a2 29 43  4d 50 4e 45 20 52 30 2c  |age...)CMPNE R0,|
00000d10  23 31 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |#18             |
00000d20  20 20 20 3b 20 4d 65 73  73 61 67 65 0d 03 ac 10  |   ; Message....|
00000d30  42 4e 45 20 70 6f 6c 6c  4c 6f 6f 70 0d 03 b6 3b  |BNE pollLoop...;|
00000d40  4c 44 52 20 52 30 2c 5b  52 31 32 2c 23 62 6c 6f  |LDR R0,[R12,#blo|
00000d50  63 6b 2b 31 36 5d 20 20  20 20 20 20 3b 20 52 65  |ck+16]      ; Re|
00000d60  63 65 69 76 65 64 20 6d  65 73 73 61 67 65 20 31  |ceived message 1|
00000d70  37 20 6f 72 20 31 38 0d  03 c0 18 43 4d 50 20 52  |7 or 18....CMP R|
00000d80  30 2c 23 4d 65 73 73 61  67 65 5f 51 75 69 74 0d  |0,#Message_Quit.|
00000d90  03 ca 10 42 4e 45 20 70  6f 6c 6c 4c 6f 6f 70 0d  |...BNE pollLoop.|
00000da0  03 d4 0d 2e 70 6f 6c 6c  45 78 69 74 0d 03 de 2d  |....pollExit...-|
00000db0  4d 4f 56 20 52 30 2c 23  37 20 20 20 20 20 20 20  |MOV R0,#7       |
00000dc0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 4d 6f  |            ; Mo|
00000dd0  64 75 6c 65 5f 46 72 65  65 0d 03 e8 2d 4d 4f 56  |dule_Free...-MOV|
00000de0  20 52 32 2c 52 31 32 20  20 20 20 20 20 20 20 20  | R2,R12         |
00000df0  20 20 20 20 20 20 20 20  20 3b 20 57 2f 53 20 70  |         ; W/S p|
00000e00  6f 69 6e 74 65 72 0d 03  f2 43 53 57 49 20 22 58  |ointer...CSWI "X|
00000e10  4f 53 5f 4d 6f 64 75 6c  65 22 20 20 20 20 20 20  |OS_Module"      |
00000e20  20 20 20 20 20 20 3b 20  46 72 65 65 20 52 4d 41  |      ; Free RMA|
00000e30  20 77 6f 72 6b 73 70 61  63 65 20 62 65 66 6f 72  | workspace befor|
00000e40  65 20 6c 65 61 76 69 6e  67 0d 03 fc 11 53 57 49  |e leaving....SWI|
00000e50  20 22 4f 53 5f 45 78 69  74 22 0d 04 06 19 2e 74  | "OS_Exit".....t|
00000e60  61 73 6b 43 6f 64 65 20  45 51 55 53 20 22 54 41  |askCode EQUS "TA|
00000e70  53 4b 22 0d 04 10 1c 2e  70 6f 6c 6c 4d 61 73 6b  |SK".....pollMask|
00000e80  20 45 51 55 44 20 70 6f  6c 6c 4d 61 73 6b 25 0d  | EQUD pollMask%.|
00000e90  04 1a 04 0d 04 24 0f 2e  69 6e 69 74 69 61 6c 69  |.....$..initiali|
00000ea0  73 65 0d 04 2e 14 53 54  4d 46 44 20 52 31 33 21  |se....STMFD R13!|
00000eb0  2c 7b 52 31 34 7d 0d 04  38 10 4c 44 52 20 52 30  |,{R14}..8.LDR R0|
00000ec0  2c 5b 52 31 32 5d 0d 04  42 4e 43 4d 50 20 52 30  |,[R12]..BNCMP R0|
00000ed0  2c 23 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |,#0             |
00000ee0  20 20 20 20 20 20 3b 20  52 65 2d 69 6e 69 74 69  |      ; Re-initi|
00000ef0  61 6c 69 73 61 74 69 6f  6e 20 73 6f 20 77 2f 73  |alisation so w/s|
00000f00  70 61 63 65 20 61 6c 72  65 61 64 79 20 63 6c 61  |pace already cla|
00000f10  69 6d 65 64 0d 04 4c 13  42 4e 45 20 69 6e 69 74  |imed..L.BNE init|
00000f20  69 61 6c 69 73 65 30 0d  04 56 33 4d 4f 56 20 52  |ialise0..V3MOV R|
00000f30  30 2c 23 36 20 20 20 20  20 20 20 20 20 20 20 20  |0,#6            |
00000f40  20 20 20 20 20 20 20 3b  20 4d 6f 64 75 6c 65 5f  |       ; Module_|
00000f50  43 6c 61 69 6d 20 63 6f  64 65 0d 04 60 38 4d 4f  |Claim code..`8MO|
00000f60  56 20 52 33 2c 23 52 4d  41 77 61 6e 74 65 64 20  |V R3,#RMAwanted |
00000f70  20 20 20 20 20 20 20 20  20 20 3b 20 53 69 7a 65  |          ; Size|
00000f80  20 74 6f 20 63 6c 61 69  6d 20 66 72 6f 6d 20 52  | to claim from R|
00000f90  4d 41 0d 04 6a 31 53 57  49 20 22 58 4f 53 5f 4d  |MA..j1SWI "XOS_M|
00000fa0  6f 64 75 6c 65 22 20 20  20 20 20 20 20 20 20 20  |odule"          |
00000fb0  20 20 3b 20 43 6c 61 69  6d 20 77 6f 72 6b 73 70  |  ; Claim worksp|
00000fc0  61 63 65 0d 04 74 33 4c  44 4d 56 53 46 44 20 52  |ace..t3LDMVSFD R|
00000fd0  31 33 21 2c 7b 50 43 7d  20 20 20 20 20 20 20 20  |13!,{PC}        |
00000fe0  20 20 20 3b 20 52 65 74  75 72 6e 20 69 66 20 66  |   ; Return if f|
00000ff0  61 69 6c 75 72 65 0d 04  7e 44 53 54 52 20 52 32  |ailure..~DSTR R2|
00001000  2c 5b 52 31 32 5d 20 20  20 20 20 20 20 20 20 20  |,[R12]          |
00001010  20 20 20 20 20 20 3b 20  53 74 6f 72 65 20 57 2f  |      ; Store W/|
00001020  53 20 70 74 72 20 69 6e  20 6d 79 20 22 50 72 69  |S ptr in my "Pri|
00001030  76 61 74 65 20 57 6f 72  64 22 0d 04 88 10 2e 69  |vate Word".....i|
00001040  6e 69 74 69 61 6c 69 73  65 30 0d 04 92 2c 4c 44  |nitialise0...,LD|
00001050  52 20 52 31 32 2c 5b 52  31 32 5d 20 20 20 20 20  |R R12,[R12]     |
00001060  20 20 20 20 20 20 20 20  20 20 3b 20 50 74 72 20  |          ; Ptr |
00001070  74 6f 20 57 2f 53 0d 04  9c 0d 4d 4f 56 20 52 30  |to W/S....MOV R0|
00001080  2c 23 30 0d 04 a6 33 53  54 52 20 52 30 2c 5b 52  |,#0...3STR R0,[R|
00001090  31 32 2c 23 74 61 73 6b  48 61 6e 64 6c 65 5d 20  |12,#taskHandle] |
000010a0  20 20 20 3b 20 52 65 73  65 74 20 74 61 73 6b 20  |   ; Reset task |
000010b0  68 61 6e 64 6c 65 0d 04  b0 13 4c 44 4d 46 44 20  |handle....LDMFD |
000010c0  52 31 33 21 2c 7b 50 43  7d 0d 04 ba 04 0d 04 c4  |R13!,{PC}.......|
000010d0  0d 2e 66 69 6e 61 6c 69  73 65 0d 04 ce 14 53 54  |..finalise....ST|
000010e0  4d 46 44 20 52 31 33 21  2c 7b 52 31 34 7d 0d 04  |MFD R13!,{R14}..|
000010f0  d8 11 4c 44 52 20 52 31  32 2c 5b 52 31 32 5d 0d  |..LDR R12,[R12].|
00001100  04 e2 1c 4c 44 52 20 52  30 2c 5b 52 31 32 2c 23  |...LDR R0,[R12,#|
00001110  74 61 73 6b 48 61 6e 64  6c 65 5d 0d 04 ec 37 54  |taskHandle]...7T|
00001120  45 51 20 52 30 2c 23 30  20 20 20 20 20 20 20 20  |EQ R0,#0        |
00001130  20 20 20 20 20 20 20 20  20 20 20 3b 20 49 66 20  |           ; If |
00001140  74 61 73 6b 20 68 61 6e  64 6c 65 3e 30 20 74 68  |task handle>0 th|
00001150  65 6e 0d 04 f6 28 4c 44  52 47 54 20 52 31 2c 74  |en...(LDRGT R1,t|
00001160  61 73 6b 43 6f 64 65 20  20 20 20 20 20 20 20 20  |askCode         |
00001170  20 20 3b 20 22 54 41 53  4b 22 0d 05 00 30 53 57  |  ; "TASK"...0SW|
00001180  49 47 54 20 22 58 57 69  6d 70 5f 43 6c 6f 73 65  |IGT "XWimp_Close|
00001190  44 6f 77 6e 22 20 20 20  20 20 3b 20 53 68 75 74  |Down"     ; Shut|
000011a0  20 64 6f 77 6e 20 74 61  73 6b 0d 05 0a 0d 4d 4f  | down task....MO|
000011b0  56 20 52 30 2c 23 30 0d  05 14 33 53 54 52 20 52  |V R0,#0...3STR R|
000011c0  30 2c 5b 52 31 32 2c 23  74 61 73 6b 48 61 6e 64  |0,[R12,#taskHand|
000011d0  6c 65 5d 20 20 20 20 3b  20 52 65 73 65 74 20 74  |le]    ; Reset t|
000011e0  61 73 6b 20 68 61 6e 64  6c 65 0d 05 1e 13 4c 44  |ask handle....LD|
000011f0  4d 46 44 20 52 31 33 21  2c 7b 50 43 7d 0d 05 28  |MFD R13!,{PC}..(|
00001200  04 0d 05 32 0c 2e 73 65  72 76 69 63 65 0d 05 3c  |...2..service..<|
00001210  1d 54 45 51 20 52 31 2c  23 53 65 72 76 69 63 65  |.TEQ R1,#Service|
00001220  5f 53 74 61 72 74 57 69  6d 70 0d 05 46 2f 42 45  |_StartWimp..F/BE|
00001230  51 20 73 65 72 76 69 63  65 53 74 61 72 74 57 69  |Q serviceStartWi|
00001240  6d 70 20 20 20 20 20 20  20 20 3b 20 57 69 6d 70  |mp        ; Wimp|
00001250  20 73 74 61 72 74 69 6e  67 0d 05 50 1f 54 45 51  | starting..P.TEQ|
00001260  20 52 31 2c 23 53 65 72  76 69 63 65 5f 53 74 61  | R1,#Service_Sta|
00001270  72 74 65 64 57 69 6d 70  0d 05 5a 10 4d 4f 56 4e  |rtedWimp..Z.MOVN|
00001280  45 20 50 43 2c 52 31 34  0d 05 64 2e 20 20 20 20  |E PC,R14..d.    |
00001290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012a0  20 20 20 20 20 20 20 20  3b 20 57 69 6d 70 20 73  |        ; Wimp s|
000012b0  74 61 72 74 65 64 0d 05  6e 17 2e 73 65 72 76 69  |tarted..n..servi|
000012c0  63 65 53 74 61 72 74 65  64 57 69 6d 70 0d 05 78  |ceStartedWimp..x|
000012d0  14 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 34  |.STMFD R13!,{R14|
000012e0  7d 0d 05 82 11 4c 44 52  20 52 31 32 2c 5b 52 31  |}....LDR R12,[R1|
000012f0  32 5d 0d 05 8c 4a 4c 44  52 20 52 31 34 2c 5b 52  |2]...JLDR R14,[R|
00001300  31 32 2c 23 74 61 73 6b  48 61 6e 64 6c 65 5d 20  |12,#taskHandle] |
00001310  20 20 3b 20 49 66 20 57  69 6d 70 20 73 74 61 72  |  ; If Wimp star|
00001320  74 65 64 20 61 6e 64 20  74 61 73 6b 20 68 61 6e  |ted and task han|
00001330  64 6c 65 20 69 73 20 73  74 69 6c 6c 0d 05 96 3b  |dle is still...;|
00001340  43 4d 4e 20 52 31 34 2c  23 31 20 20 20 20 20 20  |CMN R14,#1      |
00001350  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 73 74  |            ; st|
00001360  75 63 6b 20 61 74 20 2d  31 20 74 68 65 6e 20 66  |uck at -1 then f|
00001370  61 69 6c 75 72 65 2c 0d  05 a0 2f ec 51 20 52 31  |ailure,.../.Q R1|
00001380  34 2c 23 30 20 20 20 20  20 20 20 20 20 20 20 20  |4,#0            |
00001390  20 20 20 20 3b 20 73 6f  20 72 65 73 65 74 20 69  |    ; so reset i|
000013a0  74 20 74 6f 20 30 0d 05  aa 1d 53 54 52 20 52 31  |t to 0....STR R1|
000013b0  34 2c 5b 52 31 32 2c 23  74 61 73 6b 48 61 6e 64  |4,[R12,#taskHand|
000013c0  6c 65 5d 0d 05 b4 13 4c  44 4d 46 44 20 52 31 33  |le]....LDMFD R13|
000013d0  21 2c 7b 50 43 7d 0d 05  be 04 0d 05 c8 15 2e 73  |!,{PC}.........s|
000013e0  65 72 76 69 63 65 53 74  61 72 74 57 69 6d 70 0d  |erviceStartWimp.|
000013f0  05 d2 14 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |...STMFD R13!,{R|
00001400  31 34 7d 0d 05 dc 11 4c  44 52 20 52 31 32 2c 5b  |14}....LDR R12,[|
00001410  52 31 32 5d 0d 05 e6 1d  4c 44 52 20 52 31 34 2c  |R12]....LDR R14,|
00001420  5b 52 31 32 2c 23 74 61  73 6b 48 61 6e 64 6c 65  |[R12,#taskHandle|
00001430  5d 0d 05 f0 36 54 45 51  20 52 31 34 2c 23 30 20  |]...6TEQ R14,#0 |
00001440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001450  20 3b 20 49 66 20 74 61  73 6b 20 6e 6f 74 20 72  | ; If task not r|
00001460  75 6e 6e 69 6e 67 2c 0d  05 fa 3c 4d 56 4e 45 51  |unning,...<MVNEQ|
00001470  20 52 31 34 2c 23 30 20  20 20 20 20 20 20 20 20  | R14,#0         |
00001480  20 20 20 20 20 20 20 3b  20 74 65 6d 70 6f 72 61  |       ; tempora|
00001490  72 69 6c 79 20 73 65 74  20 68 61 6e 64 6c 65 3d  |rily set handle=|
000014a0  2d 31 2c 0d 06 04 1f 53  54 52 45 51 20 52 31 34  |-1,....STREQ R14|
000014b0  2c 5b 52 31 32 2c 23 74  61 73 6b 48 61 6e 64 6c  |,[R12,#taskHandl|
000014c0  65 5d 0d 06 0e 45 41 44  52 45 51 20 52 30 2c 63  |e]...EADREQ R0,c|
000014d0  6f 6d 6d 61 6e 64 20 20  20 20 20 20 20 20 20 20  |ommand          |
000014e0  20 20 3b 20 61 6e 64 20  74 72 79 20 74 6f 20 65  |  ; and try to e|
000014f0  78 65 63 75 74 65 20 73  74 61 72 74 75 70 20 63  |xecute startup c|
00001500  6f 6d 6d 61 6e 64 2c 0d  06 18 37 ec 51 20 52 31  |ommand,...7.Q R1|
00001510  2c 23 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |,#0             |
00001520  20 20 20 20 3b 20 62 79  20 63 6c 61 69 6d 69 6e  |    ; by claimin|
00001530  67 20 73 65 72 76 69 63  65 20 63 61 6c 6c 0d 06  |g service call..|
00001540  22 13 4c 44 4d 46 44 20  52 31 33 21 2c 7b 50 43  |".LDMFD R13!,{PC|
00001550  7d 0d 06 2c 04 0d 06 36  09 2e 6e 75 6c 6c 0d 06  |}..,...6..null..|
00001560  40 3c 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 64  |@<LDR R0,[R12,#d|
00001570  72 61 67 46 6c 61 67 5d  20 20 20 20 20 20 20 20  |ragFlag]        |
00001580  20 20 3b 20 69 73 20 61  20 64 72 61 67 20 69 6e  |  ; is a drag in|
00001590  20 70 72 6f 67 72 65 73  73 3f 0d 06 4a 0d 43 4d  | progress?..J.CM|
000015a0  50 20 52 30 2c 23 30 0d  06 54 42 42 4e 45 20 63  |P R0,#0..TBBNE c|
000015b0  68 65 63 6b 45 6e 64 44  72 61 67 20 20 20 20 20  |heckEndDrag     |
000015c0  20 20 20 20 20 20 20 20  20 20 20 3b 20 69 66 20  |           ; if |
000015d0  73 6f 2c 20 63 68 65 63  6b 20 66 6f 72 20 65 6e  |so, check for en|
000015e0  64 20 6f 66 20 64 72 61  67 0d 06 5e 1a 4d 4f 56  |d of drag..^.MOV|
000015f0  20 52 30 2c 23 6b 65 79  62 6f 61 72 64 5f 73 63  | R0,#keyboard_sc|
00001600  61 6e 25 0d 06 68 3d 4d  4f 56 20 52 31 2c 23 28  |an%..h=MOV R1,#(|
00001610  73 68 69 66 74 5f 6b 65  79 73 25 20 82 20 26 38  |shift_keys% . &8|
00001620  30 29 20 20 20 3b 20 74  65 73 74 20 66 6f 72 20  |0)   ; test for |
00001630  65 69 74 68 65 72 20 73  68 69 66 74 20 6b 65 79  |either shift key|
00001640  0d 06 72 12 53 57 49 20  22 58 4f 53 5f 42 79 74  |..r.SWI "XOS_Byt|
00001650  65 22 0d 06 7c 0d 42 56  53 20 65 72 72 6f 72 0d  |e"..|.BVS error.|
00001660  06 86 36 54 45 51 20 52  31 2c 23 26 46 46 20 20  |..6TEQ R1,#&FF  |
00001670  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001680  20 20 20 3b 20 26 46 46  20 69 66 20 68 65 6c 64  |   ; &FF if held|
00001690  20 64 6f 77 6e 0d 06 90  10 42 4e 45 20 70 6f 6c  | down....BNE pol|
000016a0  6c 4c 6f 6f 70 0d 06 9a  3c 4d 4f 56 20 52 31 2c  |lLoop...<MOV R1,|
000016b0  23 28 63 74 72 6c 5f 6b  65 79 73 25 20 82 20 26  |#(ctrl_keys% . &|
000016c0  38 30 29 20 20 20 20 3b  20 74 65 73 74 20 66 6f  |80)    ; test fo|
000016d0  72 20 65 69 74 68 65 72  20 63 74 72 6c 20 6b 65  |r either ctrl ke|
000016e0  79 0d 06 a4 12 53 57 49  20 22 58 4f 53 5f 42 79  |y....SWI "XOS_By|
000016f0  74 65 22 0d 06 ae 0d 42  56 53 20 65 72 72 6f 72  |te"....BVS error|
00001700  0d 06 b8 0f 54 45 51 20  52 31 2c 23 26 46 46 0d  |....TEQ R1,#&FF.|
00001710  06 c2 10 42 4e 45 20 70  6f 6c 6c 4c 6f 6f 70 0d  |...BNE pollLoop.|
00001720  06 cc 3a 4d 4f 56 20 52  31 2c 23 28 6c 65 66 74  |..:MOV R1,#(left|
00001730  5f 62 75 74 74 6f 6e 25  20 82 20 26 38 30 29 20  |_button% . &80) |
00001740  20 3b 20 74 65 73 74 20  66 6f 72 20 53 65 6c 65  | ; test for Sele|
00001750  63 74 20 62 75 74 74 6f  6e 0d 06 d6 12 53 57 49  |ct button....SWI|
00001760  20 22 58 4f 53 5f 42 79  74 65 22 0d 06 e0 0d 42  | "XOS_Byte"....B|
00001770  56 53 20 65 72 72 6f 72  0d 06 ea 0f 54 45 51 20  |VS error....TEQ |
00001780  52 31 2c 23 26 46 46 0d  06 f4 11 42 45 51 20 73  |R1,#&FF....BEQ s|
00001790  74 61 72 74 44 72 61 67  0d 06 fe 3a 4d 4f 56 20  |tartDrag...:MOV |
000017a0  52 31 2c 23 28 72 69 67  68 74 5f 62 75 74 74 6f  |R1,#(right_butto|
000017b0  6e 25 20 82 20 26 38 30  29 20 3b 20 74 65 73 74  |n% . &80) ; test|
000017c0  20 66 6f 72 20 41 64 6a  75 73 74 20 62 75 74 74  | for Adjust butt|
000017d0  6f 6e 0d 07 08 12 53 57  49 20 22 58 4f 53 5f 42  |on....SWI "XOS_B|
000017e0  79 74 65 22 0d 07 12 0d  42 56 53 20 65 72 72 6f  |yte"....BVS erro|
000017f0  72 0d 07 1c 0f 54 45 51  20 52 31 2c 23 26 46 46  |r....TEQ R1,#&FF|
00001800  0d 07 26 10 42 4e 45 20  70 6f 6c 6c 4c 6f 6f 70  |..&.BNE pollLoop|
00001810  0d 07 30 0e 2e 73 74 61  72 74 44 72 61 67 0d 07  |..0..startDrag..|
00001820  3a 15 41 44 44 20 52 31  2c 52 31 32 2c 23 62 6c  |:.ADD R1,R12,#bl|
00001830  6f 63 6b 0d 07 44 1e 53  57 49 20 22 58 57 69 6d  |ock..D.SWI "XWim|
00001840  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00001850  22 0d 07 4e 0d 42 56 53  20 65 72 72 6f 72 0d 07  |"..N.BVS error..|
00001860  58 2f 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 62  |X/LDR R0,[R12,#b|
00001870  6c 6f 63 6b 2b 31 32 5d  20 20 20 20 20 20 3b 20  |lock+12]      ; |
00001880  77 69 6e 64 6f 77 20 68  61 6e 64 6c 65 0d 07 62  |window handle..b|
00001890  0d 43 4d 50 20 52 30 2c  23 30 0d 07 6c 36 42 4c  |.CMP R0,#0..l6BL|
000018a0  54 20 70 6f 6c 6c 4c 6f  6f 70 20 20 20 20 20 20  |T pollLoop      |
000018b0  20 20 20 20 20 20 20 20  20 20 3b 20 6c 65 61 76  |          ; leav|
000018c0  65 20 69 63 6f 6e 20 62  61 72 20 61 6c 6f 6e 65  |e icon bar alone|
000018d0  0d 07 76 37 53 54 52 20  52 30 2c 5b 52 31 32 2c  |..v7STR R0,[R12,|
000018e0  23 62 6c 6f 63 6b 2b 34  5d 20 20 20 20 20 20 20  |#block+4]       |
000018f0  3b 20 62 6c 6f 63 6b 21  34 3d 77 69 6e 64 6f 77  |; block!4=window|
00001900  20 68 61 6e 64 6c 65 0d  07 80 2c 41 44 44 20 52  | handle...,ADD R|
00001910  31 2c 52 31 32 2c 23 62  6c 6f 63 6b 2b 34 20 20  |1,R12,#block+4  |
00001920  20 20 20 20 20 20 20 3b  20 72 31 3d 62 6c 6f 63  |       ; r1=bloc|
00001930  6b 2b 34 0d 07 8a 1e 53  57 49 20 22 58 57 69 6d  |k+4....SWI "XWim|
00001940  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001950  22 0d 07 94 0d 42 56 53  20 65 72 72 6f 72 0d 07  |"....BVS error..|
00001960  9e 41 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 62  |.ALDR R0,[R12,#b|
00001970  6c 6f 63 6b 2b 34 5d 20  20 20 20 20 20 20 3b 20  |lock+4]       ; |
00001980  41 47 47 47 47 48 48 48  48 48 21 20 20 52 30 20  |AGGGGHHHHH!  R0 |
00001990  67 65 74 73 20 63 6f 72  72 75 70 74 65 64 21 0d  |gets corrupted!.|
000019a0  07 a8 37 53 54 52 20 52  30 2c 5b 52 31 32 2c 23  |..7STR R0,[R12,#|
000019b0  62 6c 6f 63 6b 2b 30 5d  20 20 20 20 20 20 20 3b  |block+0]       ;|
000019c0  20 62 6c 6f 63 6b 21 30  3d 77 69 6e 64 6f 77 20  | block!0=window |
000019d0  68 61 6e 64 6c 65 0d 07  b2 0d 4d 4f 56 20 52 30  |handle....MOV R0|
000019e0  2c 23 31 0d 07 bc 47 53  54 52 20 52 30 2c 5b 52  |,#1...GSTR R0,[R|
000019f0  31 32 2c 23 62 6c 6f 63  6b 2b 34 5d 20 20 20 20  |12,#block+4]    |
00001a00  20 20 20 3b 20 62 6c 6f  63 6b 21 34 3d 64 72 61  |   ; block!4=dra|
00001a10  67 20 74 79 70 65 20 28  31 3d 64 72 61 67 20 77  |g type (1=drag w|
00001a20  69 6e 64 6f 77 20 70 6f  73 29 0d 07 c6 15 41 44  |indow pos)....AD|
00001a30  44 20 52 31 2c 52 31 32  2c 23 62 6c 6f 63 6b 0d  |D R1,R12,#block.|
00001a40  07 d0 17 53 57 49 20 22  58 57 69 6d 70 5f 44 72  |...SWI "XWimp_Dr|
00001a50  61 67 42 6f 78 22 0d 07  da 0d 42 56 53 20 65 72  |agBox"....BVS er|
00001a60  72 6f 72 0d 07 e4 0d 4d  4f 56 20 52 30 2c 23 31  |ror....MOV R0,#1|
00001a70  0d 07 ee 3b 53 54 52 20  52 30 2c 5b 52 31 32 2c  |...;STR R0,[R12,|
00001a80  23 64 72 61 67 46 6c 61  67 5d 20 20 20 20 20 20  |#dragFlag]      |
00001a90  3b 20 69 6e 64 69 63 61  74 65 20 64 72 61 67 20  |; indicate drag |
00001aa0  69 6e 20 70 72 6f 67 72  65 73 73 0d 07 f8 0e 42  |in progress....B|
00001ab0  20 70 6f 6c 6c 4c 6f 6f  70 0d 08 02 04 0d 08 0c  | pollLoop.......|
00001ac0  11 2e 63 68 65 63 6b 45  6e 64 44 72 61 67 0d 08  |..checkEndDrag..|
00001ad0  16 1a 4d 4f 56 20 52 30  2c 23 6b 65 79 62 6f 61  |..MOV R0,#keyboa|
00001ae0  72 64 5f 73 63 61 6e 25  0d 08 20 3a 4d 4f 56 20  |rd_scan%.. :MOV |
00001af0  52 31 2c 23 28 6c 65 66  74 5f 62 75 74 74 6f 6e  |R1,#(left_button|
00001b00  25 20 82 20 26 38 30 29  20 20 3b 20 74 65 73 74  |% . &80)  ; test|
00001b10  20 66 6f 72 20 53 65 6c  65 63 74 20 62 75 74 74  | for Select butt|
00001b20  6f 6e 0d 08 2a 12 53 57  49 20 22 58 4f 53 5f 42  |on..*.SWI "XOS_B|
00001b30  79 74 65 22 0d 08 34 0d  42 56 53 20 65 72 72 6f  |yte"..4.BVS erro|
00001b40  72 0d 08 3e 0f 54 45 51  20 52 31 2c 23 26 46 46  |r..>.TEQ R1,#&FF|
00001b50  0d 08 48 10 42 45 51 20  70 6f 6c 6c 4c 6f 6f 70  |..H.BEQ pollLoop|
00001b60  0d 08 52 3a 4d 4f 56 20  52 31 2c 23 28 72 69 67  |..R:MOV R1,#(rig|
00001b70  68 74 5f 62 75 74 74 6f  6e 25 20 82 20 26 38 30  |ht_button% . &80|
00001b80  29 20 3b 20 74 65 73 74  20 66 6f 72 20 41 64 6a  |) ; test for Adj|
00001b90  75 73 74 20 62 75 74 74  6f 6e 0d 08 5c 12 53 57  |ust button..\.SW|
00001ba0  49 20 22 58 4f 53 5f 42  79 74 65 22 0d 08 66 0d  |I "XOS_Byte"..f.|
00001bb0  42 56 53 20 65 72 72 6f  72 0d 08 70 0f 54 45 51  |BVS error..p.TEQ|
00001bc0  20 52 31 2c 23 26 46 46  0d 08 7a 10 42 45 51 20  | R1,#&FF..z.BEQ |
00001bd0  70 6f 6c 6c 4c 6f 6f 70  0d 08 84 04 0d 08 8e 46  |pollLoop.......F|
00001be0  2e 65 6e 64 44 72 61 67  20 20 20 20 20 20 20 20  |.endDrag        |
00001bf0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 63 61  |            ; ca|
00001c00  6c 6c 65 64 20 66 72 6f  6d 20 70 6f 6c 6c 4c 6f  |lled from pollLo|
00001c10  6f 70 20 6f 72 20 63 68  65 63 6b 45 6e 64 44 72  |op or checkEndDr|
00001c20  61 67 0d 08 98 0d 4d 4f  56 20 52 31 2c 23 30 0d  |ag....MOV R1,#0.|
00001c30  08 a2 37 53 57 49 20 22  58 57 69 6d 70 5f 44 72  |..7SWI "XWimp_Dr|
00001c40  61 67 42 6f 78 22 20 20  20 20 20 20 20 20 20 3b  |agBox"         ;|
00001c50  20 43 61 6e 63 65 6c 20  64 72 61 67 20 6f 70 65  | Cancel drag ope|
00001c60  72 61 74 69 6f 6e 0d 08  ac 13 53 57 49 56 53 20  |ration....SWIVS |
00001c70  22 4f 53 5f 45 78 69 74  22 0d 08 b6 0d 4d 4f 56  |"OS_Exit"....MOV|
00001c80  20 52 30 2c 23 30 0d 08  c0 3c 53 54 52 20 52 30  | R0,#0...<STR R0|
00001c90  2c 5b 52 31 32 2c 23 64  72 61 67 46 6c 61 67 5d  |,[R12,#dragFlag]|
00001ca0  20 20 20 20 20 20 3b 20  64 72 61 67 20 6e 6f 20  |      ; drag no |
00001cb0  6c 6f 6e 67 65 72 20 69  6e 20 70 72 6f 67 72 65  |longer in progre|
00001cc0  73 73 0d 08 ca 0e 42 20  70 6f 6c 6c 4c 6f 6f 70  |ss....B pollLoop|
00001cd0  0d 08 d4 04 0d 08 de 0a  2e 65 72 72 6f 72 0d 08  |.........error..|
00001ce0  e8 0d 4d 4f 56 20 52 31  2c 23 30 0d 08 f2 10 41  |..MOV R1,#0....A|
00001cf0  44 52 20 52 32 2c 74 69  74 6c 65 0d 08 fc 1a 53  |DR R2,title....S|
00001d00  57 49 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |WI "Wimp_ReportE|
00001d10  72 72 6f 72 22 0d 09 06  11 53 57 49 20 22 4f 53  |rror"....SWI "OS|
00001d20  5f 45 78 69 74 22 0d 09  10 04 0d 09 1a 05 5d 0d  |_Exit"........].|
00001d30  09 24 05 e1 0d 09 2e 04  0d 09 38 18 dd 20 f2 6d  |.$........8.. .m|
00001d40  6f 64 75 6c 65 28 46 69  6c 65 4e 61 6d 65 24 29  |odule(FileName$)|
00001d50  0d 09 42 17 de 20 63 6f  64 65 25 20 26 31 30 30  |..B.. code% &100|
00001d60  30 2c 20 4c 25 2d 31 0d  09 4c 13 f2 6d 6f 64 75  |0, L%-1..L..modu|
00001d70  6c 65 49 6e 69 74 56 61  72 73 0d 09 56 17 e3 20  |leInitVars..V.. |
00001d80  70 61 73 73 25 3d 31 32  20 b8 20 31 34 20 88 20  |pass%=12 . 14 . |
00001d90  32 0d 09 60 13 20 20 50  25 3d 30 3a 4f 25 3d 63  |2..`.  P%=0:O%=c|
00001da0  6f 64 65 25 0d 09 6a 0f  20 20 f2 61 73 73 65 6d  |ode%..j.  .assem|
00001db0  62 6c 65 0d 09 74 05 ed  0d 09 7e 2c ff 22 53 61  |ble..t....~,."Sa|
00001dc0  76 65 20 22 2b 46 69 6c  65 4e 61 6d 65 24 2b 22  |ve "+FileName$+"|
00001dd0  20 22 2b c3 7e 63 6f 64  65 25 2b 22 20 2b 22 2b  | "+.~code%+" +"+|
00001de0  c3 7e 50 25 0d 09 88 23  ff 22 53 65 74 54 79 70  |.~P%...#."SetTyp|
00001df0  65 20 22 2b 46 69 6c 65  4e 61 6d 65 24 2b 22 20  |e "+FileName$+" |
00001e00  4d 6f 64 75 6c 65 22 0d  09 92 05 e1 0d 09 9c 04  |Module".........|
00001e10  0d 09 a6 15 dd 20 f2 6d  6f 64 75 6c 65 49 6e 69  |..... .moduleIni|
00001e20  74 56 61 72 73 0d 09 b0  18 53 65 72 76 69 63 65  |tVars....Service|
00001e30  5f 53 65 72 76 69 63 65  64 3d 26 30 30 0d 09 ba  |_Serviced=&00...|
00001e40  19 53 65 72 76 69 63 65  5f 55 4b 43 6f 6d 6d 61  |.Service_UKComma|
00001e50  6e 64 3d 26 30 34 0d 09  c4 15 53 65 72 76 69 63  |nd=&04....Servic|
00001e60  65 5f 45 72 72 6f 72 3d  26 30 36 0d 09 ce 16 53  |e_Error=&06....S|
00001e70  65 72 76 69 63 65 5f 55  4b 42 79 74 65 3d 26 30  |ervice_UKByte=&0|
00001e80  37 0d 09 d8 16 53 65 72  76 69 63 65 5f 55 4b 57  |7....Service_UKW|
00001e90  6f 72 64 3d 26 30 38 0d  09 e2 14 53 65 72 76 69  |ord=&08....Servi|
00001ea0  63 65 5f 48 65 6c 70 3d  26 30 39 0d 09 ec 1a 53  |ce_Help=&09....S|
00001eb0  65 72 76 69 63 65 5f 52  65 6c 65 61 73 65 46 49  |ervice_ReleaseFI|
00001ec0  51 3d 26 30 42 0d 09 f6  18 53 65 72 76 69 63 65  |Q=&0B....Service|
00001ed0  5f 43 6c 61 69 6d 46 49  51 3d 26 30 43 0d 0a 00  |_ClaimFIQ=&0C...|
00001ee0  16 53 65 72 76 69 63 65  5f 4d 65 6d 6f 72 79 3d  |.Service_Memory=|
00001ef0  26 31 31 0d 0a 0a 19 53  65 72 76 69 63 65 5f 53  |&11....Service_S|
00001f00  74 61 72 74 55 70 46 53  3d 26 31 32 0d 0a 14 15  |tartUpFS=&12....|
00001f10  53 65 72 76 69 63 65 5f  52 65 73 65 74 3d 26 32  |Service_Reset=&2|
00001f20  37 0d 0a 1e 18 53 65 72  76 69 63 65 5f 55 4b 43  |7....Service_UKC|
00001f30  6f 6e 66 69 67 3d 26 32  38 0d 0a 28 18 53 65 72  |onfig=&28..(.Ser|
00001f40  76 69 63 65 5f 55 4b 53  74 61 74 75 73 3d 26 32  |vice_UKStatus=&2|
00001f50  39 0d 0a 32 1e 53 65 72  76 69 63 65 5f 4e 65 77  |9..2.Service_New|
00001f60  41 70 70 6c 69 63 61 74  69 6f 6e 3d 26 32 41 0d  |Application=&2A.|
00001f70  0a 3c 1b 53 65 72 76 69  63 65 5f 46 53 52 65 64  |.<.Service_FSRed|
00001f80  65 63 6c 61 72 65 3d 26  34 30 0d 0a 46 15 53 65  |eclare=&40..F.Se|
00001f90  72 76 69 63 65 5f 50 72  69 6e 74 3d 26 34 31 0d  |rvice_Print=&41.|
00001fa0  0a 50 1e 53 65 72 76 69  63 65 5f 4c 6f 6f 6b 55  |.P.Service_LookU|
00001fb0  70 46 69 6c 65 54 79 70  65 3d 26 34 32 0d 0a 5a  |pFileType=&42..Z|
00001fc0  1d 53 65 72 76 69 63 65  5f 49 6e 74 65 72 6e 61  |.Service_Interna|
00001fd0  74 69 6f 6e 61 6c 3d 26  34 33 0d 0a 64 1a 53 65  |tional=&43..d.Se|
00001fe0  72 76 69 63 65 5f 4b 65  79 68 61 6e 64 6c 65 72  |rvice_Keyhandler|
00001ff0  3d 26 34 34 0d 0a 6e 18  53 65 72 76 69 63 65 5f  |=&44..n.Service_|
00002000  50 72 65 52 65 73 65 74  3d 26 34 35 0d 0a 78 1a  |PreReset=&45..x.|
00002010  53 65 72 76 69 63 65 5f  4d 6f 64 65 43 68 61 6e  |Service_ModeChan|
00002020  67 65 3d 26 34 36 0d 0a  82 24 53 65 72 76 69 63  |ge=&46...$Servic|
00002030  65 5f 43 6c 61 69 6d 46  49 51 69 6e 42 61 63 6b  |e_ClaimFIQinBack|
00002040  67 72 6f 75 6e 64 3d 26  34 37 0d 0a 8c 1f 53 65  |ground=&47....Se|
00002050  72 76 69 63 65 5f 52 65  41 6c 6c 6f 63 61 74 65  |rvice_ReAllocate|
00002060  50 6f 72 74 73 3d 26 34  38 0d 0a 96 19 53 65 72  |Ports=&48....Ser|
00002070  76 69 63 65 5f 53 74 61  72 74 57 69 6d 70 3d 26  |vice_StartWimp=&|
00002080  34 39 0d 0a a0 1b 53 65  72 76 69 63 65 5f 53 74  |49....Service_St|
00002090  61 72 74 65 64 57 69 6d  70 3d 26 34 41 0d 0a aa  |artedWimp=&4A...|
000020a0  1a 53 65 72 76 69 63 65  5f 53 74 61 72 74 46 69  |.Service_StartFi|
000020b0  6c 65 72 3d 26 34 42 0d  0a b4 1c 53 65 72 76 69  |ler=&4B....Servi|
000020c0  63 65 5f 53 74 61 72 74  65 64 46 69 6c 65 72 3d  |ce_StartedFiler=|
000020d0  26 34 43 0d 0a be 1d 53  65 72 76 69 63 65 5f 50  |&4C....Service_P|
000020e0  72 65 4d 6f 64 65 43 68  61 6e 67 65 3d 26 34 44  |reModeChange=&4D|
000020f0  0d 0a c8 1b 53 65 72 76  69 63 65 5f 4d 65 6d 6f  |....Service_Memo|
00002100  72 79 4d 6f 76 65 64 3d  26 34 45 0d 0a d2 1a 53  |ryMoved=&4E....S|
00002110  65 72 76 69 63 65 5f 46  69 6c 65 72 44 79 69 6e  |ervice_FilerDyin|
00002120  67 3d 26 34 46 0d 0a dc  1d 53 65 72 76 69 63 65  |g=&4F....Service|
00002130  5f 4d 6f 64 65 45 78 74  65 6e 73 69 6f 6e 3d 26  |_ModeExtension=&|
00002140  35 30 0d 0a e6 1f 53 65  72 76 69 63 65 5f 4d 6f  |50....Service_Mo|
00002150  64 65 54 72 61 6e 73 6c  61 74 69 6f 6e 3d 26 35  |deTranslation=&5|
00002160  31 0d 0a f0 19 53 65 72  76 69 63 65 5f 4d 6f 75  |1....Service_Mou|
00002170  73 65 54 72 61 70 3d 26  35 32 0d 0a fa 1d 53 65  |seTrap=&52....Se|
00002180  72 76 69 63 65 5f 57 69  6d 70 43 6c 6f 73 65 44  |rvice_WimpCloseD|
00002190  6f 77 6e 3d 26 35 33 0d  0b 04 15 53 65 72 76 69  |own=&53....Servi|
000021a0  63 65 5f 53 6f 75 6e 64  3d 26 35 34 0d 0b 0e 15  |ce_Sound=&54....|
000021b0  53 65 72 76 69 63 65 5f  4e 65 74 46 53 3d 26 35  |Service_NetFS=&5|
000021c0  35 0d 0b 18 1b 53 65 72  76 69 63 65 5f 45 63 6f  |5....Service_Eco|
000021d0  6e 65 74 44 79 69 6e 67  3d 26 35 36 0d 0b 22 1b  |netDying=&56..".|
000021e0  53 65 72 76 69 63 65 5f  52 65 70 6f 72 74 45 72  |Service_ReportEr|
000021f0  72 6f 72 3d 26 35 37 0d  0b 2c 0d 55 73 65 72 56  |ror=&57..,.UserV|
00002200  3d 26 30 30 0d 0b 36 0e  45 72 72 6f 72 56 3d 26  |=&00..6.ErrorV=&|
00002210  30 31 0d 0b 40 0c 49 72  71 56 3d 26 30 32 0d 0b  |01..@.IrqV=&02..|
00002220  4a 0d 57 72 63 68 56 3d  26 30 33 0d 0b 54 0e 52  |J.WrchV=&03..T.R|
00002230  65 61 64 43 56 3d 26 30  34 0d 0b 5e 0c 43 4c 49  |eadCV=&04..^.CLI|
00002240  56 3d 26 30 35 0d 0b 68  0d 42 79 74 65 56 3d 26  |V=&05..h.ByteV=&|
00002250  30 36 0d 0b 72 0d 57 6f  72 64 56 3d 26 30 37 0d  |06..r.WordV=&07.|
00002260  0b 7c 0d 46 69 6c 65 56  3d 26 30 38 0d 0b 86 0d  |.|.FileV=&08....|
00002270  41 72 67 73 56 3d 26 30  39 0d 0b 90 0d 42 47 65  |ArgsV=&09....BGe|
00002280  74 56 3d 26 30 41 0d 0b  9a 0d 42 50 75 74 56 3d  |tV=&0A....BPutV=|
00002290  26 30 42 0d 0b a4 0d 47  42 50 42 56 3d 26 30 43  |&0B....GBPBV=&0C|
000022a0  0d 0b ae 0d 46 69 6e 64  56 3d 26 30 44 0d 0b b8  |....FindV=&0D...|
000022b0  11 52 65 61 64 4c 69 6e  65 56 3d 26 30 45 0d 0b  |.ReadLineV=&0E..|
000022c0  c2 12 46 53 43 6f 6e 74  72 6f 6c 56 3d 26 30 46  |..FSControlV=&0F|
000022d0  0d 0b cc 0e 45 76 65 6e  74 56 3d 26 31 30 0d 0b  |....EventV=&10..|
000022e0  d6 0c 49 6e 73 56 3d 26  31 34 0d 0b e0 0c 52 65  |..InsV=&14....Re|
000022f0  6d 56 3d 26 31 35 0d 0b  ea 0c 43 6e 70 56 3d 26  |mV=&15....CnpV=&|
00002300  31 36 0d 0b f4 10 55 4b  56 44 55 32 33 56 3d 26  |16....UKVDU23V=&|
00002310  31 37 0d 0b fe 0e 55 4b  53 57 49 56 3d 26 31 38  |17....UKSWIV=&18|
00002320  0d 0c 08 0f 55 4b 50 4c  4f 54 56 3d 26 31 39 0d  |....UKPLOTV=&19.|
00002330  0c 12 0e 4d 6f 75 73 65  56 3d 26 31 41 0d 0c 1c  |...MouseV=&1A...|
00002340  3c 56 64 75 58 56 3d 26  31 42 20 20 20 20 20 20  |<VduXV=&1B      |
00002350  20 20 20 20 20 20 20 20  20 3a 20 f4 20 20 2a 2a  |         : .  **|
00002360  20 4e 6f 74 65 20 74 68  65 20 6e 61 6d 65 20 63  | Note the name c|
00002370  68 61 6e 67 65 21 20 2a  2a 0d 0c 26 0f 54 69 63  |hange! **..&.Tic|
00002380  6b 65 72 56 3d 26 31 43  0d 0c 30 0f 55 70 43 61  |kerV=&1C..0.UpCa|
00002390  6c 6c 56 3d 26 31 44 0d  0c 3a 1a 43 68 61 6e 67  |llV=&1D..:.Chang|
000023a0  65 45 6e 76 69 72 6f 6e  6d 65 6e 74 56 3d 26 31  |eEnvironmentV=&1|
000023b0  45 0d 0c 44 0f 53 70 72  69 74 65 56 3d 26 31 46  |E..D.SpriteV=&1F|
000023c0  0d 0c 4e 0d 44 72 61 77  56 3d 26 32 30 0d 0c 58  |..N.DrawV=&20..X|
000023d0  0f 45 63 6f 6e 65 74 56  3d 26 32 31 0d 0c 62 0f  |.EconetV=&21..b.|
000023e0  43 6f 6c 6f 75 72 56 3d  26 32 32 0d 0c 6c 2e f4  |ColourV=&22..l..|
000023f0  20 45 76 65 6e 74 20 30  20 3d 20 4f 75 74 70 75  | Event 0 = Outpu|
00002400  74 20 62 75 66 66 65 72  20 68 61 73 20 62 65 63  |t buffer has bec|
00002410  6f 6d 65 20 65 6d 70 74  79 0d 0c 76 2c f4 20 45  |ome empty..v,. E|
00002420  76 65 6e 74 20 31 20 3d  20 49 6e 70 75 74 20 62  |vent 1 = Input b|
00002430  75 66 66 65 72 20 68 61  73 20 62 65 63 6f 6d 65  |uffer has become|
00002440  20 66 75 6c 6c 0d 0c 80  39 f4 20 45 76 65 6e 74  | full...9. Event|
00002450  20 32 20 3d 20 43 68 61  72 61 63 74 65 72 20 68  | 2 = Character h|
00002460  61 73 20 62 65 65 6e 20  70 6c 61 63 65 64 20 69  |as been placed i|
00002470  6e 20 69 6e 70 75 74 20  62 75 66 66 65 72 0d 0c  |n input buffer..|
00002480  8a 41 f4 20 45 76 65 6e  74 20 33 20 3d 20 45 6e  |.A. Event 3 = En|
00002490  64 20 6f 66 20 41 44 43  20 63 6f 6e 76 65 72 73  |d of ADC convers|
000024a0  69 6f 6e 20 6f 6e 20 61  20 42 42 43 20 49 2f 4f  |ion on a BBC I/O|
000024b0  20 65 78 70 61 6e 73 69  6f 6e 20 63 61 72 64 0d  | expansion card.|
000024c0  0c 94 45 f4 20 45 76 65  6e 74 20 34 20 3d 20 45  |..E. Event 4 = E|
000024d0  6c 65 63 74 72 6f 6e 20  62 65 61 6d 20 68 61 73  |lectron beam has|
000024e0  20 72 65 61 63 68 65 64  20 6c 61 73 74 20 64 69  | reached last di|
000024f0  73 70 6c 61 79 65 64 20  6c 69 6e 65 20 28 56 53  |splayed line (VS|
00002500  79 6e 63 29 0d 0c 9e 2f  f4 20 45 76 65 6e 74 20  |ync).../. Event |
00002510  35 20 3d 20 49 6e 74 65  72 76 61 6c 20 74 69 6d  |5 = Interval tim|
00002520  65 72 20 68 61 73 20 63  72 6f 73 73 65 64 20 7a  |er has crossed z|
00002530  65 72 6f 0d 0c a8 32 f4  20 45 76 65 6e 74 20 36  |ero...2. Event 6|
00002540  20 3d 20 45 73 63 61 70  65 20 63 6f 6e 64 69 74  | = Escape condit|
00002550  69 6f 6e 20 68 61 73 20  62 65 65 6e 20 64 65 74  |ion has been det|
00002560  65 63 74 65 64 0d 0c b2  2f f4 20 45 76 65 6e 74  |ected.../. Event|
00002570  20 37 20 3d 20 52 53 34  32 33 20 3d 20 65 72 72  | 7 = RS423 = err|
00002580  6f 72 20 68 61 73 20 62  65 65 6e 20 64 65 74 65  |or has been dete|
00002590  63 74 65 64 0d 0c bc 3c  f4 20 45 76 65 6e 74 20  |cted...<. Event |
000025a0  38 20 3d 20 45 63 6f 6e  65 74 20 75 73 65 72 20  |8 = Econet user |
000025b0  72 65 6d 6f 74 65 20 70  72 6f 63 65 64 75 72 65  |remote procedure|
000025c0  20 68 61 73 20 62 65 65  6e 20 63 61 6c 6c 65 64  | has been called|
000025d0  0d 0c c6 2b f4 20 45 76  65 6e 74 20 39 20 3d 20  |...+. Event 9 = |
000025e0  55 73 65 72 20 68 61 73  20 67 65 6e 65 72 61 74  |User has generat|
000025f0  65 64 20 61 6e 20 65 76  65 6e 74 0d 0c d0 31 f4  |ed an event...1.|
00002600  20 45 76 65 6e 74 20 31  30 20 3d 20 4d 6f 75 73  | Event 10 = Mous|
00002610  65 20 62 75 74 74 6f 6e  73 20 68 61 76 65 20 63  |e buttons have c|
00002620  68 61 6e 67 65 64 20 73  74 61 74 65 0d 0c da 33  |hanged state...3|
00002630  f4 20 45 76 65 6e 74 20  31 31 20 3d 20 41 20 6b  |. Event 11 = A k|
00002640  65 79 20 68 61 73 20 62  65 65 6e 20 70 72 65 73  |ey has been pres|
00002650  73 65 64 20 6f 72 20 72  65 6c 65 61 73 65 64 0d  |sed or released.|
00002660  0c e4 3c f4 20 45 76 65  6e 74 20 31 32 20 3d 20  |..<. Event 12 = |
00002670  53 6f 75 6e 64 20 73 79  73 74 65 6d 20 68 61 73  |Sound system has|
00002680  20 72 65 61 63 68 65 64  20 74 68 65 20 73 74 61  | reached the sta|
00002690  72 74 20 6f 66 20 61 20  62 61 72 0d 0c ee 33 f4  |rt of a bar...3.|
000026a0  20 45 76 65 6e 74 20 31  33 20 3d 20 50 43 20 45  | Event 13 = PC E|
000026b0  6d 75 6c 61 74 6f 72 20  68 61 73 20 67 65 6e 65  |mulator has gene|
000026c0  72 61 74 65 64 20 61 6e  20 65 76 65 6e 74 0d 0c  |rated an event..|
000026d0  f8 2d f4 20 45 76 65 6e  74 20 31 34 20 3d 20 45  |.-. Event 14 = E|
000026e0  63 6f 6e 65 74 20 72 65  63 65 69 76 65 20 68 61  |conet receive ha|
000026f0  73 20 63 6f 6d 70 6c 65  74 65 64 0d 0d 02 2e f4  |s completed.....|
00002700  20 45 76 65 6e 74 20 31  35 20 3d 20 45 63 6f 6e  | Event 15 = Econ|
00002710  65 74 20 74 72 61 6e 73  6d 69 74 20 68 61 73 20  |et transmit has |
00002720  63 6f 6d 70 6c 65 74 65  64 0d 0d 0c 49 f4 20 45  |completed...I. E|
00002730  76 65 6e 74 20 31 36 20  3d 20 45 63 6f 6e 65 74  |vent 16 = Econet|
00002740  20 6f 70 65 72 61 74 69  6e 67 20 73 79 73 74 65  | operating syste|
00002750  6d 20 72 65 6d 6f 74 65  20 70 72 6f 63 65 64 75  |m remote procedu|
00002760  72 65 20 68 61 73 20 62  65 65 6e 20 63 61 6c 6c  |re has been call|
00002770  65 64 0d 0d 16 33 f4 20  45 76 65 6e 74 20 31 37  |ed...3. Event 17|
00002780  20 3d 20 4d 49 44 49 20  73 79 73 74 65 6d 20 68  | = MIDI system h|
00002790  61 73 20 67 65 6e 65 72  61 74 65 64 20 61 6e 20  |as generated an |
000027a0  65 76 65 6e 74 0d 0d 20  13 4d 65 73 73 61 67 65  |event.. .Message|
000027b0  5f 51 75 69 74 3d 26 30  0d 0d 2a 17 4d 65 73 73  |_Quit=&0..*.Mess|
000027c0  61 67 65 5f 44 61 74 61  53 61 76 65 3d 26 31 0d  |age_DataSave=&1.|
000027d0  0d 34 1a 4d 65 73 73 61  67 65 5f 44 61 74 61 53  |.4.Message_DataS|
000027e0  61 76 65 41 63 6b 3d 26  32 0d 0d 3e 17 4d 65 73  |aveAck=&2..>.Mes|
000027f0  73 61 67 65 5f 44 61 74  61 4c 6f 61 64 3d 26 33  |sage_DataLoad=&3|
00002800  0d 0d 48 1a 4d 65 73 73  61 67 65 5f 44 61 74 61  |..H.Message_Data|
00002810  4c 6f 61 64 41 63 6b 3d  26 34 0d 0d 52 17 4d 65  |LoadAck=&4..R.Me|
00002820  73 73 61 67 65 5f 44 61  74 61 4f 70 65 6e 3d 26  |ssage_DataOpen=&|
00002830  35 0d 0d 5c 17 4d 65 73  73 61 67 65 5f 52 41 4d  |5..\.Message_RAM|
00002840  46 65 74 63 68 3d 26 36  0d 0d 66 1a 4d 65 73 73  |Fetch=&6..f.Mess|
00002850  61 67 65 5f 52 41 4d 54  72 61 6e 73 6d 69 74 3d  |age_RAMTransmit=|
00002860  26 37 0d 0d 70 16 4d 65  73 73 61 67 65 5f 50 72  |&7..p.Message_Pr|
00002870  65 51 75 69 74 3d 26 38  0d 0d 7a 1c 4d 65 73 73  |eQuit=&8..z.Mess|
00002880  61 67 65 5f 50 61 6c 65  74 74 65 43 68 61 6e 67  |age_PaletteChang|
00002890  65 3d 26 39 0d 0d 84 1d  4d 65 73 73 61 67 65 5f  |e=&9....Message_|
000028a0  46 69 6c 65 72 4f 70 65  6e 44 69 72 3d 26 34 30  |FilerOpenDir=&40|
000028b0  30 0d 0d 8e 1e 4d 65 73  73 61 67 65 5f 46 69 6c  |0....Message_Fil|
000028c0  65 72 43 6c 6f 73 65 44  69 72 3d 26 34 30 31 0d  |erCloseDir=&401.|
000028d0  0d 98 19 4d 65 73 73 61  67 65 5f 4e 6f 74 69 66  |...Message_Notif|
000028e0  79 3d 26 34 30 30 34 30  0d 0d a2 1e 4d 65 73 73  |y=&40040....Mess|
000028f0  61 67 65 5f 4d 65 6e 75  57 61 72 6e 69 6e 67 3d  |age_MenuWarning=|
00002900  26 34 30 30 43 30 0d 0d  ac 1d 4d 65 73 73 61 67  |&400C0....Messag|
00002910  65 5f 4d 6f 64 65 43 68  61 6e 67 65 3d 26 34 30  |e_ModeChange=&40|
00002920  30 43 31 0d 0d b6 21 4d  65 73 73 61 67 65 5f 54  |0C1...!Message_T|
00002930  61 73 6b 49 6e 69 74 69  61 6c 69 73 65 3d 26 34  |askInitialise=&4|
00002940  30 30 43 32 0d 0d c0 20  4d 65 73 73 61 67 65 5f  |00C2... Message_|
00002950  54 61 73 6b 43 6c 6f 73  65 44 6f 77 6e 3d 26 34  |TaskCloseDown=&4|
00002960  30 30 43 33 0d 0d ca 1b  4d 65 73 73 61 67 65 5f  |00C3....Message_|
00002970  53 6c 6f 74 53 69 7a 65  3d 26 34 30 30 43 34 0d  |SlotSize=&400C4.|
00002980  0d d4 1a 4d 65 73 73 61  67 65 5f 53 65 74 53 6c  |...Message_SetSl|
00002990  6f 74 3d 26 34 30 30 43  35 0d 0d de 1d 4d 65 73  |ot=&400C5....Mes|
000029a0  73 61 67 65 5f 54 61 73  6b 4e 61 6d 65 52 71 3d  |sage_TaskNameRq=|
000029b0  26 34 30 30 43 36 0d 0d  e8 1d 4d 65 73 73 61 67  |&400C6....Messag|
000029c0  65 5f 54 61 73 6b 4e 61  6d 65 49 73 3d 26 34 30  |e_TaskNameIs=&40|
000029d0  30 43 37 0d 0d f2 12 4e  66 6c 61 67 25 3d 28 31  |0C7....Nflag%=(1|
000029e0  3c 3c 33 31 29 0d 0d fc  12 5a 66 6c 61 67 25 3d  |<<31)....Zflag%=|
000029f0  28 31 3c 3c 33 30 29 0d  0e 06 12 43 66 6c 61 67  |(1<<30)....Cflag|
00002a00  25 3d 28 31 3c 3c 32 39  29 0d 0e 10 12 56 66 6c  |%=(1<<29)....Vfl|
00002a10  61 67 25 3d 28 31 3c 3c  32 38 29 0d 0e 1a 12 49  |ag%=(1<<28)....I|
00002a20  66 6c 61 67 25 3d 28 31  3c 3c 32 37 29 0d 0e 24  |flag%=(1<<27)..$|
00002a30  12 46 66 6c 61 67 25 3d  28 31 3c 3c 32 36 29 0d  |.Fflag%=(1<<26).|
00002a40  0e 2e 0e 55 73 72 4d 6f  64 65 25 3d 30 0d 0e 38  |...UsrMode%=0..8|
00002a50  0e 46 49 51 6d 6f 64 65  25 3d 31 0d 0e 42 0e 49  |.FIQmode%=1..B.I|
00002a60  52 51 6d 6f 64 65 25 3d  32 0d 0e 4c 0e 53 56 43  |RQmode%=2..L.SVC|
00002a70  6d 6f 64 65 25 3d 33 0d  0e 56 05 e1 0d ff        |mode%=3..V....|
00002a7e