Home » Archimedes archive » Micro User » MU 1990-09.adf » Listings » Fader_Src
Fader_Src
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 » Micro User » MU 1990-09.adf » Listings |
| Filename: | Fader_Src |
| Read OK: | ✔ |
| File size: | 057D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >FadeSrc
20 REM Produces a smooth fade in
30 REM sixteen colour modes
40 REM by Matthew Edgar
50 REM (c) The Micro User
60 REM September 1990
70 CLS
80 ptr=1:done=3:sixteen=4:colour=5
90 DIM code% 256
100 FOR pass=0 TO 2 STEP 2
110 P%=code%:[OPT pass
120 STMFD R13!,{R0-R5} \ Push work registers onto stack
130 MOV done,#16
140 MOV sixteen,#16
150 .wait
160 MOV R0,#19
170 SWI "OS_Byte" \ wait...
180 SWI "OS_Byte" \ ...and again
190 MOV colour,#15
200 ADR ptr,data
210 .nextcolour
220 STRB colour,[ptr]
230 MOV R0,#11
240 SWI "OS_Word" \ read palette
250 .red
260 LDRB R0,[ptr,#2] \ current value
270 SUBS R0,R0,sixteen
280 MOVMI R0,#0 \ find new value
290 STRB R0,[ptr,#2] \ store new value
300 .green
310 LDRB R0,[ptr,#3] \ current value
320 SUBS R0,R0,sixteen
330 MOVMI R0,#0 \ find new value
340 STRB R0,[ptr,#3] \ store new value
350 .blue
360 LDRB R0,[ptr,#4] \ current value
370 SUBS R0,R0,sixteen
380 MOVMI R0,#0 \ find new value
390 STRB R0,[ptr,#4] \ store new value
400 STRB sixteen,[ptr,#1] \ define colour from RGB values
410 MOV R0,#12
420 SWI "OS_Word" \ write palette
430 SUBS colour,colour,#1
440 BGE nextcolour
450 SUBS done,done,#1
460 BNE wait
470 LDMFD R13!,{R0-R5} \ pull registers back from stack
480 MOVS PC,R14 \ return from routine
490 .data
500 EQUD 0:EQUD 0
510 ]:NEXT
520 OSCLI"SAVE Fade "+STR$~code%+" "+STR$~P%
530 *SETTYPE Fade Utility
540 PRINT''"Code saved. *Fade to use."
� >FadeSrc
� Produces a smooth fade in
� sixteen colour modes
( � by Matthew Edgar
2 � (c) The Micro User
< � September 1990
F �
P$ ptr=1:done=3:sixteen=4:colour=5
Z � code% 256
d � pass=0 � 2 � 2
n P%=code%:[OPT pass
x8 STMFD R13!,{R0-R5} \ Push work registers onto stack
� MOV done,#16
� MOV sixteen,#16
�
.wait
� MOV R0,#19
� SWI "OS_Byte" \ wait...
�! SWI "OS_Byte" \ ...and again
� MOV colour,#15
� ADR ptr,data
� .nextcolour
� STRB colour,[ptr]
� MOV R0,#11
�$ SWI "OS_Word" \ read palette
� .red
% LDRB R0,[ptr,#2] \ current value
SUBS R0,R0,sixteen
& MOVMI R0,#0 \ find new value
"' STRB R0,[ptr,#2] \ store new value
, .green
6% LDRB R0,[ptr,#3] \ current value
@ SUBS R0,R0,sixteen
J& MOVMI R0,#0 \ find new value
T' STRB R0,[ptr,#3] \ store new value
^
.blue
h% LDRB R0,[ptr,#4] \ current value
r SUBS R0,R0,sixteen
|& MOVMI R0,#0 \ find new value
�' STRB R0,[ptr,#4] \ store new value
�: STRB sixteen,[ptr,#1] \ define colour from RGB values
� MOV R0,#12
�" SWI "OS_Word" \ write palette
� SUBS colour,colour,#1
� BGE nextcolour
� SUBS done,done,#1
�
BNE wait
�8 LDMFD R13!,{R0-R5} \ pull registers back from stack
�& MOVS PC,R14 \ return from routine
�
.data
� EQUD 0:EQUD 0
� ]:�
# �"SAVE Fade "+�~code%+" "+�~P%
*SETTYPE Fade Utility
# �''"Code saved. *Fade to use."
� 00000000 0d 00 0a 0f 20 f4 20 3e 46 61 64 65 53 72 63 0d |.... . >FadeSrc.|
00000010 00 14 20 20 f4 20 50 72 6f 64 75 63 65 73 20 61 |.. . Produces a|
00000020 20 73 6d 6f 6f 74 68 20 66 61 64 65 20 69 6e 0d | smooth fade in.|
00000030 00 1e 1b 20 f4 20 73 69 78 74 65 65 6e 20 63 6f |... . sixteen co|
00000040 6c 6f 75 72 20 6d 6f 64 65 73 0d 00 28 17 20 f4 |lour modes..(. .|
00000050 20 62 79 20 4d 61 74 74 68 65 77 20 45 64 67 61 | by Matthew Edga|
00000060 72 0d 00 32 19 20 f4 20 28 63 29 20 54 68 65 20 |r..2. . (c) The |
00000070 4d 69 63 72 6f 20 55 73 65 72 0d 00 3c 15 20 f4 |Micro User..<. .|
00000080 20 53 65 70 74 65 6d 62 65 72 20 31 39 39 30 0d | September 1990.|
00000090 00 46 06 20 db 0d 00 50 24 20 70 74 72 3d 31 3a |.F. ...P$ ptr=1:|
000000a0 64 6f 6e 65 3d 33 3a 73 69 78 74 65 65 6e 3d 34 |done=3:sixteen=4|
000000b0 3a 63 6f 6c 6f 75 72 3d 35 0d 00 5a 10 20 de 20 |:colour=5..Z. . |
000000c0 63 6f 64 65 25 20 32 35 36 0d 00 64 15 20 e3 20 |code% 256..d. . |
000000d0 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 0d 00 |pass=0 . 2 . 2..|
000000e0 6e 17 20 50 25 3d 63 6f 64 65 25 3a 5b 4f 50 54 |n. P%=code%:[OPT|
000000f0 20 70 61 73 73 0d 00 78 38 20 53 54 4d 46 44 20 | pass..x8 STMFD |
00000100 52 31 33 21 2c 7b 52 30 2d 52 35 7d 20 5c 20 50 |R13!,{R0-R5} \ P|
00000110 75 73 68 20 77 6f 72 6b 20 72 65 67 69 73 74 65 |ush work registe|
00000120 72 73 20 6f 6e 74 6f 20 73 74 61 63 6b 0d 00 82 |rs onto stack...|
00000130 11 20 4d 4f 56 20 64 6f 6e 65 2c 23 31 36 0d 00 |. MOV done,#16..|
00000140 8c 14 20 4d 4f 56 20 73 69 78 74 65 65 6e 2c 23 |.. MOV sixteen,#|
00000150 31 36 0d 00 96 0a 20 2e 77 61 69 74 0d 00 a0 0f |16.... .wait....|
00000160 20 4d 4f 56 20 52 30 2c 23 31 39 0d 00 aa 1c 20 | MOV R0,#19.... |
00000170 53 57 49 20 22 4f 53 5f 42 79 74 65 22 20 5c 20 |SWI "OS_Byte" \ |
00000180 77 61 69 74 2e 2e 2e 0d 00 b4 21 20 53 57 49 20 |wait......! SWI |
00000190 22 4f 53 5f 42 79 74 65 22 20 5c 20 2e 2e 2e 61 |"OS_Byte" \ ...a|
000001a0 6e 64 20 61 67 61 69 6e 0d 00 be 13 20 4d 4f 56 |nd again.... MOV|
000001b0 20 63 6f 6c 6f 75 72 2c 23 31 35 0d 00 c8 11 20 | colour,#15.... |
000001c0 41 44 52 20 70 74 72 2c 64 61 74 61 0d 00 d2 10 |ADR ptr,data....|
000001d0 20 2e 6e 65 78 74 63 6f 6c 6f 75 72 0d 00 dc 16 | .nextcolour....|
000001e0 20 53 54 52 42 20 63 6f 6c 6f 75 72 2c 5b 70 74 | STRB colour,[pt|
000001f0 72 5d 0d 00 e6 0f 20 4d 4f 56 20 52 30 2c 23 31 |r].... MOV R0,#1|
00000200 31 0d 00 f0 24 20 53 57 49 20 22 4f 53 5f 57 6f |1...$ SWI "OS_Wo|
00000210 72 64 22 20 20 20 20 5c 20 72 65 61 64 20 70 61 |rd" \ read pa|
00000220 6c 65 74 74 65 0d 00 fa 09 20 2e 72 65 64 0d 01 |lette.... .red..|
00000230 04 25 20 4c 44 52 42 20 52 30 2c 5b 70 74 72 2c |.% LDRB R0,[ptr,|
00000240 23 32 5d 20 5c 20 63 75 72 72 65 6e 74 20 76 61 |#2] \ current va|
00000250 6c 75 65 0d 01 0e 17 20 53 55 42 53 20 52 30 2c |lue.... SUBS R0,|
00000260 52 30 2c 73 69 78 74 65 65 6e 0d 01 18 26 20 4d |R0,sixteen...& M|
00000270 4f 56 4d 49 20 52 30 2c 23 30 20 20 20 20 20 20 |OVMI R0,#0 |
00000280 5c 20 66 69 6e 64 20 6e 65 77 20 76 61 6c 75 65 |\ find new value|
00000290 0d 01 22 27 20 53 54 52 42 20 52 30 2c 5b 70 74 |.."' STRB R0,[pt|
000002a0 72 2c 23 32 5d 20 5c 20 73 74 6f 72 65 20 6e 65 |r,#2] \ store ne|
000002b0 77 20 76 61 6c 75 65 0d 01 2c 0b 20 2e 67 72 65 |w value..,. .gre|
000002c0 65 6e 0d 01 36 25 20 4c 44 52 42 20 52 30 2c 5b |en..6% LDRB R0,[|
000002d0 70 74 72 2c 23 33 5d 20 5c 20 63 75 72 72 65 6e |ptr,#3] \ curren|
000002e0 74 20 76 61 6c 75 65 0d 01 40 17 20 53 55 42 53 |t value..@. SUBS|
000002f0 20 52 30 2c 52 30 2c 73 69 78 74 65 65 6e 0d 01 | R0,R0,sixteen..|
00000300 4a 26 20 4d 4f 56 4d 49 20 52 30 2c 23 30 20 20 |J& MOVMI R0,#0 |
00000310 20 20 20 20 5c 20 66 69 6e 64 20 6e 65 77 20 76 | \ find new v|
00000320 61 6c 75 65 0d 01 54 27 20 53 54 52 42 20 52 30 |alue..T' STRB R0|
00000330 2c 5b 70 74 72 2c 23 33 5d 20 5c 20 73 74 6f 72 |,[ptr,#3] \ stor|
00000340 65 20 6e 65 77 20 76 61 6c 75 65 0d 01 5e 0a 20 |e new value..^. |
00000350 2e 62 6c 75 65 0d 01 68 25 20 4c 44 52 42 20 52 |.blue..h% LDRB R|
00000360 30 2c 5b 70 74 72 2c 23 34 5d 20 5c 20 63 75 72 |0,[ptr,#4] \ cur|
00000370 72 65 6e 74 20 76 61 6c 75 65 0d 01 72 17 20 53 |rent value..r. S|
00000380 55 42 53 20 52 30 2c 52 30 2c 73 69 78 74 65 65 |UBS R0,R0,sixtee|
00000390 6e 0d 01 7c 26 20 4d 4f 56 4d 49 20 52 30 2c 23 |n..|& MOVMI R0,#|
000003a0 30 20 20 20 20 20 20 5c 20 66 69 6e 64 20 6e 65 |0 \ find ne|
000003b0 77 20 76 61 6c 75 65 0d 01 86 27 20 53 54 52 42 |w value...' STRB|
000003c0 20 52 30 2c 5b 70 74 72 2c 23 34 5d 20 5c 20 73 | R0,[ptr,#4] \ s|
000003d0 74 6f 72 65 20 6e 65 77 20 76 61 6c 75 65 0d 01 |tore new value..|
000003e0 90 3a 20 53 54 52 42 20 73 69 78 74 65 65 6e 2c |.: STRB sixteen,|
000003f0 5b 70 74 72 2c 23 31 5d 20 5c 20 64 65 66 69 6e |[ptr,#1] \ defin|
00000400 65 20 63 6f 6c 6f 75 72 20 66 72 6f 6d 20 52 47 |e colour from RG|
00000410 42 20 76 61 6c 75 65 73 0d 01 9a 0f 20 4d 4f 56 |B values.... MOV|
00000420 20 52 30 2c 23 31 32 0d 01 a4 22 20 53 57 49 20 | R0,#12..." SWI |
00000430 22 4f 53 5f 57 6f 72 64 22 20 5c 20 77 72 69 74 |"OS_Word" \ writ|
00000440 65 20 70 61 6c 65 74 74 65 0d 01 ae 1a 20 53 55 |e palette.... SU|
00000450 42 53 20 63 6f 6c 6f 75 72 2c 63 6f 6c 6f 75 72 |BS colour,colour|
00000460 2c 23 31 0d 01 b8 13 20 42 47 45 20 6e 65 78 74 |,#1.... BGE next|
00000470 63 6f 6c 6f 75 72 0d 01 c2 16 20 53 55 42 53 20 |colour.... SUBS |
00000480 64 6f 6e 65 2c 64 6f 6e 65 2c 23 31 0d 01 cc 0d |done,done,#1....|
00000490 20 42 4e 45 20 77 61 69 74 0d 01 d6 38 20 4c 44 | BNE wait...8 LD|
000004a0 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 35 7d |MFD R13!,{R0-R5}|
000004b0 20 5c 20 70 75 6c 6c 20 72 65 67 69 73 74 65 72 | \ pull register|
000004c0 73 20 62 61 63 6b 20 66 72 6f 6d 20 73 74 61 63 |s back from stac|
000004d0 6b 0d 01 e0 26 20 4d 4f 56 53 20 50 43 2c 52 31 |k...& MOVS PC,R1|
000004e0 34 20 5c 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 |4 \ return from |
000004f0 72 6f 75 74 69 6e 65 0d 01 ea 0a 20 2e 64 61 74 |routine.... .dat|
00000500 61 0d 01 f4 12 20 45 51 55 44 20 30 3a 45 51 55 |a.... EQUD 0:EQU|
00000510 44 20 30 0d 01 fe 08 20 5d 3a ed 0d 02 08 23 20 |D 0.... ]:....# |
00000520 ff 22 53 41 56 45 20 46 61 64 65 20 22 2b c3 7e |."SAVE Fade "+.~|
00000530 63 6f 64 65 25 2b 22 20 22 2b c3 7e 50 25 0d 02 |code%+" "+.~P%..|
00000540 12 1a 20 2a 53 45 54 54 59 50 45 20 46 61 64 65 |.. *SETTYPE Fade|
00000550 20 55 74 69 6c 69 74 79 0d 02 1c 23 20 f1 27 27 | Utility...# .''|
00000560 22 43 6f 64 65 20 73 61 76 65 64 2e 20 2a 46 61 |"Code saved. *Fa|
00000570 64 65 20 74 6f 20 75 73 65 2e 22 0d ff |de to use."..|
0000057d 
.