Home » Archimedes archive » Acorn User » AU 1994-07.adf » !StarInfo_StarInfo » Borcherds/f12<>f10Sr
Borcherds/f12<>f10Sr
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 1994-07.adf » !StarInfo_StarInfo |
| Filename: | Borcherds/f12<>f10Sr |
| Read OK: | ✔ |
| File size: | 04F9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM > f12<>f10Src
2DIM code 1000
3
4FORp=4 TO 6 STEP 2
5O%=code
6P%=0
7[OPT p
8EQUD start
9EQUD 0 ;init
10EQUD finish
11EQUD 0 ;serv
12EQUD title
13EQUD help
14EQUD table
15EQUD 0
16EQUD 0
17EQUD 0
18EQUD 0
19
20.start
21MOV R0,#&14 ; InsV
22ADR R1,InsV
23MOV R2,#0
24SWI "OS_AddToVector"
25SWI "OS_Exit"
26
27.finish
28STMFD R13!,{R14}
29MOV R0,#&14 ; InsV
30ADR R1,InsV
31MOV R2,#0
32SWI "XOS_Release"
33LDMFD R13!,{PC}
34
35.InsV
36CMP R1,#0
37BNE done
38CMP R0,#202:MOVEQ R0,#204:BEQ done
39CMP R0,#204:MOVEQ R0,#202:BEQ done
40
41CMP R0,#234:MOVEQ R0,#236:BEQ done
42CMP R0,#236:MOVEQ R0,#234:BEQ done
43
44CMP R0,#218:MOVEQ R0,#220:BEQ done
45CMP R0,#220:MOVEQ R0,#218:BEQ done
46
47CMP R0,#250:MOVEQ R0,#252:BEQ done
48CMP R0,#252:MOVEQ R0,#250
49
50.done
51MOV PC,R14
52
53.title
54EQUS "f12<>f10"
55EQUB0
56ALIGN
57
58.help
59EQUS "f12<>f10"+CHR$9+"1.00 (04 Jan 1994)"
60EQUB 0
61ALIGN
62
63.table
64EQUS "f12<>f10" : EQUB 0
65ALIGN
66EQUD 0
67EQUD 0
68EQUD 0
69EQUD helptext
70EQUD 0
71.helptext
72EQUS "This module swaps f12 and f10 in the desktop by intercepting InsV. It is intended for use on an A4."
73EQUB 0
74ALIGN
75]
76
77NEXT
78
79OSCLI"SAVE f12<>f10 "+STR$~code+" "+STR$~(O%)
80OSCLI"SETTYPE f12<>f10 MODULE"
81END
� > f12<>f10Src
� code 1000
�p=4 � 6 � 2
O%=code
P%=0
[OPT p
EQUD start
EQUD 0 ;init
EQUD finish
EQUD 0 ;serv
EQUD title
EQUD help
EQUD table
EQUD 0
EQUD 0
EQUD 0
EQUD 0
.start
MOV R0,#&14 ; InsV
ADR R1,InsV
MOV R2,#0
SWI "OS_AddToVector"
SWI "OS_Exit"
.finish
STMFD R13!,{R14}
MOV R0,#&14 ; InsV
ADR R1,InsV
MOV R2,#0
SWI "XOS_Release"
!LDMFD R13!,{PC}
"
# .InsV
$
CMP R1,#0
% BNE done
&#CMP R0,#202:�Q R0,#204:BEQ done
'#CMP R0,#204:�Q R0,#202:BEQ done
(
)#CMP R0,#234:�Q R0,#236:BEQ done
*#CMP R0,#236:�Q R0,#234:BEQ done
+
,#CMP R0,#218:�Q R0,#220:BEQ done
-#CMP R0,#220:�Q R0,#218:BEQ done
.
/#CMP R0,#250:�Q R0,#252:BEQ done
0CMP R0,#252:�Q R0,#250
1
2 .done
3MOV PC,R14
4
5
.title
6EQUS "f12<>f10"
7 EQUB0
8 ALIGN
9
: .help
;+EQUS "f12<>f10"+�9+"1.00 (04 Jan 1994)"
<
EQUB 0
= ALIGN
>
?
.table
@ EQUS "f12<>f10" : EQUB 0
A ALIGN
B
EQUD 0
C
EQUD 0
D
EQUD 0
EEQUD helptext
F
EQUD 0
G
.helptext
HnEQUS "This module swaps f12 and f10 in the desktop by intercepting InsV. It is intended for use on an A4."
I
EQUB 0
J ALIGN
K]
L
M�
N
O'�"SAVE f12<>f10 "+�~code+" "+�~(O%)
P �"SETTYPE f12<>f10 MODULE"
Q�
� 00000000 0d 00 01 13 f4 20 3e 20 66 31 32 3c 3e 66 31 30 |..... > f12<>f10|
00000010 53 72 63 0d 00 02 0f de 20 63 6f 64 65 20 31 30 |Src..... code 10|
00000020 30 30 0d 00 03 04 0d 00 04 10 e3 70 3d 34 20 b8 |00.........p=4 .|
00000030 20 36 20 88 20 32 0d 00 05 0b 4f 25 3d 63 6f 64 | 6 . 2....O%=cod|
00000040 65 0d 00 06 08 50 25 3d 30 0d 00 07 0a 5b 4f 50 |e....P%=0....[OP|
00000050 54 20 70 0d 00 08 0e 45 51 55 44 20 73 74 61 72 |T p....EQUD star|
00000060 74 0d 00 09 10 45 51 55 44 20 30 20 3b 69 6e 69 |t....EQUD 0 ;ini|
00000070 74 0d 00 0a 0f 45 51 55 44 20 66 69 6e 69 73 68 |t....EQUD finish|
00000080 0d 00 0b 10 45 51 55 44 20 30 20 3b 73 65 72 76 |....EQUD 0 ;serv|
00000090 0d 00 0c 0e 45 51 55 44 20 74 69 74 6c 65 0d 00 |....EQUD title..|
000000a0 0d 0d 45 51 55 44 20 68 65 6c 70 0d 00 0e 0e 45 |..EQUD help....E|
000000b0 51 55 44 20 74 61 62 6c 65 0d 00 0f 0a 45 51 55 |QUD table....EQU|
000000c0 44 20 30 0d 00 10 0a 45 51 55 44 20 30 0d 00 11 |D 0....EQUD 0...|
000000d0 0a 45 51 55 44 20 30 0d 00 12 0a 45 51 55 44 20 |.EQUD 0....EQUD |
000000e0 30 0d 00 13 04 0d 00 14 0a 2e 73 74 61 72 74 0d |0.........start.|
000000f0 00 15 16 4d 4f 56 20 52 30 2c 23 26 31 34 20 3b |...MOV R0,#&14 ;|
00000100 20 49 6e 73 56 0d 00 16 0f 41 44 52 20 52 31 2c | InsV....ADR R1,|
00000110 49 6e 73 56 0d 00 17 0d 4d 4f 56 20 52 32 2c 23 |InsV....MOV R2,#|
00000120 30 0d 00 18 18 53 57 49 20 22 4f 53 5f 41 64 64 |0....SWI "OS_Add|
00000130 54 6f 56 65 63 74 6f 72 22 0d 00 19 11 53 57 49 |ToVector"....SWI|
00000140 20 22 4f 53 5f 45 78 69 74 22 0d 00 1a 04 0d 00 | "OS_Exit"......|
00000150 1b 0b 2e 66 69 6e 69 73 68 0d 00 1c 14 53 54 4d |...finish....STM|
00000160 46 44 20 52 31 33 21 2c 7b 52 31 34 7d 0d 00 1d |FD R13!,{R14}...|
00000170 16 4d 4f 56 20 52 30 2c 23 26 31 34 20 3b 20 49 |.MOV R0,#&14 ; I|
00000180 6e 73 56 0d 00 1e 0f 41 44 52 20 52 31 2c 49 6e |nsV....ADR R1,In|
00000190 73 56 0d 00 1f 0d 4d 4f 56 20 52 32 2c 23 30 0d |sV....MOV R2,#0.|
000001a0 00 20 15 53 57 49 20 22 58 4f 53 5f 52 65 6c 65 |. .SWI "XOS_Rele|
000001b0 61 73 65 22 0d 00 21 13 4c 44 4d 46 44 20 52 31 |ase"..!.LDMFD R1|
000001c0 33 21 2c 7b 50 43 7d 0d 00 22 04 0d 00 23 09 2e |3!,{PC}.."...#..|
000001d0 49 6e 73 56 0d 00 24 0d 43 4d 50 20 52 31 2c 23 |InsV..$.CMP R1,#|
000001e0 30 0d 00 25 0c 42 4e 45 20 64 6f 6e 65 0d 00 26 |0..%.BNE done..&|
000001f0 23 43 4d 50 20 52 30 2c 23 32 30 32 3a ec 51 20 |#CMP R0,#202:.Q |
00000200 52 30 2c 23 32 30 34 3a 42 45 51 20 64 6f 6e 65 |R0,#204:BEQ done|
00000210 0d 00 27 23 43 4d 50 20 52 30 2c 23 32 30 34 3a |..'#CMP R0,#204:|
00000220 ec 51 20 52 30 2c 23 32 30 32 3a 42 45 51 20 64 |.Q R0,#202:BEQ d|
00000230 6f 6e 65 0d 00 28 04 0d 00 29 23 43 4d 50 20 52 |one..(...)#CMP R|
00000240 30 2c 23 32 33 34 3a ec 51 20 52 30 2c 23 32 33 |0,#234:.Q R0,#23|
00000250 36 3a 42 45 51 20 64 6f 6e 65 0d 00 2a 23 43 4d |6:BEQ done..*#CM|
00000260 50 20 52 30 2c 23 32 33 36 3a ec 51 20 52 30 2c |P R0,#236:.Q R0,|
00000270 23 32 33 34 3a 42 45 51 20 64 6f 6e 65 0d 00 2b |#234:BEQ done..+|
00000280 04 0d 00 2c 23 43 4d 50 20 52 30 2c 23 32 31 38 |...,#CMP R0,#218|
00000290 3a ec 51 20 52 30 2c 23 32 32 30 3a 42 45 51 20 |:.Q R0,#220:BEQ |
000002a0 64 6f 6e 65 0d 00 2d 23 43 4d 50 20 52 30 2c 23 |done..-#CMP R0,#|
000002b0 32 32 30 3a ec 51 20 52 30 2c 23 32 31 38 3a 42 |220:.Q R0,#218:B|
000002c0 45 51 20 64 6f 6e 65 0d 00 2e 04 0d 00 2f 23 43 |EQ done....../#C|
000002d0 4d 50 20 52 30 2c 23 32 35 30 3a ec 51 20 52 30 |MP R0,#250:.Q R0|
000002e0 2c 23 32 35 32 3a 42 45 51 20 64 6f 6e 65 0d 00 |,#252:BEQ done..|
000002f0 30 1a 43 4d 50 20 52 30 2c 23 32 35 32 3a ec 51 |0.CMP R0,#252:.Q|
00000300 20 52 30 2c 23 32 35 30 0d 00 31 04 0d 00 32 09 | R0,#250..1...2.|
00000310 2e 64 6f 6e 65 0d 00 33 0e 4d 4f 56 20 50 43 2c |.done..3.MOV PC,|
00000320 52 31 34 0d 00 34 04 0d 00 35 0a 2e 74 69 74 6c |R14..4...5..titl|
00000330 65 0d 00 36 13 45 51 55 53 20 22 66 31 32 3c 3e |e..6.EQUS "f12<>|
00000340 66 31 30 22 0d 00 37 09 45 51 55 42 30 0d 00 38 |f10"..7.EQUB0..8|
00000350 09 41 4c 49 47 4e 0d 00 39 04 0d 00 3a 09 2e 68 |.ALIGN..9...:..h|
00000360 65 6c 70 0d 00 3b 2b 45 51 55 53 20 22 66 31 32 |elp..;+EQUS "f12|
00000370 3c 3e 66 31 30 22 2b bd 39 2b 22 31 2e 30 30 20 |<>f10"+.9+"1.00 |
00000380 28 30 34 20 4a 61 6e 20 31 39 39 34 29 22 0d 00 |(04 Jan 1994)"..|
00000390 3c 0a 45 51 55 42 20 30 0d 00 3d 09 41 4c 49 47 |<.EQUB 0..=.ALIG|
000003a0 4e 0d 00 3e 04 0d 00 3f 0a 2e 74 61 62 6c 65 0d |N..>...?..table.|
000003b0 00 40 1c 45 51 55 53 20 22 66 31 32 3c 3e 66 31 |.@.EQUS "f12<>f1|
000003c0 30 22 20 3a 20 45 51 55 42 20 30 0d 00 41 09 41 |0" : EQUB 0..A.A|
000003d0 4c 49 47 4e 0d 00 42 0a 45 51 55 44 20 30 0d 00 |LIGN..B.EQUD 0..|
000003e0 43 0a 45 51 55 44 20 30 0d 00 44 0a 45 51 55 44 |C.EQUD 0..D.EQUD|
000003f0 20 30 0d 00 45 11 45 51 55 44 20 68 65 6c 70 74 | 0..E.EQUD helpt|
00000400 65 78 74 0d 00 46 0a 45 51 55 44 20 30 0d 00 47 |ext..F.EQUD 0..G|
00000410 0d 2e 68 65 6c 70 74 65 78 74 0d 00 48 6e 45 51 |..helptext..HnEQ|
00000420 55 53 20 22 54 68 69 73 20 6d 6f 64 75 6c 65 20 |US "This module |
00000430 73 77 61 70 73 20 66 31 32 20 61 6e 64 20 66 31 |swaps f12 and f1|
00000440 30 20 69 6e 20 74 68 65 20 64 65 73 6b 74 6f 70 |0 in the desktop|
00000450 20 62 79 20 69 6e 74 65 72 63 65 70 74 69 6e 67 | by intercepting|
00000460 20 49 6e 73 56 2e 20 49 74 20 69 73 20 69 6e 74 | InsV. It is int|
00000470 65 6e 64 65 64 20 66 6f 72 20 75 73 65 20 6f 6e |ended for use on|
00000480 20 61 6e 20 41 34 2e 22 0d 00 49 0a 45 51 55 42 | an A4."..I.EQUB|
00000490 20 30 0d 00 4a 09 41 4c 49 47 4e 0d 00 4b 05 5d | 0..J.ALIGN..K.]|
000004a0 0d 00 4c 04 0d 00 4d 05 ed 0d 00 4e 04 0d 00 4f |..L...M....N...O|
000004b0 27 ff 22 53 41 56 45 20 66 31 32 3c 3e 66 31 30 |'."SAVE f12<>f10|
000004c0 20 22 2b c3 7e 63 6f 64 65 2b 22 20 22 2b c3 7e | "+.~code+" "+.~|
000004d0 28 4f 25 29 0d 00 50 1e ff 22 53 45 54 54 59 50 |(O%)..P.."SETTYP|
000004e0 45 20 66 31 32 3c 3e 66 31 30 20 4d 4f 44 55 4c |E f12<>f10 MODUL|
000004f0 45 22 0d 00 51 05 e0 0d ff |E"..Q....|
000004f9 
.