Fade/FadeDemo

Home » Archimedes archive » Archimedes World » AW-1997-01.adf » !AcornAns_AcornAns » Fade/FadeDemo

Fade/FadeDemo

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 » Archimedes World » AW-1997-01.adf » !AcornAns_AcornAns
Filename:	Fade/FadeDemo
Read OK:	✔
File size:	15C8 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >FadeDemo
   20:
   30mode%=13
   40REM WARNING: there must be sufficient screen memory
   50REM already allocated for two banks of the above mode
   60REM which must be of 256 colours
   70:
   80REM read start address of screen memory for banks 1 and 2
   90DIM in% 8, out% 8
  100!in%=148:in%!4=-1
  110MODE mode%
  120SYS "OS_ReadVduVariables", in%, out%:scrst1%=!out%
  130MODE mode%+128
  140SYS "OS_ReadVduVariables", in%, out%:scrst2%=!out%
  150:
  160REM assemble code
  170PROCass
  180:
  190REM plot some stuff on screen! (using bank 2)
  200sarea%=5180
  210DIM area% sarea%
  220!area%=sarea%
  230SYS "OS_File", 255, "<Fade$Dir>.Resources.Face", area%+4, 0
  240spr%=area%+area%!8
  250OFF
  260FOR q%=1 TO 100
  270 SYS "OS_SpriteOp", 512+34, area%, spr%, RND(1280)-160, RND(1024)-128, 0
  280NEXT
  290:
  300PROCbuildtable(0)
  310!level%=nlvls%-1
  320CALL fade%   :REM a long winded way of copying image to bank 1
  330:
  340REM switch back to bank 1
  350SYS 6,113,1:SYS 6,112,1
  360:
  370REM iterate the fades
  380REPEAT
  390 T%=TIME
  400 REM select a random point in the image and build fade tables
  410 REM using the colour of that point as background
  420 PROCbuildtable(pal256def%!(4*?(RND(20*!count%)-1+!asource%)))
  430 REPEAT UNTIL TIME-T%>50
  440 REM fade from image to background
  450 FOR q%=nlvls%-1 TO 0 STEP -1
  460  !level%=q%
  470  WAIT
  480  CALL fade%
  490 NEXT
  500 T%=TIME:REPEAT UNTIL TIME-T%>20
  510 REM fade from background to image
  520 FOR q%=0 TO nlvls%-1
  530  !level%=q%
  540  WAIT
  550  CALL fade%
  560 NEXT
  570UNTIL FALSE
  580:
  590END
  600:
  610:
  620DEF PROCbuildtable(backpw%)
  630REM ordinarily you would precompute this data and load it
  640REM from file! (unless you need to vary background colour
  650REM at run time as in this demo)
  660:
  670REM loop builds fade tables for each q% which determines
  680REM f%, the level of fade (0-65536) in each case
  690FOR q%=0 TO nlvls%-1
  700 ptr%=table%+256*q%
  710 f%=65536*(COS(PI/2*q%/(nlvls%-1)))+0.5 :REM simple harmonic fade
  720 REMf%=(nlvls%-1-q%)*65536/(nlvls%-1) :REM a linear fade
  730 A%=ptr%
  740 B%=f%
  750 C%=backpw%
  760 CALL buildfade%
  770NEXT
  780ENDPROC
  790:
  800DEF PROCass
  810:
  820nlvls%=48
  830DIM table% 256*nlvls%
  840DIM pal256def% 1024, lut% 32768
  850REM load file containing 256 palette entries (&bbggrr00)
  860REM for the default 8 bit per pixel palette
  870SYS "OS_File", 255, "<Fade$Dir>.Resources.Pal256Def", pal256def%, 0
  880REM load file mapping 15 bit colour (r+32g+1024b) to nearest
  890REM available palette entry (in default 8 bpp palette)
  900SYS "OS_File", 255, "<Fade$Dir>.Resources.LUT", lut%, 0
  910:
  920SYS "OS_ReadModeVariable", mode%, 7 TO ,,screensize%
  930:
  940DIM code% 1024
  950FOR pass%=0 TO 2 STEP 2
  960P%=code%
  970[OPT pass%
  980.adest%   EQUD scrst1%
  990.count%   EQUD screensize%/20
 1000.asource% EQUD scrst2%
 1010.level%   EQUD 0
 1020.afadetable%        EQUD table%
 1030.dump%    EQUD 0:EQUD 0
 1040.fade%
 1050ADR       0, dump%
 1060STMIA     0, {13, 14}
 1070LDR       7, adest%
 1080LDR       13, count%
 1090LDR       14, asource%
 1100LDR       0, level%
 1110LDR       12, afadetable%
 1120ADD       12, 12, 0, ASL #8
 1130MOV       6, #255
 1140LDMIA     14, {0}
 1150FNfade_sub(pass%, 0)
 1160MOV       6, 0
 1170.fadeloop%
 1180LDMIA     14!, {0-4}
 1190CMP       0, 6
 1200MOV       6, #255
 1210BEQ       fade0%
 1220FNfade_sub(pass%, 0)
 1230.fade0%
 1240CMP       1, 0
 1250MOV       0, 5
 1260BEQ       fade1%
 1270FNfade_sub(pass%, 1)
 1280.fade1%
 1290CMP       2, 1
 1300MOV       1, 5
 1310BEQ       fade2%
 1320FNfade_sub(pass%, 2)
 1330.fade2%
 1340CMP       3, 2
 1350MOV       2, 5
 1360BEQ       fade3%
 1370FNfade_sub(pass%, 3)
 1380.fade3%
 1390CMP       4, 3
 1400MOV       3, 5
 1410BEQ       fade4%
 1420FNfade_sub(pass%, 4)
 1430.fade4%
 1440MOV       6, 4
 1450MOV       4, 5
 1460STMIA     7!, {0-4}
 1470SUBS      13, 13, #1
 1480BNE       fadeloop%
 1490ADR       0, dump%
 1500LDMIA     0, {13, PC}^
 1510:
 1520.buildfade%         ;called with ptr to table in r0,
 1530                    ;fade param in r1 (0-65536),
 1540                    ;background colour palette word in r2
 1550LDR       3, apal256def%
 1560LDR       4, alut%
 1570MOV       11, #255
 1580AND       8, 11, 2, LSR #8
 1590AND       9, 11, 2, LSR #16
 1600AND       10, 11, 2, LSR #24
 1610MUL       5, 1, 8
 1620MUL       6, 1, 9
 1630MUL       7, 1, 10
 1640RSB       1, 1, #65536
 1650MOV       12, #255
 1660.buildfade_loop%              ;loop thro colour numbers 255 to 0
 1670LDR       10, [3, 12, LSL #2] ;palette entry for colour r12
 1680AND       8, 11, 10, LSR #8   ;8 bit r component
 1690AND       9, 11, 10, LSR #16  ;      b
 1700AND       10, 11, 10, LSR #24 ;      g
 1710MLA       8, 1, 8, 5          ;faded 8 bit r * 65536
 1720MLA       9, 1, 9, 6          ;            g
 1730MLA       10, 1, 10, 7        ;            b
 1740MOVS      8, 8, ASR #19       ;faded 5 bit r
 1750MOVMI     8, #0
 1760CMP       8, #31
 1770MOVGT     8, #31              ;              clipped to 0-31
 1780MOVS      9, 9, ASR #19       ;faded 5 bit g
 1790MOVMI     9, #0
 1800CMP       9, #31
 1810MOVGT     9, #31              ;              clipped to 0-31
 1820MOVS      10, 10, ASR #19     ;faded 5 bit b
 1830MOVMI     10, #0
 1840CMP       10, #31
 1850MOVGT     10, #31             ;              clipped to 0-31
 1860ADD       8, 8, 9, LSL #5
 1870ADD       8, 8, 10, LSL #10   ;faded 15 bit colour
 1880LDRB      8, [4, 8]           ;colour number of closest colour
 1890STRB      8, [0, 12]
 1900SUBS      12, 12, #1
 1910BPL       buildfade_loop%
 1920MOVS      PC, 14
 1930.apal256def%        EQUD pal256def%
 1940.alut%              EQUD lut%
 1950]
 1960NEXT
 1970ENDPROC
 1980:
 1990DEF FNfade_sub(pass%, r%)
 2000[OPT pass%
 2010AND       11, 6, r%
 2020LDRB      11, [12, 11]
 2030AND       10, 6, r%, LSR #8
 2040LDRB      10, [12, 10]
 2050AND       9, 6, r%, LSR #16
 2060LDRB      9, [12, 9]
 2070AND       8, 6, r%, LSR #24
 2080LDRB      8, [12, 8]
 2090ORR       11, 11, 10, LSL #8
 2100ORR       11, 11, 9, LSL #16
 2110ORR       5, 11, 8, LSL #24
 2120]
 2130=pass%


� >FadeDemo
:
mode%=13
(5� WARNING: there must be sufficient screen memory
27� already allocated for two banks of the above mode
<"� which must be of 256 colours
F:
P;� read start address of screen memory for banks 1 and 2
Z� in% 8, out% 8
d!in%=148:in%!4=-1
n� mode%
x5ș "OS_ReadVduVariables", in%, out%:scrst1%=!out%
�� mode%+128
�5ș "OS_ReadVduVariables", in%, out%:scrst2%=!out%
�:
�� assemble code
��ass
�:
�/� plot some stuff on screen! (using bank 2)
�sarea%=5180
�� area% sarea%
�!area%=sarea%
�>ș "OS_File", 255, "<Fade$Dir>.Resources.Face", area%+4, 0
�spr%=area%+area%!8
��
� q%=1 � 100
G ș "OS_SpriteOp", 512+34, area%, spr%, �(1280)-160, �(1024)-128, 0
�
":
,�buildtable(0)
6!level%=nlvls%-1
@=� fade%   :� a long winded way of copying image to bank 1
J:
T� switch back to bank 1
^ș 6,113,1:ș 6,112,1
h:
r� iterate the fades
|�
�	 T%=�
�? � select a random point in the image and build fade tables
�3 � using the colour of that point as background
�= �buildtable(pal256def%!(4*?(�(20*!count%)-1+!asource%)))
� � � �-T%>50
�$ � fade from image to background
� � q%=nlvls%-1 � 0 � -1
�  !level%=q%
�  Ȗ
�
  � fade%
� �
� T%=�:� � �-T%>20
�$ � fade from background to image
 � q%=0 � nlvls%-1
  !level%=q%
  Ȗ
&
  � fade%
0 �
:� �
D:
N�
X:
b:
l� �buildtable(backpw%)
v;� ordinarily you would precompute this data and load it
�;� from file! (unless you need to vary background colour
�"� at run time as in this demo)
�:
�:� loop builds fade tables for each q% which determines
�2� f%, the level of fade (0-65536) in each case
�� q%=0 � nlvls%-1
� ptr%=table%+256*q%
�@ f%=65536*(�(�/2*q%/(nlvls%-1)))+0.5 :� simple harmonic fade
�: �f%=(nlvls%-1-q%)*65536/(nlvls%-1) :REM a linear fade
� A%=ptr%
�
 B%=f%
� C%=backpw%
� � buildfade%
�
�
:
 
� �ass
*:
4
nlvls%=48
>� table% 256*nlvls%
H!� pal256def% 1024, lut% 32768
R:� load file containing 256 palette entries (&bbggrr00)
\-� for the default 8 bit per pixel palette
fFș "OS_File", 255, "<Fade$Dir>.Resources.Pal256Def", pal256def%, 0
p>� load file mapping 15 bit colour (r+32g+1024b) to nearest
z8� available palette entry (in default 8 bpp palette)
�:ș "OS_File", 255, "<Fade$Dir>.Resources.LUT", lut%, 0
�:
�6ș "OS_ReadModeVariable", mode%, 7 � ,,screensize%
�:
�� code% 1024
�� pass%=0 � 2 � 2
�P%=code%
�[OPT pass%
�.adest%   EQUD scrst1%
�!.count%   EQUD screensize%/20
�.asource% EQUD scrst2%
�.level%   EQUD 0
�#.afadetable%        EQUD table%
.dump%    EQUD 0:EQUD 0

.fade%
ADR       0, dump%
$STMIA     0, {13, 14}
.LDR       7, adest%
8LDR       13, count%
BLDR       14, asource%
LLDR       0, level%
VLDR       12, afadetable%
`ADD       12, 12, 0, ASL #8
jMOV       6, #255
tLDMIA     14, {0}
~�fade_sub(pass%, 0)
�MOV       6, 0
�.fadeloop%
�LDMIA     14!, {0-4}
�CMP       0, 6
�MOV       6, #255
�BEQ       fade0%
��fade_sub(pass%, 0)
�.fade0%
�CMP       1, 0
�MOV       0, 5
�BEQ       fade1%
��fade_sub(pass%, 1)
.fade1%

CMP       2, 1
MOV       1, 5
BEQ       fade2%
(�fade_sub(pass%, 2)
2.fade2%
<CMP       3, 2
FMOV       2, 5
PBEQ       fade3%
Z�fade_sub(pass%, 3)
d.fade3%
nCMP       4, 3
xMOV       3, 5
�BEQ       fade4%
��fade_sub(pass%, 4)
�.fade4%
�MOV       6, 4
�MOV       4, 5
�STMIA     7!, {0-4}
�SUBS      13, 13, #1
�BNE       fadeloop%
�ADR       0, dump%
�LDMIA     0, {13, PC}^
�:
�8.buildfade%         ;called with ptr to table in r0,
�4                    ;fade param in r1 (0-65536),
=                    ;background colour palette word in r2
LDR       3, apal256def%
LDR       4, alut%
"MOV       11, #255
,�       8, 11, 2, LSR #8
6�       9, 11, 2, LSR #16
@�       10, 11, 2, LSR #24
JMUL       5, 1, 8
TMUL       6, 1, 9
^MUL       7, 1, 10
hRSB       1, 1, #65536
rMOV       12, #255
|D.buildfade_loop%              ;loop thro colour numbers 255 to 0
�?LDR       10, [3, 12, LSL #2] ;palette entry for colour r12
�2�       8, 11, 10, LSR #8   ;8 bit r component
�(�       9, 11, 10, LSR #16  ;      b
�(�       10, 11, 10, LSR #24 ;      g
�8MLA       8, 1, 8, 5          ;faded 8 bit r * 65536
�0MLA       9, 1, 9, 6          ;            g
�0MLA       10, 1, 10, 7        ;            b
�0MOVS      8, 8, ASR #19       ;faded 5 bit r
�MOVMI     8, #0
�CMP       8, #31
�@MOVGT     8, #31              ;              clipped to 0-31
�0MOVS      9, 9, ASR #19       ;faded 5 bit g
�MOVMI     9, #0
CMP       9, #31
@MOVGT     9, #31              ;              clipped to 0-31
0MOVS      10, 10, ASR #19     ;faded 5 bit b
&MOVMI     10, #0
0CMP       10, #31
:@MOVGT     10, #31             ;              clipped to 0-31
DADD       8, 8, 9, LSL #5
N6ADD       8, 8, 10, LSL #10   ;faded 15 bit colour
XBLDRB      8, [4, 8]           ;colour number of closest colour
bSTRB      8, [0, 12]
lSUBS      12, 12, #1
vBPL       buildfade_loop%
�MOVS      PC, 14
�'.apal256def%        EQUD pal256def%
�!.alut%              EQUD lut%
�]
��
��
�:
�� �fade_sub(pass%, r%)
�[OPT pass%
��       11, 6, r%
�LDRB      11, [12, 11]
��       10, 6, r%, LSR #8
�LDRB      10, [12, 10]
�       9, 6, r%, LSR #16
LDRB      9, [12, 9]
�       8, 6, r%, LSR #24
 LDRB      8, [12, 8]
*�R       11, 11, 10, LSL #8
4�R       11, 11, 9, LSL #16
>�R       5, 11, 8, LSL #24
H]
R
=pass%
�

00000000  0d 00 0a 0f f4 20 3e 46  61 64 65 44 65 6d 6f 0d  |..... >FadeDemo.|
00000010  00 14 05 3a 0d 00 1e 0c  6d 6f 64 65 25 3d 31 33  |...:....mode%=13|
00000020  0d 00 28 35 f4 20 57 41  52 4e 49 4e 47 3a 20 74  |..(5. WARNING: t|
00000030  68 65 72 65 20 6d 75 73  74 20 62 65 20 73 75 66  |here must be suf|
00000040  66 69 63 69 65 6e 74 20  73 63 72 65 65 6e 20 6d  |ficient screen m|
00000050  65 6d 6f 72 79 0d 00 32  37 f4 20 61 6c 72 65 61  |emory..27. alrea|
00000060  64 79 20 61 6c 6c 6f 63  61 74 65 64 20 66 6f 72  |dy allocated for|
00000070  20 74 77 6f 20 62 61 6e  6b 73 20 6f 66 20 74 68  | two banks of th|
00000080  65 20 61 62 6f 76 65 20  6d 6f 64 65 0d 00 3c 22  |e above mode..<"|
00000090  f4 20 77 68 69 63 68 20  6d 75 73 74 20 62 65 20  |. which must be |
000000a0  6f 66 20 32 35 36 20 63  6f 6c 6f 75 72 73 0d 00  |of 256 colours..|
000000b0  46 05 3a 0d 00 50 3b f4  20 72 65 61 64 20 73 74  |F.:..P;. read st|
000000c0  61 72 74 20 61 64 64 72  65 73 73 20 6f 66 20 73  |art address of s|
000000d0  63 72 65 65 6e 20 6d 65  6d 6f 72 79 20 66 6f 72  |creen memory for|
000000e0  20 62 61 6e 6b 73 20 31  20 61 6e 64 20 32 0d 00  | banks 1 and 2..|
000000f0  5a 13 de 20 69 6e 25 20  38 2c 20 6f 75 74 25 20  |Z.. in% 8, out% |
00000100  38 0d 00 64 15 21 69 6e  25 3d 31 34 38 3a 69 6e  |8..d.!in%=148:in|
00000110  25 21 34 3d 2d 31 0d 00  6e 0b eb 20 6d 6f 64 65  |%!4=-1..n.. mode|
00000120  25 0d 00 78 35 c8 99 20  22 4f 53 5f 52 65 61 64  |%..x5.. "OS_Read|
00000130  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 20 69  |VduVariables", i|
00000140  6e 25 2c 20 6f 75 74 25  3a 73 63 72 73 74 31 25  |n%, out%:scrst1%|
00000150  3d 21 6f 75 74 25 0d 00  82 0f eb 20 6d 6f 64 65  |=!out%..... mode|
00000160  25 2b 31 32 38 0d 00 8c  35 c8 99 20 22 4f 53 5f  |%+128...5.. "OS_|
00000170  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
00000180  22 2c 20 69 6e 25 2c 20  6f 75 74 25 3a 73 63 72  |", in%, out%:scr|
00000190  73 74 32 25 3d 21 6f 75  74 25 0d 00 96 05 3a 0d  |st2%=!out%....:.|
000001a0  00 a0 13 f4 20 61 73 73  65 6d 62 6c 65 20 63 6f  |.... assemble co|
000001b0  64 65 0d 00 aa 08 f2 61  73 73 0d 00 b4 05 3a 0d  |de.....ass....:.|
000001c0  00 be 2f f4 20 70 6c 6f  74 20 73 6f 6d 65 20 73  |../. plot some s|
000001d0  74 75 66 66 20 6f 6e 20  73 63 72 65 65 6e 21 20  |tuff on screen! |
000001e0  28 75 73 69 6e 67 20 62  61 6e 6b 20 32 29 0d 00  |(using bank 2)..|
000001f0  c8 0f 73 61 72 65 61 25  3d 35 31 38 30 0d 00 d2  |..sarea%=5180...|
00000200  12 de 20 61 72 65 61 25  20 73 61 72 65 61 25 0d  |.. area% sarea%.|
00000210  00 dc 11 21 61 72 65 61  25 3d 73 61 72 65 61 25  |...!area%=sarea%|
00000220  0d 00 e6 3e c8 99 20 22  4f 53 5f 46 69 6c 65 22  |...>.. "OS_File"|
00000230  2c 20 32 35 35 2c 20 22  3c 46 61 64 65 24 44 69  |, 255, "<Fade$Di|
00000240  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 46 61 63  |r>.Resources.Fac|
00000250  65 22 2c 20 61 72 65 61  25 2b 34 2c 20 30 0d 00  |e", area%+4, 0..|
00000260  f0 16 73 70 72 25 3d 61  72 65 61 25 2b 61 72 65  |..spr%=area%+are|
00000270  61 25 21 38 0d 00 fa 05  87 0d 01 04 10 e3 20 71  |a%!8.......... q|
00000280  25 3d 31 20 b8 20 31 30  30 0d 01 0e 47 20 c8 99  |%=1 . 100...G ..|
00000290  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 20  | "OS_SpriteOp", |
000002a0  35 31 32 2b 33 34 2c 20  61 72 65 61 25 2c 20 73  |512+34, area%, s|
000002b0  70 72 25 2c 20 b3 28 31  32 38 30 29 2d 31 36 30  |pr%, .(1280)-160|
000002c0  2c 20 b3 28 31 30 32 34  29 2d 31 32 38 2c 20 30  |, .(1024)-128, 0|
000002d0  0d 01 18 05 ed 0d 01 22  05 3a 0d 01 2c 12 f2 62  |.......".:..,..b|
000002e0  75 69 6c 64 74 61 62 6c  65 28 30 29 0d 01 36 14  |uildtable(0)..6.|
000002f0  21 6c 65 76 65 6c 25 3d  6e 6c 76 6c 73 25 2d 31  |!level%=nlvls%-1|
00000300  0d 01 40 3d d6 20 66 61  64 65 25 20 20 20 3a f4  |..@=. fade%   :.|
00000310  20 61 20 6c 6f 6e 67 20  77 69 6e 64 65 64 20 77  | a long winded w|
00000320  61 79 20 6f 66 20 63 6f  70 79 69 6e 67 20 69 6d  |ay of copying im|
00000330  61 67 65 20 74 6f 20 62  61 6e 6b 20 31 0d 01 4a  |age to bank 1..J|
00000340  05 3a 0d 01 54 1b f4 20  73 77 69 74 63 68 20 62  |.:..T.. switch b|
00000350  61 63 6b 20 74 6f 20 62  61 6e 6b 20 31 0d 01 5e  |ack to bank 1..^|
00000360  19 c8 99 20 36 2c 31 31  33 2c 31 3a c8 99 20 36  |... 6,113,1:.. 6|
00000370  2c 31 31 32 2c 31 0d 01  68 05 3a 0d 01 72 17 f4  |,112,1..h.:..r..|
00000380  20 69 74 65 72 61 74 65  20 74 68 65 20 66 61 64  | iterate the fad|
00000390  65 73 0d 01 7c 05 f5 0d  01 86 09 20 54 25 3d 91  |es..|...... T%=.|
000003a0  0d 01 90 3f 20 f4 20 73  65 6c 65 63 74 20 61 20  |...? . select a |
000003b0  72 61 6e 64 6f 6d 20 70  6f 69 6e 74 20 69 6e 20  |random point in |
000003c0  74 68 65 20 69 6d 61 67  65 20 61 6e 64 20 62 75  |the image and bu|
000003d0  69 6c 64 20 66 61 64 65  20 74 61 62 6c 65 73 0d  |ild fade tables.|
000003e0  01 9a 33 20 f4 20 75 73  69 6e 67 20 74 68 65 20  |..3 . using the |
000003f0  63 6f 6c 6f 75 72 20 6f  66 20 74 68 61 74 20 70  |colour of that p|
00000400  6f 69 6e 74 20 61 73 20  62 61 63 6b 67 72 6f 75  |oint as backgrou|
00000410  6e 64 0d 01 a4 3d 20 f2  62 75 69 6c 64 74 61 62  |nd...= .buildtab|
00000420  6c 65 28 70 61 6c 32 35  36 64 65 66 25 21 28 34  |le(pal256def%!(4|
00000430  2a 3f 28 b3 28 32 30 2a  21 63 6f 75 6e 74 25 29  |*?(.(20*!count%)|
00000440  2d 31 2b 21 61 73 6f 75  72 63 65 25 29 29 29 0d  |-1+!asource%))).|
00000450  01 ae 10 20 f5 20 fd 20  91 2d 54 25 3e 35 30 0d  |... . . .-T%>50.|
00000460  01 b8 24 20 f4 20 66 61  64 65 20 66 72 6f 6d 20  |..$ . fade from |
00000470  69 6d 61 67 65 20 74 6f  20 62 61 63 6b 67 72 6f  |image to backgro|
00000480  75 6e 64 0d 01 c2 1b 20  e3 20 71 25 3d 6e 6c 76  |und.... . q%=nlv|
00000490  6c 73 25 2d 31 20 b8 20  30 20 88 20 2d 31 0d 01  |ls%-1 . 0 . -1..|
000004a0  cc 10 20 20 21 6c 65 76  65 6c 25 3d 71 25 0d 01  |..  !level%=q%..|
000004b0  d6 08 20 20 c8 96 0d 01  e0 0d 20 20 d6 20 66 61  |..  ......  . fa|
000004c0  64 65 25 0d 01 ea 06 20  ed 0d 01 f4 15 20 54 25  |de%.... ..... T%|
000004d0  3d 91 3a f5 20 fd 20 91  2d 54 25 3e 32 30 0d 01  |=.:. . .-T%>20..|
000004e0  fe 24 20 f4 20 66 61 64  65 20 66 72 6f 6d 20 62  |.$ . fade from b|
000004f0  61 63 6b 67 72 6f 75 6e  64 20 74 6f 20 69 6d 61  |ackground to ima|
00000500  67 65 0d 02 08 16 20 e3  20 71 25 3d 30 20 b8 20  |ge.... . q%=0 . |
00000510  6e 6c 76 6c 73 25 2d 31  0d 02 12 10 20 20 21 6c  |nlvls%-1....  !l|
00000520  65 76 65 6c 25 3d 71 25  0d 02 1c 08 20 20 c8 96  |evel%=q%....  ..|
00000530  0d 02 26 0d 20 20 d6 20  66 61 64 65 25 0d 02 30  |..&.  . fade%..0|
00000540  06 20 ed 0d 02 3a 07 fd  20 a3 0d 02 44 05 3a 0d  |. ...:.. ...D.:.|
00000550  02 4e 05 e0 0d 02 58 05  3a 0d 02 62 05 3a 0d 02  |.N....X.:..b.:..|
00000560  6c 1a dd 20 f2 62 75 69  6c 64 74 61 62 6c 65 28  |l.. .buildtable(|
00000570  62 61 63 6b 70 77 25 29  0d 02 76 3b f4 20 6f 72  |backpw%)..v;. or|
00000580  64 69 6e 61 72 69 6c 79  20 79 6f 75 20 77 6f 75  |dinarily you wou|
00000590  6c 64 20 70 72 65 63 6f  6d 70 75 74 65 20 74 68  |ld precompute th|
000005a0  69 73 20 64 61 74 61 20  61 6e 64 20 6c 6f 61 64  |is data and load|
000005b0  20 69 74 0d 02 80 3b f4  20 66 72 6f 6d 20 66 69  | it...;. from fi|
000005c0  6c 65 21 20 28 75 6e 6c  65 73 73 20 79 6f 75 20  |le! (unless you |
000005d0  6e 65 65 64 20 74 6f 20  76 61 72 79 20 62 61 63  |need to vary bac|
000005e0  6b 67 72 6f 75 6e 64 20  63 6f 6c 6f 75 72 0d 02  |kground colour..|
000005f0  8a 22 f4 20 61 74 20 72  75 6e 20 74 69 6d 65 20  |.". at run time |
00000600  61 73 20 69 6e 20 74 68  69 73 20 64 65 6d 6f 29  |as in this demo)|
00000610  0d 02 94 05 3a 0d 02 9e  3a f4 20 6c 6f 6f 70 20  |....:...:. loop |
00000620  62 75 69 6c 64 73 20 66  61 64 65 20 74 61 62 6c  |builds fade tabl|
00000630  65 73 20 66 6f 72 20 65  61 63 68 20 71 25 20 77  |es for each q% w|
00000640  68 69 63 68 20 64 65 74  65 72 6d 69 6e 65 73 0d  |hich determines.|
00000650  02 a8 32 f4 20 66 25 2c  20 74 68 65 20 6c 65 76  |..2. f%, the lev|
00000660  65 6c 20 6f 66 20 66 61  64 65 20 28 30 2d 36 35  |el of fade (0-65|
00000670  35 33 36 29 20 69 6e 20  65 61 63 68 20 63 61 73  |536) in each cas|
00000680  65 0d 02 b2 15 e3 20 71  25 3d 30 20 b8 20 6e 6c  |e..... q%=0 . nl|
00000690  76 6c 73 25 2d 31 0d 02  bc 17 20 70 74 72 25 3d  |vls%-1.... ptr%=|
000006a0  74 61 62 6c 65 25 2b 32  35 36 2a 71 25 0d 02 c6  |table%+256*q%...|
000006b0  40 20 66 25 3d 36 35 35  33 36 2a 28 9b 28 af 2f  |@ f%=65536*(.(./|
000006c0  32 2a 71 25 2f 28 6e 6c  76 6c 73 25 2d 31 29 29  |2*q%/(nlvls%-1))|
000006d0  29 2b 30 2e 35 20 3a f4  20 73 69 6d 70 6c 65 20  |)+0.5 :. simple |
000006e0  68 61 72 6d 6f 6e 69 63  20 66 61 64 65 0d 02 d0  |harmonic fade...|
000006f0  3a 20 f4 66 25 3d 28 6e  6c 76 6c 73 25 2d 31 2d  |: .f%=(nlvls%-1-|
00000700  71 25 29 2a 36 35 35 33  36 2f 28 6e 6c 76 6c 73  |q%)*65536/(nlvls|
00000710  25 2d 31 29 20 3a 52 45  4d 20 61 20 6c 69 6e 65  |%-1) :REM a line|
00000720  61 72 20 66 61 64 65 0d  02 da 0c 20 41 25 3d 70  |ar fade.... A%=p|
00000730  74 72 25 0d 02 e4 0a 20  42 25 3d 66 25 0d 02 ee  |tr%.... B%=f%...|
00000740  0f 20 43 25 3d 62 61 63  6b 70 77 25 0d 02 f8 11  |. C%=backpw%....|
00000750  20 d6 20 62 75 69 6c 64  66 61 64 65 25 0d 03 02  | . buildfade%...|
00000760  05 ed 0d 03 0c 05 e1 0d  03 16 05 3a 0d 03 20 0a  |...........:.. .|
00000770  dd 20 f2 61 73 73 0d 03  2a 05 3a 0d 03 34 0d 6e  |. .ass..*.:..4.n|
00000780  6c 76 6c 73 25 3d 34 38  0d 03 3e 17 de 20 74 61  |lvls%=48..>.. ta|
00000790  62 6c 65 25 20 32 35 36  2a 6e 6c 76 6c 73 25 0d  |ble% 256*nlvls%.|
000007a0  03 48 21 de 20 70 61 6c  32 35 36 64 65 66 25 20  |.H!. pal256def% |
000007b0  31 30 32 34 2c 20 6c 75  74 25 20 33 32 37 36 38  |1024, lut% 32768|
000007c0  0d 03 52 3a f4 20 6c 6f  61 64 20 66 69 6c 65 20  |..R:. load file |
000007d0  63 6f 6e 74 61 69 6e 69  6e 67 20 32 35 36 20 70  |containing 256 p|
000007e0  61 6c 65 74 74 65 20 65  6e 74 72 69 65 73 20 28  |alette entries (|
000007f0  26 62 62 67 67 72 72 30  30 29 0d 03 5c 2d f4 20  |&bbggrr00)..\-. |
00000800  66 6f 72 20 74 68 65 20  64 65 66 61 75 6c 74 20  |for the default |
00000810  38 20 62 69 74 20 70 65  72 20 70 69 78 65 6c 20  |8 bit per pixel |
00000820  70 61 6c 65 74 74 65 0d  03 66 46 c8 99 20 22 4f  |palette..fF.. "O|
00000830  53 5f 46 69 6c 65 22 2c  20 32 35 35 2c 20 22 3c  |S_File", 255, "<|
00000840  46 61 64 65 24 44 69 72  3e 2e 52 65 73 6f 75 72  |Fade$Dir>.Resour|
00000850  63 65 73 2e 50 61 6c 32  35 36 44 65 66 22 2c 20  |ces.Pal256Def", |
00000860  70 61 6c 32 35 36 64 65  66 25 2c 20 30 0d 03 70  |pal256def%, 0..p|
00000870  3e f4 20 6c 6f 61 64 20  66 69 6c 65 20 6d 61 70  |>. load file map|
00000880  70 69 6e 67 20 31 35 20  62 69 74 20 63 6f 6c 6f  |ping 15 bit colo|
00000890  75 72 20 28 72 2b 33 32  67 2b 31 30 32 34 62 29  |ur (r+32g+1024b)|
000008a0  20 74 6f 20 6e 65 61 72  65 73 74 0d 03 7a 38 f4  | to nearest..z8.|
000008b0  20 61 76 61 69 6c 61 62  6c 65 20 70 61 6c 65 74  | available palet|
000008c0  74 65 20 65 6e 74 72 79  20 28 69 6e 20 64 65 66  |te entry (in def|
000008d0  61 75 6c 74 20 38 20 62  70 70 20 70 61 6c 65 74  |ault 8 bpp palet|
000008e0  74 65 29 0d 03 84 3a c8  99 20 22 4f 53 5f 46 69  |te)...:.. "OS_Fi|
000008f0  6c 65 22 2c 20 32 35 35  2c 20 22 3c 46 61 64 65  |le", 255, "<Fade|
00000900  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
00000910  4c 55 54 22 2c 20 6c 75  74 25 2c 20 30 0d 03 8e  |LUT", lut%, 0...|
00000920  05 3a 0d 03 98 36 c8 99  20 22 4f 53 5f 52 65 61  |.:...6.. "OS_Rea|
00000930  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 20  |dModeVariable", |
00000940  6d 6f 64 65 25 2c 20 37  20 b8 20 2c 2c 73 63 72  |mode%, 7 . ,,scr|
00000950  65 65 6e 73 69 7a 65 25  0d 03 a2 05 3a 0d 03 ac  |eensize%....:...|
00000960  10 de 20 63 6f 64 65 25  20 31 30 32 34 0d 03 b6  |.. code% 1024...|
00000970  15 e3 20 70 61 73 73 25  3d 30 20 b8 20 32 20 88  |.. pass%=0 . 2 .|
00000980  20 32 0d 03 c0 0c 50 25  3d 63 6f 64 65 25 0d 03  | 2....P%=code%..|
00000990  ca 0e 5b 4f 50 54 20 70  61 73 73 25 0d 03 d4 1a  |..[OPT pass%....|
000009a0  2e 61 64 65 73 74 25 20  20 20 45 51 55 44 20 73  |.adest%   EQUD s|
000009b0  63 72 73 74 31 25 0d 03  de 21 2e 63 6f 75 6e 74  |crst1%...!.count|
000009c0  25 20 20 20 45 51 55 44  20 73 63 72 65 65 6e 73  |%   EQUD screens|
000009d0  69 7a 65 25 2f 32 30 0d  03 e8 1a 2e 61 73 6f 75  |ize%/20.....asou|
000009e0  72 63 65 25 20 45 51 55  44 20 73 63 72 73 74 32  |rce% EQUD scrst2|
000009f0  25 0d 03 f2 14 2e 6c 65  76 65 6c 25 20 20 20 45  |%.....level%   E|
00000a00  51 55 44 20 30 0d 03 fc  23 2e 61 66 61 64 65 74  |QUD 0...#.afadet|
00000a10  61 62 6c 65 25 20 20 20  20 20 20 20 20 45 51 55  |able%        EQU|
00000a20  44 20 74 61 62 6c 65 25  0d 04 06 1b 2e 64 75 6d  |D table%.....dum|
00000a30  70 25 20 20 20 20 45 51  55 44 20 30 3a 45 51 55  |p%    EQUD 0:EQU|
00000a40  44 20 30 0d 04 10 0a 2e  66 61 64 65 25 0d 04 1a  |D 0.....fade%...|
00000a50  16 41 44 52 20 20 20 20  20 20 20 30 2c 20 64 75  |.ADR       0, du|
00000a60  6d 70 25 0d 04 24 19 53  54 4d 49 41 20 20 20 20  |mp%..$.STMIA    |
00000a70  20 30 2c 20 7b 31 33 2c  20 31 34 7d 0d 04 2e 17  | 0, {13, 14}....|
00000a80  4c 44 52 20 20 20 20 20  20 20 37 2c 20 61 64 65  |LDR       7, ade|
00000a90  73 74 25 0d 04 38 18 4c  44 52 20 20 20 20 20 20  |st%..8.LDR      |
00000aa0  20 31 33 2c 20 63 6f 75  6e 74 25 0d 04 42 1a 4c  | 13, count%..B.L|
00000ab0  44 52 20 20 20 20 20 20  20 31 34 2c 20 61 73 6f  |DR       14, aso|
00000ac0  75 72 63 65 25 0d 04 4c  17 4c 44 52 20 20 20 20  |urce%..L.LDR    |
00000ad0  20 20 20 30 2c 20 6c 65  76 65 6c 25 0d 04 56 1d  |   0, level%..V.|
00000ae0  4c 44 52 20 20 20 20 20  20 20 31 32 2c 20 61 66  |LDR       12, af|
00000af0  61 64 65 74 61 62 6c 65  25 0d 04 60 1f 41 44 44  |adetable%..`.ADD|
00000b00  20 20 20 20 20 20 20 31  32 2c 20 31 32 2c 20 30  |       12, 12, 0|
00000b10  2c 20 41 53 4c 20 23 38  0d 04 6a 15 4d 4f 56 20  |, ASL #8..j.MOV |
00000b20  20 20 20 20 20 20 36 2c  20 23 32 35 35 0d 04 74  |      6, #255..t|
00000b30  15 4c 44 4d 49 41 20 20  20 20 20 31 34 2c 20 7b  |.LDMIA     14, {|
00000b40  30 7d 0d 04 7e 17 a4 66  61 64 65 5f 73 75 62 28  |0}..~..fade_sub(|
00000b50  70 61 73 73 25 2c 20 30  29 0d 04 88 12 4d 4f 56  |pass%, 0)....MOV|
00000b60  20 20 20 20 20 20 20 36  2c 20 30 0d 04 92 0e 2e  |       6, 0.....|
00000b70  66 61 64 65 6c 6f 6f 70  25 0d 04 9c 18 4c 44 4d  |fadeloop%....LDM|
00000b80  49 41 20 20 20 20 20 31  34 21 2c 20 7b 30 2d 34  |IA     14!, {0-4|
00000b90  7d 0d 04 a6 12 43 4d 50  20 20 20 20 20 20 20 30  |}....CMP       0|
00000ba0  2c 20 36 0d 04 b0 15 4d  4f 56 20 20 20 20 20 20  |, 6....MOV      |
00000bb0  20 36 2c 20 23 32 35 35  0d 04 ba 14 42 45 51 20  | 6, #255....BEQ |
00000bc0  20 20 20 20 20 20 66 61  64 65 30 25 0d 04 c4 17  |      fade0%....|
00000bd0  a4 66 61 64 65 5f 73 75  62 28 70 61 73 73 25 2c  |.fade_sub(pass%,|
00000be0  20 30 29 0d 04 ce 0b 2e  66 61 64 65 30 25 0d 04  | 0).....fade0%..|
00000bf0  d8 12 43 4d 50 20 20 20  20 20 20 20 31 2c 20 30  |..CMP       1, 0|
00000c00  0d 04 e2 12 4d 4f 56 20  20 20 20 20 20 20 30 2c  |....MOV       0,|
00000c10  20 35 0d 04 ec 14 42 45  51 20 20 20 20 20 20 20  | 5....BEQ       |
00000c20  66 61 64 65 31 25 0d 04  f6 17 a4 66 61 64 65 5f  |fade1%.....fade_|
00000c30  73 75 62 28 70 61 73 73  25 2c 20 31 29 0d 05 00  |sub(pass%, 1)...|
00000c40  0b 2e 66 61 64 65 31 25  0d 05 0a 12 43 4d 50 20  |..fade1%....CMP |
00000c50  20 20 20 20 20 20 32 2c  20 31 0d 05 14 12 4d 4f  |      2, 1....MO|
00000c60  56 20 20 20 20 20 20 20  31 2c 20 35 0d 05 1e 14  |V       1, 5....|
00000c70  42 45 51 20 20 20 20 20  20 20 66 61 64 65 32 25  |BEQ       fade2%|
00000c80  0d 05 28 17 a4 66 61 64  65 5f 73 75 62 28 70 61  |..(..fade_sub(pa|
00000c90  73 73 25 2c 20 32 29 0d  05 32 0b 2e 66 61 64 65  |ss%, 2)..2..fade|
00000ca0  32 25 0d 05 3c 12 43 4d  50 20 20 20 20 20 20 20  |2%..<.CMP       |
00000cb0  33 2c 20 32 0d 05 46 12  4d 4f 56 20 20 20 20 20  |3, 2..F.MOV     |
00000cc0  20 20 32 2c 20 35 0d 05  50 14 42 45 51 20 20 20  |  2, 5..P.BEQ   |
00000cd0  20 20 20 20 66 61 64 65  33 25 0d 05 5a 17 a4 66  |    fade3%..Z..f|
00000ce0  61 64 65 5f 73 75 62 28  70 61 73 73 25 2c 20 33  |ade_sub(pass%, 3|
00000cf0  29 0d 05 64 0b 2e 66 61  64 65 33 25 0d 05 6e 12  |)..d..fade3%..n.|
00000d00  43 4d 50 20 20 20 20 20  20 20 34 2c 20 33 0d 05  |CMP       4, 3..|
00000d10  78 12 4d 4f 56 20 20 20  20 20 20 20 33 2c 20 35  |x.MOV       3, 5|
00000d20  0d 05 82 14 42 45 51 20  20 20 20 20 20 20 66 61  |....BEQ       fa|
00000d30  64 65 34 25 0d 05 8c 17  a4 66 61 64 65 5f 73 75  |de4%.....fade_su|
00000d40  62 28 70 61 73 73 25 2c  20 34 29 0d 05 96 0b 2e  |b(pass%, 4).....|
00000d50  66 61 64 65 34 25 0d 05  a0 12 4d 4f 56 20 20 20  |fade4%....MOV   |
00000d60  20 20 20 20 36 2c 20 34  0d 05 aa 12 4d 4f 56 20  |    6, 4....MOV |
00000d70  20 20 20 20 20 20 34 2c  20 35 0d 05 b4 17 53 54  |      4, 5....ST|
00000d80  4d 49 41 20 20 20 20 20  37 21 2c 20 7b 30 2d 34  |MIA     7!, {0-4|
00000d90  7d 0d 05 be 18 53 55 42  53 20 20 20 20 20 20 31  |}....SUBS      1|
00000da0  33 2c 20 31 33 2c 20 23  31 0d 05 c8 17 42 4e 45  |3, 13, #1....BNE|
00000db0  20 20 20 20 20 20 20 66  61 64 65 6c 6f 6f 70 25  |       fadeloop%|
00000dc0  0d 05 d2 16 41 44 52 20  20 20 20 20 20 20 30 2c  |....ADR       0,|
00000dd0  20 64 75 6d 70 25 0d 05  dc 1a 4c 44 4d 49 41 20  | dump%....LDMIA |
00000de0  20 20 20 20 30 2c 20 7b  31 33 2c 20 50 43 7d 5e  |    0, {13, PC}^|
00000df0  0d 05 e6 05 3a 0d 05 f0  38 2e 62 75 69 6c 64 66  |....:...8.buildf|
00000e00  61 64 65 25 20 20 20 20  20 20 20 20 20 3b 63 61  |ade%         ;ca|
00000e10  6c 6c 65 64 20 77 69 74  68 20 70 74 72 20 74 6f  |lled with ptr to|
00000e20  20 74 61 62 6c 65 20 69  6e 20 72 30 2c 0d 05 fa  | table in r0,...|
00000e30  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00000e40  20 20 20 20 20 3b 66 61  64 65 20 70 61 72 61 6d  |     ;fade param|
00000e50  20 69 6e 20 72 31 20 28  30 2d 36 35 35 33 36 29  | in r1 (0-65536)|
00000e60  2c 0d 06 04 3d 20 20 20  20 20 20 20 20 20 20 20  |,...=           |
00000e70  20 20 20 20 20 20 20 20  20 3b 62 61 63 6b 67 72  |         ;backgr|
00000e80  6f 75 6e 64 20 63 6f 6c  6f 75 72 20 70 61 6c 65  |ound colour pale|
00000e90  74 74 65 20 77 6f 72 64  20 69 6e 20 72 32 0d 06  |tte word in r2..|
00000ea0  0e 1c 4c 44 52 20 20 20  20 20 20 20 33 2c 20 61  |..LDR       3, a|
00000eb0  70 61 6c 32 35 36 64 65  66 25 0d 06 18 16 4c 44  |pal256def%....LD|
00000ec0  52 20 20 20 20 20 20 20  34 2c 20 61 6c 75 74 25  |R       4, alut%|
00000ed0  0d 06 22 16 4d 4f 56 20  20 20 20 20 20 20 31 31  |..".MOV       11|
00000ee0  2c 20 23 32 35 35 0d 06  2c 1c 80 20 20 20 20 20  |, #255..,..     |
00000ef0  20 20 38 2c 20 31 31 2c  20 32 2c 20 4c 53 52 20  |  8, 11, 2, LSR |
00000f00  23 38 0d 06 36 1d 80 20  20 20 20 20 20 20 39 2c  |#8..6..       9,|
00000f10  20 31 31 2c 20 32 2c 20  4c 53 52 20 23 31 36 0d  | 11, 2, LSR #16.|
00000f20  06 40 1e 80 20 20 20 20  20 20 20 31 30 2c 20 31  |.@..       10, 1|
00000f30  31 2c 20 32 2c 20 4c 53  52 20 23 32 34 0d 06 4a  |1, 2, LSR #24..J|
00000f40  15 4d 55 4c 20 20 20 20  20 20 20 35 2c 20 31 2c  |.MUL       5, 1,|
00000f50  20 38 0d 06 54 15 4d 55  4c 20 20 20 20 20 20 20  | 8..T.MUL       |
00000f60  36 2c 20 31 2c 20 39 0d  06 5e 16 4d 55 4c 20 20  |6, 1, 9..^.MUL  |
00000f70  20 20 20 20 20 37 2c 20  31 2c 20 31 30 0d 06 68  |     7, 1, 10..h|
00000f80  1a 52 53 42 20 20 20 20  20 20 20 31 2c 20 31 2c  |.RSB       1, 1,|
00000f90  20 23 36 35 35 33 36 0d  06 72 16 4d 4f 56 20 20  | #65536..r.MOV  |
00000fa0  20 20 20 20 20 31 32 2c  20 23 32 35 35 0d 06 7c  |     12, #255..||
00000fb0  44 2e 62 75 69 6c 64 66  61 64 65 5f 6c 6f 6f 70  |D.buildfade_loop|
00000fc0  25 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |%              ;|
00000fd0  6c 6f 6f 70 20 74 68 72  6f 20 63 6f 6c 6f 75 72  |loop thro colour|
00000fe0  20 6e 75 6d 62 65 72 73  20 32 35 35 20 74 6f 20  | numbers 255 to |
00000ff0  30 0d 06 86 3f 4c 44 52  20 20 20 20 20 20 20 31  |0...?LDR       1|
00001000  30 2c 20 5b 33 2c 20 31  32 2c 20 4c 53 4c 20 23  |0, [3, 12, LSL #|
00001010  32 5d 20 3b 70 61 6c 65  74 74 65 20 65 6e 74 72  |2] ;palette entr|
00001020  79 20 66 6f 72 20 63 6f  6c 6f 75 72 20 72 31 32  |y for colour r12|
00001030  0d 06 90 32 80 20 20 20  20 20 20 20 38 2c 20 31  |...2.       8, 1|
00001040  31 2c 20 31 30 2c 20 4c  53 52 20 23 38 20 20 20  |1, 10, LSR #8   |
00001050  3b 38 20 62 69 74 20 72  20 63 6f 6d 70 6f 6e 65  |;8 bit r compone|
00001060  6e 74 0d 06 9a 28 80 20  20 20 20 20 20 20 39 2c  |nt...(.       9,|
00001070  20 31 31 2c 20 31 30 2c  20 4c 53 52 20 23 31 36  | 11, 10, LSR #16|
00001080  20 20 3b 20 20 20 20 20  20 62 0d 06 a4 28 80 20  |  ;      b...(. |
00001090  20 20 20 20 20 20 31 30  2c 20 31 31 2c 20 31 30  |      10, 11, 10|
000010a0  2c 20 4c 53 52 20 23 32  34 20 3b 20 20 20 20 20  |, LSR #24 ;     |
000010b0  20 67 0d 06 ae 38 4d 4c  41 20 20 20 20 20 20 20  | g...8MLA       |
000010c0  38 2c 20 31 2c 20 38 2c  20 35 20 20 20 20 20 20  |8, 1, 8, 5      |
000010d0  20 20 20 20 3b 66 61 64  65 64 20 38 20 62 69 74  |    ;faded 8 bit|
000010e0  20 72 20 2a 20 36 35 35  33 36 0d 06 b8 30 4d 4c  | r * 65536...0ML|
000010f0  41 20 20 20 20 20 20 20  39 2c 20 31 2c 20 39 2c  |A       9, 1, 9,|
00001100  20 36 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  | 6          ;   |
00001110  20 20 20 20 20 20 20 20  20 67 0d 06 c2 30 4d 4c  |         g...0ML|
00001120  41 20 20 20 20 20 20 20  31 30 2c 20 31 2c 20 31  |A       10, 1, 1|
00001130  30 2c 20 37 20 20 20 20  20 20 20 20 3b 20 20 20  |0, 7        ;   |
00001140  20 20 20 20 20 20 20 20  20 62 0d 06 cc 30 4d 4f  |         b...0MO|
00001150  56 53 20 20 20 20 20 20  38 2c 20 38 2c 20 41 53  |VS      8, 8, AS|
00001160  52 20 23 31 39 20 20 20  20 20 20 20 3b 66 61 64  |R #19       ;fad|
00001170  65 64 20 35 20 62 69 74  20 72 0d 06 d6 13 4d 4f  |ed 5 bit r....MO|
00001180  56 4d 49 20 20 20 20 20  38 2c 20 23 30 0d 06 e0  |VMI     8, #0...|
00001190  14 43 4d 50 20 20 20 20  20 20 20 38 2c 20 23 33  |.CMP       8, #3|
000011a0  31 0d 06 ea 40 4d 4f 56  47 54 20 20 20 20 20 38  |1...@MOVGT     8|
000011b0  2c 20 23 33 31 20 20 20  20 20 20 20 20 20 20 20  |, #31           |
000011c0  20 20 20 3b 20 20 20 20  20 20 20 20 20 20 20 20  |   ;            |
000011d0  20 20 63 6c 69 70 70 65  64 20 74 6f 20 30 2d 33  |  clipped to 0-3|
000011e0  31 0d 06 f4 30 4d 4f 56  53 20 20 20 20 20 20 39  |1...0MOVS      9|
000011f0  2c 20 39 2c 20 41 53 52  20 23 31 39 20 20 20 20  |, 9, ASR #19    |
00001200  20 20 20 3b 66 61 64 65  64 20 35 20 62 69 74 20  |   ;faded 5 bit |
00001210  67 0d 06 fe 13 4d 4f 56  4d 49 20 20 20 20 20 39  |g....MOVMI     9|
00001220  2c 20 23 30 0d 07 08 14  43 4d 50 20 20 20 20 20  |, #0....CMP     |
00001230  20 20 39 2c 20 23 33 31  0d 07 12 40 4d 4f 56 47  |  9, #31...@MOVG|
00001240  54 20 20 20 20 20 39 2c  20 23 33 31 20 20 20 20  |T     9, #31    |
00001250  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
00001260  20 20 20 20 20 20 20 20  20 63 6c 69 70 70 65 64  |         clipped|
00001270  20 74 6f 20 30 2d 33 31  0d 07 1c 30 4d 4f 56 53  | to 0-31...0MOVS|
00001280  20 20 20 20 20 20 31 30  2c 20 31 30 2c 20 41 53  |      10, 10, AS|
00001290  52 20 23 31 39 20 20 20  20 20 3b 66 61 64 65 64  |R #19     ;faded|
000012a0  20 35 20 62 69 74 20 62  0d 07 26 14 4d 4f 56 4d  | 5 bit b..&.MOVM|
000012b0  49 20 20 20 20 20 31 30  2c 20 23 30 0d 07 30 15  |I     10, #0..0.|
000012c0  43 4d 50 20 20 20 20 20  20 20 31 30 2c 20 23 33  |CMP       10, #3|
000012d0  31 0d 07 3a 40 4d 4f 56  47 54 20 20 20 20 20 31  |1..:@MOVGT     1|
000012e0  30 2c 20 23 33 31 20 20  20 20 20 20 20 20 20 20  |0, #31          |
000012f0  20 20 20 3b 20 20 20 20  20 20 20 20 20 20 20 20  |   ;            |
00001300  20 20 63 6c 69 70 70 65  64 20 74 6f 20 30 2d 33  |  clipped to 0-3|
00001310  31 0d 07 44 1d 41 44 44  20 20 20 20 20 20 20 38  |1..D.ADD       8|
00001320  2c 20 38 2c 20 39 2c 20  4c 53 4c 20 23 35 0d 07  |, 8, 9, LSL #5..|
00001330  4e 36 41 44 44 20 20 20  20 20 20 20 38 2c 20 38  |N6ADD       8, 8|
00001340  2c 20 31 30 2c 20 4c 53  4c 20 23 31 30 20 20 20  |, 10, LSL #10   |
00001350  3b 66 61 64 65 64 20 31  35 20 62 69 74 20 63 6f  |;faded 15 bit co|
00001360  6c 6f 75 72 0d 07 58 42  4c 44 52 42 20 20 20 20  |lour..XBLDRB    |
00001370  20 20 38 2c 20 5b 34 2c  20 38 5d 20 20 20 20 20  |  8, [4, 8]     |
00001380  20 20 20 20 20 20 3b 63  6f 6c 6f 75 72 20 6e 75  |      ;colour nu|
00001390  6d 62 65 72 20 6f 66 20  63 6c 6f 73 65 73 74 20  |mber of closest |
000013a0  63 6f 6c 6f 75 72 0d 07  62 18 53 54 52 42 20 20  |colour..b.STRB  |
000013b0  20 20 20 20 38 2c 20 5b  30 2c 20 31 32 5d 0d 07  |    8, [0, 12]..|
000013c0  6c 18 53 55 42 53 20 20  20 20 20 20 31 32 2c 20  |l.SUBS      12, |
000013d0  31 32 2c 20 23 31 0d 07  76 1d 42 50 4c 20 20 20  |12, #1..v.BPL   |
000013e0  20 20 20 20 62 75 69 6c  64 66 61 64 65 5f 6c 6f  |    buildfade_lo|
000013f0  6f 70 25 0d 07 80 14 4d  4f 56 53 20 20 20 20 20  |op%....MOVS     |
00001400  20 50 43 2c 20 31 34 0d  07 8a 27 2e 61 70 61 6c  | PC, 14...'.apal|
00001410  32 35 36 64 65 66 25 20  20 20 20 20 20 20 20 45  |256def%        E|
00001420  51 55 44 20 70 61 6c 32  35 36 64 65 66 25 0d 07  |QUD pal256def%..|
00001430  94 21 2e 61 6c 75 74 25  20 20 20 20 20 20 20 20  |.!.alut%        |
00001440  20 20 20 20 20 20 45 51  55 44 20 6c 75 74 25 0d  |      EQUD lut%.|
00001450  07 9e 05 5d 0d 07 a8 05  ed 0d 07 b2 05 e1 0d 07  |...]............|
00001460  bc 05 3a 0d 07 c6 1a dd  20 a4 66 61 64 65 5f 73  |..:..... .fade_s|
00001470  75 62 28 70 61 73 73 25  2c 20 72 25 29 0d 07 d0  |ub(pass%, r%)...|
00001480  0e 5b 4f 50 54 20 70 61  73 73 25 0d 07 da 15 80  |.[OPT pass%.....|
00001490  20 20 20 20 20 20 20 31  31 2c 20 36 2c 20 72 25  |       11, 6, r%|
000014a0  0d 07 e4 1a 4c 44 52 42  20 20 20 20 20 20 31 31  |....LDRB      11|
000014b0  2c 20 5b 31 32 2c 20 31  31 5d 0d 07 ee 1d 80 20  |, [12, 11]..... |
000014c0  20 20 20 20 20 20 31 30  2c 20 36 2c 20 72 25 2c  |      10, 6, r%,|
000014d0  20 4c 53 52 20 23 38 0d  07 f8 1a 4c 44 52 42 20  | LSR #8....LDRB |
000014e0  20 20 20 20 20 31 30 2c  20 5b 31 32 2c 20 31 30  |     10, [12, 10|
000014f0  5d 0d 08 02 1d 80 20 20  20 20 20 20 20 39 2c 20  |].....       9, |
00001500  36 2c 20 72 25 2c 20 4c  53 52 20 23 31 36 0d 08  |6, r%, LSR #16..|
00001510  0c 18 4c 44 52 42 20 20  20 20 20 20 39 2c 20 5b  |..LDRB      9, [|
00001520  31 32 2c 20 39 5d 0d 08  16 1d 80 20 20 20 20 20  |12, 9].....     |
00001530  20 20 38 2c 20 36 2c 20  72 25 2c 20 4c 53 52 20  |  8, 6, r%, LSR |
00001540  23 32 34 0d 08 20 18 4c  44 52 42 20 20 20 20 20  |#24.. .LDRB     |
00001550  20 38 2c 20 5b 31 32 2c  20 38 5d 0d 08 2a 1f 84  | 8, [12, 8]..*..|
00001560  52 20 20 20 20 20 20 20  31 31 2c 20 31 31 2c 20  |R       11, 11, |
00001570  31 30 2c 20 4c 53 4c 20  23 38 0d 08 34 1f 84 52  |10, LSL #8..4..R|
00001580  20 20 20 20 20 20 20 31  31 2c 20 31 31 2c 20 39  |       11, 11, 9|
00001590  2c 20 4c 53 4c 20 23 31  36 0d 08 3e 1e 84 52 20  |, LSL #16..>..R |
000015a0  20 20 20 20 20 20 35 2c  20 31 31 2c 20 38 2c 20  |      5, 11, 8, |
000015b0  4c 53 4c 20 23 32 34 0d  08 48 05 5d 0d 08 52 0a  |LSL #24..H.]..R.|
000015c0  3d 70 61 73 73 25 0d ff                           |=pass%..|
000015c8

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .