� >Fade2
  � Produces a smooth fade in
 � sixteen colour modes
( � by Matthew Edgar
2 � (c) The Micro User
< � September/November 1990
F �
P$ ptr=1:done=3:sixteen=4:colour=5
Z � code% 256
d � pass=0 � 2 � 2
n P%=code%:[OPT pass
x STMFD R13!,{R0-R5,R14}
� 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

� BL border

� SUBS done,done,#1

�
 BNE wait

�" LDMFD R13!,{R0-R5,PC}:.border

�& STMFD R13!,{R0-R3,R14}:MOV R0,ptr

� MOV R1,#24:STRB R1,[R0,#1]

�# SWI "OS_ReadPalette":MOV R1,#2

� .loop:MOV R2,R2,ROR #8

�$ � R3,R2,#&FF:SUBS R3,R3,sixteen

�  MOVMI R3,#0:STRB R3,[R0,R1]

�$ ADD R1,R1,#1:CMP R1,#5:BNE loop

� MOV ptr,R0:MOV R0,#12

� SWI "OS_Word"

� LDMFD R13!,{R0-R3,PC}

�
 .data

� EQUD 0:EQUD 0

� ]:�
# �"SAVE Fade "+�~code%+" "+�~P%
 *SETTYPE Fade Utility
# �''"Code saved. *Fade to use."
�

00000000  0d 00 0a 0d 20 f4 20 3e  46 61 64 65 32 0d 00 14  |.... . >Fade2...|
00000010  20 20 f4 20 50 72 6f 64  75 63 65 73 20 61 20 73  |  . Produces a s|
00000020  6d 6f 6f 74 68 20 66 61  64 65 20 69 6e 0d 00 1e  |mooth fade in...|
00000030  1b 20 f4 20 73 69 78 74  65 65 6e 20 63 6f 6c 6f  |. . sixteen colo|
00000040  75 72 20 6d 6f 64 65 73  0d 00 28 17 20 f4 20 62  |ur modes..(. . b|
00000050  79 20 4d 61 74 74 68 65  77 20 45 64 67 61 72 0d  |y Matthew Edgar.|
00000060  00 32 19 20 f4 20 28 63  29 20 54 68 65 20 4d 69  |.2. . (c) The Mi|
00000070  63 72 6f 20 55 73 65 72  0d 00 3c 1e 20 f4 20 53  |cro User..<. . S|
00000080  65 70 74 65 6d 62 65 72  2f 4e 6f 76 65 6d 62 65  |eptember/Novembe|
00000090  72 20 31 39 39 30 0d 00  46 06 20 db 0d 00 50 24  |r 1990..F. ...P$|
000000a0  20 70 74 72 3d 31 3a 64  6f 6e 65 3d 33 3a 73 69  | ptr=1:done=3:si|
000000b0  78 74 65 65 6e 3d 34 3a  63 6f 6c 6f 75 72 3d 35  |xteen=4:colour=5|
000000c0  0d 00 5a 10 20 de 20 63  6f 64 65 25 20 32 35 36  |..Z. . code% 256|
000000d0  0d 00 64 15 20 e3 20 70  61 73 73 3d 30 20 b8 20  |..d. . pass=0 . |
000000e0  32 20 88 20 32 0d 00 6e  17 20 50 25 3d 63 6f 64  |2 . 2..n. P%=cod|
000000f0  65 25 3a 5b 4f 50 54 20  70 61 73 73 0d 00 78 1b  |e%:[OPT pass..x.|
00000100  20 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  | STMFD R13!,{R0-|
00000110  52 35 2c 52 31 34 7d 0d  00 82 11 20 4d 4f 56 20  |R5,R14}.... MOV |
00000120  64 6f 6e 65 2c 23 31 36  0d 00 8c 14 20 4d 4f 56  |done,#16.... MOV|
00000130  20 73 69 78 74 65 65 6e  2c 23 31 36 0d 00 96 0a  | sixteen,#16....|
00000140  20 2e 77 61 69 74 0d 00  a0 0f 20 4d 4f 56 20 52  | .wait.... MOV R|
00000150  30 2c 23 31 39 0d 00 aa  1c 20 53 57 49 20 22 4f  |0,#19.... SWI "O|
00000160  53 5f 42 79 74 65 22 20  5c 20 77 61 69 74 2e 2e  |S_Byte" \ wait..|
00000170  2e 0d 00 b4 21 20 53 57  49 20 22 4f 53 5f 42 79  |....! SWI "OS_By|
00000180  74 65 22 20 5c 20 2e 2e  2e 61 6e 64 20 61 67 61  |te" \ ...and aga|
00000190  69 6e 0d 00 be 13 20 4d  4f 56 20 63 6f 6c 6f 75  |in.... MOV colou|
000001a0  72 2c 23 31 35 0d 00 c8  11 20 41 44 52 20 70 74  |r,#15.... ADR pt|
000001b0  72 2c 64 61 74 61 0d 00  d2 10 20 2e 6e 65 78 74  |r,data.... .next|
000001c0  63 6f 6c 6f 75 72 0d 00  dc 16 20 53 54 52 42 20  |colour.... STRB |
000001d0  63 6f 6c 6f 75 72 2c 5b  70 74 72 5d 0d 00 e6 0f  |colour,[ptr]....|
000001e0  20 4d 4f 56 20 52 30 2c  23 31 31 0d 00 f0 24 20  | MOV R0,#11...$ |
000001f0  53 57 49 20 22 4f 53 5f  57 6f 72 64 22 20 20 20  |SWI "OS_Word"   |
00000200  20 5c 20 72 65 61 64 20  70 61 6c 65 74 74 65 0d  | \ read palette.|
00000210  00 fa 09 20 2e 72 65 64  0d 01 04 25 20 4c 44 52  |... .red...% LDR|
00000220  42 20 52 30 2c 5b 70 74  72 2c 23 32 5d 20 5c 20  |B R0,[ptr,#2] \ |
00000230  63 75 72 72 65 6e 74 20  76 61 6c 75 65 0d 01 0e  |current value...|
00000240  17 20 53 55 42 53 20 52  30 2c 52 30 2c 73 69 78  |. SUBS R0,R0,six|
00000250  74 65 65 6e 0d 01 18 26  20 4d 4f 56 4d 49 20 52  |teen...& MOVMI R|
00000260  30 2c 23 30 20 20 20 20  20 20 5c 20 66 69 6e 64  |0,#0      \ find|
00000270  20 6e 65 77 20 76 61 6c  75 65 0d 01 22 27 20 53  | new value.."' S|
00000280  54 52 42 20 52 30 2c 5b  70 74 72 2c 23 32 5d 20  |TRB R0,[ptr,#2] |
00000290  5c 20 73 74 6f 72 65 20  6e 65 77 20 76 61 6c 75  |\ store new valu|
000002a0  65 0d 01 2c 0b 20 2e 67  72 65 65 6e 0d 01 36 25  |e..,. .green..6%|
000002b0  20 4c 44 52 42 20 52 30  2c 5b 70 74 72 2c 23 33  | LDRB R0,[ptr,#3|
000002c0  5d 20 5c 20 63 75 72 72  65 6e 74 20 76 61 6c 75  |] \ current valu|
000002d0  65 0d 01 40 17 20 53 55  42 53 20 52 30 2c 52 30  |e..@. SUBS R0,R0|
000002e0  2c 73 69 78 74 65 65 6e  0d 01 4a 26 20 4d 4f 56  |,sixteen..J& MOV|
000002f0  4d 49 20 52 30 2c 23 30  20 20 20 20 20 20 5c 20  |MI R0,#0      \ |
00000300  66 69 6e 64 20 6e 65 77  20 76 61 6c 75 65 0d 01  |find new value..|
00000310  54 27 20 53 54 52 42 20  52 30 2c 5b 70 74 72 2c  |T' STRB R0,[ptr,|
00000320  23 33 5d 20 5c 20 73 74  6f 72 65 20 6e 65 77 20  |#3] \ store new |
00000330  76 61 6c 75 65 0d 01 5e  0a 20 2e 62 6c 75 65 0d  |value..^. .blue.|
00000340  01 68 25 20 4c 44 52 42  20 52 30 2c 5b 70 74 72  |.h% LDRB R0,[ptr|
00000350  2c 23 34 5d 20 5c 20 63  75 72 72 65 6e 74 20 76  |,#4] \ current v|
00000360  61 6c 75 65 0d 01 72 17  20 53 55 42 53 20 52 30  |alue..r. SUBS R0|
00000370  2c 52 30 2c 73 69 78 74  65 65 6e 0d 01 7c 26 20  |,R0,sixteen..|& |
00000380  4d 4f 56 4d 49 20 52 30  2c 23 30 20 20 20 20 20  |MOVMI R0,#0     |
00000390  20 5c 20 66 69 6e 64 20  6e 65 77 20 76 61 6c 75  | \ find new valu|
000003a0  65 0d 01 86 27 20 53 54  52 42 20 52 30 2c 5b 70  |e...' STRB R0,[p|
000003b0  74 72 2c 23 34 5d 20 5c  20 73 74 6f 72 65 20 6e  |tr,#4] \ store n|
000003c0  65 77 20 76 61 6c 75 65  0d 01 90 3a 20 53 54 52  |ew value...: STR|
000003d0  42 20 73 69 78 74 65 65  6e 2c 5b 70 74 72 2c 23  |B sixteen,[ptr,#|
000003e0  31 5d 20 5c 20 64 65 66  69 6e 65 20 63 6f 6c 6f  |1] \ define colo|
000003f0  75 72 20 66 72 6f 6d 20  52 47 42 20 76 61 6c 75  |ur from RGB valu|
00000400  65 73 0d 01 9a 0f 20 4d  4f 56 20 52 30 2c 23 31  |es.... MOV R0,#1|
00000410  32 0d 01 a4 22 20 53 57  49 20 22 4f 53 5f 57 6f  |2..." SWI "OS_Wo|
00000420  72 64 22 20 5c 20 77 72  69 74 65 20 70 61 6c 65  |rd" \ write pale|
00000430  74 74 65 0d 01 ae 1a 20  53 55 42 53 20 63 6f 6c  |tte.... SUBS col|
00000440  6f 75 72 2c 63 6f 6c 6f  75 72 2c 23 31 0d 01 b8  |our,colour,#1...|
00000450  13 20 42 47 45 20 6e 65  78 74 63 6f 6c 6f 75 72  |. BGE nextcolour|
00000460  0d 01 bd 0e 20 42 4c 20  62 6f 72 64 65 72 0d 01  |.... BL border..|
00000470  c2 16 20 53 55 42 53 20  64 6f 6e 65 2c 64 6f 6e  |.. SUBS done,don|
00000480  65 2c 23 31 0d 01 cc 0d  20 42 4e 45 20 77 61 69  |e,#1.... BNE wai|
00000490  74 0d 01 d6 22 20 4c 44  4d 46 44 20 52 31 33 21  |t..." LDMFD R13!|
000004a0  2c 7b 52 30 2d 52 35 2c  50 43 7d 3a 2e 62 6f 72  |,{R0-R5,PC}:.bor|
000004b0  64 65 72 0d 01 d7 26 20  53 54 4d 46 44 20 52 31  |der...& STMFD R1|
000004c0  33 21 2c 7b 52 30 2d 52  33 2c 52 31 34 7d 3a 4d  |3!,{R0-R3,R14}:M|
000004d0  4f 56 20 52 30 2c 70 74  72 0d 01 d8 1f 20 4d 4f  |OV R0,ptr.... MO|
000004e0  56 20 52 31 2c 23 32 34  3a 53 54 52 42 20 52 31  |V R1,#24:STRB R1|
000004f0  2c 5b 52 30 2c 23 31 5d  0d 01 d9 23 20 53 57 49  |,[R0,#1]...# SWI|
00000500  20 22 4f 53 5f 52 65 61  64 50 61 6c 65 74 74 65  | "OS_ReadPalette|
00000510  22 3a 4d 4f 56 20 52 31  2c 23 32 0d 01 da 1b 20  |":MOV R1,#2.... |
00000520  2e 6c 6f 6f 70 3a 4d 4f  56 20 52 32 2c 52 32 2c  |.loop:MOV R2,R2,|
00000530  52 4f 52 20 23 38 0d 01  db 24 20 80 20 52 33 2c  |ROR #8...$ . R3,|
00000540  52 32 2c 23 26 46 46 3a  53 55 42 53 20 52 33 2c  |R2,#&FF:SUBS R3,|
00000550  52 33 2c 73 69 78 74 65  65 6e 0d 01 dc 20 20 4d  |R3,sixteen...  M|
00000560  4f 56 4d 49 20 52 33 2c  23 30 3a 53 54 52 42 20  |OVMI R3,#0:STRB |
00000570  52 33 2c 5b 52 30 2c 52  31 5d 0d 01 dd 24 20 41  |R3,[R0,R1]...$ A|
00000580  44 44 20 52 31 2c 52 31  2c 23 31 3a 43 4d 50 20  |DD R1,R1,#1:CMP |
00000590  52 31 2c 23 35 3a 42 4e  45 20 6c 6f 6f 70 0d 01  |R1,#5:BNE loop..|
000005a0  de 1a 20 4d 4f 56 20 70  74 72 2c 52 30 3a 4d 4f  |.. MOV ptr,R0:MO|
000005b0  56 20 52 30 2c 23 31 32  0d 01 df 12 20 53 57 49  |V R0,#12.... SWI|
000005c0  20 22 4f 53 5f 57 6f 72  64 22 0d 01 e0 1a 20 4c  | "OS_Word".... L|
000005d0  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 33  |DMFD R13!,{R0-R3|
000005e0  2c 50 43 7d 0d 01 ea 0a  20 2e 64 61 74 61 0d 01  |,PC}.... .data..|
000005f0  f4 12 20 45 51 55 44 20  30 3a 45 51 55 44 20 30  |.. EQUD 0:EQUD 0|
00000600  0d 01 fe 08 20 5d 3a ed  0d 02 08 23 20 ff 22 53  |.... ]:....# ."S|
00000610  41 56 45 20 46 61 64 65  20 22 2b c3 7e 63 6f 64  |AVE Fade "+.~cod|
00000620  65 25 2b 22 20 22 2b c3  7e 50 25 0d 02 12 1a 20  |e%+" "+.~P%.... |
00000630  2a 53 45 54 54 59 50 45  20 46 61 64 65 20 55 74  |*SETTYPE Fade Ut|
00000640  69 6c 69 74 79 0d 02 1c  23 20 f1 27 27 22 43 6f  |ility...# .''"Co|
00000650  64 65 20 73 61 76 65 64  2e 20 2a 46 61 64 65 20  |de saved. *Fade |
00000660  74 6f 20 75 73 65 2e 22  0d ff                    |to use."..|
0000066a