Mandel/MANDELFAST

Home » Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » Mandel/MANDELFAST

Mandel/MANDELFAST

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 ADFS disks » Electron » Cheat_finder.ADF
Filename:	Mandel/MANDELFAST
Read OK:	✔
File size:	110A bytes
Load address:	FFFF2800
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » Mandel/MANDELFAST
Personal collection » Acorn hard disk » zipped_disks » elk07 » cheatfind/Mandel/MANDELFAST

File contents

   10 mc=&1D00
   20 FORpass=0 TO 2 STEP 2:P%=mc:[OPTpass
   30 .u1Xu2
   40 LDA#0:STAuS:STAuS+1:STAuS+2:STAuS+3:STAp:STAp+1:STAp+2:STAu2+4:STAu2+5:STAu2+6:STAu2+7
   50 LDY#26:.l1 LSRu1+3:RORu1+2:RORu1+1:RORu1:BCSadd1:JMPnextbit1:.add1
   60 CLC:LDAu2:ADCp:STAp:LDAu2+1:ADCp+1:STAp+1:LDAu2+2:ADCp+2:STAp+2:LDAu2+3:ADCuS:STAuS
   70 LDAu2+4:ADCuS+1:STAuS+1:LDAu2+5:ADCuS+2:STAuS+2:LDAu2+6:ADCuS+3:STAuS+3
   80 .nextbit1 ASLu2:ROLu2+1:ROLu2+2:ROLu2+3:ROLu2+4:ROLu2+5:ROLu2+6:ROLu2+7
   90 DEY:BEQret1:JMPl1:.ret1 RTS
  100 .v1Xv2
  110 LDA#0:STAvS:STAvS+1:STAvS+2:STAvS+3:STAp:STAp+1:STAp+2:STAv2+4:STAv2+5:STAv2+6:STAv2+7
  120 LDY#26:.l2 LSRv1+3:RORv1+2:RORv1+1:RORv1:BCSadd2:JMPnextbit2:.add2
  130 CLC:LDAv2:ADCp:STAp:LDAv2+1:ADCp+1:STAp+1:LDAv2+2:ADCp+2:STAp+2:LDAv2+3:ADCvS:STAvS
  140 LDAv2+4:ADCvS+1:STAvS+1:LDAv2+5:ADCvS+2:STAvS+2:LDAv2+6:ADCvS+3:STAvS+3
  150 .nextbit2 ASLv2:ROLv2+1:ROLv2+2:ROLv2+3:ROLv2+4:ROLv2+5:ROLv2+6:ROLv2+7
  160 DEY:BEQret2:JMPl2:.ret2 RTS
  170 .u1Xv1X2
  180 LDA#0:STAuv:STAuv+1:STAuv+2:STAuv+3:STAp:STAp+1:STAp+2:STAv+4:STAv+5:STAv+6:STAv+7
  190 LDY#26:.l3 ASLv:ROLv+1:ROLv+2:ROLv+3:ROLv+4:ROLv+5:ROLv+6:ROLv+7
  200 LSRu+3:RORu+2:RORu+1:RORu:BCSadd3:JMPnextbit3:.add3
  210 CLC:LDAv:ADCp:STAp:LDAv+1:ADCp+1:STAp+1:LDAv+2:ADCp+2:STAp+2:LDAv+3:ADCuv:STAuv
  220 LDAv+4:ADCuv+1:STAuv+1:LDAv+5:ADCuv+2:STAuv+2:LDAv+6:ADCuv+3:STAuv+3
  230 .nextbit3
  240 DEY:BEQret3:JMPl3:.ret3 RTS
  250 .calc
  260 LDX#0
  270 .loop
  280 LDAu:STAu1:STAu2:LDAu+1:STAu1+1:STAu2+1:LDAu+2:STAu1+2:STAu2+2:LDAu+3:STAu1+3:STAu2+3:JSRu1Xu2
  290 LDAv:STAv1:STAv2:LDAv+1:STAv1+1:STAv2+1:LDAv+2:STAv1+2:STAv2+2:LDAv+3:STAv1+3:STAv2+3:JSRv1Xv2
  300 CLC:LDAuS:ADCvS:LDAuS+1:ADCvS+1:LDAuS+2:ADCvS+2:LDAuS+3:ADCvS+3:CMP#4:BCCcont:RTS:.cont
  310 JSRu1Xv1X2
  320 LDAusignflag:SEC:SBCvsignflag:BNEsubuv
  330 LDAuv:STAv:LDAuv+1:STAv+1:LDAuv+2:STAv+2:LDAuv+3:STAv+3:JMPysigntest
  340 .subuv SEC:LDA#0:SBCuv:STAv:LDA#0:SBCuv+1:STAv+1:LDA#0:SBCuv+2:STAv+2:LDA#0:SBCuv+3:STAv+3
  350 .ysigntest LDAysignflag:BEQsuby
  360 CLC:LDAv:ADCy:STAv:LDAv+1:ADCy+1:STAv+1:LDAv+2:ADCy+2:STAv+2:LDAv+3:ADCy+3:STAv+3:JMPvtest
  370 .suby SEC:LDAv:SBCy:STAv:LDAv+1:SBCy+1:STAv+1:LDAv+2:SBCy+2:STAv+2:LDAv+3:SBCy+3:STAv+3
  380 .vtest LDA#1:STAvsignflag:LDAv+3:AND#&80:BEQnewu:LDA#0:SEC:SBCv:STAv:LDA#0:SBCv+1:STAv+1:LDA#0:SBCv+2:STAv+2:LDA#0:SBCv+3:STAv+3:DECvsignflag
  390 .newu SEC:LDAuS:SBCvS:STAu:LDAuS+1:SBCvS+1:STAu+1:LDAuS+2:SBCvS+2:STAu+2:LDAuS+3:SBCvS+3:STAu+3
  400 LDAxsignflag:BEQsubx
  410 CLC:LDAu:ADCx:STAu:LDAu+1:ADCx+1:STAu+1:LDAu+2:ADCx+2:STAu+2:LDAu+3:ADCx+3:STAu+3:JMPutest
  420 .subx SEC:LDAu:SBCx:STAu:LDAu+1:SBCx+1:STAu+1:LDAu+2:SBCx+2:STAu+2:LDAu+3:SBCx+3:STAu+3
  430 .utest LDA#1:STAusignflag:LDAu+3:AND#&80:BEQret:LDA#0:SEC:SBCu:STAu:LDA#0:SBCu+1:STAu+1:LDA#0:SBCu+2:STAu+2:LDA#0:SBCu+3:STAu+3:DECusignflag
  440 .ret INX:CPX#25:BCCagain:RTS:.again JMPloop
  450 .code
  460 LDA#0:STAxcoord:STAxcoord+1
  470 .xloop LDA#0:STAx:STAx+1:STAx+2:STAx+3
  480 LDAxcoord+1:CMP#2:BCCxneg
  490 SEC:LDAxcoord:STAx+2:LDAxcoord+1:SBC#2:STAx+3:LDA#1:STAxsignflag:JMPnewy
  500 .xneg SEC:LDA#0:SBCxcoord:STAx+2:LDA#2:SBCxcoord+1:STAx+3:LDA#0:STAxsignflag
  510 .newy LDA#0:STAycoord:STAycoord+1
  520 .yloop LDA#0:STAy:STAy+1:STAy+2:STAy+3
  530 LDAycoord+1:CMP#2:BCCyneg
  540 SEC:LDAycoord:STAy+2:LDAycoord+1:SBC#2:STAy+3:LDA#1:STAysignflag:JMPmain
  550 .yneg SEC:LDA#0:SBCycoord:STAy+2:LDA#2:SBCycoord+1:STAy+3:LDA#0:STAysignflag
  560 .main
  570 LDAxsignflag:STAusignflag:LDAx:STAu:LDAx+1:STAu+1:LDAx+2:STAu+2:LDAx+3:STAu+3
  580 LDAysignflag:STAvsignflag:LDAy:STAv:LDAy+1:STAv+1:LDAy+2:STAv+2:LDAy+3:STAv+3
  590 JSRcalc
  600 LDA#18:JSR&FFEE:LDA#0:JSR&FFEE:TXA:JSR&FFEE:LDA#25:JSR&FFEE:LDA#4:JSR&FFEE:LDAxcoord:JSR&FFEE:LDAxcoord+1:JSR&FFEE:LDAycoord:JSR&FFEE:LDAycoord+1:JSR&FFEE
  610 LDA#25:JSR&FFEE:LDA#5:JSR&FFEE:LDAxcoord:JSR&FFEE:LDAxcoord+1:JSR&FFEE:LDAycoord:JSR&FFEE:LDAycoord+1:JSR&FFEE
  620 CLC:LDAycoord:ADC#4:STAycoord:LDAycoord+1:ADC#0:STAycoord+1:CMP#4:BEQnextx:JMPyloop
  630 .nextx CLC:LDAxcoord:ADC#4:STAxcoord:LDAxcoord+1:ADC#0:STAxcoord+1:CMP#4:BEQend:JMPxloop
  640 .end RTS
  650 .uS EQUD0:EQUD0:.p EQUD0:EQUD0:.u2 EQUD0:EQUD0:EQUD0:EQUD0:.u1 EQUD0:EQUD0:.vS EQUD0:EQUD0:.v2 EQUD0:EQUD0:EQUD0:EQUD0:.v1 EQUD0:EQUD0:.uv EQUD0:EQUD0:.v EQUD0:EQUD0:EQUD0:EQUD0:.u EQUD0:EQUD0
  660 .usignflag EQUB0:.vsignflag EQUB0:.xsignflag EQUB0:.ysignflag EQUB0:.xcoord EQUW0:.ycoord EQUW0:.x EQUD0:EQUD0:.y EQUD0:EQUD0
  670 ]:NEXT
  680 OSCLI"SAVE codefast "+STR$~mc+" "+STR$~P%+" "+STR$~code



 mc=&1D00
# �pass=0 � 2 � 2:P%=mc:[OPTpass
 .u1Xu2
([ LDA#0:STAuS:STAuS+1:STAuS+2:STAuS+3:STAp:STAp+1:STAp+2:STAu2+4:STAu2+5:STAu2+6:STAu2+7
2G LDY#26:.l1 LSRu1+3:RORu1+2:RORu1+1:RORu1:BCSadd1:JMPnextbit1:.add1
<X CLC:LDAu2:ADCp:STAp:LDAu2+1:ADCp+1:STAp+1:LDAu2+2:ADCp+2:STAp+2:LDAu2+3:ADCuS:STAuS
FL LDAu2+4:ADCuS+1:STAuS+1:LDAu2+5:ADCuS+2:STAuS+2:LDAu2+6:ADCuS+3:STAuS+3
PL .nextbit1 ASLu2:ROLu2+1:ROLu2+2:ROLu2+3:ROLu2+4:ROLu2+5:ROLu2+6:ROLu2+7
Z  DEY:BEQret1:JMPl1:.ret1 RTS
d .v1Xv2
n[ LDA#0:STAvS:STAvS+1:STAvS+2:STAvS+3:STAp:STAp+1:STAp+2:STAv2+4:STAv2+5:STAv2+6:STAv2+7
xG LDY#26:.l2 LSRv1+3:RORv1+2:RORv1+1:RORv1:BCSadd2:JMPnextbit2:.add2
�X CLC:LDAv2:ADCp:STAp:LDAv2+1:ADCp+1:STAp+1:LDAv2+2:ADCp+2:STAp+2:LDAv2+3:ADCvS:STAvS
�L LDAv2+4:ADCvS+1:STAvS+1:LDAv2+5:ADCvS+2:STAvS+2:LDAv2+6:ADCvS+3:STAvS+3
�L .nextbit2 ASLv2:ROLv2+1:ROLv2+2:ROLv2+3:ROLv2+4:ROLv2+5:ROLv2+6:ROLv2+7
�  DEY:BEQret2:JMPl2:.ret2 RTS
�
 .u1Xv1X2
�W LDA#0:STAuv:STAuv+1:STAuv+2:STAuv+3:STAp:STAp+1:STAp+2:STAv+4:STAv+5:STAv+6:STAv+7
�E LDY#26:.l3 ASLv:ROLv+1:ROLv+2:ROLv+3:ROLv+4:ROLv+5:ROLv+6:ROLv+7
�8 LSRu+3:RORu+2:RORu+1:RORu:BCSadd3:JMPnextbit3:.add3
�T CLC:LDAv:ADCp:STAp:LDAv+1:ADCp+1:STAp+1:LDAv+2:ADCp+2:STAp+2:LDAv+3:ADCuv:STAuv
�I LDAv+4:ADCuv+1:STAuv+1:LDAv+5:ADCuv+2:STAuv+2:LDAv+6:ADCuv+3:STAuv+3
� .nextbit3
�  DEY:BEQret3:JMPl3:.ret3 RTS
�
 .calc
 LDX#0

 .loop
c LDAu:STAu1:STAu2:LDAu+1:STAu1+1:STAu2+1:LDAu+2:STAu1+2:STAu2+2:LDAu+3:STAu1+3:STAu2+3:JSRu1Xu2
"c LDAv:STAv1:STAv2:LDAv+1:STAv1+1:STAv2+1:LDAv+2:STAv1+2:STAv2+2:LDAv+3:STAv1+3:STAv2+3:JSRv1Xv2
,\ CLC:LDAuS:ADCvS:LDAuS+1:ADCvS+1:LDAuS+2:ADCvS+2:LDAuS+3:ADCvS+3:CMP#4:BCCcont:RTS:.cont
6 JSRu1Xv1X2
@+ LDAusignflag:SEC:SBCvsignflag:BNEsubuv
JI LDAuv:STAv:LDAuv+1:STAv+1:LDAuv+2:STAv+2:LDAuv+3:STAv+3:JMPysigntest
T_ .subuv SEC:LDA#0:SBCuv:STAv:LDA#0:SBCuv+1:STAv+1:LDA#0:SBCuv+2:STAv+2:LDA#0:SBCuv+3:STAv+3
^$ .ysigntest LDAysignflag:BEQsuby
h_ CLC:LDAv:ADCy:STAv:LDAv+1:ADCy+1:STAv+1:LDAv+2:ADCy+2:STAv+2:LDAv+3:ADCy+3:STAv+3:JMPvtest
r\ .suby SEC:LDAv:SBCy:STAv:LDAv+1:SBCy+1:STAv+1:LDAv+2:SBCy+2:STAv+2:LDAv+3:SBCy+3:STAv+3
|� .vtest LDA#1:STAvsignflag:LDAv+3:�#&80:BEQnewu:LDA#0:SEC:SBCv:STAv:LDA#0:SBCv+1:STAv+1:LDA#0:SBCv+2:STAv+2:LDA#0:SBCv+3:STAv+3:DECvsignflag
�d .newu SEC:LDAuS:SBCvS:STAu:LDAuS+1:SBCvS+1:STAu+1:LDAuS+2:SBCvS+2:STAu+2:LDAuS+3:SBCvS+3:STAu+3
� LDAxsignflag:BEQsubx
�_ CLC:LDAu:ADCx:STAu:LDAu+1:ADCx+1:STAu+1:LDAu+2:ADCx+2:STAu+2:LDAu+3:ADCx+3:STAu+3:JMPutest
�\ .subx SEC:LDAu:SBCx:STAu:LDAu+1:SBCx+1:STAu+1:LDAu+2:SBCx+2:STAu+2:LDAu+3:SBCx+3:STAu+3
�� .utest LDA#1:STAusignflag:LDAu+3:�#&80:BEQret:LDA#0:SEC:SBCu:STAu:LDA#0:SBCu+1:STAu+1:LDA#0:SBCu+2:STAu+2:LDA#0:SBCu+3:STAu+3:DECusignflag
�0 .ret INX:CPX#25:BCCagain:RTS:.again JMPloop
�
 .code
�  LDA#0:STAxcoord:STAxcoord+1
�+ .xloop LDA#0:STAx:STAx+1:STAx+2:STAx+3
� LDAxcoord+1:CMP#2:BCCxneg
�M SEC:LDAxcoord:STAx+2:LDAxcoord+1:SBC#2:STAx+3:LDA#1:STAxsignflag:JMPnewy
�Q .xneg SEC:LDA#0:SBCxcoord:STAx+2:LDA#2:SBCxcoord+1:STAx+3:LDA#0:STAxsignflag
�& .newy LDA#0:STAycoord:STAycoord+1
+ .yloop LDA#0:STAy:STAy+1:STAy+2:STAy+3
 LDAycoord+1:CMP#2:BCCyneg
M SEC:LDAycoord:STAy+2:LDAycoord+1:SBC#2:STAy+3:LDA#1:STAysignflag:JMPmain
&Q .yneg SEC:LDA#0:SBCycoord:STAy+2:LDA#2:SBCycoord+1:STAy+3:LDA#0:STAysignflag
0
 .main
:R LDAxsignflag:STAusignflag:LDAx:STAu:LDAx+1:STAu+1:LDAx+2:STAu+2:LDAx+3:STAu+3
DR LDAysignflag:STAvsignflag:LDAy:STAv:LDAy+1:STAv+1:LDAy+2:STAv+2:LDAy+3:STAv+3
N JSRcalc
X� LDA#18:JSR&FFEE:LDA#0:JSR&FFEE:TXA:JSR&FFEE:LDA#25:JSR&FFEE:LDA#4:JSR&FFEE:LDAxcoord:JSR&FFEE:LDAxcoord+1:JSR&FFEE:LDAycoord:JSR&FFEE:LDAycoord+1:JSR&FFEE
bs LDA#25:JSR&FFEE:LDA#5:JSR&FFEE:LDAxcoord:JSR&FFEE:LDAxcoord+1:JSR&FFEE:LDAycoord:JSR&FFEE:LDAycoord+1:JSR&FFEE
lX CLC:LDAycoord:ADC#4:STAycoord:LDAycoord+1:ADC#0:STAycoord+1:CMP#4:BEQnextx:JMPyloop
v] .nextx CLC:LDAxcoord:ADC#4:STAxcoord:LDAxcoord+1:ADC#0:STAxcoord+1:CMP#4:BEQend:JMPxloop
�
 .end RTS
�� .uS EQUD0:EQUD0:.p EQUD0:EQUD0:.u2 EQUD0:EQUD0:EQUD0:EQUD0:.u1 EQUD0:EQUD0:.vS EQUD0:EQUD0:.v2 EQUD0:EQUD0:EQUD0:EQUD0:.v1 EQUD0:EQUD0:.uv EQUD0:EQUD0:.v EQUD0:EQUD0:EQUD0:EQUD0:.u EQUD0:EQUD0
�� .usignflag EQUB0:.vsignflag EQUB0:.xsignflag EQUB0:.ysignflag EQUB0:.xcoord EQUW0:.ycoord EQUW0:.x EQUD0:EQUD0:.y EQUD0:EQUD0
� ]:�
�/ �"SAVE codefast "+�~mc+" "+�~P%+" "+�~code
�

00000000  0d 00 0a 0d 20 6d 63 3d  26 31 44 30 30 0d 00 14  |.... mc=&1D00...|
00000010  23 20 e3 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |# .pass=0 . 2 . |
00000020  32 3a 50 25 3d 6d 63 3a  5b 4f 50 54 70 61 73 73  |2:P%=mc:[OPTpass|
00000030  0d 00 1e 0b 20 2e 75 31  58 75 32 0d 00 28 5b 20  |.... .u1Xu2..([ |
00000040  4c 44 41 23 30 3a 53 54  41 75 53 3a 53 54 41 75  |LDA#0:STAuS:STAu|
00000050  53 2b 31 3a 53 54 41 75  53 2b 32 3a 53 54 41 75  |S+1:STAuS+2:STAu|
00000060  53 2b 33 3a 53 54 41 70  3a 53 54 41 70 2b 31 3a  |S+3:STAp:STAp+1:|
00000070  53 54 41 70 2b 32 3a 53  54 41 75 32 2b 34 3a 53  |STAp+2:STAu2+4:S|
00000080  54 41 75 32 2b 35 3a 53  54 41 75 32 2b 36 3a 53  |TAu2+5:STAu2+6:S|
00000090  54 41 75 32 2b 37 0d 00  32 47 20 4c 44 59 23 32  |TAu2+7..2G LDY#2|
000000a0  36 3a 2e 6c 31 20 4c 53  52 75 31 2b 33 3a 52 4f  |6:.l1 LSRu1+3:RO|
000000b0  52 75 31 2b 32 3a 52 4f  52 75 31 2b 31 3a 52 4f  |Ru1+2:RORu1+1:RO|
000000c0  52 75 31 3a 42 43 53 61  64 64 31 3a 4a 4d 50 6e  |Ru1:BCSadd1:JMPn|
000000d0  65 78 74 62 69 74 31 3a  2e 61 64 64 31 0d 00 3c  |extbit1:.add1..<|
000000e0  58 20 43 4c 43 3a 4c 44  41 75 32 3a 41 44 43 70  |X CLC:LDAu2:ADCp|
000000f0  3a 53 54 41 70 3a 4c 44  41 75 32 2b 31 3a 41 44  |:STAp:LDAu2+1:AD|
00000100  43 70 2b 31 3a 53 54 41  70 2b 31 3a 4c 44 41 75  |Cp+1:STAp+1:LDAu|
00000110  32 2b 32 3a 41 44 43 70  2b 32 3a 53 54 41 70 2b  |2+2:ADCp+2:STAp+|
00000120  32 3a 4c 44 41 75 32 2b  33 3a 41 44 43 75 53 3a  |2:LDAu2+3:ADCuS:|
00000130  53 54 41 75 53 0d 00 46  4c 20 4c 44 41 75 32 2b  |STAuS..FL LDAu2+|
00000140  34 3a 41 44 43 75 53 2b  31 3a 53 54 41 75 53 2b  |4:ADCuS+1:STAuS+|
00000150  31 3a 4c 44 41 75 32 2b  35 3a 41 44 43 75 53 2b  |1:LDAu2+5:ADCuS+|
00000160  32 3a 53 54 41 75 53 2b  32 3a 4c 44 41 75 32 2b  |2:STAuS+2:LDAu2+|
00000170  36 3a 41 44 43 75 53 2b  33 3a 53 54 41 75 53 2b  |6:ADCuS+3:STAuS+|
00000180  33 0d 00 50 4c 20 2e 6e  65 78 74 62 69 74 31 20  |3..PL .nextbit1 |
00000190  41 53 4c 75 32 3a 52 4f  4c 75 32 2b 31 3a 52 4f  |ASLu2:ROLu2+1:RO|
000001a0  4c 75 32 2b 32 3a 52 4f  4c 75 32 2b 33 3a 52 4f  |Lu2+2:ROLu2+3:RO|
000001b0  4c 75 32 2b 34 3a 52 4f  4c 75 32 2b 35 3a 52 4f  |Lu2+4:ROLu2+5:RO|
000001c0  4c 75 32 2b 36 3a 52 4f  4c 75 32 2b 37 0d 00 5a  |Lu2+6:ROLu2+7..Z|
000001d0  20 20 44 45 59 3a 42 45  51 72 65 74 31 3a 4a 4d  |  DEY:BEQret1:JM|
000001e0  50 6c 31 3a 2e 72 65 74  31 20 52 54 53 0d 00 64  |Pl1:.ret1 RTS..d|
000001f0  0b 20 2e 76 31 58 76 32  0d 00 6e 5b 20 4c 44 41  |. .v1Xv2..n[ LDA|
00000200  23 30 3a 53 54 41 76 53  3a 53 54 41 76 53 2b 31  |#0:STAvS:STAvS+1|
00000210  3a 53 54 41 76 53 2b 32  3a 53 54 41 76 53 2b 33  |:STAvS+2:STAvS+3|
00000220  3a 53 54 41 70 3a 53 54  41 70 2b 31 3a 53 54 41  |:STAp:STAp+1:STA|
00000230  70 2b 32 3a 53 54 41 76  32 2b 34 3a 53 54 41 76  |p+2:STAv2+4:STAv|
00000240  32 2b 35 3a 53 54 41 76  32 2b 36 3a 53 54 41 76  |2+5:STAv2+6:STAv|
00000250  32 2b 37 0d 00 78 47 20  4c 44 59 23 32 36 3a 2e  |2+7..xG LDY#26:.|
00000260  6c 32 20 4c 53 52 76 31  2b 33 3a 52 4f 52 76 31  |l2 LSRv1+3:RORv1|
00000270  2b 32 3a 52 4f 52 76 31  2b 31 3a 52 4f 52 76 31  |+2:RORv1+1:RORv1|
00000280  3a 42 43 53 61 64 64 32  3a 4a 4d 50 6e 65 78 74  |:BCSadd2:JMPnext|
00000290  62 69 74 32 3a 2e 61 64  64 32 0d 00 82 58 20 43  |bit2:.add2...X C|
000002a0  4c 43 3a 4c 44 41 76 32  3a 41 44 43 70 3a 53 54  |LC:LDAv2:ADCp:ST|
000002b0  41 70 3a 4c 44 41 76 32  2b 31 3a 41 44 43 70 2b  |Ap:LDAv2+1:ADCp+|
000002c0  31 3a 53 54 41 70 2b 31  3a 4c 44 41 76 32 2b 32  |1:STAp+1:LDAv2+2|
000002d0  3a 41 44 43 70 2b 32 3a  53 54 41 70 2b 32 3a 4c  |:ADCp+2:STAp+2:L|
000002e0  44 41 76 32 2b 33 3a 41  44 43 76 53 3a 53 54 41  |DAv2+3:ADCvS:STA|
000002f0  76 53 0d 00 8c 4c 20 4c  44 41 76 32 2b 34 3a 41  |vS...L LDAv2+4:A|
00000300  44 43 76 53 2b 31 3a 53  54 41 76 53 2b 31 3a 4c  |DCvS+1:STAvS+1:L|
00000310  44 41 76 32 2b 35 3a 41  44 43 76 53 2b 32 3a 53  |DAv2+5:ADCvS+2:S|
00000320  54 41 76 53 2b 32 3a 4c  44 41 76 32 2b 36 3a 41  |TAvS+2:LDAv2+6:A|
00000330  44 43 76 53 2b 33 3a 53  54 41 76 53 2b 33 0d 00  |DCvS+3:STAvS+3..|
00000340  96 4c 20 2e 6e 65 78 74  62 69 74 32 20 41 53 4c  |.L .nextbit2 ASL|
00000350  76 32 3a 52 4f 4c 76 32  2b 31 3a 52 4f 4c 76 32  |v2:ROLv2+1:ROLv2|
00000360  2b 32 3a 52 4f 4c 76 32  2b 33 3a 52 4f 4c 76 32  |+2:ROLv2+3:ROLv2|
00000370  2b 34 3a 52 4f 4c 76 32  2b 35 3a 52 4f 4c 76 32  |+4:ROLv2+5:ROLv2|
00000380  2b 36 3a 52 4f 4c 76 32  2b 37 0d 00 a0 20 20 44  |+6:ROLv2+7...  D|
00000390  45 59 3a 42 45 51 72 65  74 32 3a 4a 4d 50 6c 32  |EY:BEQret2:JMPl2|
000003a0  3a 2e 72 65 74 32 20 52  54 53 0d 00 aa 0d 20 2e  |:.ret2 RTS.... .|
000003b0  75 31 58 76 31 58 32 0d  00 b4 57 20 4c 44 41 23  |u1Xv1X2...W LDA#|
000003c0  30 3a 53 54 41 75 76 3a  53 54 41 75 76 2b 31 3a  |0:STAuv:STAuv+1:|
000003d0  53 54 41 75 76 2b 32 3a  53 54 41 75 76 2b 33 3a  |STAuv+2:STAuv+3:|
000003e0  53 54 41 70 3a 53 54 41  70 2b 31 3a 53 54 41 70  |STAp:STAp+1:STAp|
000003f0  2b 32 3a 53 54 41 76 2b  34 3a 53 54 41 76 2b 35  |+2:STAv+4:STAv+5|
00000400  3a 53 54 41 76 2b 36 3a  53 54 41 76 2b 37 0d 00  |:STAv+6:STAv+7..|
00000410  be 45 20 4c 44 59 23 32  36 3a 2e 6c 33 20 41 53  |.E LDY#26:.l3 AS|
00000420  4c 76 3a 52 4f 4c 76 2b  31 3a 52 4f 4c 76 2b 32  |Lv:ROLv+1:ROLv+2|
00000430  3a 52 4f 4c 76 2b 33 3a  52 4f 4c 76 2b 34 3a 52  |:ROLv+3:ROLv+4:R|
00000440  4f 4c 76 2b 35 3a 52 4f  4c 76 2b 36 3a 52 4f 4c  |OLv+5:ROLv+6:ROL|
00000450  76 2b 37 0d 00 c8 38 20  4c 53 52 75 2b 33 3a 52  |v+7...8 LSRu+3:R|
00000460  4f 52 75 2b 32 3a 52 4f  52 75 2b 31 3a 52 4f 52  |ORu+2:RORu+1:ROR|
00000470  75 3a 42 43 53 61 64 64  33 3a 4a 4d 50 6e 65 78  |u:BCSadd3:JMPnex|
00000480  74 62 69 74 33 3a 2e 61  64 64 33 0d 00 d2 54 20  |tbit3:.add3...T |
00000490  43 4c 43 3a 4c 44 41 76  3a 41 44 43 70 3a 53 54  |CLC:LDAv:ADCp:ST|
000004a0  41 70 3a 4c 44 41 76 2b  31 3a 41 44 43 70 2b 31  |Ap:LDAv+1:ADCp+1|
000004b0  3a 53 54 41 70 2b 31 3a  4c 44 41 76 2b 32 3a 41  |:STAp+1:LDAv+2:A|
000004c0  44 43 70 2b 32 3a 53 54  41 70 2b 32 3a 4c 44 41  |DCp+2:STAp+2:LDA|
000004d0  76 2b 33 3a 41 44 43 75  76 3a 53 54 41 75 76 0d  |v+3:ADCuv:STAuv.|
000004e0  00 dc 49 20 4c 44 41 76  2b 34 3a 41 44 43 75 76  |..I LDAv+4:ADCuv|
000004f0  2b 31 3a 53 54 41 75 76  2b 31 3a 4c 44 41 76 2b  |+1:STAuv+1:LDAv+|
00000500  35 3a 41 44 43 75 76 2b  32 3a 53 54 41 75 76 2b  |5:ADCuv+2:STAuv+|
00000510  32 3a 4c 44 41 76 2b 36  3a 41 44 43 75 76 2b 33  |2:LDAv+6:ADCuv+3|
00000520  3a 53 54 41 75 76 2b 33  0d 00 e6 0e 20 2e 6e 65  |:STAuv+3.... .ne|
00000530  78 74 62 69 74 33 0d 00  f0 20 20 44 45 59 3a 42  |xtbit3...  DEY:B|
00000540  45 51 72 65 74 33 3a 4a  4d 50 6c 33 3a 2e 72 65  |EQret3:JMPl3:.re|
00000550  74 33 20 52 54 53 0d 00  fa 0a 20 2e 63 61 6c 63  |t3 RTS.... .calc|
00000560  0d 01 04 0a 20 4c 44 58  23 30 0d 01 0e 0a 20 2e  |.... LDX#0.... .|
00000570  6c 6f 6f 70 0d 01 18 63  20 4c 44 41 75 3a 53 54  |loop...c LDAu:ST|
00000580  41 75 31 3a 53 54 41 75  32 3a 4c 44 41 75 2b 31  |Au1:STAu2:LDAu+1|
00000590  3a 53 54 41 75 31 2b 31  3a 53 54 41 75 32 2b 31  |:STAu1+1:STAu2+1|
000005a0  3a 4c 44 41 75 2b 32 3a  53 54 41 75 31 2b 32 3a  |:LDAu+2:STAu1+2:|
000005b0  53 54 41 75 32 2b 32 3a  4c 44 41 75 2b 33 3a 53  |STAu2+2:LDAu+3:S|
000005c0  54 41 75 31 2b 33 3a 53  54 41 75 32 2b 33 3a 4a  |TAu1+3:STAu2+3:J|
000005d0  53 52 75 31 58 75 32 0d  01 22 63 20 4c 44 41 76  |SRu1Xu2.."c LDAv|
000005e0  3a 53 54 41 76 31 3a 53  54 41 76 32 3a 4c 44 41  |:STAv1:STAv2:LDA|
000005f0  76 2b 31 3a 53 54 41 76  31 2b 31 3a 53 54 41 76  |v+1:STAv1+1:STAv|
00000600  32 2b 31 3a 4c 44 41 76  2b 32 3a 53 54 41 76 31  |2+1:LDAv+2:STAv1|
00000610  2b 32 3a 53 54 41 76 32  2b 32 3a 4c 44 41 76 2b  |+2:STAv2+2:LDAv+|
00000620  33 3a 53 54 41 76 31 2b  33 3a 53 54 41 76 32 2b  |3:STAv1+3:STAv2+|
00000630  33 3a 4a 53 52 76 31 58  76 32 0d 01 2c 5c 20 43  |3:JSRv1Xv2..,\ C|
00000640  4c 43 3a 4c 44 41 75 53  3a 41 44 43 76 53 3a 4c  |LC:LDAuS:ADCvS:L|
00000650  44 41 75 53 2b 31 3a 41  44 43 76 53 2b 31 3a 4c  |DAuS+1:ADCvS+1:L|
00000660  44 41 75 53 2b 32 3a 41  44 43 76 53 2b 32 3a 4c  |DAuS+2:ADCvS+2:L|
00000670  44 41 75 53 2b 33 3a 41  44 43 76 53 2b 33 3a 43  |DAuS+3:ADCvS+3:C|
00000680  4d 50 23 34 3a 42 43 43  63 6f 6e 74 3a 52 54 53  |MP#4:BCCcont:RTS|
00000690  3a 2e 63 6f 6e 74 0d 01  36 0f 20 4a 53 52 75 31  |:.cont..6. JSRu1|
000006a0  58 76 31 58 32 0d 01 40  2b 20 4c 44 41 75 73 69  |Xv1X2..@+ LDAusi|
000006b0  67 6e 66 6c 61 67 3a 53  45 43 3a 53 42 43 76 73  |gnflag:SEC:SBCvs|
000006c0  69 67 6e 66 6c 61 67 3a  42 4e 45 73 75 62 75 76  |ignflag:BNEsubuv|
000006d0  0d 01 4a 49 20 4c 44 41  75 76 3a 53 54 41 76 3a  |..JI LDAuv:STAv:|
000006e0  4c 44 41 75 76 2b 31 3a  53 54 41 76 2b 31 3a 4c  |LDAuv+1:STAv+1:L|
000006f0  44 41 75 76 2b 32 3a 53  54 41 76 2b 32 3a 4c 44  |DAuv+2:STAv+2:LD|
00000700  41 75 76 2b 33 3a 53 54  41 76 2b 33 3a 4a 4d 50  |Auv+3:STAv+3:JMP|
00000710  79 73 69 67 6e 74 65 73  74 0d 01 54 5f 20 2e 73  |ysigntest..T_ .s|
00000720  75 62 75 76 20 53 45 43  3a 4c 44 41 23 30 3a 53  |ubuv SEC:LDA#0:S|
00000730  42 43 75 76 3a 53 54 41  76 3a 4c 44 41 23 30 3a  |BCuv:STAv:LDA#0:|
00000740  53 42 43 75 76 2b 31 3a  53 54 41 76 2b 31 3a 4c  |SBCuv+1:STAv+1:L|
00000750  44 41 23 30 3a 53 42 43  75 76 2b 32 3a 53 54 41  |DA#0:SBCuv+2:STA|
00000760  76 2b 32 3a 4c 44 41 23  30 3a 53 42 43 75 76 2b  |v+2:LDA#0:SBCuv+|
00000770  33 3a 53 54 41 76 2b 33  0d 01 5e 24 20 2e 79 73  |3:STAv+3..^$ .ys|
00000780  69 67 6e 74 65 73 74 20  4c 44 41 79 73 69 67 6e  |igntest LDAysign|
00000790  66 6c 61 67 3a 42 45 51  73 75 62 79 0d 01 68 5f  |flag:BEQsuby..h_|
000007a0  20 43 4c 43 3a 4c 44 41  76 3a 41 44 43 79 3a 53  | CLC:LDAv:ADCy:S|
000007b0  54 41 76 3a 4c 44 41 76  2b 31 3a 41 44 43 79 2b  |TAv:LDAv+1:ADCy+|
000007c0  31 3a 53 54 41 76 2b 31  3a 4c 44 41 76 2b 32 3a  |1:STAv+1:LDAv+2:|
000007d0  41 44 43 79 2b 32 3a 53  54 41 76 2b 32 3a 4c 44  |ADCy+2:STAv+2:LD|
000007e0  41 76 2b 33 3a 41 44 43  79 2b 33 3a 53 54 41 76  |Av+3:ADCy+3:STAv|
000007f0  2b 33 3a 4a 4d 50 76 74  65 73 74 0d 01 72 5c 20  |+3:JMPvtest..r\ |
00000800  2e 73 75 62 79 20 53 45  43 3a 4c 44 41 76 3a 53  |.suby SEC:LDAv:S|
00000810  42 43 79 3a 53 54 41 76  3a 4c 44 41 76 2b 31 3a  |BCy:STAv:LDAv+1:|
00000820  53 42 43 79 2b 31 3a 53  54 41 76 2b 31 3a 4c 44  |SBCy+1:STAv+1:LD|
00000830  41 76 2b 32 3a 53 42 43  79 2b 32 3a 53 54 41 76  |Av+2:SBCy+2:STAv|
00000840  2b 32 3a 4c 44 41 76 2b  33 3a 53 42 43 79 2b 33  |+2:LDAv+3:SBCy+3|
00000850  3a 53 54 41 76 2b 33 0d  01 7c 90 20 2e 76 74 65  |:STAv+3..|. .vte|
00000860  73 74 20 4c 44 41 23 31  3a 53 54 41 76 73 69 67  |st LDA#1:STAvsig|
00000870  6e 66 6c 61 67 3a 4c 44  41 76 2b 33 3a 80 23 26  |nflag:LDAv+3:.#&|
00000880  38 30 3a 42 45 51 6e 65  77 75 3a 4c 44 41 23 30  |80:BEQnewu:LDA#0|
00000890  3a 53 45 43 3a 53 42 43  76 3a 53 54 41 76 3a 4c  |:SEC:SBCv:STAv:L|
000008a0  44 41 23 30 3a 53 42 43  76 2b 31 3a 53 54 41 76  |DA#0:SBCv+1:STAv|
000008b0  2b 31 3a 4c 44 41 23 30  3a 53 42 43 76 2b 32 3a  |+1:LDA#0:SBCv+2:|
000008c0  53 54 41 76 2b 32 3a 4c  44 41 23 30 3a 53 42 43  |STAv+2:LDA#0:SBC|
000008d0  76 2b 33 3a 53 54 41 76  2b 33 3a 44 45 43 76 73  |v+3:STAv+3:DECvs|
000008e0  69 67 6e 66 6c 61 67 0d  01 86 64 20 2e 6e 65 77  |ignflag...d .new|
000008f0  75 20 53 45 43 3a 4c 44  41 75 53 3a 53 42 43 76  |u SEC:LDAuS:SBCv|
00000900  53 3a 53 54 41 75 3a 4c  44 41 75 53 2b 31 3a 53  |S:STAu:LDAuS+1:S|
00000910  42 43 76 53 2b 31 3a 53  54 41 75 2b 31 3a 4c 44  |BCvS+1:STAu+1:LD|
00000920  41 75 53 2b 32 3a 53 42  43 76 53 2b 32 3a 53 54  |AuS+2:SBCvS+2:ST|
00000930  41 75 2b 32 3a 4c 44 41  75 53 2b 33 3a 53 42 43  |Au+2:LDAuS+3:SBC|
00000940  76 53 2b 33 3a 53 54 41  75 2b 33 0d 01 90 19 20  |vS+3:STAu+3.... |
00000950  4c 44 41 78 73 69 67 6e  66 6c 61 67 3a 42 45 51  |LDAxsignflag:BEQ|
00000960  73 75 62 78 0d 01 9a 5f  20 43 4c 43 3a 4c 44 41  |subx..._ CLC:LDA|
00000970  75 3a 41 44 43 78 3a 53  54 41 75 3a 4c 44 41 75  |u:ADCx:STAu:LDAu|
00000980  2b 31 3a 41 44 43 78 2b  31 3a 53 54 41 75 2b 31  |+1:ADCx+1:STAu+1|
00000990  3a 4c 44 41 75 2b 32 3a  41 44 43 78 2b 32 3a 53  |:LDAu+2:ADCx+2:S|
000009a0  54 41 75 2b 32 3a 4c 44  41 75 2b 33 3a 41 44 43  |TAu+2:LDAu+3:ADC|
000009b0  78 2b 33 3a 53 54 41 75  2b 33 3a 4a 4d 50 75 74  |x+3:STAu+3:JMPut|
000009c0  65 73 74 0d 01 a4 5c 20  2e 73 75 62 78 20 53 45  |est...\ .subx SE|
000009d0  43 3a 4c 44 41 75 3a 53  42 43 78 3a 53 54 41 75  |C:LDAu:SBCx:STAu|
000009e0  3a 4c 44 41 75 2b 31 3a  53 42 43 78 2b 31 3a 53  |:LDAu+1:SBCx+1:S|
000009f0  54 41 75 2b 31 3a 4c 44  41 75 2b 32 3a 53 42 43  |TAu+1:LDAu+2:SBC|
00000a00  78 2b 32 3a 53 54 41 75  2b 32 3a 4c 44 41 75 2b  |x+2:STAu+2:LDAu+|
00000a10  33 3a 53 42 43 78 2b 33  3a 53 54 41 75 2b 33 0d  |3:SBCx+3:STAu+3.|
00000a20  01 ae 8f 20 2e 75 74 65  73 74 20 4c 44 41 23 31  |... .utest LDA#1|
00000a30  3a 53 54 41 75 73 69 67  6e 66 6c 61 67 3a 4c 44  |:STAusignflag:LD|
00000a40  41 75 2b 33 3a 80 23 26  38 30 3a 42 45 51 72 65  |Au+3:.#&80:BEQre|
00000a50  74 3a 4c 44 41 23 30 3a  53 45 43 3a 53 42 43 75  |t:LDA#0:SEC:SBCu|
00000a60  3a 53 54 41 75 3a 4c 44  41 23 30 3a 53 42 43 75  |:STAu:LDA#0:SBCu|
00000a70  2b 31 3a 53 54 41 75 2b  31 3a 4c 44 41 23 30 3a  |+1:STAu+1:LDA#0:|
00000a80  53 42 43 75 2b 32 3a 53  54 41 75 2b 32 3a 4c 44  |SBCu+2:STAu+2:LD|
00000a90  41 23 30 3a 53 42 43 75  2b 33 3a 53 54 41 75 2b  |A#0:SBCu+3:STAu+|
00000aa0  33 3a 44 45 43 75 73 69  67 6e 66 6c 61 67 0d 01  |3:DECusignflag..|
00000ab0  b8 30 20 2e 72 65 74 20  49 4e 58 3a 43 50 58 23  |.0 .ret INX:CPX#|
00000ac0  32 35 3a 42 43 43 61 67  61 69 6e 3a 52 54 53 3a  |25:BCCagain:RTS:|
00000ad0  2e 61 67 61 69 6e 20 4a  4d 50 6c 6f 6f 70 0d 01  |.again JMPloop..|
00000ae0  c2 0a 20 2e 63 6f 64 65  0d 01 cc 20 20 4c 44 41  |.. .code...  LDA|
00000af0  23 30 3a 53 54 41 78 63  6f 6f 72 64 3a 53 54 41  |#0:STAxcoord:STA|
00000b00  78 63 6f 6f 72 64 2b 31  0d 01 d6 2b 20 2e 78 6c  |xcoord+1...+ .xl|
00000b10  6f 6f 70 20 4c 44 41 23  30 3a 53 54 41 78 3a 53  |oop LDA#0:STAx:S|
00000b20  54 41 78 2b 31 3a 53 54  41 78 2b 32 3a 53 54 41  |TAx+1:STAx+2:STA|
00000b30  78 2b 33 0d 01 e0 1e 20  4c 44 41 78 63 6f 6f 72  |x+3.... LDAxcoor|
00000b40  64 2b 31 3a 43 4d 50 23  32 3a 42 43 43 78 6e 65  |d+1:CMP#2:BCCxne|
00000b50  67 0d 01 ea 4d 20 53 45  43 3a 4c 44 41 78 63 6f  |g...M SEC:LDAxco|
00000b60  6f 72 64 3a 53 54 41 78  2b 32 3a 4c 44 41 78 63  |ord:STAx+2:LDAxc|
00000b70  6f 6f 72 64 2b 31 3a 53  42 43 23 32 3a 53 54 41  |oord+1:SBC#2:STA|
00000b80  78 2b 33 3a 4c 44 41 23  31 3a 53 54 41 78 73 69  |x+3:LDA#1:STAxsi|
00000b90  67 6e 66 6c 61 67 3a 4a  4d 50 6e 65 77 79 0d 01  |gnflag:JMPnewy..|
00000ba0  f4 51 20 2e 78 6e 65 67  20 53 45 43 3a 4c 44 41  |.Q .xneg SEC:LDA|
00000bb0  23 30 3a 53 42 43 78 63  6f 6f 72 64 3a 53 54 41  |#0:SBCxcoord:STA|
00000bc0  78 2b 32 3a 4c 44 41 23  32 3a 53 42 43 78 63 6f  |x+2:LDA#2:SBCxco|
00000bd0  6f 72 64 2b 31 3a 53 54  41 78 2b 33 3a 4c 44 41  |ord+1:STAx+3:LDA|
00000be0  23 30 3a 53 54 41 78 73  69 67 6e 66 6c 61 67 0d  |#0:STAxsignflag.|
00000bf0  01 fe 26 20 2e 6e 65 77  79 20 4c 44 41 23 30 3a  |..& .newy LDA#0:|
00000c00  53 54 41 79 63 6f 6f 72  64 3a 53 54 41 79 63 6f  |STAycoord:STAyco|
00000c10  6f 72 64 2b 31 0d 02 08  2b 20 2e 79 6c 6f 6f 70  |ord+1...+ .yloop|
00000c20  20 4c 44 41 23 30 3a 53  54 41 79 3a 53 54 41 79  | LDA#0:STAy:STAy|
00000c30  2b 31 3a 53 54 41 79 2b  32 3a 53 54 41 79 2b 33  |+1:STAy+2:STAy+3|
00000c40  0d 02 12 1e 20 4c 44 41  79 63 6f 6f 72 64 2b 31  |.... LDAycoord+1|
00000c50  3a 43 4d 50 23 32 3a 42  43 43 79 6e 65 67 0d 02  |:CMP#2:BCCyneg..|
00000c60  1c 4d 20 53 45 43 3a 4c  44 41 79 63 6f 6f 72 64  |.M SEC:LDAycoord|
00000c70  3a 53 54 41 79 2b 32 3a  4c 44 41 79 63 6f 6f 72  |:STAy+2:LDAycoor|
00000c80  64 2b 31 3a 53 42 43 23  32 3a 53 54 41 79 2b 33  |d+1:SBC#2:STAy+3|
00000c90  3a 4c 44 41 23 31 3a 53  54 41 79 73 69 67 6e 66  |:LDA#1:STAysignf|
00000ca0  6c 61 67 3a 4a 4d 50 6d  61 69 6e 0d 02 26 51 20  |lag:JMPmain..&Q |
00000cb0  2e 79 6e 65 67 20 53 45  43 3a 4c 44 41 23 30 3a  |.yneg SEC:LDA#0:|
00000cc0  53 42 43 79 63 6f 6f 72  64 3a 53 54 41 79 2b 32  |SBCycoord:STAy+2|
00000cd0  3a 4c 44 41 23 32 3a 53  42 43 79 63 6f 6f 72 64  |:LDA#2:SBCycoord|
00000ce0  2b 31 3a 53 54 41 79 2b  33 3a 4c 44 41 23 30 3a  |+1:STAy+3:LDA#0:|
00000cf0  53 54 41 79 73 69 67 6e  66 6c 61 67 0d 02 30 0a  |STAysignflag..0.|
00000d00  20 2e 6d 61 69 6e 0d 02  3a 52 20 4c 44 41 78 73  | .main..:R LDAxs|
00000d10  69 67 6e 66 6c 61 67 3a  53 54 41 75 73 69 67 6e  |ignflag:STAusign|
00000d20  66 6c 61 67 3a 4c 44 41  78 3a 53 54 41 75 3a 4c  |flag:LDAx:STAu:L|
00000d30  44 41 78 2b 31 3a 53 54  41 75 2b 31 3a 4c 44 41  |DAx+1:STAu+1:LDA|
00000d40  78 2b 32 3a 53 54 41 75  2b 32 3a 4c 44 41 78 2b  |x+2:STAu+2:LDAx+|
00000d50  33 3a 53 54 41 75 2b 33  0d 02 44 52 20 4c 44 41  |3:STAu+3..DR LDA|
00000d60  79 73 69 67 6e 66 6c 61  67 3a 53 54 41 76 73 69  |ysignflag:STAvsi|
00000d70  67 6e 66 6c 61 67 3a 4c  44 41 79 3a 53 54 41 76  |gnflag:LDAy:STAv|
00000d80  3a 4c 44 41 79 2b 31 3a  53 54 41 76 2b 31 3a 4c  |:LDAy+1:STAv+1:L|
00000d90  44 41 79 2b 32 3a 53 54  41 76 2b 32 3a 4c 44 41  |DAy+2:STAv+2:LDA|
00000da0  79 2b 33 3a 53 54 41 76  2b 33 0d 02 4e 0c 20 4a  |y+3:STAv+3..N. J|
00000db0  53 52 63 61 6c 63 0d 02  58 9f 20 4c 44 41 23 31  |SRcalc..X. LDA#1|
00000dc0  38 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 30  |8:JSR&FFEE:LDA#0|
00000dd0  3a 4a 53 52 26 46 46 45  45 3a 54 58 41 3a 4a 53  |:JSR&FFEE:TXA:JS|
00000de0  52 26 46 46 45 45 3a 4c  44 41 23 32 35 3a 4a 53  |R&FFEE:LDA#25:JS|
00000df0  52 26 46 46 45 45 3a 4c  44 41 23 34 3a 4a 53 52  |R&FFEE:LDA#4:JSR|
00000e00  26 46 46 45 45 3a 4c 44  41 78 63 6f 6f 72 64 3a  |&FFEE:LDAxcoord:|
00000e10  4a 53 52 26 46 46 45 45  3a 4c 44 41 78 63 6f 6f  |JSR&FFEE:LDAxcoo|
00000e20  72 64 2b 31 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |rd+1:JSR&FFEE:LD|
00000e30  41 79 63 6f 6f 72 64 3a  4a 53 52 26 46 46 45 45  |Aycoord:JSR&FFEE|
00000e40  3a 4c 44 41 79 63 6f 6f  72 64 2b 31 3a 4a 53 52  |:LDAycoord+1:JSR|
00000e50  26 46 46 45 45 0d 02 62  73 20 4c 44 41 23 32 35  |&FFEE..bs LDA#25|
00000e60  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 35 3a  |:JSR&FFEE:LDA#5:|
00000e70  4a 53 52 26 46 46 45 45  3a 4c 44 41 78 63 6f 6f  |JSR&FFEE:LDAxcoo|
00000e80  72 64 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 78  |rd:JSR&FFEE:LDAx|
00000e90  63 6f 6f 72 64 2b 31 3a  4a 53 52 26 46 46 45 45  |coord+1:JSR&FFEE|
00000ea0  3a 4c 44 41 79 63 6f 6f  72 64 3a 4a 53 52 26 46  |:LDAycoord:JSR&F|
00000eb0  46 45 45 3a 4c 44 41 79  63 6f 6f 72 64 2b 31 3a  |FEE:LDAycoord+1:|
00000ec0  4a 53 52 26 46 46 45 45  0d 02 6c 58 20 43 4c 43  |JSR&FFEE..lX CLC|
00000ed0  3a 4c 44 41 79 63 6f 6f  72 64 3a 41 44 43 23 34  |:LDAycoord:ADC#4|
00000ee0  3a 53 54 41 79 63 6f 6f  72 64 3a 4c 44 41 79 63  |:STAycoord:LDAyc|
00000ef0  6f 6f 72 64 2b 31 3a 41  44 43 23 30 3a 53 54 41  |oord+1:ADC#0:STA|
00000f00  79 63 6f 6f 72 64 2b 31  3a 43 4d 50 23 34 3a 42  |ycoord+1:CMP#4:B|
00000f10  45 51 6e 65 78 74 78 3a  4a 4d 50 79 6c 6f 6f 70  |EQnextx:JMPyloop|
00000f20  0d 02 76 5d 20 2e 6e 65  78 74 78 20 43 4c 43 3a  |..v] .nextx CLC:|
00000f30  4c 44 41 78 63 6f 6f 72  64 3a 41 44 43 23 34 3a  |LDAxcoord:ADC#4:|
00000f40  53 54 41 78 63 6f 6f 72  64 3a 4c 44 41 78 63 6f  |STAxcoord:LDAxco|
00000f50  6f 72 64 2b 31 3a 41 44  43 23 30 3a 53 54 41 78  |ord+1:ADC#0:STAx|
00000f60  63 6f 6f 72 64 2b 31 3a  43 4d 50 23 34 3a 42 45  |coord+1:CMP#4:BE|
00000f70  51 65 6e 64 3a 4a 4d 50  78 6c 6f 6f 70 0d 02 80  |Qend:JMPxloop...|
00000f80  0d 20 2e 65 6e 64 20 52  54 53 0d 02 8a c5 20 2e  |. .end RTS.... .|
00000f90  75 53 20 45 51 55 44 30  3a 45 51 55 44 30 3a 2e  |uS EQUD0:EQUD0:.|
00000fa0  70 20 45 51 55 44 30 3a  45 51 55 44 30 3a 2e 75  |p EQUD0:EQUD0:.u|
00000fb0  32 20 45 51 55 44 30 3a  45 51 55 44 30 3a 45 51  |2 EQUD0:EQUD0:EQ|
00000fc0  55 44 30 3a 45 51 55 44  30 3a 2e 75 31 20 45 51  |UD0:EQUD0:.u1 EQ|
00000fd0  55 44 30 3a 45 51 55 44  30 3a 2e 76 53 20 45 51  |UD0:EQUD0:.vS EQ|
00000fe0  55 44 30 3a 45 51 55 44  30 3a 2e 76 32 20 45 51  |UD0:EQUD0:.v2 EQ|
00000ff0  55 44 30 3a 45 51 55 44  30 3a 45 51 55 44 30 3a  |UD0:EQUD0:EQUD0:|
00001000  45 51 55 44 30 3a 2e 76  31 20 45 51 55 44 30 3a  |EQUD0:.v1 EQUD0:|
00001010  45 51 55 44 30 3a 2e 75  76 20 45 51 55 44 30 3a  |EQUD0:.uv EQUD0:|
00001020  45 51 55 44 30 3a 2e 76  20 45 51 55 44 30 3a 45  |EQUD0:.v EQUD0:E|
00001030  51 55 44 30 3a 45 51 55  44 30 3a 45 51 55 44 30  |QUD0:EQUD0:EQUD0|
00001040  3a 2e 75 20 45 51 55 44  30 3a 45 51 55 44 30 0d  |:.u EQUD0:EQUD0.|
00001050  02 94 82 20 2e 75 73 69  67 6e 66 6c 61 67 20 45  |... .usignflag E|
00001060  51 55 42 30 3a 2e 76 73  69 67 6e 66 6c 61 67 20  |QUB0:.vsignflag |
00001070  45 51 55 42 30 3a 2e 78  73 69 67 6e 66 6c 61 67  |EQUB0:.xsignflag|
00001080  20 45 51 55 42 30 3a 2e  79 73 69 67 6e 66 6c 61  | EQUB0:.ysignfla|
00001090  67 20 45 51 55 42 30 3a  2e 78 63 6f 6f 72 64 20  |g EQUB0:.xcoord |
000010a0  45 51 55 57 30 3a 2e 79  63 6f 6f 72 64 20 45 51  |EQUW0:.ycoord EQ|
000010b0  55 57 30 3a 2e 78 20 45  51 55 44 30 3a 45 51 55  |UW0:.x EQUD0:EQU|
000010c0  44 30 3a 2e 79 20 45 51  55 44 30 3a 45 51 55 44  |D0:.y EQUD0:EQUD|
000010d0  30 0d 02 9e 08 20 5d 3a  ed 0d 02 a8 2f 20 ff 22  |0.... ]:..../ ."|
000010e0  53 41 56 45 20 63 6f 64  65 66 61 73 74 20 22 2b  |SAVE codefast "+|
000010f0  c3 7e 6d 63 2b 22 20 22  2b c3 7e 50 25 2b 22 20  |.~mc+" "+.~P%+" |
00001100  22 2b c3 7e 63 6f 64 65  0d ff                    |"+.~code..|
0000110a

Mandel/MANDELFAST.m0

Mandel/MANDELFAST.m1

Mandel/MANDELFAST.m2

Mandel/MANDELFAST.m4

Mandel/MANDELFAST.m5

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