Home » Archimedes archive » Acorn User » AU 1996-Xmas.adf » Regulars » StarInfo/Turnbull/Dither
StarInfo/Turnbull/Dither
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 1996-Xmas.adf » Regulars |
| Filename: | StarInfo/Turnbull/Dither |
| Read OK: | ✔ |
| File size: | 1CF5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10LIBRARY"BasicLib:MiscMacros"
20MODE28
30PROCconstants
40DIMspace%spacelen%:P%=space%
50code%=P%:P%+=codelen%
60palette%=P%:P%+=1024
70ctable%=P%:P%+=8<<3*CTS%
80cbuff%=P%:P%+=12*cblen%
90IFP%>space%+spacelen%THENERROR255,"Space isn't big enough"
100PROCassemble
110CALLnewpalette%
120CALLtestblit%
130END
140:
150:
160DEFPROCconstants
170spacelen%=&80000
180codelen%=&4000
190CTS%=4:ctsize%=1<<CTS%
200cblen%=2048
210ENDPROC
220:
230DEFPROCassemble
240FORT%=0TO2STEP2:P%=code%
250[OPT T%
260:
270.newpalette%
280STMFD R13!,{R0-R12,R14}
290MVN R0,#NOT-1
300MOV R1,#10
310SWI "OS_ReadModeVariable"
320MOV R11,R2
330ADR R1,blitj%
340LDR R2,[R1,R11,ASL#2]
350ADD R1,R1,R2
360STR R1,blitnow%
370CMP R11,#3
380LDMGTFD R13!,{R0-R12,PC}^
390SWI "Hourglass_On"
400; Find 1 colour approximations
410MVN R1,#NOT-1
420OPT FNadr(2,palette%,2)
430MOV R3,#1024
440MOV R4,#0
450MOV R5,#0
460SWI "ColourTrans_ReadPalette"
470OPT FNadr(12,ctable%,2)
480MOV R0,#1
490MOV R11,R0,ASL R11
500MOV R11,R0,ASL R11
510OPT FNadr(10,palette%,2)
520MOV R0,#0
530.bloop%
540ORR R3,R0,R0,LSR#CTS%
550.gloop%
560MOV R2,R0,LSR#8
570ORR R2,R2,R2,LSR#CTS%
580.rloop%
590MOV R1,R0,LSR#16
600ORR R1,R1,R1,LSR#CTS%
610; Find best colour
620MOV R7,#1<<30
630SUB R9,R11,#1
640.cloop%
650LDR R4,[R10,R9,ASL#2]
660SUBS R5,R3,R4,LSR#24
670RSBLT R5,R5,#0
680MUL R6,R5,R5
690MOV R4,R4,LSL#8
700SUBS R5,R2,R4,LSR#24
710RSBLT R5,R5,#0
720MLA R6,R5,R5,R6
730MOV R4,R4,LSL#8
740SUBS R5,R1,R4,LSR#24
750RSBLT R5,R5,#0
760MLA R6,R5,R5,R6
770CMP R6,R7
780MOVLT R7,R6
790MOVLT R8,R9
800SUBS R9,R9,#1
810BGE cloop%
820STR R8,[R12],#8
830ADD R0,R0,#1<<24-CTS%
840CMP R0,#1<<24
850BLT rloop%
860SUB R0,R0,#1<<24
870ADD R0,R0,#1<<16-CTS%
880CMP R0,#1<<16
890BLT gloop%
900SUB R0,R0,#1<<16
910ADD R1,R0,#1<<8-CTS%
920ADD R0,R1,R1,ASL#2
930ADD R0,R0,R0,ASL#2
940MOV R0,R0,ASR#8-2
950SWI "Hourglass_Percentage"
960MOV R0,R1
970CMP R0,#1<<8
980BLT bloop%
990; Find 8 colour approximations
1000OPT FNadr(12,ctable%,2)
1010MOV R11,R12
1020OPT FNadr(10,palette%,2)
1030MOV R0,#0
1040.bloop%
1050.gloop%
1060.rloop%
1070MOV R1,R0,LSR#16
1080ORR R1,R1,R1,LSR#CTS%
1090AND R2,R0,#&FF<<8
1100MOV R2,R2,LSR#8
1110ORR R2,R2,R2,LSR#CTS%
1120AND R3,R0,#&FF
1130ORR R3,R3,R3,LSR#CTS%
1140; 1 in 8
1150BL npgetv%
1160MOV R8,R7
1170ADD R4,R4,R4,ASL#3
1180ADD R4,R4,R4,ASL#6
1190ADD R1,R1,R4,ASR#12
1200ADD R5,R5,R5,ASL#3
1210ADD R5,R5,R5,ASL#6
1220ADD R2,R2,R5,ASR#12
1230ADD R6,R6,R6,ASL#3
1240ADD R6,R6,R6,ASL#6
1250ADD R3,R3,R6,ASR#12
1260; 1 in 7
1270BL npgetv%
1280ORR R8,R8,R7,LSL#8
1290ADD R4,R4,R4,ASL#2
1300ADD R4,R4,R4,ASL#4
1310ADD R1,R1,R4,ASR#9
1320ADD R5,R5,R5,ASL#2
1330ADD R5,R5,R5,ASL#4
1340ADD R2,R2,R5,ASR#9
1350ADD R6,R6,R6,ASL#2
1360ADD R6,R6,R6,ASL#4
1370ADD R3,R3,R6,ASR#9
1380; 1 in 6
1390BL npgetv%
1400ORR R8,R8,R7,LSL#16
1410RSB R4,R4,R4,ASL#2
1420ADD R4,R4,R4,ASL#4
1430ADD R1,R1,R4,ASR#8
1440RSB R5,R5,R5,ASL#2
1450ADD R5,R5,R5,ASL#4
1460ADD R2,R2,R5,ASR#8
1470RSB R6,R6,R6,ASL#2
1480ADD R6,R6,R6,ASL#4
1490ADD R3,R3,R6,ASR#8
1500; 1 in 5
1510BL npgetv%
1520ORR R8,R8,R7,LSL#24
1530ADD R1,R1,R4,ASR#2
1540ADD R2,R2,R5,ASR#2
1550ADD R3,R3,R6,ASR#2
1560; 1 in 4
1570BL npgetv%
1580MOV R9,R7
1590ADD R4,R4,R4,ASL#2
1600ADD R4,R4,R4,ASL#4
1610ADD R1,R1,R4,ASR#8
1620ADD R5,R5,R5,ASL#2
1630ADD R5,R5,R5,ASL#4
1640ADD R2,R2,R5,ASR#8
1650ADD R6,R6,R6,ASL#2
1660ADD R6,R6,R6,ASL#4
1670ADD R3,R3,R6,ASR#8
1680; 1 in 3
1690BL npgetv%
1700ORR R9,R9,R7,LSL#8
1710ADD R1,R1,R4,ASR#1
1720ADD R2,R2,R5,ASR#1
1730ADD R3,R3,R6,ASR#1
1740; 1 in 2
1750BL npgetv%
1760ORR R9,R9,R7,LSL#16
1770ADD R1,R1,R4
1780ADD R2,R2,R5
1790ADD R3,R3,R6
1800; 1 in 1
1810BL npgetv%
1820ORR R9,R9,R7,LSL#24
1830; Store the colours and loop
1840STMIA R12!,{R8-R9}
1850ADD R0,R0,#1<<24-CTS%
1860CMP R0,#1<<24
1870BLT rloop%
1880SUB R0,R0,#1<<24
1890ADD R0,R0,#1<<16-CTS%
1900CMP R0,#1<<16
1910BLT gloop%
1920SUB R0,R0,#1<<16
1930ADD R0,R0,#1<<8-CTS%
1940CMP R0,#1<<8
1950BLT bloop%
1960SWI "Hourglass_Off"
1970LDMFD R13!,{R0-R12,PC}^
1980:
1990; For internal use by newpalette%
2000; R1-R3 are colour (can be out of range)
2010; R11 is ctable%, R10 is palette%
2020; On exit, R4-R6 are error, R7 is colour number
2030:
2040.npgetv%
2050SUBS R4,R1,R1,ASR#CTS%
2060MOVLT R4,#0
2070SUBS R5,R2,R2,ASR#CTS%
2080MOVLT R5,#0
2090SUBS R6,R3,R3,ASR#CTS%
2100MOVLT R6,#0
2110ADD R4,R4,#1<<8-CTS%-1
2120ADD R5,R5,#1<<8-CTS%-1
2130ADD R6,R6,#1<<8-CTS%-1
2140MOV R4,R4,ASR#8-CTS%
2150MOV R5,R5,ASR#8-CTS%
2160MOV R6,R6,ASR#8-CTS%
2170CMP R4,#ctsize%-1
2180MOVGT R4,#ctsize%-1
2190CMP R5,#ctsize%-1
2200MOVGT R5,#ctsize%-1
2210CMP R6,#ctsize%-1
2220MOVGT R6,#ctsize%-1
2230ADD R7,R4,R5,ASL#CTS%
2240ADD R7,R7,R6,ASL#CTS%+CTS%
2250LDRB R7,[R11,R7,ASL#3]
2260LDR R4,[R10,R7,ASL#2]
2270SUB R6,R3,R4,LSR#24
2280MOV R4,R4,LSL#8
2290SUB R5,R2,R4,LSR#24
2300MOV R4,R4,LSL#8
2310SUB R4,R1,R4,LSR#24
2320MOVS PC,R14
2330:
2340; Blit routines are entered using LDR PC,blitnow%
2350; R0,R1 are left, right coordinates } in pixels
2360; Ensure R1>R0, and that line segment is on screen
2370; R8 is random seed (updated)
2380; R9 is right shift (for anti-aliasing)
2390; R10 is address of beginning of row }
2400; R11 is ctable%, R12 is cbuff%
2410; On exit, R0-R2 corrupted everything else preserved
2420:
2430.blitdummy%
2440MOVS PC,R14
2450:
2460.blitj%
2470OPT FNmakej(blitj%,6,blitdummy%)
2480.blitnow%
2490EQUD blitdummy%-blitj%
2500:
2510.getcol%
2520LDMIA R12!,{R4-R6}
2530MOV R4,R4,ASR R9
2540MOV R5,R5,ASR R9
2550MOV R6,R6,ASR R9
2560SUB R4,R4,R4,ASR#CTS%
2570SUB R5,R5,R5,ASR#CTS%
2580SUB R6,R6,R6,ASR#CTS%
2590ADD R8,R8,R8,ASL#1
2600ADD R4,R4,R8,LSR#24+CTS%
2610ADD R8,R8,R8,ASL#1
2620ADD R5,R5,R8,LSR#24+CTS%
2630ADD R8,R8,R8,ASL#1
2640ADD R6,R6,R8,LSR#24+CTS%
2650MOV R4,R4,ASR#8-CTS%
2660MOV R5,R5,ASR#8-CTS%
2670MOV R6,R6,ASR#8-CTS%
2680ADD R4,R4,R5,ASL#CTS%
2690ADD R4,R4,R6,ASL#CTS%+CTS%
2700ADD R4,R11,R4,ASL#3
2710ADD R8,R8,R8,ASL#3
2720LDRB R0,[R4,R8,LSR#32-3]
2730MOVS PC,R14
2740:
2750OPT FNregisterj(blitj%,2)
2760STMFD R13!,{R0-R6,R14}
2770SUB R1,R1,R0
2780ADD R3,R10,R0,ASR#1
2790LDRB R2,[R3]
2800TST R0,#1
2810BNE blit2p1%
2820.xloop%
2830BL getcol%
2840BIC R2,R2,#&F
2850ORR R2,R2,R0
2860SUBS R1,R1,#1
2870BLE endblit2%
2880.blit2p1%
2890BL getcol%
2900BIC R2,R2,#&F0
2910ORR R2,R2,R0,LSL#4
2920SUBS R1,R1,#1
2930BLE endblit2%
2940STRB R2,[R3],#1
2950LDRB R2,[R3]
2960B xloop%
2970:
2980.endblit2%
2990STRB R2,[R3]
3000LDMFD R13!,{R0-R6,PC}^
3010:
3020OPT FNregisterj(blitj%,3)
3030STMFD R13!,{R0-R6,R14}
3040SUB R1,R1,R0
3050ADD R3,R10,R0
3060.xloop%
3070BL getcol%
3080STRB R0,[R3],#1
3090SUBS R1,R1,#1
3100BGT xloop%
3110LDMFD R13!,{R0-R6,PC}^
3120:
3130OPT FNregisterj(blitj%,5)
3140STMFD R13!,{R0-R6,R14}
3150SUB R1,R1,R0
3160ADD R3,R10,R0,ASL#2
3170.xloop%
3180LDMIA R12!,{R4-R6}
3190MOV R4,R4,ASR R9
3200MOV R5,R5,ASR R9
3210MOV R6,R6,ASR R9
3220ORR R4,R4,R5,LSL#8
3230ORR R4,R4,R6,LSL#16
3240STR R4,[R3],#4
3250SUBS R1,R1,#1
3260BGT xloop%
3270LDMFD R13!,{R0-R6,PC}^
3280:
3290.vduvars%:EQUD 148:EQUD -1
3300.scraddr%:EQUD -1
3310:
3320.testblit%
3330STMFD R13!,{R0-R12,R14}
3340ADR R0,vduvars%
3350ADR R1,scraddr%
3360SWI "OS_ReadVduVariables"
3370LDR R10,scraddr%
3380MOV R8,#1
3390MOV R2,#480
3400SUB R2,R2,#1
3410.yloop%
3420OPT FNadr(12,cbuff%,2)
3430MOV R0,#0
3440.xloop%
3450MUL R4,R0,R0
3460MUL R5,R2,R2
3470ADD R4,R4,R5
3480SUB R5,R4,R5,ASL#1
3490MUL R6,R0,R2
3500MOV R4,R4,ASR#8
3510AND R4,R4,#255
3520MOV R5,R5,ASR#8
3530AND R5,R5,#255
3540MOV R6,R6,ASR#7
3550AND R6,R6,#255
3560STMIA R12!,{R4-R6}
3570ADD R0,R0,#1
3580CMP R0,#640
3590BLT xloop%
3600MOV R0,#0
3610MOV R1,#640
3620MOV R9,#0
3630OPT FNadr(11,ctable%,2)
3640OPT FNadr(12,cbuff%,2)
3650MOV R14,PC
3660LDR PC,blitnow%
3670ADD R10,R10,#640
3680SUBS R2,R2,#1
3690BGE yloop%
3700LDMFD R13!,{R0-R12,PC}^
3710:
3720]:IFP%>code%+codelen%THENERROR255,"Code isn't big enough"
3730NEXT
3740ENDPROC
ț"BasicLib:MiscMacros"
�28
�constants
( �space%spacelen%:P%=space%
2code%=P%:P%+=codelen%
<palette%=P%:P%+=1024
F ctable%=P%:P%+=8<<3*CTS%
Pcbuff%=P%:P%+=12*cblen%
Z6�P%>space%+spacelen%��255,"Space isn't big enough"
d
�assemble
n�newpalette%
x�testblit%
��
�:
�:
���constants
�spacelen%=&80000
�codelen%=&4000
�CTS%=4:ctsize%=1<<CTS%
�cblen%=2048
��
�:
���assemble
��T%=0�2�2:P%=code%
� [OPT T%
:
.newpalette%
STMFD R13!,{R0-R12,R14}
"MVN R0,#�-1
,MOV R1,#10
6 SWI "OS_ReadModeVariable"
@MOV R11,R2
JADR R1,blitj%
TLDR R2,[R1,R11,ASL#2]
^ADD R1,R1,R2
hSTR R1,blitnow%
rCMP R11,#3
| LDMGTFD R13!,{R0-R12,PC}^
�SWI "Hourglass_On"
�"; Find 1 colour approximations
�MVN R1,#�-1
�OPT �adr(2,palette%,2)
�MOV R3,#1024
�
MOV R4,#0
�
MOV R5,#0
�!SWI "ColourTrans_ReadPalette"
�OPT �adr(12,ctable%,2)
�
MOV R0,#1
�MOV R11,R0,ASL R11
�MOV R11,R0,ASL R11
�OPT �adr(10,palette%,2)
MOV R0,#0
.bloop%
�R R3,R0,R0,LSR#CTS%
& .gloop%
0MOV R2,R0,LSR#8
:�R R2,R2,R2,LSR#CTS%
D .rloop%
NMOV R1,R0,LSR#16
X�R R1,R1,R1,LSR#CTS%
b; Find best colour
lMOV R7,#1<<30
vSUB R9,R11,#1
� .cloop%
�LDR R4,[R10,R9,ASL#2]
�SUBS R5,R3,R4,LSR#24
�RSBLT R5,R5,#0
�MUL R6,R5,R5
�MOV R4,R4,LSL#8
�SUBS R5,R2,R4,LSR#24
�RSBLT R5,R5,#0
�MLA R6,R5,R5,R6
�MOV R4,R4,LSL#8
�SUBS R5,R1,R4,LSR#24
�RSBLT R5,R5,#0
�MLA R6,R5,R5,R6
CMP R6,R7
MOVLT R7,R6
MOVLT R8,R9
SUBS R9,R9,#1
*BGE cloop%
4STR R8,[R12],#8
>ADD R0,R0,#1<<24-CTS%
HCMP R0,#1<<24
RBLT rloop%
\SUB R0,R0,#1<<24
fADD R0,R0,#1<<16-CTS%
pCMP R0,#1<<16
zBLT gloop%
�SUB R0,R0,#1<<16
�ADD R1,R0,#1<<8-CTS%
�ADD R0,R1,R1,ASL#2
�ADD R0,R0,R0,ASL#2
�MOV R0,R0,ASR#8-2
� SWI "Hourglass_Percentage"
�
MOV R0,R1
�CMP R0,#1<<8
�BLT bloop%
�"; Find 8 colour approximations
�OPT �adr(12,ctable%,2)
�MOV R11,R12
�OPT �adr(10,palette%,2)
MOV R0,#0
.bloop%
.gloop%
$ .rloop%
.MOV R1,R0,LSR#16
8�R R1,R1,R1,LSR#CTS%
B� R2,R0,#&FF<<8
LMOV R2,R2,LSR#8
V�R R2,R2,R2,LSR#CTS%
`� R3,R0,#&FF
j�R R3,R3,R3,LSR#CTS%
t ; 1 in 8
~BL npgetv%
�
MOV R8,R7
�ADD R4,R4,R4,ASL#3
�ADD R4,R4,R4,ASL#6
�ADD R1,R1,R4,ASR#12
�ADD R5,R5,R5,ASL#3
�ADD R5,R5,R5,ASL#6
�ADD R2,R2,R5,ASR#12
�ADD R6,R6,R6,ASL#3
�ADD R6,R6,R6,ASL#6
�ADD R3,R3,R6,ASR#12
� ; 1 in 7
�BL npgetv%
�R R8,R8,R7,LSL#8
ADD R4,R4,R4,ASL#2
ADD R4,R4,R4,ASL#4
ADD R1,R1,R4,ASR#9
(ADD R5,R5,R5,ASL#2
2ADD R5,R5,R5,ASL#4
<ADD R2,R2,R5,ASR#9
FADD R6,R6,R6,ASL#2
PADD R6,R6,R6,ASL#4
ZADD R3,R3,R6,ASR#9
d ; 1 in 6
nBL npgetv%
x�R R8,R8,R7,LSL#16
�RSB R4,R4,R4,ASL#2
�ADD R4,R4,R4,ASL#4
�ADD R1,R1,R4,ASR#8
�RSB R5,R5,R5,ASL#2
�ADD R5,R5,R5,ASL#4
�ADD R2,R2,R5,ASR#8
�RSB R6,R6,R6,ASL#2
�ADD R6,R6,R6,ASL#4
�ADD R3,R3,R6,ASR#8
� ; 1 in 5
�BL npgetv%
��R R8,R8,R7,LSL#24
�ADD R1,R1,R4,ASR#2
ADD R2,R2,R5,ASR#2
ADD R3,R3,R6,ASR#2
; 1 in 4
"BL npgetv%
,
MOV R9,R7
6ADD R4,R4,R4,ASL#2
@ADD R4,R4,R4,ASL#4
JADD R1,R1,R4,ASR#8
TADD R5,R5,R5,ASL#2
^ADD R5,R5,R5,ASL#4
hADD R2,R2,R5,ASR#8
rADD R6,R6,R6,ASL#2
|ADD R6,R6,R6,ASL#4
�ADD R3,R3,R6,ASR#8
� ; 1 in 3
�BL npgetv%
��R R9,R9,R7,LSL#8
�ADD R1,R1,R4,ASR#1
�ADD R2,R2,R5,ASR#1
�ADD R3,R3,R6,ASR#1
� ; 1 in 2
�BL npgetv%
��R R9,R9,R7,LSL#16
�ADD R1,R1,R4
�ADD R2,R2,R5
�ADD R3,R3,R6
; 1 in 1
BL npgetv%
�R R9,R9,R7,LSL#24
& ; Store the colours and loop
0STMIA R12!,{R8-R9}
:ADD R0,R0,#1<<24-CTS%
DCMP R0,#1<<24
NBLT rloop%
XSUB R0,R0,#1<<24
bADD R0,R0,#1<<16-CTS%
lCMP R0,#1<<16
vBLT gloop%
�SUB R0,R0,#1<<16
�ADD R0,R0,#1<<8-CTS%
�CMP R0,#1<<8
�BLT bloop%
�SWI "Hourglass_Off"
�LDMFD R13!,{R0-R12,PC}^
�:
�%; For internal use by newpalette%
�,; R1-R3 are colour (can be out of range)
�%; R11 is ctable%, R10 is palette%
�3; On exit, R4-R6 are error, R7 is colour number
�:
� .npgetv%
SUBS R4,R1,R1,ASR#CTS%
MOVLT R4,#0
SUBS R5,R2,R2,ASR#CTS%
MOVLT R5,#0
*SUBS R6,R3,R3,ASR#CTS%
4MOVLT R6,#0
>ADD R4,R4,#1<<8-CTS%-1
HADD R5,R5,#1<<8-CTS%-1
RADD R6,R6,#1<<8-CTS%-1
\MOV R4,R4,ASR#8-CTS%
fMOV R5,R5,ASR#8-CTS%
pMOV R6,R6,ASR#8-CTS%
zCMP R4,#ctsize%-1
�MOVGT R4,#ctsize%-1
�CMP R5,#ctsize%-1
�MOVGT R5,#ctsize%-1
�CMP R6,#ctsize%-1
�MOVGT R6,#ctsize%-1
�ADD R7,R4,R5,ASL#CTS%
� ADD R7,R7,R6,ASL#CTS%+CTS%
�LDRB R7,[R11,R7,ASL#3]
�LDR R4,[R10,R7,ASL#2]
�SUB R6,R3,R4,LSR#24
�MOV R4,R4,LSL#8
�SUB R5,R2,R4,LSR#24
�MOV R4,R4,LSL#8
SUB R4,R1,R4,LSR#24
MOVS PC,R14
:
$5; Blit routines are entered using LDR PC,blitnow%
.4; R0,R1 are left, right coordinates } in pixels
86; Ensure R1>R0, and that line segment is on screen
B!; R8 is random seed (updated)
L+; R9 is right shift (for anti-aliasing)
V*; R10 is address of beginning of row }
`#; R11 is ctable%, R12 is cbuff%
j8; On exit, R0-R2 corrupted everything else preserved
t:
~.blitdummy%
�MOVS PC,R14
�:
� .blitj%
�#OPT �makej(blitj%,6,blitdummy%)
�
.blitnow%
�EQUD blitdummy%-blitj%
�:
� .getcol%
�LDMIA R12!,{R4-R6}
�MOV R4,R4,ASR R9
�MOV R5,R5,ASR R9
�MOV R6,R6,ASR R9
SUB R4,R4,R4,ASR#CTS%
SUB R5,R5,R5,ASR#CTS%
SUB R6,R6,R6,ASR#CTS%
ADD R8,R8,R8,ASL#1
( ADD R4,R4,R8,LSR#24+CTS%
2ADD R8,R8,R8,ASL#1
< ADD R5,R5,R8,LSR#24+CTS%
FADD R8,R8,R8,ASL#1
P ADD R6,R6,R8,LSR#24+CTS%
ZMOV R4,R4,ASR#8-CTS%
dMOV R5,R5,ASR#8-CTS%
nMOV R6,R6,ASR#8-CTS%
xADD R4,R4,R5,ASL#CTS%
� ADD R4,R4,R6,ASL#CTS%+CTS%
�ADD R4,R11,R4,ASL#3
�ADD R8,R8,R8,ASL#3
� LDRB R0,[R4,R8,LSR#32-3]
�MOVS PC,R14
�:
� OPT �registerj(blitj%,2)
�STMFD R13!,{R0-R6,R14}
�SUB R1,R1,R0
�ADD R3,R10,R0,ASR#1
�LDRB R2,[R3]
�
TST R0,#1
�BNE blit2p1%
.xloop%
BL getcol%
BIC R2,R2,#&F
"�R R2,R2,R0
,SUBS R1,R1,#1
6BLE endblit2%
@
.blit2p1%
JBL getcol%
TBIC R2,R2,#&F0
^�R R2,R2,R0,LSL#4
hSUBS R1,R1,#1
rBLE endblit2%
|STRB R2,[R3],#1
�LDRB R2,[R3]
� B xloop%
�:
�.endblit2%
�STRB R2,[R3]
�LDMFD R13!,{R0-R6,PC}^
�:
� OPT �registerj(blitj%,3)
�STMFD R13!,{R0-R6,R14}
�SUB R1,R1,R0
�ADD R3,R10,R0
� .xloop%
�BL getcol%
STRB R0,[R3],#1
SUBS R1,R1,#1
BGT xloop%
&LDMFD R13!,{R0-R6,PC}^
0:
: OPT �registerj(blitj%,5)
DSTMFD R13!,{R0-R6,R14}
NSUB R1,R1,R0
XADD R3,R10,R0,ASL#2
b .xloop%
lLDMIA R12!,{R4-R6}
vMOV R4,R4,ASR R9
�MOV R5,R5,ASR R9
�MOV R6,R6,ASR R9
��R R4,R4,R5,LSL#8
��R R4,R4,R6,LSL#16
�STR R4,[R3],#4
�SUBS R1,R1,#1
�BGT xloop%
�LDMFD R13!,{R0-R6,PC}^
�:
� .vduvars%:EQUD 148:EQUD -1
�.scraddr%:EQUD -1
�:
�.testblit%
STMFD R13!,{R0-R12,R14}
ADR R0,vduvars%
ADR R1,scraddr%
SWI "OS_ReadVduVariables"
*LDR R10,scraddr%
4
MOV R8,#1
>MOV R2,#480
HSUB R2,R2,#1
R .yloop%
\OPT �adr(12,cbuff%,2)
f
MOV R0,#0
p .xloop%
zMUL R4,R0,R0
�MUL R5,R2,R2
�ADD R4,R4,R5
�SUB R5,R4,R5,ASL#1
�MUL R6,R0,R2
�MOV R4,R4,ASR#8
�� R4,R4,#255
�MOV R5,R5,ASR#8
�� R5,R5,#255
�MOV R6,R6,ASR#7
�� R6,R6,#255
�STMIA R12!,{R4-R6}
�ADD R0,R0,#1
�CMP R0,#640
BLT xloop%
MOV R0,#0
MOV R1,#640
$
MOV R9,#0
.OPT �adr(11,ctable%,2)
8OPT �adr(12,cbuff%,2)
BMOV R14,PC
LLDR PC,blitnow%
VADD R10,R10,#640
`SUBS R2,R2,#1
jBGE yloop%
tLDMFD R13!,{R0-R12,PC}^
~:
�5]:�P%>code%+codelen%��255,"Code isn't big enough"
��
��
� 00000000 0d 00 0a 1b c8 9b 22 42 61 73 69 63 4c 69 62 3a |......"BasicLib:|
00000010 4d 69 73 63 4d 61 63 72 6f 73 22 0d 00 14 07 eb |MiscMacros".....|
00000020 32 38 0d 00 1e 0e f2 63 6f 6e 73 74 61 6e 74 73 |28.....constants|
00000030 0d 00 28 1e de 73 70 61 63 65 25 73 70 61 63 65 |..(..space%space|
00000040 6c 65 6e 25 3a 50 25 3d 73 70 61 63 65 25 0d 00 |len%:P%=space%..|
00000050 32 19 63 6f 64 65 25 3d 50 25 3a 50 25 2b 3d 63 |2.code%=P%:P%+=c|
00000060 6f 64 65 6c 65 6e 25 0d 00 3c 18 70 61 6c 65 74 |odelen%..<.palet|
00000070 74 65 25 3d 50 25 3a 50 25 2b 3d 31 30 32 34 0d |te%=P%:P%+=1024.|
00000080 00 46 1c 63 74 61 62 6c 65 25 3d 50 25 3a 50 25 |.F.ctable%=P%:P%|
00000090 2b 3d 38 3c 3c 33 2a 43 54 53 25 0d 00 50 1b 63 |+=8<<3*CTS%..P.c|
000000a0 62 75 66 66 25 3d 50 25 3a 50 25 2b 3d 31 32 2a |buff%=P%:P%+=12*|
000000b0 63 62 6c 65 6e 25 0d 00 5a 36 e7 50 25 3e 73 70 |cblen%..Z6.P%>sp|
000000c0 61 63 65 25 2b 73 70 61 63 65 6c 65 6e 25 8c 85 |ace%+spacelen%..|
000000d0 32 35 35 2c 22 53 70 61 63 65 20 69 73 6e 27 74 |255,"Space isn't|
000000e0 20 62 69 67 20 65 6e 6f 75 67 68 22 0d 00 64 0d | big enough"..d.|
000000f0 f2 61 73 73 65 6d 62 6c 65 0d 00 6e 10 d6 6e 65 |.assemble..n..ne|
00000100 77 70 61 6c 65 74 74 65 25 0d 00 78 0e d6 74 65 |wpalette%..x..te|
00000110 73 74 62 6c 69 74 25 0d 00 82 05 e0 0d 00 8c 05 |stblit%.........|
00000120 3a 0d 00 96 05 3a 0d 00 a0 0f dd f2 63 6f 6e 73 |:....:......cons|
00000130 74 61 6e 74 73 0d 00 aa 14 73 70 61 63 65 6c 65 |tants....spacele|
00000140 6e 25 3d 26 38 30 30 30 30 0d 00 b4 12 63 6f 64 |n%=&80000....cod|
00000150 65 6c 65 6e 25 3d 26 34 30 30 30 0d 00 be 1a 43 |elen%=&4000....C|
00000160 54 53 25 3d 34 3a 63 74 73 69 7a 65 25 3d 31 3c |TS%=4:ctsize%=1<|
00000170 3c 43 54 53 25 0d 00 c8 0f 63 62 6c 65 6e 25 3d |<CTS%....cblen%=|
00000180 32 30 34 38 0d 00 d2 05 e1 0d 00 dc 05 3a 0d 00 |2048.........:..|
00000190 e6 0e dd f2 61 73 73 65 6d 62 6c 65 0d 00 f0 16 |....assemble....|
000001a0 e3 54 25 3d 30 b8 32 88 32 3a 50 25 3d 63 6f 64 |.T%=0.2.2:P%=cod|
000001b0 65 25 0d 00 fa 0b 5b 4f 50 54 20 54 25 0d 01 04 |e%....[OPT T%...|
000001c0 05 3a 0d 01 0e 10 2e 6e 65 77 70 61 6c 65 74 74 |.:.....newpalett|
000001d0 65 25 0d 01 18 1b 53 54 4d 46 44 20 52 31 33 21 |e%....STMFD R13!|
000001e0 2c 7b 52 30 2d 52 31 32 2c 52 31 34 7d 0d 01 22 |,{R0-R12,R14}.."|
000001f0 0f 4d 56 4e 20 52 30 2c 23 ac 2d 31 0d 01 2c 0e |.MVN R0,#.-1..,.|
00000200 4d 4f 56 20 52 31 2c 23 31 30 0d 01 36 1d 53 57 |MOV R1,#10..6.SW|
00000210 49 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 |I "OS_ReadModeVa|
00000220 72 69 61 62 6c 65 22 0d 01 40 0e 4d 4f 56 20 52 |riable"..@.MOV R|
00000230 31 31 2c 52 32 0d 01 4a 11 41 44 52 20 52 31 2c |11,R2..J.ADR R1,|
00000240 62 6c 69 74 6a 25 0d 01 54 19 4c 44 52 20 52 32 |blitj%..T.LDR R2|
00000250 2c 5b 52 31 2c 52 31 31 2c 41 53 4c 23 32 5d 0d |,[R1,R11,ASL#2].|
00000260 01 5e 10 41 44 44 20 52 31 2c 52 31 2c 52 32 0d |.^.ADD R1,R1,R2.|
00000270 01 68 13 53 54 52 20 52 31 2c 62 6c 69 74 6e 6f |.h.STR R1,blitno|
00000280 77 25 0d 01 72 0e 43 4d 50 20 52 31 31 2c 23 33 |w%..r.CMP R11,#3|
00000290 0d 01 7c 1d 4c 44 4d 47 54 46 44 20 52 31 33 21 |..|.LDMGTFD R13!|
000002a0 2c 7b 52 30 2d 52 31 32 2c 50 43 7d 5e 0d 01 86 |,{R0-R12,PC}^...|
000002b0 16 53 57 49 20 22 48 6f 75 72 67 6c 61 73 73 5f |.SWI "Hourglass_|
000002c0 4f 6e 22 0d 01 90 22 3b 20 46 69 6e 64 20 31 20 |On"..."; Find 1 |
000002d0 63 6f 6c 6f 75 72 20 61 70 70 72 6f 78 69 6d 61 |colour approxima|
000002e0 74 69 6f 6e 73 0d 01 9a 0f 4d 56 4e 20 52 31 2c |tions....MVN R1,|
000002f0 23 ac 2d 31 0d 01 a4 1a 4f 50 54 20 a4 61 64 72 |#.-1....OPT .adr|
00000300 28 32 2c 70 61 6c 65 74 74 65 25 2c 32 29 0d 01 |(2,palette%,2)..|
00000310 ae 10 4d 4f 56 20 52 33 2c 23 31 30 32 34 0d 01 |..MOV R3,#1024..|
00000320 b8 0d 4d 4f 56 20 52 34 2c 23 30 0d 01 c2 0d 4d |..MOV R4,#0....M|
00000330 4f 56 20 52 35 2c 23 30 0d 01 cc 21 53 57 49 20 |OV R5,#0...!SWI |
00000340 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 52 65 61 |"ColourTrans_Rea|
00000350 64 50 61 6c 65 74 74 65 22 0d 01 d6 1a 4f 50 54 |dPalette"....OPT|
00000360 20 a4 61 64 72 28 31 32 2c 63 74 61 62 6c 65 25 | .adr(12,ctable%|
00000370 2c 32 29 0d 01 e0 0d 4d 4f 56 20 52 30 2c 23 31 |,2)....MOV R0,#1|
00000380 0d 01 ea 16 4d 4f 56 20 52 31 31 2c 52 30 2c 41 |....MOV R11,R0,A|
00000390 53 4c 20 52 31 31 0d 01 f4 16 4d 4f 56 20 52 31 |SL R11....MOV R1|
000003a0 31 2c 52 30 2c 41 53 4c 20 52 31 31 0d 01 fe 1b |1,R0,ASL R11....|
000003b0 4f 50 54 20 a4 61 64 72 28 31 30 2c 70 61 6c 65 |OPT .adr(10,pale|
000003c0 74 74 65 25 2c 32 29 0d 02 08 0d 4d 4f 56 20 52 |tte%,2)....MOV R|
000003d0 30 2c 23 30 0d 02 12 0b 2e 62 6c 6f 6f 70 25 0d |0,#0.....bloop%.|
000003e0 02 1c 18 84 52 20 52 33 2c 52 30 2c 52 30 2c 4c |....R R3,R0,R0,L|
000003f0 53 52 23 43 54 53 25 0d 02 26 0b 2e 67 6c 6f 6f |SR#CTS%..&..gloo|
00000400 70 25 0d 02 30 13 4d 4f 56 20 52 32 2c 52 30 2c |p%..0.MOV R2,R0,|
00000410 4c 53 52 23 38 0d 02 3a 18 84 52 20 52 32 2c 52 |LSR#8..:..R R2,R|
00000420 32 2c 52 32 2c 4c 53 52 23 43 54 53 25 0d 02 44 |2,R2,LSR#CTS%..D|
00000430 0b 2e 72 6c 6f 6f 70 25 0d 02 4e 14 4d 4f 56 20 |..rloop%..N.MOV |
00000440 52 31 2c 52 30 2c 4c 53 52 23 31 36 0d 02 58 18 |R1,R0,LSR#16..X.|
00000450 84 52 20 52 31 2c 52 31 2c 52 31 2c 4c 53 52 23 |.R R1,R1,R1,LSR#|
00000460 43 54 53 25 0d 02 62 16 3b 20 46 69 6e 64 20 62 |CTS%..b.; Find b|
00000470 65 73 74 20 63 6f 6c 6f 75 72 0d 02 6c 11 4d 4f |est colour..l.MO|
00000480 56 20 52 37 2c 23 31 3c 3c 33 30 0d 02 76 11 53 |V R7,#1<<30..v.S|
00000490 55 42 20 52 39 2c 52 31 31 2c 23 31 0d 02 80 0b |UB R9,R11,#1....|
000004a0 2e 63 6c 6f 6f 70 25 0d 02 8a 19 4c 44 52 20 52 |.cloop%....LDR R|
000004b0 34 2c 5b 52 31 30 2c 52 39 2c 41 53 4c 23 32 5d |4,[R10,R9,ASL#2]|
000004c0 0d 02 94 18 53 55 42 53 20 52 35 2c 52 33 2c 52 |....SUBS R5,R3,R|
000004d0 34 2c 4c 53 52 23 32 34 0d 02 9e 12 52 53 42 4c |4,LSR#24....RSBL|
000004e0 54 20 52 35 2c 52 35 2c 23 30 0d 02 a8 10 4d 55 |T R5,R5,#0....MU|
000004f0 4c 20 52 36 2c 52 35 2c 52 35 0d 02 b2 13 4d 4f |L R6,R5,R5....MO|
00000500 56 20 52 34 2c 52 34 2c 4c 53 4c 23 38 0d 02 bc |V R4,R4,LSL#8...|
00000510 18 53 55 42 53 20 52 35 2c 52 32 2c 52 34 2c 4c |.SUBS R5,R2,R4,L|
00000520 53 52 23 32 34 0d 02 c6 12 52 53 42 4c 54 20 52 |SR#24....RSBLT R|
00000530 35 2c 52 35 2c 23 30 0d 02 d0 13 4d 4c 41 20 52 |5,R5,#0....MLA R|
00000540 36 2c 52 35 2c 52 35 2c 52 36 0d 02 da 13 4d 4f |6,R5,R5,R6....MO|
00000550 56 20 52 34 2c 52 34 2c 4c 53 4c 23 38 0d 02 e4 |V R4,R4,LSL#8...|
00000560 18 53 55 42 53 20 52 35 2c 52 31 2c 52 34 2c 4c |.SUBS R5,R1,R4,L|
00000570 53 52 23 32 34 0d 02 ee 12 52 53 42 4c 54 20 52 |SR#24....RSBLT R|
00000580 35 2c 52 35 2c 23 30 0d 02 f8 13 4d 4c 41 20 52 |5,R5,#0....MLA R|
00000590 36 2c 52 35 2c 52 35 2c 52 36 0d 03 02 0d 43 4d |6,R5,R5,R6....CM|
000005a0 50 20 52 36 2c 52 37 0d 03 0c 0f 4d 4f 56 4c 54 |P R6,R7....MOVLT|
000005b0 20 52 37 2c 52 36 0d 03 16 0f 4d 4f 56 4c 54 20 | R7,R6....MOVLT |
000005c0 52 38 2c 52 39 0d 03 20 11 53 55 42 53 20 52 39 |R8,R9.. .SUBS R9|
000005d0 2c 52 39 2c 23 31 0d 03 2a 0e 42 47 45 20 63 6c |,R9,#1..*.BGE cl|
000005e0 6f 6f 70 25 0d 03 34 13 53 54 52 20 52 38 2c 5b |oop%..4.STR R8,[|
000005f0 52 31 32 5d 2c 23 38 0d 03 3e 19 41 44 44 20 52 |R12],#8..>.ADD R|
00000600 30 2c 52 30 2c 23 31 3c 3c 32 34 2d 43 54 53 25 |0,R0,#1<<24-CTS%|
00000610 0d 03 48 11 43 4d 50 20 52 30 2c 23 31 3c 3c 32 |..H.CMP R0,#1<<2|
00000620 34 0d 03 52 0e 42 4c 54 20 72 6c 6f 6f 70 25 0d |4..R.BLT rloop%.|
00000630 03 5c 14 53 55 42 20 52 30 2c 52 30 2c 23 31 3c |.\.SUB R0,R0,#1<|
00000640 3c 32 34 0d 03 66 19 41 44 44 20 52 30 2c 52 30 |<24..f.ADD R0,R0|
00000650 2c 23 31 3c 3c 31 36 2d 43 54 53 25 0d 03 70 11 |,#1<<16-CTS%..p.|
00000660 43 4d 50 20 52 30 2c 23 31 3c 3c 31 36 0d 03 7a |CMP R0,#1<<16..z|
00000670 0e 42 4c 54 20 67 6c 6f 6f 70 25 0d 03 84 14 53 |.BLT gloop%....S|
00000680 55 42 20 52 30 2c 52 30 2c 23 31 3c 3c 31 36 0d |UB R0,R0,#1<<16.|
00000690 03 8e 18 41 44 44 20 52 31 2c 52 30 2c 23 31 3c |...ADD R1,R0,#1<|
000006a0 3c 38 2d 43 54 53 25 0d 03 98 16 41 44 44 20 52 |<8-CTS%....ADD R|
000006b0 30 2c 52 31 2c 52 31 2c 41 53 4c 23 32 0d 03 a2 |0,R1,R1,ASL#2...|
000006c0 16 41 44 44 20 52 30 2c 52 30 2c 52 30 2c 41 53 |.ADD R0,R0,R0,AS|
000006d0 4c 23 32 0d 03 ac 15 4d 4f 56 20 52 30 2c 52 30 |L#2....MOV R0,R0|
000006e0 2c 41 53 52 23 38 2d 32 0d 03 b6 1e 53 57 49 20 |,ASR#8-2....SWI |
000006f0 22 48 6f 75 72 67 6c 61 73 73 5f 50 65 72 63 65 |"Hourglass_Perce|
00000700 6e 74 61 67 65 22 0d 03 c0 0d 4d 4f 56 20 52 30 |ntage"....MOV R0|
00000710 2c 52 31 0d 03 ca 10 43 4d 50 20 52 30 2c 23 31 |,R1....CMP R0,#1|
00000720 3c 3c 38 0d 03 d4 0e 42 4c 54 20 62 6c 6f 6f 70 |<<8....BLT bloop|
00000730 25 0d 03 de 22 3b 20 46 69 6e 64 20 38 20 63 6f |%..."; Find 8 co|
00000740 6c 6f 75 72 20 61 70 70 72 6f 78 69 6d 61 74 69 |lour approximati|
00000750 6f 6e 73 0d 03 e8 1a 4f 50 54 20 a4 61 64 72 28 |ons....OPT .adr(|
00000760 31 32 2c 63 74 61 62 6c 65 25 2c 32 29 0d 03 f2 |12,ctable%,2)...|
00000770 0f 4d 4f 56 20 52 31 31 2c 52 31 32 0d 03 fc 1b |.MOV R11,R12....|
00000780 4f 50 54 20 a4 61 64 72 28 31 30 2c 70 61 6c 65 |OPT .adr(10,pale|
00000790 74 74 65 25 2c 32 29 0d 04 06 0d 4d 4f 56 20 52 |tte%,2)....MOV R|
000007a0 30 2c 23 30 0d 04 10 0b 2e 62 6c 6f 6f 70 25 0d |0,#0.....bloop%.|
000007b0 04 1a 0b 2e 67 6c 6f 6f 70 25 0d 04 24 0b 2e 72 |....gloop%..$..r|
000007c0 6c 6f 6f 70 25 0d 04 2e 14 4d 4f 56 20 52 31 2c |loop%....MOV R1,|
000007d0 52 30 2c 4c 53 52 23 31 36 0d 04 38 18 84 52 20 |R0,LSR#16..8..R |
000007e0 52 31 2c 52 31 2c 52 31 2c 4c 53 52 23 43 54 53 |R1,R1,R1,LSR#CTS|
000007f0 25 0d 04 42 13 80 20 52 32 2c 52 30 2c 23 26 46 |%..B.. R2,R0,#&F|
00000800 46 3c 3c 38 0d 04 4c 13 4d 4f 56 20 52 32 2c 52 |F<<8..L.MOV R2,R|
00000810 32 2c 4c 53 52 23 38 0d 04 56 18 84 52 20 52 32 |2,LSR#8..V..R R2|
00000820 2c 52 32 2c 52 32 2c 4c 53 52 23 43 54 53 25 0d |,R2,R2,LSR#CTS%.|
00000830 04 60 10 80 20 52 33 2c 52 30 2c 23 26 46 46 0d |.`.. R3,R0,#&FF.|
00000840 04 6a 18 84 52 20 52 33 2c 52 33 2c 52 33 2c 4c |.j..R R3,R3,R3,L|
00000850 53 52 23 43 54 53 25 0d 04 74 0c 3b 20 31 20 69 |SR#CTS%..t.; 1 i|
00000860 6e 20 38 0d 04 7e 0e 42 4c 20 6e 70 67 65 74 76 |n 8..~.BL npgetv|
00000870 25 0d 04 88 0d 4d 4f 56 20 52 38 2c 52 37 0d 04 |%....MOV R8,R7..|
00000880 92 16 41 44 44 20 52 34 2c 52 34 2c 52 34 2c 41 |..ADD R4,R4,R4,A|
00000890 53 4c 23 33 0d 04 9c 16 41 44 44 20 52 34 2c 52 |SL#3....ADD R4,R|
000008a0 34 2c 52 34 2c 41 53 4c 23 36 0d 04 a6 17 41 44 |4,R4,ASL#6....AD|
000008b0 44 20 52 31 2c 52 31 2c 52 34 2c 41 53 52 23 31 |D R1,R1,R4,ASR#1|
000008c0 32 0d 04 b0 16 41 44 44 20 52 35 2c 52 35 2c 52 |2....ADD R5,R5,R|
000008d0 35 2c 41 53 4c 23 33 0d 04 ba 16 41 44 44 20 52 |5,ASL#3....ADD R|
000008e0 35 2c 52 35 2c 52 35 2c 41 53 4c 23 36 0d 04 c4 |5,R5,R5,ASL#6...|
000008f0 17 41 44 44 20 52 32 2c 52 32 2c 52 35 2c 41 53 |.ADD R2,R2,R5,AS|
00000900 52 23 31 32 0d 04 ce 16 41 44 44 20 52 36 2c 52 |R#12....ADD R6,R|
00000910 36 2c 52 36 2c 41 53 4c 23 33 0d 04 d8 16 41 44 |6,R6,ASL#3....AD|
00000920 44 20 52 36 2c 52 36 2c 52 36 2c 41 53 4c 23 36 |D R6,R6,R6,ASL#6|
00000930 0d 04 e2 17 41 44 44 20 52 33 2c 52 33 2c 52 36 |....ADD R3,R3,R6|
00000940 2c 41 53 52 23 31 32 0d 04 ec 0c 3b 20 31 20 69 |,ASR#12....; 1 i|
00000950 6e 20 37 0d 04 f6 0e 42 4c 20 6e 70 67 65 74 76 |n 7....BL npgetv|
00000960 25 0d 05 00 15 84 52 20 52 38 2c 52 38 2c 52 37 |%.....R R8,R8,R7|
00000970 2c 4c 53 4c 23 38 0d 05 0a 16 41 44 44 20 52 34 |,LSL#8....ADD R4|
00000980 2c 52 34 2c 52 34 2c 41 53 4c 23 32 0d 05 14 16 |,R4,R4,ASL#2....|
00000990 41 44 44 20 52 34 2c 52 34 2c 52 34 2c 41 53 4c |ADD R4,R4,R4,ASL|
000009a0 23 34 0d 05 1e 16 41 44 44 20 52 31 2c 52 31 2c |#4....ADD R1,R1,|
000009b0 52 34 2c 41 53 52 23 39 0d 05 28 16 41 44 44 20 |R4,ASR#9..(.ADD |
000009c0 52 35 2c 52 35 2c 52 35 2c 41 53 4c 23 32 0d 05 |R5,R5,R5,ASL#2..|
000009d0 32 16 41 44 44 20 52 35 2c 52 35 2c 52 35 2c 41 |2.ADD R5,R5,R5,A|
000009e0 53 4c 23 34 0d 05 3c 16 41 44 44 20 52 32 2c 52 |SL#4..<.ADD R2,R|
000009f0 32 2c 52 35 2c 41 53 52 23 39 0d 05 46 16 41 44 |2,R5,ASR#9..F.AD|
00000a00 44 20 52 36 2c 52 36 2c 52 36 2c 41 53 4c 23 32 |D R6,R6,R6,ASL#2|
00000a10 0d 05 50 16 41 44 44 20 52 36 2c 52 36 2c 52 36 |..P.ADD R6,R6,R6|
00000a20 2c 41 53 4c 23 34 0d 05 5a 16 41 44 44 20 52 33 |,ASL#4..Z.ADD R3|
00000a30 2c 52 33 2c 52 36 2c 41 53 52 23 39 0d 05 64 0c |,R3,R6,ASR#9..d.|
00000a40 3b 20 31 20 69 6e 20 36 0d 05 6e 0e 42 4c 20 6e |; 1 in 6..n.BL n|
00000a50 70 67 65 74 76 25 0d 05 78 16 84 52 20 52 38 2c |pgetv%..x..R R8,|
00000a60 52 38 2c 52 37 2c 4c 53 4c 23 31 36 0d 05 82 16 |R8,R7,LSL#16....|
00000a70 52 53 42 20 52 34 2c 52 34 2c 52 34 2c 41 53 4c |RSB R4,R4,R4,ASL|
00000a80 23 32 0d 05 8c 16 41 44 44 20 52 34 2c 52 34 2c |#2....ADD R4,R4,|
00000a90 52 34 2c 41 53 4c 23 34 0d 05 96 16 41 44 44 20 |R4,ASL#4....ADD |
00000aa0 52 31 2c 52 31 2c 52 34 2c 41 53 52 23 38 0d 05 |R1,R1,R4,ASR#8..|
00000ab0 a0 16 52 53 42 20 52 35 2c 52 35 2c 52 35 2c 41 |..RSB R5,R5,R5,A|
00000ac0 53 4c 23 32 0d 05 aa 16 41 44 44 20 52 35 2c 52 |SL#2....ADD R5,R|
00000ad0 35 2c 52 35 2c 41 53 4c 23 34 0d 05 b4 16 41 44 |5,R5,ASL#4....AD|
00000ae0 44 20 52 32 2c 52 32 2c 52 35 2c 41 53 52 23 38 |D R2,R2,R5,ASR#8|
00000af0 0d 05 be 16 52 53 42 20 52 36 2c 52 36 2c 52 36 |....RSB R6,R6,R6|
00000b00 2c 41 53 4c 23 32 0d 05 c8 16 41 44 44 20 52 36 |,ASL#2....ADD R6|
00000b10 2c 52 36 2c 52 36 2c 41 53 4c 23 34 0d 05 d2 16 |,R6,R6,ASL#4....|
00000b20 41 44 44 20 52 33 2c 52 33 2c 52 36 2c 41 53 52 |ADD R3,R3,R6,ASR|
00000b30 23 38 0d 05 dc 0c 3b 20 31 20 69 6e 20 35 0d 05 |#8....; 1 in 5..|
00000b40 e6 0e 42 4c 20 6e 70 67 65 74 76 25 0d 05 f0 16 |..BL npgetv%....|
00000b50 84 52 20 52 38 2c 52 38 2c 52 37 2c 4c 53 4c 23 |.R R8,R8,R7,LSL#|
00000b60 32 34 0d 05 fa 16 41 44 44 20 52 31 2c 52 31 2c |24....ADD R1,R1,|
00000b70 52 34 2c 41 53 52 23 32 0d 06 04 16 41 44 44 20 |R4,ASR#2....ADD |
00000b80 52 32 2c 52 32 2c 52 35 2c 41 53 52 23 32 0d 06 |R2,R2,R5,ASR#2..|
00000b90 0e 16 41 44 44 20 52 33 2c 52 33 2c 52 36 2c 41 |..ADD R3,R3,R6,A|
00000ba0 53 52 23 32 0d 06 18 0c 3b 20 31 20 69 6e 20 34 |SR#2....; 1 in 4|
00000bb0 0d 06 22 0e 42 4c 20 6e 70 67 65 74 76 25 0d 06 |..".BL npgetv%..|
00000bc0 2c 0d 4d 4f 56 20 52 39 2c 52 37 0d 06 36 16 41 |,.MOV R9,R7..6.A|
00000bd0 44 44 20 52 34 2c 52 34 2c 52 34 2c 41 53 4c 23 |DD R4,R4,R4,ASL#|
00000be0 32 0d 06 40 16 41 44 44 20 52 34 2c 52 34 2c 52 |2..@.ADD R4,R4,R|
00000bf0 34 2c 41 53 4c 23 34 0d 06 4a 16 41 44 44 20 52 |4,ASL#4..J.ADD R|
00000c00 31 2c 52 31 2c 52 34 2c 41 53 52 23 38 0d 06 54 |1,R1,R4,ASR#8..T|
00000c10 16 41 44 44 20 52 35 2c 52 35 2c 52 35 2c 41 53 |.ADD R5,R5,R5,AS|
00000c20 4c 23 32 0d 06 5e 16 41 44 44 20 52 35 2c 52 35 |L#2..^.ADD R5,R5|
00000c30 2c 52 35 2c 41 53 4c 23 34 0d 06 68 16 41 44 44 |,R5,ASL#4..h.ADD|
00000c40 20 52 32 2c 52 32 2c 52 35 2c 41 53 52 23 38 0d | R2,R2,R5,ASR#8.|
00000c50 06 72 16 41 44 44 20 52 36 2c 52 36 2c 52 36 2c |.r.ADD R6,R6,R6,|
00000c60 41 53 4c 23 32 0d 06 7c 16 41 44 44 20 52 36 2c |ASL#2..|.ADD R6,|
00000c70 52 36 2c 52 36 2c 41 53 4c 23 34 0d 06 86 16 41 |R6,R6,ASL#4....A|
00000c80 44 44 20 52 33 2c 52 33 2c 52 36 2c 41 53 52 23 |DD R3,R3,R6,ASR#|
00000c90 38 0d 06 90 0c 3b 20 31 20 69 6e 20 33 0d 06 9a |8....; 1 in 3...|
00000ca0 0e 42 4c 20 6e 70 67 65 74 76 25 0d 06 a4 15 84 |.BL npgetv%.....|
00000cb0 52 20 52 39 2c 52 39 2c 52 37 2c 4c 53 4c 23 38 |R R9,R9,R7,LSL#8|
00000cc0 0d 06 ae 16 41 44 44 20 52 31 2c 52 31 2c 52 34 |....ADD R1,R1,R4|
00000cd0 2c 41 53 52 23 31 0d 06 b8 16 41 44 44 20 52 32 |,ASR#1....ADD R2|
00000ce0 2c 52 32 2c 52 35 2c 41 53 52 23 31 0d 06 c2 16 |,R2,R5,ASR#1....|
00000cf0 41 44 44 20 52 33 2c 52 33 2c 52 36 2c 41 53 52 |ADD R3,R3,R6,ASR|
00000d00 23 31 0d 06 cc 0c 3b 20 31 20 69 6e 20 32 0d 06 |#1....; 1 in 2..|
00000d10 d6 0e 42 4c 20 6e 70 67 65 74 76 25 0d 06 e0 16 |..BL npgetv%....|
00000d20 84 52 20 52 39 2c 52 39 2c 52 37 2c 4c 53 4c 23 |.R R9,R9,R7,LSL#|
00000d30 31 36 0d 06 ea 10 41 44 44 20 52 31 2c 52 31 2c |16....ADD R1,R1,|
00000d40 52 34 0d 06 f4 10 41 44 44 20 52 32 2c 52 32 2c |R4....ADD R2,R2,|
00000d50 52 35 0d 06 fe 10 41 44 44 20 52 33 2c 52 33 2c |R5....ADD R3,R3,|
00000d60 52 36 0d 07 08 0c 3b 20 31 20 69 6e 20 31 0d 07 |R6....; 1 in 1..|
00000d70 12 0e 42 4c 20 6e 70 67 65 74 76 25 0d 07 1c 16 |..BL npgetv%....|
00000d80 84 52 20 52 39 2c 52 39 2c 52 37 2c 4c 53 4c 23 |.R R9,R9,R7,LSL#|
00000d90 32 34 0d 07 26 20 3b 20 53 74 6f 72 65 20 74 68 |24..& ; Store th|
00000da0 65 20 63 6f 6c 6f 75 72 73 20 61 6e 64 20 6c 6f |e colours and lo|
00000db0 6f 70 0d 07 30 16 53 54 4d 49 41 20 52 31 32 21 |op..0.STMIA R12!|
00000dc0 2c 7b 52 38 2d 52 39 7d 0d 07 3a 19 41 44 44 20 |,{R8-R9}..:.ADD |
00000dd0 52 30 2c 52 30 2c 23 31 3c 3c 32 34 2d 43 54 53 |R0,R0,#1<<24-CTS|
00000de0 25 0d 07 44 11 43 4d 50 20 52 30 2c 23 31 3c 3c |%..D.CMP R0,#1<<|
00000df0 32 34 0d 07 4e 0e 42 4c 54 20 72 6c 6f 6f 70 25 |24..N.BLT rloop%|
00000e00 0d 07 58 14 53 55 42 20 52 30 2c 52 30 2c 23 31 |..X.SUB R0,R0,#1|
00000e10 3c 3c 32 34 0d 07 62 19 41 44 44 20 52 30 2c 52 |<<24..b.ADD R0,R|
00000e20 30 2c 23 31 3c 3c 31 36 2d 43 54 53 25 0d 07 6c |0,#1<<16-CTS%..l|
00000e30 11 43 4d 50 20 52 30 2c 23 31 3c 3c 31 36 0d 07 |.CMP R0,#1<<16..|
00000e40 76 0e 42 4c 54 20 67 6c 6f 6f 70 25 0d 07 80 14 |v.BLT gloop%....|
00000e50 53 55 42 20 52 30 2c 52 30 2c 23 31 3c 3c 31 36 |SUB R0,R0,#1<<16|
00000e60 0d 07 8a 18 41 44 44 20 52 30 2c 52 30 2c 23 31 |....ADD R0,R0,#1|
00000e70 3c 3c 38 2d 43 54 53 25 0d 07 94 10 43 4d 50 20 |<<8-CTS%....CMP |
00000e80 52 30 2c 23 31 3c 3c 38 0d 07 9e 0e 42 4c 54 20 |R0,#1<<8....BLT |
00000e90 62 6c 6f 6f 70 25 0d 07 a8 17 53 57 49 20 22 48 |bloop%....SWI "H|
00000ea0 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 07 b2 |ourglass_Off"...|
00000eb0 1b 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d |.LDMFD R13!,{R0-|
00000ec0 52 31 32 2c 50 43 7d 5e 0d 07 bc 05 3a 0d 07 c6 |R12,PC}^....:...|
00000ed0 25 3b 20 46 6f 72 20 69 6e 74 65 72 6e 61 6c 20 |%; For internal |
00000ee0 75 73 65 20 62 79 20 6e 65 77 70 61 6c 65 74 74 |use by newpalett|
00000ef0 65 25 0d 07 d0 2c 3b 20 52 31 2d 52 33 20 61 72 |e%...,; R1-R3 ar|
00000f00 65 20 63 6f 6c 6f 75 72 20 28 63 61 6e 20 62 65 |e colour (can be|
00000f10 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 29 0d 07 | out of range)..|
00000f20 da 25 3b 20 52 31 31 20 69 73 20 63 74 61 62 6c |.%; R11 is ctabl|
00000f30 65 25 2c 20 52 31 30 20 69 73 20 70 61 6c 65 74 |e%, R10 is palet|
00000f40 74 65 25 0d 07 e4 33 3b 20 4f 6e 20 65 78 69 74 |te%...3; On exit|
00000f50 2c 20 52 34 2d 52 36 20 61 72 65 20 65 72 72 6f |, R4-R6 are erro|
00000f60 72 2c 20 52 37 20 69 73 20 63 6f 6c 6f 75 72 20 |r, R7 is colour |
00000f70 6e 75 6d 62 65 72 0d 07 ee 05 3a 0d 07 f8 0c 2e |number....:.....|
00000f80 6e 70 67 65 74 76 25 0d 08 02 1a 53 55 42 53 20 |npgetv%....SUBS |
00000f90 52 34 2c 52 31 2c 52 31 2c 41 53 52 23 43 54 53 |R4,R1,R1,ASR#CTS|
00000fa0 25 0d 08 0c 0f 4d 4f 56 4c 54 20 52 34 2c 23 30 |%....MOVLT R4,#0|
00000fb0 0d 08 16 1a 53 55 42 53 20 52 35 2c 52 32 2c 52 |....SUBS R5,R2,R|
00000fc0 32 2c 41 53 52 23 43 54 53 25 0d 08 20 0f 4d 4f |2,ASR#CTS%.. .MO|
00000fd0 56 4c 54 20 52 35 2c 23 30 0d 08 2a 1a 53 55 42 |VLT R5,#0..*.SUB|
00000fe0 53 20 52 36 2c 52 33 2c 52 33 2c 41 53 52 23 43 |S R6,R3,R3,ASR#C|
00000ff0 54 53 25 0d 08 34 0f 4d 4f 56 4c 54 20 52 36 2c |TS%..4.MOVLT R6,|
00001000 23 30 0d 08 3e 1a 41 44 44 20 52 34 2c 52 34 2c |#0..>.ADD R4,R4,|
00001010 23 31 3c 3c 38 2d 43 54 53 25 2d 31 0d 08 48 1a |#1<<8-CTS%-1..H.|
00001020 41 44 44 20 52 35 2c 52 35 2c 23 31 3c 3c 38 2d |ADD R5,R5,#1<<8-|
00001030 43 54 53 25 2d 31 0d 08 52 1a 41 44 44 20 52 36 |CTS%-1..R.ADD R6|
00001040 2c 52 36 2c 23 31 3c 3c 38 2d 43 54 53 25 2d 31 |,R6,#1<<8-CTS%-1|
00001050 0d 08 5c 18 4d 4f 56 20 52 34 2c 52 34 2c 41 53 |..\.MOV R4,R4,AS|
00001060 52 23 38 2d 43 54 53 25 0d 08 66 18 4d 4f 56 20 |R#8-CTS%..f.MOV |
00001070 52 35 2c 52 35 2c 41 53 52 23 38 2d 43 54 53 25 |R5,R5,ASR#8-CTS%|
00001080 0d 08 70 18 4d 4f 56 20 52 36 2c 52 36 2c 41 53 |..p.MOV R6,R6,AS|
00001090 52 23 38 2d 43 54 53 25 0d 08 7a 15 43 4d 50 20 |R#8-CTS%..z.CMP |
000010a0 52 34 2c 23 63 74 73 69 7a 65 25 2d 31 0d 08 84 |R4,#ctsize%-1...|
000010b0 17 4d 4f 56 47 54 20 52 34 2c 23 63 74 73 69 7a |.MOVGT R4,#ctsiz|
000010c0 65 25 2d 31 0d 08 8e 15 43 4d 50 20 52 35 2c 23 |e%-1....CMP R5,#|
000010d0 63 74 73 69 7a 65 25 2d 31 0d 08 98 17 4d 4f 56 |ctsize%-1....MOV|
000010e0 47 54 20 52 35 2c 23 63 74 73 69 7a 65 25 2d 31 |GT R5,#ctsize%-1|
000010f0 0d 08 a2 15 43 4d 50 20 52 36 2c 23 63 74 73 69 |....CMP R6,#ctsi|
00001100 7a 65 25 2d 31 0d 08 ac 17 4d 4f 56 47 54 20 52 |ze%-1....MOVGT R|
00001110 36 2c 23 63 74 73 69 7a 65 25 2d 31 0d 08 b6 19 |6,#ctsize%-1....|
00001120 41 44 44 20 52 37 2c 52 34 2c 52 35 2c 41 53 4c |ADD R7,R4,R5,ASL|
00001130 23 43 54 53 25 0d 08 c0 1e 41 44 44 20 52 37 2c |#CTS%....ADD R7,|
00001140 52 37 2c 52 36 2c 41 53 4c 23 43 54 53 25 2b 43 |R7,R6,ASL#CTS%+C|
00001150 54 53 25 0d 08 ca 1a 4c 44 52 42 20 52 37 2c 5b |TS%....LDRB R7,[|
00001160 52 31 31 2c 52 37 2c 41 53 4c 23 33 5d 0d 08 d4 |R11,R7,ASL#3]...|
00001170 19 4c 44 52 20 52 34 2c 5b 52 31 30 2c 52 37 2c |.LDR R4,[R10,R7,|
00001180 41 53 4c 23 32 5d 0d 08 de 17 53 55 42 20 52 36 |ASL#2]....SUB R6|
00001190 2c 52 33 2c 52 34 2c 4c 53 52 23 32 34 0d 08 e8 |,R3,R4,LSR#24...|
000011a0 13 4d 4f 56 20 52 34 2c 52 34 2c 4c 53 4c 23 38 |.MOV R4,R4,LSL#8|
000011b0 0d 08 f2 17 53 55 42 20 52 35 2c 52 32 2c 52 34 |....SUB R5,R2,R4|
000011c0 2c 4c 53 52 23 32 34 0d 08 fc 13 4d 4f 56 20 52 |,LSR#24....MOV R|
000011d0 34 2c 52 34 2c 4c 53 4c 23 38 0d 09 06 17 53 55 |4,R4,LSL#8....SU|
000011e0 42 20 52 34 2c 52 31 2c 52 34 2c 4c 53 52 23 32 |B R4,R1,R4,LSR#2|
000011f0 34 0d 09 10 0f 4d 4f 56 53 20 50 43 2c 52 31 34 |4....MOVS PC,R14|
00001200 0d 09 1a 05 3a 0d 09 24 35 3b 20 42 6c 69 74 20 |....:..$5; Blit |
00001210 72 6f 75 74 69 6e 65 73 20 61 72 65 20 65 6e 74 |routines are ent|
00001220 65 72 65 64 20 75 73 69 6e 67 20 4c 44 52 20 50 |ered using LDR P|
00001230 43 2c 62 6c 69 74 6e 6f 77 25 0d 09 2e 34 3b 20 |C,blitnow%...4; |
00001240 52 30 2c 52 31 20 61 72 65 20 6c 65 66 74 2c 20 |R0,R1 are left, |
00001250 72 69 67 68 74 20 63 6f 6f 72 64 69 6e 61 74 65 |right coordinate|
00001260 73 20 20 7d 20 69 6e 20 70 69 78 65 6c 73 0d 09 |s } in pixels..|
00001270 38 36 3b 20 45 6e 73 75 72 65 20 52 31 3e 52 30 |86; Ensure R1>R0|
00001280 2c 20 61 6e 64 20 74 68 61 74 20 6c 69 6e 65 20 |, and that line |
00001290 73 65 67 6d 65 6e 74 20 69 73 20 6f 6e 20 73 63 |segment is on sc|
000012a0 72 65 65 6e 0d 09 42 21 3b 20 52 38 20 69 73 20 |reen..B!; R8 is |
000012b0 72 61 6e 64 6f 6d 20 73 65 65 64 20 28 75 70 64 |random seed (upd|
000012c0 61 74 65 64 29 0d 09 4c 2b 3b 20 52 39 20 69 73 |ated)..L+; R9 is|
000012d0 20 72 69 67 68 74 20 73 68 69 66 74 20 28 66 6f | right shift (fo|
000012e0 72 20 61 6e 74 69 2d 61 6c 69 61 73 69 6e 67 29 |r anti-aliasing)|
000012f0 0d 09 56 2a 3b 20 52 31 30 20 69 73 20 61 64 64 |..V*; R10 is add|
00001300 72 65 73 73 20 6f 66 20 62 65 67 69 6e 6e 69 6e |ress of beginnin|
00001310 67 20 6f 66 20 72 6f 77 20 7d 0d 09 60 23 3b 20 |g of row }..`#; |
00001320 52 31 31 20 69 73 20 63 74 61 62 6c 65 25 2c 20 |R11 is ctable%, |
00001330 52 31 32 20 69 73 20 63 62 75 66 66 25 0d 09 6a |R12 is cbuff%..j|
00001340 38 3b 20 4f 6e 20 65 78 69 74 2c 20 52 30 2d 52 |8; On exit, R0-R|
00001350 32 20 63 6f 72 72 75 70 74 65 64 20 65 76 65 72 |2 corrupted ever|
00001360 79 74 68 69 6e 67 20 65 6c 73 65 20 70 72 65 73 |ything else pres|
00001370 65 72 76 65 64 0d 09 74 05 3a 0d 09 7e 0f 2e 62 |erved..t.:..~..b|
00001380 6c 69 74 64 75 6d 6d 79 25 0d 09 88 0f 4d 4f 56 |litdummy%....MOV|
00001390 53 20 50 43 2c 52 31 34 0d 09 92 05 3a 0d 09 9c |S PC,R14....:...|
000013a0 0b 2e 62 6c 69 74 6a 25 0d 09 a6 23 4f 50 54 20 |..blitj%...#OPT |
000013b0 a4 6d 61 6b 65 6a 28 62 6c 69 74 6a 25 2c 36 2c |.makej(blitj%,6,|
000013c0 62 6c 69 74 64 75 6d 6d 79 25 29 0d 09 b0 0d 2e |blitdummy%).....|
000013d0 62 6c 69 74 6e 6f 77 25 0d 09 ba 1a 45 51 55 44 |blitnow%....EQUD|
000013e0 20 62 6c 69 74 64 75 6d 6d 79 25 2d 62 6c 69 74 | blitdummy%-blit|
000013f0 6a 25 0d 09 c4 05 3a 0d 09 ce 0c 2e 67 65 74 63 |j%....:.....getc|
00001400 6f 6c 25 0d 09 d8 16 4c 44 4d 49 41 20 52 31 32 |ol%....LDMIA R12|
00001410 21 2c 7b 52 34 2d 52 36 7d 0d 09 e2 14 4d 4f 56 |!,{R4-R6}....MOV|
00001420 20 52 34 2c 52 34 2c 41 53 52 20 52 39 0d 09 ec | R4,R4,ASR R9...|
00001430 14 4d 4f 56 20 52 35 2c 52 35 2c 41 53 52 20 52 |.MOV R5,R5,ASR R|
00001440 39 0d 09 f6 14 4d 4f 56 20 52 36 2c 52 36 2c 41 |9....MOV R6,R6,A|
00001450 53 52 20 52 39 0d 0a 00 19 53 55 42 20 52 34 2c |SR R9....SUB R4,|
00001460 52 34 2c 52 34 2c 41 53 52 23 43 54 53 25 0d 0a |R4,R4,ASR#CTS%..|
00001470 0a 19 53 55 42 20 52 35 2c 52 35 2c 52 35 2c 41 |..SUB R5,R5,R5,A|
00001480 53 52 23 43 54 53 25 0d 0a 14 19 53 55 42 20 52 |SR#CTS%....SUB R|
00001490 36 2c 52 36 2c 52 36 2c 41 53 52 23 43 54 53 25 |6,R6,R6,ASR#CTS%|
000014a0 0d 0a 1e 16 41 44 44 20 52 38 2c 52 38 2c 52 38 |....ADD R8,R8,R8|
000014b0 2c 41 53 4c 23 31 0d 0a 28 1c 41 44 44 20 52 34 |,ASL#1..(.ADD R4|
000014c0 2c 52 34 2c 52 38 2c 4c 53 52 23 32 34 2b 43 54 |,R4,R8,LSR#24+CT|
000014d0 53 25 0d 0a 32 16 41 44 44 20 52 38 2c 52 38 2c |S%..2.ADD R8,R8,|
000014e0 52 38 2c 41 53 4c 23 31 0d 0a 3c 1c 41 44 44 20 |R8,ASL#1..<.ADD |
000014f0 52 35 2c 52 35 2c 52 38 2c 4c 53 52 23 32 34 2b |R5,R5,R8,LSR#24+|
00001500 43 54 53 25 0d 0a 46 16 41 44 44 20 52 38 2c 52 |CTS%..F.ADD R8,R|
00001510 38 2c 52 38 2c 41 53 4c 23 31 0d 0a 50 1c 41 44 |8,R8,ASL#1..P.AD|
00001520 44 20 52 36 2c 52 36 2c 52 38 2c 4c 53 52 23 32 |D R6,R6,R8,LSR#2|
00001530 34 2b 43 54 53 25 0d 0a 5a 18 4d 4f 56 20 52 34 |4+CTS%..Z.MOV R4|
00001540 2c 52 34 2c 41 53 52 23 38 2d 43 54 53 25 0d 0a |,R4,ASR#8-CTS%..|
00001550 64 18 4d 4f 56 20 52 35 2c 52 35 2c 41 53 52 23 |d.MOV R5,R5,ASR#|
00001560 38 2d 43 54 53 25 0d 0a 6e 18 4d 4f 56 20 52 36 |8-CTS%..n.MOV R6|
00001570 2c 52 36 2c 41 53 52 23 38 2d 43 54 53 25 0d 0a |,R6,ASR#8-CTS%..|
00001580 78 19 41 44 44 20 52 34 2c 52 34 2c 52 35 2c 41 |x.ADD R4,R4,R5,A|
00001590 53 4c 23 43 54 53 25 0d 0a 82 1e 41 44 44 20 52 |SL#CTS%....ADD R|
000015a0 34 2c 52 34 2c 52 36 2c 41 53 4c 23 43 54 53 25 |4,R4,R6,ASL#CTS%|
000015b0 2b 43 54 53 25 0d 0a 8c 17 41 44 44 20 52 34 2c |+CTS%....ADD R4,|
000015c0 52 31 31 2c 52 34 2c 41 53 4c 23 33 0d 0a 96 16 |R11,R4,ASL#3....|
000015d0 41 44 44 20 52 38 2c 52 38 2c 52 38 2c 41 53 4c |ADD R8,R8,R8,ASL|
000015e0 23 33 0d 0a a0 1c 4c 44 52 42 20 52 30 2c 5b 52 |#3....LDRB R0,[R|
000015f0 34 2c 52 38 2c 4c 53 52 23 33 32 2d 33 5d 0d 0a |4,R8,LSR#32-3]..|
00001600 aa 0f 4d 4f 56 53 20 50 43 2c 52 31 34 0d 0a b4 |..MOVS PC,R14...|
00001610 05 3a 0d 0a be 1c 4f 50 54 20 a4 72 65 67 69 73 |.:....OPT .regis|
00001620 74 65 72 6a 28 62 6c 69 74 6a 25 2c 32 29 0d 0a |terj(blitj%,2)..|
00001630 c8 1a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 30 |..STMFD R13!,{R0|
00001640 2d 52 36 2c 52 31 34 7d 0d 0a d2 10 53 55 42 20 |-R6,R14}....SUB |
00001650 52 31 2c 52 31 2c 52 30 0d 0a dc 17 41 44 44 20 |R1,R1,R0....ADD |
00001660 52 33 2c 52 31 30 2c 52 30 2c 41 53 52 23 31 0d |R3,R10,R0,ASR#1.|
00001670 0a e6 10 4c 44 52 42 20 52 32 2c 5b 52 33 5d 0d |...LDRB R2,[R3].|
00001680 0a f0 0d 54 53 54 20 52 30 2c 23 31 0d 0a fa 10 |...TST R0,#1....|
00001690 42 4e 45 20 62 6c 69 74 32 70 31 25 0d 0b 04 0b |BNE blit2p1%....|
000016a0 2e 78 6c 6f 6f 70 25 0d 0b 0e 0e 42 4c 20 67 65 |.xloop%....BL ge|
000016b0 74 63 6f 6c 25 0d 0b 18 11 42 49 43 20 52 32 2c |tcol%....BIC R2,|
000016c0 52 32 2c 23 26 46 0d 0b 22 0f 84 52 20 52 32 2c |R2,#&F.."..R R2,|
000016d0 52 32 2c 52 30 0d 0b 2c 11 53 55 42 53 20 52 31 |R2,R0..,.SUBS R1|
000016e0 2c 52 31 2c 23 31 0d 0b 36 11 42 4c 45 20 65 6e |,R1,#1..6.BLE en|
000016f0 64 62 6c 69 74 32 25 0d 0b 40 0d 2e 62 6c 69 74 |dblit2%..@..blit|
00001700 32 70 31 25 0d 0b 4a 0e 42 4c 20 67 65 74 63 6f |2p1%..J.BL getco|
00001710 6c 25 0d 0b 54 12 42 49 43 20 52 32 2c 52 32 2c |l%..T.BIC R2,R2,|
00001720 23 26 46 30 0d 0b 5e 15 84 52 20 52 32 2c 52 32 |#&F0..^..R R2,R2|
00001730 2c 52 30 2c 4c 53 4c 23 34 0d 0b 68 11 53 55 42 |,R0,LSL#4..h.SUB|
00001740 53 20 52 31 2c 52 31 2c 23 31 0d 0b 72 11 42 4c |S R1,R1,#1..r.BL|
00001750 45 20 65 6e 64 62 6c 69 74 32 25 0d 0b 7c 13 53 |E endblit2%..|.S|
00001760 54 52 42 20 52 32 2c 5b 52 33 5d 2c 23 31 0d 0b |TRB R2,[R3],#1..|
00001770 86 10 4c 44 52 42 20 52 32 2c 5b 52 33 5d 0d 0b |..LDRB R2,[R3]..|
00001780 90 0c 42 20 78 6c 6f 6f 70 25 0d 0b 9a 05 3a 0d |..B xloop%....:.|
00001790 0b a4 0e 2e 65 6e 64 62 6c 69 74 32 25 0d 0b ae |....endblit2%...|
000017a0 10 53 54 52 42 20 52 32 2c 5b 52 33 5d 0d 0b b8 |.STRB R2,[R3]...|
000017b0 1a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d |.LDMFD R13!,{R0-|
000017c0 52 36 2c 50 43 7d 5e 0d 0b c2 05 3a 0d 0b cc 1c |R6,PC}^....:....|
000017d0 4f 50 54 20 a4 72 65 67 69 73 74 65 72 6a 28 62 |OPT .registerj(b|
000017e0 6c 69 74 6a 25 2c 33 29 0d 0b d6 1a 53 54 4d 46 |litj%,3)....STMF|
000017f0 44 20 52 31 33 21 2c 7b 52 30 2d 52 36 2c 52 31 |D R13!,{R0-R6,R1|
00001800 34 7d 0d 0b e0 10 53 55 42 20 52 31 2c 52 31 2c |4}....SUB R1,R1,|
00001810 52 30 0d 0b ea 11 41 44 44 20 52 33 2c 52 31 30 |R0....ADD R3,R10|
00001820 2c 52 30 0d 0b f4 0b 2e 78 6c 6f 6f 70 25 0d 0b |,R0.....xloop%..|
00001830 fe 0e 42 4c 20 67 65 74 63 6f 6c 25 0d 0c 08 13 |..BL getcol%....|
00001840 53 54 52 42 20 52 30 2c 5b 52 33 5d 2c 23 31 0d |STRB R0,[R3],#1.|
00001850 0c 12 11 53 55 42 53 20 52 31 2c 52 31 2c 23 31 |...SUBS R1,R1,#1|
00001860 0d 0c 1c 0e 42 47 54 20 78 6c 6f 6f 70 25 0d 0c |....BGT xloop%..|
00001870 26 1a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 |&.LDMFD R13!,{R0|
00001880 2d 52 36 2c 50 43 7d 5e 0d 0c 30 05 3a 0d 0c 3a |-R6,PC}^..0.:..:|
00001890 1c 4f 50 54 20 a4 72 65 67 69 73 74 65 72 6a 28 |.OPT .registerj(|
000018a0 62 6c 69 74 6a 25 2c 35 29 0d 0c 44 1a 53 54 4d |blitj%,5)..D.STM|
000018b0 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 36 2c 52 |FD R13!,{R0-R6,R|
000018c0 31 34 7d 0d 0c 4e 10 53 55 42 20 52 31 2c 52 31 |14}..N.SUB R1,R1|
000018d0 2c 52 30 0d 0c 58 17 41 44 44 20 52 33 2c 52 31 |,R0..X.ADD R3,R1|
000018e0 30 2c 52 30 2c 41 53 4c 23 32 0d 0c 62 0b 2e 78 |0,R0,ASL#2..b..x|
000018f0 6c 6f 6f 70 25 0d 0c 6c 16 4c 44 4d 49 41 20 52 |loop%..l.LDMIA R|
00001900 31 32 21 2c 7b 52 34 2d 52 36 7d 0d 0c 76 14 4d |12!,{R4-R6}..v.M|
00001910 4f 56 20 52 34 2c 52 34 2c 41 53 52 20 52 39 0d |OV R4,R4,ASR R9.|
00001920 0c 80 14 4d 4f 56 20 52 35 2c 52 35 2c 41 53 52 |...MOV R5,R5,ASR|
00001930 20 52 39 0d 0c 8a 14 4d 4f 56 20 52 36 2c 52 36 | R9....MOV R6,R6|
00001940 2c 41 53 52 20 52 39 0d 0c 94 15 84 52 20 52 34 |,ASR R9.....R R4|
00001950 2c 52 34 2c 52 35 2c 4c 53 4c 23 38 0d 0c 9e 16 |,R4,R5,LSL#8....|
00001960 84 52 20 52 34 2c 52 34 2c 52 36 2c 4c 53 4c 23 |.R R4,R4,R6,LSL#|
00001970 31 36 0d 0c a8 12 53 54 52 20 52 34 2c 5b 52 33 |16....STR R4,[R3|
00001980 5d 2c 23 34 0d 0c b2 11 53 55 42 53 20 52 31 2c |],#4....SUBS R1,|
00001990 52 31 2c 23 31 0d 0c bc 0e 42 47 54 20 78 6c 6f |R1,#1....BGT xlo|
000019a0 6f 70 25 0d 0c c6 1a 4c 44 4d 46 44 20 52 31 33 |op%....LDMFD R13|
000019b0 21 2c 7b 52 30 2d 52 36 2c 50 43 7d 5e 0d 0c d0 |!,{R0-R6,PC}^...|
000019c0 05 3a 0d 0c da 1e 2e 76 64 75 76 61 72 73 25 3a |.:.....vduvars%:|
000019d0 45 51 55 44 20 31 34 38 3a 45 51 55 44 20 2d 31 |EQUD 148:EQUD -1|
000019e0 0d 0c e4 15 2e 73 63 72 61 64 64 72 25 3a 45 51 |.....scraddr%:EQ|
000019f0 55 44 20 2d 31 0d 0c ee 05 3a 0d 0c f8 0e 2e 74 |UD -1....:.....t|
00001a00 65 73 74 62 6c 69 74 25 0d 0d 02 1b 53 54 4d 46 |estblit%....STMF|
00001a10 44 20 52 31 33 21 2c 7b 52 30 2d 52 31 32 2c 52 |D R13!,{R0-R12,R|
00001a20 31 34 7d 0d 0d 0c 13 41 44 52 20 52 30 2c 76 64 |14}....ADR R0,vd|
00001a30 75 76 61 72 73 25 0d 0d 16 13 41 44 52 20 52 31 |uvars%....ADR R1|
00001a40 2c 73 63 72 61 64 64 72 25 0d 0d 20 1d 53 57 49 |,scraddr%.. .SWI|
00001a50 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 | "OS_ReadVduVari|
00001a60 61 62 6c 65 73 22 0d 0d 2a 14 4c 44 52 20 52 31 |ables"..*.LDR R1|
00001a70 30 2c 73 63 72 61 64 64 72 25 0d 0d 34 0d 4d 4f |0,scraddr%..4.MO|
00001a80 56 20 52 38 2c 23 31 0d 0d 3e 0f 4d 4f 56 20 52 |V R8,#1..>.MOV R|
00001a90 32 2c 23 34 38 30 0d 0d 48 10 53 55 42 20 52 32 |2,#480..H.SUB R2|
00001aa0 2c 52 32 2c 23 31 0d 0d 52 0b 2e 79 6c 6f 6f 70 |,R2,#1..R..yloop|
00001ab0 25 0d 0d 5c 19 4f 50 54 20 a4 61 64 72 28 31 32 |%..\.OPT .adr(12|
00001ac0 2c 63 62 75 66 66 25 2c 32 29 0d 0d 66 0d 4d 4f |,cbuff%,2)..f.MO|
00001ad0 56 20 52 30 2c 23 30 0d 0d 70 0b 2e 78 6c 6f 6f |V R0,#0..p..xloo|
00001ae0 70 25 0d 0d 7a 10 4d 55 4c 20 52 34 2c 52 30 2c |p%..z.MUL R4,R0,|
00001af0 52 30 0d 0d 84 10 4d 55 4c 20 52 35 2c 52 32 2c |R0....MUL R5,R2,|
00001b00 52 32 0d 0d 8e 10 41 44 44 20 52 34 2c 52 34 2c |R2....ADD R4,R4,|
00001b10 52 35 0d 0d 98 16 53 55 42 20 52 35 2c 52 34 2c |R5....SUB R5,R4,|
00001b20 52 35 2c 41 53 4c 23 31 0d 0d a2 10 4d 55 4c 20 |R5,ASL#1....MUL |
00001b30 52 36 2c 52 30 2c 52 32 0d 0d ac 13 4d 4f 56 20 |R6,R0,R2....MOV |
00001b40 52 34 2c 52 34 2c 41 53 52 23 38 0d 0d b6 10 80 |R4,R4,ASR#8.....|
00001b50 20 52 34 2c 52 34 2c 23 32 35 35 0d 0d c0 13 4d | R4,R4,#255....M|
00001b60 4f 56 20 52 35 2c 52 35 2c 41 53 52 23 38 0d 0d |OV R5,R5,ASR#8..|
00001b70 ca 10 80 20 52 35 2c 52 35 2c 23 32 35 35 0d 0d |... R5,R5,#255..|
00001b80 d4 13 4d 4f 56 20 52 36 2c 52 36 2c 41 53 52 23 |..MOV R6,R6,ASR#|
00001b90 37 0d 0d de 10 80 20 52 36 2c 52 36 2c 23 32 35 |7..... R6,R6,#25|
00001ba0 35 0d 0d e8 16 53 54 4d 49 41 20 52 31 32 21 2c |5....STMIA R12!,|
00001bb0 7b 52 34 2d 52 36 7d 0d 0d f2 10 41 44 44 20 52 |{R4-R6}....ADD R|
00001bc0 30 2c 52 30 2c 23 31 0d 0d fc 0f 43 4d 50 20 52 |0,R0,#1....CMP R|
00001bd0 30 2c 23 36 34 30 0d 0e 06 0e 42 4c 54 20 78 6c |0,#640....BLT xl|
00001be0 6f 6f 70 25 0d 0e 10 0d 4d 4f 56 20 52 30 2c 23 |oop%....MOV R0,#|
00001bf0 30 0d 0e 1a 0f 4d 4f 56 20 52 31 2c 23 36 34 30 |0....MOV R1,#640|
00001c00 0d 0e 24 0d 4d 4f 56 20 52 39 2c 23 30 0d 0e 2e |..$.MOV R9,#0...|
00001c10 1a 4f 50 54 20 a4 61 64 72 28 31 31 2c 63 74 61 |.OPT .adr(11,cta|
00001c20 62 6c 65 25 2c 32 29 0d 0e 38 19 4f 50 54 20 a4 |ble%,2)..8.OPT .|
00001c30 61 64 72 28 31 32 2c 63 62 75 66 66 25 2c 32 29 |adr(12,cbuff%,2)|
00001c40 0d 0e 42 0e 4d 4f 56 20 52 31 34 2c 50 43 0d 0e |..B.MOV R14,PC..|
00001c50 4c 13 4c 44 52 20 50 43 2c 62 6c 69 74 6e 6f 77 |L.LDR PC,blitnow|
00001c60 25 0d 0e 56 14 41 44 44 20 52 31 30 2c 52 31 30 |%..V.ADD R10,R10|
00001c70 2c 23 36 34 30 0d 0e 60 11 53 55 42 53 20 52 32 |,#640..`.SUBS R2|
00001c80 2c 52 32 2c 23 31 0d 0e 6a 0e 42 47 45 20 79 6c |,R2,#1..j.BGE yl|
00001c90 6f 6f 70 25 0d 0e 74 1b 4c 44 4d 46 44 20 52 31 |oop%..t.LDMFD R1|
00001ca0 33 21 2c 7b 52 30 2d 52 31 32 2c 50 43 7d 5e 0d |3!,{R0-R12,PC}^.|
00001cb0 0e 7e 05 3a 0d 0e 88 35 5d 3a e7 50 25 3e 63 6f |.~.:...5]:.P%>co|
00001cc0 64 65 25 2b 63 6f 64 65 6c 65 6e 25 8c 85 32 35 |de%+codelen%..25|
00001cd0 35 2c 22 43 6f 64 65 20 69 73 6e 27 74 20 62 69 |5,"Code isn't bi|
00001ce0 67 20 65 6e 6f 75 67 68 22 0d 0e 92 05 ed 0d 0e |g enough".......|
00001cf0 9c 05 e1 0d ff |.....|
00001cf5 
.