Home » Archimedes archive » Acorn User » AU 1995-07.adf » !Regulars_Regulars » StarInfo/Turnbull/Benoit
StarInfo/Turnbull/Benoit
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 1995-07.adf » !Regulars_Regulars |
| Filename: | StarInfo/Turnbull/Benoit |
| Read OK: | ✔ |
| File size: | 2485 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE13:REM Any 256 colour mode!
20spacelen%=&80000:DIMspace%spacelen%
30OFF
40X=0:Y=0:S=2:maxit%=128:NC%=50:small%=FALSE:mode%=13
50REPEAT
60MODEmode%:OFF
70PROCassemble(maxit%,NC%,small%)
80!size%=2*S/(height%<<yeig%)*(1<<AC%)
90IF!size%=0THEN!size%=1
100!minx%=X*(1<<AC%)-!size%*(width%<<xeig%)/2
110!miny%=Y*(1<<AC%)-!size%*(height%<<yeig%)/2
120CALLmandel%
130F=1
140REPEAT:MOUSEX%,Y%,Z%
150IFZ%=4THENF=F*0.9ELSEIFZ%=1THENF=F/0.9
160IFF>1THENF=1ELSEIFF<0.05THENF=0.05
170GCOL3,63TINT192
180WAIT:RECTANGLEX%-osx%*F/2,Y%-osy%*F/2,osx%*F-1,osy%*F-1
190WAIT:RECTANGLEX%-osx%*F/2,Y%-osy%*F/2,osx%*F-1,osy%*F-1
200IFINKEY(-82)THENOSCLI("ScreenSave Pic_"+CHR$(64+RND(26))+CHR$(64+RND(26))+CHR$(64+RND(26))+CHR$(64+RND(26)))
210UNTILZ%=2ORINKEY(-99):*FX21
220OX=(!minx%+(width%<<xeig%)*!size%/2)/(1<<AC%)
230OY=(!miny%+(height%<<yeig%)*!size%/2)/(1<<AC%)
240OS=!size%*(height%<<yeig%)/2/(1<<AC%)
250X=OX+OS*(X%-oscx%)*2/osy%:Y=OY+OS*(Y%-oscy%)*2/osy%:S=OS*F
260MODE0
270REPEAT:CLS:PRINT''"Paramaters"'"=========="
280PRINT''''"A .. Change size"''"B .. Change mode"''"C .. Change number of iterations"''"D .. Change spacing of colours"''"E .. Set position"'''"Z .. Draw the next picture"
290REPEAT:A$=GET$:UNTILINSTR("ABCDEZ",A$)
300CASEA$OF
310WHEN"A":CLS:PRINT"Change picture size"'"==================="
320PRINT''''"A .. Small"''"B .. Big"'''"Z .. Cancel"''''"Small pictures are faster to draw"
330REPEAT:B$=GET$:UNTILINSTR("ABZ",B$)
340IFB$="A"THENsmall%=TRUE ELSEIFB$="B"THENsmall%=FALSE
350WHEN"B":CLS:PRINT"Change screen mode"'"=================="
360PRINT''''"A .. 13 (320x256)"''"B .. 15 (640x256)"''"C .. 36 (768x288)"''"D .. 21 (640x512)"''"E .. 28 (640x480)"'''"Z .. Cancel"''''"Big modes look better but take longer to draw"
370REPEAT:B$=GET$:UNTILINSTR("ABCDEZ",B$)
380CASEB$OF
390WHEN"A":mode%=13
400WHEN"B":mode%=15
410WHEN"C":mode%=36
420WHEN"D":mode%=21
430WHEN"E":mode%=28
440ENDCASE
450WHEN"C":CLS:PRINT"Number of iterations"'"===================="
460PRINT''''"A .. 128"''"B .. 256"''"C .. 512"''"D .. 1024"''"E .. 2048"''"F .. 4096"''"G .. 8192"''"H .. 16384"'''"Z .. Cancel"''''"More iterations makes the picture more accurate, but takes longer to draw";
470PRINT''"Current number of iterations = ";maxit%
480REPEAT:B$=GET$:UNTILINSTR("ABCDEFGHZ",B$)
490CASEB$OF
500WHEN"A":maxit%=128
510WHEN"B":maxit%=256
520WHEN"C":maxit%=512
530WHEN"D":maxit%=1024
540WHEN"E":maxit%=2048
550WHEN"F":maxit%=4096
560WHEN"G":maxit%=8192
570WHEN"H":maxit%=16384
580ENDCASE
590WHEN"D":CLS:PRINT"Spacing of colours"'"=================="
600PRINT''''"A .. Each band doubles iterations"''"B .. 5 bands double iterations"''"C .. 50 bands double iterations"'''"Z .. Cancel"''''"More bands makes an accurate and pretty picture, but takes longer to draw"
610REPEAT:B$=GET$:UNTILINSTR("ABCZ",B$)
620CASEB$OF
630WHEN"A":NC%=1
640WHEN"B":NC%=5
650WHEN"C":NC%=50
660ENDCASE
670WHEN"E":CLS:PRINT"Set position"'"============"
680PRINT''''"A .. Restart"''"B .. Zoom out x 10"''"C .. Redraw the same picture"''"D .. Enter numerical coordinates"'''"Z .. Cancel (use the rectangle you've just chosen with the mouse)";
690PRINT''''"Current position : "''" Centre is at ";X;" + ";Y;" i"'" Half screen height is ";S
700REPEAT:B$=GET$:UNTILINSTR("ABCDZ",B$)
710CASEB$OF
720WHEN"A":X=0:Y=0:S=2:maxit%=128:NC%=50:small%=FALSE:mode%=13
730WHEN"B":X=OX:Y=OY:S=OS*10
740WHEN"C":X=OX:Y=OY:S=OS
750WHEN"D":INPUT''"New position : "''" Centre (real) = "X'" Centre (imaginary) = "Y'" Half screen height = "S
760ENDCASE
770IFX<-2THENX=-2ELSEIFX>2THENX=2
780IFY<-2THENY=-2ELSEIFY>2THENY=2
790IFS>2THENS=2
800ENDCASE
810UNTILA$="Z"
820UNTIL0
830:
840:
850:
860DEFPROCassemble(maxit%,NC%,small%)
870AC%=28:HC%=AC%>>1
880SP%=space%
890code%=SP%:SP%+=&4000:endcode%=SP%
900!code%=4:code%!4=5:code%!8=9:code%!12=6
910code%!16=11:code%!20=12:code%!24=148:code%!28=-1
920SYS"OS_ReadVduVariables",code%,code%
930IFcode%!8<>3THENERROR255,"256 colour modes only"
940xeig%=!code%:yeig%=code%!4
950linc%=code%!12:width%=code%!16+1:height%=code%!20+1:scr%=code%!24
960oscx%=(width%<<xeig%)>>1:oscy%=(height%<<yeig%)>>1
970IFsmall%THENscr%+=(width%>>2)+linc%*(height%>>2):width%=width%>>1:height%=height%>>1
980osx%=width%<<xeig%:osy%=height%<<yeig%
990IFxeig%>yeig%THENxeig%-=yeig%:yeig%=0ELSEyeig%-=xeig%:xeig%=0
1000qsize%=8192:q%=SP%:SP%+=qsize%*20:endq%=SP%
1010col%=SP%:SP%+=256:col%!252=0
1020IFSP%>space%+spacelen%THENERROR255,"Space isn't big enough"
1030RESTORE+0:READmaxcol%:FORT%=0TOmaxcol%-1:READcol%?T%:NEXT
1040FORT%=maxcol%TOmaxcol%+3:col%?T%=col%?(T%-maxcol%):NEXT
1050DATA90
1060DATA&77,&76,&75,&74,&73,&72,&71,&70,&67,&66,&65,&64,&63,&62,&61
1070DATA&60,&61,&62,&63,&68,&69,&6A,&6B,&E0,&E1,&E2,&E3,&E8,&E9,&EA
1080DATA&EB,&EA,&E9,&E8,&CB,&CA,&C9,&C8,&AB,&AA,&A9,&A8,&8B,&8A,&89
1090DATA&88,&89,&8A,&8B,&8C,&8D,&8E,&8F,&98,&99,&9A,&9B,&9C,&9D,&9E
1100DATA&9F,&9E,&9D,&9C,&97,&96,&95,&94,&1F,&1E,&1D,&1C,&17,&16,&15
1110DATA&14,&15,&16,&17,&34,&35,&36,&37,&54,&55,&56,&57,&74,&75,&76
1120FORT%=0TO2STEP2:P%=code%
1130[OPT T%
1140.scraddr%:EQUD scr%
1150.qaddr%:EQUD q%
1160.coladdr%:EQUD col%
1170:
1180.minx%:EQUD -1
1190.miny%:EQUD -1
1200.size%:EQUD -1
1210:
1220; Draws the mandelbrot set with BL corner !minx%,!miny%
1230; !size% is the change in x or y per pixel
1240:
1250.mandel%
1260STMFD R13!,{R14}
1270; Clear the screen
1280LDR R12,scraddr%
1290MVN R0,#NOT&FFFFFFFF
1300MOV R11,#height%
1310.yloop%
1320SUB R11,R11,#width%<<16
1330.xloop%
1340STR R0,[R12],#4
1350ADDS R11,R11,#4<<16
1360BLE xloop%
1370ADD R12,R12,#linc%-width%
1380SUBS R11,R11,#1
1390BGT yloop%
1400; Draw the set
1410MOV R0,#0
1420MOV R1,#height%
1430SUB R1,R1,#1
1440ADR R2,minx%
1450LDMIA R2,{R2-R3,R8}
1460MOV R4,R8,ASL#xeig%
1470MLA R2,R0,R4,R2
1480ADD R2,R2,R4,ASR#1
1490MOV R4,R8,ASL#yeig%
1500MLA R3,R1,R4,R3
1510ADD R3,R3,R4,ASR#1
1520LDR R12,scraddr%
1530LDR R10,qaddr%
1540MOV R11,R10
1550ADD R9,R10,#endq%-q%
1560BL qit%
1570.qloop%
1580MOV R0,#129
1590MOV R1,#-17AND&FF
1600MOV R2,#&FF
1610SWI "OS_Byte"
1620CMP R2,#&FF
1630CMPNE R10,R11
1640BEQ endqloop%
1650LDMIA R11!,{R0-R1,R2-R3,R12}
1660CMP R11,R9
1670SUBGE R11,R11,#endq%-q%
1680LDRB R5,[R12]
1690MOV R5,R5,LSL#24
1700CMP R0,#0
1710ORRLE R5,R5,#%01110000<<8
1720MOVLE R4,#1<<31
1730LDRGTB R4,[R12,#-1]
1740CMP R4,R5,LSR#24
1750CMPNE R4,#&FF
1760ORRNE R5,R5,#%11111000
1770ADD R4,R0,#1
1780CMP R4,#width%
1790ORRGE R5,R5,#%00000111<<8
1800MOVGE R4,#1<<31
1810LDRLTB R4,[R12,#1]
1820CMP R4,R5,LSR#24
1830CMPNE R4,#&FF
1840ORRNE R5,R5,#%10001111
1850CMP R1,#0
1860ORRLE R5,R5,#%00011100<<8
1870MOVLE R4,#1<<31
1880LDRGTB R4,[R12,#linc%]
1890CMP R4,R5,LSR#24
1900CMPNE R4,#&FF
1910ORRNE R5,R5,#%00111110
1920ADD R4,R1,#1
1930CMP R4,#height%
1940ORRGE R5,R5,#%11000001<<8
1950MOVGE R4,#1<<31
1960LDRLTB R4,[R12,#-linc%]
1970CMP R4,R5,LSR#24
1980CMPNE R4,#&FF
1990ORRNE R5,R5,#%11100011
2000BIC R5,R5,R5,LSR#8
2010MVN R5,R5
2020ADD R1,R1,#1
2030ADD R3,R3,R8,ASL#yeig%
2040SUB R12,R12,#linc%
2050TST R5,#%10000000
2060LDREQB R4,[R12]
2070CMPEQ R4,#&FF
2080BLEQ qit%
2090SUB R0,R0,#1
2100SUB R2,R2,R8,ASL#xeig%
2110SUB R12,R12,#1
2120TST R5,#%01000000
2130LDREQB R4,[R12]
2140CMPEQ R4,#&FF
2150BLEQ qit%
2160SUB R1,R1,#1
2170SUB R3,R3,R8,ASL#yeig%
2180ADD R12,R12,#linc%
2190TST R5,#%00100000
2200LDREQB R4,[R12]
2210CMPEQ R4,#&FF
2220BLEQ qit%
2230SUB R1,R1,#1
2240SUB R3,R3,R8,ASL#yeig%
2250ADD R12,R12,#linc%
2260TST R5,#%00010000
2270LDREQB R4,[R12]
2280CMPEQ R4,#&FF
2290BLEQ qit%
2300ADD R0,R0,#1
2310ADD R2,R2,R8,ASL#xeig%
2320ADD R12,R12,#1
2330TST R5,#%00001000
2340LDREQB R4,[R12]
2350CMPEQ R4,#&FF
2360BLEQ qit%
2370ADD R0,R0,#1
2380ADD R2,R2,R8,ASL#xeig%
2390ADD R12,R12,#1
2400TST R5,#%00000100
2410LDREQB R4,[R12]
2420CMPEQ R4,#&FF
2430BLEQ qit%
2440ADD R1,R1,#1
2450ADD R3,R3,R8,ASL#yeig%
2460SUB R12,R12,#linc%
2470TST R5,#%00000010
2480LDREQB R4,[R12]
2490CMPEQ R4,#&FF
2500BLEQ qit%
2510ADD R1,R1,#1
2520ADD R3,R3,R8,ASL#yeig%
2530SUB R12,R12,#linc%
2540TST R5,#%00000001
2550LDREQB R4,[R12]
2560CMPEQ R4,#&FF
2570BLEQ qit%
2580B qloop%
2590:
2600.endqloop%
2610; Fill in the colours
2620LDR R12,scraddr%
2630LDR R10,coladdr%
2640MOV R9,#1
2650MOV R11,#height%
2660.yloop%
2670SUB R11,R11,#width%<<16
2680.xloop%
2690LDRB R0,[R12]
2700CMP R0,#&FF
2710BLNE changecolour%
2720ADDS R9,R9,R9,ROR#31
2730MOVCS R1,R1,ROR#16
2740ADDS R9,R9,R9,ROR#31
2750MOVCS R1,R1,ROR#8
2760STRB R1,[R12],#1
2770ADDS R11,R11,#1<<16
2780BLE xloop%
2790ADD R12,R12,#linc%-width%
2800SUBS R11,R11,#1
2810BGT yloop%
2820LDMFD R13!,{PC}
2830:
2840.changecolour%
2850ADD R0,R10,R0
2860LDRB R1,[R0],#1
2870LDRB R2,[R0],#1
2880ORR R1,R1,R2,LSL#8
2890LDRB R2,[R0],#1
2900ORR R1,R1,R2,LSL#16
2910LDRB R2,[R0],#1
2920ORR R1,R1,R2,LSL#24
2930MOV PC,R14
2940:
2950.qit%
2960STMIA R10!,{R0-R1,R2-R3,R12}
2970CMP R10,R9
2980SUBGE R10,R10,#endq%-q%
2990STMFD R13!,{R0-R1,R5-R9,R14}
3000MOV R0,R2
3010MOV R1,R3
3020MOV R4,#maxit%
3030.iloop%
3040RSBS R0,R0,#0
3050RSBLT R0,R0,#0
3060RSBGE R1,R1,#0
3070RSBS R5,R1,#0
3080MOVLT R5,R1
3090CMP R0,#2<<AC%
3100CMPLT R5,#2<<AC%
3110BGE escape%
3120MOV R6,R0,LSR#HC%
3130SUB R0,R0,R6,LSL#HC%
3140MUL R8,R0,R6
3150MUL R9,R6,R6
3160ADD R8,R9,R8,LSR#HC%-1
3170MOV R7,R5,LSR#HC%
3180SUB R5,R5,R7,LSL#HC%
3190MUL R9,R5,R7
3200MUL R5,R7,R7
3210ADD R9,R5,R9,LSR#HC%-1
3220ADD R8,R8,R9
3230CMP R8,#4<<AC%
3240BGE escape%
3250SUB R8,R8,R9,ASL#1
3260MOV R7,R1,ASR#HC%
3270SUB R1,R1,R7,ASL#HC%
3280MUL R9,R6,R7
3290MUL R5,R1,R6
3300MLA R5,R0,R7,R5
3310ADD R9,R9,R5,ASR#HC%
3320ADD R0,R2,R8
3330ADD R1,R3,R9,ASL#1
3340SUBS R4,R4,#1
3350BGT iloop%
3360MOV R4,#252
3370STRB R4,[R12]
3380LDMFD R13!,{R0-R1,R5-R9,PC}
3390:
3400.escape%
3410RSB R5,R4,#maxit%
3420MOV R4,#0
3430CMP R5,#NC%<<8
3440MOVGE R5,R5,LSR#8
3450ADDGE R4,R4,#NC%*8
3460CMP R5,#NC%<<4
3470MOVGE R5,R5,LSR#4
3480ADDGE R4,R4,#NC%*4
3490CMP R5,#NC%<<2
3500MOVGE R5,R5,LSR#2
3510ADDGE R4,R4,#NC%*2
3520CMP R5,#NC%<<1
3530MOVGE R5,R5,LSR#1
3540ADDGE R4,R4,#NC%
3550ADD R4,R4,R5
3560CMP R4,#maxcol%<<3
3570SUBGE R4,R4,#maxcol%<<3
3580CMP R4,#maxcol%<<2
3590SUBGE R4,R4,#maxcol%<<2
3600CMP R4,#maxcol%<<1
3610SUBGE R4,R4,#maxcol%<<1
3620CMP R4,#maxcol%
3630SUBGE R4,R4,#maxcol%
3640STRB R4,[R12]
3650LDMFD R13!,{R0-R1,R5-R9,PC}
3660:
3670]:IFP%>endcode%THENERROR255,"Code isn't big enough"
3680NEXT
3690ENDPROC
�13:� Any 256 colour mode!
%spacelen%=&80000:�space%spacelen%
�
(3X=0:Y=0:S=2:maxit%=128:NC%=50:small%=�:mode%=13
2�
< �mode%:�
F �assemble(maxit%,NC%,small%)
P(!size%=2*S/(height%<<yeig%)*(1<<AC%)
Z�!size%=0�!size%=1
d.!minx%=X*(1<<AC%)-!size%*(width%<<xeig%)/2
n/!miny%=Y*(1<<AC%)-!size%*(height%<<yeig%)/2
x �mandel%
�F=1
��:ȗX%,Y%,Z%
� �Z%=4�F=F*0.9��Z%=1�F=F/0.9
��F>1�F=1��F<0.05�F=0.05
��3,63Ȝ192
�2Ȗ:ȓX%-osx%*F/2,Y%-osy%*F/2,osx%*F-1,osy%*F-1
�2Ȗ:ȓX%-osx%*F/2,Y%-osy%*F/2,osx%*F-1,osy%*F-1
�P�(-82)��("ScreenSave Pic_"+�(64+�(26))+�(64+�(26))+�(64+�(26))+�(64+�(26)))
��Z%=2��(-99):*FX21
�1OX=(!minx%+(width%<<xeig%)*!size%/2)/(1<<AC%)
�2OY=(!miny%+(height%<<yeig%)*!size%/2)/(1<<AC%)
�)OS=!size%*(height%<<yeig%)/2/(1<<AC%)
�>X=OX+OS*(X%-oscx%)*2/osy%:Y=OY+OS*(Y%-oscy%)*2/osy%:S=OS*F
�0
$�:�:�''"Paramaters"'"=========="
��''''"A .. Change size"''"B .. Change mode"''"C .. Change number of iterations"''"D .. Change spacing of colours"''"E .. Set position"'''"Z .. Draw the next picture"
"�:A$=�:��"ABCDEZ",A$)
, ȎA$�
67�"A":�:�"Change picture size"'"==================="
@X�''''"A .. Small"''"B .. Big"'''"Z .. Cancel"''''"Small pictures are faster to draw"
J�:B$=�:��"ABZ",B$)
T&�B$="A"�small%=� ��B$="B"�small%=�
^5�"B":�:�"Change screen mode"'"=================="
h��''''"A .. 13 (320x256)"''"B .. 15 (640x256)"''"C .. 36 (768x288)"''"D .. 21 (640x512)"''"E .. 28 (640x480)"'''"Z .. Cancel"''''"Big modes look better but take longer to draw"
r�:B$=�:��"ABCDEZ",B$)
| ȎB$�
��"A":mode%=13
��"B":mode%=15
��"C":mode%=36
��"D":mode%=21
��"E":mode%=28
��
�9�"C":�:�"Number of iterations"'"===================="
���''''"A .. 128"''"B .. 256"''"C .. 512"''"D .. 1024"''"E .. 2048"''"F .. 4096"''"G .. 8192"''"H .. 16384"'''"Z .. Cancel"''''"More iterations makes the picture more accurate, but takes longer to draw";
�/�''"Current number of iterations = ";maxit%
� �:B$=�:��"ABCDEFGHZ",B$)
� ȎB$�
��"A":maxit%=128
��"B":maxit%=256
�"C":maxit%=512
�"D":maxit%=1024
�"E":maxit%=2048
&�"F":maxit%=4096
0�"G":maxit%=8192
:�"H":maxit%=16384
D�
N5�"D":�:�"Spacing of colours"'"=================="
X��''''"A .. Each band doubles iterations"''"B .. 5 bands double iterations"''"C .. 50 bands double iterations"'''"Z .. Cancel"''''"More bands makes an accurate and pretty picture, but takes longer to draw"
b�:B$=�:��"ABCZ",B$)
l ȎB$�
v�"A":NC%=1
��"B":NC%=5
��"C":NC%=50
��
�)�"E":�:�"Set position"'"============"
���''''"A .. Restart"''"B .. Zoom out x 10"''"C .. Redraw the same picture"''"D .. Enter numerical coordinates"'''"Z .. Cancel (use the rectangle you've just chosen with the mouse)";
�a�''''"Current position : "''" Centre is at ";X;" + ";Y;" i"'" Half screen height is ";S
��:B$=�:��"ABCDZ",B$)
� ȎB$�
�8�"A":X=0:Y=0:S=2:maxit%=128:NC%=50:small%=�:mode%=13
��"B":X=OX:Y=OY:S=OS*10
��"C":X=OX:Y=OY:S=OS
�p�"D":�''"New position : "''" Centre (real) = "X'" Centre (imaginary) = "Y'" Half screen height = "S
��
�X<-2�X=-2��X>2�X=2
�Y<-2�Y=-2��Y>2�Y=2
�S>2�S=2
�
* �A$="Z"
4�0
>:
H:
R:
\!��assemble(maxit%,NC%,small%)
fAC%=28:HC%=AC%>>1
pSP%=space%
z%code%=SP%:SP%+=&4000:endcode%=SP%
�+!code%=4:code%!4=5:code%!8=9:code%!12=6
�4code%!16=11:code%!20=12:code%!24=148:code%!28=-1
�'ș"OS_ReadVduVariables",code%,code%
�,�code%!8<>3��255,"256 colour modes only"
� xeig%=!code%:yeig%=code%!4
�Elinc%=code%!12:width%=code%!16+1:height%=code%!20+1:scr%=code%!24
�6oscx%=(width%<<xeig%)>>1:oscy%=(height%<<yeig%)>>1
�T�small%�scr%+=(width%>>2)+linc%*(height%>>2):width%=width%>>1:height%=height%>>1
�*osx%=width%<<xeig%:osy%=height%<<yeig%
�:�xeig%>yeig%�xeig%-=yeig%:yeig%=0�yeig%-=xeig%:xeig%=0
�/qsize%=8192:q%=SP%:SP%+=qsize%*20:endq%=SP%
� col%=SP%:SP%+=256:col%!252=0
�7�SP%>space%+spacelen%��255,"Space isn't big enough"
+�+0:�maxcol%:�T%=0�maxcol%-1:�col%?T%:�
5�T%=maxcol%�maxcol%+3:col%?T%=col%?(T%-maxcol%):�
�90
$@�&77,&76,&75,&74,&73,&72,&71,&70,&67,&66,&65,&64,&63,&62,&61
.@�&60,&61,&62,&63,&68,&69,&6A,&6B,&E0,&E1,&E2,&E3,&E8,&E9,&EA
8@�&EB,&EA,&E9,&E8,&CB,&CA,&C9,&C8,&AB,&AA,&A9,&A8,&8B,&8A,&89
B@�&88,&89,&8A,&8B,&8C,&8D,&8E,&8F,&98,&99,&9A,&9B,&9C,&9D,&9E
L@�&9F,&9E,&9D,&9C,&97,&96,&95,&94,&1F,&1E,&1D,&1C,&17,&16,&15
V@�&14,&15,&16,&17,&34,&35,&36,&37,&54,&55,&56,&57,&74,&75,&76
`�T%=0�2�2:P%=code%
j [OPT T%
t.scraddr%:EQUD scr%
~.qaddr%:EQUD q%
�.coladdr%:EQUD col%
�:
�.minx%:EQUD -1
�.miny%:EQUD -1
�.size%:EQUD -1
�:
�;; Draws the mandelbrot set with BL corner !minx%,!miny%
�.; !size% is the change in x or y per pixel
�:
� .mandel%
�STMFD R13!,{R14}
�; Clear the screen
LDR R12,scraddr%
MVN R0,#�&FFFFFFFF
MOV R11,#height%
.yloop%
(SUB R11,R11,#width%<<16
2 .xloop%
<STR R0,[R12],#4
FADDS R11,R11,#4<<16
PBLE xloop%
Z ADD R12,R12,#linc%-width%
dSUBS R11,R11,#1
nBGT yloop%
x; Draw the set
�
MOV R0,#0
�MOV R1,#height%
�SUB R1,R1,#1
�ADR R2,minx%
�LDMIA R2,{R2-R3,R8}
�MOV R4,R8,ASL#xeig%
�MLA R2,R0,R4,R2
�ADD R2,R2,R4,ASR#1
�MOV R4,R8,ASL#yeig%
�MLA R3,R1,R4,R3
�ADD R3,R3,R4,ASR#1
�LDR R12,scraddr%
�LDR R10,qaddr%
MOV R11,R10
ADD R9,R10,#endq%-q%
BL qit%
" .qloop%
,MOV R0,#129
6MOV R1,#-17�&FF
@MOV R2,#&FF
JSWI "OS_Byte"
TCMP R2,#&FF
^CMPNE R10,R11
hBEQ endqloop%
r LDMIA R11!,{R0-R1,R2-R3,R12}
|CMP R11,R9
�SUBGE R11,R11,#endq%-q%
�LDRB R5,[R12]
�MOV R5,R5,LSL#24
�
CMP R0,#0
� �RLE R5,R5,#%01110000<<8
�MOVLE R4,#1<<31
�LDRGTB R4,[R12,#-1]
�CMP R4,R5,LSR#24
�CMPNE R4,#&FF
��RNE R5,R5,#%11111000
�ADD R4,R0,#1
�CMP R4,#width%
� �RGE R5,R5,#%00000111<<8
MOVGE R4,#1<<31
LDRLTB R4,[R12,#1]
CMP R4,R5,LSR#24
&CMPNE R4,#&FF
0�RNE R5,R5,#%10001111
:
CMP R1,#0
D �RLE R5,R5,#%00011100<<8
NMOVLE R4,#1<<31
XLDRGTB R4,[R12,#linc%]
bCMP R4,R5,LSR#24
lCMPNE R4,#&FF
v�RNE R5,R5,#%00111110
�ADD R4,R1,#1
�CMP R4,#height%
� �RGE R5,R5,#%11000001<<8
�MOVGE R4,#1<<31
�LDRLTB R4,[R12,#-linc%]
�CMP R4,R5,LSR#24
�CMPNE R4,#&FF
��RNE R5,R5,#%11100011
�BIC R5,R5,R5,LSR#8
�
MVN R5,R5
�ADD R1,R1,#1
�ADD R3,R3,R8,ASL#yeig%
�SUB R12,R12,#linc%
TST R5,#%10000000
LDREQB R4,[R12]
CMPEQ R4,#&FF
BLEQ qit%
*SUB R0,R0,#1
4SUB R2,R2,R8,ASL#xeig%
>SUB R12,R12,#1
HTST R5,#%01000000
RLDREQB R4,[R12]
\CMPEQ R4,#&FF
f
BLEQ qit%
pSUB R1,R1,#1
zSUB R3,R3,R8,ASL#yeig%
�ADD R12,R12,#linc%
�TST R5,#%00100000
�LDREQB R4,[R12]
�CMPEQ R4,#&FF
�
BLEQ qit%
�SUB R1,R1,#1
�SUB R3,R3,R8,ASL#yeig%
�ADD R12,R12,#linc%
�TST R5,#%00010000
�LDREQB R4,[R12]
�CMPEQ R4,#&FF
�
BLEQ qit%
�ADD R0,R0,#1
ADD R2,R2,R8,ASL#xeig%
ADD R12,R12,#1
TST R5,#%00001000
$LDREQB R4,[R12]
.CMPEQ R4,#&FF
8
BLEQ qit%
BADD R0,R0,#1
LADD R2,R2,R8,ASL#xeig%
VADD R12,R12,#1
`TST R5,#%00000100
jLDREQB R4,[R12]
tCMPEQ R4,#&FF
~
BLEQ qit%
�ADD R1,R1,#1
�ADD R3,R3,R8,ASL#yeig%
�SUB R12,R12,#linc%
�TST R5,#%00000010
�LDREQB R4,[R12]
�CMPEQ R4,#&FF
�
BLEQ qit%
�ADD R1,R1,#1
�ADD R3,R3,R8,ASL#yeig%
�SUB R12,R12,#linc%
�TST R5,#%00000001
�LDREQB R4,[R12]
CMPEQ R4,#&FF
BLEQ qit%
B qloop%
:
(.endqloop%
2; Fill in the colours
<LDR R12,scraddr%
FLDR R10,coladdr%
P
MOV R9,#1
ZMOV R11,#height%
d .yloop%
nSUB R11,R11,#width%<<16
x .xloop%
�LDRB R0,[R12]
�CMP R0,#&FF
�BLNE changecolour%
�ADDS R9,R9,R9,ROR#31
�MOVCS R1,R1,ROR#16
�ADDS R9,R9,R9,ROR#31
�MOVCS R1,R1,ROR#8
�STRB R1,[R12],#1
�ADDS R11,R11,#1<<16
�BLE xloop%
� ADD R12,R12,#linc%-width%
�SUBS R11,R11,#1
�BGT yloop%
LDMFD R13!,{PC}
:
.changecolour%
"ADD R0,R10,R0
,LDRB R1,[R0],#1
6LDRB R2,[R0],#1
@�R R1,R1,R2,LSL#8
JLDRB R2,[R0],#1
T�R R1,R1,R2,LSL#16
^LDRB R2,[R0],#1
h�R R1,R1,R2,LSL#24
rMOV PC,R14
|:
� .qit%
� STMIA R10!,{R0-R1,R2-R3,R12}
�CMP R10,R9
�SUBGE R10,R10,#endq%-q%
� STMFD R13!,{R0-R1,R5-R9,R14}
�
MOV R0,R2
�
MOV R1,R3
�MOV R4,#maxit%
� .iloop%
�RSBS R0,R0,#0
�RSBLT R0,R0,#0
�RSBGE R1,R1,#0
�RSBS R5,R1,#0
MOVLT R5,R1
CMP R0,#2<<AC%
CMPLT R5,#2<<AC%
&BGE escape%
0MOV R6,R0,LSR#HC%
:SUB R0,R0,R6,LSL#HC%
DMUL R8,R0,R6
NMUL R9,R6,R6
XADD R8,R9,R8,LSR#HC%-1
bMOV R7,R5,LSR#HC%
lSUB R5,R5,R7,LSL#HC%
vMUL R9,R5,R7
�MUL R5,R7,R7
�ADD R9,R5,R9,LSR#HC%-1
�ADD R8,R8,R9
�CMP R8,#4<<AC%
�BGE escape%
�SUB R8,R8,R9,ASL#1
�MOV R7,R1,ASR#HC%
�SUB R1,R1,R7,ASL#HC%
�MUL R9,R6,R7
�MUL R5,R1,R6
�MLA R5,R0,R7,R5
�ADD R9,R9,R5,ASR#HC%
�ADD R0,R2,R8
ADD R1,R3,R9,ASL#1
SUBS R4,R4,#1
BGT iloop%
MOV R4,#252
*STRB R4,[R12]
4 LDMFD R13!,{R0-R1,R5-R9,PC}
>:
H .escape%
RRSB R5,R4,#maxit%
\
MOV R4,#0
fCMP R5,#NC%<<8
pMOVGE R5,R5,LSR#8
zADDGE R4,R4,#NC%*8
�CMP R5,#NC%<<4
�MOVGE R5,R5,LSR#4
�ADDGE R4,R4,#NC%*4
�CMP R5,#NC%<<2
�MOVGE R5,R5,LSR#2
�ADDGE R4,R4,#NC%*2
�CMP R5,#NC%<<1
�MOVGE R5,R5,LSR#1
�ADDGE R4,R4,#NC%
�ADD R4,R4,R5
�CMP R4,#maxcol%<<3
�SUBGE R4,R4,#maxcol%<<3
�CMP R4,#maxcol%<<2
SUBGE R4,R4,#maxcol%<<2
CMP R4,#maxcol%<<1
SUBGE R4,R4,#maxcol%<<1
$CMP R4,#maxcol%
.SUBGE R4,R4,#maxcol%
8STRB R4,[R12]
B LDMFD R13!,{R0-R1,R5-R9,PC}
L:
V/]:�P%>endcode%��255,"Code isn't big enough"
`�
j�
� 00000000 0d 00 0a 1e eb 31 33 3a f4 20 41 6e 79 20 32 35 |.....13:. Any 25|
00000010 36 20 63 6f 6c 6f 75 72 20 6d 6f 64 65 21 0d 00 |6 colour mode!..|
00000020 14 25 73 70 61 63 65 6c 65 6e 25 3d 26 38 30 30 |.%spacelen%=&800|
00000030 30 30 3a de 73 70 61 63 65 25 73 70 61 63 65 6c |00:.space%spacel|
00000040 65 6e 25 0d 00 1e 05 87 0d 00 28 33 58 3d 30 3a |en%.......(3X=0:|
00000050 59 3d 30 3a 53 3d 32 3a 6d 61 78 69 74 25 3d 31 |Y=0:S=2:maxit%=1|
00000060 32 38 3a 4e 43 25 3d 35 30 3a 73 6d 61 6c 6c 25 |28:NC%=50:small%|
00000070 3d a3 3a 6d 6f 64 65 25 3d 31 33 0d 00 32 05 f5 |=.:mode%=13..2..|
00000080 0d 00 3c 0c eb 6d 6f 64 65 25 3a 87 0d 00 46 20 |..<..mode%:...F |
00000090 f2 61 73 73 65 6d 62 6c 65 28 6d 61 78 69 74 25 |.assemble(maxit%|
000000a0 2c 4e 43 25 2c 73 6d 61 6c 6c 25 29 0d 00 50 28 |,NC%,small%)..P(|
000000b0 21 73 69 7a 65 25 3d 32 2a 53 2f 28 68 65 69 67 |!size%=2*S/(heig|
000000c0 68 74 25 3c 3c 79 65 69 67 25 29 2a 28 31 3c 3c |ht%<<yeig%)*(1<<|
000000d0 41 43 25 29 0d 00 5a 16 e7 21 73 69 7a 65 25 3d |AC%)..Z..!size%=|
000000e0 30 8c 21 73 69 7a 65 25 3d 31 0d 00 64 2e 21 6d |0.!size%=1..d.!m|
000000f0 69 6e 78 25 3d 58 2a 28 31 3c 3c 41 43 25 29 2d |inx%=X*(1<<AC%)-|
00000100 21 73 69 7a 65 25 2a 28 77 69 64 74 68 25 3c 3c |!size%*(width%<<|
00000110 78 65 69 67 25 29 2f 32 0d 00 6e 2f 21 6d 69 6e |xeig%)/2..n/!min|
00000120 79 25 3d 59 2a 28 31 3c 3c 41 43 25 29 2d 21 73 |y%=Y*(1<<AC%)-!s|
00000130 69 7a 65 25 2a 28 68 65 69 67 68 74 25 3c 3c 79 |ize%*(height%<<y|
00000140 65 69 67 25 29 2f 32 0d 00 78 0c d6 6d 61 6e 64 |eig%)/2..x..mand|
00000150 65 6c 25 0d 00 82 07 46 3d 31 0d 00 8c 10 f5 3a |el%....F=1.....:|
00000160 c8 97 58 25 2c 59 25 2c 5a 25 0d 00 96 1f e7 5a |..X%,Y%,Z%.....Z|
00000170 25 3d 34 8c 46 3d 46 2a 30 2e 39 8b e7 5a 25 3d |%=4.F=F*0.9..Z%=|
00000180 31 8c 46 3d 46 2f 30 2e 39 0d 00 a0 1b e7 46 3e |1.F=F/0.9.....F>|
00000190 31 8c 46 3d 31 8b e7 46 3c 30 2e 30 35 8c 46 3d |1.F=1..F<0.05.F=|
000001a0 30 2e 30 35 0d 00 aa 0e e6 33 2c 36 33 c8 9c 31 |0.05.....3,63..1|
000001b0 39 32 0d 00 b4 32 c8 96 3a c8 93 58 25 2d 6f 73 |92...2..:..X%-os|
000001c0 78 25 2a 46 2f 32 2c 59 25 2d 6f 73 79 25 2a 46 |x%*F/2,Y%-osy%*F|
000001d0 2f 32 2c 6f 73 78 25 2a 46 2d 31 2c 6f 73 79 25 |/2,osx%*F-1,osy%|
000001e0 2a 46 2d 31 0d 00 be 32 c8 96 3a c8 93 58 25 2d |*F-1...2..:..X%-|
000001f0 6f 73 78 25 2a 46 2f 32 2c 59 25 2d 6f 73 79 25 |osx%*F/2,Y%-osy%|
00000200 2a 46 2f 32 2c 6f 73 78 25 2a 46 2d 31 2c 6f 73 |*F/2,osx%*F-1,os|
00000210 79 25 2a 46 2d 31 0d 00 c8 50 e7 a6 28 2d 38 32 |y%*F-1...P..(-82|
00000220 29 8c ff 28 22 53 63 72 65 65 6e 53 61 76 65 20 |)..("ScreenSave |
00000230 50 69 63 5f 22 2b bd 28 36 34 2b b3 28 32 36 29 |Pic_"+.(64+.(26)|
00000240 29 2b bd 28 36 34 2b b3 28 32 36 29 29 2b bd 28 |)+.(64+.(26))+.(|
00000250 36 34 2b b3 28 32 36 29 29 2b bd 28 36 34 2b b3 |64+.(26))+.(64+.|
00000260 28 32 36 29 29 29 0d 00 d2 16 fd 5a 25 3d 32 84 |(26))).....Z%=2.|
00000270 a6 28 2d 39 39 29 3a 2a 46 58 32 31 0d 00 dc 31 |.(-99):*FX21...1|
00000280 4f 58 3d 28 21 6d 69 6e 78 25 2b 28 77 69 64 74 |OX=(!minx%+(widt|
00000290 68 25 3c 3c 78 65 69 67 25 29 2a 21 73 69 7a 65 |h%<<xeig%)*!size|
000002a0 25 2f 32 29 2f 28 31 3c 3c 41 43 25 29 0d 00 e6 |%/2)/(1<<AC%)...|
000002b0 32 4f 59 3d 28 21 6d 69 6e 79 25 2b 28 68 65 69 |2OY=(!miny%+(hei|
000002c0 67 68 74 25 3c 3c 79 65 69 67 25 29 2a 21 73 69 |ght%<<yeig%)*!si|
000002d0 7a 65 25 2f 32 29 2f 28 31 3c 3c 41 43 25 29 0d |ze%/2)/(1<<AC%).|
000002e0 00 f0 29 4f 53 3d 21 73 69 7a 65 25 2a 28 68 65 |..)OS=!size%*(he|
000002f0 69 67 68 74 25 3c 3c 79 65 69 67 25 29 2f 32 2f |ight%<<yeig%)/2/|
00000300 28 31 3c 3c 41 43 25 29 0d 00 fa 3e 58 3d 4f 58 |(1<<AC%)...>X=OX|
00000310 2b 4f 53 2a 28 58 25 2d 6f 73 63 78 25 29 2a 32 |+OS*(X%-oscx%)*2|
00000320 2f 6f 73 79 25 3a 59 3d 4f 59 2b 4f 53 2a 28 59 |/osy%:Y=OY+OS*(Y|
00000330 25 2d 6f 73 63 79 25 29 2a 32 2f 6f 73 79 25 3a |%-oscy%)*2/osy%:|
00000340 53 3d 4f 53 2a 46 0d 01 04 06 eb 30 0d 01 0e 24 |S=OS*F.....0...$|
00000350 f5 3a db 3a f1 27 27 22 50 61 72 61 6d 61 74 65 |.:.:.''"Paramate|
00000360 72 73 22 27 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 |rs"'"=========="|
00000370 0d 01 18 a9 f1 27 27 27 27 22 41 20 2e 2e 20 43 |.....''''"A .. C|
00000380 68 61 6e 67 65 20 73 69 7a 65 22 27 27 22 42 20 |hange size"''"B |
00000390 2e 2e 20 43 68 61 6e 67 65 20 6d 6f 64 65 22 27 |.. Change mode"'|
000003a0 27 22 43 20 2e 2e 20 43 68 61 6e 67 65 20 6e 75 |'"C .. Change nu|
000003b0 6d 62 65 72 20 6f 66 20 69 74 65 72 61 74 69 6f |mber of iteratio|
000003c0 6e 73 22 27 27 22 44 20 2e 2e 20 43 68 61 6e 67 |ns"''"D .. Chang|
000003d0 65 20 73 70 61 63 69 6e 67 20 6f 66 20 63 6f 6c |e spacing of col|
000003e0 6f 75 72 73 22 27 27 22 45 20 2e 2e 20 53 65 74 |ours"''"E .. Set|
000003f0 20 70 6f 73 69 74 69 6f 6e 22 27 27 27 22 5a 20 | position"'''"Z |
00000400 2e 2e 20 44 72 61 77 20 74 68 65 20 6e 65 78 74 |.. Draw the next|
00000410 20 70 69 63 74 75 72 65 22 0d 01 22 19 f5 3a 41 | picture".."..:A|
00000420 24 3d be 3a fd a7 22 41 42 43 44 45 5a 22 2c 41 |$=.:.."ABCDEZ",A|
00000430 24 29 0d 01 2c 09 c8 8e 41 24 ca 0d 01 36 37 c9 |$)..,...A$...67.|
00000440 22 41 22 3a db 3a f1 22 43 68 61 6e 67 65 20 70 |"A":.:."Change p|
00000450 69 63 74 75 72 65 20 73 69 7a 65 22 27 22 3d 3d |icture size"'"==|
00000460 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000470 3d 22 0d 01 40 58 f1 27 27 27 27 22 41 20 2e 2e |="..@X.''''"A ..|
00000480 20 53 6d 61 6c 6c 22 27 27 22 42 20 2e 2e 20 42 | Small"''"B .. B|
00000490 69 67 22 27 27 27 22 5a 20 2e 2e 20 43 61 6e 63 |ig"'''"Z .. Canc|
000004a0 65 6c 22 27 27 27 27 22 53 6d 61 6c 6c 20 70 69 |el"''''"Small pi|
000004b0 63 74 75 72 65 73 20 61 72 65 20 66 61 73 74 65 |ctures are faste|
000004c0 72 20 74 6f 20 64 72 61 77 22 0d 01 4a 16 f5 3a |r to draw"..J..:|
000004d0 42 24 3d be 3a fd a7 22 41 42 5a 22 2c 42 24 29 |B$=.:.."ABZ",B$)|
000004e0 0d 01 54 26 e7 42 24 3d 22 41 22 8c 73 6d 61 6c |..T&.B$="A".smal|
000004f0 6c 25 3d b9 20 8b e7 42 24 3d 22 42 22 8c 73 6d |l%=. ..B$="B".sm|
00000500 61 6c 6c 25 3d a3 0d 01 5e 35 c9 22 42 22 3a db |all%=...^5."B":.|
00000510 3a f1 22 43 68 61 6e 67 65 20 73 63 72 65 65 6e |:."Change screen|
00000520 20 6d 6f 64 65 22 27 22 3d 3d 3d 3d 3d 3d 3d 3d | mode"'"========|
00000530 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 01 68 b3 f1 |=========="..h..|
00000540 27 27 27 27 22 41 20 2e 2e 20 31 33 20 28 33 32 |''''"A .. 13 (32|
00000550 30 78 32 35 36 29 22 27 27 22 42 20 2e 2e 20 31 |0x256)"''"B .. 1|
00000560 35 20 28 36 34 30 78 32 35 36 29 22 27 27 22 43 |5 (640x256)"''"C|
00000570 20 2e 2e 20 33 36 20 28 37 36 38 78 32 38 38 29 | .. 36 (768x288)|
00000580 22 27 27 22 44 20 2e 2e 20 32 31 20 28 36 34 30 |"''"D .. 21 (640|
00000590 78 35 31 32 29 22 27 27 22 45 20 2e 2e 20 32 38 |x512)"''"E .. 28|
000005a0 20 28 36 34 30 78 34 38 30 29 22 27 27 27 22 5a | (640x480)"'''"Z|
000005b0 20 2e 2e 20 43 61 6e 63 65 6c 22 27 27 27 27 22 | .. Cancel"''''"|
000005c0 42 69 67 20 6d 6f 64 65 73 20 6c 6f 6f 6b 20 62 |Big modes look b|
000005d0 65 74 74 65 72 20 62 75 74 20 74 61 6b 65 20 6c |etter but take l|
000005e0 6f 6e 67 65 72 20 74 6f 20 64 72 61 77 22 0d 01 |onger to draw"..|
000005f0 72 19 f5 3a 42 24 3d be 3a fd a7 22 41 42 43 44 |r..:B$=.:.."ABCD|
00000600 45 5a 22 2c 42 24 29 0d 01 7c 09 c8 8e 42 24 ca |EZ",B$)..|...B$.|
00000610 0d 01 86 11 c9 22 41 22 3a 6d 6f 64 65 25 3d 31 |....."A":mode%=1|
00000620 33 0d 01 90 11 c9 22 42 22 3a 6d 6f 64 65 25 3d |3....."B":mode%=|
00000630 31 35 0d 01 9a 11 c9 22 43 22 3a 6d 6f 64 65 25 |15....."C":mode%|
00000640 3d 33 36 0d 01 a4 11 c9 22 44 22 3a 6d 6f 64 65 |=36....."D":mode|
00000650 25 3d 32 31 0d 01 ae 11 c9 22 45 22 3a 6d 6f 64 |%=21....."E":mod|
00000660 65 25 3d 32 38 0d 01 b8 05 cb 0d 01 c2 39 c9 22 |e%=28........9."|
00000670 43 22 3a db 3a f1 22 4e 75 6d 62 65 72 20 6f 66 |C":.:."Number of|
00000680 20 69 74 65 72 61 74 69 6f 6e 73 22 27 22 3d 3d | iterations"'"==|
00000690 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000006a0 3d 3d 22 0d 01 cc cd f1 27 27 27 27 22 41 20 2e |==".....''''"A .|
000006b0 2e 20 31 32 38 22 27 27 22 42 20 2e 2e 20 32 35 |. 128"''"B .. 25|
000006c0 36 22 27 27 22 43 20 2e 2e 20 35 31 32 22 27 27 |6"''"C .. 512"''|
000006d0 22 44 20 2e 2e 20 31 30 32 34 22 27 27 22 45 20 |"D .. 1024"''"E |
000006e0 2e 2e 20 32 30 34 38 22 27 27 22 46 20 2e 2e 20 |.. 2048"''"F .. |
000006f0 34 30 39 36 22 27 27 22 47 20 2e 2e 20 38 31 39 |4096"''"G .. 819|
00000700 32 22 27 27 22 48 20 2e 2e 20 31 36 33 38 34 22 |2"''"H .. 16384"|
00000710 27 27 27 22 5a 20 2e 2e 20 43 61 6e 63 65 6c 22 |'''"Z .. Cancel"|
00000720 27 27 27 27 22 4d 6f 72 65 20 69 74 65 72 61 74 |''''"More iterat|
00000730 69 6f 6e 73 20 6d 61 6b 65 73 20 74 68 65 20 70 |ions makes the p|
00000740 69 63 74 75 72 65 20 6d 6f 72 65 20 61 63 63 75 |icture more accu|
00000750 72 61 74 65 2c 20 62 75 74 20 74 61 6b 65 73 20 |rate, but takes |
00000760 6c 6f 6e 67 65 72 20 74 6f 20 64 72 61 77 22 3b |longer to draw";|
00000770 0d 01 d6 2f f1 27 27 22 43 75 72 72 65 6e 74 20 |.../.''"Current |
00000780 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 72 61 74 |number of iterat|
00000790 69 6f 6e 73 20 3d 20 22 3b 6d 61 78 69 74 25 0d |ions = ";maxit%.|
000007a0 01 e0 1c f5 3a 42 24 3d be 3a fd a7 22 41 42 43 |....:B$=.:.."ABC|
000007b0 44 45 46 47 48 5a 22 2c 42 24 29 0d 01 ea 09 c8 |DEFGHZ",B$).....|
000007c0 8e 42 24 ca 0d 01 f4 13 c9 22 41 22 3a 6d 61 78 |.B$......"A":max|
000007d0 69 74 25 3d 31 32 38 0d 01 fe 13 c9 22 42 22 3a |it%=128....."B":|
000007e0 6d 61 78 69 74 25 3d 32 35 36 0d 02 08 13 c9 22 |maxit%=256....."|
000007f0 43 22 3a 6d 61 78 69 74 25 3d 35 31 32 0d 02 12 |C":maxit%=512...|
00000800 14 c9 22 44 22 3a 6d 61 78 69 74 25 3d 31 30 32 |.."D":maxit%=102|
00000810 34 0d 02 1c 14 c9 22 45 22 3a 6d 61 78 69 74 25 |4....."E":maxit%|
00000820 3d 32 30 34 38 0d 02 26 14 c9 22 46 22 3a 6d 61 |=2048..&.."F":ma|
00000830 78 69 74 25 3d 34 30 39 36 0d 02 30 14 c9 22 47 |xit%=4096..0.."G|
00000840 22 3a 6d 61 78 69 74 25 3d 38 31 39 32 0d 02 3a |":maxit%=8192..:|
00000850 15 c9 22 48 22 3a 6d 61 78 69 74 25 3d 31 36 33 |.."H":maxit%=163|
00000860 38 34 0d 02 44 05 cb 0d 02 4e 35 c9 22 44 22 3a |84..D....N5."D":|
00000870 db 3a f1 22 53 70 61 63 69 6e 67 20 6f 66 20 63 |.:."Spacing of c|
00000880 6f 6c 6f 75 72 73 22 27 22 3d 3d 3d 3d 3d 3d 3d |olours"'"=======|
00000890 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 02 58 d0 |==========="..X.|
000008a0 f1 27 27 27 27 22 41 20 2e 2e 20 45 61 63 68 20 |.''''"A .. Each |
000008b0 62 61 6e 64 20 64 6f 75 62 6c 65 73 20 69 74 65 |band doubles ite|
000008c0 72 61 74 69 6f 6e 73 22 27 27 22 42 20 2e 2e 20 |rations"''"B .. |
000008d0 35 20 62 61 6e 64 73 20 64 6f 75 62 6c 65 20 69 |5 bands double i|
000008e0 74 65 72 61 74 69 6f 6e 73 22 27 27 22 43 20 2e |terations"''"C .|
000008f0 2e 20 35 30 20 62 61 6e 64 73 20 64 6f 75 62 6c |. 50 bands doubl|
00000900 65 20 69 74 65 72 61 74 69 6f 6e 73 22 27 27 27 |e iterations"'''|
00000910 22 5a 20 2e 2e 20 43 61 6e 63 65 6c 22 27 27 27 |"Z .. Cancel"'''|
00000920 27 22 4d 6f 72 65 20 62 61 6e 64 73 20 6d 61 6b |'"More bands mak|
00000930 65 73 20 61 6e 20 61 63 63 75 72 61 74 65 20 61 |es an accurate a|
00000940 6e 64 20 70 72 65 74 74 79 20 70 69 63 74 75 72 |nd pretty pictur|
00000950 65 2c 20 62 75 74 20 74 61 6b 65 73 20 6c 6f 6e |e, but takes lon|
00000960 67 65 72 20 74 6f 20 64 72 61 77 22 0d 02 62 17 |ger to draw"..b.|
00000970 f5 3a 42 24 3d be 3a fd a7 22 41 42 43 5a 22 2c |.:B$=.:.."ABCZ",|
00000980 42 24 29 0d 02 6c 09 c8 8e 42 24 ca 0d 02 76 0e |B$)..l...B$...v.|
00000990 c9 22 41 22 3a 4e 43 25 3d 31 0d 02 80 0e c9 22 |."A":NC%=1....."|
000009a0 42 22 3a 4e 43 25 3d 35 0d 02 8a 0f c9 22 43 22 |B":NC%=5....."C"|
000009b0 3a 4e 43 25 3d 35 30 0d 02 94 05 cb 0d 02 9e 29 |:NC%=50........)|
000009c0 c9 22 45 22 3a db 3a f1 22 53 65 74 20 70 6f 73 |."E":.:."Set pos|
000009d0 69 74 69 6f 6e 22 27 22 3d 3d 3d 3d 3d 3d 3d 3d |ition"'"========|
000009e0 3d 3d 3d 3d 22 0d 02 a8 b8 f1 27 27 27 27 22 41 |====".....''''"A|
000009f0 20 2e 2e 20 52 65 73 74 61 72 74 22 27 27 22 42 | .. Restart"''"B|
00000a00 20 2e 2e 20 5a 6f 6f 6d 20 6f 75 74 20 78 20 31 | .. Zoom out x 1|
00000a10 30 22 27 27 22 43 20 2e 2e 20 52 65 64 72 61 77 |0"''"C .. Redraw|
00000a20 20 74 68 65 20 73 61 6d 65 20 70 69 63 74 75 72 | the same pictur|
00000a30 65 22 27 27 22 44 20 2e 2e 20 45 6e 74 65 72 20 |e"''"D .. Enter |
00000a40 6e 75 6d 65 72 69 63 61 6c 20 63 6f 6f 72 64 69 |numerical coordi|
00000a50 6e 61 74 65 73 22 27 27 27 22 5a 20 2e 2e 20 43 |nates"'''"Z .. C|
00000a60 61 6e 63 65 6c 20 28 75 73 65 20 74 68 65 20 72 |ancel (use the r|
00000a70 65 63 74 61 6e 67 6c 65 20 79 6f 75 27 76 65 20 |ectangle you've |
00000a80 6a 75 73 74 20 63 68 6f 73 65 6e 20 77 69 74 68 |just chosen with|
00000a90 20 74 68 65 20 6d 6f 75 73 65 29 22 3b 0d 02 b2 | the mouse)";...|
00000aa0 61 f1 27 27 27 27 22 43 75 72 72 65 6e 74 20 70 |a.''''"Current p|
00000ab0 6f 73 69 74 69 6f 6e 20 3a 20 22 27 27 22 20 20 |osition : "''" |
00000ac0 20 20 43 65 6e 74 72 65 20 69 73 20 61 74 20 22 | Centre is at "|
00000ad0 3b 58 3b 22 20 2b 20 22 3b 59 3b 22 20 69 22 27 |;X;" + ";Y;" i"'|
00000ae0 22 20 20 20 20 48 61 6c 66 20 73 63 72 65 65 6e |" Half screen|
00000af0 20 68 65 69 67 68 74 20 69 73 20 22 3b 53 0d 02 | height is ";S..|
00000b00 bc 18 f5 3a 42 24 3d be 3a fd a7 22 41 42 43 44 |...:B$=.:.."ABCD|
00000b10 5a 22 2c 42 24 29 0d 02 c6 09 c8 8e 42 24 ca 0d |Z",B$)......B$..|
00000b20 02 d0 38 c9 22 41 22 3a 58 3d 30 3a 59 3d 30 3a |..8."A":X=0:Y=0:|
00000b30 53 3d 32 3a 6d 61 78 69 74 25 3d 31 32 38 3a 4e |S=2:maxit%=128:N|
00000b40 43 25 3d 35 30 3a 73 6d 61 6c 6c 25 3d a3 3a 6d |C%=50:small%=.:m|
00000b50 6f 64 65 25 3d 31 33 0d 02 da 1a c9 22 42 22 3a |ode%=13....."B":|
00000b60 58 3d 4f 58 3a 59 3d 4f 59 3a 53 3d 4f 53 2a 31 |X=OX:Y=OY:S=OS*1|
00000b70 30 0d 02 e4 17 c9 22 43 22 3a 58 3d 4f 58 3a 59 |0....."C":X=OX:Y|
00000b80 3d 4f 59 3a 53 3d 4f 53 0d 02 ee 70 c9 22 44 22 |=OY:S=OS...p."D"|
00000b90 3a e8 27 27 22 4e 65 77 20 70 6f 73 69 74 69 6f |:.''"New positio|
00000ba0 6e 20 3a 20 22 27 27 22 20 20 20 20 43 65 6e 74 |n : "''" Cent|
00000bb0 72 65 20 28 72 65 61 6c 29 20 3d 20 22 58 27 22 |re (real) = "X'"|
00000bc0 20 20 20 20 43 65 6e 74 72 65 20 28 69 6d 61 67 | Centre (imag|
00000bd0 69 6e 61 72 79 29 20 3d 20 22 59 27 22 20 20 20 |inary) = "Y'" |
00000be0 20 48 61 6c 66 20 73 63 72 65 65 6e 20 68 65 69 | Half screen hei|
00000bf0 67 68 74 20 3d 20 22 53 0d 02 f8 05 cb 0d 03 02 |ght = "S........|
00000c00 17 e7 58 3c 2d 32 8c 58 3d 2d 32 8b e7 58 3e 32 |..X<-2.X=-2..X>2|
00000c10 8c 58 3d 32 0d 03 0c 17 e7 59 3c 2d 32 8c 59 3d |.X=2.....Y<-2.Y=|
00000c20 2d 32 8b e7 59 3e 32 8c 59 3d 32 0d 03 16 0c e7 |-2..Y>2.Y=2.....|
00000c30 53 3e 32 8c 53 3d 32 0d 03 20 05 cb 0d 03 2a 0b |S>2.S=2.. ....*.|
00000c40 fd 41 24 3d 22 5a 22 0d 03 34 06 fd 30 0d 03 3e |.A$="Z"..4..0..>|
00000c50 05 3a 0d 03 48 05 3a 0d 03 52 05 3a 0d 03 5c 21 |.:..H.:..R.:..\!|
00000c60 dd f2 61 73 73 65 6d 62 6c 65 28 6d 61 78 69 74 |..assemble(maxit|
00000c70 25 2c 4e 43 25 2c 73 6d 61 6c 6c 25 29 0d 03 66 |%,NC%,small%)..f|
00000c80 15 41 43 25 3d 32 38 3a 48 43 25 3d 41 43 25 3e |.AC%=28:HC%=AC%>|
00000c90 3e 31 0d 03 70 0e 53 50 25 3d 73 70 61 63 65 25 |>1..p.SP%=space%|
00000ca0 0d 03 7a 25 63 6f 64 65 25 3d 53 50 25 3a 53 50 |..z%code%=SP%:SP|
00000cb0 25 2b 3d 26 34 30 30 30 3a 65 6e 64 63 6f 64 65 |%+=&4000:endcode|
00000cc0 25 3d 53 50 25 0d 03 84 2b 21 63 6f 64 65 25 3d |%=SP%...+!code%=|
00000cd0 34 3a 63 6f 64 65 25 21 34 3d 35 3a 63 6f 64 65 |4:code%!4=5:code|
00000ce0 25 21 38 3d 39 3a 63 6f 64 65 25 21 31 32 3d 36 |%!8=9:code%!12=6|
00000cf0 0d 03 8e 34 63 6f 64 65 25 21 31 36 3d 31 31 3a |...4code%!16=11:|
00000d00 63 6f 64 65 25 21 32 30 3d 31 32 3a 63 6f 64 65 |code%!20=12:code|
00000d10 25 21 32 34 3d 31 34 38 3a 63 6f 64 65 25 21 32 |%!24=148:code%!2|
00000d20 38 3d 2d 31 0d 03 98 27 c8 99 22 4f 53 5f 52 65 |8=-1...'.."OS_Re|
00000d30 61 64 56 64 75 56 61 72 69 61 62 6c 65 73 22 2c |adVduVariables",|
00000d40 63 6f 64 65 25 2c 63 6f 64 65 25 0d 03 a2 2c e7 |code%,code%...,.|
00000d50 63 6f 64 65 25 21 38 3c 3e 33 8c 85 32 35 35 2c |code%!8<>3..255,|
00000d60 22 32 35 36 20 63 6f 6c 6f 75 72 20 6d 6f 64 65 |"256 colour mode|
00000d70 73 20 6f 6e 6c 79 22 0d 03 ac 1e 78 65 69 67 25 |s only"....xeig%|
00000d80 3d 21 63 6f 64 65 25 3a 79 65 69 67 25 3d 63 6f |=!code%:yeig%=co|
00000d90 64 65 25 21 34 0d 03 b6 45 6c 69 6e 63 25 3d 63 |de%!4...Elinc%=c|
00000da0 6f 64 65 25 21 31 32 3a 77 69 64 74 68 25 3d 63 |ode%!12:width%=c|
00000db0 6f 64 65 25 21 31 36 2b 31 3a 68 65 69 67 68 74 |ode%!16+1:height|
00000dc0 25 3d 63 6f 64 65 25 21 32 30 2b 31 3a 73 63 72 |%=code%!20+1:scr|
00000dd0 25 3d 63 6f 64 65 25 21 32 34 0d 03 c0 36 6f 73 |%=code%!24...6os|
00000de0 63 78 25 3d 28 77 69 64 74 68 25 3c 3c 78 65 69 |cx%=(width%<<xei|
00000df0 67 25 29 3e 3e 31 3a 6f 73 63 79 25 3d 28 68 65 |g%)>>1:oscy%=(he|
00000e00 69 67 68 74 25 3c 3c 79 65 69 67 25 29 3e 3e 31 |ight%<<yeig%)>>1|
00000e10 0d 03 ca 54 e7 73 6d 61 6c 6c 25 8c 73 63 72 25 |...T.small%.scr%|
00000e20 2b 3d 28 77 69 64 74 68 25 3e 3e 32 29 2b 6c 69 |+=(width%>>2)+li|
00000e30 6e 63 25 2a 28 68 65 69 67 68 74 25 3e 3e 32 29 |nc%*(height%>>2)|
00000e40 3a 77 69 64 74 68 25 3d 77 69 64 74 68 25 3e 3e |:width%=width%>>|
00000e50 31 3a 68 65 69 67 68 74 25 3d 68 65 69 67 68 74 |1:height%=height|
00000e60 25 3e 3e 31 0d 03 d4 2a 6f 73 78 25 3d 77 69 64 |%>>1...*osx%=wid|
00000e70 74 68 25 3c 3c 78 65 69 67 25 3a 6f 73 79 25 3d |th%<<xeig%:osy%=|
00000e80 68 65 69 67 68 74 25 3c 3c 79 65 69 67 25 0d 03 |height%<<yeig%..|
00000e90 de 3a e7 78 65 69 67 25 3e 79 65 69 67 25 8c 78 |.:.xeig%>yeig%.x|
00000ea0 65 69 67 25 2d 3d 79 65 69 67 25 3a 79 65 69 67 |eig%-=yeig%:yeig|
00000eb0 25 3d 30 8b 79 65 69 67 25 2d 3d 78 65 69 67 25 |%=0.yeig%-=xeig%|
00000ec0 3a 78 65 69 67 25 3d 30 0d 03 e8 2f 71 73 69 7a |:xeig%=0.../qsiz|
00000ed0 65 25 3d 38 31 39 32 3a 71 25 3d 53 50 25 3a 53 |e%=8192:q%=SP%:S|
00000ee0 50 25 2b 3d 71 73 69 7a 65 25 2a 32 30 3a 65 6e |P%+=qsize%*20:en|
00000ef0 64 71 25 3d 53 50 25 0d 03 f2 20 63 6f 6c 25 3d |dq%=SP%... col%=|
00000f00 53 50 25 3a 53 50 25 2b 3d 32 35 36 3a 63 6f 6c |SP%:SP%+=256:col|
00000f10 25 21 32 35 32 3d 30 0d 03 fc 37 e7 53 50 25 3e |%!252=0...7.SP%>|
00000f20 73 70 61 63 65 25 2b 73 70 61 63 65 6c 65 6e 25 |space%+spacelen%|
00000f30 8c 85 32 35 35 2c 22 53 70 61 63 65 20 69 73 6e |..255,"Space isn|
00000f40 27 74 20 62 69 67 20 65 6e 6f 75 67 68 22 0d 04 |'t big enough"..|
00000f50 06 2b f7 2b 30 3a f3 6d 61 78 63 6f 6c 25 3a e3 |.+.+0:.maxcol%:.|
00000f60 54 25 3d 30 b8 6d 61 78 63 6f 6c 25 2d 31 3a f3 |T%=0.maxcol%-1:.|
00000f70 63 6f 6c 25 3f 54 25 3a ed 0d 04 10 35 e3 54 25 |col%?T%:....5.T%|
00000f80 3d 6d 61 78 63 6f 6c 25 b8 6d 61 78 63 6f 6c 25 |=maxcol%.maxcol%|
00000f90 2b 33 3a 63 6f 6c 25 3f 54 25 3d 63 6f 6c 25 3f |+3:col%?T%=col%?|
00000fa0 28 54 25 2d 6d 61 78 63 6f 6c 25 29 3a ed 0d 04 |(T%-maxcol%):...|
00000fb0 1a 07 dc 39 30 0d 04 24 40 dc 26 37 37 2c 26 37 |...90..$@.&77,&7|
00000fc0 36 2c 26 37 35 2c 26 37 34 2c 26 37 33 2c 26 37 |6,&75,&74,&73,&7|
00000fd0 32 2c 26 37 31 2c 26 37 30 2c 26 36 37 2c 26 36 |2,&71,&70,&67,&6|
00000fe0 36 2c 26 36 35 2c 26 36 34 2c 26 36 33 2c 26 36 |6,&65,&64,&63,&6|
00000ff0 32 2c 26 36 31 0d 04 2e 40 dc 26 36 30 2c 26 36 |2,&61...@.&60,&6|
00001000 31 2c 26 36 32 2c 26 36 33 2c 26 36 38 2c 26 36 |1,&62,&63,&68,&6|
00001010 39 2c 26 36 41 2c 26 36 42 2c 26 45 30 2c 26 45 |9,&6A,&6B,&E0,&E|
00001020 31 2c 26 45 32 2c 26 45 33 2c 26 45 38 2c 26 45 |1,&E2,&E3,&E8,&E|
00001030 39 2c 26 45 41 0d 04 38 40 dc 26 45 42 2c 26 45 |9,&EA..8@.&EB,&E|
00001040 41 2c 26 45 39 2c 26 45 38 2c 26 43 42 2c 26 43 |A,&E9,&E8,&CB,&C|
00001050 41 2c 26 43 39 2c 26 43 38 2c 26 41 42 2c 26 41 |A,&C9,&C8,&AB,&A|
00001060 41 2c 26 41 39 2c 26 41 38 2c 26 38 42 2c 26 38 |A,&A9,&A8,&8B,&8|
00001070 41 2c 26 38 39 0d 04 42 40 dc 26 38 38 2c 26 38 |A,&89..B@.&88,&8|
00001080 39 2c 26 38 41 2c 26 38 42 2c 26 38 43 2c 26 38 |9,&8A,&8B,&8C,&8|
00001090 44 2c 26 38 45 2c 26 38 46 2c 26 39 38 2c 26 39 |D,&8E,&8F,&98,&9|
000010a0 39 2c 26 39 41 2c 26 39 42 2c 26 39 43 2c 26 39 |9,&9A,&9B,&9C,&9|
000010b0 44 2c 26 39 45 0d 04 4c 40 dc 26 39 46 2c 26 39 |D,&9E..L@.&9F,&9|
000010c0 45 2c 26 39 44 2c 26 39 43 2c 26 39 37 2c 26 39 |E,&9D,&9C,&97,&9|
000010d0 36 2c 26 39 35 2c 26 39 34 2c 26 31 46 2c 26 31 |6,&95,&94,&1F,&1|
000010e0 45 2c 26 31 44 2c 26 31 43 2c 26 31 37 2c 26 31 |E,&1D,&1C,&17,&1|
000010f0 36 2c 26 31 35 0d 04 56 40 dc 26 31 34 2c 26 31 |6,&15..V@.&14,&1|
00001100 35 2c 26 31 36 2c 26 31 37 2c 26 33 34 2c 26 33 |5,&16,&17,&34,&3|
00001110 35 2c 26 33 36 2c 26 33 37 2c 26 35 34 2c 26 35 |5,&36,&37,&54,&5|
00001120 35 2c 26 35 36 2c 26 35 37 2c 26 37 34 2c 26 37 |5,&56,&57,&74,&7|
00001130 35 2c 26 37 36 0d 04 60 16 e3 54 25 3d 30 b8 32 |5,&76..`..T%=0.2|
00001140 88 32 3a 50 25 3d 63 6f 64 65 25 0d 04 6a 0b 5b |.2:P%=code%..j.[|
00001150 4f 50 54 20 54 25 0d 04 74 17 2e 73 63 72 61 64 |OPT T%..t..scrad|
00001160 64 72 25 3a 45 51 55 44 20 73 63 72 25 0d 04 7e |dr%:EQUD scr%..~|
00001170 13 2e 71 61 64 64 72 25 3a 45 51 55 44 20 71 25 |..qaddr%:EQUD q%|
00001180 0d 04 88 17 2e 63 6f 6c 61 64 64 72 25 3a 45 51 |.....coladdr%:EQ|
00001190 55 44 20 63 6f 6c 25 0d 04 92 05 3a 0d 04 9c 12 |UD col%....:....|
000011a0 2e 6d 69 6e 78 25 3a 45 51 55 44 20 2d 31 0d 04 |.minx%:EQUD -1..|
000011b0 a6 12 2e 6d 69 6e 79 25 3a 45 51 55 44 20 2d 31 |...miny%:EQUD -1|
000011c0 0d 04 b0 12 2e 73 69 7a 65 25 3a 45 51 55 44 20 |.....size%:EQUD |
000011d0 2d 31 0d 04 ba 05 3a 0d 04 c4 3b 3b 20 44 72 61 |-1....:...;; Dra|
000011e0 77 73 20 74 68 65 20 6d 61 6e 64 65 6c 62 72 6f |ws the mandelbro|
000011f0 74 20 73 65 74 20 77 69 74 68 20 42 4c 20 63 6f |t set with BL co|
00001200 72 6e 65 72 20 21 6d 69 6e 78 25 2c 21 6d 69 6e |rner !minx%,!min|
00001210 79 25 0d 04 ce 2e 3b 20 21 73 69 7a 65 25 20 69 |y%....; !size% i|
00001220 73 20 74 68 65 20 63 68 61 6e 67 65 20 69 6e 20 |s the change in |
00001230 78 20 6f 72 20 79 20 70 65 72 20 70 69 78 65 6c |x or y per pixel|
00001240 0d 04 d8 05 3a 0d 04 e2 0c 2e 6d 61 6e 64 65 6c |....:.....mandel|
00001250 25 0d 04 ec 14 53 54 4d 46 44 20 52 31 33 21 2c |%....STMFD R13!,|
00001260 7b 52 31 34 7d 0d 04 f6 16 3b 20 43 6c 65 61 72 |{R14}....; Clear|
00001270 20 74 68 65 20 73 63 72 65 65 6e 0d 05 00 14 4c | the screen....L|
00001280 44 52 20 52 31 32 2c 73 63 72 61 64 64 72 25 0d |DR R12,scraddr%.|
00001290 05 0a 16 4d 56 4e 20 52 30 2c 23 ac 26 46 46 46 |...MVN R0,#.&FFF|
000012a0 46 46 46 46 46 0d 05 14 14 4d 4f 56 20 52 31 31 |FFFFF....MOV R11|
000012b0 2c 23 68 65 69 67 68 74 25 0d 05 1e 0b 2e 79 6c |,#height%.....yl|
000012c0 6f 6f 70 25 0d 05 28 1b 53 55 42 20 52 31 31 2c |oop%..(.SUB R11,|
000012d0 52 31 31 2c 23 77 69 64 74 68 25 3c 3c 31 36 0d |R11,#width%<<16.|
000012e0 05 32 0b 2e 78 6c 6f 6f 70 25 0d 05 3c 13 53 54 |.2..xloop%..<.ST|
000012f0 52 20 52 30 2c 5b 52 31 32 5d 2c 23 34 0d 05 46 |R R0,[R12],#4..F|
00001300 17 41 44 44 53 20 52 31 31 2c 52 31 31 2c 23 34 |.ADDS R11,R11,#4|
00001310 3c 3c 31 36 0d 05 50 0e 42 4c 45 20 78 6c 6f 6f |<<16..P.BLE xloo|
00001320 70 25 0d 05 5a 1d 41 44 44 20 52 31 32 2c 52 31 |p%..Z.ADD R12,R1|
00001330 32 2c 23 6c 69 6e 63 25 2d 77 69 64 74 68 25 0d |2,#linc%-width%.|
00001340 05 64 13 53 55 42 53 20 52 31 31 2c 52 31 31 2c |.d.SUBS R11,R11,|
00001350 23 31 0d 05 6e 0e 42 47 54 20 79 6c 6f 6f 70 25 |#1..n.BGT yloop%|
00001360 0d 05 78 12 3b 20 44 72 61 77 20 74 68 65 20 73 |..x.; Draw the s|
00001370 65 74 0d 05 82 0d 4d 4f 56 20 52 30 2c 23 30 0d |et....MOV R0,#0.|
00001380 05 8c 13 4d 4f 56 20 52 31 2c 23 68 65 69 67 68 |...MOV R1,#heigh|
00001390 74 25 0d 05 96 10 53 55 42 20 52 31 2c 52 31 2c |t%....SUB R1,R1,|
000013a0 23 31 0d 05 a0 10 41 44 52 20 52 32 2c 6d 69 6e |#1....ADR R2,min|
000013b0 78 25 0d 05 aa 17 4c 44 4d 49 41 20 52 32 2c 7b |x%....LDMIA R2,{|
000013c0 52 32 2d 52 33 2c 52 38 7d 0d 05 b4 17 4d 4f 56 |R2-R3,R8}....MOV|
000013d0 20 52 34 2c 52 38 2c 41 53 4c 23 78 65 69 67 25 | R4,R8,ASL#xeig%|
000013e0 0d 05 be 13 4d 4c 41 20 52 32 2c 52 30 2c 52 34 |....MLA R2,R0,R4|
000013f0 2c 52 32 0d 05 c8 16 41 44 44 20 52 32 2c 52 32 |,R2....ADD R2,R2|
00001400 2c 52 34 2c 41 53 52 23 31 0d 05 d2 17 4d 4f 56 |,R4,ASR#1....MOV|
00001410 20 52 34 2c 52 38 2c 41 53 4c 23 79 65 69 67 25 | R4,R8,ASL#yeig%|
00001420 0d 05 dc 13 4d 4c 41 20 52 33 2c 52 31 2c 52 34 |....MLA R3,R1,R4|
00001430 2c 52 33 0d 05 e6 16 41 44 44 20 52 33 2c 52 33 |,R3....ADD R3,R3|
00001440 2c 52 34 2c 41 53 52 23 31 0d 05 f0 14 4c 44 52 |,R4,ASR#1....LDR|
00001450 20 52 31 32 2c 73 63 72 61 64 64 72 25 0d 05 fa | R12,scraddr%...|
00001460 12 4c 44 52 20 52 31 30 2c 71 61 64 64 72 25 0d |.LDR R10,qaddr%.|
00001470 06 04 0f 4d 4f 56 20 52 31 31 2c 52 31 30 0d 06 |...MOV R11,R10..|
00001480 0e 18 41 44 44 20 52 39 2c 52 31 30 2c 23 65 6e |..ADD R9,R10,#en|
00001490 64 71 25 2d 71 25 0d 06 18 0b 42 4c 20 71 69 74 |dq%-q%....BL qit|
000014a0 25 0d 06 22 0b 2e 71 6c 6f 6f 70 25 0d 06 2c 0f |%.."..qloop%..,.|
000014b0 4d 4f 56 20 52 30 2c 23 31 32 39 0d 06 36 13 4d |MOV R0,#129..6.M|
000014c0 4f 56 20 52 31 2c 23 2d 31 37 80 26 46 46 0d 06 |OV R1,#-17.&FF..|
000014d0 40 0f 4d 4f 56 20 52 32 2c 23 26 46 46 0d 06 4a |@.MOV R2,#&FF..J|
000014e0 11 53 57 49 20 22 4f 53 5f 42 79 74 65 22 0d 06 |.SWI "OS_Byte"..|
000014f0 54 0f 43 4d 50 20 52 32 2c 23 26 46 46 0d 06 5e |T.CMP R2,#&FF..^|
00001500 11 43 4d 50 4e 45 20 52 31 30 2c 52 31 31 0d 06 |.CMPNE R10,R11..|
00001510 68 11 42 45 51 20 65 6e 64 71 6c 6f 6f 70 25 0d |h.BEQ endqloop%.|
00001520 06 72 20 4c 44 4d 49 41 20 52 31 31 21 2c 7b 52 |.r LDMIA R11!,{R|
00001530 30 2d 52 31 2c 52 32 2d 52 33 2c 52 31 32 7d 0d |0-R1,R2-R3,R12}.|
00001540 06 7c 0e 43 4d 50 20 52 31 31 2c 52 39 0d 06 86 |.|.CMP R11,R9...|
00001550 1b 53 55 42 47 45 20 52 31 31 2c 52 31 31 2c 23 |.SUBGE R11,R11,#|
00001560 65 6e 64 71 25 2d 71 25 0d 06 90 11 4c 44 52 42 |endq%-q%....LDRB|
00001570 20 52 35 2c 5b 52 31 32 5d 0d 06 9a 14 4d 4f 56 | R5,[R12]....MOV|
00001580 20 52 35 2c 52 35 2c 4c 53 4c 23 32 34 0d 06 a4 | R5,R5,LSL#24...|
00001590 0d 43 4d 50 20 52 30 2c 23 30 0d 06 ae 1c 84 52 |.CMP R0,#0.....R|
000015a0 4c 45 20 52 35 2c 52 35 2c 23 25 30 31 31 31 30 |LE R5,R5,#%01110|
000015b0 30 30 30 3c 3c 38 0d 06 b8 13 4d 4f 56 4c 45 20 |000<<8....MOVLE |
000015c0 52 34 2c 23 31 3c 3c 33 31 0d 06 c2 17 4c 44 52 |R4,#1<<31....LDR|
000015d0 47 54 42 20 52 34 2c 5b 52 31 32 2c 23 2d 31 5d |GTB R4,[R12,#-1]|
000015e0 0d 06 cc 14 43 4d 50 20 52 34 2c 52 35 2c 4c 53 |....CMP R4,R5,LS|
000015f0 52 23 32 34 0d 06 d6 11 43 4d 50 4e 45 20 52 34 |R#24....CMPNE R4|
00001600 2c 23 26 46 46 0d 06 e0 19 84 52 4e 45 20 52 35 |,#&FF.....RNE R5|
00001610 2c 52 35 2c 23 25 31 31 31 31 31 30 30 30 0d 06 |,R5,#%11111000..|
00001620 ea 10 41 44 44 20 52 34 2c 52 30 2c 23 31 0d 06 |..ADD R4,R0,#1..|
00001630 f4 12 43 4d 50 20 52 34 2c 23 77 69 64 74 68 25 |..CMP R4,#width%|
00001640 0d 06 fe 1c 84 52 47 45 20 52 35 2c 52 35 2c 23 |.....RGE R5,R5,#|
00001650 25 30 30 30 30 30 31 31 31 3c 3c 38 0d 07 08 13 |%00000111<<8....|
00001660 4d 4f 56 47 45 20 52 34 2c 23 31 3c 3c 33 31 0d |MOVGE R4,#1<<31.|
00001670 07 12 16 4c 44 52 4c 54 42 20 52 34 2c 5b 52 31 |...LDRLTB R4,[R1|
00001680 32 2c 23 31 5d 0d 07 1c 14 43 4d 50 20 52 34 2c |2,#1]....CMP R4,|
00001690 52 35 2c 4c 53 52 23 32 34 0d 07 26 11 43 4d 50 |R5,LSR#24..&.CMP|
000016a0 4e 45 20 52 34 2c 23 26 46 46 0d 07 30 19 84 52 |NE R4,#&FF..0..R|
000016b0 4e 45 20 52 35 2c 52 35 2c 23 25 31 30 30 30 31 |NE R5,R5,#%10001|
000016c0 31 31 31 0d 07 3a 0d 43 4d 50 20 52 31 2c 23 30 |111..:.CMP R1,#0|
000016d0 0d 07 44 1c 84 52 4c 45 20 52 35 2c 52 35 2c 23 |..D..RLE R5,R5,#|
000016e0 25 30 30 30 31 31 31 30 30 3c 3c 38 0d 07 4e 13 |%00011100<<8..N.|
000016f0 4d 4f 56 4c 45 20 52 34 2c 23 31 3c 3c 33 31 0d |MOVLE R4,#1<<31.|
00001700 07 58 1a 4c 44 52 47 54 42 20 52 34 2c 5b 52 31 |.X.LDRGTB R4,[R1|
00001710 32 2c 23 6c 69 6e 63 25 5d 0d 07 62 14 43 4d 50 |2,#linc%]..b.CMP|
00001720 20 52 34 2c 52 35 2c 4c 53 52 23 32 34 0d 07 6c | R4,R5,LSR#24..l|
00001730 11 43 4d 50 4e 45 20 52 34 2c 23 26 46 46 0d 07 |.CMPNE R4,#&FF..|
00001740 76 19 84 52 4e 45 20 52 35 2c 52 35 2c 23 25 30 |v..RNE R5,R5,#%0|
00001750 30 31 31 31 31 31 30 0d 07 80 10 41 44 44 20 52 |0111110....ADD R|
00001760 34 2c 52 31 2c 23 31 0d 07 8a 13 43 4d 50 20 52 |4,R1,#1....CMP R|
00001770 34 2c 23 68 65 69 67 68 74 25 0d 07 94 1c 84 52 |4,#height%.....R|
00001780 47 45 20 52 35 2c 52 35 2c 23 25 31 31 30 30 30 |GE R5,R5,#%11000|
00001790 30 30 31 3c 3c 38 0d 07 9e 13 4d 4f 56 47 45 20 |001<<8....MOVGE |
000017a0 52 34 2c 23 31 3c 3c 33 31 0d 07 a8 1b 4c 44 52 |R4,#1<<31....LDR|
000017b0 4c 54 42 20 52 34 2c 5b 52 31 32 2c 23 2d 6c 69 |LTB R4,[R12,#-li|
000017c0 6e 63 25 5d 0d 07 b2 14 43 4d 50 20 52 34 2c 52 |nc%]....CMP R4,R|
000017d0 35 2c 4c 53 52 23 32 34 0d 07 bc 11 43 4d 50 4e |5,LSR#24....CMPN|
000017e0 45 20 52 34 2c 23 26 46 46 0d 07 c6 19 84 52 4e |E R4,#&FF.....RN|
000017f0 45 20 52 35 2c 52 35 2c 23 25 31 31 31 30 30 30 |E R5,R5,#%111000|
00001800 31 31 0d 07 d0 16 42 49 43 20 52 35 2c 52 35 2c |11....BIC R5,R5,|
00001810 52 35 2c 4c 53 52 23 38 0d 07 da 0d 4d 56 4e 20 |R5,LSR#8....MVN |
00001820 52 35 2c 52 35 0d 07 e4 10 41 44 44 20 52 31 2c |R5,R5....ADD R1,|
00001830 52 31 2c 23 31 0d 07 ee 1a 41 44 44 20 52 33 2c |R1,#1....ADD R3,|
00001840 52 33 2c 52 38 2c 41 53 4c 23 79 65 69 67 25 0d |R3,R8,ASL#yeig%.|
00001850 07 f8 16 53 55 42 20 52 31 32 2c 52 31 32 2c 23 |...SUB R12,R12,#|
00001860 6c 69 6e 63 25 0d 08 02 15 54 53 54 20 52 35 2c |linc%....TST R5,|
00001870 23 25 31 30 30 30 30 30 30 30 0d 08 0c 13 4c 44 |#%10000000....LD|
00001880 52 45 51 42 20 52 34 2c 5b 52 31 32 5d 0d 08 16 |REQB R4,[R12]...|
00001890 11 43 4d 50 45 51 20 52 34 2c 23 26 46 46 0d 08 |.CMPEQ R4,#&FF..|
000018a0 20 0d 42 4c 45 51 20 71 69 74 25 0d 08 2a 10 53 | .BLEQ qit%..*.S|
000018b0 55 42 20 52 30 2c 52 30 2c 23 31 0d 08 34 1a 53 |UB R0,R0,#1..4.S|
000018c0 55 42 20 52 32 2c 52 32 2c 52 38 2c 41 53 4c 23 |UB R2,R2,R8,ASL#|
000018d0 78 65 69 67 25 0d 08 3e 12 53 55 42 20 52 31 32 |xeig%..>.SUB R12|
000018e0 2c 52 31 32 2c 23 31 0d 08 48 15 54 53 54 20 52 |,R12,#1..H.TST R|
000018f0 35 2c 23 25 30 31 30 30 30 30 30 30 0d 08 52 13 |5,#%01000000..R.|
00001900 4c 44 52 45 51 42 20 52 34 2c 5b 52 31 32 5d 0d |LDREQB R4,[R12].|
00001910 08 5c 11 43 4d 50 45 51 20 52 34 2c 23 26 46 46 |.\.CMPEQ R4,#&FF|
00001920 0d 08 66 0d 42 4c 45 51 20 71 69 74 25 0d 08 70 |..f.BLEQ qit%..p|
00001930 10 53 55 42 20 52 31 2c 52 31 2c 23 31 0d 08 7a |.SUB R1,R1,#1..z|
00001940 1a 53 55 42 20 52 33 2c 52 33 2c 52 38 2c 41 53 |.SUB R3,R3,R8,AS|
00001950 4c 23 79 65 69 67 25 0d 08 84 16 41 44 44 20 52 |L#yeig%....ADD R|
00001960 31 32 2c 52 31 32 2c 23 6c 69 6e 63 25 0d 08 8e |12,R12,#linc%...|
00001970 15 54 53 54 20 52 35 2c 23 25 30 30 31 30 30 30 |.TST R5,#%001000|
00001980 30 30 0d 08 98 13 4c 44 52 45 51 42 20 52 34 2c |00....LDREQB R4,|
00001990 5b 52 31 32 5d 0d 08 a2 11 43 4d 50 45 51 20 52 |[R12]....CMPEQ R|
000019a0 34 2c 23 26 46 46 0d 08 ac 0d 42 4c 45 51 20 71 |4,#&FF....BLEQ q|
000019b0 69 74 25 0d 08 b6 10 53 55 42 20 52 31 2c 52 31 |it%....SUB R1,R1|
000019c0 2c 23 31 0d 08 c0 1a 53 55 42 20 52 33 2c 52 33 |,#1....SUB R3,R3|
000019d0 2c 52 38 2c 41 53 4c 23 79 65 69 67 25 0d 08 ca |,R8,ASL#yeig%...|
000019e0 16 41 44 44 20 52 31 32 2c 52 31 32 2c 23 6c 69 |.ADD R12,R12,#li|
000019f0 6e 63 25 0d 08 d4 15 54 53 54 20 52 35 2c 23 25 |nc%....TST R5,#%|
00001a00 30 30 30 31 30 30 30 30 0d 08 de 13 4c 44 52 45 |00010000....LDRE|
00001a10 51 42 20 52 34 2c 5b 52 31 32 5d 0d 08 e8 11 43 |QB R4,[R12]....C|
00001a20 4d 50 45 51 20 52 34 2c 23 26 46 46 0d 08 f2 0d |MPEQ R4,#&FF....|
00001a30 42 4c 45 51 20 71 69 74 25 0d 08 fc 10 41 44 44 |BLEQ qit%....ADD|
00001a40 20 52 30 2c 52 30 2c 23 31 0d 09 06 1a 41 44 44 | R0,R0,#1....ADD|
00001a50 20 52 32 2c 52 32 2c 52 38 2c 41 53 4c 23 78 65 | R2,R2,R8,ASL#xe|
00001a60 69 67 25 0d 09 10 12 41 44 44 20 52 31 32 2c 52 |ig%....ADD R12,R|
00001a70 31 32 2c 23 31 0d 09 1a 15 54 53 54 20 52 35 2c |12,#1....TST R5,|
00001a80 23 25 30 30 30 30 31 30 30 30 0d 09 24 13 4c 44 |#%00001000..$.LD|
00001a90 52 45 51 42 20 52 34 2c 5b 52 31 32 5d 0d 09 2e |REQB R4,[R12]...|
00001aa0 11 43 4d 50 45 51 20 52 34 2c 23 26 46 46 0d 09 |.CMPEQ R4,#&FF..|
00001ab0 38 0d 42 4c 45 51 20 71 69 74 25 0d 09 42 10 41 |8.BLEQ qit%..B.A|
00001ac0 44 44 20 52 30 2c 52 30 2c 23 31 0d 09 4c 1a 41 |DD R0,R0,#1..L.A|
00001ad0 44 44 20 52 32 2c 52 32 2c 52 38 2c 41 53 4c 23 |DD R2,R2,R8,ASL#|
00001ae0 78 65 69 67 25 0d 09 56 12 41 44 44 20 52 31 32 |xeig%..V.ADD R12|
00001af0 2c 52 31 32 2c 23 31 0d 09 60 15 54 53 54 20 52 |,R12,#1..`.TST R|
00001b00 35 2c 23 25 30 30 30 30 30 31 30 30 0d 09 6a 13 |5,#%00000100..j.|
00001b10 4c 44 52 45 51 42 20 52 34 2c 5b 52 31 32 5d 0d |LDREQB R4,[R12].|
00001b20 09 74 11 43 4d 50 45 51 20 52 34 2c 23 26 46 46 |.t.CMPEQ R4,#&FF|
00001b30 0d 09 7e 0d 42 4c 45 51 20 71 69 74 25 0d 09 88 |..~.BLEQ qit%...|
00001b40 10 41 44 44 20 52 31 2c 52 31 2c 23 31 0d 09 92 |.ADD R1,R1,#1...|
00001b50 1a 41 44 44 20 52 33 2c 52 33 2c 52 38 2c 41 53 |.ADD R3,R3,R8,AS|
00001b60 4c 23 79 65 69 67 25 0d 09 9c 16 53 55 42 20 52 |L#yeig%....SUB R|
00001b70 31 32 2c 52 31 32 2c 23 6c 69 6e 63 25 0d 09 a6 |12,R12,#linc%...|
00001b80 15 54 53 54 20 52 35 2c 23 25 30 30 30 30 30 30 |.TST R5,#%000000|
00001b90 31 30 0d 09 b0 13 4c 44 52 45 51 42 20 52 34 2c |10....LDREQB R4,|
00001ba0 5b 52 31 32 5d 0d 09 ba 11 43 4d 50 45 51 20 52 |[R12]....CMPEQ R|
00001bb0 34 2c 23 26 46 46 0d 09 c4 0d 42 4c 45 51 20 71 |4,#&FF....BLEQ q|
00001bc0 69 74 25 0d 09 ce 10 41 44 44 20 52 31 2c 52 31 |it%....ADD R1,R1|
00001bd0 2c 23 31 0d 09 d8 1a 41 44 44 20 52 33 2c 52 33 |,#1....ADD R3,R3|
00001be0 2c 52 38 2c 41 53 4c 23 79 65 69 67 25 0d 09 e2 |,R8,ASL#yeig%...|
00001bf0 16 53 55 42 20 52 31 32 2c 52 31 32 2c 23 6c 69 |.SUB R12,R12,#li|
00001c00 6e 63 25 0d 09 ec 15 54 53 54 20 52 35 2c 23 25 |nc%....TST R5,#%|
00001c10 30 30 30 30 30 30 30 31 0d 09 f6 13 4c 44 52 45 |00000001....LDRE|
00001c20 51 42 20 52 34 2c 5b 52 31 32 5d 0d 0a 00 11 43 |QB R4,[R12]....C|
00001c30 4d 50 45 51 20 52 34 2c 23 26 46 46 0d 0a 0a 0d |MPEQ R4,#&FF....|
00001c40 42 4c 45 51 20 71 69 74 25 0d 0a 14 0c 42 20 71 |BLEQ qit%....B q|
00001c50 6c 6f 6f 70 25 0d 0a 1e 05 3a 0d 0a 28 0e 2e 65 |loop%....:..(..e|
00001c60 6e 64 71 6c 6f 6f 70 25 0d 0a 32 19 3b 20 46 69 |ndqloop%..2.; Fi|
00001c70 6c 6c 20 69 6e 20 74 68 65 20 63 6f 6c 6f 75 72 |ll in the colour|
00001c80 73 0d 0a 3c 14 4c 44 52 20 52 31 32 2c 73 63 72 |s..<.LDR R12,scr|
00001c90 61 64 64 72 25 0d 0a 46 14 4c 44 52 20 52 31 30 |addr%..F.LDR R10|
00001ca0 2c 63 6f 6c 61 64 64 72 25 0d 0a 50 0d 4d 4f 56 |,coladdr%..P.MOV|
00001cb0 20 52 39 2c 23 31 0d 0a 5a 14 4d 4f 56 20 52 31 | R9,#1..Z.MOV R1|
00001cc0 31 2c 23 68 65 69 67 68 74 25 0d 0a 64 0b 2e 79 |1,#height%..d..y|
00001cd0 6c 6f 6f 70 25 0d 0a 6e 1b 53 55 42 20 52 31 31 |loop%..n.SUB R11|
00001ce0 2c 52 31 31 2c 23 77 69 64 74 68 25 3c 3c 31 36 |,R11,#width%<<16|
00001cf0 0d 0a 78 0b 2e 78 6c 6f 6f 70 25 0d 0a 82 11 4c |..x..xloop%....L|
00001d00 44 52 42 20 52 30 2c 5b 52 31 32 5d 0d 0a 8c 0f |DRB R0,[R12]....|
00001d10 43 4d 50 20 52 30 2c 23 26 46 46 0d 0a 96 16 42 |CMP R0,#&FF....B|
00001d20 4c 4e 45 20 63 68 61 6e 67 65 63 6f 6c 6f 75 72 |LNE changecolour|
00001d30 25 0d 0a a0 18 41 44 44 53 20 52 39 2c 52 39 2c |%....ADDS R9,R9,|
00001d40 52 39 2c 52 4f 52 23 33 31 0d 0a aa 16 4d 4f 56 |R9,ROR#31....MOV|
00001d50 43 53 20 52 31 2c 52 31 2c 52 4f 52 23 31 36 0d |CS R1,R1,ROR#16.|
00001d60 0a b4 18 41 44 44 53 20 52 39 2c 52 39 2c 52 39 |...ADDS R9,R9,R9|
00001d70 2c 52 4f 52 23 33 31 0d 0a be 15 4d 4f 56 43 53 |,ROR#31....MOVCS|
00001d80 20 52 31 2c 52 31 2c 52 4f 52 23 38 0d 0a c8 14 | R1,R1,ROR#8....|
00001d90 53 54 52 42 20 52 31 2c 5b 52 31 32 5d 2c 23 31 |STRB R1,[R12],#1|
00001da0 0d 0a d2 17 41 44 44 53 20 52 31 31 2c 52 31 31 |....ADDS R11,R11|
00001db0 2c 23 31 3c 3c 31 36 0d 0a dc 0e 42 4c 45 20 78 |,#1<<16....BLE x|
00001dc0 6c 6f 6f 70 25 0d 0a e6 1d 41 44 44 20 52 31 32 |loop%....ADD R12|
00001dd0 2c 52 31 32 2c 23 6c 69 6e 63 25 2d 77 69 64 74 |,R12,#linc%-widt|
00001de0 68 25 0d 0a f0 13 53 55 42 53 20 52 31 31 2c 52 |h%....SUBS R11,R|
00001df0 31 31 2c 23 31 0d 0a fa 0e 42 47 54 20 79 6c 6f |11,#1....BGT ylo|
00001e00 6f 70 25 0d 0b 04 13 4c 44 4d 46 44 20 52 31 33 |op%....LDMFD R13|
00001e10 21 2c 7b 50 43 7d 0d 0b 0e 05 3a 0d 0b 18 12 2e |!,{PC}....:.....|
00001e20 63 68 61 6e 67 65 63 6f 6c 6f 75 72 25 0d 0b 22 |changecolour%.."|
00001e30 11 41 44 44 20 52 30 2c 52 31 30 2c 52 30 0d 0b |.ADD R0,R10,R0..|
00001e40 2c 13 4c 44 52 42 20 52 31 2c 5b 52 30 5d 2c 23 |,.LDRB R1,[R0],#|
00001e50 31 0d 0b 36 13 4c 44 52 42 20 52 32 2c 5b 52 30 |1..6.LDRB R2,[R0|
00001e60 5d 2c 23 31 0d 0b 40 15 84 52 20 52 31 2c 52 31 |],#1..@..R R1,R1|
00001e70 2c 52 32 2c 4c 53 4c 23 38 0d 0b 4a 13 4c 44 52 |,R2,LSL#8..J.LDR|
00001e80 42 20 52 32 2c 5b 52 30 5d 2c 23 31 0d 0b 54 16 |B R2,[R0],#1..T.|
00001e90 84 52 20 52 31 2c 52 31 2c 52 32 2c 4c 53 4c 23 |.R R1,R1,R2,LSL#|
00001ea0 31 36 0d 0b 5e 13 4c 44 52 42 20 52 32 2c 5b 52 |16..^.LDRB R2,[R|
00001eb0 30 5d 2c 23 31 0d 0b 68 16 84 52 20 52 31 2c 52 |0],#1..h..R R1,R|
00001ec0 31 2c 52 32 2c 4c 53 4c 23 32 34 0d 0b 72 0e 4d |1,R2,LSL#24..r.M|
00001ed0 4f 56 20 50 43 2c 52 31 34 0d 0b 7c 05 3a 0d 0b |OV PC,R14..|.:..|
00001ee0 86 09 2e 71 69 74 25 0d 0b 90 20 53 54 4d 49 41 |...qit%... STMIA|
00001ef0 20 52 31 30 21 2c 7b 52 30 2d 52 31 2c 52 32 2d | R10!,{R0-R1,R2-|
00001f00 52 33 2c 52 31 32 7d 0d 0b 9a 0e 43 4d 50 20 52 |R3,R12}....CMP R|
00001f10 31 30 2c 52 39 0d 0b a4 1b 53 55 42 47 45 20 52 |10,R9....SUBGE R|
00001f20 31 30 2c 52 31 30 2c 23 65 6e 64 71 25 2d 71 25 |10,R10,#endq%-q%|
00001f30 0d 0b ae 20 53 54 4d 46 44 20 52 31 33 21 2c 7b |... STMFD R13!,{|
00001f40 52 30 2d 52 31 2c 52 35 2d 52 39 2c 52 31 34 7d |R0-R1,R5-R9,R14}|
00001f50 0d 0b b8 0d 4d 4f 56 20 52 30 2c 52 32 0d 0b c2 |....MOV R0,R2...|
00001f60 0d 4d 4f 56 20 52 31 2c 52 33 0d 0b cc 12 4d 4f |.MOV R1,R3....MO|
00001f70 56 20 52 34 2c 23 6d 61 78 69 74 25 0d 0b d6 0b |V R4,#maxit%....|
00001f80 2e 69 6c 6f 6f 70 25 0d 0b e0 11 52 53 42 53 20 |.iloop%....RSBS |
00001f90 52 30 2c 52 30 2c 23 30 0d 0b ea 12 52 53 42 4c |R0,R0,#0....RSBL|
00001fa0 54 20 52 30 2c 52 30 2c 23 30 0d 0b f4 12 52 53 |T R0,R0,#0....RS|
00001fb0 42 47 45 20 52 31 2c 52 31 2c 23 30 0d 0b fe 11 |BGE R1,R1,#0....|
00001fc0 52 53 42 53 20 52 35 2c 52 31 2c 23 30 0d 0c 08 |RSBS R5,R1,#0...|
00001fd0 0f 4d 4f 56 4c 54 20 52 35 2c 52 31 0d 0c 12 12 |.MOVLT R5,R1....|
00001fe0 43 4d 50 20 52 30 2c 23 32 3c 3c 41 43 25 0d 0c |CMP R0,#2<<AC%..|
00001ff0 1c 14 43 4d 50 4c 54 20 52 35 2c 23 32 3c 3c 41 |..CMPLT R5,#2<<A|
00002000 43 25 0d 0c 26 0f 42 47 45 20 65 73 63 61 70 65 |C%..&.BGE escape|
00002010 25 0d 0c 30 15 4d 4f 56 20 52 36 2c 52 30 2c 4c |%..0.MOV R6,R0,L|
00002020 53 52 23 48 43 25 0d 0c 3a 18 53 55 42 20 52 30 |SR#HC%..:.SUB R0|
00002030 2c 52 30 2c 52 36 2c 4c 53 4c 23 48 43 25 0d 0c |,R0,R6,LSL#HC%..|
00002040 44 10 4d 55 4c 20 52 38 2c 52 30 2c 52 36 0d 0c |D.MUL R8,R0,R6..|
00002050 4e 10 4d 55 4c 20 52 39 2c 52 36 2c 52 36 0d 0c |N.MUL R9,R6,R6..|
00002060 58 1a 41 44 44 20 52 38 2c 52 39 2c 52 38 2c 4c |X.ADD R8,R9,R8,L|
00002070 53 52 23 48 43 25 2d 31 0d 0c 62 15 4d 4f 56 20 |SR#HC%-1..b.MOV |
00002080 52 37 2c 52 35 2c 4c 53 52 23 48 43 25 0d 0c 6c |R7,R5,LSR#HC%..l|
00002090 18 53 55 42 20 52 35 2c 52 35 2c 52 37 2c 4c 53 |.SUB R5,R5,R7,LS|
000020a0 4c 23 48 43 25 0d 0c 76 10 4d 55 4c 20 52 39 2c |L#HC%..v.MUL R9,|
000020b0 52 35 2c 52 37 0d 0c 80 10 4d 55 4c 20 52 35 2c |R5,R7....MUL R5,|
000020c0 52 37 2c 52 37 0d 0c 8a 1a 41 44 44 20 52 39 2c |R7,R7....ADD R9,|
000020d0 52 35 2c 52 39 2c 4c 53 52 23 48 43 25 2d 31 0d |R5,R9,LSR#HC%-1.|
000020e0 0c 94 10 41 44 44 20 52 38 2c 52 38 2c 52 39 0d |...ADD R8,R8,R9.|
000020f0 0c 9e 12 43 4d 50 20 52 38 2c 23 34 3c 3c 41 43 |...CMP R8,#4<<AC|
00002100 25 0d 0c a8 0f 42 47 45 20 65 73 63 61 70 65 25 |%....BGE escape%|
00002110 0d 0c b2 16 53 55 42 20 52 38 2c 52 38 2c 52 39 |....SUB R8,R8,R9|
00002120 2c 41 53 4c 23 31 0d 0c bc 15 4d 4f 56 20 52 37 |,ASL#1....MOV R7|
00002130 2c 52 31 2c 41 53 52 23 48 43 25 0d 0c c6 18 53 |,R1,ASR#HC%....S|
00002140 55 42 20 52 31 2c 52 31 2c 52 37 2c 41 53 4c 23 |UB R1,R1,R7,ASL#|
00002150 48 43 25 0d 0c d0 10 4d 55 4c 20 52 39 2c 52 36 |HC%....MUL R9,R6|
00002160 2c 52 37 0d 0c da 10 4d 55 4c 20 52 35 2c 52 31 |,R7....MUL R5,R1|
00002170 2c 52 36 0d 0c e4 13 4d 4c 41 20 52 35 2c 52 30 |,R6....MLA R5,R0|
00002180 2c 52 37 2c 52 35 0d 0c ee 18 41 44 44 20 52 39 |,R7,R5....ADD R9|
00002190 2c 52 39 2c 52 35 2c 41 53 52 23 48 43 25 0d 0c |,R9,R5,ASR#HC%..|
000021a0 f8 10 41 44 44 20 52 30 2c 52 32 2c 52 38 0d 0d |..ADD R0,R2,R8..|
000021b0 02 16 41 44 44 20 52 31 2c 52 33 2c 52 39 2c 41 |..ADD R1,R3,R9,A|
000021c0 53 4c 23 31 0d 0d 0c 11 53 55 42 53 20 52 34 2c |SL#1....SUBS R4,|
000021d0 52 34 2c 23 31 0d 0d 16 0e 42 47 54 20 69 6c 6f |R4,#1....BGT ilo|
000021e0 6f 70 25 0d 0d 20 0f 4d 4f 56 20 52 34 2c 23 32 |op%.. .MOV R4,#2|
000021f0 35 32 0d 0d 2a 11 53 54 52 42 20 52 34 2c 5b 52 |52..*.STRB R4,[R|
00002200 31 32 5d 0d 0d 34 1f 4c 44 4d 46 44 20 52 31 33 |12]..4.LDMFD R13|
00002210 21 2c 7b 52 30 2d 52 31 2c 52 35 2d 52 39 2c 50 |!,{R0-R1,R5-R9,P|
00002220 43 7d 0d 0d 3e 05 3a 0d 0d 48 0c 2e 65 73 63 61 |C}..>.:..H..esca|
00002230 70 65 25 0d 0d 52 15 52 53 42 20 52 35 2c 52 34 |pe%..R.RSB R5,R4|
00002240 2c 23 6d 61 78 69 74 25 0d 0d 5c 0d 4d 4f 56 20 |,#maxit%..\.MOV |
00002250 52 34 2c 23 30 0d 0d 66 12 43 4d 50 20 52 35 2c |R4,#0..f.CMP R5,|
00002260 23 4e 43 25 3c 3c 38 0d 0d 70 15 4d 4f 56 47 45 |#NC%<<8..p.MOVGE|
00002270 20 52 35 2c 52 35 2c 4c 53 52 23 38 0d 0d 7a 16 | R5,R5,LSR#8..z.|
00002280 41 44 44 47 45 20 52 34 2c 52 34 2c 23 4e 43 25 |ADDGE R4,R4,#NC%|
00002290 2a 38 0d 0d 84 12 43 4d 50 20 52 35 2c 23 4e 43 |*8....CMP R5,#NC|
000022a0 25 3c 3c 34 0d 0d 8e 15 4d 4f 56 47 45 20 52 35 |%<<4....MOVGE R5|
000022b0 2c 52 35 2c 4c 53 52 23 34 0d 0d 98 16 41 44 44 |,R5,LSR#4....ADD|
000022c0 47 45 20 52 34 2c 52 34 2c 23 4e 43 25 2a 34 0d |GE R4,R4,#NC%*4.|
000022d0 0d a2 12 43 4d 50 20 52 35 2c 23 4e 43 25 3c 3c |...CMP R5,#NC%<<|
000022e0 32 0d 0d ac 15 4d 4f 56 47 45 20 52 35 2c 52 35 |2....MOVGE R5,R5|
000022f0 2c 4c 53 52 23 32 0d 0d b6 16 41 44 44 47 45 20 |,LSR#2....ADDGE |
00002300 52 34 2c 52 34 2c 23 4e 43 25 2a 32 0d 0d c0 12 |R4,R4,#NC%*2....|
00002310 43 4d 50 20 52 35 2c 23 4e 43 25 3c 3c 31 0d 0d |CMP R5,#NC%<<1..|
00002320 ca 15 4d 4f 56 47 45 20 52 35 2c 52 35 2c 4c 53 |..MOVGE R5,R5,LS|
00002330 52 23 31 0d 0d d4 14 41 44 44 47 45 20 52 34 2c |R#1....ADDGE R4,|
00002340 52 34 2c 23 4e 43 25 0d 0d de 10 41 44 44 20 52 |R4,#NC%....ADD R|
00002350 34 2c 52 34 2c 52 35 0d 0d e8 16 43 4d 50 20 52 |4,R4,R5....CMP R|
00002360 34 2c 23 6d 61 78 63 6f 6c 25 3c 3c 33 0d 0d f2 |4,#maxcol%<<3...|
00002370 1b 53 55 42 47 45 20 52 34 2c 52 34 2c 23 6d 61 |.SUBGE R4,R4,#ma|
00002380 78 63 6f 6c 25 3c 3c 33 0d 0d fc 16 43 4d 50 20 |xcol%<<3....CMP |
00002390 52 34 2c 23 6d 61 78 63 6f 6c 25 3c 3c 32 0d 0e |R4,#maxcol%<<2..|
000023a0 06 1b 53 55 42 47 45 20 52 34 2c 52 34 2c 23 6d |..SUBGE R4,R4,#m|
000023b0 61 78 63 6f 6c 25 3c 3c 32 0d 0e 10 16 43 4d 50 |axcol%<<2....CMP|
000023c0 20 52 34 2c 23 6d 61 78 63 6f 6c 25 3c 3c 31 0d | R4,#maxcol%<<1.|
000023d0 0e 1a 1b 53 55 42 47 45 20 52 34 2c 52 34 2c 23 |...SUBGE R4,R4,#|
000023e0 6d 61 78 63 6f 6c 25 3c 3c 31 0d 0e 24 13 43 4d |maxcol%<<1..$.CM|
000023f0 50 20 52 34 2c 23 6d 61 78 63 6f 6c 25 0d 0e 2e |P R4,#maxcol%...|
00002400 18 53 55 42 47 45 20 52 34 2c 52 34 2c 23 6d 61 |.SUBGE R4,R4,#ma|
00002410 78 63 6f 6c 25 0d 0e 38 11 53 54 52 42 20 52 34 |xcol%..8.STRB R4|
00002420 2c 5b 52 31 32 5d 0d 0e 42 1f 4c 44 4d 46 44 20 |,[R12]..B.LDMFD |
00002430 52 31 33 21 2c 7b 52 30 2d 52 31 2c 52 35 2d 52 |R13!,{R0-R1,R5-R|
00002440 39 2c 50 43 7d 0d 0e 4c 05 3a 0d 0e 56 2f 5d 3a |9,PC}..L.:..V/]:|
00002450 e7 50 25 3e 65 6e 64 63 6f 64 65 25 8c 85 32 35 |.P%>endcode%..25|
00002460 35 2c 22 43 6f 64 65 20 69 73 6e 27 74 20 62 69 |5,"Code isn't bi|
00002470 67 20 65 6e 6f 75 67 68 22 0d 0e 60 05 ed 0d 0e |g enough"..`....|
00002480 6a 05 e1 0d ff |j....|
00002485 
.