�     >CSDModSrc
� By  Carl Stockton
� For 32-bit machines
(� (c) BAU October 1993
2:
<� code 512
Foverflow=&10000000
Pflags=0
Zblock=4
d� pass=4 � 6 � 2
nP%=0
xO%=code
�
[OPT pass
�:
�
.start
�
EQUD 0
�EQUD initial-start
�EQUD final-start
�
EQUD 0
�EQUD title-start
�EQUD help-start
�
EQUD 0
�:
�
.title
�EQUS "CSDModule"


EQUB 0

:

	.help

"EQUS "CSDModule"

,
EQUB 9

6EQUS "1.00 (01 Oct 1993)"

@
EQUB 0

J	ALIGN

T:

^.initial

hSTMFD R13!,{R0-R5,R14}

rMOV   R0,#6

|MOV   R3,#3072

�SWI   "XOS_Module"

�STR   R2,[R12]

�MOVVS R5,#0

�BVS   cannot

�MOV   R0,#16

�ADR   R1,eventcode

�SWI   "XOS_Claim"

�MOVVS R5,#1

�BVS   cannot

�MOV   R0,#14

�MOV   R1,#11

�SWI   "XOS_Byte"

�MOVVS R5,#3
BVS   cannot
LDMFD R13!,{R0-R5,PC}^
:
&
.final
0STMFD R13!,{R0-R2,R14}
:LDR   R12,[R12]
DMOV   R0,#13
NMOV   R1,#11
XSWI   "XOS_Byte"
bMOV   R0,#16
lADR   R1,eventcode
vMOV   R2,R12
�SWI   "XOS_Release"
�MOV   R0,#7
�MOV   R2,R12
�SWI   "XOS_Module"
�LDMFD R13!,{R0-R2,PC}^
�:
�.cannot
�TST   R5,#2
�MOVNE R0,#16
�ADRNE R1,eventcode
�MOVNE R2,R12
�SWINE "XOS_Release"
�TST   R5,#1
MOVNE R0,#7
LDRNE R2,[R12]
SWINE "XOS_Module"
 LDMFD R13!,{R14}
*LDMFD R13!,{R1-R5,R14}
4�RS  PC,R14,#overflow
>:
H.eventcode
RTEQ   R1,#1
\TEQEQ R2,#&20
fMOVNES PC,R14
pSTMFD R13!,{R0-R9,R14}
zMOV   R9,PC
��R   R8,R9,#3
�TEQP  R8,#0
�MOV   R0,R0
�STMFD R13!,{R14}
�MOV   R0,#129
�MOV   R1,#256-3
�MOV   R2,#255
�SWI   "XOS_Byte"
�CMP   R1,#255
�ADREQ R0,callback
�
�Q R1,R12
�SWIEQ "XOS_AddCallBack"
�LDMFD R13!,{R14}
TEQP  R9,#0
MOV   R0,R0
LDMFD R13!,{R0-R9,PC}^
$:
.
.callback
8STMFD R13!,{R0-R3,R14}
BMOV   R1,R12
L SWI   "XWimp_GetPointerInfo"
VLDR   R0,[R1,#12]
`STR   R0,[R1]
jSWI   "XWimp_GetWindowInfo"
tLDR   R1,[R1,#76]
~MOV   R0,#0
�SWI   "XOS_FSControl"
�SWI   256+7
�LDMFD R13!,{R0-R3,PC}
�]
��
�-ș "OS_File",10,"CSDModule",&FFA,,code,O%
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 43 53 44 4d 6f  |.....     >CSDMo|
00000010  64 53 72 63 0d 00 14 17  f4 20 42 79 20 20 43 61  |dSrc..... By  Ca|
00000020  72 6c 20 53 74 6f 63 6b  74 6f 6e 0d 00 1e 19 f4  |rl Stockton.....|
00000030  20 46 6f 72 20 33 32 2d  62 69 74 20 6d 61 63 68  | For 32-bit mach|
00000040  69 6e 65 73 0d 00 28 1a  f4 20 28 63 29 20 42 41  |ines..(.. (c) BA|
00000050  55 20 4f 63 74 6f 62 65  72 20 31 39 39 33 0d 00  |U October 1993..|
00000060  32 05 3a 0d 00 3c 0e de  20 63 6f 64 65 20 35 31  |2.:..<.. code 51|
00000070  32 0d 00 46 16 6f 76 65  72 66 6c 6f 77 3d 26 31  |2..F.overflow=&1|
00000080  30 30 30 30 30 30 30 0d  00 50 0b 66 6c 61 67 73  |0000000..P.flags|
00000090  3d 30 0d 00 5a 0b 62 6c  6f 63 6b 3d 34 0d 00 64  |=0..Z.block=4..d|
000000a0  14 e3 20 70 61 73 73 3d  34 20 b8 20 36 20 88 20  |.. pass=4 . 6 . |
000000b0  32 0d 00 6e 08 50 25 3d  30 0d 00 78 0b 4f 25 3d  |2..n.P%=0..x.O%=|
000000c0  63 6f 64 65 0d 00 82 0d  5b 4f 50 54 20 70 61 73  |code....[OPT pas|
000000d0  73 0d 00 8c 05 3a 0d 00  96 0a 2e 73 74 61 72 74  |s....:.....start|
000000e0  0d 00 a0 0a 45 51 55 44  20 30 0d 00 aa 16 45 51  |....EQUD 0....EQ|
000000f0  55 44 20 69 6e 69 74 69  61 6c 2d 73 74 61 72 74  |UD initial-start|
00000100  0d 00 b4 14 45 51 55 44  20 66 69 6e 61 6c 2d 73  |....EQUD final-s|
00000110  74 61 72 74 0d 00 be 0a  45 51 55 44 20 30 0d 00  |tart....EQUD 0..|
00000120  c8 14 45 51 55 44 20 74  69 74 6c 65 2d 73 74 61  |..EQUD title-sta|
00000130  72 74 0d 00 d2 13 45 51  55 44 20 68 65 6c 70 2d  |rt....EQUD help-|
00000140  73 74 61 72 74 0d 00 dc  0a 45 51 55 44 20 30 0d  |start....EQUD 0.|
00000150  00 e6 05 3a 0d 00 f0 0a  2e 74 69 74 6c 65 0d 00  |...:.....title..|
00000160  fa 14 45 51 55 53 20 22  43 53 44 4d 6f 64 75 6c  |..EQUS "CSDModul|
00000170  65 22 0d 01 04 0a 45 51  55 42 20 30 0d 01 0e 05  |e"....EQUB 0....|
00000180  3a 0d 01 18 09 2e 68 65  6c 70 0d 01 22 14 45 51  |:.....help..".EQ|
00000190  55 53 20 22 43 53 44 4d  6f 64 75 6c 65 22 0d 01  |US "CSDModule"..|
000001a0  2c 0a 45 51 55 42 20 39  0d 01 36 1d 45 51 55 53  |,.EQUB 9..6.EQUS|
000001b0  20 22 31 2e 30 30 20 28  30 31 20 4f 63 74 20 31  | "1.00 (01 Oct 1|
000001c0  39 39 33 29 22 0d 01 40  0a 45 51 55 42 20 30 0d  |993)"..@.EQUB 0.|
000001d0  01 4a 09 41 4c 49 47 4e  0d 01 54 05 3a 0d 01 5e  |.J.ALIGN..T.:..^|
000001e0  0c 2e 69 6e 69 74 69 61  6c 0d 01 68 1a 53 54 4d  |..initial..h.STM|
000001f0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 35 2c 52  |FD R13!,{R0-R5,R|
00000200  31 34 7d 0d 01 72 0f 4d  4f 56 20 20 20 52 30 2c  |14}..r.MOV   R0,|
00000210  23 36 0d 01 7c 12 4d 4f  56 20 20 20 52 33 2c 23  |#6..|.MOV   R3,#|
00000220  33 30 37 32 0d 01 86 16  53 57 49 20 20 20 22 58  |3072....SWI   "X|
00000230  4f 53 5f 4d 6f 64 75 6c  65 22 0d 01 90 12 53 54  |OS_Module"....ST|
00000240  52 20 20 20 52 32 2c 5b  52 31 32 5d 0d 01 9a 0f  |R   R2,[R12]....|
00000250  4d 4f 56 56 53 20 52 35  2c 23 30 0d 01 a4 10 42  |MOVVS R5,#0....B|
00000260  56 53 20 20 20 63 61 6e  6e 6f 74 0d 01 ae 10 4d  |VS   cannot....M|
00000270  4f 56 20 20 20 52 30 2c  23 31 36 0d 01 b8 16 41  |OV   R0,#16....A|
00000280  44 52 20 20 20 52 31 2c  65 76 65 6e 74 63 6f 64  |DR   R1,eventcod|
00000290  65 0d 01 c2 15 53 57 49  20 20 20 22 58 4f 53 5f  |e....SWI   "XOS_|
000002a0  43 6c 61 69 6d 22 0d 01  cc 0f 4d 4f 56 56 53 20  |Claim"....MOVVS |
000002b0  52 35 2c 23 31 0d 01 d6  10 42 56 53 20 20 20 63  |R5,#1....BVS   c|
000002c0  61 6e 6e 6f 74 0d 01 e0  10 4d 4f 56 20 20 20 52  |annot....MOV   R|
000002d0  30 2c 23 31 34 0d 01 ea  10 4d 4f 56 20 20 20 52  |0,#14....MOV   R|
000002e0  31 2c 23 31 31 0d 01 f4  14 53 57 49 20 20 20 22  |1,#11....SWI   "|
000002f0  58 4f 53 5f 42 79 74 65  22 0d 01 fe 0f 4d 4f 56  |XOS_Byte"....MOV|
00000300  56 53 20 52 35 2c 23 33  0d 02 08 10 42 56 53 20  |VS R5,#3....BVS |
00000310  20 20 63 61 6e 6e 6f 74  0d 02 12 1a 4c 44 4d 46  |  cannot....LDMF|
00000320  44 20 52 31 33 21 2c 7b  52 30 2d 52 35 2c 50 43  |D R13!,{R0-R5,PC|
00000330  7d 5e 0d 02 1c 05 3a 0d  02 26 0a 2e 66 69 6e 61  |}^....:..&..fina|
00000340  6c 0d 02 30 1a 53 54 4d  46 44 20 52 31 33 21 2c  |l..0.STMFD R13!,|
00000350  7b 52 30 2d 52 32 2c 52  31 34 7d 0d 02 3a 13 4c  |{R0-R2,R14}..:.L|
00000360  44 52 20 20 20 52 31 32  2c 5b 52 31 32 5d 0d 02  |DR   R12,[R12]..|
00000370  44 10 4d 4f 56 20 20 20  52 30 2c 23 31 33 0d 02  |D.MOV   R0,#13..|
00000380  4e 10 4d 4f 56 20 20 20  52 31 2c 23 31 31 0d 02  |N.MOV   R1,#11..|
00000390  58 14 53 57 49 20 20 20  22 58 4f 53 5f 42 79 74  |X.SWI   "XOS_Byt|
000003a0  65 22 0d 02 62 10 4d 4f  56 20 20 20 52 30 2c 23  |e"..b.MOV   R0,#|
000003b0  31 36 0d 02 6c 16 41 44  52 20 20 20 52 31 2c 65  |16..l.ADR   R1,e|
000003c0  76 65 6e 74 63 6f 64 65  0d 02 76 10 4d 4f 56 20  |ventcode..v.MOV |
000003d0  20 20 52 32 2c 52 31 32  0d 02 80 17 53 57 49 20  |  R2,R12....SWI |
000003e0  20 20 22 58 4f 53 5f 52  65 6c 65 61 73 65 22 0d  |  "XOS_Release".|
000003f0  02 8a 0f 4d 4f 56 20 20  20 52 30 2c 23 37 0d 02  |...MOV   R0,#7..|
00000400  94 10 4d 4f 56 20 20 20  52 32 2c 52 31 32 0d 02  |..MOV   R2,R12..|
00000410  9e 16 53 57 49 20 20 20  22 58 4f 53 5f 4d 6f 64  |..SWI   "XOS_Mod|
00000420  75 6c 65 22 0d 02 a8 1a  4c 44 4d 46 44 20 52 31  |ule"....LDMFD R1|
00000430  33 21 2c 7b 52 30 2d 52  32 2c 50 43 7d 5e 0d 02  |3!,{R0-R2,PC}^..|
00000440  b2 05 3a 0d 02 bc 0b 2e  63 61 6e 6e 6f 74 0d 02  |..:.....cannot..|
00000450  c6 0f 54 53 54 20 20 20  52 35 2c 23 32 0d 02 d0  |..TST   R5,#2...|
00000460  10 4d 4f 56 4e 45 20 52  30 2c 23 31 36 0d 02 da  |.MOVNE R0,#16...|
00000470  16 41 44 52 4e 45 20 52  31 2c 65 76 65 6e 74 63  |.ADRNE R1,eventc|
00000480  6f 64 65 0d 02 e4 10 4d  4f 56 4e 45 20 52 32 2c  |ode....MOVNE R2,|
00000490  52 31 32 0d 02 ee 17 53  57 49 4e 45 20 22 58 4f  |R12....SWINE "XO|
000004a0  53 5f 52 65 6c 65 61 73  65 22 0d 02 f8 0f 54 53  |S_Release"....TS|
000004b0  54 20 20 20 52 35 2c 23  31 0d 03 02 0f 4d 4f 56  |T   R5,#1....MOV|
000004c0  4e 45 20 52 30 2c 23 37  0d 03 0c 12 4c 44 52 4e  |NE R0,#7....LDRN|
000004d0  45 20 52 32 2c 5b 52 31  32 5d 0d 03 16 16 53 57  |E R2,[R12]....SW|
000004e0  49 4e 45 20 22 58 4f 53  5f 4d 6f 64 75 6c 65 22  |INE "XOS_Module"|
000004f0  0d 03 20 14 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |.. .LDMFD R13!,{|
00000500  52 31 34 7d 0d 03 2a 1a  4c 44 4d 46 44 20 52 31  |R14}..*.LDMFD R1|
00000510  33 21 2c 7b 52 31 2d 52  35 2c 52 31 34 7d 0d 03  |3!,{R1-R5,R14}..|
00000520  34 19 84 52 53 20 20 50  43 2c 52 31 34 2c 23 6f  |4..RS  PC,R14,#o|
00000530  76 65 72 66 6c 6f 77 0d  03 3e 05 3a 0d 03 48 0e  |verflow..>.:..H.|
00000540  2e 65 76 65 6e 74 63 6f  64 65 0d 03 52 0f 54 45  |.eventcode..R.TE|
00000550  51 20 20 20 52 31 2c 23  31 0d 03 5c 11 54 45 51  |Q   R1,#1..\.TEQ|
00000560  45 51 20 52 32 2c 23 26  32 30 0d 03 66 11 4d 4f  |EQ R2,#&20..f.MO|
00000570  56 4e 45 53 20 50 43 2c  52 31 34 0d 03 70 1a 53  |VNES PC,R14..p.S|
00000580  54 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 39  |TMFD R13!,{R0-R9|
00000590  2c 52 31 34 7d 0d 03 7a  0f 4d 4f 56 20 20 20 52  |,R14}..z.MOV   R|
000005a0  39 2c 50 43 0d 03 84 11  84 52 20 20 20 52 38 2c  |9,PC.....R   R8,|
000005b0  52 39 2c 23 33 0d 03 8e  0f 54 45 51 50 20 20 52  |R9,#3....TEQP  R|
000005c0  38 2c 23 30 0d 03 98 0f  4d 4f 56 20 20 20 52 30  |8,#0....MOV   R0|
000005d0  2c 52 30 0d 03 a2 14 53  54 4d 46 44 20 52 31 33  |,R0....STMFD R13|
000005e0  21 2c 7b 52 31 34 7d 0d  03 ac 11 4d 4f 56 20 20  |!,{R14}....MOV  |
000005f0  20 52 30 2c 23 31 32 39  0d 03 b6 13 4d 4f 56 20  | R0,#129....MOV |
00000600  20 20 52 31 2c 23 32 35  36 2d 33 0d 03 c0 11 4d  |  R1,#256-3....M|
00000610  4f 56 20 20 20 52 32 2c  23 32 35 35 0d 03 ca 14  |OV   R2,#255....|
00000620  53 57 49 20 20 20 22 58  4f 53 5f 42 79 74 65 22  |SWI   "XOS_Byte"|
00000630  0d 03 d4 11 43 4d 50 20  20 20 52 31 2c 23 32 35  |....CMP   R1,#25|
00000640  35 0d 03 de 15 41 44 52  45 51 20 52 30 2c 63 61  |5....ADREQ R0,ca|
00000650  6c 6c 62 61 63 6b 0d 03  e8 0d ec 51 20 52 31 2c  |llback.....Q R1,|
00000660  52 31 32 0d 03 f2 1b 53  57 49 45 51 20 22 58 4f  |R12....SWIEQ "XO|
00000670  53 5f 41 64 64 43 61 6c  6c 42 61 63 6b 22 0d 03  |S_AddCallBack"..|
00000680  fc 14 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 31  |..LDMFD R13!,{R1|
00000690  34 7d 0d 04 06 0f 54 45  51 50 20 20 52 39 2c 23  |4}....TEQP  R9,#|
000006a0  30 0d 04 10 0f 4d 4f 56  20 20 20 52 30 2c 52 30  |0....MOV   R0,R0|
000006b0  0d 04 1a 1a 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |....LDMFD R13!,{|
000006c0  52 30 2d 52 39 2c 50 43  7d 5e 0d 04 24 05 3a 0d  |R0-R9,PC}^..$.:.|
000006d0  04 2e 0d 2e 63 61 6c 6c  62 61 63 6b 0d 04 38 1a  |....callback..8.|
000006e0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
000006f0  33 2c 52 31 34 7d 0d 04  42 10 4d 4f 56 20 20 20  |3,R14}..B.MOV   |
00000700  52 31 2c 52 31 32 0d 04  4c 20 53 57 49 20 20 20  |R1,R12..L SWI   |
00000710  22 58 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |"XWimp_GetPointe|
00000720  72 49 6e 66 6f 22 0d 04  56 15 4c 44 52 20 20 20  |rInfo"..V.LDR   |
00000730  52 30 2c 5b 52 31 2c 23  31 32 5d 0d 04 60 11 53  |R0,[R1,#12]..`.S|
00000740  54 52 20 20 20 52 30 2c  5b 52 31 5d 0d 04 6a 1f  |TR   R0,[R1]..j.|
00000750  53 57 49 20 20 20 22 58  57 69 6d 70 5f 47 65 74  |SWI   "XWimp_Get|
00000760  57 69 6e 64 6f 77 49 6e  66 6f 22 0d 04 74 15 4c  |WindowInfo"..t.L|
00000770  44 52 20 20 20 52 31 2c  5b 52 31 2c 23 37 36 5d  |DR   R1,[R1,#76]|
00000780  0d 04 7e 0f 4d 4f 56 20  20 20 52 30 2c 23 30 0d  |..~.MOV   R0,#0.|
00000790  04 88 19 53 57 49 20 20  20 22 58 4f 53 5f 46 53  |...SWI   "XOS_FS|
000007a0  43 6f 6e 74 72 6f 6c 22  0d 04 92 0f 53 57 49 20  |Control"....SWI |
000007b0  20 20 32 35 36 2b 37 0d  04 9c 19 4c 44 4d 46 44  |  256+7....LDMFD|
000007c0  20 52 31 33 21 2c 7b 52  30 2d 52 33 2c 50 43 7d  | R13!,{R0-R3,PC}|
000007d0  0d 04 a6 05 5d 0d 04 b0  05 ed 0d 04 ba 2d c8 99  |....]........-..|
000007e0  20 22 4f 53 5f 46 69 6c  65 22 2c 31 30 2c 22 43  | "OS_File",10,"C|
000007f0  53 44 4d 6f 64 75 6c 65  22 2c 26 46 46 41 2c 2c  |SDModule",&FFA,,|
00000800  63 6f 64 65 2c 4f 25 0d  ff                       |code,O%..|
00000809