Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199604.adf » Features » StarInfo/Fletcher/WinMgr/Patch316
StarInfo/Fletcher/WinMgr/Patch316
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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199604.adf » Features |
| Filename: | StarInfo/Fletcher/WinMgr/Patch316 |
| Read OK: | ✔ |
| File size: | 1EDE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
In Module
Out NModule
Type Module
Max 32k
; NOTE : only read this if you have not got WM3.16 and the other patch
; which I made up off the top of my head (of course) doesn't work
;
; BTW, look at this in Assembler mode and it looks really nice (well,
; my comments are in lovelly green and I think it's nice)
;
; To patch the window manager you'll first need to save a copy of it.
; For simplicities sake I'm going to describe this using !Zap as it is
; the best editor for hacking with, has TaskWindow and ExtEdit protocol
; and can grab tasks and modules from where they sit.
; The version I use is 1.20 and so if you have an earlier version some of
; these features may not be available.
;
; Go to the iconbar menu, and Create.Get module.WindowManager (this may be
; different if you've changed the menu structure). Now change to text mode
; (Shift-Ctrl-F1) and save the file in the same directory as this file, as
; WMO, and close the file. The reason for this is that when I saved the
; module out once or twice in Code mode it corrupted it, but it didn't happen
; in text mode - odd init ?
; In all future descriptions I use search to buffer (F7) but you may prefer
; the search to cursor (F4), if you do make sure you check all the options.
; Do not use Search-as-you-type, because it doesn't function quite right in
; Code mode. It works on the first search, but then always says failed.
;
; Now reload the file into Zap and search for ,`#&F000 and pick out any
; AND r14 followed by TEQ r14 and compare them to the code. There should
; only be one which is the same. The address of the TEQ should be placed
; after the first @ sign, and the address of the next location should be
; placed at the branch in checkforWI.
;
; Secondly, you should find the location of the routine Wimp_SetCaretPostion
; This is internal SWI call 18. If you move to the top of the code to where
; it says SWI handler code and press right arrow it should take you to the
; code to process the SWI calls. What we need to know is the internal address
; of the routine, so if you move down about a page or two (if the window is
; half size mode 31, then it's about 3 page-down's) then you should find a
; load of Branch instruction. Place the cursor on the first branch and count
; 18 instruction downwards starting at 0.
; That is say 0 then press down, then 1 and down, and continue until you say
; 18. That's the way I do it anyway; what you are doing is counting the
; presses of the down key anyway. Because this table includes a dummy branch
; as the first instruction, to catch illegal SWI's, you now need to move down
; one more instruction. This is the address of the Wimp_SetCaretPostion code.
; On WM3.16 the code is B &9090, so the code is therefore at &9090.
;
; On the non-existant-sort-of-dream-like-vanish-when-you-wake-up VAPOURWARE
; (hi Joe!) versions of the WindowManager this might be the address that we
; need. I say probably, and I've knocked together a version of this patch
; for a version which I've just dreamt up, picking the patch address off
; the top of my head. I shouldn't try the patch on any WindowManager around
; because it won't work because you haven't got the right version, because
; it doesn't exist. If it does work, then welcome to my dream world - you
; can sit over there next to the filing cabinets with the penguins in :-)
;
; However, if you haven't overdone the medication are living in the clean
; living and legal 'real world', then a little more work is involved. On
; WM3.16, the address we require is the final address which this indirects
; us to (oooh, good word incorrectly used I think). To discover your magic
; address press the right key and there it should be. At least it might.
; On WM3.16 the instruction is BL &9098, so we use the address &9098, on
; other versions this could be the first address which the jump is on, or
; a later one. What you are in anycase looking for is a branch to a location
; containing STMDB r13!,{r6,r7,r14} followed by LDR r6,[r12,#640] or
; suchlike.
; In my aforementioned dream I dreamt that the first branch address was the
; correct one, because I like to make life easier for myself.
;
; So, once you've found this address (on WM3.16 it is &9098) we perform a
; search for 9098 (omit the & as this is not required). Again a list of BL
; instructions will appear and you need to find the one which looks most like
; the code in changesetcaret. On WM3.16 it is &AB44, and I should expect that
; on other versions it will still be near end of the list.
; The address prior to this (ie &AB44 on WM3.16) should be places after the
; second @ sign.
;
; And finally you can run the code. And if you don't have JFPatch you can
; watch a wonderful error box appear saying No run action specified for this
; filetype, but still you can do it here so why not alter the BASIC code ?
; it just as simple. Change the path names in the program, then PROCsetpc,
; I think is the equivilent of @ and most of the rest of the code is the
; same.
;
; When you've done all that you'll need to install the patched WM into the
; machine prior to the desktop starting. The only way to do this is to
; create a !Boot application and install it from there. At it's most basic
; this could just be and Obey file called !Run with :
; RMLoad <Obey$Dir>.WM
; Desktop
; although it is likely that you would put other things in it as well.
; Remember that WM takes up a load of space and therefore unless you really
; /need/ this patch, like desperately, I would recommend that you forget it
; and click in the icons when you need to.
;
; Some people, like me, have dream-like existances where we imagine our
; machines have all kinds of mythical features like longfile names, command
; line editting, full use of solid drags, personalised alt-key combinations,
; screen grabbing or even slabbed filer icons. For those people, who dream ;
; wonderful dreams but still make life difficult be forcing themselves to
; have to load their new wonderful things and taking about a minute to do it,
; you probably already have the oft-dreamt of fonts-in-the-desktop myth, and
; so have eaten away at all your memory already and so 32 extra bytes of
; space taken by a non-existant module will be nothing to you.
;
; For all those people with RO3 machines and WM2.00 installed in them (hi
; there you sad people, what fun that is !) the same procedures apply, and
; the address of the Wimp_SetCaretPosition code is &68D8 and therefore you
; need the second patch at address &7EC8, and the first at &7C80 (return to
; &7c84). However, until I can work out how to do TextCopy without using
; FilterManager this information is quite useless !
;
; So, there you have it. 6k of code just to explain how to patch the window
; manager to stop it putting the caret at the start of writable icons.
; Surprisingly, the same problem occurs if you use some patches to allow
; fonts in the desktop without dreaming (ie some PD ones), and can probably
; be fixed in the same way.
;
; Well, have fun with it. I know I will!
@ &a854
; this replaces code :
; LDR r14,[r2],#32 - get data and increment
; AND r14,r14,#&F000 - leave just button
; TEQ r14,#&F000 <-- this line
; BNE &a840 - if not then try again
B checkforWI
@ &ab40
; this replaces code :
; MOV r0,r3 - set window handle
; MOV r1,r4 - set icon handle
; MVN r2,#&f0000000 - set x offset
; MVN r5,#0 <-- this line
; BL &a53c - is Wimp_SetCaretPosition
BL changesetcaret
@ endofcode
.checkforWI
TEQ r14,#&F000
TEQNE r14,#&E000
B &a858
; changes parameters passed to Wimp_SetCaretPosition internally when
; menu opens
.changesetcaret
MOV r2,#1024*16*16 ; 16k (should be enough)
MOV r3,#0 ; no y-offset
MVN r4,#0 ; flags (-1)
MVN r5,#0 ; no index
MOV pc,link
00000000 49 6e 20 20 20 4d 6f 64 75 6c 65 0a 4f 75 74 20 |In Module.Out |
00000010 20 4e 4d 6f 64 75 6c 65 0a 54 79 70 65 20 4d 6f | NModule.Type Mo|
00000020 64 75 6c 65 0a 4d 61 78 20 20 33 32 6b 0a 0a 3b |dule.Max 32k..;|
00000030 20 4e 4f 54 45 20 3a 20 6f 6e 6c 79 20 72 65 61 | NOTE : only rea|
00000040 64 20 74 68 69 73 20 69 66 20 79 6f 75 20 68 61 |d this if you ha|
00000050 76 65 20 6e 6f 74 20 67 6f 74 20 57 4d 33 2e 31 |ve not got WM3.1|
00000060 36 20 61 6e 64 20 74 68 65 20 6f 74 68 65 72 20 |6 and the other |
00000070 70 61 74 63 68 0a 3b 20 20 20 20 20 20 20 20 77 |patch.; w|
00000080 68 69 63 68 20 49 20 6d 61 64 65 20 75 70 20 6f |hich I made up o|
00000090 66 66 20 74 68 65 20 74 6f 70 20 6f 66 20 6d 79 |ff the top of my|
000000a0 20 68 65 61 64 20 28 6f 66 20 63 6f 75 72 73 65 | head (of course|
000000b0 29 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 0a 3b |) doesn't work.;|
000000c0 0a 3b 20 42 54 57 2c 20 6c 6f 6f 6b 20 61 74 20 |.; BTW, look at |
000000d0 74 68 69 73 20 69 6e 20 41 73 73 65 6d 62 6c 65 |this in Assemble|
000000e0 72 20 6d 6f 64 65 20 61 6e 64 20 69 74 20 6c 6f |r mode and it lo|
000000f0 6f 6b 73 20 72 65 61 6c 6c 79 20 6e 69 63 65 20 |oks really nice |
00000100 28 77 65 6c 6c 2c 0a 3b 20 6d 79 20 63 6f 6d 6d |(well,.; my comm|
00000110 65 6e 74 73 20 61 72 65 20 69 6e 20 6c 6f 76 65 |ents are in love|
00000120 6c 6c 79 20 67 72 65 65 6e 20 61 6e 64 20 49 20 |lly green and I |
00000130 74 68 69 6e 6b 20 69 74 27 73 20 6e 69 63 65 29 |think it's nice)|
00000140 0a 3b 0a 3b 20 54 6f 20 70 61 74 63 68 20 74 68 |.;.; To patch th|
00000150 65 20 77 69 6e 64 6f 77 20 6d 61 6e 61 67 65 72 |e window manager|
00000160 20 79 6f 75 27 6c 6c 20 66 69 72 73 74 20 6e 65 | you'll first ne|
00000170 65 64 20 74 6f 20 73 61 76 65 20 61 20 63 6f 70 |ed to save a cop|
00000180 79 20 6f 66 20 69 74 2e 0a 3b 20 46 6f 72 20 73 |y of it..; For s|
00000190 69 6d 70 6c 69 63 69 74 69 65 73 20 73 61 6b 65 |implicities sake|
000001a0 20 49 27 6d 20 67 6f 69 6e 67 20 74 6f 20 64 65 | I'm going to de|
000001b0 73 63 72 69 62 65 20 74 68 69 73 20 75 73 69 6e |scribe this usin|
000001c0 67 20 21 5a 61 70 20 61 73 20 69 74 20 69 73 0a |g !Zap as it is.|
000001d0 3b 20 74 68 65 20 62 65 73 74 20 65 64 69 74 6f |; the best edito|
000001e0 72 20 66 6f 72 20 68 61 63 6b 69 6e 67 20 77 69 |r for hacking wi|
000001f0 74 68 2c 20 68 61 73 20 54 61 73 6b 57 69 6e 64 |th, has TaskWind|
00000200 6f 77 20 61 6e 64 20 45 78 74 45 64 69 74 20 70 |ow and ExtEdit p|
00000210 72 6f 74 6f 63 6f 6c 0a 3b 20 61 6e 64 20 63 61 |rotocol.; and ca|
00000220 6e 20 67 72 61 62 20 74 61 73 6b 73 20 61 6e 64 |n grab tasks and|
00000230 20 6d 6f 64 75 6c 65 73 20 66 72 6f 6d 20 77 68 | modules from wh|
00000240 65 72 65 20 74 68 65 79 20 73 69 74 2e 0a 3b 20 |ere they sit..; |
00000250 54 68 65 20 76 65 72 73 69 6f 6e 20 49 20 75 73 |The version I us|
00000260 65 20 69 73 20 31 2e 32 30 20 61 6e 64 20 73 6f |e is 1.20 and so|
00000270 20 69 66 20 79 6f 75 20 68 61 76 65 20 61 6e 20 | if you have an |
00000280 65 61 72 6c 69 65 72 20 76 65 72 73 69 6f 6e 20 |earlier version |
00000290 73 6f 6d 65 20 6f 66 0a 3b 20 74 68 65 73 65 20 |some of.; these |
000002a0 66 65 61 74 75 72 65 73 20 6d 61 79 20 6e 6f 74 |features may not|
000002b0 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e 0a 3b | be available..;|
000002c0 0a 3b 20 47 6f 20 74 6f 20 74 68 65 20 69 63 6f |.; Go to the ico|
000002d0 6e 62 61 72 20 6d 65 6e 75 2c 20 61 6e 64 20 43 |nbar menu, and C|
000002e0 72 65 61 74 65 2e 47 65 74 20 6d 6f 64 75 6c 65 |reate.Get module|
000002f0 2e 57 69 6e 64 6f 77 4d 61 6e 61 67 65 72 20 28 |.WindowManager (|
00000300 74 68 69 73 20 6d 61 79 20 62 65 0a 3b 20 64 69 |this may be.; di|
00000310 66 66 65 72 65 6e 74 20 69 66 20 79 6f 75 27 76 |fferent if you'v|
00000320 65 20 63 68 61 6e 67 65 64 20 74 68 65 20 6d 65 |e changed the me|
00000330 6e 75 20 73 74 72 75 63 74 75 72 65 29 2e 20 4e |nu structure). N|
00000340 6f 77 20 63 68 61 6e 67 65 20 74 6f 20 74 65 78 |ow change to tex|
00000350 74 20 6d 6f 64 65 0a 3b 20 28 53 68 69 66 74 2d |t mode.; (Shift-|
00000360 43 74 72 6c 2d 46 31 29 20 61 6e 64 20 73 61 76 |Ctrl-F1) and sav|
00000370 65 20 74 68 65 20 66 69 6c 65 20 69 6e 20 74 68 |e the file in th|
00000380 65 20 73 61 6d 65 20 64 69 72 65 63 74 6f 72 79 |e same directory|
00000390 20 61 73 20 74 68 69 73 20 66 69 6c 65 2c 20 61 | as this file, a|
000003a0 73 0a 3b 20 57 4d 4f 2c 20 61 6e 64 20 63 6c 6f |s.; WMO, and clo|
000003b0 73 65 20 74 68 65 20 66 69 6c 65 2e 20 54 68 65 |se the file. The|
000003c0 20 72 65 61 73 6f 6e 20 66 6f 72 20 74 68 69 73 | reason for this|
000003d0 20 69 73 20 74 68 61 74 20 77 68 65 6e 20 49 20 | is that when I |
000003e0 73 61 76 65 64 20 74 68 65 0a 3b 20 6d 6f 64 75 |saved the.; modu|
000003f0 6c 65 20 6f 75 74 20 6f 6e 63 65 20 6f 72 20 74 |le out once or t|
00000400 77 69 63 65 20 69 6e 20 43 6f 64 65 20 6d 6f 64 |wice in Code mod|
00000410 65 20 69 74 20 63 6f 72 72 75 70 74 65 64 20 69 |e it corrupted i|
00000420 74 2c 20 62 75 74 20 69 74 20 64 69 64 6e 27 74 |t, but it didn't|
00000430 20 68 61 70 70 65 6e 0a 3b 20 69 6e 20 74 65 78 | happen.; in tex|
00000440 74 20 6d 6f 64 65 20 2d 20 6f 64 64 20 69 6e 69 |t mode - odd ini|
00000450 74 20 3f 0a 3b 20 49 6e 20 61 6c 6c 20 66 75 74 |t ?.; In all fut|
00000460 75 72 65 20 64 65 73 63 72 69 70 74 69 6f 6e 73 |ure descriptions|
00000470 20 49 20 75 73 65 20 73 65 61 72 63 68 20 74 6f | I use search to|
00000480 20 62 75 66 66 65 72 20 28 46 37 29 20 62 75 74 | buffer (F7) but|
00000490 20 79 6f 75 20 6d 61 79 20 70 72 65 66 65 72 0a | you may prefer.|
000004a0 3b 20 74 68 65 20 73 65 61 72 63 68 20 74 6f 20 |; the search to |
000004b0 63 75 72 73 6f 72 20 28 46 34 29 2c 20 69 66 20 |cursor (F4), if |
000004c0 79 6f 75 20 64 6f 20 6d 61 6b 65 20 73 75 72 65 |you do make sure|
000004d0 20 79 6f 75 20 63 68 65 63 6b 20 61 6c 6c 20 74 | you check all t|
000004e0 68 65 20 6f 70 74 69 6f 6e 73 2e 0a 3b 20 44 6f |he options..; Do|
000004f0 20 6e 6f 74 20 75 73 65 20 53 65 61 72 63 68 2d | not use Search-|
00000500 61 73 2d 79 6f 75 2d 74 79 70 65 2c 20 62 65 63 |as-you-type, bec|
00000510 61 75 73 65 20 69 74 20 64 6f 65 73 6e 27 74 20 |ause it doesn't |
00000520 66 75 6e 63 74 69 6f 6e 20 71 75 69 74 65 20 72 |function quite r|
00000530 69 67 68 74 20 69 6e 0a 3b 20 43 6f 64 65 20 6d |ight in.; Code m|
00000540 6f 64 65 2e 20 49 74 20 77 6f 72 6b 73 20 6f 6e |ode. It works on|
00000550 20 74 68 65 20 66 69 72 73 74 20 73 65 61 72 63 | the first searc|
00000560 68 2c 20 62 75 74 20 74 68 65 6e 20 61 6c 77 61 |h, but then alwa|
00000570 79 73 20 73 61 79 73 20 66 61 69 6c 65 64 2e 0a |ys says failed..|
00000580 3b 0a 3b 20 4e 6f 77 20 72 65 6c 6f 61 64 20 74 |;.; Now reload t|
00000590 68 65 20 66 69 6c 65 20 69 6e 74 6f 20 5a 61 70 |he file into Zap|
000005a0 20 61 6e 64 20 73 65 61 72 63 68 20 66 6f 72 20 | and search for |
000005b0 2c 60 23 26 46 30 30 30 20 61 6e 64 20 70 69 63 |,`#&F000 and pic|
000005c0 6b 20 6f 75 74 20 61 6e 79 0a 3b 20 41 4e 44 20 |k out any.; AND |
000005d0 72 31 34 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 |r14 followed by |
000005e0 54 45 51 20 72 31 34 20 61 6e 64 20 63 6f 6d 70 |TEQ r14 and comp|
000005f0 61 72 65 20 74 68 65 6d 20 74 6f 20 74 68 65 20 |are them to the |
00000600 63 6f 64 65 2e 20 54 68 65 72 65 20 73 68 6f 75 |code. There shou|
00000610 6c 64 0a 3b 20 6f 6e 6c 79 20 62 65 20 6f 6e 65 |ld.; only be one|
00000620 20 77 68 69 63 68 20 69 73 20 74 68 65 20 73 61 | which is the sa|
00000630 6d 65 2e 20 54 68 65 20 61 64 64 72 65 73 73 20 |me. The address |
00000640 6f 66 20 74 68 65 20 54 45 51 20 73 68 6f 75 6c |of the TEQ shoul|
00000650 64 20 62 65 20 70 6c 61 63 65 64 0a 3b 20 61 66 |d be placed.; af|
00000660 74 65 72 20 74 68 65 20 66 69 72 73 74 20 40 20 |ter the first @ |
00000670 73 69 67 6e 2c 20 61 6e 64 20 74 68 65 20 61 64 |sign, and the ad|
00000680 64 72 65 73 73 20 6f 66 20 74 68 65 20 6e 65 78 |dress of the nex|
00000690 74 20 6c 6f 63 61 74 69 6f 6e 20 73 68 6f 75 6c |t location shoul|
000006a0 64 20 62 65 0a 3b 20 70 6c 61 63 65 64 20 61 74 |d be.; placed at|
000006b0 20 74 68 65 20 62 72 61 6e 63 68 20 69 6e 20 63 | the branch in c|
000006c0 68 65 63 6b 66 6f 72 57 49 2e 0a 3b 0a 3b 20 53 |heckforWI..;.; S|
000006d0 65 63 6f 6e 64 6c 79 2c 20 79 6f 75 20 73 68 6f |econdly, you sho|
000006e0 75 6c 64 20 66 69 6e 64 20 74 68 65 20 6c 6f 63 |uld find the loc|
000006f0 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 |ation of the rou|
00000700 74 69 6e 65 20 57 69 6d 70 5f 53 65 74 43 61 72 |tine Wimp_SetCar|
00000710 65 74 50 6f 73 74 69 6f 6e 0a 3b 20 54 68 69 73 |etPostion.; This|
00000720 20 69 73 20 69 6e 74 65 72 6e 61 6c 20 53 57 49 | is internal SWI|
00000730 20 63 61 6c 6c 20 31 38 2e 20 49 66 20 79 6f 75 | call 18. If you|
00000740 20 6d 6f 76 65 20 74 6f 20 74 68 65 20 74 6f 70 | move to the top|
00000750 20 6f 66 20 74 68 65 20 63 6f 64 65 20 74 6f 20 | of the code to |
00000760 77 68 65 72 65 0a 3b 20 69 74 20 73 61 79 73 20 |where.; it says |
00000770 53 57 49 20 68 61 6e 64 6c 65 72 20 63 6f 64 65 |SWI handler code|
00000780 20 61 6e 64 20 70 72 65 73 73 20 72 69 67 68 74 | and press right|
00000790 20 61 72 72 6f 77 20 69 74 20 73 68 6f 75 6c 64 | arrow it should|
000007a0 20 74 61 6b 65 20 79 6f 75 20 74 6f 20 74 68 65 | take you to the|
000007b0 0a 3b 20 63 6f 64 65 20 74 6f 20 70 72 6f 63 65 |.; code to proce|
000007c0 73 73 20 74 68 65 20 53 57 49 20 63 61 6c 6c 73 |ss the SWI calls|
000007d0 2e 20 57 68 61 74 20 77 65 20 6e 65 65 64 20 74 |. What we need t|
000007e0 6f 20 6b 6e 6f 77 20 69 73 20 74 68 65 20 69 6e |o know is the in|
000007f0 74 65 72 6e 61 6c 20 61 64 64 72 65 73 73 0a 3b |ternal address.;|
00000800 20 6f 66 20 74 68 65 20 72 6f 75 74 69 6e 65 2c | of the routine,|
00000810 20 73 6f 20 69 66 20 79 6f 75 20 6d 6f 76 65 20 | so if you move |
00000820 64 6f 77 6e 20 61 62 6f 75 74 20 61 20 70 61 67 |down about a pag|
00000830 65 20 6f 72 20 74 77 6f 20 28 69 66 20 74 68 65 |e or two (if the|
00000840 20 77 69 6e 64 6f 77 20 69 73 0a 3b 20 68 61 6c | window is.; hal|
00000850 66 20 73 69 7a 65 20 6d 6f 64 65 20 33 31 2c 20 |f size mode 31, |
00000860 74 68 65 6e 20 69 74 27 73 20 61 62 6f 75 74 20 |then it's about |
00000870 33 20 70 61 67 65 2d 64 6f 77 6e 27 73 29 20 74 |3 page-down's) t|
00000880 68 65 6e 20 79 6f 75 20 73 68 6f 75 6c 64 20 66 |hen you should f|
00000890 69 6e 64 20 61 0a 3b 20 6c 6f 61 64 20 6f 66 20 |ind a.; load of |
000008a0 42 72 61 6e 63 68 20 69 6e 73 74 72 75 63 74 69 |Branch instructi|
000008b0 6f 6e 2e 20 50 6c 61 63 65 20 74 68 65 20 63 75 |on. Place the cu|
000008c0 72 73 6f 72 20 6f 6e 20 74 68 65 20 66 69 72 73 |rsor on the firs|
000008d0 74 20 62 72 61 6e 63 68 20 61 6e 64 20 63 6f 75 |t branch and cou|
000008e0 6e 74 0a 3b 20 31 38 20 69 6e 73 74 72 75 63 74 |nt.; 18 instruct|
000008f0 69 6f 6e 20 64 6f 77 6e 77 61 72 64 73 20 73 74 |ion downwards st|
00000900 61 72 74 69 6e 67 20 61 74 20 30 2e 0a 3b 20 54 |arting at 0..; T|
00000910 68 61 74 20 69 73 20 73 61 79 20 30 20 74 68 65 |hat is say 0 the|
00000920 6e 20 70 72 65 73 73 20 64 6f 77 6e 2c 20 74 68 |n press down, th|
00000930 65 6e 20 31 20 61 6e 64 20 64 6f 77 6e 2c 20 61 |en 1 and down, a|
00000940 6e 64 20 63 6f 6e 74 69 6e 75 65 20 75 6e 74 69 |nd continue unti|
00000950 6c 20 79 6f 75 20 73 61 79 0a 3b 20 31 38 2e 20 |l you say.; 18. |
00000960 54 68 61 74 27 73 20 74 68 65 20 77 61 79 20 49 |That's the way I|
00000970 20 64 6f 20 69 74 20 61 6e 79 77 61 79 3b 20 77 | do it anyway; w|
00000980 68 61 74 20 79 6f 75 20 61 72 65 20 64 6f 69 6e |hat you are doin|
00000990 67 20 69 73 20 63 6f 75 6e 74 69 6e 67 20 74 68 |g is counting th|
000009a0 65 0a 3b 20 70 72 65 73 73 65 73 20 6f 66 20 74 |e.; presses of t|
000009b0 68 65 20 64 6f 77 6e 20 6b 65 79 20 61 6e 79 77 |he down key anyw|
000009c0 61 79 2e 20 42 65 63 61 75 73 65 20 74 68 69 73 |ay. Because this|
000009d0 20 74 61 62 6c 65 20 69 6e 63 6c 75 64 65 73 20 | table includes |
000009e0 61 20 64 75 6d 6d 79 20 62 72 61 6e 63 68 0a 3b |a dummy branch.;|
000009f0 20 61 73 20 74 68 65 20 66 69 72 73 74 20 69 6e | as the first in|
00000a00 73 74 72 75 63 74 69 6f 6e 2c 20 74 6f 20 63 61 |struction, to ca|
00000a10 74 63 68 20 69 6c 6c 65 67 61 6c 20 53 57 49 27 |tch illegal SWI'|
00000a20 73 2c 20 79 6f 75 20 6e 6f 77 20 6e 65 65 64 20 |s, you now need |
00000a30 74 6f 20 6d 6f 76 65 20 64 6f 77 6e 0a 3b 20 6f |to move down.; o|
00000a40 6e 65 20 6d 6f 72 65 20 69 6e 73 74 72 75 63 74 |ne more instruct|
00000a50 69 6f 6e 2e 20 54 68 69 73 20 69 73 20 74 68 65 |ion. This is the|
00000a60 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 | address of the |
00000a70 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos|
00000a80 74 69 6f 6e 20 63 6f 64 65 2e 0a 3b 20 4f 6e 20 |tion code..; On |
00000a90 57 4d 33 2e 31 36 20 74 68 65 20 63 6f 64 65 20 |WM3.16 the code |
00000aa0 69 73 20 42 20 26 39 30 39 30 2c 20 73 6f 20 74 |is B &9090, so t|
00000ab0 68 65 20 63 6f 64 65 20 69 73 20 74 68 65 72 65 |he code is there|
00000ac0 66 6f 72 65 20 61 74 20 26 39 30 39 30 2e 0a 3b |fore at &9090..;|
00000ad0 0a 3b 20 4f 6e 20 74 68 65 20 6e 6f 6e 2d 65 78 |.; On the non-ex|
00000ae0 69 73 74 61 6e 74 2d 73 6f 72 74 2d 6f 66 2d 64 |istant-sort-of-d|
00000af0 72 65 61 6d 2d 6c 69 6b 65 2d 76 61 6e 69 73 68 |ream-like-vanish|
00000b00 2d 77 68 65 6e 2d 79 6f 75 2d 77 61 6b 65 2d 75 |-when-you-wake-u|
00000b10 70 20 56 41 50 4f 55 52 57 41 52 45 0a 3b 20 28 |p VAPOURWARE.; (|
00000b20 68 69 20 4a 6f 65 21 29 20 76 65 72 73 69 6f 6e |hi Joe!) version|
00000b30 73 20 6f 66 20 74 68 65 20 57 69 6e 64 6f 77 4d |s of the WindowM|
00000b40 61 6e 61 67 65 72 20 74 68 69 73 20 6d 69 67 68 |anager this migh|
00000b50 74 20 62 65 20 74 68 65 20 61 64 64 72 65 73 73 |t be the address|
00000b60 20 74 68 61 74 20 77 65 0a 3b 20 6e 65 65 64 2e | that we.; need.|
00000b70 20 49 20 73 61 79 20 70 72 6f 62 61 62 6c 79 2c | I say probably,|
00000b80 20 61 6e 64 20 49 27 76 65 20 6b 6e 6f 63 6b 65 | and I've knocke|
00000b90 64 20 74 6f 67 65 74 68 65 72 20 61 20 76 65 72 |d together a ver|
00000ba0 73 69 6f 6e 20 6f 66 20 74 68 69 73 20 70 61 74 |sion of this pat|
00000bb0 63 68 0a 3b 20 66 6f 72 20 61 20 76 65 72 73 69 |ch.; for a versi|
00000bc0 6f 6e 20 77 68 69 63 68 20 49 27 76 65 20 6a 75 |on which I've ju|
00000bd0 73 74 20 64 72 65 61 6d 74 20 75 70 2c 20 70 69 |st dreamt up, pi|
00000be0 63 6b 69 6e 67 20 74 68 65 20 70 61 74 63 68 20 |cking the patch |
00000bf0 61 64 64 72 65 73 73 20 6f 66 66 0a 3b 20 74 68 |address off.; th|
00000c00 65 20 74 6f 70 20 6f 66 20 6d 79 20 68 65 61 64 |e top of my head|
00000c10 2e 20 49 20 73 68 6f 75 6c 64 6e 27 74 20 74 72 |. I shouldn't tr|
00000c20 79 20 74 68 65 20 70 61 74 63 68 20 6f 6e 20 61 |y the patch on a|
00000c30 6e 79 20 57 69 6e 64 6f 77 4d 61 6e 61 67 65 72 |ny WindowManager|
00000c40 20 61 72 6f 75 6e 64 0a 3b 20 62 65 63 61 75 73 | around.; becaus|
00000c50 65 20 69 74 20 77 6f 6e 27 74 20 77 6f 72 6b 20 |e it won't work |
00000c60 62 65 63 61 75 73 65 20 79 6f 75 20 68 61 76 65 |because you have|
00000c70 6e 27 74 20 67 6f 74 20 74 68 65 20 72 69 67 68 |n't got the righ|
00000c80 74 20 76 65 72 73 69 6f 6e 2c 20 62 65 63 61 75 |t version, becau|
00000c90 73 65 0a 3b 20 69 74 20 64 6f 65 73 6e 27 74 20 |se.; it doesn't |
00000ca0 65 78 69 73 74 2e 20 49 66 20 69 74 20 64 6f 65 |exist. If it doe|
00000cb0 73 20 77 6f 72 6b 2c 20 74 68 65 6e 20 77 65 6c |s work, then wel|
00000cc0 63 6f 6d 65 20 74 6f 20 6d 79 20 64 72 65 61 6d |come to my dream|
00000cd0 20 77 6f 72 6c 64 20 2d 20 79 6f 75 0a 3b 20 63 | world - you.; c|
00000ce0 61 6e 20 73 69 74 20 6f 76 65 72 20 74 68 65 72 |an sit over ther|
00000cf0 65 20 6e 65 78 74 20 74 6f 20 74 68 65 20 66 69 |e next to the fi|
00000d00 6c 69 6e 67 20 63 61 62 69 6e 65 74 73 20 77 69 |ling cabinets wi|
00000d10 74 68 20 74 68 65 20 70 65 6e 67 75 69 6e 73 20 |th the penguins |
00000d20 69 6e 20 3a 2d 29 0a 3b 0a 3b 20 48 6f 77 65 76 |in :-).;.; Howev|
00000d30 65 72 2c 20 69 66 20 79 6f 75 20 68 61 76 65 6e |er, if you haven|
00000d40 27 74 20 6f 76 65 72 64 6f 6e 65 20 74 68 65 20 |'t overdone the |
00000d50 6d 65 64 69 63 61 74 69 6f 6e 20 61 72 65 20 6c |medication are l|
00000d60 69 76 69 6e 67 20 69 6e 20 74 68 65 20 63 6c 65 |iving in the cle|
00000d70 61 6e 0a 3b 20 6c 69 76 69 6e 67 20 61 6e 64 20 |an.; living and |
00000d80 6c 65 67 61 6c 20 27 72 65 61 6c 20 77 6f 72 6c |legal 'real worl|
00000d90 64 27 2c 20 74 68 65 6e 20 61 20 6c 69 74 74 6c |d', then a littl|
00000da0 65 20 6d 6f 72 65 20 77 6f 72 6b 20 69 73 20 69 |e more work is i|
00000db0 6e 76 6f 6c 76 65 64 2e 20 4f 6e 0a 3b 20 57 4d |nvolved. On.; WM|
00000dc0 33 2e 31 36 2c 20 74 68 65 20 61 64 64 72 65 73 |3.16, the addres|
00000dd0 73 20 77 65 20 72 65 71 75 69 72 65 20 69 73 20 |s we require is |
00000de0 74 68 65 20 66 69 6e 61 6c 20 61 64 64 72 65 73 |the final addres|
00000df0 73 20 77 68 69 63 68 20 74 68 69 73 20 69 6e 64 |s which this ind|
00000e00 69 72 65 63 74 73 0a 3b 20 75 73 20 74 6f 20 28 |irects.; us to (|
00000e10 6f 6f 6f 68 2c 20 67 6f 6f 64 20 77 6f 72 64 20 |oooh, good word |
00000e20 69 6e 63 6f 72 72 65 63 74 6c 79 20 75 73 65 64 |incorrectly used|
00000e30 20 49 20 74 68 69 6e 6b 29 2e 20 54 6f 20 64 69 | I think). To di|
00000e40 73 63 6f 76 65 72 20 79 6f 75 72 20 6d 61 67 69 |scover your magi|
00000e50 63 0a 3b 20 61 64 64 72 65 73 73 20 70 72 65 73 |c.; address pres|
00000e60 73 20 74 68 65 20 72 69 67 68 74 20 6b 65 79 20 |s the right key |
00000e70 61 6e 64 20 74 68 65 72 65 20 69 74 20 73 68 6f |and there it sho|
00000e80 75 6c 64 20 62 65 2e 20 41 74 20 6c 65 61 73 74 |uld be. At least|
00000e90 20 69 74 20 6d 69 67 68 74 2e 0a 3b 20 4f 6e 20 | it might..; On |
00000ea0 57 4d 33 2e 31 36 20 74 68 65 20 69 6e 73 74 72 |WM3.16 the instr|
00000eb0 75 63 74 69 6f 6e 20 69 73 20 42 4c 20 26 39 30 |uction is BL &90|
00000ec0 39 38 2c 20 73 6f 20 77 65 20 75 73 65 20 74 68 |98, so we use th|
00000ed0 65 20 61 64 64 72 65 73 73 20 26 39 30 39 38 2c |e address &9098,|
00000ee0 20 6f 6e 0a 3b 20 6f 74 68 65 72 20 76 65 72 73 | on.; other vers|
00000ef0 69 6f 6e 73 20 74 68 69 73 20 63 6f 75 6c 64 20 |ions this could |
00000f00 62 65 20 74 68 65 20 66 69 72 73 74 20 61 64 64 |be the first add|
00000f10 72 65 73 73 20 77 68 69 63 68 20 74 68 65 20 6a |ress which the j|
00000f20 75 6d 70 20 69 73 20 6f 6e 2c 20 6f 72 0a 3b 20 |ump is on, or.; |
00000f30 61 20 6c 61 74 65 72 20 6f 6e 65 2e 20 57 68 61 |a later one. Wha|
00000f40 74 20 79 6f 75 20 61 72 65 20 69 6e 20 61 6e 79 |t you are in any|
00000f50 63 61 73 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 |case looking for|
00000f60 20 69 73 20 61 20 62 72 61 6e 63 68 20 74 6f 20 | is a branch to |
00000f70 61 20 6c 6f 63 61 74 69 6f 6e 0a 3b 20 63 6f 6e |a location.; con|
00000f80 74 61 69 6e 69 6e 67 20 53 54 4d 44 42 20 72 31 |taining STMDB r1|
00000f90 33 21 2c 7b 72 36 2c 72 37 2c 72 31 34 7d 20 66 |3!,{r6,r7,r14} f|
00000fa0 6f 6c 6c 6f 77 65 64 20 62 79 20 4c 44 52 20 72 |ollowed by LDR r|
00000fb0 36 2c 5b 72 31 32 2c 23 36 34 30 5d 20 6f 72 0a |6,[r12,#640] or.|
00000fc0 3b 20 73 75 63 68 6c 69 6b 65 2e 0a 3b 20 49 6e |; suchlike..; In|
00000fd0 20 6d 79 20 61 66 6f 72 65 6d 65 6e 74 69 6f 6e | my aforemention|
00000fe0 65 64 20 64 72 65 61 6d 20 49 20 64 72 65 61 6d |ed dream I dream|
00000ff0 74 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74 |t that the first|
00001000 20 62 72 61 6e 63 68 20 61 64 64 72 65 73 73 20 | branch address |
00001010 77 61 73 20 74 68 65 0a 3b 20 63 6f 72 72 65 63 |was the.; correc|
00001020 74 20 6f 6e 65 2c 20 62 65 63 61 75 73 65 20 49 |t one, because I|
00001030 20 6c 69 6b 65 20 74 6f 20 6d 61 6b 65 20 6c 69 | like to make li|
00001040 66 65 20 65 61 73 69 65 72 20 66 6f 72 20 6d 79 |fe easier for my|
00001050 73 65 6c 66 2e 0a 3b 0a 3b 20 53 6f 2c 20 6f 6e |self..;.; So, on|
00001060 63 65 20 79 6f 75 27 76 65 20 66 6f 75 6e 64 20 |ce you've found |
00001070 74 68 69 73 20 61 64 64 72 65 73 73 20 28 6f 6e |this address (on|
00001080 20 57 4d 33 2e 31 36 20 69 74 20 69 73 20 26 39 | WM3.16 it is &9|
00001090 30 39 38 29 20 77 65 20 70 65 72 66 6f 72 6d 20 |098) we perform |
000010a0 61 0a 3b 20 73 65 61 72 63 68 20 66 6f 72 20 39 |a.; search for 9|
000010b0 30 39 38 20 28 6f 6d 69 74 20 74 68 65 20 26 20 |098 (omit the & |
000010c0 61 73 20 74 68 69 73 20 69 73 20 6e 6f 74 20 72 |as this is not r|
000010d0 65 71 75 69 72 65 64 29 2e 20 41 67 61 69 6e 20 |equired). Again |
000010e0 61 20 6c 69 73 74 20 6f 66 20 42 4c 0a 3b 20 69 |a list of BL.; i|
000010f0 6e 73 74 72 75 63 74 69 6f 6e 73 20 77 69 6c 6c |nstructions will|
00001100 20 61 70 70 65 61 72 20 61 6e 64 20 79 6f 75 20 | appear and you |
00001110 6e 65 65 64 20 74 6f 20 66 69 6e 64 20 74 68 65 |need to find the|
00001120 20 6f 6e 65 20 77 68 69 63 68 20 6c 6f 6f 6b 73 | one which looks|
00001130 20 6d 6f 73 74 20 6c 69 6b 65 0a 3b 20 74 68 65 | most like.; the|
00001140 20 63 6f 64 65 20 69 6e 20 63 68 61 6e 67 65 73 | code in changes|
00001150 65 74 63 61 72 65 74 2e 20 4f 6e 20 57 4d 33 2e |etcaret. On WM3.|
00001160 31 36 20 69 74 20 69 73 20 26 41 42 34 34 2c 20 |16 it is &AB44, |
00001170 61 6e 64 20 49 20 73 68 6f 75 6c 64 20 65 78 70 |and I should exp|
00001180 65 63 74 20 74 68 61 74 0a 3b 20 6f 6e 20 6f 74 |ect that.; on ot|
00001190 68 65 72 20 76 65 72 73 69 6f 6e 73 20 69 74 20 |her versions it |
000011a0 77 69 6c 6c 20 73 74 69 6c 6c 20 62 65 20 6e 65 |will still be ne|
000011b0 61 72 20 65 6e 64 20 6f 66 20 74 68 65 20 6c 69 |ar end of the li|
000011c0 73 74 2e 0a 3b 20 54 68 65 20 61 64 64 72 65 73 |st..; The addres|
000011d0 73 20 70 72 69 6f 72 20 74 6f 20 74 68 69 73 20 |s prior to this |
000011e0 28 69 65 20 26 41 42 34 34 20 6f 6e 20 57 4d 33 |(ie &AB44 on WM3|
000011f0 2e 31 36 29 20 73 68 6f 75 6c 64 20 62 65 20 70 |.16) should be p|
00001200 6c 61 63 65 73 20 61 66 74 65 72 20 74 68 65 0a |laces after the.|
00001210 3b 20 73 65 63 6f 6e 64 20 40 20 73 69 67 6e 2e |; second @ sign.|
00001220 0a 3b 0a 3b 20 41 6e 64 20 66 69 6e 61 6c 6c 79 |.;.; And finally|
00001230 20 79 6f 75 20 63 61 6e 20 72 75 6e 20 74 68 65 | you can run the|
00001240 20 63 6f 64 65 2e 20 41 6e 64 20 69 66 20 79 6f | code. And if yo|
00001250 75 20 64 6f 6e 27 74 20 68 61 76 65 20 4a 46 50 |u don't have JFP|
00001260 61 74 63 68 20 79 6f 75 20 63 61 6e 0a 3b 20 77 |atch you can.; w|
00001270 61 74 63 68 20 61 20 77 6f 6e 64 65 72 66 75 6c |atch a wonderful|
00001280 20 65 72 72 6f 72 20 62 6f 78 20 61 70 70 65 61 | error box appea|
00001290 72 20 73 61 79 69 6e 67 20 4e 6f 20 72 75 6e 20 |r saying No run |
000012a0 61 63 74 69 6f 6e 20 73 70 65 63 69 66 69 65 64 |action specified|
000012b0 20 66 6f 72 20 74 68 69 73 0a 3b 20 66 69 6c 65 | for this.; file|
000012c0 74 79 70 65 2c 20 62 75 74 20 73 74 69 6c 6c 20 |type, but still |
000012d0 79 6f 75 20 63 61 6e 20 64 6f 20 69 74 20 68 65 |you can do it he|
000012e0 72 65 20 73 6f 20 77 68 79 20 6e 6f 74 20 61 6c |re so why not al|
000012f0 74 65 72 20 74 68 65 20 42 41 53 49 43 20 63 6f |ter the BASIC co|
00001300 64 65 20 3f 0a 3b 20 69 74 20 6a 75 73 74 20 61 |de ?.; it just a|
00001310 73 20 73 69 6d 70 6c 65 2e 20 43 68 61 6e 67 65 |s simple. Change|
00001320 20 74 68 65 20 70 61 74 68 20 6e 61 6d 65 73 20 | the path names |
00001330 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 2c 20 |in the program, |
00001340 74 68 65 6e 20 50 52 4f 43 73 65 74 70 63 2c 0a |then PROCsetpc,.|
00001350 3b 20 49 20 74 68 69 6e 6b 20 69 73 20 74 68 65 |; I think is the|
00001360 20 65 71 75 69 76 69 6c 65 6e 74 20 6f 66 20 40 | equivilent of @|
00001370 20 61 6e 64 20 6d 6f 73 74 20 6f 66 20 74 68 65 | and most of the|
00001380 20 72 65 73 74 20 6f 66 20 74 68 65 20 63 6f 64 | rest of the cod|
00001390 65 20 69 73 20 74 68 65 0a 3b 20 73 61 6d 65 2e |e is the.; same.|
000013a0 0a 3b 0a 3b 20 57 68 65 6e 20 79 6f 75 27 76 65 |.;.; When you've|
000013b0 20 64 6f 6e 65 20 61 6c 6c 20 74 68 61 74 20 79 | done all that y|
000013c0 6f 75 27 6c 6c 20 6e 65 65 64 20 74 6f 20 69 6e |ou'll need to in|
000013d0 73 74 61 6c 6c 20 74 68 65 20 70 61 74 63 68 65 |stall the patche|
000013e0 64 20 57 4d 20 69 6e 74 6f 20 74 68 65 0a 3b 20 |d WM into the.; |
000013f0 6d 61 63 68 69 6e 65 20 70 72 69 6f 72 20 74 6f |machine prior to|
00001400 20 74 68 65 20 64 65 73 6b 74 6f 70 20 73 74 61 | the desktop sta|
00001410 72 74 69 6e 67 2e 20 54 68 65 20 6f 6e 6c 79 20 |rting. The only |
00001420 77 61 79 20 74 6f 20 64 6f 20 74 68 69 73 20 69 |way to do this i|
00001430 73 20 74 6f 0a 3b 20 63 72 65 61 74 65 20 61 20 |s to.; create a |
00001440 21 42 6f 6f 74 20 61 70 70 6c 69 63 61 74 69 6f |!Boot applicatio|
00001450 6e 20 61 6e 64 20 69 6e 73 74 61 6c 6c 20 69 74 |n and install it|
00001460 20 66 72 6f 6d 20 74 68 65 72 65 2e 20 41 74 20 | from there. At |
00001470 69 74 27 73 20 6d 6f 73 74 20 62 61 73 69 63 0a |it's most basic.|
00001480 3b 20 74 68 69 73 20 63 6f 75 6c 64 20 6a 75 73 |; this could jus|
00001490 74 20 62 65 20 61 6e 64 20 4f 62 65 79 20 66 69 |t be and Obey fi|
000014a0 6c 65 20 63 61 6c 6c 65 64 20 21 52 75 6e 20 77 |le called !Run w|
000014b0 69 74 68 20 3a 0a 3b 20 20 20 52 4d 4c 6f 61 64 |ith :.; RMLoad|
000014c0 20 3c 4f 62 65 79 24 44 69 72 3e 2e 57 4d 0a 3b | <Obey$Dir>.WM.;|
000014d0 20 20 20 44 65 73 6b 74 6f 70 0a 3b 20 61 6c 74 | Desktop.; alt|
000014e0 68 6f 75 67 68 20 69 74 20 69 73 20 6c 69 6b 65 |hough it is like|
000014f0 6c 79 20 74 68 61 74 20 79 6f 75 20 77 6f 75 6c |ly that you woul|
00001500 64 20 70 75 74 20 6f 74 68 65 72 20 74 68 69 6e |d put other thin|
00001510 67 73 20 69 6e 20 69 74 20 61 73 20 77 65 6c 6c |gs in it as well|
00001520 2e 0a 3b 20 52 65 6d 65 6d 62 65 72 20 74 68 61 |..; Remember tha|
00001530 74 20 57 4d 20 74 61 6b 65 73 20 75 70 20 61 20 |t WM takes up a |
00001540 6c 6f 61 64 20 6f 66 20 73 70 61 63 65 20 61 6e |load of space an|
00001550 64 20 74 68 65 72 65 66 6f 72 65 20 75 6e 6c 65 |d therefore unle|
00001560 73 73 20 79 6f 75 20 72 65 61 6c 6c 79 0a 3b 20 |ss you really.; |
00001570 2f 6e 65 65 64 2f 20 74 68 69 73 20 70 61 74 63 |/need/ this patc|
00001580 68 2c 20 6c 69 6b 65 20 64 65 73 70 65 72 61 74 |h, like desperat|
00001590 65 6c 79 2c 20 49 20 77 6f 75 6c 64 20 72 65 63 |ely, I would rec|
000015a0 6f 6d 6d 65 6e 64 20 74 68 61 74 20 79 6f 75 20 |ommend that you |
000015b0 66 6f 72 67 65 74 20 69 74 0a 3b 20 61 6e 64 20 |forget it.; and |
000015c0 63 6c 69 63 6b 20 69 6e 20 74 68 65 20 69 63 6f |click in the ico|
000015d0 6e 73 20 77 68 65 6e 20 79 6f 75 20 6e 65 65 64 |ns when you need|
000015e0 20 74 6f 2e 0a 3b 0a 3b 20 53 6f 6d 65 20 70 65 | to..;.; Some pe|
000015f0 6f 70 6c 65 2c 20 6c 69 6b 65 20 6d 65 2c 20 68 |ople, like me, h|
00001600 61 76 65 20 64 72 65 61 6d 2d 6c 69 6b 65 20 65 |ave dream-like e|
00001610 78 69 73 74 61 6e 63 65 73 20 77 68 65 72 65 20 |xistances where |
00001620 77 65 20 69 6d 61 67 69 6e 65 20 6f 75 72 0a 3b |we imagine our.;|
00001630 20 6d 61 63 68 69 6e 65 73 20 68 61 76 65 20 61 | machines have a|
00001640 6c 6c 20 6b 69 6e 64 73 20 6f 66 20 6d 79 74 68 |ll kinds of myth|
00001650 69 63 61 6c 20 66 65 61 74 75 72 65 73 20 6c 69 |ical features li|
00001660 6b 65 20 6c 6f 6e 67 66 69 6c 65 20 6e 61 6d 65 |ke longfile name|
00001670 73 2c 20 63 6f 6d 6d 61 6e 64 0a 3b 20 6c 69 6e |s, command.; lin|
00001680 65 20 65 64 69 74 74 69 6e 67 2c 20 66 75 6c 6c |e editting, full|
00001690 20 75 73 65 20 6f 66 20 73 6f 6c 69 64 20 64 72 | use of solid dr|
000016a0 61 67 73 2c 20 70 65 72 73 6f 6e 61 6c 69 73 65 |ags, personalise|
000016b0 64 20 61 6c 74 2d 6b 65 79 20 63 6f 6d 62 69 6e |d alt-key combin|
000016c0 61 74 69 6f 6e 73 2c 0a 3b 20 73 63 72 65 65 6e |ations,.; screen|
000016d0 20 67 72 61 62 62 69 6e 67 20 6f 72 20 65 76 65 | grabbing or eve|
000016e0 6e 20 73 6c 61 62 62 65 64 20 66 69 6c 65 72 20 |n slabbed filer |
000016f0 69 63 6f 6e 73 2e 20 46 6f 72 20 74 68 6f 73 65 |icons. For those|
00001700 20 70 65 6f 70 6c 65 2c 20 77 68 6f 20 64 72 65 | people, who dre|
00001710 61 6d 20 3b 0a 3b 20 77 6f 6e 64 65 72 66 75 6c |am ;.; wonderful|
00001720 20 64 72 65 61 6d 73 20 62 75 74 20 73 74 69 6c | dreams but stil|
00001730 6c 20 6d 61 6b 65 20 6c 69 66 65 20 64 69 66 66 |l make life diff|
00001740 69 63 75 6c 74 20 62 65 20 66 6f 72 63 69 6e 67 |icult be forcing|
00001750 20 74 68 65 6d 73 65 6c 76 65 73 20 74 6f 0a 3b | themselves to.;|
00001760 20 68 61 76 65 20 74 6f 20 6c 6f 61 64 20 74 68 | have to load th|
00001770 65 69 72 20 6e 65 77 20 77 6f 6e 64 65 72 66 75 |eir new wonderfu|
00001780 6c 20 74 68 69 6e 67 73 20 61 6e 64 20 74 61 6b |l things and tak|
00001790 69 6e 67 20 61 62 6f 75 74 20 61 20 6d 69 6e 75 |ing about a minu|
000017a0 74 65 20 74 6f 20 64 6f 20 69 74 2c 0a 3b 20 79 |te to do it,.; y|
000017b0 6f 75 20 70 72 6f 62 61 62 6c 79 20 61 6c 72 65 |ou probably alre|
000017c0 61 64 79 20 68 61 76 65 20 74 68 65 20 6f 66 74 |ady have the oft|
000017d0 2d 64 72 65 61 6d 74 20 6f 66 20 66 6f 6e 74 73 |-dreamt of fonts|
000017e0 2d 69 6e 2d 74 68 65 2d 64 65 73 6b 74 6f 70 20 |-in-the-desktop |
000017f0 6d 79 74 68 2c 20 61 6e 64 0a 3b 20 73 6f 20 68 |myth, and.; so h|
00001800 61 76 65 20 65 61 74 65 6e 20 61 77 61 79 20 61 |ave eaten away a|
00001810 74 20 61 6c 6c 20 79 6f 75 72 20 6d 65 6d 6f 72 |t all your memor|
00001820 79 20 61 6c 72 65 61 64 79 20 61 6e 64 20 73 6f |y already and so|
00001830 20 33 32 20 65 78 74 72 61 20 62 79 74 65 73 20 | 32 extra bytes |
00001840 6f 66 0a 3b 20 73 70 61 63 65 20 74 61 6b 65 6e |of.; space taken|
00001850 20 62 79 20 61 20 6e 6f 6e 2d 65 78 69 73 74 61 | by a non-exista|
00001860 6e 74 20 6d 6f 64 75 6c 65 20 77 69 6c 6c 20 62 |nt module will b|
00001870 65 20 6e 6f 74 68 69 6e 67 20 74 6f 20 79 6f 75 |e nothing to you|
00001880 2e 0a 3b 0a 3b 20 46 6f 72 20 61 6c 6c 20 74 68 |..;.; For all th|
00001890 6f 73 65 20 70 65 6f 70 6c 65 20 77 69 74 68 20 |ose people with |
000018a0 52 4f 33 20 6d 61 63 68 69 6e 65 73 20 61 6e 64 |RO3 machines and|
000018b0 20 57 4d 32 2e 30 30 20 69 6e 73 74 61 6c 6c 65 | WM2.00 installe|
000018c0 64 20 69 6e 20 74 68 65 6d 20 28 68 69 0a 3b 20 |d in them (hi.; |
000018d0 74 68 65 72 65 20 79 6f 75 20 73 61 64 20 70 65 |there you sad pe|
000018e0 6f 70 6c 65 2c 20 77 68 61 74 20 66 75 6e 20 74 |ople, what fun t|
000018f0 68 61 74 20 69 73 20 21 29 20 74 68 65 20 73 61 |hat is !) the sa|
00001900 6d 65 20 70 72 6f 63 65 64 75 72 65 73 20 61 70 |me procedures ap|
00001910 70 6c 79 2c 20 61 6e 64 0a 3b 20 74 68 65 20 61 |ply, and.; the a|
00001920 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 57 69 |ddress of the Wi|
00001930 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 |mp_SetCaretPosit|
00001940 69 6f 6e 20 63 6f 64 65 20 69 73 20 26 36 38 44 |ion code is &68D|
00001950 38 20 61 6e 64 20 74 68 65 72 65 66 6f 72 65 20 |8 and therefore |
00001960 79 6f 75 0a 3b 20 6e 65 65 64 20 74 68 65 20 73 |you.; need the s|
00001970 65 63 6f 6e 64 20 70 61 74 63 68 20 61 74 20 61 |econd patch at a|
00001980 64 64 72 65 73 73 20 26 37 45 43 38 2c 20 61 6e |ddress &7EC8, an|
00001990 64 20 74 68 65 20 66 69 72 73 74 20 61 74 20 26 |d the first at &|
000019a0 37 43 38 30 20 28 72 65 74 75 72 6e 20 74 6f 0a |7C80 (return to.|
000019b0 3b 20 26 37 63 38 34 29 2e 20 48 6f 77 65 76 65 |; &7c84). Howeve|
000019c0 72 2c 20 75 6e 74 69 6c 20 49 20 63 61 6e 20 77 |r, until I can w|
000019d0 6f 72 6b 20 6f 75 74 20 68 6f 77 20 74 6f 20 64 |ork out how to d|
000019e0 6f 20 54 65 78 74 43 6f 70 79 20 77 69 74 68 6f |o TextCopy witho|
000019f0 75 74 20 75 73 69 6e 67 0a 3b 20 46 69 6c 74 65 |ut using.; Filte|
00001a00 72 4d 61 6e 61 67 65 72 20 74 68 69 73 20 69 6e |rManager this in|
00001a10 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 71 75 69 |formation is qui|
00001a20 74 65 20 75 73 65 6c 65 73 73 20 21 0a 3b 0a 3b |te useless !.;.;|
00001a30 20 53 6f 2c 20 74 68 65 72 65 20 79 6f 75 20 68 | So, there you h|
00001a40 61 76 65 20 69 74 2e 20 36 6b 20 6f 66 20 63 6f |ave it. 6k of co|
00001a50 64 65 20 6a 75 73 74 20 74 6f 20 65 78 70 6c 61 |de just to expla|
00001a60 69 6e 20 68 6f 77 20 74 6f 20 70 61 74 63 68 20 |in how to patch |
00001a70 74 68 65 20 77 69 6e 64 6f 77 0a 3b 20 6d 61 6e |the window.; man|
00001a80 61 67 65 72 20 74 6f 20 73 74 6f 70 20 69 74 20 |ager to stop it |
00001a90 70 75 74 74 69 6e 67 20 74 68 65 20 63 61 72 65 |putting the care|
00001aa0 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f |t at the start o|
00001ab0 66 20 77 72 69 74 61 62 6c 65 20 69 63 6f 6e 73 |f writable icons|
00001ac0 2e 0a 3b 20 53 75 72 70 72 69 73 69 6e 67 6c 79 |..; Surprisingly|
00001ad0 2c 20 74 68 65 20 73 61 6d 65 20 70 72 6f 62 6c |, the same probl|
00001ae0 65 6d 20 6f 63 63 75 72 73 20 69 66 20 79 6f 75 |em occurs if you|
00001af0 20 75 73 65 20 73 6f 6d 65 20 70 61 74 63 68 65 | use some patche|
00001b00 73 20 74 6f 20 61 6c 6c 6f 77 0a 3b 20 66 6f 6e |s to allow.; fon|
00001b10 74 73 20 69 6e 20 74 68 65 20 64 65 73 6b 74 6f |ts in the deskto|
00001b20 70 20 77 69 74 68 6f 75 74 20 64 72 65 61 6d 69 |p without dreami|
00001b30 6e 67 20 28 69 65 20 73 6f 6d 65 20 50 44 20 6f |ng (ie some PD o|
00001b40 6e 65 73 29 2c 20 61 6e 64 20 63 61 6e 20 70 72 |nes), and can pr|
00001b50 6f 62 61 62 6c 79 0a 3b 20 62 65 20 66 69 78 65 |obably.; be fixe|
00001b60 64 20 69 6e 20 74 68 65 20 73 61 6d 65 20 77 61 |d in the same wa|
00001b70 79 2e 0a 3b 0a 3b 20 57 65 6c 6c 2c 20 68 61 76 |y..;.; Well, hav|
00001b80 65 20 66 75 6e 20 77 69 74 68 20 69 74 2e 20 49 |e fun with it. I|
00001b90 20 6b 6e 6f 77 20 49 20 77 69 6c 6c 21 0a 0a 40 | know I will!..@|
00001ba0 20 26 61 38 35 34 0a 3b 20 74 68 69 73 20 72 65 | &a854.; this re|
00001bb0 70 6c 61 63 65 73 20 63 6f 64 65 20 3a 0a 3b 20 |places code :.; |
00001bc0 4c 44 52 20 72 31 34 2c 5b 72 32 5d 2c 23 33 32 |LDR r14,[r2],#32|
00001bd0 20 20 20 2d 20 67 65 74 20 64 61 74 61 20 61 6e | - get data an|
00001be0 64 20 69 6e 63 72 65 6d 65 6e 74 0a 3b 20 41 4e |d increment.; AN|
00001bf0 44 20 72 31 34 2c 72 31 34 2c 23 26 46 30 30 30 |D r14,r14,#&F000|
00001c00 20 2d 20 6c 65 61 76 65 20 6a 75 73 74 20 62 75 | - leave just bu|
00001c10 74 74 6f 6e 0a 3b 20 54 45 51 20 72 31 34 2c 23 |tton.; TEQ r14,#|
00001c20 26 46 30 30 30 20 20 20 20 3c 2d 2d 20 74 68 69 |&F000 <-- thi|
00001c30 73 20 6c 69 6e 65 0a 3b 20 42 4e 45 20 26 61 38 |s line.; BNE &a8|
00001c40 34 30 20 20 20 20 20 20 20 20 20 20 2d 20 69 66 |40 - if|
00001c50 20 6e 6f 74 20 74 68 65 6e 20 74 72 79 20 61 67 | not then try ag|
00001c60 61 69 6e 0a 20 20 20 42 20 20 20 20 20 20 20 63 |ain. B c|
00001c70 68 65 63 6b 66 6f 72 57 49 0a 0a 40 20 26 61 62 |heckforWI..@ &ab|
00001c80 34 30 0a 3b 20 74 68 69 73 20 72 65 70 6c 61 63 |40.; this replac|
00001c90 65 73 20 63 6f 64 65 20 3a 0a 3b 20 4d 4f 56 20 |es code :.; MOV |
00001ca0 72 30 2c 72 33 20 20 20 20 20 20 20 20 20 20 2d |r0,r3 -|
00001cb0 20 73 65 74 20 77 69 6e 64 6f 77 20 68 61 6e 64 | set window hand|
00001cc0 6c 65 0a 3b 20 4d 4f 56 20 72 31 2c 72 34 20 20 |le.; MOV r1,r4 |
00001cd0 20 20 20 20 20 20 20 20 2d 20 73 65 74 20 69 63 | - set ic|
00001ce0 6f 6e 20 68 61 6e 64 6c 65 0a 3b 20 4d 56 4e 20 |on handle.; MVN |
00001cf0 72 32 2c 23 26 66 30 30 30 30 30 30 30 20 20 2d |r2,#&f0000000 -|
00001d00 20 73 65 74 20 78 20 6f 66 66 73 65 74 0a 3b 20 | set x offset.; |
00001d10 4d 56 4e 20 72 35 2c 23 30 20 20 20 20 20 20 20 |MVN r5,#0 |
00001d20 20 20 3c 2d 2d 20 74 68 69 73 20 6c 69 6e 65 0a | <-- this line.|
00001d30 3b 20 42 4c 20 20 26 61 35 33 63 20 20 20 20 20 |; BL &a53c |
00001d40 20 20 20 20 20 2d 20 69 73 20 57 69 6d 70 5f 53 | - is Wimp_S|
00001d50 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 0a |etCaretPosition.|
00001d60 20 20 20 42 4c 20 20 20 20 20 20 63 68 61 6e 67 | BL chang|
00001d70 65 73 65 74 63 61 72 65 74 0a 0a 40 20 65 6e 64 |esetcaret..@ end|
00001d80 6f 66 63 6f 64 65 0a 2e 63 68 65 63 6b 66 6f 72 |ofcode..checkfor|
00001d90 57 49 0a 20 20 20 54 45 51 20 20 20 20 20 72 31 |WI. TEQ r1|
00001da0 34 2c 23 26 46 30 30 30 0a 20 20 20 54 45 51 4e |4,#&F000. TEQN|
00001db0 45 20 20 20 72 31 34 2c 23 26 45 30 30 30 0a 20 |E r14,#&E000. |
00001dc0 20 20 42 20 20 20 20 20 20 20 26 61 38 35 38 0a | B &a858.|
00001dd0 0a 3b 20 63 68 61 6e 67 65 73 20 70 61 72 61 6d |.; changes param|
00001de0 65 74 65 72 73 20 70 61 73 73 65 64 20 74 6f 20 |eters passed to |
00001df0 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos|
00001e00 69 74 69 6f 6e 20 69 6e 74 65 72 6e 61 6c 6c 79 |ition internally|
00001e10 20 77 68 65 6e 0a 3b 20 6d 65 6e 75 20 6f 70 65 | when.; menu ope|
00001e20 6e 73 0a 2e 63 68 61 6e 67 65 73 65 74 63 61 72 |ns..changesetcar|
00001e30 65 74 0a 20 20 20 4d 4f 56 20 20 20 20 20 72 32 |et. MOV r2|
00001e40 2c 23 31 30 32 34 2a 31 36 2a 31 36 20 3b 20 31 |,#1024*16*16 ; 1|
00001e50 36 6b 20 28 73 68 6f 75 6c 64 20 62 65 20 65 6e |6k (should be en|
00001e60 6f 75 67 68 29 0a 20 20 20 4d 4f 56 20 20 20 20 |ough). MOV |
00001e70 20 72 33 2c 23 30 20 20 20 20 20 3b 20 6e 6f 20 | r3,#0 ; no |
00001e80 79 2d 6f 66 66 73 65 74 0a 20 20 20 4d 56 4e 20 |y-offset. MVN |
00001e90 20 20 20 20 72 34 2c 23 30 20 20 20 20 20 3b 20 | r4,#0 ; |
00001ea0 66 6c 61 67 73 20 28 2d 31 29 0a 20 20 20 4d 56 |flags (-1). MV|
00001eb0 4e 20 20 20 20 20 72 35 2c 23 30 20 20 20 20 20 |N r5,#0 |
00001ec0 3b 20 6e 6f 20 69 6e 64 65 78 0a 20 20 20 4d 4f |; no index. MO|
00001ed0 56 20 20 20 20 20 70 63 2c 6c 69 6e 6b 0a |V pc,link.|
00001ede 
.