Home » Personal collection » Acorn hard disk » misc » dcfprogs » Server1/OldMand/temp2

Server1/OldMand/temp2

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 » Personal collection » Acorn hard disk » misc » dcfprogs
Filename: Server1/OldMand/temp2
Read OK: ✔
File size: 0B11 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM ARM CODE MANDELBROT SET CALCULATION
   20:
   30ON ERROR REPORT:PRINT" @ ";ERL:END
   40MODE 15
   50PROCassemble
   60REM OSCLI ("MEMORYI "+STR$~space+" + C0")
   70PROCsetplot
   80END
   90:
  100DEFPROCsetplot
  110CALL setup
  120FOR B%=0 TO 1024 STEP 2
  130FOR C%=0 TO 1024 STEP 2
  140CALL mandpix
  150GCOL 0,(!output)+1
  160POINT B%,C%
  170NEXT,
  180ENDPROC
  190:
  200DEFPROCassemble
  210DIM space 1024
  220:
  230FOR p=0 TO 2 STEP 2
  240P%=space
  250[OPT p
  260\ MANDELBROT SET CALCULATION
  270\ R1=x |R2=y
  280:
  290\ F0=xpos
  300\ F1=ypos
  310\ F2=u
  320\ F3=v
  330:
  340.output EQUD 0
  350.mandpix         STMFD R13!,{R14}
  360                 MOV R11,#0
  370                 ADR R0,xmin                    \ Get X co-ordinate
  380EQUD &ECF00100 \ LDFE F0,[R0]
  390                 ADR R0,xstep
  400EQUD &ECF01100 \ LDFE F1,[R0]
  410EQUD &EE08A108 \ MVFE F2,#0
  420EQUD &EE192107 \ MLFE F2,F1,F7
  430EQUD &EE0A2101 \ ADFE F0,F0,F1
  440.mulxfin
  450EQUD &EE080102 \ ADFE F0,F0,F2
  460                 ADR R0,ymin                    \ Get Y co-ordinate
  470EQUD &ECF01100 \ LDFE F1,[R0]
  480                 ADR R0,ystep
  490EQUD &ECF02100 \ LDFE F2,[R0]
  500EQUD &EE08B108 \ MVFE F3,#0
  510.deyc
  520                 CMP R2,#0
  530                 BEQ mulyfin
  540EQUD &EE0B3102 \ ADFE F3,F3,F2
  550                 SUB R2,R2,#1
  560                 B deyc
  570.mulyfin
  580EQUD &EE091103 \ ADFE F1,F1,F3
  590EQUD &EE08A100 \ MVFE F2,F0
  600EQUD &EE08B101\  MVFE F3,F1
  610.pixloop
  620EQUD &EE1A4102 \ MLFE F4,F2,F2        \ Finished?
  630EQUD &EE1B5103 \ MLFE F5,F3,F3
  640EQUD &EE0C6105 \ ADFE F6,F4,F5
  650EQUD &EED6F11C \ CMFE F6,#4           \ ???
  660                 BCS found
  670                 ADD R11,R11,#1
  680                 ADR R3,maxit
  690                 LDR R10,[R3]
  700                 CMP R11,R10
  710                 BEQ found
  720EQUD &EE2C6105 \ SBFE F6,F4,F5                \ u=u^2-v^2+x
  730EQUD &EE0E6100 \ ADFE F6,F6,F0
  740EQUD &EE1A4103 \ MLFE F4,F2,F3                \ v=2uv+y
  750EQUD &EE0C4104 \ ADFE F4,F4,F4
  760EQUD &EE0C4101 \ ADFE F4,F4,F1
  770EQUD &EE08A106 \ MVFE F2,F6
  780EQUD &EE08B104 \ MVFE F3,F4
  790                 B pixloop
  800:
  810.found
  820ADR R0,output
  830STR R11,[R0]
  840LDMFD R13!,{PC}
  850:
  860.setup
  870EQUD &EE088108 \ MVFE F0,#0
  880EQUD &EE28010A \ SBFE F0,F0,#2
  890                 ADR R0,xmin
  900EQUD &ECE00100 \ STFE F0,[R0]
  910                 ADR R0,ymin
  920EQUD &ECE00100 \ STFE F0,[R0]
  930EQUD &EE08910A \ MVFE F0,#2
  940EQUD &EE49010C \ DVFE F0,F0,#4
  950EQUD &EE48110C \ DVFE F0,F0,#4
  960EQUD &EE49010C \ DVFE F0,F0,#4
  970EQUD &EE48110C \ DVFE F0,F0,#4
  980\EQUD &EE49010C \ DVFE F0,F0,#2
  990                 ADR R0,xstep
 1000EQUD &ECE00100 \ STFE F0,[R0]
 1010                 ADR R0,ystep
 1020EQUD &ECE00100 \ STFE F0,[R0]
 1030                 MOV PC,R14
 1040.xmin EQUD 0:EQUD0:EQUD0
 1050.ymin EQUD 0:EQUD0:EQUD0
 1060.xstep EQUD 0:EQUD0:EQUD0
 1070.ystep EQUD 0:EQUD0:EQUD0
 1080.maxit EQUD 25:EQUD0:EQUD0
 1090.stack
 1100]
 1110NEXT
 1120ENDPROC


)� ARM CODE MANDELBROT SET CALCULATION
:
� � �:�" @ ";�:�
(� 15
2
�assemble
<+� OSCLI ("MEMORYI "+STR$~space+" + C0")
F�setplot
P�
Z:
d
��setplot
n� setup
x� B%=0 � 1024 � 2
�� C%=0 � 1024 � 2
�
� mandpix
�� 0,(!output)+1
�Ȓ B%,C%
��,
��
�:
���assemble
�� space 1024
�:
�� p=0 � 2 � 2
�P%=space
�
[OPT p
 \ MANDELBROT SET CALCULATION
\ R1=x |R2=y
:
"
\ F0=xpos
,
\ F1=ypos
6
\ F2=u
@
\ F3=v
J:
T.output EQUD 0
^%.mandpix         STMFD R13!,{R14}
h                 MOV R11,#0
rG                 ADR R0,xmin                    \ Get X co-ordinate
|!EQUD &ECF00100 \ LDFE F0,[R0]
�!                 ADR R0,xstep
�!EQUD &ECF01100 \ LDFE F1,[R0]
�EQUD &EE08A108 \ MVFE F2,#0
�"EQUD &EE192107 \ MLFE F2,F1,F7
�"EQUD &EE0A2101 \ ADFE F0,F0,F1
�.mulxfin
�"EQUD &EE080102 \ ADFE F0,F0,F2
�G                 ADR R0,ymin                    \ Get Y co-ordinate
�!EQUD &ECF01100 \ LDFE F1,[R0]
�!                 ADR R0,ystep
�!EQUD &ECF02100 \ LDFE F2,[R0]
�EQUD &EE08B108 \ MVFE F3,#0
�	.deyc
                 CMP R2,#0
                  BEQ mulyfin
"EQUD &EE0B3102 \ ADFE F3,F3,F2
&!                 SUB R2,R2,#1
0                 B deyc
:.mulyfin
D"EQUD &EE091103 \ ADFE F1,F1,F3
NEQUD &EE08A100 \ MVFE F2,F0
XEQUD &EE08B101\  MVFE F3,F1
b.pixloop
l5EQUD &EE1A4102 \ MLFE F4,F2,F2        \ Finished?
v"EQUD &EE1B5103 \ MLFE F5,F3,F3
�"EQUD &EE0C6105 \ ADFE F6,F4,F5
�/EQUD &EED6F11C \ CMFE F6,#4           \ ???
�                 BCS found
�#                 ADD R11,R11,#1
�!                 ADR R3,maxit
�!                 LDR R10,[R3]
�                  CMP R11,R10
�                 BEQ found
�?EQUD &EE2C6105 \ SBFE F6,F4,F5                \ u=u^2-v^2+x
�"EQUD &EE0E6100 \ ADFE F6,F6,F0
�;EQUD &EE1A4103 \ MLFE F4,F2,F3                \ v=2uv+y
�"EQUD &EE0C4104 \ ADFE F4,F4,F4
�"EQUD &EE0C4101 \ ADFE F4,F4,F1
EQUD &EE08A106 \ MVFE F2,F6
EQUD &EE08B104 \ MVFE F3,F4
                 B pixloop
 :
*
.found
4ADR R0,output
>STR R11,[R0]
HLDMFD R13!,{PC}
R:
\
.setup
fEQUD &EE088108 \ MVFE F0,#0
p"EQUD &EE28010A \ SBFE F0,F0,#2
z                  ADR R0,xmin
�!EQUD &ECE00100 \ STFE F0,[R0]
�                  ADR R0,ymin
�!EQUD &ECE00100 \ STFE F0,[R0]
�EQUD &EE08910A \ MVFE F0,#2
�"EQUD &EE49010C \ DVFE F0,F0,#4
�"EQUD &EE48110C \ DVFE F0,F0,#4
�"EQUD &EE49010C \ DVFE F0,F0,#4
�"EQUD &EE48110C \ DVFE F0,F0,#4
�#\EQUD &EE49010C \ DVFE F0,F0,#2
�!                 ADR R0,xstep
�!EQUD &ECE00100 \ STFE F0,[R0]
�!                 ADR R0,ystep
�!EQUD &ECE00100 \ STFE F0,[R0]
                 MOV PC,R14
.xmin EQUD 0:EQUD0:EQUD0
.ymin EQUD 0:EQUD0:EQUD0
$.xstep EQUD 0:EQUD0:EQUD0
..ystep EQUD 0:EQUD0:EQUD0
8.maxit EQUD 25:EQUD0:EQUD0
B
.stack
L]
V�
`�
�
00000000  0d 00 0a 29 f4 20 41 52  4d 20 43 4f 44 45 20 4d  |...). ARM CODE M|
00000010  41 4e 44 45 4c 42 52 4f  54 20 53 45 54 20 43 41  |ANDELBROT SET CA|
00000020  4c 43 55 4c 41 54 49 4f  4e 0d 00 14 05 3a 0d 00  |LCULATION....:..|
00000030  1e 14 ee 20 85 20 f6 3a  f1 22 20 40 20 22 3b 9e  |... . .:." @ ";.|
00000040  3a e0 0d 00 28 08 eb 20  31 35 0d 00 32 0d f2 61  |:...(.. 15..2..a|
00000050  73 73 65 6d 62 6c 65 0d  00 3c 2b f4 20 4f 53 43  |ssemble..<+. OSC|
00000060  4c 49 20 28 22 4d 45 4d  4f 52 59 49 20 22 2b 53  |LI ("MEMORYI "+S|
00000070  54 52 24 7e 73 70 61 63  65 2b 22 20 2b 20 43 30  |TR$~space+" + C0|
00000080  22 29 0d 00 46 0c f2 73  65 74 70 6c 6f 74 0d 00  |")..F..setplot..|
00000090  50 05 e0 0d 00 5a 05 3a  0d 00 64 0d dd f2 73 65  |P....Z.:..d...se|
000000a0  74 70 6c 6f 74 0d 00 6e  0b d6 20 73 65 74 75 70  |tplot..n.. setup|
000000b0  0d 00 78 15 e3 20 42 25  3d 30 20 b8 20 31 30 32  |..x.. B%=0 . 102|
000000c0  34 20 88 20 32 0d 00 82  15 e3 20 43 25 3d 30 20  |4 . 2..... C%=0 |
000000d0  b8 20 31 30 32 34 20 88  20 32 0d 00 8c 0d d6 20  |. 1024 . 2..... |
000000e0  6d 61 6e 64 70 69 78 0d  00 96 13 e6 20 30 2c 28  |mandpix..... 0,(|
000000f0  21 6f 75 74 70 75 74 29  2b 31 0d 00 a0 0c c8 92  |!output)+1......|
00000100  20 42 25 2c 43 25 0d 00  aa 06 ed 2c 0d 00 b4 05  | B%,C%.....,....|
00000110  e1 0d 00 be 05 3a 0d 00  c8 0e dd f2 61 73 73 65  |.....:......asse|
00000120  6d 62 6c 65 0d 00 d2 10  de 20 73 70 61 63 65 20  |mble..... space |
00000130  31 30 32 34 0d 00 dc 05  3a 0d 00 e6 11 e3 20 70  |1024....:..... p|
00000140  3d 30 20 b8 20 32 20 88  20 32 0d 00 f0 0c 50 25  |=0 . 2 . 2....P%|
00000150  3d 73 70 61 63 65 0d 00  fa 0a 5b 4f 50 54 20 70  |=space....[OPT p|
00000160  0d 01 04 20 5c 20 4d 41  4e 44 45 4c 42 52 4f 54  |... \ MANDELBROT|
00000170  20 53 45 54 20 43 41 4c  43 55 4c 41 54 49 4f 4e  | SET CALCULATION|
00000180  0d 01 0e 10 5c 20 52 31  3d 78 20 7c 52 32 3d 79  |....\ R1=x |R2=y|
00000190  0d 01 18 05 3a 0d 01 22  0d 5c 20 46 30 3d 78 70  |....:..".\ F0=xp|
000001a0  6f 73 0d 01 2c 0d 5c 20  46 31 3d 79 70 6f 73 0d  |os..,.\ F1=ypos.|
000001b0  01 36 0a 5c 20 46 32 3d  75 0d 01 40 0a 5c 20 46  |.6.\ F2=u..@.\ F|
000001c0  33 3d 76 0d 01 4a 05 3a  0d 01 54 12 2e 6f 75 74  |3=v..J.:..T..out|
000001d0  70 75 74 20 45 51 55 44  20 30 0d 01 5e 25 2e 6d  |put EQUD 0..^%.m|
000001e0  61 6e 64 70 69 78 20 20  20 20 20 20 20 20 20 53  |andpix         S|
000001f0  54 4d 46 44 20 52 31 33  21 2c 7b 52 31 34 7d 0d  |TMFD R13!,{R14}.|
00000200  01 68 1f 20 20 20 20 20  20 20 20 20 20 20 20 20  |.h.             |
00000210  20 20 20 20 4d 4f 56 20  52 31 31 2c 23 30 0d 01  |    MOV R11,#0..|
00000220  72 47 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |rG              |
00000230  20 20 20 41 44 52 20 52  30 2c 78 6d 69 6e 20 20  |   ADR R0,xmin  |
00000240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000250  20 20 5c 20 47 65 74 20  58 20 63 6f 2d 6f 72 64  |  \ Get X co-ord|
00000260  69 6e 61 74 65 0d 01 7c  21 45 51 55 44 20 26 45  |inate..|!EQUD &E|
00000270  43 46 30 30 31 30 30 20  5c 20 4c 44 46 45 20 46  |CF00100 \ LDFE F|
00000280  30 2c 5b 52 30 5d 0d 01  86 21 20 20 20 20 20 20  |0,[R0]...!      |
00000290  20 20 20 20 20 20 20 20  20 20 20 41 44 52 20 52  |           ADR R|
000002a0  30 2c 78 73 74 65 70 0d  01 90 21 45 51 55 44 20  |0,xstep...!EQUD |
000002b0  26 45 43 46 30 31 31 30  30 20 5c 20 4c 44 46 45  |&ECF01100 \ LDFE|
000002c0  20 46 31 2c 5b 52 30 5d  0d 01 9a 1f 45 51 55 44  | F1,[R0]....EQUD|
000002d0  20 26 45 45 30 38 41 31  30 38 20 5c 20 4d 56 46  | &EE08A108 \ MVF|
000002e0  45 20 46 32 2c 23 30 0d  01 a4 22 45 51 55 44 20  |E F2,#0..."EQUD |
000002f0  26 45 45 31 39 32 31 30  37 20 5c 20 4d 4c 46 45  |&EE192107 \ MLFE|
00000300  20 46 32 2c 46 31 2c 46  37 0d 01 ae 22 45 51 55  | F2,F1,F7..."EQU|
00000310  44 20 26 45 45 30 41 32  31 30 31 20 5c 20 41 44  |D &EE0A2101 \ AD|
00000320  46 45 20 46 30 2c 46 30  2c 46 31 0d 01 b8 0c 2e  |FE F0,F0,F1.....|
00000330  6d 75 6c 78 66 69 6e 0d  01 c2 22 45 51 55 44 20  |mulxfin..."EQUD |
00000340  26 45 45 30 38 30 31 30  32 20 5c 20 41 44 46 45  |&EE080102 \ ADFE|
00000350  20 46 30 2c 46 30 2c 46  32 0d 01 cc 47 20 20 20  | F0,F0,F2...G   |
00000360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 41 44  |              AD|
00000370  52 20 52 30 2c 79 6d 69  6e 20 20 20 20 20 20 20  |R R0,ymin       |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 47  |             \ G|
00000390  65 74 20 59 20 63 6f 2d  6f 72 64 69 6e 61 74 65  |et Y co-ordinate|
000003a0  0d 01 d6 21 45 51 55 44  20 26 45 43 46 30 31 31  |...!EQUD &ECF011|
000003b0  30 30 20 5c 20 4c 44 46  45 20 46 31 2c 5b 52 30  |00 \ LDFE F1,[R0|
000003c0  5d 0d 01 e0 21 20 20 20  20 20 20 20 20 20 20 20  |]...!           |
000003d0  20 20 20 20 20 20 41 44  52 20 52 30 2c 79 73 74  |      ADR R0,yst|
000003e0  65 70 0d 01 ea 21 45 51  55 44 20 26 45 43 46 30  |ep...!EQUD &ECF0|
000003f0  32 31 30 30 20 5c 20 4c  44 46 45 20 46 32 2c 5b  |2100 \ LDFE F2,[|
00000400  52 30 5d 0d 01 f4 1f 45  51 55 44 20 26 45 45 30  |R0]....EQUD &EE0|
00000410  38 42 31 30 38 20 5c 20  4d 56 46 45 20 46 33 2c  |8B108 \ MVFE F3,|
00000420  23 30 0d 01 fe 09 2e 64  65 79 63 0d 02 08 1e 20  |#0.....deyc.... |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000440  43 4d 50 20 52 32 2c 23  30 0d 02 12 20 20 20 20  |CMP R2,#0...    |
00000450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 42 45  |              BE|
00000460  51 20 6d 75 6c 79 66 69  6e 0d 02 1c 22 45 51 55  |Q mulyfin..."EQU|
00000470  44 20 26 45 45 30 42 33  31 30 32 20 5c 20 41 44  |D &EE0B3102 \ AD|
00000480  46 45 20 46 33 2c 46 33  2c 46 32 0d 02 26 21 20  |FE F3,F3,F2..&! |
00000490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004a0  53 55 42 20 52 32 2c 52  32 2c 23 31 0d 02 30 1b  |SUB R2,R2,#1..0.|
000004b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004c0  20 42 20 64 65 79 63 0d  02 3a 0c 2e 6d 75 6c 79  | B deyc..:..muly|
000004d0  66 69 6e 0d 02 44 22 45  51 55 44 20 26 45 45 30  |fin..D"EQUD &EE0|
000004e0  39 31 31 30 33 20 5c 20  41 44 46 45 20 46 31 2c  |91103 \ ADFE F1,|
000004f0  46 31 2c 46 33 0d 02 4e  1f 45 51 55 44 20 26 45  |F1,F3..N.EQUD &E|
00000500  45 30 38 41 31 30 30 20  5c 20 4d 56 46 45 20 46  |E08A100 \ MVFE F|
00000510  32 2c 46 30 0d 02 58 1f  45 51 55 44 20 26 45 45  |2,F0..X.EQUD &EE|
00000520  30 38 42 31 30 31 5c 20  20 4d 56 46 45 20 46 33  |08B101\  MVFE F3|
00000530  2c 46 31 0d 02 62 0c 2e  70 69 78 6c 6f 6f 70 0d  |,F1..b..pixloop.|
00000540  02 6c 35 45 51 55 44 20  26 45 45 31 41 34 31 30  |.l5EQUD &EE1A410|
00000550  32 20 5c 20 4d 4c 46 45  20 46 34 2c 46 32 2c 46  |2 \ MLFE F4,F2,F|
00000560  32 20 20 20 20 20 20 20  20 5c 20 46 69 6e 69 73  |2        \ Finis|
00000570  68 65 64 3f 0d 02 76 22  45 51 55 44 20 26 45 45  |hed?..v"EQUD &EE|
00000580  31 42 35 31 30 33 20 5c  20 4d 4c 46 45 20 46 35  |1B5103 \ MLFE F5|
00000590  2c 46 33 2c 46 33 0d 02  80 22 45 51 55 44 20 26  |,F3,F3..."EQUD &|
000005a0  45 45 30 43 36 31 30 35  20 5c 20 41 44 46 45 20  |EE0C6105 \ ADFE |
000005b0  46 36 2c 46 34 2c 46 35  0d 02 8a 2f 45 51 55 44  |F6,F4,F5.../EQUD|
000005c0  20 26 45 45 44 36 46 31  31 43 20 5c 20 43 4d 46  | &EED6F11C \ CMF|
000005d0  45 20 46 36 2c 23 34 20  20 20 20 20 20 20 20 20  |E F6,#4         |
000005e0  20 20 5c 20 3f 3f 3f 0d  02 94 1e 20 20 20 20 20  |  \ ???....     |
000005f0  20 20 20 20 20 20 20 20  20 20 20 20 42 43 53 20  |            BCS |
00000600  66 6f 75 6e 64 0d 02 9e  23 20 20 20 20 20 20 20  |found...#       |
00000610  20 20 20 20 20 20 20 20  20 20 41 44 44 20 52 31  |          ADD R1|
00000620  31 2c 52 31 31 2c 23 31  0d 02 a8 21 20 20 20 20  |1,R11,#1...!    |
00000630  20 20 20 20 20 20 20 20  20 20 20 20 20 41 44 52  |             ADR|
00000640  20 52 33 2c 6d 61 78 69  74 0d 02 b2 21 20 20 20  | R3,maxit...!   |
00000650  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |              LD|
00000660  52 20 52 31 30 2c 5b 52  33 5d 0d 02 bc 20 20 20  |R R10,[R3]...   |
00000670  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 43  |               C|
00000680  4d 50 20 52 31 31 2c 52  31 30 0d 02 c6 1e 20 20  |MP R11,R10....  |
00000690  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |               B|
000006a0  45 51 20 66 6f 75 6e 64  0d 02 d0 3f 45 51 55 44  |EQ found...?EQUD|
000006b0  20 26 45 45 32 43 36 31  30 35 20 5c 20 53 42 46  | &EE2C6105 \ SBF|
000006c0  45 20 46 36 2c 46 34 2c  46 35 20 20 20 20 20 20  |E F6,F4,F5      |
000006d0  20 20 20 20 20 20 20 20  20 20 5c 20 75 3d 75 5e  |          \ u=u^|
000006e0  32 2d 76 5e 32 2b 78 0d  02 da 22 45 51 55 44 20  |2-v^2+x..."EQUD |
000006f0  26 45 45 30 45 36 31 30  30 20 5c 20 41 44 46 45  |&EE0E6100 \ ADFE|
00000700  20 46 36 2c 46 36 2c 46  30 0d 02 e4 3b 45 51 55  | F6,F6,F0...;EQU|
00000710  44 20 26 45 45 31 41 34  31 30 33 20 5c 20 4d 4c  |D &EE1A4103 \ ML|
00000720  46 45 20 46 34 2c 46 32  2c 46 33 20 20 20 20 20  |FE F4,F2,F3     |
00000730  20 20 20 20 20 20 20 20  20 20 20 5c 20 76 3d 32  |           \ v=2|
00000740  75 76 2b 79 0d 02 ee 22  45 51 55 44 20 26 45 45  |uv+y..."EQUD &EE|
00000750  30 43 34 31 30 34 20 5c  20 41 44 46 45 20 46 34  |0C4104 \ ADFE F4|
00000760  2c 46 34 2c 46 34 0d 02  f8 22 45 51 55 44 20 26  |,F4,F4..."EQUD &|
00000770  45 45 30 43 34 31 30 31  20 5c 20 41 44 46 45 20  |EE0C4101 \ ADFE |
00000780  46 34 2c 46 34 2c 46 31  0d 03 02 1f 45 51 55 44  |F4,F4,F1....EQUD|
00000790  20 26 45 45 30 38 41 31  30 36 20 5c 20 4d 56 46  | &EE08A106 \ MVF|
000007a0  45 20 46 32 2c 46 36 0d  03 0c 1f 45 51 55 44 20  |E F2,F6....EQUD |
000007b0  26 45 45 30 38 42 31 30  34 20 5c 20 4d 56 46 45  |&EE08B104 \ MVFE|
000007c0  20 46 33 2c 46 34 0d 03  16 1e 20 20 20 20 20 20  | F3,F4....      |
000007d0  20 20 20 20 20 20 20 20  20 20 20 42 20 70 69 78  |           B pix|
000007e0  6c 6f 6f 70 0d 03 20 05  3a 0d 03 2a 0a 2e 66 6f  |loop.. .:..*..fo|
000007f0  75 6e 64 0d 03 34 11 41  44 52 20 52 30 2c 6f 75  |und..4.ADR R0,ou|
00000800  74 70 75 74 0d 03 3e 10  53 54 52 20 52 31 31 2c  |tput..>.STR R11,|
00000810  5b 52 30 5d 0d 03 48 13  4c 44 4d 46 44 20 52 31  |[R0]..H.LDMFD R1|
00000820  33 21 2c 7b 50 43 7d 0d  03 52 05 3a 0d 03 5c 0a  |3!,{PC}..R.:..\.|
00000830  2e 73 65 74 75 70 0d 03  66 1f 45 51 55 44 20 26  |.setup..f.EQUD &|
00000840  45 45 30 38 38 31 30 38  20 5c 20 4d 56 46 45 20  |EE088108 \ MVFE |
00000850  46 30 2c 23 30 0d 03 70  22 45 51 55 44 20 26 45  |F0,#0..p"EQUD &E|
00000860  45 32 38 30 31 30 41 20  5c 20 53 42 46 45 20 46  |E28010A \ SBFE F|
00000870  30 2c 46 30 2c 23 32 0d  03 7a 20 20 20 20 20 20  |0,F0,#2..z      |
00000880  20 20 20 20 20 20 20 20  20 20 20 20 41 44 52 20  |            ADR |
00000890  52 30 2c 78 6d 69 6e 0d  03 84 21 45 51 55 44 20  |R0,xmin...!EQUD |
000008a0  26 45 43 45 30 30 31 30  30 20 5c 20 53 54 46 45  |&ECE00100 \ STFE|
000008b0  20 46 30 2c 5b 52 30 5d  0d 03 8e 20 20 20 20 20  | F0,[R0]...     |
000008c0  20 20 20 20 20 20 20 20  20 20 20 20 20 41 44 52  |             ADR|
000008d0  20 52 30 2c 79 6d 69 6e  0d 03 98 21 45 51 55 44  | R0,ymin...!EQUD|
000008e0  20 26 45 43 45 30 30 31  30 30 20 5c 20 53 54 46  | &ECE00100 \ STF|
000008f0  45 20 46 30 2c 5b 52 30  5d 0d 03 a2 1f 45 51 55  |E F0,[R0]....EQU|
00000900  44 20 26 45 45 30 38 39  31 30 41 20 5c 20 4d 56  |D &EE08910A \ MV|
00000910  46 45 20 46 30 2c 23 32  0d 03 ac 22 45 51 55 44  |FE F0,#2..."EQUD|
00000920  20 26 45 45 34 39 30 31  30 43 20 5c 20 44 56 46  | &EE49010C \ DVF|
00000930  45 20 46 30 2c 46 30 2c  23 34 0d 03 b6 22 45 51  |E F0,F0,#4..."EQ|
00000940  55 44 20 26 45 45 34 38  31 31 30 43 20 5c 20 44  |UD &EE48110C \ D|
00000950  56 46 45 20 46 30 2c 46  30 2c 23 34 0d 03 c0 22  |VFE F0,F0,#4..."|
00000960  45 51 55 44 20 26 45 45  34 39 30 31 30 43 20 5c  |EQUD &EE49010C \|
00000970  20 44 56 46 45 20 46 30  2c 46 30 2c 23 34 0d 03  | DVFE F0,F0,#4..|
00000980  ca 22 45 51 55 44 20 26  45 45 34 38 31 31 30 43  |."EQUD &EE48110C|
00000990  20 5c 20 44 56 46 45 20  46 30 2c 46 30 2c 23 34  | \ DVFE F0,F0,#4|
000009a0  0d 03 d4 23 5c 45 51 55  44 20 26 45 45 34 39 30  |...#\EQUD &EE490|
000009b0  31 30 43 20 5c 20 44 56  46 45 20 46 30 2c 46 30  |10C \ DVFE F0,F0|
000009c0  2c 23 32 0d 03 de 21 20  20 20 20 20 20 20 20 20  |,#2...!         |
000009d0  20 20 20 20 20 20 20 20  41 44 52 20 52 30 2c 78  |        ADR R0,x|
000009e0  73 74 65 70 0d 03 e8 21  45 51 55 44 20 26 45 43  |step...!EQUD &EC|
000009f0  45 30 30 31 30 30 20 5c  20 53 54 46 45 20 46 30  |E00100 \ STFE F0|
00000a00  2c 5b 52 30 5d 0d 03 f2  21 20 20 20 20 20 20 20  |,[R0]...!       |
00000a10  20 20 20 20 20 20 20 20  20 20 41 44 52 20 52 30  |          ADR R0|
00000a20  2c 79 73 74 65 70 0d 03  fc 21 45 51 55 44 20 26  |,ystep...!EQUD &|
00000a30  45 43 45 30 30 31 30 30  20 5c 20 53 54 46 45 20  |ECE00100 \ STFE |
00000a40  46 30 2c 5b 52 30 5d 0d  04 06 1f 20 20 20 20 20  |F0,[R0]....     |
00000a50  20 20 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |            MOV |
00000a60  50 43 2c 52 31 34 0d 04  10 1c 2e 78 6d 69 6e 20  |PC,R14.....xmin |
00000a70  45 51 55 44 20 30 3a 45  51 55 44 30 3a 45 51 55  |EQUD 0:EQUD0:EQU|
00000a80  44 30 0d 04 1a 1c 2e 79  6d 69 6e 20 45 51 55 44  |D0.....ymin EQUD|
00000a90  20 30 3a 45 51 55 44 30  3a 45 51 55 44 30 0d 04  | 0:EQUD0:EQUD0..|
00000aa0  24 1d 2e 78 73 74 65 70  20 45 51 55 44 20 30 3a  |$..xstep EQUD 0:|
00000ab0  45 51 55 44 30 3a 45 51  55 44 30 0d 04 2e 1d 2e  |EQUD0:EQUD0.....|
00000ac0  79 73 74 65 70 20 45 51  55 44 20 30 3a 45 51 55  |ystep EQUD 0:EQU|
00000ad0  44 30 3a 45 51 55 44 30  0d 04 38 1e 2e 6d 61 78  |D0:EQUD0..8..max|
00000ae0  69 74 20 45 51 55 44 20  32 35 3a 45 51 55 44 30  |it EQUD 25:EQUD0|
00000af0  3a 45 51 55 44 30 0d 04  42 0a 2e 73 74 61 63 6b  |:EQUD0..B..stack|
00000b00  0d 04 4c 05 5d 0d 04 56  05 ed 0d 04 60 05 e1 0d  |..L.]..V....`...|
00000b10  ff                                                |.|
00000b11

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .