Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars » StarInfo/L-Jones/!Quotes/SourceCode
StarInfo/L-Jones/!Quotes/SourceCode
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-01.adf » Regulars |
| Filename: | StarInfo/L-Jones/!Quotes/SourceCode |
| Read OK: | ✔ |
| File size: | 221A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > SmartQuSrc
20REM The Flying Pig!
30REM 25/7/1995
40REM To alter quotation marks
50:
60DIM code% 3000
70wp=12
80sp=13
90link=14
100pc=15
110:
120taskhandle=256
130FOR I%=4 TO 6 STEP 2:P%=0:O%=code%
140[OPT I%
150 EQUD StartCode
160 EQUD InitCode
170 EQUD FinalCode
180 EQUD ServiceCode
190 EQUD TitleString
200 EQUD HelpString
210 EQUD HelpTable
220 EQUD 0 \ SWI chunk number
230 EQUD 0 \ SWI handler
240 EQUD 0 \ SWI decode table
250 EQUD 0 \ SWI decode code
260
270.TitleString
280 EQUS "SmartQuotes"
290 EQUB 0
300 ALIGN
310
320.HelpString
330 EQUS "SmartQuotes"
340 EQUB 9
350 EQUS "1.00 (26 Jul 1995)"
360 EQUB 0
370 ALIGN
380
390.HelpTable
400 EQUS "Desktop_SmartQuotes"
410 EQUB 0
420 ALIGN
430 EQUD StarCommand
440 EQUD 0
450 EQUD synt1
460 EQUD help1
470
480 EQUS "Quotes"
490 EQUB 0
500 ALIGN
510 EQUD quotecode
520 EQUB 0
530 EQUB 0
540 EQUB 1
550 EQUB 0
560 EQUD synt2
570 EQUD help2
580 EQUB 0
590
600.help1 EQUS "Do not use *Desktop_SmartQuotes, use *Desktop instead."
610 EQUB 13
620.synt1 EQUS "Syntax: *Desktop_SmartQuotes"
630 EQUB 0
640.help2 EQUS "*Quotes turns quote conversion on or off, or gives the current setting. "
650 EQUS "When active, an attempt is made to intelligently convert quotes typed as """" or ''"
660 EQUS "into their counter parts �� or �� respectively."
670 EQUB 13
680.synt2 EQUS "Syntax: *Quotes ON|OFF"
690 EQUB 0
700 ALIGN
710
720
730.InitCode
740 STMFD (sp)!,{R7-R11,link}
750 MOV R0,#6
760 MOV R3,#256
770 SWI "XOS_Module"
780 BVS InitExit
790 STR R2,[wp]
800 MOV R0,#0
810 STR R0,[R2,#taskhandle]
820.InitExit
830 LDMFD (sp)!,{R7-R11,pc}
840
850
860.StarCommand
870 STMFD (sp)!,{link}
880 MOV R2,R0
890 ADR R1,TitleString
900 MOV R0,#2
910 SWI "XOS_Module" ; enter as language
920 LDMFD (sp)!,{pc}
930
940.StartCode
950 LDR wp,[R12]
960 LDR R0,[wp,#taskhandle]
970 TEQ R0,#0
980 LDRGT R1,TASK
990 SWIGT "XWimp_CloseDown"
1000 MOVGT R0,#0
1010 STRGT R0,[wp,#taskhandle]
1020
1030
1040 LDRB 0,enable
1050 CMP 0,#1
1060 MOVNE 0,#&14
1070 ADRNE 1,vectorcode14
1080 ADRNE 2,work
1090 SWINE "XOS_Claim"
1100 MOV 0,#1
1110 STRB 0,enable
1120
1130 MOV R0,#200
1140 LDR R1,TASK
1150 ADR R2,TitleString
1160 SWI "XWimp_Initialise"
1170 SWIVS "XOS_Exit"
1180 STR R1,[R12,#taskhandle]
1190 FNassemble2
1200.end
1210 SWI "XWimp_CloseDown"
1220 MOV R1,#0
1230 STR R1,[wp,#taskhandle]
1240 SWI "XOS_Exit"
1250.FinalCode
1260 STMFD (sp)!,{R7-R11,link}
1270 LDR wp,[R12]
1280
1290 LDRB 0,enable
1300 CMP 0,#0
1310 MOV 0,#&14
1320 ADR 1,vectorcode14
1330 ADR 2,work
1340 SWINE "XOS_Release"
1350 MOV 0,#0
1360 STRB 0,enable
1370
1380 LDR R0,[wp,#taskhandle]
1390 TEQ R0,#0
1400 LDRGT R1,TASK
1410 SWIGT "XWimp_CloseDown"
1420 MOV R1,#0
1430 STR R1,[wp,#taskhandle]
1440
1450 MOV R0,#7
1460 MOV R2,wp
1470 SWI "OS_Module"
1480 LDMFD (sp)!,{R7-R11,pc}
1490
1500.ServiceCode
1510 LDR wp,[wp]
1520 STMFD (sp)!,{link}
1530 TEQ R1,#&49
1540 BEQ StartWimp
1550 TEQ R1,#&4A
1560 BEQ StartedWimp
1570 TEQ R1,#&27
1580 MOVEQ R14,#0
1590 STREQ R14,[wp,#taskhandle]
1600 LDMFD (sp)!,{pc}
1610
1620.StartWimp
1630 LDR R14,[wp,#taskhandle]
1640 TEQ R14,#0
1650 MVNEQ R14,#0
1660 STREQ R14,[wp,#taskhandle]
1670 ADREQ R1,HelpTable
1680 MOVEQ R0,R1
1690 MOVEQ R1,#0
1700 LDMFD (sp)!,{pc}
1710
1720.StartedWimp
1730 LDR R14,[wp,#taskhandle]
1740 CMN R14,#1
1750 MOVEQ R14,#0
1760 STREQ R14,[wp,#taskhandle]
1770 LDMFD (sp)!,{pc}
1780
1790.quotecode
1800 STMFD (sp)!,{link}
1810 LDRB 1,[0],#1
1820 CMP 1,#32
1830 BLT quotestate
1840 CMP 1,#79
1850 CMPNE 1,#111
1860 BNE unknown
1870 LDRB 1,[0],#1
1880 CMP 1,#78
1890 CMPNE 1,#110
1900 BEQ quoteson
1910 CMP 1,#70
1920 CMPNE 1,#102
1930 BEQ quotesoff
1940 LDMFD (sp)!,{pc}
1950.quoteson
1960 LDRB 1,[0],#1
1970 CMP 1,#32
1980 BGE unknown
1990 LDRB 0,enable
2000 CMP 0,#1
2010 MOVNE 0,#&14
2020 ADRNE 1,vectorcode14
2030 ADRNE 2,work
2040 SWINE "XOS_Claim"
2050 MOV 0,#1
2060 STRB 0,enable
2070 LDMFD (sp)!,{pc}
2080
2090.quotesoff
2100 LDRB 1,[0],#1
2110 CMP 1,#70
2120 CMPNE 1,#102
2130 BNE unknown
2140 LDRB 1,[0],#1
2150 CMP 1,#32
2160 BGE unknown
2170 LDRB 0,enable
2180 CMP 0,#0
2190 MOV 0,#&14
2200 ADR 1,vectorcode14
2210 ADR 2,work
2220 SWINE "XOS_Release"
2230 MOV 0,#0
2240 STRB 0,enable
2250 LDMFD (sp)!,{pc}
2260
2270.quotestate
2280 LDRB 0,enable
2290 CMP 0,#1
2300 ADREQ 0,onstring
2310 ADRNE 0,offstring
2320 SWI "OS_Write0"
2330 SWI "OS_NewLine"
2340 LDMFD (sp)!,{pc}
2350
2360.onstring
2370 EQUS "Quotes On"
2380 EQUD 0
2390.offstring
2400 EQUS "Quotes Off"
2410 EQUD 0
2420 ALIGN
2430.unknown
2440 MOV 0,PC
2450 ORR 0,0,#%1<<28
2460 TEQNEP 0,#0
2470 MOVNV 0,0
2480 ADR 0,error
2490 LDMFD (sp)!,{pc}
2500.error
2510 EQUD 220
2520 EQUS "Syntax: *Quotes ON|OFF"
2530 EQUB 0
2540 ALIGN
2550
2560.TASK EQUS "TASK"
2570 \ 11111111110000000000
2580 \ 98765432109876543210
2590]NEXT
2600SYS "OS_File",10,"SmartQuote",&FFA,,code%,O%
2610END
2620
2630REM > Add
2640REM Saves key presses
2650REM By The Flying Pig!
2660REM 16/6/1992
2670
2680
2690DEFFNassemble2
2700
2710[ OPT I%
2720.begin
2730.poll MOV 0,#254
2740 MOV 1,wp
2750 SWI "XWimp_Poll"
2760 CMP 0,#17
2770 CMPNE 0,#18
2780 BEQ receive
2790 MOV 1,#1
2800 STRB 1,desktop
2810 LDRB 1,keypressed
2820 CMP 1,#0
2830 BNE insert
2840 B poll
2850
2860.receive LDR 4,[1,#16]
2870 CMP 4,#0
2880 BNE poll
2890 B end
2900 MOV pc,link
2910.enable EQUB 0
2920 ALIGN
2930.keypressed
2940 EQUB 0
2950.key EQUB 0
2960 ALIGN
2970.insert
2980 MOV 0,#0
2990 STRB 0,keypressed
3000 CMP 1,#34
3010 MOVEQ 0,#149
3020 MOVNE 0,#145
3030 LDRB 1,key
3040 CMP 1,#13
3050 CMPNE 1,#32
3060 CMPNE 1,#138
3070 SUBEQ 0,0,#1
3080 STRB 0,key
3090 SWI "Wimp_ProcessKey"
3100 B poll
3110.restore EQUD 0
3120.desktop EQUB 0
3130 ALIGN
3140
3150.vectorcode14
3160 CMP 1,#0
3170 MOVNE PC,14
3180 STR 3,restore
3190 LDRB 3,desktop
3200 SUBS 3,3,#1
3210 STRB 3,desktop
3220 LDR 3,restore
3230 MOVNE PC,14
3240
3250 CMP 0,#34
3260 CMPNE 0,#39
3270 STREQ 0,desktop
3280 STREQB 0,keypressed
3290 LDMEQFD R13!,{PC}
3300
3310 STRB 0,key
3320
3330 MOV PC,14
3340
3350 EQUB 10
3360 EQUB 10
3370 EQUS "The Flying Pig!"
3380 EQUB 10
3390 EQUB 10
3400 EQUS "22 Grasmere Road,"
3410 EQUB 10
3420 EQUS "Thundersley,"
3430 EQUB 10
3440 EQUS "Essex,"
3450 EQUB 10
3460 EQUS "SS7 3HF."
3470 EQUB 10
3480 EQUB 10
3490 EQUS "Tel:01268 759268"
3500 EQUB 10
3510 EQUB 10
3520 ALIGN
3530.work
3540]=0
� > SmartQuSrc
� The Flying Pig!
� 25/7/1995
( � To alter quotation marks
2:
<� code% 3000
F wp=12
P sp=13
Z link=14
d pc=15
n:
xtaskhandle=256
� � I%=4 � 6 � 2:P%=0:O%=code%
� [OPT I%
� EQUD StartCode
� EQUD InitCode
� EQUD FinalCode
� EQUD ServiceCode
� EQUD TitleString
� EQUD HelpString
� EQUD HelpTable
�( EQUD 0 \ SWI chunk number
�# EQUD 0 \ SWI handler
�( EQUD 0 \ SWI decode table
�' EQUD 0 \ SWI decode code
.TitleString
EQUS "SmartQuotes"
" EQUB 0
, ALIGN
6
@.HelpString
J EQUS "SmartQuotes"
T EQUB 9
^% EQUS "1.00 (26 Jul 1995)"
h EQUB 0
r ALIGN
|
�.HelpTable
�& EQUS "Desktop_SmartQuotes"
� EQUB 0
� ALIGN
� EQUD StarCommand
� EQUD 0
� EQUD synt1
� EQUD help1
�
� EQUS "Quotes"
� EQUB 0
� ALIGN
� EQUD quotecode
EQUB 0
EQUB 0
EQUB 1
& EQUB 0
0 EQUD synt2
: EQUD help2
D EQUB 0
N
XI.help1 EQUS "Do not use *Desktop_SmartQuotes, use *Desktop instead."
b EQUB 13
l/.synt1 EQUS "Syntax: *Desktop_SmartQuotes"
v EQUB 0
�[.help2 EQUS "*Quotes turns quote conversion on or off, or gives the current setting. "
�f EQUS "When active, an attempt is made to intelligently convert quotes typed as """" or ''"
�B EQUS "into their counter parts �� or �� respectively."
� EQUB 13
�).synt2 EQUS "Syntax: *Quotes ON|OFF"
� EQUB 0
� ALIGN
�
�
�
.InitCode
�' STMFD (sp)!,{R7-R11,link}
� MOV R0,#6
� MOV R3,#256
SWI "XOS_Module"
BVS InitExit
STR R2,[wp]
MOV R0,#0
*' STR R0,[R2,#taskhandle]
4
.InitExit
>% LDMFD (sp)!,{R7-R11,pc}
H
R
\.StarCommand
f STMFD (sp)!,{link}
p MOV R2,R0
z" ADR R1,TitleString
� MOV R0,#2
�? SWI "XOS_Module" ; enter as language
� LDMFD (sp)!,{pc}
�
�.StartCode
� LDR wp,[R12]
�' LDR R0,[wp,#taskhandle]
� TEQ R0,#0
� LDRGT R1,TASK
�% SWIGT "XWimp_CloseDown"
� MOVGT R0,#0
�' STRGT R0,[wp,#taskhandle]
�
LDRB 0,enable
CMP 0,#1
$ MOVNE 0,#&14
.$ ADRNE 1,vectorcode14
8 ADRNE 2,work
B! SWINE "XOS_Claim"
L MOV 0,#1
V STRB 0,enable
`
j MOV R0,#200
t LDR R1,TASK
~" ADR R2,TitleString
�& SWI "XWimp_Initialise"
� SWIVS "XOS_Exit"
�( STR R1,[R12,#taskhandle]
� �assemble2
�.end
�% SWI "XWimp_CloseDown"
� MOV R1,#0
�' STR R1,[wp,#taskhandle]
� SWI "XOS_Exit"
�.FinalCode
�' STMFD (sp)!,{R7-R11,link}
� LDR wp,[R12]
LDRB 0,enable
CMP 0,#0
MOV 0,#&14
($ ADR 1,vectorcode14
2 ADR 2,work
<# SWINE "XOS_Release"
F MOV 0,#0
P STRB 0,enable
Z
d' LDR R0,[wp,#taskhandle]
n TEQ R0,#0
x LDRGT R1,TASK
�% SWIGT "XWimp_CloseDown"
� MOV R1,#0
�' STR R1,[wp,#taskhandle]
�
� MOV R0,#7
� MOV R2,wp
� SWI "OS_Module"
�% LDMFD (sp)!,{R7-R11,pc}
�
�.ServiceCode
� LDR wp,[wp]
� STMFD (sp)!,{link}
� TEQ R1,#&49
BEQ StartWimp
TEQ R1,#&4A
BEQ StartedWimp
" TEQ R1,#&27
, �Q R14,#0
6( STREQ R14,[wp,#taskhandle]
@ LDMFD (sp)!,{pc}
J
T.StartWimp
^( LDR R14,[wp,#taskhandle]
h TEQ R14,#0
r MVNEQ R14,#0
|( STREQ R14,[wp,#taskhandle]
� ADREQ R1,HelpTable
� �Q R0,R1
� �Q R1,#0
� LDMFD (sp)!,{pc}
�
�.StartedWimp
�( LDR R14,[wp,#taskhandle]
� CMN R14,#1
� �Q R14,#0
�( STREQ R14,[wp,#taskhandle]
� LDMFD (sp)!,{pc}
�
�.quotecode
STMFD (sp)!,{link}
LDRB 1,[0],#1
CMP 1,#32
& BLT quotestate
0 CMP 1,#79
: CMPNE 1,#111
D BNE unknown
N LDRB 1,[0],#1
X CMP 1,#78
b CMPNE 1,#110
l BEQ quoteson
v CMP 1,#70
� CMPNE 1,#102
� BEQ quotesoff
� LDMFD (sp)!,{pc}
�
.quoteson
� LDRB 1,[0],#1
� CMP 1,#32
� BGE unknown
� LDRB 0,enable
� CMP 0,#1
� MOVNE 0,#&14
�$ ADRNE 1,vectorcode14
� ADRNE 2,work
�! SWINE "XOS_Claim"
MOV 0,#1
STRB 0,enable
LDMFD (sp)!,{pc}
*.quotesoff
4 LDRB 1,[0],#1
> CMP 1,#70
H CMPNE 1,#102
R BNE unknown
\ LDRB 1,[0],#1
f CMP 1,#32
p BGE unknown
z LDRB 0,enable
� CMP 0,#0
� MOV 0,#&14
�$ ADR 1,vectorcode14
� ADR 2,work
�# SWINE "XOS_Release"
� MOV 0,#0
� STRB 0,enable
� LDMFD (sp)!,{pc}
�
�.quotestate
� LDRB 0,enable
� CMP 0,#1
� ADREQ 0,onstring
ADRNE 0,offstring
SWI "OS_Write0"
SWI "OS_NewLine"
$ LDMFD (sp)!,{pc}
.
8
.onstring
B EQUS "Quotes On"
L EQUD 0
V.offstring
` EQUS "Quotes Off"
j EQUD 0
t ALIGN
~ .unknown
� MOV 0,PC
� �R 0,0,#%1<<28
� TEQNEP 0,#0
� MOVNV 0,0
� ADR 0,error
� LDMFD (sp)!,{pc}
�
.error
� EQUD 220
�. EQUS "Syntax: *Quotes ON|OFF"
� EQUB 0
� ALIGN
�
.TASK EQUS "TASK"
) \ 11111111110000000000
) \ 98765432109876543210
]�
(/ș "OS_File",10,"SmartQuote",&FFA,,code%,O%
2�
<
F � > Add
P� Saves key presses
Z� By The Flying Pig!
d� 16/6/1992
n
x
�ݤassemble2
�
� [ OPT I%
�
.begin
� .poll MOV 0,#254
� MOV 1,wp
�" SWI "XWimp_Poll"
� CMP 0,#17
� CMPNE 0,#18
� BEQ receive
� MOV 1,#1
� STRB 1,desktop
�" LDRB 1,keypressed
CMP 1,#0
BNE insert
B poll
"
, .receive LDR 4,[1,#16]
6 CMP 4,#0
@ BNE poll
J B end
T MOV pc,link
^.enable EQUB 0
h ALIGN
r.keypressed
| EQUB 0
�.key EQUB 0
� ALIGN
� .insert
� MOV 0,#0
�" STRB 0,keypressed
� CMP 1,#34
� �Q 0,#149
� MOVNE 0,#145
� LDRB 1,key
� CMP 1,#13
� CMPNE 1,#32
� CMPNE 1,#138
� SUBEQ 0,0,#1
STRB 0,key
' SWI "Wimp_ProcessKey"
B poll
&.restore EQUD 0
0.desktop EQUB 0
: ALIGN
D
N.vectorcode14
X CMP 1,#0
b MOVNE PC,14
l STR 3,restore
v LDRB 3,desktop
� SUBS 3,3,#1
� STRB 3,desktop
� LDR 3,restore
� MOVNE PC,14
�
� CMP 0,#34
� CMPNE 0,#39
� STREQ 0,desktop
�# STREQB 0,keypressed
�! LDMEQFD R13!,{PC}
�
� STRB 0,key
�
MOV PC,14
EQUB 10
EQUB 10
*' EQUS "The Flying Pig!"
4 EQUB 10
> EQUB 10
H) EQUS "22 Grasmere Road,"
R EQUB 10
\$ EQUS "Thundersley,"
f EQUB 10
p EQUS "Essex,"
z EQUB 10
� EQUS "SS7 3HF."
� EQUB 10
� EQUB 10
�( EQUS "Tel:01268 759268"
� EQUB 10
� EQUB 10
� ALIGN
� .work
�]=0
� 00000000 0d 00 0a 12 f4 20 3e 20 53 6d 61 72 74 51 75 53 |..... > SmartQuS|
00000010 72 63 0d 00 14 17 f4 20 20 20 54 68 65 20 46 6c |rc..... The Fl|
00000020 79 69 6e 67 20 50 69 67 21 0d 00 1e 11 f4 20 20 |ying Pig!..... |
00000030 20 32 35 2f 37 2f 31 39 39 35 0d 00 28 20 f4 20 | 25/7/1995..( . |
00000040 20 20 54 6f 20 61 6c 74 65 72 20 71 75 6f 74 61 | To alter quota|
00000050 74 69 6f 6e 20 6d 61 72 6b 73 0d 00 32 05 3a 0d |tion marks..2.:.|
00000060 00 3c 10 de 20 63 6f 64 65 25 20 33 30 30 30 0d |.<.. code% 3000.|
00000070 00 46 09 77 70 3d 31 32 0d 00 50 09 73 70 3d 31 |.F.wp=12..P.sp=1|
00000080 33 0d 00 5a 0b 6c 69 6e 6b 3d 31 34 0d 00 64 09 |3..Z.link=14..d.|
00000090 70 63 3d 31 35 0d 00 6e 05 3a 0d 00 78 12 74 61 |pc=15..n.:..x.ta|
000000a0 73 6b 68 61 6e 64 6c 65 3d 32 35 36 0d 00 82 20 |skhandle=256... |
000000b0 e3 20 49 25 3d 34 20 b8 20 36 20 88 20 32 3a 50 |. I%=4 . 6 . 2:P|
000000c0 25 3d 30 3a 4f 25 3d 63 6f 64 65 25 0d 00 8c 0b |%=0:O%=code%....|
000000d0 5b 4f 50 54 20 49 25 0d 00 96 1a 20 20 20 20 20 |[OPT I%.... |
000000e0 20 20 20 45 51 55 44 20 53 74 61 72 74 43 6f 64 | EQUD StartCod|
000000f0 65 0d 00 a0 19 20 20 20 20 20 20 20 20 45 51 55 |e.... EQU|
00000100 44 20 49 6e 69 74 43 6f 64 65 0d 00 aa 1a 20 20 |D InitCode.... |
00000110 20 20 20 20 20 20 45 51 55 44 20 46 69 6e 61 6c | EQUD Final|
00000120 43 6f 64 65 0d 00 b4 1c 20 20 20 20 20 20 20 20 |Code.... |
00000130 45 51 55 44 20 53 65 72 76 69 63 65 43 6f 64 65 |EQUD ServiceCode|
00000140 0d 00 be 1c 20 20 20 20 20 20 20 20 45 51 55 44 |.... EQUD|
00000150 20 54 69 74 6c 65 53 74 72 69 6e 67 0d 00 c8 1b | TitleString....|
00000160 20 20 20 20 20 20 20 20 45 51 55 44 20 48 65 6c | EQUD Hel|
00000170 70 53 74 72 69 6e 67 0d 00 d2 1a 20 20 20 20 20 |pString.... |
00000180 20 20 20 45 51 55 44 20 48 65 6c 70 54 61 62 6c | EQUD HelpTabl|
00000190 65 0d 00 dc 28 20 20 20 20 20 20 20 20 45 51 55 |e...( EQU|
000001a0 44 20 30 20 20 20 20 5c 20 53 57 49 20 63 68 75 |D 0 \ SWI chu|
000001b0 6e 6b 20 6e 75 6d 62 65 72 0d 00 e6 23 20 20 20 |nk number...# |
000001c0 20 20 20 20 20 45 51 55 44 20 30 20 20 20 20 5c | EQUD 0 \|
000001d0 20 53 57 49 20 68 61 6e 64 6c 65 72 0d 00 f0 28 | SWI handler...(|
000001e0 20 20 20 20 20 20 20 20 45 51 55 44 20 30 20 20 | EQUD 0 |
000001f0 20 20 5c 20 53 57 49 20 64 65 63 6f 64 65 20 74 | \ SWI decode t|
00000200 61 62 6c 65 0d 00 fa 27 20 20 20 20 20 20 20 20 |able...' |
00000210 45 51 55 44 20 30 20 20 20 20 5c 20 53 57 49 20 |EQUD 0 \ SWI |
00000220 64 65 63 6f 64 65 20 63 6f 64 65 0d 01 04 04 0d |decode code.....|
00000230 01 0e 10 2e 54 69 74 6c 65 53 74 72 69 6e 67 0d |....TitleString.|
00000240 01 18 1e 20 20 20 20 20 20 20 20 45 51 55 53 20 |... EQUS |
00000250 22 53 6d 61 72 74 51 75 6f 74 65 73 22 0d 01 22 |"SmartQuotes".."|
00000260 12 20 20 20 20 20 20 20 20 45 51 55 42 20 30 0d |. EQUB 0.|
00000270 01 2c 11 20 20 20 20 20 20 20 20 41 4c 49 47 4e |.,. ALIGN|
00000280 0d 01 36 04 0d 01 40 0f 2e 48 65 6c 70 53 74 72 |..6...@..HelpStr|
00000290 69 6e 67 0d 01 4a 1e 20 20 20 20 20 20 20 20 45 |ing..J. E|
000002a0 51 55 53 20 22 53 6d 61 72 74 51 75 6f 74 65 73 |QUS "SmartQuotes|
000002b0 22 0d 01 54 12 20 20 20 20 20 20 20 20 45 51 55 |"..T. EQU|
000002c0 42 20 39 0d 01 5e 25 20 20 20 20 20 20 20 20 45 |B 9..^% E|
000002d0 51 55 53 20 22 31 2e 30 30 20 28 32 36 20 4a 75 |QUS "1.00 (26 Ju|
000002e0 6c 20 31 39 39 35 29 22 0d 01 68 12 20 20 20 20 |l 1995)"..h. |
000002f0 20 20 20 20 45 51 55 42 20 30 0d 01 72 11 20 20 | EQUB 0..r. |
00000300 20 20 20 20 20 20 41 4c 49 47 4e 0d 01 7c 04 0d | ALIGN..|..|
00000310 01 86 0e 2e 48 65 6c 70 54 61 62 6c 65 0d 01 90 |....HelpTable...|
00000320 26 20 20 20 20 20 20 20 20 45 51 55 53 20 22 44 |& EQUS "D|
00000330 65 73 6b 74 6f 70 5f 53 6d 61 72 74 51 75 6f 74 |esktop_SmartQuot|
00000340 65 73 22 0d 01 9a 12 20 20 20 20 20 20 20 20 45 |es".... E|
00000350 51 55 42 20 30 0d 01 a4 11 20 20 20 20 20 20 20 |QUB 0.... |
00000360 20 41 4c 49 47 4e 0d 01 ae 1c 20 20 20 20 20 20 | ALIGN.... |
00000370 20 20 45 51 55 44 20 53 74 61 72 43 6f 6d 6d 61 | EQUD StarComma|
00000380 6e 64 0d 01 b8 12 20 20 20 20 20 20 20 20 45 51 |nd.... EQ|
00000390 55 44 20 30 0d 01 c2 16 20 20 20 20 20 20 20 20 |UD 0.... |
000003a0 45 51 55 44 20 73 79 6e 74 31 0d 01 cc 16 20 20 |EQUD synt1.... |
000003b0 20 20 20 20 20 20 45 51 55 44 20 68 65 6c 70 31 | EQUD help1|
000003c0 0d 01 d6 04 0d 01 e0 19 20 20 20 20 20 20 20 20 |........ |
000003d0 45 51 55 53 20 22 51 75 6f 74 65 73 22 0d 01 ea |EQUS "Quotes"...|
000003e0 12 20 20 20 20 20 20 20 20 45 51 55 42 20 30 0d |. EQUB 0.|
000003f0 01 f4 11 20 20 20 20 20 20 20 20 41 4c 49 47 4e |... ALIGN|
00000400 0d 01 fe 1a 20 20 20 20 20 20 20 20 45 51 55 44 |.... EQUD|
00000410 20 71 75 6f 74 65 63 6f 64 65 0d 02 08 12 20 20 | quotecode.... |
00000420 20 20 20 20 20 20 45 51 55 42 20 30 0d 02 12 12 | EQUB 0....|
00000430 20 20 20 20 20 20 20 20 45 51 55 42 20 30 0d 02 | EQUB 0..|
00000440 1c 12 20 20 20 20 20 20 20 20 45 51 55 42 20 31 |.. EQUB 1|
00000450 0d 02 26 12 20 20 20 20 20 20 20 20 45 51 55 42 |..&. EQUB|
00000460 20 30 0d 02 30 16 20 20 20 20 20 20 20 20 45 51 | 0..0. EQ|
00000470 55 44 20 73 79 6e 74 32 0d 02 3a 16 20 20 20 20 |UD synt2..:. |
00000480 20 20 20 20 45 51 55 44 20 68 65 6c 70 32 0d 02 | EQUD help2..|
00000490 44 12 20 20 20 20 20 20 20 20 45 51 55 42 20 30 |D. EQUB 0|
000004a0 0d 02 4e 04 0d 02 58 49 2e 68 65 6c 70 31 20 20 |..N...XI.help1 |
000004b0 45 51 55 53 20 22 44 6f 20 6e 6f 74 20 75 73 65 |EQUS "Do not use|
000004c0 20 2a 44 65 73 6b 74 6f 70 5f 53 6d 61 72 74 51 | *Desktop_SmartQ|
000004d0 75 6f 74 65 73 2c 20 75 73 65 20 2a 44 65 73 6b |uotes, use *Desk|
000004e0 74 6f 70 20 69 6e 73 74 65 61 64 2e 22 0d 02 62 |top instead."..b|
000004f0 13 20 20 20 20 20 20 20 20 45 51 55 42 20 31 33 |. EQUB 13|
00000500 0d 02 6c 2f 2e 73 79 6e 74 31 20 20 45 51 55 53 |..l/.synt1 EQUS|
00000510 20 22 53 79 6e 74 61 78 3a 20 2a 44 65 73 6b 74 | "Syntax: *Deskt|
00000520 6f 70 5f 53 6d 61 72 74 51 75 6f 74 65 73 22 0d |op_SmartQuotes".|
00000530 02 76 12 20 20 20 20 20 20 20 20 45 51 55 42 20 |.v. EQUB |
00000540 30 0d 02 80 5b 2e 68 65 6c 70 32 20 20 45 51 55 |0...[.help2 EQU|
00000550 53 20 22 2a 51 75 6f 74 65 73 20 74 75 72 6e 73 |S "*Quotes turns|
00000560 20 71 75 6f 74 65 20 63 6f 6e 76 65 72 73 69 6f | quote conversio|
00000570 6e 20 6f 6e 20 6f 72 20 6f 66 66 2c 20 6f 72 20 |n on or off, or |
00000580 67 69 76 65 73 20 74 68 65 20 63 75 72 72 65 6e |gives the curren|
00000590 74 20 73 65 74 74 69 6e 67 2e 20 22 0d 02 8a 66 |t setting. "...f|
000005a0 20 20 20 20 20 20 20 20 45 51 55 53 20 22 57 68 | EQUS "Wh|
000005b0 65 6e 20 61 63 74 69 76 65 2c 20 61 6e 20 61 74 |en active, an at|
000005c0 74 65 6d 70 74 20 69 73 20 6d 61 64 65 20 74 6f |tempt is made to|
000005d0 20 69 6e 74 65 6c 6c 69 67 65 6e 74 6c 79 20 63 | intelligently c|
000005e0 6f 6e 76 65 72 74 20 71 75 6f 74 65 73 20 74 79 |onvert quotes ty|
000005f0 70 65 64 20 61 73 20 22 22 22 22 20 6f 72 20 27 |ped as """" or '|
00000600 27 22 0d 02 94 42 20 20 20 20 20 20 20 20 45 51 |'"...B EQ|
00000610 55 53 20 22 69 6e 74 6f 20 74 68 65 69 72 20 63 |US "into their c|
00000620 6f 75 6e 74 65 72 20 70 61 72 74 73 20 94 95 20 |ounter parts .. |
00000630 6f 72 20 90 91 20 72 65 73 70 65 63 74 69 76 65 |or .. respective|
00000640 6c 79 2e 22 0d 02 9e 13 20 20 20 20 20 20 20 20 |ly.".... |
00000650 45 51 55 42 20 31 33 0d 02 a8 29 2e 73 79 6e 74 |EQUB 13...).synt|
00000660 32 20 20 45 51 55 53 20 22 53 79 6e 74 61 78 3a |2 EQUS "Syntax:|
00000670 20 2a 51 75 6f 74 65 73 20 4f 4e 7c 4f 46 46 22 | *Quotes ON|OFF"|
00000680 0d 02 b2 12 20 20 20 20 20 20 20 20 45 51 55 42 |.... EQUB|
00000690 20 30 0d 02 bc 11 20 20 20 20 20 20 20 20 41 4c | 0.... AL|
000006a0 49 47 4e 0d 02 c6 04 0d 02 d0 04 0d 02 da 0d 2e |IGN.............|
000006b0 49 6e 69 74 43 6f 64 65 0d 02 e4 27 20 20 20 20 |InitCode...' |
000006c0 20 20 20 20 53 54 4d 46 44 20 20 20 28 73 70 29 | STMFD (sp)|
000006d0 21 2c 7b 52 37 2d 52 31 31 2c 6c 69 6e 6b 7d 0d |!,{R7-R11,link}.|
000006e0 02 ee 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |... MOV |
000006f0 20 20 20 52 30 2c 23 36 0d 02 f8 1b 20 20 20 20 | R0,#6.... |
00000700 20 20 20 20 4d 4f 56 20 20 20 20 20 52 33 2c 23 | MOV R3,#|
00000710 32 35 36 0d 03 02 20 20 20 20 20 20 20 20 20 53 |256... S|
00000720 57 49 20 20 20 20 20 22 58 4f 53 5f 4d 6f 64 75 |WI "XOS_Modu|
00000730 6c 65 22 0d 03 0c 1c 20 20 20 20 20 20 20 20 42 |le".... B|
00000740 56 53 20 20 20 20 20 49 6e 69 74 45 78 69 74 0d |VS InitExit.|
00000750 03 16 1b 20 20 20 20 20 20 20 20 53 54 52 20 20 |... STR |
00000760 20 20 20 52 32 2c 5b 77 70 5d 0d 03 20 19 20 20 | R2,[wp].. . |
00000770 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 | MOV R0|
00000780 2c 23 30 0d 03 2a 27 20 20 20 20 20 20 20 20 53 |,#0..*' S|
00000790 54 52 20 20 20 20 20 52 30 2c 5b 52 32 2c 23 74 |TR R0,[R2,#t|
000007a0 61 73 6b 68 61 6e 64 6c 65 5d 0d 03 34 0d 2e 49 |askhandle]..4..I|
000007b0 6e 69 74 45 78 69 74 0d 03 3e 25 20 20 20 20 20 |nitExit..>% |
000007c0 20 20 20 4c 44 4d 46 44 20 20 20 28 73 70 29 21 | LDMFD (sp)!|
000007d0 2c 7b 52 37 2d 52 31 31 2c 70 63 7d 0d 03 48 04 |,{R7-R11,pc}..H.|
000007e0 0d 03 52 04 0d 03 5c 10 2e 53 74 61 72 43 6f 6d |..R...\..StarCom|
000007f0 6d 61 6e 64 0d 03 66 20 20 20 20 20 20 20 20 20 |mand..f |
00000800 53 54 4d 46 44 20 20 20 28 73 70 29 21 2c 7b 6c |STMFD (sp)!,{l|
00000810 69 6e 6b 7d 0d 03 70 19 20 20 20 20 20 20 20 20 |ink}..p. |
00000820 4d 4f 56 20 20 20 20 20 52 32 2c 52 30 0d 03 7a |MOV R2,R0..z|
00000830 22 20 20 20 20 20 20 20 20 41 44 52 20 20 20 20 |" ADR |
00000840 20 52 31 2c 54 69 74 6c 65 53 74 72 69 6e 67 0d | R1,TitleString.|
00000850 03 84 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |... MOV |
00000860 20 20 20 52 30 2c 23 32 0d 03 8e 3f 20 20 20 20 | R0,#2...? |
00000870 20 20 20 20 53 57 49 20 20 20 20 20 22 58 4f 53 | SWI "XOS|
00000880 5f 4d 6f 64 75 6c 65 22 20 20 20 20 20 20 20 20 |_Module" |
00000890 20 20 20 20 3b 20 65 6e 74 65 72 20 61 73 20 6c | ; enter as l|
000008a0 61 6e 67 75 61 67 65 0d 03 98 1e 20 20 20 20 20 |anguage.... |
000008b0 20 20 20 4c 44 4d 46 44 20 20 20 28 73 70 29 21 | LDMFD (sp)!|
000008c0 2c 7b 70 63 7d 0d 03 a2 04 0d 03 ac 0e 2e 53 74 |,{pc}.........St|
000008d0 61 72 74 43 6f 64 65 0d 03 b6 1c 20 20 20 20 20 |artCode.... |
000008e0 20 20 20 4c 44 52 20 20 20 20 20 77 70 2c 5b 52 | LDR wp,[R|
000008f0 31 32 5d 0d 03 c0 27 20 20 20 20 20 20 20 20 4c |12]...' L|
00000900 44 52 20 20 20 20 20 52 30 2c 5b 77 70 2c 23 74 |DR R0,[wp,#t|
00000910 61 73 6b 68 61 6e 64 6c 65 5d 0d 03 ca 19 20 20 |askhandle].... |
00000920 20 20 20 20 20 20 54 45 51 20 20 20 20 20 52 30 | TEQ R0|
00000930 2c 23 30 0d 03 d4 1b 20 20 20 20 20 20 20 20 4c |,#0.... L|
00000940 44 52 47 54 20 20 20 52 31 2c 54 41 53 4b 0d 03 |DRGT R1,TASK..|
00000950 de 25 20 20 20 20 20 20 20 20 53 57 49 47 54 20 |.% SWIGT |
00000960 20 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 44 6f | "XWimp_CloseDo|
00000970 77 6e 22 0d 03 e8 19 20 20 20 20 20 20 20 20 4d |wn".... M|
00000980 4f 56 47 54 20 20 20 52 30 2c 23 30 0d 03 f2 27 |OVGT R0,#0...'|
00000990 20 20 20 20 20 20 20 20 53 54 52 47 54 20 20 20 | STRGT |
000009a0 52 30 2c 5b 77 70 2c 23 74 61 73 6b 68 61 6e 64 |R0,[wp,#taskhand|
000009b0 6c 65 5d 0d 03 fc 04 0d 04 06 04 0d 04 10 1e 20 |le]............ |
000009c0 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 42 20 | LDRB |
000009d0 20 30 2c 65 6e 61 62 6c 65 0d 04 1a 1a 20 20 20 | 0,enable.... |
000009e0 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 30 | CMP 0|
000009f0 2c 23 31 0d 04 24 1c 20 20 20 20 20 20 20 20 20 |,#1..$. |
00000a00 20 20 20 4d 4f 56 4e 45 20 30 2c 23 26 31 34 0d | MOVNE 0,#&14.|
00000a10 04 2e 24 20 20 20 20 20 20 20 20 20 20 20 20 41 |..$ A|
00000a20 44 52 4e 45 20 31 2c 76 65 63 74 6f 72 63 6f 64 |DRNE 1,vectorcod|
00000a30 65 31 34 0d 04 38 1c 20 20 20 20 20 20 20 20 20 |e14..8. |
00000a40 20 20 20 41 44 52 4e 45 20 32 2c 77 6f 72 6b 0d | ADRNE 2,work.|
00000a50 04 42 21 20 20 20 20 20 20 20 20 20 20 20 20 53 |.B! S|
00000a60 57 49 4e 45 20 22 58 4f 53 5f 43 6c 61 69 6d 22 |WINE "XOS_Claim"|
00000a70 0d 04 4c 1a 20 20 20 20 20 20 20 20 20 20 20 20 |..L. |
00000a80 4d 4f 56 20 20 20 30 2c 23 31 0d 04 56 1e 20 20 |MOV 0,#1..V. |
00000a90 20 20 20 20 20 20 20 20 20 20 53 54 52 42 20 20 | STRB |
00000aa0 30 2c 65 6e 61 62 6c 65 0d 04 60 04 0d 04 6a 1b |0,enable..`...j.|
00000ab0 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | MOV |
00000ac0 52 30 2c 23 32 30 30 0d 04 74 1b 20 20 20 20 20 |R0,#200..t. |
00000ad0 20 20 20 4c 44 52 20 20 20 20 20 52 31 2c 54 41 | LDR R1,TA|
00000ae0 53 4b 0d 04 7e 22 20 20 20 20 20 20 20 20 41 44 |SK..~" AD|
00000af0 52 20 20 20 20 20 52 32 2c 54 69 74 6c 65 53 74 |R R2,TitleSt|
00000b00 72 69 6e 67 0d 04 88 26 20 20 20 20 20 20 20 20 |ring...& |
00000b10 53 57 49 20 20 20 20 20 22 58 57 69 6d 70 5f 49 |SWI "XWimp_I|
00000b20 6e 69 74 69 61 6c 69 73 65 22 0d 04 92 1e 20 20 |nitialise".... |
00000b30 20 20 20 20 20 20 53 57 49 56 53 20 20 20 22 58 | SWIVS "X|
00000b40 4f 53 5f 45 78 69 74 22 0d 04 9c 28 20 20 20 20 |OS_Exit"...( |
00000b50 20 20 20 20 53 54 52 20 20 20 20 20 52 31 2c 5b | STR R1,[|
00000b60 52 31 32 2c 23 74 61 73 6b 68 61 6e 64 6c 65 5d |R12,#taskhandle]|
00000b70 0d 04 a6 16 20 20 20 20 20 20 20 20 a4 61 73 73 |.... .ass|
00000b80 65 6d 62 6c 65 32 0d 04 b0 08 2e 65 6e 64 0d 04 |emble2.....end..|
00000b90 ba 25 20 20 20 20 20 20 20 20 53 57 49 20 20 20 |.% SWI |
00000ba0 20 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 44 6f | "XWimp_CloseDo|
00000bb0 77 6e 22 0d 04 c4 19 20 20 20 20 20 20 20 20 4d |wn".... M|
00000bc0 4f 56 20 20 20 20 20 52 31 2c 23 30 0d 04 ce 27 |OV R1,#0...'|
00000bd0 20 20 20 20 20 20 20 20 53 54 52 20 20 20 20 20 | STR |
00000be0 52 31 2c 5b 77 70 2c 23 74 61 73 6b 68 61 6e 64 |R1,[wp,#taskhand|
00000bf0 6c 65 5d 0d 04 d8 1e 20 20 20 20 20 20 20 20 53 |le].... S|
00000c00 57 49 20 20 20 20 20 22 58 4f 53 5f 45 78 69 74 |WI "XOS_Exit|
00000c10 22 0d 04 e2 0e 2e 46 69 6e 61 6c 43 6f 64 65 0d |".....FinalCode.|
00000c20 04 ec 27 20 20 20 20 20 20 20 20 53 54 4d 46 44 |..' STMFD|
00000c30 20 20 20 28 73 70 29 21 2c 7b 52 37 2d 52 31 31 | (sp)!,{R7-R11|
00000c40 2c 6c 69 6e 6b 7d 0d 04 f6 1c 20 20 20 20 20 20 |,link}.... |
00000c50 20 20 4c 44 52 20 20 20 20 20 77 70 2c 5b 52 31 | LDR wp,[R1|
00000c60 32 5d 0d 05 00 04 0d 05 0a 1e 20 20 20 20 20 20 |2]........ |
00000c70 20 20 20 20 20 20 4c 44 52 42 20 20 30 2c 65 6e | LDRB 0,en|
00000c80 61 62 6c 65 0d 05 14 1a 20 20 20 20 20 20 20 20 |able.... |
00000c90 20 20 20 20 43 4d 50 20 20 20 30 2c 23 30 0d 05 | CMP 0,#0..|
00000ca0 1e 1c 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f |.. MO|
00000cb0 56 20 20 20 30 2c 23 26 31 34 0d 05 28 24 20 20 |V 0,#&14..($ |
00000cc0 20 20 20 20 20 20 20 20 20 20 41 44 52 20 20 20 | ADR |
00000cd0 31 2c 76 65 63 74 6f 72 63 6f 64 65 31 34 0d 05 |1,vectorcode14..|
00000ce0 32 1c 20 20 20 20 20 20 20 20 20 20 20 20 41 44 |2. AD|
00000cf0 52 20 20 20 32 2c 77 6f 72 6b 0d 05 3c 23 20 20 |R 2,work..<# |
00000d00 20 20 20 20 20 20 20 20 20 20 53 57 49 4e 45 20 | SWINE |
00000d10 22 58 4f 53 5f 52 65 6c 65 61 73 65 22 0d 05 46 |"XOS_Release"..F|
00000d20 1a 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 |. MOV|
00000d30 20 20 20 30 2c 23 30 0d 05 50 1e 20 20 20 20 20 | 0,#0..P. |
00000d40 20 20 20 20 20 20 20 53 54 52 42 20 20 30 2c 65 | STRB 0,e|
00000d50 6e 61 62 6c 65 0d 05 5a 04 0d 05 64 27 20 20 20 |nable..Z...d' |
00000d60 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 30 2c | LDR R0,|
00000d70 5b 77 70 2c 23 74 61 73 6b 68 61 6e 64 6c 65 5d |[wp,#taskhandle]|
00000d80 0d 05 6e 19 20 20 20 20 20 20 20 20 54 45 51 20 |..n. TEQ |
00000d90 20 20 20 20 52 30 2c 23 30 0d 05 78 1b 20 20 20 | R0,#0..x. |
00000da0 20 20 20 20 20 4c 44 52 47 54 20 20 20 52 31 2c | LDRGT R1,|
00000db0 54 41 53 4b 0d 05 82 25 20 20 20 20 20 20 20 20 |TASK...% |
00000dc0 53 57 49 47 54 20 20 20 22 58 57 69 6d 70 5f 43 |SWIGT "XWimp_C|
00000dd0 6c 6f 73 65 44 6f 77 6e 22 0d 05 8c 19 20 20 20 |loseDown".... |
00000de0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 31 2c | MOV R1,|
00000df0 23 30 0d 05 96 27 20 20 20 20 20 20 20 20 53 54 |#0...' ST|
00000e00 52 20 20 20 20 20 52 31 2c 5b 77 70 2c 23 74 61 |R R1,[wp,#ta|
00000e10 73 6b 68 61 6e 64 6c 65 5d 0d 05 a0 04 0d 05 aa |skhandle].......|
00000e20 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 |. MOV |
00000e30 20 52 30 2c 23 37 0d 05 b4 19 20 20 20 20 20 20 | R0,#7.... |
00000e40 20 20 4d 4f 56 20 20 20 20 20 52 32 2c 77 70 0d | MOV R2,wp.|
00000e50 05 be 1f 20 20 20 20 20 20 20 20 53 57 49 20 20 |... SWI |
00000e60 20 20 20 22 4f 53 5f 4d 6f 64 75 6c 65 22 0d 05 | "OS_Module"..|
00000e70 c8 25 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 |.% LDMFD |
00000e80 20 20 28 73 70 29 21 2c 7b 52 37 2d 52 31 31 2c | (sp)!,{R7-R11,|
00000e90 70 63 7d 0d 05 d2 04 0d 05 dc 10 2e 53 65 72 76 |pc}.........Serv|
00000ea0 69 63 65 43 6f 64 65 0d 05 e6 1b 20 20 20 20 20 |iceCode.... |
00000eb0 20 20 20 4c 44 52 20 20 20 20 20 77 70 2c 5b 77 | LDR wp,[w|
00000ec0 70 5d 0d 05 f0 20 20 20 20 20 20 20 20 20 53 54 |p]... ST|
00000ed0 4d 46 44 20 20 20 28 73 70 29 21 2c 7b 6c 69 6e |MFD (sp)!,{lin|
00000ee0 6b 7d 0d 05 fa 1b 20 20 20 20 20 20 20 20 54 45 |k}.... TE|
00000ef0 51 20 20 20 20 20 52 31 2c 23 26 34 39 0d 06 04 |Q R1,#&49...|
00000f00 1d 20 20 20 20 20 20 20 20 42 45 51 20 20 20 20 |. BEQ |
00000f10 20 53 74 61 72 74 57 69 6d 70 0d 06 0e 1b 20 20 | StartWimp.... |
00000f20 20 20 20 20 20 20 54 45 51 20 20 20 20 20 52 31 | TEQ R1|
00000f30 2c 23 26 34 41 0d 06 18 1f 20 20 20 20 20 20 20 |,#&4A.... |
00000f40 20 42 45 51 20 20 20 20 20 53 74 61 72 74 65 64 | BEQ Started|
00000f50 57 69 6d 70 0d 06 22 1b 20 20 20 20 20 20 20 20 |Wimp..". |
00000f60 54 45 51 20 20 20 20 20 52 31 2c 23 26 32 37 0d |TEQ R1,#&27.|
00000f70 06 2c 17 20 20 20 20 20 20 20 20 ec 51 20 20 20 |.,. .Q |
00000f80 52 31 34 2c 23 30 0d 06 36 28 20 20 20 20 20 20 |R14,#0..6( |
00000f90 20 20 53 54 52 45 51 20 20 20 52 31 34 2c 5b 77 | STREQ R14,[w|
00000fa0 70 2c 23 74 61 73 6b 68 61 6e 64 6c 65 5d 0d 06 |p,#taskhandle]..|
00000fb0 40 1e 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 |@. LDMFD |
00000fc0 20 20 28 73 70 29 21 2c 7b 70 63 7d 0d 06 4a 04 | (sp)!,{pc}..J.|
00000fd0 0d 06 54 0e 2e 53 74 61 72 74 57 69 6d 70 0d 06 |..T..StartWimp..|
00000fe0 5e 28 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 |^( LDR |
00000ff0 20 20 52 31 34 2c 5b 77 70 2c 23 74 61 73 6b 68 | R14,[wp,#taskh|
00001000 61 6e 64 6c 65 5d 0d 06 68 1a 20 20 20 20 20 20 |andle]..h. |
00001010 20 20 54 45 51 20 20 20 20 20 52 31 34 2c 23 30 | TEQ R14,#0|
00001020 0d 06 72 1a 20 20 20 20 20 20 20 20 4d 56 4e 45 |..r. MVNE|
00001030 51 20 20 20 52 31 34 2c 23 30 0d 06 7c 28 20 20 |Q R14,#0..|( |
00001040 20 20 20 20 20 20 53 54 52 45 51 20 20 20 52 31 | STREQ R1|
00001050 34 2c 5b 77 70 2c 23 74 61 73 6b 68 61 6e 64 6c |4,[wp,#taskhandl|
00001060 65 5d 0d 06 86 20 20 20 20 20 20 20 20 20 41 44 |e]... AD|
00001070 52 45 51 20 20 20 52 31 2c 48 65 6c 70 54 61 62 |REQ R1,HelpTab|
00001080 6c 65 0d 06 90 16 20 20 20 20 20 20 20 20 ec 51 |le.... .Q|
00001090 20 20 20 52 30 2c 52 31 0d 06 9a 16 20 20 20 20 | R0,R1.... |
000010a0 20 20 20 20 ec 51 20 20 20 52 31 2c 23 30 0d 06 | .Q R1,#0..|
000010b0 a4 1e 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 |.. LDMFD |
000010c0 20 20 28 73 70 29 21 2c 7b 70 63 7d 0d 06 ae 04 | (sp)!,{pc}....|
000010d0 0d 06 b8 10 2e 53 74 61 72 74 65 64 57 69 6d 70 |.....StartedWimp|
000010e0 0d 06 c2 28 20 20 20 20 20 20 20 20 4c 44 52 20 |...( LDR |
000010f0 20 20 20 20 52 31 34 2c 5b 77 70 2c 23 74 61 73 | R14,[wp,#tas|
00001100 6b 68 61 6e 64 6c 65 5d 0d 06 cc 1a 20 20 20 20 |khandle].... |
00001110 20 20 20 20 43 4d 4e 20 20 20 20 20 52 31 34 2c | CMN R14,|
00001120 23 31 0d 06 d6 17 20 20 20 20 20 20 20 20 ec 51 |#1.... .Q|
00001130 20 20 20 52 31 34 2c 23 30 0d 06 e0 28 20 20 20 | R14,#0...( |
00001140 20 20 20 20 20 53 54 52 45 51 20 20 20 52 31 34 | STREQ R14|
00001150 2c 5b 77 70 2c 23 74 61 73 6b 68 61 6e 64 6c 65 |,[wp,#taskhandle|
00001160 5d 0d 06 ea 1e 20 20 20 20 20 20 20 20 4c 44 4d |].... LDM|
00001170 46 44 20 20 20 28 73 70 29 21 2c 7b 70 63 7d 0d |FD (sp)!,{pc}.|
00001180 06 f4 04 0d 06 fe 0e 2e 71 75 6f 74 65 63 6f 64 |........quotecod|
00001190 65 0d 07 08 20 20 20 20 20 20 20 20 20 53 54 4d |e... STM|
000011a0 46 44 20 20 20 28 73 70 29 21 2c 7b 6c 69 6e 6b |FD (sp)!,{link|
000011b0 7d 0d 07 12 1c 20 20 20 20 20 20 20 20 4c 44 52 |}.... LDR|
000011c0 42 20 20 20 20 31 2c 5b 30 5d 2c 23 31 0d 07 1c |B 1,[0],#1...|
000011d0 19 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 |. CMP |
000011e0 20 31 2c 23 33 32 0d 07 26 1e 20 20 20 20 20 20 | 1,#32..&. |
000011f0 20 20 42 4c 54 20 20 20 20 20 71 75 6f 74 65 73 | BLT quotes|
00001200 74 61 74 65 0d 07 30 19 20 20 20 20 20 20 20 20 |tate..0. |
00001210 43 4d 50 20 20 20 20 20 31 2c 23 37 39 0d 07 3a |CMP 1,#79..:|
00001220 1a 20 20 20 20 20 20 20 20 43 4d 50 4e 45 20 20 |. CMPNE |
00001230 20 31 2c 23 31 31 31 0d 07 44 1b 20 20 20 20 20 | 1,#111..D. |
00001240 20 20 20 42 4e 45 20 20 20 20 20 75 6e 6b 6e 6f | BNE unkno|
00001250 77 6e 0d 07 4e 1c 20 20 20 20 20 20 20 20 4c 44 |wn..N. LD|
00001260 52 42 20 20 20 20 31 2c 5b 30 5d 2c 23 31 0d 07 |RB 1,[0],#1..|
00001270 58 19 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 |X. CMP |
00001280 20 20 31 2c 23 37 38 0d 07 62 1a 20 20 20 20 20 | 1,#78..b. |
00001290 20 20 20 43 4d 50 4e 45 20 20 20 31 2c 23 31 31 | CMPNE 1,#11|
000012a0 30 0d 07 6c 1c 20 20 20 20 20 20 20 20 42 45 51 |0..l. BEQ|
000012b0 20 20 20 20 20 71 75 6f 74 65 73 6f 6e 0d 07 76 | quoteson..v|
000012c0 19 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 |. CMP |
000012d0 20 31 2c 23 37 30 0d 07 80 1a 20 20 20 20 20 20 | 1,#70.... |
000012e0 20 20 43 4d 50 4e 45 20 20 20 31 2c 23 31 30 32 | CMPNE 1,#102|
000012f0 0d 07 8a 1d 20 20 20 20 20 20 20 20 42 45 51 20 |.... BEQ |
00001300 20 20 20 20 71 75 6f 74 65 73 6f 66 66 0d 07 94 | quotesoff...|
00001310 1e 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 20 |. LDMFD |
00001320 20 28 73 70 29 21 2c 7b 70 63 7d 0d 07 9e 0d 2e | (sp)!,{pc}.....|
00001330 71 75 6f 74 65 73 6f 6e 0d 07 a8 1c 20 20 20 20 |quoteson.... |
00001340 20 20 20 20 4c 44 52 42 20 20 20 20 31 2c 5b 30 | LDRB 1,[0|
00001350 5d 2c 23 31 0d 07 b2 19 20 20 20 20 20 20 20 20 |],#1.... |
00001360 43 4d 50 20 20 20 20 20 31 2c 23 33 32 0d 07 bc |CMP 1,#32...|
00001370 1b 20 20 20 20 20 20 20 20 42 47 45 20 20 20 20 |. BGE |
00001380 20 75 6e 6b 6e 6f 77 6e 0d 07 c6 1e 20 20 20 20 | unknown.... |
00001390 20 20 20 20 20 20 20 20 4c 44 52 42 20 20 30 2c | LDRB 0,|
000013a0 65 6e 61 62 6c 65 0d 07 d0 1a 20 20 20 20 20 20 |enable.... |
000013b0 20 20 20 20 20 20 43 4d 50 20 20 20 30 2c 23 31 | CMP 0,#1|
000013c0 0d 07 da 1c 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000013d0 4d 4f 56 4e 45 20 30 2c 23 26 31 34 0d 07 e4 24 |MOVNE 0,#&14...$|
000013e0 20 20 20 20 20 20 20 20 20 20 20 20 41 44 52 4e | ADRN|
000013f0 45 20 31 2c 76 65 63 74 6f 72 63 6f 64 65 31 34 |E 1,vectorcode14|
00001400 0d 07 ee 1c 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00001410 41 44 52 4e 45 20 32 2c 77 6f 72 6b 0d 07 f8 21 |ADRNE 2,work...!|
00001420 20 20 20 20 20 20 20 20 20 20 20 20 53 57 49 4e | SWIN|
00001430 45 20 22 58 4f 53 5f 43 6c 61 69 6d 22 0d 08 02 |E "XOS_Claim"...|
00001440 1a 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 |. MOV|
00001450 20 20 20 30 2c 23 31 0d 08 0c 1e 20 20 20 20 20 | 0,#1.... |
00001460 20 20 20 20 20 20 20 53 54 52 42 20 20 30 2c 65 | STRB 0,e|
00001470 6e 61 62 6c 65 0d 08 16 1e 20 20 20 20 20 20 20 |nable.... |
00001480 20 4c 44 4d 46 44 20 20 20 28 73 70 29 21 2c 7b | LDMFD (sp)!,{|
00001490 70 63 7d 0d 08 20 04 0d 08 2a 0e 2e 71 75 6f 74 |pc}.. ...*..quot|
000014a0 65 73 6f 66 66 0d 08 34 1c 20 20 20 20 20 20 20 |esoff..4. |
000014b0 20 4c 44 52 42 20 20 20 20 31 2c 5b 30 5d 2c 23 | LDRB 1,[0],#|
000014c0 31 0d 08 3e 19 20 20 20 20 20 20 20 20 43 4d 50 |1..>. CMP|
000014d0 20 20 20 20 20 31 2c 23 37 30 0d 08 48 1a 20 20 | 1,#70..H. |
000014e0 20 20 20 20 20 20 43 4d 50 4e 45 20 20 20 31 2c | CMPNE 1,|
000014f0 23 31 30 32 0d 08 52 1b 20 20 20 20 20 20 20 20 |#102..R. |
00001500 42 4e 45 20 20 20 20 20 75 6e 6b 6e 6f 77 6e 0d |BNE unknown.|
00001510 08 5c 1c 20 20 20 20 20 20 20 20 4c 44 52 42 20 |.\. LDRB |
00001520 20 20 20 31 2c 5b 30 5d 2c 23 31 0d 08 66 19 20 | 1,[0],#1..f. |
00001530 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 31 | CMP 1|
00001540 2c 23 33 32 0d 08 70 1b 20 20 20 20 20 20 20 20 |,#32..p. |
00001550 42 47 45 20 20 20 20 20 75 6e 6b 6e 6f 77 6e 0d |BGE unknown.|
00001560 08 7a 1e 20 20 20 20 20 20 20 20 20 20 20 20 4c |.z. L|
00001570 44 52 42 20 20 30 2c 65 6e 61 62 6c 65 0d 08 84 |DRB 0,enable...|
00001580 1a 20 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 |. CMP|
00001590 20 20 20 30 2c 23 30 0d 08 8e 1c 20 20 20 20 20 | 0,#0.... |
000015a0 20 20 20 20 20 20 20 4d 4f 56 20 20 20 30 2c 23 | MOV 0,#|
000015b0 26 31 34 0d 08 98 24 20 20 20 20 20 20 20 20 20 |&14...$ |
000015c0 20 20 20 41 44 52 20 20 20 31 2c 76 65 63 74 6f | ADR 1,vecto|
000015d0 72 63 6f 64 65 31 34 0d 08 a2 1c 20 20 20 20 20 |rcode14.... |
000015e0 20 20 20 20 20 20 20 41 44 52 20 20 20 32 2c 77 | ADR 2,w|
000015f0 6f 72 6b 0d 08 ac 23 20 20 20 20 20 20 20 20 20 |ork...# |
00001600 20 20 20 53 57 49 4e 45 20 22 58 4f 53 5f 52 65 | SWINE "XOS_Re|
00001610 6c 65 61 73 65 22 0d 08 b6 1a 20 20 20 20 20 20 |lease".... |
00001620 20 20 20 20 20 20 4d 4f 56 20 20 20 30 2c 23 30 | MOV 0,#0|
00001630 0d 08 c0 1e 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00001640 53 54 52 42 20 20 30 2c 65 6e 61 62 6c 65 0d 08 |STRB 0,enable..|
00001650 ca 1e 20 20 20 20 20 20 20 20 4c 44 4d 46 44 20 |.. LDMFD |
00001660 20 20 28 73 70 29 21 2c 7b 70 63 7d 0d 08 d4 04 | (sp)!,{pc}....|
00001670 0d 08 de 0f 2e 71 75 6f 74 65 73 74 61 74 65 0d |.....quotestate.|
00001680 08 e8 1a 20 20 20 20 20 20 20 20 4c 44 52 42 20 |... LDRB |
00001690 20 30 2c 65 6e 61 62 6c 65 0d 08 f2 16 20 20 20 | 0,enable.... |
000016a0 20 20 20 20 20 43 4d 50 20 20 20 30 2c 23 31 0d | CMP 0,#1.|
000016b0 08 fc 1c 20 20 20 20 20 20 20 20 41 44 52 45 51 |... ADREQ|
000016c0 20 30 2c 6f 6e 73 74 72 69 6e 67 0d 09 06 1d 20 | 0,onstring.... |
000016d0 20 20 20 20 20 20 20 41 44 52 4e 45 20 30 2c 6f | ADRNE 0,o|
000016e0 66 66 73 74 72 69 6e 67 0d 09 10 1d 20 20 20 20 |ffstring.... |
000016f0 20 20 20 20 53 57 49 20 20 20 22 4f 53 5f 57 72 | SWI "OS_Wr|
00001700 69 74 65 30 22 0d 09 1a 1e 20 20 20 20 20 20 20 |ite0".... |
00001710 20 53 57 49 20 20 20 22 4f 53 5f 4e 65 77 4c 69 | SWI "OS_NewLi|
00001720 6e 65 22 0d 09 24 1e 20 20 20 20 20 20 20 20 4c |ne"..$. L|
00001730 44 4d 46 44 20 20 20 28 73 70 29 21 2c 7b 70 63 |DMFD (sp)!,{pc|
00001740 7d 0d 09 2e 04 0d 09 38 0d 2e 6f 6e 73 74 72 69 |}......8..onstri|
00001750 6e 67 0d 09 42 1d 20 20 20 20 20 20 20 20 45 51 |ng..B. EQ|
00001760 55 53 20 20 22 51 75 6f 74 65 73 20 4f 6e 22 0d |US "Quotes On".|
00001770 09 4c 13 20 20 20 20 20 20 20 20 45 51 55 44 20 |.L. EQUD |
00001780 20 30 0d 09 56 0e 2e 6f 66 66 73 74 72 69 6e 67 | 0..V..offstring|
00001790 0d 09 60 1e 20 20 20 20 20 20 20 20 45 51 55 53 |..`. EQUS|
000017a0 20 20 22 51 75 6f 74 65 73 20 4f 66 66 22 0d 09 | "Quotes Off"..|
000017b0 6a 13 20 20 20 20 20 20 20 20 45 51 55 44 20 20 |j. EQUD |
000017c0 30 0d 09 74 11 20 20 20 20 20 20 20 20 41 4c 49 |0..t. ALI|
000017d0 47 4e 0d 09 7e 0c 2e 75 6e 6b 6e 6f 77 6e 0d 09 |GN..~..unknown..|
000017e0 88 16 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |.. MOV |
000017f0 30 2c 50 43 0d 09 92 1c 20 20 20 20 20 20 20 20 |0,PC.... |
00001800 84 52 20 20 20 30 2c 30 2c 23 25 31 3c 3c 32 38 |.R 0,0,#%1<<28|
00001810 0d 09 9c 17 20 20 20 20 20 20 20 20 54 45 51 4e |.... TEQN|
00001820 45 50 20 30 2c 23 30 0d 09 a6 15 20 20 20 20 20 |EP 0,#0.... |
00001830 20 20 20 4d 4f 56 4e 56 20 30 2c 30 0d 09 b0 19 | MOVNV 0,0....|
00001840 20 20 20 20 20 20 20 20 41 44 52 20 20 20 30 2c | ADR 0,|
00001850 65 72 72 6f 72 0d 09 ba 1e 20 20 20 20 20 20 20 |error.... |
00001860 20 4c 44 4d 46 44 20 20 20 28 73 70 29 21 2c 7b | LDMFD (sp)!,{|
00001870 70 63 7d 0d 09 c4 0a 2e 65 72 72 6f 72 0d 09 ce |pc}.....error...|
00001880 19 20 20 20 20 20 20 20 20 20 20 20 20 45 51 55 |. EQU|
00001890 44 20 20 32 32 30 0d 09 d8 2e 20 20 20 20 20 20 |D 220.... |
000018a0 20 20 20 20 20 20 45 51 55 53 20 20 22 53 79 6e | EQUS "Syn|
000018b0 74 61 78 3a 20 2a 51 75 6f 74 65 73 20 4f 4e 7c |tax: *Quotes ON||
000018c0 4f 46 46 22 0d 09 e2 17 20 20 20 20 20 20 20 20 |OFF".... |
000018d0 20 20 20 20 45 51 55 42 20 20 30 0d 09 ec 15 20 | EQUB 0.... |
000018e0 20 20 20 20 20 20 20 20 20 20 20 41 4c 49 47 4e | ALIGN|
000018f0 0d 09 f6 04 0d 0a 00 1a 2e 54 41 53 4b 20 20 20 |.........TASK |
00001900 45 51 55 53 20 20 20 20 22 54 41 53 4b 22 0d 0a |EQUS "TASK"..|
00001910 0a 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.) |
00001920 20 5c 20 31 31 31 31 31 31 31 31 31 31 30 30 30 | \ 1111111111000|
00001930 30 30 30 30 30 30 30 0d 0a 14 29 20 20 20 20 20 |0000000...) |
00001940 20 20 20 20 20 20 20 20 20 20 5c 20 39 38 37 36 | \ 9876|
00001950 35 34 33 32 31 30 39 38 37 36 35 34 33 32 31 30 |5432109876543210|
00001960 0d 0a 1e 06 5d ed 0d 0a 28 2f c8 99 20 22 4f 53 |....]...(/.. "OS|
00001970 5f 46 69 6c 65 22 2c 31 30 2c 22 53 6d 61 72 74 |_File",10,"Smart|
00001980 51 75 6f 74 65 22 2c 26 46 46 41 2c 2c 63 6f 64 |Quote",&FFA,,cod|
00001990 65 25 2c 4f 25 0d 0a 32 05 e0 0d 0a 3c 04 0d 0a |e%,O%..2....<...|
000019a0 46 0b f4 20 3e 20 41 64 64 0d 0a 50 17 f4 20 53 |F.. > Add..P.. S|
000019b0 61 76 65 73 20 6b 65 79 20 70 72 65 73 73 65 73 |aves key presses|
000019c0 0d 0a 5a 18 f4 20 42 79 20 54 68 65 20 46 6c 79 |..Z.. By The Fly|
000019d0 69 6e 67 20 50 69 67 21 0d 0a 64 0f f4 20 31 36 |ing Pig!..d.. 16|
000019e0 2f 36 2f 31 39 39 32 0d 0a 6e 04 0d 0a 78 04 0d |/6/1992..n...x..|
000019f0 0a 82 0f dd a4 61 73 73 65 6d 62 6c 65 32 0d 0a |.....assemble2..|
00001a00 8c 04 0d 0a 96 0c 5b 20 4f 50 54 20 49 25 0d 0a |......[ OPT I%..|
00001a10 a0 0a 2e 62 65 67 69 6e 0d 0a aa 1c 2e 70 6f 6c |...begin.....pol|
00001a20 6c 20 20 20 20 20 20 20 4d 4f 56 20 20 20 30 2c |l MOV 0,|
00001a30 23 32 35 34 0d 0a b4 1a 20 20 20 20 20 20 20 20 |#254.... |
00001a40 20 20 20 20 4d 4f 56 20 20 20 31 2c 77 70 0d 0a | MOV 1,wp..|
00001a50 be 22 20 20 20 20 20 20 20 20 20 20 20 20 53 57 |." SW|
00001a60 49 20 20 20 22 58 57 69 6d 70 5f 50 6f 6c 6c 22 |I "XWimp_Poll"|
00001a70 0d 0a c8 1b 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00001a80 43 4d 50 20 20 20 30 2c 23 31 37 0d 0a d2 1b 20 |CMP 0,#17.... |
00001a90 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 4e 45 | CMPNE|
00001aa0 20 30 2c 23 31 38 0d 0a dc 1d 20 20 20 20 20 20 | 0,#18.... |
00001ab0 20 20 20 20 20 20 42 45 51 20 20 20 72 65 63 65 | BEQ rece|
00001ac0 69 76 65 0d 0a e6 1a 20 20 20 20 20 20 20 20 20 |ive.... |
00001ad0 20 20 20 4d 4f 56 20 20 20 31 2c 23 31 0d 0a f0 | MOV 1,#1...|
00001ae0 1f 20 20 20 20 20 20 20 20 20 20 20 20 53 54 52 |. STR|
00001af0 42 20 20 31 2c 64 65 73 6b 74 6f 70 0d 0a fa 22 |B 1,desktop..."|
00001b00 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 42 | LDRB|
00001b10 20 20 31 2c 6b 65 79 70 72 65 73 73 65 64 0d 0b | 1,keypressed..|
00001b20 04 1a 20 20 20 20 20 20 20 20 20 20 20 20 43 4d |.. CM|
00001b30 50 20 20 20 31 2c 23 30 0d 0b 0e 1c 20 20 20 20 |P 1,#0.... |
00001b40 20 20 20 20 20 20 20 20 42 4e 45 20 20 20 69 6e | BNE in|
00001b50 73 65 72 74 0d 0b 18 1a 20 20 20 20 20 20 20 20 |sert.... |
00001b60 20 20 20 20 42 20 20 20 20 20 70 6f 6c 6c 0d 0b | B poll..|
00001b70 22 04 0d 0b 2c 1f 2e 72 65 63 65 69 76 65 20 20 |"...,..receive |
00001b80 20 20 4c 44 52 20 20 20 34 2c 5b 31 2c 23 31 36 | LDR 4,[1,#16|
00001b90 5d 0d 0b 36 1a 20 20 20 20 20 20 20 20 20 20 20 |]..6. |
00001ba0 20 43 4d 50 20 20 20 34 2c 23 30 0d 0b 40 1a 20 | CMP 4,#0..@. |
00001bb0 20 20 20 20 20 20 20 20 20 20 20 42 4e 45 20 20 | BNE |
00001bc0 20 70 6f 6c 6c 0d 0b 4a 19 20 20 20 20 20 20 20 | poll..J. |
00001bd0 20 20 20 20 20 42 20 20 20 20 20 65 6e 64 0d 0b | B end..|
00001be0 54 1d 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f |T. MO|
00001bf0 56 20 20 20 70 63 2c 6c 69 6e 6b 0d 0b 5e 16 2e |V pc,link..^..|
00001c00 65 6e 61 62 6c 65 20 20 20 20 20 45 51 55 42 20 |enable EQUB |
00001c10 30 0d 0b 68 15 20 20 20 20 20 20 20 20 20 20 20 |0..h. |
00001c20 20 41 4c 49 47 4e 0d 0b 72 0f 2e 6b 65 79 70 72 | ALIGN..r..keypr|
00001c30 65 73 73 65 64 0d 0b 7c 17 20 20 20 20 20 20 20 |essed..|. |
00001c40 20 20 20 20 20 45 51 55 42 20 20 30 0d 0b 86 17 | EQUB 0....|
00001c50 2e 6b 65 79 20 20 20 20 20 20 20 20 45 51 55 42 |.key EQUB|
00001c60 20 20 30 0d 0b 90 15 20 20 20 20 20 20 20 20 20 | 0.... |
00001c70 20 20 20 41 4c 49 47 4e 0d 0b 9a 0b 2e 69 6e 73 | ALIGN.....ins|
00001c80 65 72 74 0d 0b a4 1a 20 20 20 20 20 20 20 20 20 |ert.... |
00001c90 20 20 20 4d 4f 56 20 20 20 30 2c 23 30 0d 0b ae | MOV 0,#0...|
00001ca0 22 20 20 20 20 20 20 20 20 20 20 20 20 53 54 52 |" STR|
00001cb0 42 20 20 30 2c 6b 65 79 70 72 65 73 73 65 64 0d |B 0,keypressed.|
00001cc0 0b b8 1b 20 20 20 20 20 20 20 20 20 20 20 20 43 |... C|
00001cd0 4d 50 20 20 20 31 2c 23 33 34 0d 0b c2 19 20 20 |MP 1,#34.... |
00001ce0 20 20 20 20 20 20 20 20 20 20 ec 51 20 30 2c 23 | .Q 0,#|
00001cf0 31 34 39 0d 0b cc 1c 20 20 20 20 20 20 20 20 20 |149.... |
00001d00 20 20 20 4d 4f 56 4e 45 20 30 2c 23 31 34 35 0d | MOVNE 0,#145.|
00001d10 0b d6 1b 20 20 20 20 20 20 20 20 20 20 20 20 4c |... L|
00001d20 44 52 42 20 20 31 2c 6b 65 79 0d 0b e0 1b 20 20 |DRB 1,key.... |
00001d30 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 | CMP |
00001d40 31 2c 23 31 33 0d 0b ea 1b 20 20 20 20 20 20 20 |1,#13.... |
00001d50 20 20 20 20 20 43 4d 50 4e 45 20 31 2c 23 33 32 | CMPNE 1,#32|
00001d60 0d 0b f4 1c 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00001d70 43 4d 50 4e 45 20 31 2c 23 31 33 38 0d 0b fe 1c |CMPNE 1,#138....|
00001d80 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 45 | SUBE|
00001d90 51 20 30 2c 30 2c 23 31 0d 0c 08 1b 20 20 20 20 |Q 0,0,#1.... |
00001da0 20 20 20 20 20 20 20 20 53 54 52 42 20 20 30 2c | STRB 0,|
00001db0 6b 65 79 0d 0c 12 27 20 20 20 20 20 20 20 20 20 |key...' |
00001dc0 20 20 20 53 57 49 20 20 20 22 57 69 6d 70 5f 50 | SWI "Wimp_P|
00001dd0 72 6f 63 65 73 73 4b 65 79 22 0d 0c 1c 1a 20 20 |rocessKey".... |
00001de0 20 20 20 20 20 20 20 20 20 20 42 20 20 20 20 20 | B |
00001df0 70 6f 6c 6c 0d 0c 26 17 2e 72 65 73 74 6f 72 65 |poll..&..restore|
00001e00 20 20 20 20 45 51 55 44 20 20 30 0d 0c 30 17 2e | EQUD 0..0..|
00001e10 64 65 73 6b 74 6f 70 20 20 20 20 45 51 55 42 20 |desktop EQUB |
00001e20 20 30 0d 0c 3a 15 20 20 20 20 20 20 20 20 20 20 | 0..:. |
00001e30 20 20 41 4c 49 47 4e 0d 0c 44 04 0d 0c 4e 11 2e | ALIGN..D...N..|
00001e40 76 65 63 74 6f 72 63 6f 64 65 31 34 0d 0c 58 1a |vectorcode14..X.|
00001e50 20 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 | CMP |
00001e60 20 20 31 2c 23 30 0d 0c 62 1b 20 20 20 20 20 20 | 1,#0..b. |
00001e70 20 20 20 20 20 20 4d 4f 56 4e 45 20 50 43 2c 31 | MOVNE PC,1|
00001e80 34 0d 0c 6c 1f 20 20 20 20 20 20 20 20 20 20 20 |4..l. |
00001e90 20 53 54 52 20 20 20 33 2c 72 65 73 74 6f 72 65 | STR 3,restore|
00001ea0 0d 0c 76 1f 20 20 20 20 20 20 20 20 20 20 20 20 |..v. |
00001eb0 4c 44 52 42 20 20 33 2c 64 65 73 6b 74 6f 70 0d |LDRB 3,desktop.|
00001ec0 0c 80 1c 20 20 20 20 20 20 20 20 20 20 20 20 53 |... S|
00001ed0 55 42 53 20 20 33 2c 33 2c 23 31 0d 0c 8a 1f 20 |UBS 3,3,#1.... |
00001ee0 20 20 20 20 20 20 20 20 20 20 20 53 54 52 42 20 | STRB |
00001ef0 20 33 2c 64 65 73 6b 74 6f 70 0d 0c 94 1f 20 20 | 3,desktop.... |
00001f00 20 20 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 | LDR |
00001f10 33 2c 72 65 73 74 6f 72 65 0d 0c 9e 1b 20 20 20 |3,restore.... |
00001f20 20 20 20 20 20 20 20 20 20 4d 4f 56 4e 45 20 50 | MOVNE P|
00001f30 43 2c 31 34 0d 0c a8 04 0d 0c b2 1b 20 20 20 20 |C,14........ |
00001f40 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 30 2c | CMP 0,|
00001f50 23 33 34 0d 0c bc 1b 20 20 20 20 20 20 20 20 20 |#34.... |
00001f60 20 20 20 43 4d 50 4e 45 20 30 2c 23 33 39 0d 0c | CMPNE 0,#39..|
00001f70 c6 1f 20 20 20 20 20 20 20 20 20 20 20 20 53 54 |.. ST|
00001f80 52 45 51 20 30 2c 64 65 73 6b 74 6f 70 0d 0c d0 |REQ 0,desktop...|
00001f90 23 20 20 20 20 20 20 20 20 20 20 20 20 53 54 52 |# STR|
00001fa0 45 51 42 20 30 2c 6b 65 79 70 72 65 73 73 65 64 |EQB 0,keypressed|
00001fb0 0d 0c da 21 20 20 20 20 20 20 20 20 20 20 20 20 |...! |
00001fc0 4c 44 4d 45 51 46 44 20 52 31 33 21 2c 7b 50 43 |LDMEQFD R13!,{PC|
00001fd0 7d 0d 0c e4 04 0d 0c ee 1a 20 20 20 20 20 20 20 |}........ |
00001fe0 20 20 20 20 20 53 54 52 42 20 30 2c 6b 65 79 0d | STRB 0,key.|
00001ff0 0c f8 04 0d 0d 02 1a 20 20 20 20 20 20 20 20 20 |....... |
00002000 20 20 20 4d 4f 56 20 20 50 43 2c 31 34 0d 0d 0c | MOV PC,14...|
00002010 04 0d 0d 16 18 20 20 20 20 20 20 20 20 20 20 20 |..... |
00002020 20 45 51 55 42 20 20 31 30 0d 0d 20 18 20 20 20 | EQUB 10.. . |
00002030 20 20 20 20 20 20 20 20 20 45 51 55 42 20 20 31 | EQUB 1|
00002040 30 0d 0d 2a 27 20 20 20 20 20 20 20 20 20 20 20 |0..*' |
00002050 20 45 51 55 53 20 20 22 54 68 65 20 46 6c 79 69 | EQUS "The Flyi|
00002060 6e 67 20 50 69 67 21 22 0d 0d 34 18 20 20 20 20 |ng Pig!"..4. |
00002070 20 20 20 20 20 20 20 20 45 51 55 42 20 20 31 30 | EQUB 10|
00002080 0d 0d 3e 18 20 20 20 20 20 20 20 20 20 20 20 20 |..>. |
00002090 45 51 55 42 20 20 31 30 0d 0d 48 29 20 20 20 20 |EQUB 10..H) |
000020a0 20 20 20 20 20 20 20 20 45 51 55 53 20 20 22 32 | EQUS "2|
000020b0 32 20 47 72 61 73 6d 65 72 65 20 52 6f 61 64 2c |2 Grasmere Road,|
000020c0 22 0d 0d 52 18 20 20 20 20 20 20 20 20 20 20 20 |"..R. |
000020d0 20 45 51 55 42 20 20 31 30 0d 0d 5c 24 20 20 20 | EQUB 10..\$ |
000020e0 20 20 20 20 20 20 20 20 20 45 51 55 53 20 20 22 | EQUS "|
000020f0 54 68 75 6e 64 65 72 73 6c 65 79 2c 22 0d 0d 66 |Thundersley,"..f|
00002100 18 20 20 20 20 20 20 20 20 20 20 20 20 45 51 55 |. EQU|
00002110 42 20 20 31 30 0d 0d 70 1e 20 20 20 20 20 20 20 |B 10..p. |
00002120 20 20 20 20 20 45 51 55 53 20 20 22 45 73 73 65 | EQUS "Esse|
00002130 78 2c 22 0d 0d 7a 18 20 20 20 20 20 20 20 20 20 |x,"..z. |
00002140 20 20 20 45 51 55 42 20 20 31 30 0d 0d 84 20 20 | EQUB 10... |
00002150 20 20 20 20 20 20 20 20 20 20 20 45 51 55 53 20 | EQUS |
00002160 20 22 53 53 37 20 33 48 46 2e 22 0d 0d 8e 18 20 | "SS7 3HF.".... |
00002170 20 20 20 20 20 20 20 20 20 20 20 45 51 55 42 20 | EQUB |
00002180 20 31 30 0d 0d 98 18 20 20 20 20 20 20 20 20 20 | 10.... |
00002190 20 20 20 45 51 55 42 20 20 31 30 0d 0d a2 28 20 | EQUB 10...( |
000021a0 20 20 20 20 20 20 20 20 20 20 20 45 51 55 53 20 | EQUS |
000021b0 20 22 54 65 6c 3a 30 31 32 36 38 20 37 35 39 32 | "Tel:01268 7592|
000021c0 36 38 22 0d 0d ac 18 20 20 20 20 20 20 20 20 20 |68".... |
000021d0 20 20 20 45 51 55 42 20 20 31 30 0d 0d b6 18 20 | EQUB 10.... |
000021e0 20 20 20 20 20 20 20 20 20 20 20 45 51 55 42 20 | EQUB |
000021f0 20 31 30 0d 0d c0 15 20 20 20 20 20 20 20 20 20 | 10.... |
00002200 20 20 20 41 4c 49 47 4e 0d 0d ca 09 2e 77 6f 72 | ALIGN.....wor|
00002210 6b 0d 0d d4 07 5d 3d 30 0d ff |k....]=0..|
0000221a 
.