�> Roto
�> (C) Jan Vlietinck
� vlietin@intec.rug.ac.be
(
2�13+128:� 13:�
<	� �:�
FSC=7:DM=2^SC
P� IMAGE DM*DM
Z�ASS
d�BUILDIMAGE
n	�MAIN
x�
�
�� �MAIN
�M%=2
��
�R%=2^(36-SC)
�
ST=0.5
�H=0
��
�	H+=ST
�ș "OS_Byte",&70,M%
�!DXD=�(�(H))*R%
�!DYD=�(�(H))*R%
�R%=R%/1.02

	� set

� scale_rotate

 ș "OS_Byte",&71,M%:M%=M% �3

"� H>120

,�

6H-=4*ST

@ș "OS_Byte",&70,M%

J!DXD=�(�(H))*R%

T!DYD=�(�(H))*R%

^R%=R%*(1.02)^4

h	� set

r� scale_rotate

| ș "OS_Byte",&71,M%:M%=M% �3

�	� H<0

�� 0

��

�

�� �BUILDIMAGE

�*SLOAD <Roto$Dir>.screen

�*SCHOOSE screen

�� &ED,0,-8

�	� set

�	� get

��

�

�
� �ASS

� Q% 4000
BX=0:Y=1:DX=2:DY=3:C=4:D=5:T=6:SCR=7:BMP=8:XM=9:YM=10:S=11:U=12
W1=9:W2=10:W3=11:W4=12
&� PASS=0 � 2 � 2
0	P%=Q%
:
[OPT PASS
D.SCREEND EQUD 148:EQUD -1
N.SCREEN EQUD 0
X.DXD EQUD 0
b.DYD EQUD 0
l.XD EQUD  DM << (32-SC-1)
v.YD EQUD  DM << (32-SC-1)
�.BMPD EQUD IMAGE
�
�.set
�ADR R0,SCREEND
�ADR R1,SCREEN
�SWI "OS_ReadVduVariables"
�MOV PC,R14
�
�.get
�LDR SCR,SCREEN
�ADD SCR,SCR,#320*256
�SUB SCR,SCR,#320
�LDR BMP,BMPD

MOV D,#DM
.GLOOPY

MOV C,#DM
 .GLOOPX
*LDR T,[SCR],#4
4STR T,[BMP],#4
>SUBS C,C,#4
HBNE GLOOPX
RSUB SCR,SCR,#DM
\SUB SCR,SCR,#320
fSUBS D,D,#1
pBNE GLOOPY
zMOV PC,R14
�
�.scale_rotate
�
LDR XM,XD
�
LDR YM,YD
�LDR SCR,SCREEN
�LDR DX,DXD
�LDR DY,DYD
�LDR BMP,BMPD
�MOV S,#128
�MOV T,#160
�MOV X,DX,ASR #8
�MOV Y,DY,ASR #8
�
MUL C,Y,S
SUB XM,XM,C,LSL #8

MUL C,X,T
SUB XM,XM,C,LSL #8
$
MUL C,X,S
.ADD YM,YM,C,LSL #8
8
MUL C,Y,T
BSUB YM,YM,C,LSL #8
LMOV D,#256
V
`
.LOOPY
jMOV X,XM
tMOV Y,YM
~ADD XM,XM,DY
�SUB YM,YM,DX
�STMFD 13!,{XM,YM,DX,DY}
�
�BIC  DX,DX,#&7F
��R  DX,DX,DY,LSR #32-7
�MOV  DY,DY,LSL #7
�BIC  X,X,#&7F
��R  X,X,Y,LSR #32-7
�MOV  Y,Y,LSL #7
�
�MOV C,#320
�
.LOOPX


�mapbyte(W1)
�mapbyte(T)
ADD W1,W1,T,LSL #8
(�mapbyte(T)
2ADD W1,W1,T,LSL #16
<�mapbyte(T)
FADD W1,W1,T,LSL #24
P
Z�mapbyte(W2)
d�mapbyte(T)
nADD W2,W2,T,LSL #8
x�mapbyte(T)
�ADD W2,W2,T,LSL #16
��mapbyte(T)
�ADD W2,W2,T,LSL #24
�
��mapbyte(W3)
��mapbyte(T)
�ADD W3,W3,T,LSL #8
��mapbyte(T)
�ADD W3,W3,T,LSL #16
��mapbyte(T)
�ADD W3,W3,T,LSL #24
�
��mapbyte(W4)
�mapbyte(T)
ADD W4,W4,T,LSL #8
�mapbyte(T)
"ADD W4,W4,T,LSL #16
,�mapbyte(T)
6ADD W4,W4,T,LSL #24
@
^STMIA (SCR)!,{W1,W2,W3,W4}
hSUBS C,C,#16
r
BNE LOOPX
|
�LDMFD 13!,{XM,YM,DX,DY}
�SUBS D,D,#1
�
BNE LOOPY
�MOV PC,R14
�]
��
��
�
�
�� �mapbyte(reg)
�
[OPT PASS
�; (u, v)+=(du, dv)
�          ADDS      Y,Y,DY
          ADC       X,X,DX
#          MOV       T,X,ROR #SC
'; lookup colour at (int(u), int(v))
&0          LDRB      reg,[BMP,T,LSR #32-2*SC]
0 ]
: =""
D
�

00000000  0d 00 0a 0b f4 3e 20 52  6f 74 6f 0d 00 14 18 f4  |.....> Roto.....|
00000010  3e 20 28 43 29 20 4a 61  6e 20 56 6c 69 65 74 69  |> (C) Jan Vlieti|
00000020  6e 63 6b 0d 00 1e 1d f4  20 76 6c 69 65 74 69 6e  |nck..... vlietin|
00000030  40 69 6e 74 65 63 2e 72  75 67 2e 61 63 2e 62 65  |@intec.rug.ac.be|
00000040  0d 00 28 04 0d 00 32 12  eb 31 33 2b 31 32 38 3a  |..(...2..13+128:|
00000050  eb 20 31 33 3a 87 0d 00  3c 09 ee 20 85 3a e0 0d  |. 13:...<.. .:..|
00000060  00 46 10 53 43 3d 37 3a  44 4d 3d 32 5e 53 43 0d  |.F.SC=7:DM=2^SC.|
00000070  00 50 11 de 20 49 4d 41  47 45 20 44 4d 2a 44 4d  |.P.. IMAGE DM*DM|
00000080  0d 00 5a 08 f2 41 53 53  0d 00 64 0f f2 42 55 49  |..Z..ASS..d..BUI|
00000090  4c 44 49 4d 41 47 45 0d  00 6e 09 f2 4d 41 49 4e  |LDIMAGE..n..MAIN|
000000a0  0d 00 78 05 e0 0d 00 82  04 0d 00 8c 0b dd 20 f2  |..x........... .|
000000b0  4d 41 49 4e 0d 00 96 08  4d 25 3d 32 0d 00 a0 05  |MAIN....M%=2....|
000000c0  f5 0d 00 aa 10 52 25 3d  32 5e 28 33 36 2d 53 43  |.....R%=2^(36-SC|
000000d0  29 0d 00 b4 0a 53 54 3d  30 2e 35 0d 00 be 07 48  |)....ST=0.5....H|
000000e0  3d 30 0d 00 c8 05 f5 0d  00 d2 09 48 2b 3d 53 54  |=0.........H+=ST|
000000f0  0d 00 dc 17 c8 99 20 22  4f 53 5f 42 79 74 65 22  |...... "OS_Byte"|
00000100  2c 26 37 30 2c 4d 25 0d  00 e6 13 21 44 58 44 3d  |,&70,M%....!DXD=|
00000110  9b 28 b2 28 48 29 29 2a  52 25 0d 00 f0 13 21 44  |.(.(H))*R%....!D|
00000120  59 44 3d b5 28 b2 28 48  29 29 2a 52 25 0d 00 fa  |YD=.(.(H))*R%...|
00000130  0e 52 25 3d 52 25 2f 31  2e 30 32 0d 01 04 09 d6  |.R%=R%/1.02.....|
00000140  20 73 65 74 0d 01 0e 12  d6 20 73 63 61 6c 65 5f  | set..... scale_|
00000150  72 6f 74 61 74 65 0d 01  18 20 c8 99 20 22 4f 53  |rotate... .. "OS|
00000160  5f 42 79 74 65 22 2c 26  37 31 2c 4d 25 3a 4d 25  |_Byte",&71,M%:M%|
00000170  3d 4d 25 20 82 33 0d 01  22 0b fd 20 48 3e 31 32  |=M% .3..".. H>12|
00000180  30 0d 01 2c 05 f5 0d 01  36 0b 48 2d 3d 34 2a 53  |0..,....6.H-=4*S|
00000190  54 0d 01 40 17 c8 99 20  22 4f 53 5f 42 79 74 65  |T..@... "OS_Byte|
000001a0  22 2c 26 37 30 2c 4d 25  0d 01 4a 13 21 44 58 44  |",&70,M%..J.!DXD|
000001b0  3d 9b 28 b2 28 48 29 29  2a 52 25 0d 01 54 13 21  |=.(.(H))*R%..T.!|
000001c0  44 59 44 3d b5 28 b2 28  48 29 29 2a 52 25 0d 01  |DYD=.(.(H))*R%..|
000001d0  5e 12 52 25 3d 52 25 2a  28 31 2e 30 32 29 5e 34  |^.R%=R%*(1.02)^4|
000001e0  0d 01 68 09 d6 20 73 65  74 0d 01 72 12 d6 20 73  |..h.. set..r.. s|
000001f0  63 61 6c 65 5f 72 6f 74  61 74 65 0d 01 7c 20 c8  |cale_rotate..| .|
00000200  99 20 22 4f 53 5f 42 79  74 65 22 2c 26 37 31 2c  |. "OS_Byte",&71,|
00000210  4d 25 3a 4d 25 3d 4d 25  20 82 33 0d 01 86 09 fd  |M%:M%=M% .3.....|
00000220  20 48 3c 30 0d 01 90 07  fd 20 30 0d 01 9a 05 e1  | H<0..... 0.....|
00000230  0d 01 a4 04 0d 01 ae 11  dd 20 f2 42 55 49 4c 44  |......... .BUILD|
00000240  49 4d 41 47 45 0d 01 b8  1c 2a 53 4c 4f 41 44 20  |IMAGE....*SLOAD |
00000250  3c 52 6f 74 6f 24 44 69  72 3e 2e 73 63 72 65 65  |<Roto$Dir>.scree|
00000260  6e 0d 01 c2 13 2a 53 43  48 4f 4f 53 45 20 73 63  |n....*SCHOOSE sc|
00000270  72 65 65 6e 0d 01 cc 0e  f0 20 26 45 44 2c 30 2c  |reen..... &ED,0,|
00000280  2d 38 0d 01 d6 09 d6 20  73 65 74 0d 01 e0 09 d6  |-8..... set.....|
00000290  20 67 65 74 0d 01 ea 05  e1 0d 01 f4 04 0d 01 fe  | get............|
000002a0  0a dd 20 f2 41 53 53 0d  02 08 0d de 20 51 25 20  |.. .ASS..... Q% |
000002b0  34 30 30 30 0d 02 12 42  58 3d 30 3a 59 3d 31 3a  |4000...BX=0:Y=1:|
000002c0  44 58 3d 32 3a 44 59 3d  33 3a 43 3d 34 3a 44 3d  |DX=2:DY=3:C=4:D=|
000002d0  35 3a 54 3d 36 3a 53 43  52 3d 37 3a 42 4d 50 3d  |5:T=6:SCR=7:BMP=|
000002e0  38 3a 58 4d 3d 39 3a 59  4d 3d 31 30 3a 53 3d 31  |8:XM=9:YM=10:S=1|
000002f0  31 3a 55 3d 31 32 0d 02  1c 1a 57 31 3d 39 3a 57  |1:U=12....W1=9:W|
00000300  32 3d 31 30 3a 57 33 3d  31 31 3a 57 34 3d 31 32  |2=10:W3=11:W4=12|
00000310  0d 02 26 14 e3 20 50 41  53 53 3d 30 20 b8 20 32  |..&.. PASS=0 . 2|
00000320  20 88 20 32 0d 02 30 09  50 25 3d 51 25 0d 02 3a  | . 2..0.P%=Q%..:|
00000330  0d 5b 4f 50 54 20 50 41  53 53 0d 02 44 1d 2e 53  |.[OPT PASS..D..S|
00000340  43 52 45 45 4e 44 20 45  51 55 44 20 31 34 38 3a  |CREEND EQUD 148:|
00000350  45 51 55 44 20 2d 31 0d  02 4e 12 2e 53 43 52 45  |EQUD -1..N..SCRE|
00000360  45 4e 20 45 51 55 44 20  30 0d 02 58 0f 2e 44 58  |EN EQUD 0..X..DX|
00000370  44 20 45 51 55 44 20 30  0d 02 62 0f 2e 44 59 44  |D EQUD 0..b..DYD|
00000380  20 45 51 55 44 20 30 0d  02 6c 1d 2e 58 44 20 45  | EQUD 0..l..XD E|
00000390  51 55 44 20 20 44 4d 20  3c 3c 20 28 33 32 2d 53  |QUD  DM << (32-S|
000003a0  43 2d 31 29 0d 02 76 1d  2e 59 44 20 45 51 55 44  |C-1)..v..YD EQUD|
000003b0  20 20 44 4d 20 3c 3c 20  28 33 32 2d 53 43 2d 31  |  DM << (32-SC-1|
000003c0  29 0d 02 80 14 2e 42 4d  50 44 20 45 51 55 44 20  |).....BMPD EQUD |
000003d0  49 4d 41 47 45 0d 02 8a  04 0d 02 94 08 2e 73 65  |IMAGE.........se|
000003e0  74 0d 02 9e 12 41 44 52  20 52 30 2c 53 43 52 45  |t....ADR R0,SCRE|
000003f0  45 4e 44 0d 02 a8 11 41  44 52 20 52 31 2c 53 43  |END....ADR R1,SC|
00000400  52 45 45 4e 0d 02 b2 1d  53 57 49 20 22 4f 53 5f  |REEN....SWI "OS_|
00000410  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
00000420  22 0d 02 bc 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |"....MOV PC,R14.|
00000430  02 c6 04 0d 02 d0 08 2e  67 65 74 0d 02 da 12 4c  |........get....L|
00000440  44 52 20 53 43 52 2c 53  43 52 45 45 4e 0d 02 e4  |DR SCR,SCREEN...|
00000450  18 41 44 44 20 53 43 52  2c 53 43 52 2c 23 33 32  |.ADD SCR,SCR,#32|
00000460  30 2a 32 35 36 0d 02 ee  14 53 55 42 20 53 43 52  |0*256....SUB SCR|
00000470  2c 53 43 52 2c 23 33 32  30 0d 02 f8 10 4c 44 52  |,SCR,#320....LDR|
00000480  20 42 4d 50 2c 42 4d 50  44 0d 03 02 0d 4d 4f 56  | BMP,BMPD....MOV|
00000490  20 44 2c 23 44 4d 0d 03  0c 0b 2e 47 4c 4f 4f 50  | D,#DM.....GLOOP|
000004a0  59 0d 03 16 0d 4d 4f 56  20 43 2c 23 44 4d 0d 03  |Y....MOV C,#DM..|
000004b0  20 0b 2e 47 4c 4f 4f 50  58 0d 03 2a 12 4c 44 52  | ..GLOOPX..*.LDR|
000004c0  20 54 2c 5b 53 43 52 5d  2c 23 34 0d 03 34 12 53  | T,[SCR],#4..4.S|
000004d0  54 52 20 54 2c 5b 42 4d  50 5d 2c 23 34 0d 03 3e  |TR T,[BMP],#4..>|
000004e0  0f 53 55 42 53 20 43 2c  43 2c 23 34 0d 03 48 0e  |.SUBS C,C,#4..H.|
000004f0  42 4e 45 20 47 4c 4f 4f  50 58 0d 03 52 13 53 55  |BNE GLOOPX..R.SU|
00000500  42 20 53 43 52 2c 53 43  52 2c 23 44 4d 0d 03 5c  |B SCR,SCR,#DM..\|
00000510  14 53 55 42 20 53 43 52  2c 53 43 52 2c 23 33 32  |.SUB SCR,SCR,#32|
00000520  30 0d 03 66 0f 53 55 42  53 20 44 2c 44 2c 23 31  |0..f.SUBS D,D,#1|
00000530  0d 03 70 0e 42 4e 45 20  47 4c 4f 4f 50 59 0d 03  |..p.BNE GLOOPY..|
00000540  7a 0e 4d 4f 56 20 50 43  2c 52 31 34 0d 03 84 04  |z.MOV PC,R14....|
00000550  0d 03 8e 11 2e 73 63 61  6c 65 5f 72 6f 74 61 74  |.....scale_rotat|
00000560  65 0d 03 98 0d 4c 44 52  20 58 4d 2c 58 44 0d 03  |e....LDR XM,XD..|
00000570  a2 0d 4c 44 52 20 59 4d  2c 59 44 0d 03 ac 12 4c  |..LDR YM,YD....L|
00000580  44 52 20 53 43 52 2c 53  43 52 45 45 4e 0d 03 b6  |DR SCR,SCREEN...|
00000590  0e 4c 44 52 20 44 58 2c  44 58 44 0d 03 c0 0e 4c  |.LDR DX,DXD....L|
000005a0  44 52 20 44 59 2c 44 59  44 0d 03 ca 10 4c 44 52  |DR DY,DYD....LDR|
000005b0  20 42 4d 50 2c 42 4d 50  44 0d 03 d4 0e 4d 4f 56  | BMP,BMPD....MOV|
000005c0  20 53 2c 23 31 32 38 0d  03 de 0e 4d 4f 56 20 54  | S,#128....MOV T|
000005d0  2c 23 31 36 30 0d 03 e8  13 4d 4f 56 20 58 2c 44  |,#160....MOV X,D|
000005e0  58 2c 41 53 52 20 23 38  0d 03 f2 13 4d 4f 56 20  |X,ASR #8....MOV |
000005f0  59 2c 44 59 2c 41 53 52  20 23 38 0d 03 fc 0d 4d  |Y,DY,ASR #8....M|
00000600  55 4c 20 43 2c 59 2c 53  0d 04 06 16 53 55 42 20  |UL C,Y,S....SUB |
00000610  58 4d 2c 58 4d 2c 43 2c  4c 53 4c 20 23 38 0d 04  |XM,XM,C,LSL #8..|
00000620  10 0d 4d 55 4c 20 43 2c  58 2c 54 0d 04 1a 16 53  |..MUL C,X,T....S|
00000630  55 42 20 58 4d 2c 58 4d  2c 43 2c 4c 53 4c 20 23  |UB XM,XM,C,LSL #|
00000640  38 0d 04 24 0d 4d 55 4c  20 43 2c 58 2c 53 0d 04  |8..$.MUL C,X,S..|
00000650  2e 16 41 44 44 20 59 4d  2c 59 4d 2c 43 2c 4c 53  |..ADD YM,YM,C,LS|
00000660  4c 20 23 38 0d 04 38 0d  4d 55 4c 20 43 2c 59 2c  |L #8..8.MUL C,Y,|
00000670  54 0d 04 42 16 53 55 42  20 59 4d 2c 59 4d 2c 43  |T..B.SUB YM,YM,C|
00000680  2c 4c 53 4c 20 23 38 0d  04 4c 0e 4d 4f 56 20 44  |,LSL #8..L.MOV D|
00000690  2c 23 32 35 36 0d 04 56  04 0d 04 60 0a 2e 4c 4f  |,#256..V...`..LO|
000006a0  4f 50 59 0d 04 6a 0c 4d  4f 56 20 58 2c 58 4d 0d  |OPY..j.MOV X,XM.|
000006b0  04 74 0c 4d 4f 56 20 59  2c 59 4d 0d 04 7e 10 41  |.t.MOV Y,YM..~.A|
000006c0  44 44 20 58 4d 2c 58 4d  2c 44 59 0d 04 88 10 53  |DD XM,XM,DY....S|
000006d0  55 42 20 59 4d 2c 59 4d  2c 44 58 0d 04 92 1b 53  |UB YM,YM,DX....S|
000006e0  54 4d 46 44 20 31 33 21  2c 7b 58 4d 2c 59 4d 2c  |TMFD 13!,{XM,YM,|
000006f0  44 58 2c 44 59 7d 0d 04  9c 04 0d 04 a6 13 42 49  |DX,DY}........BI|
00000700  43 20 20 44 58 2c 44 58  2c 23 26 37 46 0d 04 b0  |C  DX,DX,#&7F...|
00000710  1a 84 52 20 20 44 58 2c  44 58 2c 44 59 2c 4c 53  |..R  DX,DX,DY,LS|
00000720  52 20 23 33 32 2d 37 0d  04 ba 15 4d 4f 56 20 20  |R #32-7....MOV  |
00000730  44 59 2c 44 59 2c 4c 53  4c 20 23 37 0d 04 c4 11  |DY,DY,LSL #7....|
00000740  42 49 43 20 20 58 2c 58  2c 23 26 37 46 0d 04 ce  |BIC  X,X,#&7F...|
00000750  17 84 52 20 20 58 2c 58  2c 59 2c 4c 53 52 20 23  |..R  X,X,Y,LSR #|
00000760  33 32 2d 37 0d 04 d8 13  4d 4f 56 20 20 59 2c 59  |32-7....MOV  Y,Y|
00000770  2c 4c 53 4c 20 23 37 0d  04 e2 04 0d 04 ec 0e 4d  |,LSL #7........M|
00000780  4f 56 20 43 2c 23 33 32  30 0d 04 f6 0a 2e 4c 4f  |OV C,#320.....LO|
00000790  4f 50 58 0d 05 00 04 0d  05 0a 10 a4 6d 61 70 62  |OPX.........mapb|
000007a0  79 74 65 28 57 31 29 0d  05 14 0f a4 6d 61 70 62  |yte(W1).....mapb|
000007b0  79 74 65 28 54 29 0d 05  1e 16 41 44 44 20 57 31  |yte(T)....ADD W1|
000007c0  2c 57 31 2c 54 2c 4c 53  4c 20 23 38 0d 05 28 0f  |,W1,T,LSL #8..(.|
000007d0  a4 6d 61 70 62 79 74 65  28 54 29 0d 05 32 17 41  |.mapbyte(T)..2.A|
000007e0  44 44 20 57 31 2c 57 31  2c 54 2c 4c 53 4c 20 23  |DD W1,W1,T,LSL #|
000007f0  31 36 0d 05 3c 0f a4 6d  61 70 62 79 74 65 28 54  |16..<..mapbyte(T|
00000800  29 0d 05 46 17 41 44 44  20 57 31 2c 57 31 2c 54  |)..F.ADD W1,W1,T|
00000810  2c 4c 53 4c 20 23 32 34  0d 05 50 04 0d 05 5a 10  |,LSL #24..P...Z.|
00000820  a4 6d 61 70 62 79 74 65  28 57 32 29 0d 05 64 0f  |.mapbyte(W2)..d.|
00000830  a4 6d 61 70 62 79 74 65  28 54 29 0d 05 6e 16 41  |.mapbyte(T)..n.A|
00000840  44 44 20 57 32 2c 57 32  2c 54 2c 4c 53 4c 20 23  |DD W2,W2,T,LSL #|
00000850  38 0d 05 78 0f a4 6d 61  70 62 79 74 65 28 54 29  |8..x..mapbyte(T)|
00000860  0d 05 82 17 41 44 44 20  57 32 2c 57 32 2c 54 2c  |....ADD W2,W2,T,|
00000870  4c 53 4c 20 23 31 36 0d  05 8c 0f a4 6d 61 70 62  |LSL #16.....mapb|
00000880  79 74 65 28 54 29 0d 05  96 17 41 44 44 20 57 32  |yte(T)....ADD W2|
00000890  2c 57 32 2c 54 2c 4c 53  4c 20 23 32 34 0d 05 a0  |,W2,T,LSL #24...|
000008a0  04 0d 05 aa 10 a4 6d 61  70 62 79 74 65 28 57 33  |......mapbyte(W3|
000008b0  29 0d 05 b4 0f a4 6d 61  70 62 79 74 65 28 54 29  |).....mapbyte(T)|
000008c0  0d 05 be 16 41 44 44 20  57 33 2c 57 33 2c 54 2c  |....ADD W3,W3,T,|
000008d0  4c 53 4c 20 23 38 0d 05  c8 0f a4 6d 61 70 62 79  |LSL #8.....mapby|
000008e0  74 65 28 54 29 0d 05 d2  17 41 44 44 20 57 33 2c  |te(T)....ADD W3,|
000008f0  57 33 2c 54 2c 4c 53 4c  20 23 31 36 0d 05 dc 0f  |W3,T,LSL #16....|
00000900  a4 6d 61 70 62 79 74 65  28 54 29 0d 05 e6 17 41  |.mapbyte(T)....A|
00000910  44 44 20 57 33 2c 57 33  2c 54 2c 4c 53 4c 20 23  |DD W3,W3,T,LSL #|
00000920  32 34 0d 05 f0 04 0d 05  fa 10 a4 6d 61 70 62 79  |24.........mapby|
00000930  74 65 28 57 34 29 0d 06  04 0f a4 6d 61 70 62 79  |te(W4).....mapby|
00000940  74 65 28 54 29 0d 06 0e  16 41 44 44 20 57 34 2c  |te(T)....ADD W4,|
00000950  57 34 2c 54 2c 4c 53 4c  20 23 38 0d 06 18 0f a4  |W4,T,LSL #8.....|
00000960  6d 61 70 62 79 74 65 28  54 29 0d 06 22 17 41 44  |mapbyte(T)..".AD|
00000970  44 20 57 34 2c 57 34 2c  54 2c 4c 53 4c 20 23 31  |D W4,W4,T,LSL #1|
00000980  36 0d 06 2c 0f a4 6d 61  70 62 79 74 65 28 54 29  |6..,..mapbyte(T)|
00000990  0d 06 36 17 41 44 44 20  57 34 2c 57 34 2c 54 2c  |..6.ADD W4,W4,T,|
000009a0  4c 53 4c 20 23 32 34 0d  06 40 04 0d 06 5e 1e 53  |LSL #24..@...^.S|
000009b0  54 4d 49 41 20 28 53 43  52 29 21 2c 7b 57 31 2c  |TMIA (SCR)!,{W1,|
000009c0  57 32 2c 57 33 2c 57 34  7d 0d 06 68 10 53 55 42  |W2,W3,W4}..h.SUB|
000009d0  53 20 43 2c 43 2c 23 31  36 0d 06 72 0d 42 4e 45  |S C,C,#16..r.BNE|
000009e0  20 4c 4f 4f 50 58 0d 06  7c 04 0d 06 86 1b 4c 44  | LOOPX..|.....LD|
000009f0  4d 46 44 20 31 33 21 2c  7b 58 4d 2c 59 4d 2c 44  |MFD 13!,{XM,YM,D|
00000a00  58 2c 44 59 7d 0d 06 90  0f 53 55 42 53 20 44 2c  |X,DY}....SUBS D,|
00000a10  44 2c 23 31 0d 06 9a 0d  42 4e 45 20 4c 4f 4f 50  |D,#1....BNE LOOP|
00000a20  59 0d 06 a4 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |Y....MOV PC,R14.|
00000a30  06 ae 05 5d 0d 06 b8 05  ed 0d 06 c2 05 e1 0d 06  |...]............|
00000a40  cc 04 0d 06 d6 04 0d 06  e0 13 dd 20 a4 6d 61 70  |........... .map|
00000a50  62 79 74 65 28 72 65 67  29 0d 06 ea 0d 5b 4f 50  |byte(reg)....[OP|
00000a60  54 20 50 41 53 53 0d 06  f4 16 3b 20 28 75 2c 20  |T PASS....; (u, |
00000a70  76 29 2b 3d 28 64 75 2c  20 64 76 29 0d 06 fe 1e  |v)+=(du, dv)....|
00000a80  20 20 20 20 20 20 20 20  20 20 41 44 44 53 20 20  |          ADDS  |
00000a90  20 20 20 20 59 2c 59 2c  44 59 0d 07 08 1e 20 20  |    Y,Y,DY....  |
00000aa0  20 20 20 20 20 20 20 20  41 44 43 20 20 20 20 20  |        ADC     |
00000ab0  20 20 58 2c 58 2c 44 58  0d 07 12 23 20 20 20 20  |  X,X,DX...#    |
00000ac0  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 20 20  |      MOV       |
00000ad0  54 2c 58 2c 52 4f 52 20  23 53 43 0d 07 1c 27 3b  |T,X,ROR #SC...';|
00000ae0  20 6c 6f 6f 6b 75 70 20  63 6f 6c 6f 75 72 20 61  | lookup colour a|
00000af0  74 20 28 69 6e 74 28 75  29 2c 20 69 6e 74 28 76  |t (int(u), int(v|
00000b00  29 29 0d 07 26 30 20 20  20 20 20 20 20 20 20 20  |))..&0          |
00000b10  4c 44 52 42 20 20 20 20  20 20 72 65 67 2c 5b 42  |LDRB      reg,[B|
00000b20  4d 50 2c 54 2c 4c 53 52  20 23 33 32 2d 32 2a 53  |MP,T,LSR #32-2*S|
00000b30  43 5d 0d 07 30 06 20 5d  0d 07 3a 08 20 3d 22 22  |C]..0. ]..:. =""|
00000b40  0d 07 44 04 0d ff                                 |..D...|
00000b46