Home » Archimedes archive » Acorn User » AU 1996-02.adf » Regulars » StarInfo/McEwan/!Source
StarInfo/McEwan/!Source
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1996-02.adf » Regulars |
| Filename: | StarInfo/McEwan/!Source |
| Read OK: | ✔ |
| File size: | 1023 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !Source for PCKeys
20REM Needs BAX
30
40ONERROR ERROR 0,REPORT$+" at line "+STR$(ERL)+".":STOP
50
60MODE 0
70DIM code% 10*1024
80
90vector_event = &10
100event_key = 11
110service_filterdying = &88
120service_filterinstalled = &87
130key_backspace = &1e
140key_delete = &34
150poll_key = 8
160
170wimpkey_copy = &18B
180wimpkey_end = &1AE
190wimpkey_delete = &7F
200
210FOR opt% = %100 TO %111 STEP %11
220O% = code%
230P% = 0
240[
250REM Header
260 OPT opt%
270 EquD 0 ; Start
280 EquD InitCode
290 EquD FinalCode
300 EquD Service
310 EquD TitleString
320 EquD HelpString
330 EquD 0 ; commands
340 EquD 0 ; swi chunk no.
350 EquD 0 ; swi handler
360 EquD 0 ; SWI decoding table
370 EquD 0 ; SWI decoding code
380
390REM Data
400.TitleString
410 EquZ "PCKeys"
420 Align
430.HelpString
440 EquS "PC Keys"+(CHR$9)+(CHR$9)+"1.00 (12 Aug 1995) "
450 EquZ "� Echelon Software 1995"
460 Align
470
480.DeleteKey
490 EquD wimpkey_delete
500._wimpkey_copy
510 EquD wimpkey_copy
520._wimpkey_end
530 EquD wimpkey_end
540.FilterInstalled
550 EquD TRUE
560.PollMask
570 EquD FNpollmask
580
590REM Code
600.InitCode
610 StMFD R13!,{r0-r3,r14}
620
630 Adr r0,TitleString
640 Adr r1,Filter
650 Mov r2,#0
660 Mov r3,#0
670 LdR r4,PollMask
680 SWI "XFilter_RegisterPostFilter"
690 BVS code_nofilter
700
710 Mov R0,#vector_event
720 AdR R1,EventCode
730 Mov R2,#0
740 SWI "OS_Claim"
750 Mov R0,#14
760 Mov r1,#11
770 Swi "OS_Byte"
780.code_nofilter
790 LdMFD R13!,{r0-r3,r14}
800 AdrVS R0,NoFilter
810
820 Mov R15,r14
830
840.NoFilter
850 EquD 0
860 EquZ "FilterManager module not installed."
870 Align
880.FinalCode
890 StMFD R13!,{r0-3,r14}
900 Mov R0,#vector_event
910 AdR R1,EventCode
920 Mov R2,#0
930 Swi "OS_Release"
940 Mov R0,#13
950 Mov R1,#11
960 Swi "OS_Byte"
970
980 LdR R0,FilterInstalled
990 Cmp R0,#0
1000 LdMEqFD R13!,{r0-3,15}
1010
1020 Adr r0,TitleString
1030 Adr r1,Filter
1040 Mov r2,#0
1050 Mov r3,#0
1060 SWI "XFilter_DeRegisterPostFilter"
1070 BiCVSS R15,R15,#1<<28
1080
1090 LdMFD R13!,{r0-3,r15}
1100
1110.Service
1120 Cmp R1,#service_filterdying
1130 CmpNE R1,#service_filterinstalled
1140 MovNE R15,R14
1150 StMFD R13!,{r0-3,r14}
1160 Cmp R1,#service_filterdying
1170 MovEQ R0,#0
1180 MvNNE R0,#0
1190 Str R0,FilterInstalled
1200
1210 AdrNE r0,TitleString
1220 AdrNE r1,Filter
1230 MovNE r2,#0
1240 MovNE r3,#0
1250 SWINE "XFilter_RegisterPostFilter"
1260
1270 LdMFD R13!,{r0-3,r15}
1280
1290.EventCode
1300 StMFD R13!,{r0,14}
1310 Cmp R0,#event_key
1320 CmpEq 1,#1
1330 LdMNEFD R13!,{r0,15}
1340 Cmp R2,#key_backspace
1350 MovEq r0,#wimpkey_delete
1360 StREq r0,DeleteKey
1370 Cmp R2,#key_delete
1380 ;
1390 LdREq R0,_wimpkey_copy
1400 ;
1410 StREq R0,DeleteKey
1420 LdMFD R13!,{r0,15}
1430
1440.Filter
1450 Cmp R0,#poll_key
1460 MovNES R15,R14
1470 ; Right, we're dealing with a key-press event now.
1480 StMFD r13!,{r0-r3,r14}
1490 LdR R0,[r1,#24]
1500 Mov R2,R0
1510 LdR R3,_wimpkey_copy
1520 Cmp R2,r3
1530 LdREq R0,_wimpkey_end
1540 Cmp R2,#wimpkey_delete
1550 LdREq R0,DeleteKey
1560 StR R0,[r1,#24]
1570 LdMFD R13!,{r0-r3,r15}
1580
1590
1600]
1610NEXT
1620
1630SYS "OS_File",10,"<Obey$Dir>.PCKeys",&ffa,,code%,P%+code%
1640
1650END
1660
1670
1680DEF FNpollmask
1690 LOCAL mask%
1691 mask% = %11100001100001110011
1720:=mask%
� > !Source for PCKeys
� Needs BAX
($� � 0,�$+" at line "+�(�)+".":�
2
<� 0
F� code% 10*1024
P
Zvector_event = &10
devent_key = 11
n service_filterdying = &88
x!service_filterinstalled = &87
�key_backspace = &1e
�key_delete = &34
�poll_key = 8
�
�wimpkey_copy = &18B
�wimpkey_end = &1AE
�wimpkey_delete = &7F
�
� � opt% = %100 � %111 � %11
�O% = code%
�
P% = 0
�[
� � Header
OPT opt%
EquD 0 ; Start
EquD InitCode
" EquD FinalCode
, EquD Service
6 EquD TitleString
@ EquD HelpString
J EquD 0 ; commands
T% EquD 0 ; swi chunk no.
^# EquD 0 ; swi handler
h* EquD 0 ; SWI decoding table
r) EquD 0 ; SWI decoding code
|
�
� Data
�.TitleString
� EquZ "PCKeys"
� Align
�.HelpString
�= EquS "PC Keys"+(�9)+(�9)+"1.00 (12 Aug 1995) "
�- EquZ "� Echelon Software 1995"
� Align
�
�.DeleteKey
�" EquD wimpkey_delete
�._wimpkey_copy
� EquD wimpkey_copy
._wimpkey_end
EquD wimpkey_end
.FilterInstalled
& EquD �
0
.PollMask
: EquD �pollmask
D
N
� Code
X
.InitCode
b$ StMFD R13!,{r0-r3,r14}
l
v" Adr r0,TitleString
� Adr r1,Filter
� Mov r2,#0
� Mov r3,#0
� LdR r4,PollMask
�0 SWI "XFilter_RegisterPostFilter"
�! BVS code_nofilter
�
�$ Mov R0,#vector_event
� AdR R1,EventCode
� Mov R2,#0
� SWI "OS_Claim"
� Mov R0,#14
� Mov r1,#11
Swi "OS_Byte"
.code_nofilter
$ LdMFD R13!,{r0-r3,r14}
AdrVS R0,NoFilter
*
4 Mov R15,r14
>
H
.NoFilter
R EquD 0
\9 EquZ "FilterManager module not installed."
f Align
p.FinalCode
z# StMFD R13!,{r0-3,r14}
�$ Mov R0,#vector_event
� AdR R1,EventCode
� Mov R2,#0
� Swi "OS_Release"
� Mov R0,#13
� Mov R1,#11
� Swi "OS_Byte"
�
�& LdR R0,FilterInstalled
� Cmp R0,#0
�" LdMEqFD R13!,{r0-3,15}
�
�" Adr r0,TitleString
Adr r1,Filter
Mov r2,#0
Mov r3,#0
$2 SWI "XFilter_DeRegisterPostFilter"
." BiCVSS R15,R15,#1<<28
8
B# LdMFD R13!,{r0-3,r15}
L
V .Service
`+ Cmp R1,#service_filterdying
j/ CmpNE R1,#service_filterinstalled
t MovNE R15,R14
~# StMFD R13!,{r0-3,r14}
�+ Cmp R1,#service_filterdying
� MovEQ R0,#0
� MvNNE R0,#0
�& Str R0,FilterInstalled
�
�" AdrNE r0,TitleString
� AdrNE r1,Filter
� MovNE r2,#0
� MovNE r3,#0
�0 SWINE "XFilter_RegisterPostFilter"
�
�# LdMFD R13!,{r0-3,r15}
.EventCode
StMFD R13!,{r0,14}
! Cmp R0,#event_key
( CmpEq 1,#1
2 LdMNEFD R13!,{r0,15}
<% Cmp R2,#key_backspace
F& MovEq r0,#wimpkey_delete
P StREq r0,DeleteKey
Z" Cmp R2,#key_delete
d
;
n$ LdREq R0,_wimpkey_copy
x
;
� StREq R0,DeleteKey
� LdMFD R13!,{r0,15}
�
� .Filter
� Cmp R0,#poll_key
� MovNES R15,R14
�> ; Right, we're dealing with a key-press event now.
�$ StMFD r13!,{r0-r3,r14}
� LdR R0,[r1,#24]
� Mov R2,R0
�$ LdR R3,_wimpkey_copy
� Cmp R2,r3
�# LdREq R0,_wimpkey_end
& Cmp R2,#wimpkey_delete
LdREq R0,DeleteKey
StR R0,[r1,#24]
"$ LdMFD R13!,{r0-r3,r15}
,
6
@]
J�
T
^<ș "OS_File",10,"<Obey$Dir>.PCKeys",&ffa,,code%,P%+code%
h
r�
|
�
�� �pollmask
�
� mask%
�# mask% = %11100001100001110011
� :=mask%
� 00000000 0d 00 0a 1a f4 20 3e 20 21 53 6f 75 72 63 65 20 |..... > !Source |
00000010 66 6f 72 20 50 43 4b 65 79 73 0d 00 14 0f f4 20 |for PCKeys..... |
00000020 4e 65 65 64 73 20 42 41 58 0d 00 1e 04 0d 00 28 |Needs BAX......(|
00000030 24 ee 85 20 85 20 30 2c f6 24 2b 22 20 61 74 20 |$.. . 0,.$+" at |
00000040 6c 69 6e 65 20 22 2b c3 28 9e 29 2b 22 2e 22 3a |line "+.(.)+".":|
00000050 fa 0d 00 32 04 0d 00 3c 07 eb 20 30 0d 00 46 13 |...2...<.. 0..F.|
00000060 de 20 63 6f 64 65 25 20 31 30 2a 31 30 32 34 0d |. code% 10*1024.|
00000070 00 50 04 0d 00 5a 16 76 65 63 74 6f 72 5f 65 76 |.P...Z.vector_ev|
00000080 65 6e 74 20 3d 20 26 31 30 0d 00 64 12 65 76 65 |ent = &10..d.eve|
00000090 6e 74 5f 6b 65 79 20 3d 20 31 31 0d 00 6e 1d 73 |nt_key = 11..n.s|
000000a0 65 72 76 69 63 65 5f 66 69 6c 74 65 72 64 79 69 |ervice_filterdyi|
000000b0 6e 67 20 3d 20 26 38 38 0d 00 78 21 73 65 72 76 |ng = &88..x!serv|
000000c0 69 63 65 5f 66 69 6c 74 65 72 69 6e 73 74 61 6c |ice_filterinstal|
000000d0 6c 65 64 20 3d 20 26 38 37 0d 00 82 17 6b 65 79 |led = &87....key|
000000e0 5f 62 61 63 6b 73 70 61 63 65 20 3d 20 26 31 65 |_backspace = &1e|
000000f0 0d 00 8c 14 6b 65 79 5f 64 65 6c 65 74 65 20 3d |....key_delete =|
00000100 20 26 33 34 0d 00 96 10 70 6f 6c 6c 5f 6b 65 79 | &34....poll_key|
00000110 20 3d 20 38 0d 00 a0 04 0d 00 aa 17 77 69 6d 70 | = 8........wimp|
00000120 6b 65 79 5f 63 6f 70 79 20 3d 20 26 31 38 42 0d |key_copy = &18B.|
00000130 00 b4 16 77 69 6d 70 6b 65 79 5f 65 6e 64 20 3d |...wimpkey_end =|
00000140 20 26 31 41 45 0d 00 be 18 77 69 6d 70 6b 65 79 | &1AE....wimpkey|
00000150 5f 64 65 6c 65 74 65 20 3d 20 26 37 46 0d 00 c8 |_delete = &7F...|
00000160 04 0d 00 d2 1e e3 20 6f 70 74 25 20 3d 20 25 31 |...... opt% = %1|
00000170 30 30 20 b8 20 25 31 31 31 20 88 20 25 31 31 0d |00 . %111 . %11.|
00000180 00 dc 0e 4f 25 20 3d 20 63 6f 64 65 25 0d 00 e6 |...O% = code%...|
00000190 0a 50 25 20 3d 20 30 0d 00 f0 05 5b 0d 00 fa 0c |.P% = 0....[....|
000001a0 f4 20 48 65 61 64 65 72 0d 01 04 18 20 20 20 20 |. Header.... |
000001b0 20 20 20 20 4f 50 54 20 20 20 20 20 6f 70 74 25 | OPT opt%|
000001c0 0d 01 0e 1d 20 20 20 20 20 20 20 20 45 71 75 44 |.... EquD|
000001d0 20 20 20 20 30 20 3b 20 53 74 61 72 74 0d 01 18 | 0 ; Start...|
000001e0 1c 20 20 20 20 20 20 20 20 45 71 75 44 20 20 20 |. EquD |
000001f0 20 49 6e 69 74 43 6f 64 65 0d 01 22 1d 20 20 20 | InitCode..". |
00000200 20 20 20 20 20 45 71 75 44 20 20 20 20 46 69 6e | EquD Fin|
00000210 61 6c 43 6f 64 65 0d 01 2c 1b 20 20 20 20 20 20 |alCode..,. |
00000220 20 20 45 71 75 44 20 20 20 20 53 65 72 76 69 63 | EquD Servic|
00000230 65 0d 01 36 1f 20 20 20 20 20 20 20 20 45 71 75 |e..6. Equ|
00000240 44 20 20 20 20 54 69 74 6c 65 53 74 72 69 6e 67 |D TitleString|
00000250 0d 01 40 1e 20 20 20 20 20 20 20 20 45 71 75 44 |..@. EquD|
00000260 20 20 20 20 48 65 6c 70 53 74 72 69 6e 67 0d 01 | HelpString..|
00000270 4a 20 20 20 20 20 20 20 20 20 45 71 75 44 20 20 |J EquD |
00000280 20 20 30 20 3b 20 63 6f 6d 6d 61 6e 64 73 0d 01 | 0 ; commands..|
00000290 54 25 20 20 20 20 20 20 20 20 45 71 75 44 20 20 |T% EquD |
000002a0 20 20 30 20 3b 20 73 77 69 20 63 68 75 6e 6b 20 | 0 ; swi chunk |
000002b0 6e 6f 2e 0d 01 5e 23 20 20 20 20 20 20 20 20 45 |no...^# E|
000002c0 71 75 44 20 20 20 20 30 20 3b 20 73 77 69 20 68 |quD 0 ; swi h|
000002d0 61 6e 64 6c 65 72 0d 01 68 2a 20 20 20 20 20 20 |andler..h* |
000002e0 20 20 45 71 75 44 20 20 20 20 30 20 3b 20 53 57 | EquD 0 ; SW|
000002f0 49 20 64 65 63 6f 64 69 6e 67 20 74 61 62 6c 65 |I decoding table|
00000300 0d 01 72 29 20 20 20 20 20 20 20 20 45 71 75 44 |..r) EquD|
00000310 20 20 20 20 30 20 3b 20 53 57 49 20 64 65 63 6f | 0 ; SWI deco|
00000320 64 69 6e 67 20 63 6f 64 65 0d 01 7c 04 0d 01 86 |ding code..|....|
00000330 0a f4 20 44 61 74 61 0d 01 90 10 2e 54 69 74 6c |.. Data.....Titl|
00000340 65 53 74 72 69 6e 67 0d 01 9a 1c 20 20 20 20 20 |eString.... |
00000350 20 20 20 45 71 75 5a 20 20 20 20 22 50 43 4b 65 | EquZ "PCKe|
00000360 79 73 22 0d 01 a4 11 20 20 20 20 20 20 20 20 41 |ys".... A|
00000370 6c 69 67 6e 0d 01 ae 0f 2e 48 65 6c 70 53 74 72 |lign.....HelpStr|
00000380 69 6e 67 0d 01 b8 3d 20 20 20 20 20 20 20 20 45 |ing...= E|
00000390 71 75 53 20 20 20 20 22 50 43 20 4b 65 79 73 22 |quS "PC Keys"|
000003a0 2b 28 bd 39 29 2b 28 bd 39 29 2b 22 31 2e 30 30 |+(.9)+(.9)+"1.00|
000003b0 20 28 31 32 20 41 75 67 20 31 39 39 35 29 20 22 | (12 Aug 1995) "|
000003c0 0d 01 c2 2d 20 20 20 20 20 20 20 20 45 71 75 5a |...- EquZ|
000003d0 20 20 20 20 22 a9 20 45 63 68 65 6c 6f 6e 20 53 | ". Echelon S|
000003e0 6f 66 74 77 61 72 65 20 31 39 39 35 22 0d 01 cc |oftware 1995"...|
000003f0 11 20 20 20 20 20 20 20 20 41 6c 69 67 6e 0d 01 |. Align..|
00000400 d6 04 0d 01 e0 0e 2e 44 65 6c 65 74 65 4b 65 79 |.......DeleteKey|
00000410 0d 01 ea 22 20 20 20 20 20 20 20 20 45 71 75 44 |..." EquD|
00000420 20 20 20 20 77 69 6d 70 6b 65 79 5f 64 65 6c 65 | wimpkey_dele|
00000430 74 65 0d 01 f4 12 2e 5f 77 69 6d 70 6b 65 79 5f |te....._wimpkey_|
00000440 63 6f 70 79 0d 01 fe 20 20 20 20 20 20 20 20 20 |copy... |
00000450 45 71 75 44 20 20 20 20 77 69 6d 70 6b 65 79 5f |EquD wimpkey_|
00000460 63 6f 70 79 0d 02 08 11 2e 5f 77 69 6d 70 6b 65 |copy....._wimpke|
00000470 79 5f 65 6e 64 0d 02 12 1f 20 20 20 20 20 20 20 |y_end.... |
00000480 20 45 71 75 44 20 20 20 20 77 69 6d 70 6b 65 79 | EquD wimpkey|
00000490 5f 65 6e 64 0d 02 1c 14 2e 46 69 6c 74 65 72 49 |_end.....FilterI|
000004a0 6e 73 74 61 6c 6c 65 64 0d 02 26 15 20 20 20 20 |nstalled..&. |
000004b0 20 20 20 20 45 71 75 44 20 20 20 20 b9 0d 02 30 | EquD ...0|
000004c0 0d 2e 50 6f 6c 6c 4d 61 73 6b 0d 02 3a 1d 20 20 |..PollMask..:. |
000004d0 20 20 20 20 20 20 45 71 75 44 20 20 20 20 a4 70 | EquD .p|
000004e0 6f 6c 6c 6d 61 73 6b 0d 02 44 04 0d 02 4e 0a f4 |ollmask..D...N..|
000004f0 20 43 6f 64 65 0d 02 58 0d 2e 49 6e 69 74 43 6f | Code..X..InitCo|
00000500 64 65 0d 02 62 24 20 20 20 20 20 20 20 20 53 74 |de..b$ St|
00000510 4d 46 44 20 20 20 52 31 33 21 2c 7b 72 30 2d 72 |MFD R13!,{r0-r|
00000520 33 2c 72 31 34 7d 0d 02 6c 04 0d 02 76 22 20 20 |3,r14}..l...v" |
00000530 20 20 20 20 20 20 41 64 72 20 20 20 20 20 72 30 | Adr r0|
00000540 2c 54 69 74 6c 65 53 74 72 69 6e 67 0d 02 80 1d |,TitleString....|
00000550 20 20 20 20 20 20 20 20 41 64 72 20 20 20 20 20 | Adr |
00000560 72 31 2c 46 69 6c 74 65 72 0d 02 8a 19 20 20 20 |r1,Filter.... |
00000570 20 20 20 20 20 4d 6f 76 20 20 20 20 20 72 32 2c | Mov r2,|
00000580 23 30 0d 02 94 19 20 20 20 20 20 20 20 20 4d 6f |#0.... Mo|
00000590 76 20 20 20 20 20 72 33 2c 23 30 0d 02 9e 1f 20 |v r3,#0.... |
000005a0 20 20 20 20 20 20 20 4c 64 52 20 20 20 20 20 72 | LdR r|
000005b0 34 2c 50 6f 6c 6c 4d 61 73 6b 0d 02 a8 30 20 20 |4,PollMask...0 |
000005c0 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 58 | SWI "X|
000005d0 46 69 6c 74 65 72 5f 52 65 67 69 73 74 65 72 50 |Filter_RegisterP|
000005e0 6f 73 74 46 69 6c 74 65 72 22 0d 02 b2 21 20 20 |ostFilter"...! |
000005f0 20 20 20 20 20 20 42 56 53 20 20 20 20 20 63 6f | BVS co|
00000600 64 65 5f 6e 6f 66 69 6c 74 65 72 0d 02 bc 04 0d |de_nofilter.....|
00000610 02 c6 24 20 20 20 20 20 20 20 20 4d 6f 76 20 20 |..$ Mov |
00000620 20 20 20 52 30 2c 23 76 65 63 74 6f 72 5f 65 76 | R0,#vector_ev|
00000630 65 6e 74 0d 02 d0 20 20 20 20 20 20 20 20 20 41 |ent... A|
00000640 64 52 20 20 20 20 20 52 31 2c 45 76 65 6e 74 43 |dR R1,EventC|
00000650 6f 64 65 0d 02 da 19 20 20 20 20 20 20 20 20 4d |ode.... M|
00000660 6f 76 20 20 20 20 20 52 32 2c 23 30 0d 02 e4 1e |ov R2,#0....|
00000670 20 20 20 20 20 20 20 20 53 57 49 20 20 20 20 20 | SWI |
00000680 22 4f 53 5f 43 6c 61 69 6d 22 0d 02 ee 1a 20 20 |"OS_Claim".... |
00000690 20 20 20 20 20 20 4d 6f 76 20 20 20 20 20 52 30 | Mov R0|
000006a0 2c 23 31 34 0d 02 f8 1a 20 20 20 20 20 20 20 20 |,#14.... |
000006b0 4d 6f 76 20 20 20 20 20 72 31 2c 23 31 31 0d 03 |Mov r1,#11..|
000006c0 02 1d 20 20 20 20 20 20 20 20 53 77 69 20 20 20 |.. Swi |
000006d0 20 20 22 4f 53 5f 42 79 74 65 22 0d 03 0c 12 2e | "OS_Byte".....|
000006e0 63 6f 64 65 5f 6e 6f 66 69 6c 74 65 72 0d 03 16 |code_nofilter...|
000006f0 24 20 20 20 20 20 20 20 20 4c 64 4d 46 44 20 20 |$ LdMFD |
00000700 20 52 31 33 21 2c 7b 72 30 2d 72 33 2c 72 31 34 | R13!,{r0-r3,r14|
00000710 7d 0d 03 20 1f 20 20 20 20 20 20 20 20 41 64 72 |}.. . Adr|
00000720 56 53 20 20 20 52 30 2c 4e 6f 46 69 6c 74 65 72 |VS R0,NoFilter|
00000730 0d 03 2a 0c 20 20 20 20 20 20 20 20 0d 03 34 1b |..*. ..4.|
00000740 20 20 20 20 20 20 20 20 4d 6f 76 20 20 20 20 20 | Mov |
00000750 52 31 35 2c 72 31 34 0d 03 3e 04 0d 03 48 0d 2e |R15,r14..>...H..|
00000760 4e 6f 46 69 6c 74 65 72 0d 03 52 15 20 20 20 20 |NoFilter..R. |
00000770 20 20 20 20 45 71 75 44 20 20 20 20 30 0d 03 5c | EquD 0..\|
00000780 39 20 20 20 20 20 20 20 20 45 71 75 5a 20 20 20 |9 EquZ |
00000790 20 22 46 69 6c 74 65 72 4d 61 6e 61 67 65 72 20 | "FilterManager |
000007a0 6d 6f 64 75 6c 65 20 6e 6f 74 20 69 6e 73 74 61 |module not insta|
000007b0 6c 6c 65 64 2e 22 0d 03 66 11 20 20 20 20 20 20 |lled."..f. |
000007c0 20 20 41 6c 69 67 6e 0d 03 70 0e 2e 46 69 6e 61 | Align..p..Fina|
000007d0 6c 43 6f 64 65 0d 03 7a 23 20 20 20 20 20 20 20 |lCode..z# |
000007e0 20 53 74 4d 46 44 20 20 20 52 31 33 21 2c 7b 72 | StMFD R13!,{r|
000007f0 30 2d 33 2c 72 31 34 7d 0d 03 84 24 20 20 20 20 |0-3,r14}...$ |
00000800 20 20 20 20 4d 6f 76 20 20 20 20 20 52 30 2c 23 | Mov R0,#|
00000810 76 65 63 74 6f 72 5f 65 76 65 6e 74 0d 03 8e 20 |vector_event... |
00000820 20 20 20 20 20 20 20 20 41 64 52 20 20 20 20 20 | AdR |
00000830 52 31 2c 45 76 65 6e 74 43 6f 64 65 0d 03 98 19 |R1,EventCode....|
00000840 20 20 20 20 20 20 20 20 4d 6f 76 20 20 20 20 20 | Mov |
00000850 52 32 2c 23 30 0d 03 a2 20 20 20 20 20 20 20 20 |R2,#0... |
00000860 20 53 77 69 20 20 20 20 20 22 4f 53 5f 52 65 6c | Swi "OS_Rel|
00000870 65 61 73 65 22 0d 03 ac 1a 20 20 20 20 20 20 20 |ease".... |
00000880 20 4d 6f 76 20 20 20 20 20 52 30 2c 23 31 33 0d | Mov R0,#13.|
00000890 03 b6 1a 20 20 20 20 20 20 20 20 4d 6f 76 20 20 |... Mov |
000008a0 20 20 20 52 31 2c 23 31 31 0d 03 c0 1d 20 20 20 | R1,#11.... |
000008b0 20 20 20 20 20 53 77 69 20 20 20 20 20 22 4f 53 | Swi "OS|
000008c0 5f 42 79 74 65 22 0d 03 ca 04 0d 03 d4 26 20 20 |_Byte".......& |
000008d0 20 20 20 20 20 20 4c 64 52 20 20 20 20 20 52 30 | LdR R0|
000008e0 2c 46 69 6c 74 65 72 49 6e 73 74 61 6c 6c 65 64 |,FilterInstalled|
000008f0 0d 03 de 19 20 20 20 20 20 20 20 20 43 6d 70 20 |.... Cmp |
00000900 20 20 20 20 52 30 2c 23 30 0d 03 e8 22 20 20 20 | R0,#0..." |
00000910 20 20 20 20 20 4c 64 4d 45 71 46 44 20 52 31 33 | LdMEqFD R13|
00000920 21 2c 7b 72 30 2d 33 2c 31 35 7d 0d 03 f2 04 0d |!,{r0-3,15}.....|
00000930 03 fc 22 20 20 20 20 20 20 20 20 41 64 72 20 20 |.." Adr |
00000940 20 20 20 72 30 2c 54 69 74 6c 65 53 74 72 69 6e | r0,TitleStrin|
00000950 67 0d 04 06 1d 20 20 20 20 20 20 20 20 41 64 72 |g.... Adr|
00000960 20 20 20 20 20 72 31 2c 46 69 6c 74 65 72 0d 04 | r1,Filter..|
00000970 10 19 20 20 20 20 20 20 20 20 4d 6f 76 20 20 20 |.. Mov |
00000980 20 20 72 32 2c 23 30 0d 04 1a 19 20 20 20 20 20 | r2,#0.... |
00000990 20 20 20 4d 6f 76 20 20 20 20 20 72 33 2c 23 30 | Mov r3,#0|
000009a0 0d 04 24 32 20 20 20 20 20 20 20 20 53 57 49 20 |..$2 SWI |
000009b0 20 20 20 20 22 58 46 69 6c 74 65 72 5f 44 65 52 | "XFilter_DeR|
000009c0 65 67 69 73 74 65 72 50 6f 73 74 46 69 6c 74 65 |egisterPostFilte|
000009d0 72 22 0d 04 2e 22 20 20 20 20 20 20 20 20 42 69 |r"..." Bi|
000009e0 43 56 53 53 20 20 52 31 35 2c 52 31 35 2c 23 31 |CVSS R15,R15,#1|
000009f0 3c 3c 32 38 0d 04 38 04 0d 04 42 23 20 20 20 20 |<<28..8...B# |
00000a00 20 20 20 20 4c 64 4d 46 44 20 20 20 52 31 33 21 | LdMFD R13!|
00000a10 2c 7b 72 30 2d 33 2c 72 31 35 7d 0d 04 4c 04 0d |,{r0-3,r15}..L..|
00000a20 04 56 0c 2e 53 65 72 76 69 63 65 0d 04 60 2b 20 |.V..Service..`+ |
00000a30 20 20 20 20 20 20 20 43 6d 70 20 20 20 20 20 52 | Cmp R|
00000a40 31 2c 23 73 65 72 76 69 63 65 5f 66 69 6c 74 65 |1,#service_filte|
00000a50 72 64 79 69 6e 67 0d 04 6a 2f 20 20 20 20 20 20 |rdying..j/ |
00000a60 20 20 43 6d 70 4e 45 20 20 20 52 31 2c 23 73 65 | CmpNE R1,#se|
00000a70 72 76 69 63 65 5f 66 69 6c 74 65 72 69 6e 73 74 |rvice_filterinst|
00000a80 61 6c 6c 65 64 0d 04 74 1b 20 20 20 20 20 20 20 |alled..t. |
00000a90 20 4d 6f 76 4e 45 20 20 20 52 31 35 2c 52 31 34 | MovNE R15,R14|
00000aa0 0d 04 7e 23 20 20 20 20 20 20 20 20 53 74 4d 46 |..~# StMF|
00000ab0 44 20 20 20 52 31 33 21 2c 7b 72 30 2d 33 2c 72 |D R13!,{r0-3,r|
00000ac0 31 34 7d 0d 04 88 2b 20 20 20 20 20 20 20 20 43 |14}...+ C|
00000ad0 6d 70 20 20 20 20 20 52 31 2c 23 73 65 72 76 69 |mp R1,#servi|
00000ae0 63 65 5f 66 69 6c 74 65 72 64 79 69 6e 67 0d 04 |ce_filterdying..|
00000af0 92 19 20 20 20 20 20 20 20 20 4d 6f 76 45 51 20 |.. MovEQ |
00000b00 20 20 52 30 2c 23 30 0d 04 9c 19 20 20 20 20 20 | R0,#0.... |
00000b10 20 20 20 4d 76 4e 4e 45 20 20 20 52 30 2c 23 30 | MvNNE R0,#0|
00000b20 0d 04 a6 26 20 20 20 20 20 20 20 20 53 74 72 20 |...& Str |
00000b30 20 20 20 20 52 30 2c 46 69 6c 74 65 72 49 6e 73 | R0,FilterIns|
00000b40 74 61 6c 6c 65 64 0d 04 b0 04 0d 04 ba 22 20 20 |talled......." |
00000b50 20 20 20 20 20 20 41 64 72 4e 45 20 20 20 72 30 | AdrNE r0|
00000b60 2c 54 69 74 6c 65 53 74 72 69 6e 67 0d 04 c4 1d |,TitleString....|
00000b70 20 20 20 20 20 20 20 20 41 64 72 4e 45 20 20 20 | AdrNE |
00000b80 72 31 2c 46 69 6c 74 65 72 0d 04 ce 19 20 20 20 |r1,Filter.... |
00000b90 20 20 20 20 20 4d 6f 76 4e 45 20 20 20 72 32 2c | MovNE r2,|
00000ba0 23 30 0d 04 d8 19 20 20 20 20 20 20 20 20 4d 6f |#0.... Mo|
00000bb0 76 4e 45 20 20 20 72 33 2c 23 30 0d 04 e2 30 20 |vNE r3,#0...0 |
00000bc0 20 20 20 20 20 20 20 53 57 49 4e 45 20 20 20 22 | SWINE "|
00000bd0 58 46 69 6c 74 65 72 5f 52 65 67 69 73 74 65 72 |XFilter_Register|
00000be0 50 6f 73 74 46 69 6c 74 65 72 22 0d 04 ec 04 0d |PostFilter".....|
00000bf0 04 f6 23 20 20 20 20 20 20 20 20 4c 64 4d 46 44 |..# LdMFD|
00000c00 20 20 20 52 31 33 21 2c 7b 72 30 2d 33 2c 72 31 | R13!,{r0-3,r1|
00000c10 35 7d 0d 05 00 04 0d 05 0a 0e 2e 45 76 65 6e 74 |5}.........Event|
00000c20 43 6f 64 65 0d 05 14 20 20 20 20 20 20 20 20 20 |Code... |
00000c30 53 74 4d 46 44 20 20 20 52 31 33 21 2c 7b 72 30 |StMFD R13!,{r0|
00000c40 2c 31 34 7d 0d 05 1e 21 20 20 20 20 20 20 20 20 |,14}...! |
00000c50 43 6d 70 20 20 20 20 20 52 30 2c 23 65 76 65 6e |Cmp R0,#even|
00000c60 74 5f 6b 65 79 0d 05 28 18 20 20 20 20 20 20 20 |t_key..(. |
00000c70 20 43 6d 70 45 71 20 20 20 31 2c 23 31 0d 05 32 | CmpEq 1,#1..2|
00000c80 20 20 20 20 20 20 20 20 20 4c 64 4d 4e 45 46 44 | LdMNEFD|
00000c90 20 52 31 33 21 2c 7b 72 30 2c 31 35 7d 0d 05 3c | R13!,{r0,15}..<|
00000ca0 25 20 20 20 20 20 20 20 20 43 6d 70 20 20 20 20 |% Cmp |
00000cb0 20 52 32 2c 23 6b 65 79 5f 62 61 63 6b 73 70 61 | R2,#key_backspa|
00000cc0 63 65 0d 05 46 26 20 20 20 20 20 20 20 20 4d 6f |ce..F& Mo|
00000cd0 76 45 71 20 20 20 72 30 2c 23 77 69 6d 70 6b 65 |vEq r0,#wimpke|
00000ce0 79 5f 64 65 6c 65 74 65 0d 05 50 20 20 20 20 20 |y_delete..P |
00000cf0 20 20 20 20 53 74 52 45 71 20 20 20 72 30 2c 44 | StREq r0,D|
00000d00 65 6c 65 74 65 4b 65 79 0d 05 5a 22 20 20 20 20 |eleteKey..Z" |
00000d10 20 20 20 20 43 6d 70 20 20 20 20 20 52 32 2c 23 | Cmp R2,#|
00000d20 6b 65 79 5f 64 65 6c 65 74 65 0d 05 64 0d 20 20 |key_delete..d. |
00000d30 20 20 20 20 20 20 3b 0d 05 6e 24 20 20 20 20 20 | ;..n$ |
00000d40 20 20 20 4c 64 52 45 71 20 20 20 52 30 2c 5f 77 | LdREq R0,_w|
00000d50 69 6d 70 6b 65 79 5f 63 6f 70 79 0d 05 78 0d 20 |impkey_copy..x. |
00000d60 20 20 20 20 20 20 20 3b 0d 05 82 20 20 20 20 20 | ;... |
00000d70 20 20 20 20 53 74 52 45 71 20 20 20 52 30 2c 44 | StREq R0,D|
00000d80 65 6c 65 74 65 4b 65 79 0d 05 8c 1f 20 20 20 20 |eleteKey.... |
00000d90 20 20 20 20 4c 64 4d 46 44 20 20 52 31 33 21 2c | LdMFD R13!,|
00000da0 7b 72 30 2c 31 35 7d 0d 05 96 04 0d 05 a0 0b 2e |{r0,15}.........|
00000db0 46 69 6c 74 65 72 0d 05 aa 20 20 20 20 20 20 20 |Filter... |
00000dc0 20 20 43 6d 70 20 20 20 20 20 52 30 2c 23 70 6f | Cmp R0,#po|
00000dd0 6c 6c 5f 6b 65 79 0d 05 b4 1b 20 20 20 20 20 20 |ll_key.... |
00000de0 20 20 4d 6f 76 4e 45 53 20 20 52 31 35 2c 52 31 | MovNES R15,R1|
00000df0 34 0d 05 be 3e 20 20 20 20 20 20 20 20 3b 20 52 |4...> ; R|
00000e00 69 67 68 74 2c 20 77 65 27 72 65 20 64 65 61 6c |ight, we're deal|
00000e10 69 6e 67 20 77 69 74 68 20 61 20 6b 65 79 2d 70 |ing with a key-p|
00000e20 72 65 73 73 20 65 76 65 6e 74 20 6e 6f 77 2e 0d |ress event now..|
00000e30 05 c8 24 20 20 20 20 20 20 20 20 53 74 4d 46 44 |..$ StMFD|
00000e40 20 20 20 72 31 33 21 2c 7b 72 30 2d 72 33 2c 72 | r13!,{r0-r3,r|
00000e50 31 34 7d 0d 05 d2 1f 20 20 20 20 20 20 20 20 4c |14}.... L|
00000e60 64 52 20 20 20 20 20 52 30 2c 5b 72 31 2c 23 32 |dR R0,[r1,#2|
00000e70 34 5d 0d 05 dc 19 20 20 20 20 20 20 20 20 4d 6f |4].... Mo|
00000e80 76 20 20 20 20 20 52 32 2c 52 30 0d 05 e6 24 20 |v R2,R0...$ |
00000e90 20 20 20 20 20 20 20 4c 64 52 20 20 20 20 20 52 | LdR R|
00000ea0 33 2c 5f 77 69 6d 70 6b 65 79 5f 63 6f 70 79 0d |3,_wimpkey_copy.|
00000eb0 05 f0 19 20 20 20 20 20 20 20 20 43 6d 70 20 20 |... Cmp |
00000ec0 20 20 20 52 32 2c 72 33 0d 05 fa 23 20 20 20 20 | R2,r3...# |
00000ed0 20 20 20 20 4c 64 52 45 71 20 20 20 52 30 2c 5f | LdREq R0,_|
00000ee0 77 69 6d 70 6b 65 79 5f 65 6e 64 0d 06 04 26 20 |wimpkey_end...& |
00000ef0 20 20 20 20 20 20 20 43 6d 70 20 20 20 20 20 52 | Cmp R|
00000f00 32 2c 23 77 69 6d 70 6b 65 79 5f 64 65 6c 65 74 |2,#wimpkey_delet|
00000f10 65 0d 06 0e 20 20 20 20 20 20 20 20 20 4c 64 52 |e... LdR|
00000f20 45 71 20 20 20 52 30 2c 44 65 6c 65 74 65 4b 65 |Eq R0,DeleteKe|
00000f30 79 0d 06 18 1f 20 20 20 20 20 20 20 20 53 74 52 |y.... StR|
00000f40 20 20 20 20 20 52 30 2c 5b 72 31 2c 23 32 34 5d | R0,[r1,#24]|
00000f50 0d 06 22 24 20 20 20 20 20 20 20 20 4c 64 4d 46 |.."$ LdMF|
00000f60 44 20 20 20 52 31 33 21 2c 7b 72 30 2d 72 33 2c |D R13!,{r0-r3,|
00000f70 72 31 35 7d 0d 06 2c 04 0d 06 36 04 0d 06 40 05 |r15}..,...6...@.|
00000f80 5d 0d 06 4a 05 ed 0d 06 54 04 0d 06 5e 3c c8 99 |]..J....T...^<..|
00000f90 20 22 4f 53 5f 46 69 6c 65 22 2c 31 30 2c 22 3c | "OS_File",10,"<|
00000fa0 4f 62 65 79 24 44 69 72 3e 2e 50 43 4b 65 79 73 |Obey$Dir>.PCKeys|
00000fb0 22 2c 26 66 66 61 2c 2c 63 6f 64 65 25 2c 50 25 |",&ffa,,code%,P%|
00000fc0 2b 63 6f 64 65 25 0d 06 68 04 0d 06 72 05 e0 0d |+code%..h...r...|
00000fd0 06 7c 04 0d 06 86 04 0d 06 90 0f dd 20 a4 70 6f |.|.......... .po|
00000fe0 6c 6c 6d 61 73 6b 0d 06 9a 0d 20 20 ea 20 6d 61 |llmask.... . ma|
00000ff0 73 6b 25 0d 06 9b 23 20 20 6d 61 73 6b 25 20 3d |sk%...# mask% =|
00001000 20 25 31 31 31 30 30 30 30 31 31 30 30 30 30 31 | %11100001100001|
00001010 31 31 30 30 31 31 0d 06 b8 0b 3a 3d 6d 61 73 6b |110011....:=mask|
00001020 25 0d ff |%..|
00001023 
.