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

Mandel/MANDEL5

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/MANDEL5
Read OK: ✔
File size: 1A05 bytes
Load address: FFFF2800
Exec address: FFFF8023
Duplicates

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

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:STAuS+4:STAuS+5:STAuS+6:STAuS+7:STAp:STAp+1:STAp+2:STAp+3:STAp+4:STAp+5:STAp+6:STAu2+8:STAu2+9:STAu2+10:STAu2+11:STAu2+12:STAu2+13:STAu2+14:STAu2+15
   50 LDY#64:.l1 LSRu1+7:RORu1+6:RORu1+5:RORu1+4:RORu1+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:ADCp+3:STAp+3:LDAu2+4:ADCp+4:STAp+4:LDAu2+5:ADCp+5:STAp+5:LDAu2+6:ADCp+6:STAp+6:LDAu2+7:ADCuS:STAuS
   70 LDAu2+8:ADCuS+1:STAuS+1:LDAu2+9:ADCuS+2:STAuS+2:LDAu2+10:ADCuS+3:STAuS+3:LDAu2+11:ADCuS+4:STAuS+4:LDAu2+12:ADCuS+5:STAuS+5:LDAu2+13:ADCuS+6:STAuS+6:LDAu2+14:ADCuS+7:STAuS+7
   80 .nextbit1 ASLu2:ROLu2+1:ROLu2+2:ROLu2+3:ROLu2+4:ROLu2+5:ROLu2+6:ROLu2+7:ROLu2+8:ROLu2+9:ROLu2+10:ROLu2+11:ROLu2+12:ROLu2+13:ROLu2+14:ROLu2+15
   90 DEY:BEQret1:JMPl1:.ret1 RTS
  100 .v1Xv2
  110 LDA#0:STAvS:STAvS+1:STAvS+2:STAvS+3:STAvS+4:STAvS+5:STAvS+6:STAvS+7:STAp:STAp+1:STAp+2:STAp+3:STAp+4:STAp+5:STAp+6:STAv2+8:STAv2+9:STAv2+10:STAv2+11:STAv2+12:STAv2+13:STAv2+14:STAv2+15
  120 LDY#64:.l2 LSRv1+7:RORv1+6:RORv1+5:RORv1+4:RORv1+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:ADCp+3:STAp+3:LDAv2+4:ADCp+4:STAp+4:LDAv2+5:ADCp+5:STAp+5:LDAv2+6:ADCp+6:STAp+6:LDAv2+7:ADCvS:STAvS
  140 LDAv2+8:ADCvS+1:STAvS+1:LDAv2+9:ADCvS+2:STAvS+2:LDAv2+10:ADCvS+3:STAvS+3:LDAv2+11:ADCvS+4:STAvS+4:LDAv2+12:ADCvS+5:STAvS+5:LDAv2+13:ADCvS+6:STAvS+6:LDAv2+14:ADCvS+7:STAvS+7
  150 .nextbit2 ASLv2:ROLv2+1:ROLv2+2:ROLv2+3:ROLv2+4:ROLv2+5:ROLv2+6:ROLv2+7:ROLv2+8:ROLv2+9:ROLv2+10:ROLv2+11:ROLv2+12:ROLv2+13:ROLv2+14:ROLv2+15
  160 DEY:BEQret2:JMPl2:.ret2 RTS
  170 .u1Xv1X2
  180 LDA#0:STAuv:STAuv+1:STAuv+2:STAuv+3:STAuv+4:STAuv+5:STAuv+6:STAuv+7:STAp:STAp+1:STAp+2:STAp+3:STAp+4:STAp+5:STAp+6:STAv+8:STAv+9:STAv+10:STAv+11:STAv+12:STAv+13:STAv+14:STAv+15
  190 LDY#64:.l3 ASLv:ROLv+1:ROLv+2:ROLv+3:ROLv+4:ROLv+5:ROLv+6:ROLv+7:ROLv+8:ROLv+9:ROLv+10:ROLv+11:ROLv+12:ROLv+13:ROLv+14:ROLv+15
  200 LSRu+7:RORu+6:RORu+5:RORu+4:RORu+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:ADCp+3:STAp+3:LDAv+4:ADCp+4:STAp+4:LDAv+5:ADCp+5:STAp+5:LDAv+6:ADCp+6:STAp+6:LDAv+7:ADCuv:STAuv
  220 LDAv+8:ADCuv+1:STAuv+1:LDAv+9:ADCuv+2:STAuv+2:LDAv+10:ADCuv+3:STAuv+3:LDAv+11:ADCuv+4:STAuv+4:LDAv+12:ADCuv+5:STAuv+5:LDAv+13:ADCuv+6:STAuv+6:LDAv+14:ADCuv+7:STAuv+7
  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:LDAu+4:STAu1+4:STAu2+4:LDAu+5:STAu1+5:STAu2+5:LDAu+6:STAu1+6:STAu2+6:LDAu+7:STAu1+7:STAu2+7:JSRu1Xu2
  290 LDAv:STAv1:STAv2:LDAv+1:STAv1+1:STAv2+1:LDAv+2:STAv1+2:STAv2+2:LDAv+3:STAv1+3:STAv2+3:LDAv+4:STAv1+4:STAv2+4:LDAv+5:STAv1+5:STAv2+5:LDAv+6:STAv1+6:STAv2+6:LDAv+7:STAv1+7:STAv2+7:JSRv1Xv2
  300 CLC:LDAuS:ADCvS:LDAuS+1:ADCvS+1:LDAuS+2:ADCvS+2:LDAuS+3:ADCvS+3:LDAuS+4:ADCvS+4:LDAuS+5:ADCvS+5:LDAuS+6:ADCvS+6:LDAuS+7:ADCvS+7: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:LDAuv+4:STAv+4:LDAuv+5:STAv+5:LDAuv+6:STAv+6:LDAuv+7:STAv+7: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:LDA#0:SBCuv+4:STAv+4:LDA#0:SBCuv+5:STAv+5:LDA#0:SBCuv+6:STAv+6:LDA#0:SBCuv+7:STAv+7
  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:LDAv+4:ADCy+4:STAv+4:LDAv+5:ADCy+5:STAv+5:LDAv+6:ADCy+6:STAv+6:LDAv+7:ADCy+7:STAv+7: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:LDAv+4:SBCy+4:STAv+4:LDAv+5:SBCy+5:STAv+5:LDAv+6:SBCy+6:STAv+6:LDAv+7:SBCy+7:STAv+7
  380 .vtest LDA#1:STAvsignflag:LDAv+7: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:LDA#0:SBCv+4:STAv+4:LDA#0:SBCv+5:STAv+5:LDA#0:SBCv+6:STAv+6:LDA#0:SBCv+7:STAv+7:LDA#0: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:LDAuS+4:SBCvS+4:STAu+4:LDAuS+5:SBCvS+5:STAu+5:LDAuS+6:SBCvS+6:STAu+6:LDAuS+7:SBCvS+7:STAu+7
  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:LDAu+4:ADCx+4:STAu+4:LDAu+5:ADCx+5:STAu+5:LDAu+6:ADCx+6:STAu+6:LDAu+7:ADCx+7:STAu+7: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:LDAu+4:SBCx+4:STAu+4:LDAu+5:SBCx+5:STAu+5:LDAu+6:SBCx+6:STAu+6:LDAu+7:SBCx+7:STAu+7
  430 .utest LDA#1:STAusignflag:LDAu+7: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:LDA#0:SBCu+4:STAu+4:LDA#0:SBCu+5:STAu+5:LDA#0:SBCu+6:STAu+6:LDA#0:SBCu+7:STAu+7:LDA#0: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:STAx+4:STAx+5:STAx+6:STAx+7
  480 LDAxcoord+1:CMP#2:BCCxneg
  490 SEC:LDAxcoord:STAx+6:LDAxcoord+1:SBC#2:STAx+7:LDA#1:STAxsignflag:JMPnewy
  500 .xneg SEC:LDA#0:SBCxcoord:STAx+6:LDA#2:SBCxcoord+1:STAx+7:LDA#0:STAxsignflag
  510 .newy LDA#0:STAycoord:STAycoord+1
  520 .yloop LDA#0:STAy:STAy+1:STAy+2:STAy+3:STAy+4:STAy+5:STAy+6:STAy+7
  530 LDAycoord+1:CMP#2:BCCyneg
  540 SEC:LDAycoord:STAy+6:LDAycoord+1:SBC#2:STAy+7:LDA#1:STAysignflag:JMPmain
  550 .yneg SEC:LDA#0:SBCycoord:STAy+6:LDA#2:SBCycoord+1:STAy+7:LDA#0:STAysignflag
  560 .main
  570 LDAxsignflag:STAusignflag:LDAx:STAu:LDAx+1:STAu+1:LDAx+2:STAu+2:LDAx+3:STAu+3:LDAx+4:STAu+4:LDAx+5:STAu+5:LDAx+6:STAu+6:LDAx+7:STAu+7
  580 LDAysignflag:STAvsignflag:LDAy:STAv:LDAy+1:STAv+1:LDAy+2:STAv+2:LDAy+3:STAv+3:LDAy+4:STAv+4:LDAy+5:STAv+5:LDAy+6:STAv+6:LDAy+7:STAv+7
  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 code "+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:STAuS+4:STAuS+5:STAuS+6:STAuS+7:STAp:STAp+1:STAp+2:STAp+3:STAp+4:STAp+5:STAp+6:STAu2+8:STAu2+9:STAu2+10:STAu2+11:STAu2+12:STAu2+13:STAu2+14:STAu2+15
2g LDY#64:.l1 LSRu1+7:RORu1+6:RORu1+5:RORu1+4:RORu1+3:RORu1+2:RORu1+1:RORu1:BCSadd1:JMPnextbit1:.add1
<� CLC:LDAu2:ADCp:STAp:LDAu2+1:ADCp+1:STAp+1:LDAu2+2:ADCp+2:STAp+2:LDAu2+3:ADCp+3:STAp+3:LDAu2+4:ADCp+4:STAp+4:LDAu2+5:ADCp+5:STAp+5:LDAu2+6:ADCp+6:STAp+6:LDAu2+7:ADCuS:STAuS
F� LDAu2+8:ADCuS+1:STAuS+1:LDAu2+9:ADCuS+2:STAuS+2:LDAu2+10:ADCuS+3:STAuS+3:LDAu2+11:ADCuS+4:STAuS+4:LDAu2+12:ADCuS+5:STAuS+5:LDAu2+13:ADCuS+6:STAuS+6:LDAu2+14:ADCuS+7:STAuS+7
P� .nextbit1 ASLu2:ROLu2+1:ROLu2+2:ROLu2+3:ROLu2+4:ROLu2+5:ROLu2+6:ROLu2+7:ROLu2+8:ROLu2+9:ROLu2+10:ROLu2+11:ROLu2+12:ROLu2+13:ROLu2+14:ROLu2+15
Z  DEY:BEQret1:JMPl1:.ret1 RTS
d .v1Xv2
n� LDA#0:STAvS:STAvS+1:STAvS+2:STAvS+3:STAvS+4:STAvS+5:STAvS+6:STAvS+7:STAp:STAp+1:STAp+2:STAp+3:STAp+4:STAp+5:STAp+6:STAv2+8:STAv2+9:STAv2+10:STAv2+11:STAv2+12:STAv2+13:STAv2+14:STAv2+15
xg LDY#64:.l2 LSRv1+7:RORv1+6:RORv1+5:RORv1+4:RORv1+3:RORv1+2:RORv1+1:RORv1:BCSadd2:JMPnextbit2:.add2
�� CLC:LDAv2:ADCp:STAp:LDAv2+1:ADCp+1:STAp+1:LDAv2+2:ADCp+2:STAp+2:LDAv2+3:ADCp+3:STAp+3:LDAv2+4:ADCp+4:STAp+4:LDAv2+5:ADCp+5:STAp+5:LDAv2+6:ADCp+6:STAp+6:LDAv2+7:ADCvS:STAvS
�� LDAv2+8:ADCvS+1:STAvS+1:LDAv2+9:ADCvS+2:STAvS+2:LDAv2+10:ADCvS+3:STAvS+3:LDAv2+11:ADCvS+4:STAvS+4:LDAv2+12:ADCvS+5:STAvS+5:LDAv2+13:ADCvS+6:STAvS+6:LDAv2+14:ADCvS+7:STAvS+7
�� .nextbit2 ASLv2:ROLv2+1:ROLv2+2:ROLv2+3:ROLv2+4:ROLv2+5:ROLv2+6:ROLv2+7:ROLv2+8:ROLv2+9:ROLv2+10:ROLv2+11:ROLv2+12:ROLv2+13:ROLv2+14:ROLv2+15
�  DEY:BEQret2:JMPl2:.ret2 RTS
�
 .u1Xv1X2
�� LDA#0:STAuv:STAuv+1:STAuv+2:STAuv+3:STAuv+4:STAuv+5:STAuv+6:STAuv+7:STAp:STAp+1:STAp+2:STAp+3:STAp+4:STAp+5:STAp+6:STAv+8:STAv+9:STAv+10:STAv+11:STAv+12:STAv+13:STAv+14:STAv+15
�� LDY#64:.l3 ASLv:ROLv+1:ROLv+2:ROLv+3:ROLv+4:ROLv+5:ROLv+6:ROLv+7:ROLv+8:ROLv+9:ROLv+10:ROLv+11:ROLv+12:ROLv+13:ROLv+14:ROLv+15
�T LSRu+7:RORu+6:RORu+5:RORu+4:RORu+3:RORu+2:RORu+1:RORu:BCSadd3:JMPnextbit3:.add3
Ҩ CLC:LDAv:ADCp:STAp:LDAv+1:ADCp+1:STAp+1:LDAv+2:ADCp+2:STAp+2:LDAv+3:ADCp+3:STAp+3:LDAv+4:ADCp+4:STAp+4:LDAv+5:ADCp+5:STAp+5:LDAv+6:ADCp+6:STAp+6:LDAv+7:ADCuv:STAuv
ܪ LDAv+8:ADCuv+1:STAuv+1:LDAv+9:ADCuv+2:STAuv+2:LDAv+10:ADCuv+3:STAuv+3:LDAv+11:ADCuv+4:STAuv+4:LDAv+12:ADCuv+5:STAuv+5:LDAv+13:ADCuv+6:STAuv+6:LDAv+14:ADCuv+7:STAuv+7
� .nextbit3
�  DEY:BEQret3:JMPl3:.ret3 RTS
�
 .calc

 LDX#0

 .loop
� LDAu:STAu1:STAu2:LDAu+1:STAu1+1:STAu2+1:LDAu+2:STAu1+2:STAu2+2:LDAu+3:STAu1+3:STAu2+3:LDAu+4:STAu1+4:STAu2+4:LDAu+5:STAu1+5:STAu2+5:LDAu+6:STAu1+6:STAu2+6:LDAu+7:STAu1+7:STAu2+7:JSRu1Xu2
"� LDAv:STAv1:STAv2:LDAv+1:STAv1+1:STAv2+1:LDAv+2:STAv1+2:STAv2+2:LDAv+3:STAv1+3:STAv2+3:LDAv+4:STAv1+4:STAv2+4:LDAv+5:STAv1+5:STAv2+5:LDAv+6:STAv1+6:STAv2+6:LDAv+7:STAv1+7:STAv2+7:JSRv1Xv2
,� CLC:LDAuS:ADCvS:LDAuS+1:ADCvS+1:LDAuS+2:ADCvS+2:LDAuS+3:ADCvS+3:LDAuS+4:ADCvS+4:LDAuS+5:ADCvS+5:LDAuS+6:ADCvS+6:LDAuS+7:ADCvS+7:CMP#4:BCCcont:RTS:.cont
6 JSRu1Xv1X2
@+ LDAusignflag:SEC:SBCvsignflag:BNEsubuv
J� LDAuv:STAv:LDAuv+1:STAv+1:LDAuv+2:STAv+2:LDAuv+3:STAv+3:LDAuv+4:STAv+4:LDAuv+5:STAv+5:LDAuv+6:STAv+6:LDAuv+7:STAv+7: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:LDA#0:SBCuv+4:STAv+4:LDA#0:SBCuv+5:STAv+5:LDA#0:SBCuv+6:STAv+6:LDA#0:SBCuv+7:STAv+7
^$ .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:LDAv+4:ADCy+4:STAv+4:LDAv+5:ADCy+5:STAv+5:LDAv+6:ADCy+6:STAv+6:LDAv+7:ADCy+7:STAv+7: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:LDAv+4:SBCy+4:STAv+4:LDAv+5:SBCy+5:STAv+5:LDAv+6:SBCy+6:STAv+6:LDAv+7:SBCy+7:STAv+7
|� .vtest LDA#1:STAvsignflag:LDAv+7:�#&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:LDA#0:SBCv+4:STAv+4:LDA#0:SBCv+5:STAv+5:LDA#0:SBCv+6:STAv+6:LDA#0:SBCv+7:STAv+7:LDA#0:DECvsignflag
�� .newu SEC:LDAuS:SBCvS:STAu:LDAuS+1:SBCvS+1:STAu+1:LDAuS+2:SBCvS+2:STAu+2:LDAuS+3:SBCvS+3:STAu+3:LDAuS+4:SBCvS+4:STAu+4:LDAuS+5:SBCvS+5:STAu+5:LDAuS+6:SBCvS+6:STAu+6:LDAuS+7:SBCvS+7:STAu+7
� LDAxsignflag:BEQsubx
�� CLC:LDAu:ADCx:STAu:LDAu+1:ADCx+1:STAu+1:LDAu+2:ADCx+2:STAu+2:LDAu+3:ADCx+3:STAu+3:LDAu+4:ADCx+4:STAu+4:LDAu+5:ADCx+5:STAu+5:LDAu+6:ADCx+6:STAu+6:LDAu+7:ADCx+7:STAu+7:JMPutest
�� .subx SEC:LDAu:SBCx:STAu:LDAu+1:SBCx+1:STAu+1:LDAu+2:SBCx+2:STAu+2:LDAu+3:SBCx+3:STAu+3:LDAu+4:SBCx+4:STAu+4:LDAu+5:SBCx+5:STAu+5:LDAu+6:SBCx+6:STAu+6:LDAu+7:SBCx+7:STAu+7
�� .utest LDA#1:STAusignflag:LDAu+7:�#&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:LDA#0:SBCu+4:STAu+4:LDA#0:SBCu+5:STAu+5:LDA#0:SBCu+6:STAu+6:LDA#0:SBCu+7:STAu+7:LDA#0:DECusignflag
�0 .ret INX:CPX#25:BCCagain:RTS:.again JMPloop
�
 .code
�  LDA#0:STAxcoord:STAxcoord+1
�G .xloop LDA#0:STAx:STAx+1:STAx+2:STAx+3:STAx+4:STAx+5:STAx+6:STAx+7
� LDAxcoord+1:CMP#2:BCCxneg
�M SEC:LDAxcoord:STAx+6:LDAxcoord+1:SBC#2:STAx+7:LDA#1:STAxsignflag:JMPnewy
�Q .xneg SEC:LDA#0:SBCxcoord:STAx+6:LDA#2:SBCxcoord+1:STAx+7:LDA#0:STAxsignflag
�& .newy LDA#0:STAycoord:STAycoord+1
G .yloop LDA#0:STAy:STAy+1:STAy+2:STAy+3:STAy+4:STAy+5:STAy+6:STAy+7
 LDAycoord+1:CMP#2:BCCyneg
M SEC:LDAycoord:STAy+6:LDAycoord+1:SBC#2:STAy+7:LDA#1:STAysignflag:JMPmain
&Q .yneg SEC:LDA#0:SBCycoord:STAy+6:LDA#2:SBCycoord+1:STAy+7:LDA#0:STAysignflag
0
 .main
:� LDAxsignflag:STAusignflag:LDAx:STAu:LDAx+1:STAu+1:LDAx+2:STAu+2:LDAx+3:STAu+3:LDAx+4:STAu+4:LDAx+5:STAu+5:LDAx+6:STAu+6:LDAx+7:STAu+7
D� LDAysignflag:STAvsignflag:LDAy:STAv:LDAy+1:STAv+1:LDAy+2:STAv+2:LDAy+3:STAv+3:LDAy+4:STAv+4:LDAy+5:STAv+5:LDAy+6:STAv+6:LDAy+7:STAv+7
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 code "+�~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 bd 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 75  53 2b 34 3a 53 54 41 75  |S+3:STAuS+4:STAu|
00000070  53 2b 35 3a 53 54 41 75  53 2b 36 3a 53 54 41 75  |S+5:STAuS+6:STAu|
00000080  53 2b 37 3a 53 54 41 70  3a 53 54 41 70 2b 31 3a  |S+7:STAp:STAp+1:|
00000090  53 54 41 70 2b 32 3a 53  54 41 70 2b 33 3a 53 54  |STAp+2:STAp+3:ST|
000000a0  41 70 2b 34 3a 53 54 41  70 2b 35 3a 53 54 41 70  |Ap+4:STAp+5:STAp|
000000b0  2b 36 3a 53 54 41 75 32  2b 38 3a 53 54 41 75 32  |+6:STAu2+8:STAu2|
000000c0  2b 39 3a 53 54 41 75 32  2b 31 30 3a 53 54 41 75  |+9:STAu2+10:STAu|
000000d0  32 2b 31 31 3a 53 54 41  75 32 2b 31 32 3a 53 54  |2+11:STAu2+12:ST|
000000e0  41 75 32 2b 31 33 3a 53  54 41 75 32 2b 31 34 3a  |Au2+13:STAu2+14:|
000000f0  53 54 41 75 32 2b 31 35  0d 00 32 67 20 4c 44 59  |STAu2+15..2g LDY|
00000100  23 36 34 3a 2e 6c 31 20  4c 53 52 75 31 2b 37 3a  |#64:.l1 LSRu1+7:|
00000110  52 4f 52 75 31 2b 36 3a  52 4f 52 75 31 2b 35 3a  |RORu1+6:RORu1+5:|
00000120  52 4f 52 75 31 2b 34 3a  52 4f 52 75 31 2b 33 3a  |RORu1+4:RORu1+3:|
00000130  52 4f 52 75 31 2b 32 3a  52 4f 52 75 31 2b 31 3a  |RORu1+2:RORu1+1:|
00000140  52 4f 52 75 31 3a 42 43  53 61 64 64 31 3a 4a 4d  |RORu1:BCSadd1:JM|
00000150  50 6e 65 78 74 62 69 74  31 3a 2e 61 64 64 31 0d  |Pnextbit1:.add1.|
00000160  00 3c b0 20 43 4c 43 3a  4c 44 41 75 32 3a 41 44  |.<. CLC:LDAu2:AD|
00000170  43 70 3a 53 54 41 70 3a  4c 44 41 75 32 2b 31 3a  |Cp:STAp:LDAu2+1:|
00000180  41 44 43 70 2b 31 3a 53  54 41 70 2b 31 3a 4c 44  |ADCp+1:STAp+1:LD|
00000190  41 75 32 2b 32 3a 41 44  43 70 2b 32 3a 53 54 41  |Au2+2:ADCp+2:STA|
000001a0  70 2b 32 3a 4c 44 41 75  32 2b 33 3a 41 44 43 70  |p+2:LDAu2+3:ADCp|
000001b0  2b 33 3a 53 54 41 70 2b  33 3a 4c 44 41 75 32 2b  |+3:STAp+3:LDAu2+|
000001c0  34 3a 41 44 43 70 2b 34  3a 53 54 41 70 2b 34 3a  |4:ADCp+4:STAp+4:|
000001d0  4c 44 41 75 32 2b 35 3a  41 44 43 70 2b 35 3a 53  |LDAu2+5:ADCp+5:S|
000001e0  54 41 70 2b 35 3a 4c 44  41 75 32 2b 36 3a 41 44  |TAp+5:LDAu2+6:AD|
000001f0  43 70 2b 36 3a 53 54 41  70 2b 36 3a 4c 44 41 75  |Cp+6:STAp+6:LDAu|
00000200  32 2b 37 3a 41 44 43 75  53 3a 53 54 41 75 53 0d  |2+7:ADCuS:STAuS.|
00000210  00 46 b1 20 4c 44 41 75  32 2b 38 3a 41 44 43 75  |.F. LDAu2+8:ADCu|
00000220  53 2b 31 3a 53 54 41 75  53 2b 31 3a 4c 44 41 75  |S+1:STAuS+1:LDAu|
00000230  32 2b 39 3a 41 44 43 75  53 2b 32 3a 53 54 41 75  |2+9:ADCuS+2:STAu|
00000240  53 2b 32 3a 4c 44 41 75  32 2b 31 30 3a 41 44 43  |S+2:LDAu2+10:ADC|
00000250  75 53 2b 33 3a 53 54 41  75 53 2b 33 3a 4c 44 41  |uS+3:STAuS+3:LDA|
00000260  75 32 2b 31 31 3a 41 44  43 75 53 2b 34 3a 53 54  |u2+11:ADCuS+4:ST|
00000270  41 75 53 2b 34 3a 4c 44  41 75 32 2b 31 32 3a 41  |AuS+4:LDAu2+12:A|
00000280  44 43 75 53 2b 35 3a 53  54 41 75 53 2b 35 3a 4c  |DCuS+5:STAuS+5:L|
00000290  44 41 75 32 2b 31 33 3a  41 44 43 75 53 2b 36 3a  |DAu2+13:ADCuS+6:|
000002a0  53 54 41 75 53 2b 36 3a  4c 44 41 75 32 2b 31 34  |STAuS+6:LDAu2+14|
000002b0  3a 41 44 43 75 53 2b 37  3a 53 54 41 75 53 2b 37  |:ADCuS+7:STAuS+7|
000002c0  0d 00 50 92 20 2e 6e 65  78 74 62 69 74 31 20 41  |..P. .nextbit1 A|
000002d0  53 4c 75 32 3a 52 4f 4c  75 32 2b 31 3a 52 4f 4c  |SLu2:ROLu2+1:ROL|
000002e0  75 32 2b 32 3a 52 4f 4c  75 32 2b 33 3a 52 4f 4c  |u2+2:ROLu2+3:ROL|
000002f0  75 32 2b 34 3a 52 4f 4c  75 32 2b 35 3a 52 4f 4c  |u2+4:ROLu2+5:ROL|
00000300  75 32 2b 36 3a 52 4f 4c  75 32 2b 37 3a 52 4f 4c  |u2+6:ROLu2+7:ROL|
00000310  75 32 2b 38 3a 52 4f 4c  75 32 2b 39 3a 52 4f 4c  |u2+8:ROLu2+9:ROL|
00000320  75 32 2b 31 30 3a 52 4f  4c 75 32 2b 31 31 3a 52  |u2+10:ROLu2+11:R|
00000330  4f 4c 75 32 2b 31 32 3a  52 4f 4c 75 32 2b 31 33  |OLu2+12:ROLu2+13|
00000340  3a 52 4f 4c 75 32 2b 31  34 3a 52 4f 4c 75 32 2b  |:ROLu2+14:ROLu2+|
00000350  31 35 0d 00 5a 20 20 44  45 59 3a 42 45 51 72 65  |15..Z  DEY:BEQre|
00000360  74 31 3a 4a 4d 50 6c 31  3a 2e 72 65 74 31 20 52  |t1:JMPl1:.ret1 R|
00000370  54 53 0d 00 64 0b 20 2e  76 31 58 76 32 0d 00 6e  |TS..d. .v1Xv2..n|
00000380  bd 20 4c 44 41 23 30 3a  53 54 41 76 53 3a 53 54  |. LDA#0:STAvS:ST|
00000390  41 76 53 2b 31 3a 53 54  41 76 53 2b 32 3a 53 54  |AvS+1:STAvS+2:ST|
000003a0  41 76 53 2b 33 3a 53 54  41 76 53 2b 34 3a 53 54  |AvS+3:STAvS+4:ST|
000003b0  41 76 53 2b 35 3a 53 54  41 76 53 2b 36 3a 53 54  |AvS+5:STAvS+6:ST|
000003c0  41 76 53 2b 37 3a 53 54  41 70 3a 53 54 41 70 2b  |AvS+7:STAp:STAp+|
000003d0  31 3a 53 54 41 70 2b 32  3a 53 54 41 70 2b 33 3a  |1:STAp+2:STAp+3:|
000003e0  53 54 41 70 2b 34 3a 53  54 41 70 2b 35 3a 53 54  |STAp+4:STAp+5:ST|
000003f0  41 70 2b 36 3a 53 54 41  76 32 2b 38 3a 53 54 41  |Ap+6:STAv2+8:STA|
00000400  76 32 2b 39 3a 53 54 41  76 32 2b 31 30 3a 53 54  |v2+9:STAv2+10:ST|
00000410  41 76 32 2b 31 31 3a 53  54 41 76 32 2b 31 32 3a  |Av2+11:STAv2+12:|
00000420  53 54 41 76 32 2b 31 33  3a 53 54 41 76 32 2b 31  |STAv2+13:STAv2+1|
00000430  34 3a 53 54 41 76 32 2b  31 35 0d 00 78 67 20 4c  |4:STAv2+15..xg L|
00000440  44 59 23 36 34 3a 2e 6c  32 20 4c 53 52 76 31 2b  |DY#64:.l2 LSRv1+|
00000450  37 3a 52 4f 52 76 31 2b  36 3a 52 4f 52 76 31 2b  |7:RORv1+6:RORv1+|
00000460  35 3a 52 4f 52 76 31 2b  34 3a 52 4f 52 76 31 2b  |5:RORv1+4:RORv1+|
00000470  33 3a 52 4f 52 76 31 2b  32 3a 52 4f 52 76 31 2b  |3:RORv1+2:RORv1+|
00000480  31 3a 52 4f 52 76 31 3a  42 43 53 61 64 64 32 3a  |1:RORv1:BCSadd2:|
00000490  4a 4d 50 6e 65 78 74 62  69 74 32 3a 2e 61 64 64  |JMPnextbit2:.add|
000004a0  32 0d 00 82 b0 20 43 4c  43 3a 4c 44 41 76 32 3a  |2.... CLC:LDAv2:|
000004b0  41 44 43 70 3a 53 54 41  70 3a 4c 44 41 76 32 2b  |ADCp:STAp:LDAv2+|
000004c0  31 3a 41 44 43 70 2b 31  3a 53 54 41 70 2b 31 3a  |1:ADCp+1:STAp+1:|
000004d0  4c 44 41 76 32 2b 32 3a  41 44 43 70 2b 32 3a 53  |LDAv2+2:ADCp+2:S|
000004e0  54 41 70 2b 32 3a 4c 44  41 76 32 2b 33 3a 41 44  |TAp+2:LDAv2+3:AD|
000004f0  43 70 2b 33 3a 53 54 41  70 2b 33 3a 4c 44 41 76  |Cp+3:STAp+3:LDAv|
00000500  32 2b 34 3a 41 44 43 70  2b 34 3a 53 54 41 70 2b  |2+4:ADCp+4:STAp+|
00000510  34 3a 4c 44 41 76 32 2b  35 3a 41 44 43 70 2b 35  |4:LDAv2+5:ADCp+5|
00000520  3a 53 54 41 70 2b 35 3a  4c 44 41 76 32 2b 36 3a  |:STAp+5:LDAv2+6:|
00000530  41 44 43 70 2b 36 3a 53  54 41 70 2b 36 3a 4c 44  |ADCp+6:STAp+6:LD|
00000540  41 76 32 2b 37 3a 41 44  43 76 53 3a 53 54 41 76  |Av2+7:ADCvS:STAv|
00000550  53 0d 00 8c b1 20 4c 44  41 76 32 2b 38 3a 41 44  |S.... LDAv2+8:AD|
00000560  43 76 53 2b 31 3a 53 54  41 76 53 2b 31 3a 4c 44  |CvS+1:STAvS+1:LD|
00000570  41 76 32 2b 39 3a 41 44  43 76 53 2b 32 3a 53 54  |Av2+9:ADCvS+2:ST|
00000580  41 76 53 2b 32 3a 4c 44  41 76 32 2b 31 30 3a 41  |AvS+2:LDAv2+10:A|
00000590  44 43 76 53 2b 33 3a 53  54 41 76 53 2b 33 3a 4c  |DCvS+3:STAvS+3:L|
000005a0  44 41 76 32 2b 31 31 3a  41 44 43 76 53 2b 34 3a  |DAv2+11:ADCvS+4:|
000005b0  53 54 41 76 53 2b 34 3a  4c 44 41 76 32 2b 31 32  |STAvS+4:LDAv2+12|
000005c0  3a 41 44 43 76 53 2b 35  3a 53 54 41 76 53 2b 35  |:ADCvS+5:STAvS+5|
000005d0  3a 4c 44 41 76 32 2b 31  33 3a 41 44 43 76 53 2b  |:LDAv2+13:ADCvS+|
000005e0  36 3a 53 54 41 76 53 2b  36 3a 4c 44 41 76 32 2b  |6:STAvS+6:LDAv2+|
000005f0  31 34 3a 41 44 43 76 53  2b 37 3a 53 54 41 76 53  |14:ADCvS+7:STAvS|
00000600  2b 37 0d 00 96 92 20 2e  6e 65 78 74 62 69 74 32  |+7.... .nextbit2|
00000610  20 41 53 4c 76 32 3a 52  4f 4c 76 32 2b 31 3a 52  | ASLv2:ROLv2+1:R|
00000620  4f 4c 76 32 2b 32 3a 52  4f 4c 76 32 2b 33 3a 52  |OLv2+2:ROLv2+3:R|
00000630  4f 4c 76 32 2b 34 3a 52  4f 4c 76 32 2b 35 3a 52  |OLv2+4:ROLv2+5:R|
00000640  4f 4c 76 32 2b 36 3a 52  4f 4c 76 32 2b 37 3a 52  |OLv2+6:ROLv2+7:R|
00000650  4f 4c 76 32 2b 38 3a 52  4f 4c 76 32 2b 39 3a 52  |OLv2+8:ROLv2+9:R|
00000660  4f 4c 76 32 2b 31 30 3a  52 4f 4c 76 32 2b 31 31  |OLv2+10:ROLv2+11|
00000670  3a 52 4f 4c 76 32 2b 31  32 3a 52 4f 4c 76 32 2b  |:ROLv2+12:ROLv2+|
00000680  31 33 3a 52 4f 4c 76 32  2b 31 34 3a 52 4f 4c 76  |13:ROLv2+14:ROLv|
00000690  32 2b 31 35 0d 00 a0 20  20 44 45 59 3a 42 45 51  |2+15...  DEY:BEQ|
000006a0  72 65 74 32 3a 4a 4d 50  6c 32 3a 2e 72 65 74 32  |ret2:JMPl2:.ret2|
000006b0  20 52 54 53 0d 00 aa 0d  20 2e 75 31 58 76 31 58  | RTS.... .u1Xv1X|
000006c0  32 0d 00 b4 b5 20 4c 44  41 23 30 3a 53 54 41 75  |2.... LDA#0:STAu|
000006d0  76 3a 53 54 41 75 76 2b  31 3a 53 54 41 75 76 2b  |v:STAuv+1:STAuv+|
000006e0  32 3a 53 54 41 75 76 2b  33 3a 53 54 41 75 76 2b  |2:STAuv+3:STAuv+|
000006f0  34 3a 53 54 41 75 76 2b  35 3a 53 54 41 75 76 2b  |4:STAuv+5:STAuv+|
00000700  36 3a 53 54 41 75 76 2b  37 3a 53 54 41 70 3a 53  |6:STAuv+7:STAp:S|
00000710  54 41 70 2b 31 3a 53 54  41 70 2b 32 3a 53 54 41  |TAp+1:STAp+2:STA|
00000720  70 2b 33 3a 53 54 41 70  2b 34 3a 53 54 41 70 2b  |p+3:STAp+4:STAp+|
00000730  35 3a 53 54 41 70 2b 36  3a 53 54 41 76 2b 38 3a  |5:STAp+6:STAv+8:|
00000740  53 54 41 76 2b 39 3a 53  54 41 76 2b 31 30 3a 53  |STAv+9:STAv+10:S|
00000750  54 41 76 2b 31 31 3a 53  54 41 76 2b 31 32 3a 53  |TAv+11:STAv+12:S|
00000760  54 41 76 2b 31 33 3a 53  54 41 76 2b 31 34 3a 53  |TAv+13:STAv+14:S|
00000770  54 41 76 2b 31 35 0d 00  be 83 20 4c 44 59 23 36  |TAv+15.... LDY#6|
00000780  34 3a 2e 6c 33 20 41 53  4c 76 3a 52 4f 4c 76 2b  |4:.l3 ASLv:ROLv+|
00000790  31 3a 52 4f 4c 76 2b 32  3a 52 4f 4c 76 2b 33 3a  |1:ROLv+2:ROLv+3:|
000007a0  52 4f 4c 76 2b 34 3a 52  4f 4c 76 2b 35 3a 52 4f  |ROLv+4:ROLv+5:RO|
000007b0  4c 76 2b 36 3a 52 4f 4c  76 2b 37 3a 52 4f 4c 76  |Lv+6:ROLv+7:ROLv|
000007c0  2b 38 3a 52 4f 4c 76 2b  39 3a 52 4f 4c 76 2b 31  |+8:ROLv+9:ROLv+1|
000007d0  30 3a 52 4f 4c 76 2b 31  31 3a 52 4f 4c 76 2b 31  |0:ROLv+11:ROLv+1|
000007e0  32 3a 52 4f 4c 76 2b 31  33 3a 52 4f 4c 76 2b 31  |2:ROLv+13:ROLv+1|
000007f0  34 3a 52 4f 4c 76 2b 31  35 0d 00 c8 54 20 4c 53  |4:ROLv+15...T LS|
00000800  52 75 2b 37 3a 52 4f 52  75 2b 36 3a 52 4f 52 75  |Ru+7:RORu+6:RORu|
00000810  2b 35 3a 52 4f 52 75 2b  34 3a 52 4f 52 75 2b 33  |+5:RORu+4:RORu+3|
00000820  3a 52 4f 52 75 2b 32 3a  52 4f 52 75 2b 31 3a 52  |:RORu+2:RORu+1:R|
00000830  4f 52 75 3a 42 43 53 61  64 64 33 3a 4a 4d 50 6e  |ORu:BCSadd3:JMPn|
00000840  65 78 74 62 69 74 33 3a  2e 61 64 64 33 0d 00 d2  |extbit3:.add3...|
00000850  a8 20 43 4c 43 3a 4c 44  41 76 3a 41 44 43 70 3a  |. CLC:LDAv:ADCp:|
00000860  53 54 41 70 3a 4c 44 41  76 2b 31 3a 41 44 43 70  |STAp:LDAv+1:ADCp|
00000870  2b 31 3a 53 54 41 70 2b  31 3a 4c 44 41 76 2b 32  |+1:STAp+1:LDAv+2|
00000880  3a 41 44 43 70 2b 32 3a  53 54 41 70 2b 32 3a 4c  |:ADCp+2:STAp+2:L|
00000890  44 41 76 2b 33 3a 41 44  43 70 2b 33 3a 53 54 41  |DAv+3:ADCp+3:STA|
000008a0  70 2b 33 3a 4c 44 41 76  2b 34 3a 41 44 43 70 2b  |p+3:LDAv+4:ADCp+|
000008b0  34 3a 53 54 41 70 2b 34  3a 4c 44 41 76 2b 35 3a  |4:STAp+4:LDAv+5:|
000008c0  41 44 43 70 2b 35 3a 53  54 41 70 2b 35 3a 4c 44  |ADCp+5:STAp+5:LD|
000008d0  41 76 2b 36 3a 41 44 43  70 2b 36 3a 53 54 41 70  |Av+6:ADCp+6:STAp|
000008e0  2b 36 3a 4c 44 41 76 2b  37 3a 41 44 43 75 76 3a  |+6:LDAv+7:ADCuv:|
000008f0  53 54 41 75 76 0d 00 dc  aa 20 4c 44 41 76 2b 38  |STAuv.... LDAv+8|
00000900  3a 41 44 43 75 76 2b 31  3a 53 54 41 75 76 2b 31  |:ADCuv+1:STAuv+1|
00000910  3a 4c 44 41 76 2b 39 3a  41 44 43 75 76 2b 32 3a  |:LDAv+9:ADCuv+2:|
00000920  53 54 41 75 76 2b 32 3a  4c 44 41 76 2b 31 30 3a  |STAuv+2:LDAv+10:|
00000930  41 44 43 75 76 2b 33 3a  53 54 41 75 76 2b 33 3a  |ADCuv+3:STAuv+3:|
00000940  4c 44 41 76 2b 31 31 3a  41 44 43 75 76 2b 34 3a  |LDAv+11:ADCuv+4:|
00000950  53 54 41 75 76 2b 34 3a  4c 44 41 76 2b 31 32 3a  |STAuv+4:LDAv+12:|
00000960  41 44 43 75 76 2b 35 3a  53 54 41 75 76 2b 35 3a  |ADCuv+5:STAuv+5:|
00000970  4c 44 41 76 2b 31 33 3a  41 44 43 75 76 2b 36 3a  |LDAv+13:ADCuv+6:|
00000980  53 54 41 75 76 2b 36 3a  4c 44 41 76 2b 31 34 3a  |STAuv+6:LDAv+14:|
00000990  41 44 43 75 76 2b 37 3a  53 54 41 75 76 2b 37 0d  |ADCuv+7:STAuv+7.|
000009a0  00 e6 0e 20 2e 6e 65 78  74 62 69 74 33 0d 00 f0  |... .nextbit3...|
000009b0  20 20 44 45 59 3a 42 45  51 72 65 74 33 3a 4a 4d  |  DEY:BEQret3:JM|
000009c0  50 6c 33 3a 2e 72 65 74  33 20 52 54 53 0d 00 fa  |Pl3:.ret3 RTS...|
000009d0  0a 20 2e 63 61 6c 63 0d  01 04 0a 20 4c 44 58 23  |. .calc.... LDX#|
000009e0  30 0d 01 0e 0a 20 2e 6c  6f 6f 70 0d 01 18 bf 20  |0.... .loop.... |
000009f0  4c 44 41 75 3a 53 54 41  75 31 3a 53 54 41 75 32  |LDAu:STAu1:STAu2|
00000a00  3a 4c 44 41 75 2b 31 3a  53 54 41 75 31 2b 31 3a  |:LDAu+1:STAu1+1:|
00000a10  53 54 41 75 32 2b 31 3a  4c 44 41 75 2b 32 3a 53  |STAu2+1:LDAu+2:S|
00000a20  54 41 75 31 2b 32 3a 53  54 41 75 32 2b 32 3a 4c  |TAu1+2:STAu2+2:L|
00000a30  44 41 75 2b 33 3a 53 54  41 75 31 2b 33 3a 53 54  |DAu+3:STAu1+3:ST|
00000a40  41 75 32 2b 33 3a 4c 44  41 75 2b 34 3a 53 54 41  |Au2+3:LDAu+4:STA|
00000a50  75 31 2b 34 3a 53 54 41  75 32 2b 34 3a 4c 44 41  |u1+4:STAu2+4:LDA|
00000a60  75 2b 35 3a 53 54 41 75  31 2b 35 3a 53 54 41 75  |u+5:STAu1+5:STAu|
00000a70  32 2b 35 3a 4c 44 41 75  2b 36 3a 53 54 41 75 31  |2+5:LDAu+6:STAu1|
00000a80  2b 36 3a 53 54 41 75 32  2b 36 3a 4c 44 41 75 2b  |+6:STAu2+6:LDAu+|
00000a90  37 3a 53 54 41 75 31 2b  37 3a 53 54 41 75 32 2b  |7:STAu1+7:STAu2+|
00000aa0  37 3a 4a 53 52 75 31 58  75 32 0d 01 22 bf 20 4c  |7:JSRu1Xu2..". L|
00000ab0  44 41 76 3a 53 54 41 76  31 3a 53 54 41 76 32 3a  |DAv:STAv1:STAv2:|
00000ac0  4c 44 41 76 2b 31 3a 53  54 41 76 31 2b 31 3a 53  |LDAv+1:STAv1+1:S|
00000ad0  54 41 76 32 2b 31 3a 4c  44 41 76 2b 32 3a 53 54  |TAv2+1:LDAv+2:ST|
00000ae0  41 76 31 2b 32 3a 53 54  41 76 32 2b 32 3a 4c 44  |Av1+2:STAv2+2:LD|
00000af0  41 76 2b 33 3a 53 54 41  76 31 2b 33 3a 53 54 41  |Av+3:STAv1+3:STA|
00000b00  76 32 2b 33 3a 4c 44 41  76 2b 34 3a 53 54 41 76  |v2+3:LDAv+4:STAv|
00000b10  31 2b 34 3a 53 54 41 76  32 2b 34 3a 4c 44 41 76  |1+4:STAv2+4:LDAv|
00000b20  2b 35 3a 53 54 41 76 31  2b 35 3a 53 54 41 76 32  |+5:STAv1+5:STAv2|
00000b30  2b 35 3a 4c 44 41 76 2b  36 3a 53 54 41 76 31 2b  |+5:LDAv+6:STAv1+|
00000b40  36 3a 53 54 41 76 32 2b  36 3a 4c 44 41 76 2b 37  |6:STAv2+6:LDAv+7|
00000b50  3a 53 54 41 76 31 2b 37  3a 53 54 41 76 32 2b 37  |:STAv1+7:STAv2+7|
00000b60  3a 4a 53 52 76 31 58 76  32 0d 01 2c 9c 20 43 4c  |:JSRv1Xv2..,. CL|
00000b70  43 3a 4c 44 41 75 53 3a  41 44 43 76 53 3a 4c 44  |C:LDAuS:ADCvS:LD|
00000b80  41 75 53 2b 31 3a 41 44  43 76 53 2b 31 3a 4c 44  |AuS+1:ADCvS+1:LD|
00000b90  41 75 53 2b 32 3a 41 44  43 76 53 2b 32 3a 4c 44  |AuS+2:ADCvS+2:LD|
00000ba0  41 75 53 2b 33 3a 41 44  43 76 53 2b 33 3a 4c 44  |AuS+3:ADCvS+3:LD|
00000bb0  41 75 53 2b 34 3a 41 44  43 76 53 2b 34 3a 4c 44  |AuS+4:ADCvS+4:LD|
00000bc0  41 75 53 2b 35 3a 41 44  43 76 53 2b 35 3a 4c 44  |AuS+5:ADCvS+5:LD|
00000bd0  41 75 53 2b 36 3a 41 44  43 76 53 2b 36 3a 4c 44  |AuS+6:ADCvS+6:LD|
00000be0  41 75 53 2b 37 3a 41 44  43 76 53 2b 37 3a 43 4d  |AuS+7:ADCvS+7:CM|
00000bf0  50 23 34 3a 42 43 43 63  6f 6e 74 3a 52 54 53 3a  |P#4:BCCcont:RTS:|
00000c00  2e 63 6f 6e 74 0d 01 36  0f 20 4a 53 52 75 31 58  |.cont..6. JSRu1X|
00000c10  76 31 58 32 0d 01 40 2b  20 4c 44 41 75 73 69 67  |v1X2..@+ LDAusig|
00000c20  6e 66 6c 61 67 3a 53 45  43 3a 53 42 43 76 73 69  |nflag:SEC:SBCvsi|
00000c30  67 6e 66 6c 61 67 3a 42  4e 45 73 75 62 75 76 0d  |gnflag:BNEsubuv.|
00000c40  01 4a 85 20 4c 44 41 75  76 3a 53 54 41 76 3a 4c  |.J. LDAuv:STAv:L|
00000c50  44 41 75 76 2b 31 3a 53  54 41 76 2b 31 3a 4c 44  |DAuv+1:STAv+1:LD|
00000c60  41 75 76 2b 32 3a 53 54  41 76 2b 32 3a 4c 44 41  |Auv+2:STAv+2:LDA|
00000c70  75 76 2b 33 3a 53 54 41  76 2b 33 3a 4c 44 41 75  |uv+3:STAv+3:LDAu|
00000c80  76 2b 34 3a 53 54 41 76  2b 34 3a 4c 44 41 75 76  |v+4:STAv+4:LDAuv|
00000c90  2b 35 3a 53 54 41 76 2b  35 3a 4c 44 41 75 76 2b  |+5:STAv+5:LDAuv+|
00000ca0  36 3a 53 54 41 76 2b 36  3a 4c 44 41 75 76 2b 37  |6:STAv+6:LDAuv+7|
00000cb0  3a 53 54 41 76 2b 37 3a  4a 4d 50 79 73 69 67 6e  |:STAv+7:JMPysign|
00000cc0  74 65 73 74 0d 01 54 b3  20 2e 73 75 62 75 76 20  |test..T. .subuv |
00000cd0  53 45 43 3a 4c 44 41 23  30 3a 53 42 43 75 76 3a  |SEC:LDA#0:SBCuv:|
00000ce0  53 54 41 76 3a 4c 44 41  23 30 3a 53 42 43 75 76  |STAv:LDA#0:SBCuv|
00000cf0  2b 31 3a 53 54 41 76 2b  31 3a 4c 44 41 23 30 3a  |+1:STAv+1:LDA#0:|
00000d00  53 42 43 75 76 2b 32 3a  53 54 41 76 2b 32 3a 4c  |SBCuv+2:STAv+2:L|
00000d10  44 41 23 30 3a 53 42 43  75 76 2b 33 3a 53 54 41  |DA#0:SBCuv+3:STA|
00000d20  76 2b 33 3a 4c 44 41 23  30 3a 53 42 43 75 76 2b  |v+3:LDA#0:SBCuv+|
00000d30  34 3a 53 54 41 76 2b 34  3a 4c 44 41 23 30 3a 53  |4:STAv+4:LDA#0:S|
00000d40  42 43 75 76 2b 35 3a 53  54 41 76 2b 35 3a 4c 44  |BCuv+5:STAv+5:LD|
00000d50  41 23 30 3a 53 42 43 75  76 2b 36 3a 53 54 41 76  |A#0:SBCuv+6:STAv|
00000d60  2b 36 3a 4c 44 41 23 30  3a 53 42 43 75 76 2b 37  |+6:LDA#0:SBCuv+7|
00000d70  3a 53 54 41 76 2b 37 0d  01 5e 24 20 2e 79 73 69  |:STAv+7..^$ .ysi|
00000d80  67 6e 74 65 73 74 20 4c  44 41 79 73 69 67 6e 66  |gntest LDAysignf|
00000d90  6c 61 67 3a 42 45 51 73  75 62 79 0d 01 68 b3 20  |lag:BEQsuby..h. |
00000da0  43 4c 43 3a 4c 44 41 76  3a 41 44 43 79 3a 53 54  |CLC:LDAv:ADCy:ST|
00000db0  41 76 3a 4c 44 41 76 2b  31 3a 41 44 43 79 2b 31  |Av:LDAv+1:ADCy+1|
00000dc0  3a 53 54 41 76 2b 31 3a  4c 44 41 76 2b 32 3a 41  |:STAv+1:LDAv+2:A|
00000dd0  44 43 79 2b 32 3a 53 54  41 76 2b 32 3a 4c 44 41  |DCy+2:STAv+2:LDA|
00000de0  76 2b 33 3a 41 44 43 79  2b 33 3a 53 54 41 76 2b  |v+3:ADCy+3:STAv+|
00000df0  33 3a 4c 44 41 76 2b 34  3a 41 44 43 79 2b 34 3a  |3:LDAv+4:ADCy+4:|
00000e00  53 54 41 76 2b 34 3a 4c  44 41 76 2b 35 3a 41 44  |STAv+4:LDAv+5:AD|
00000e10  43 79 2b 35 3a 53 54 41  76 2b 35 3a 4c 44 41 76  |Cy+5:STAv+5:LDAv|
00000e20  2b 36 3a 41 44 43 79 2b  36 3a 53 54 41 76 2b 36  |+6:ADCy+6:STAv+6|
00000e30  3a 4c 44 41 76 2b 37 3a  41 44 43 79 2b 37 3a 53  |:LDAv+7:ADCy+7:S|
00000e40  54 41 76 2b 37 3a 4a 4d  50 76 74 65 73 74 0d 01  |TAv+7:JMPvtest..|
00000e50  72 b0 20 2e 73 75 62 79  20 53 45 43 3a 4c 44 41  |r. .suby SEC:LDA|
00000e60  76 3a 53 42 43 79 3a 53  54 41 76 3a 4c 44 41 76  |v:SBCy:STAv:LDAv|
00000e70  2b 31 3a 53 42 43 79 2b  31 3a 53 54 41 76 2b 31  |+1:SBCy+1:STAv+1|
00000e80  3a 4c 44 41 76 2b 32 3a  53 42 43 79 2b 32 3a 53  |:LDAv+2:SBCy+2:S|
00000e90  54 41 76 2b 32 3a 4c 44  41 76 2b 33 3a 53 42 43  |TAv+2:LDAv+3:SBC|
00000ea0  79 2b 33 3a 53 54 41 76  2b 33 3a 4c 44 41 76 2b  |y+3:STAv+3:LDAv+|
00000eb0  34 3a 53 42 43 79 2b 34  3a 53 54 41 76 2b 34 3a  |4:SBCy+4:STAv+4:|
00000ec0  4c 44 41 76 2b 35 3a 53  42 43 79 2b 35 3a 53 54  |LDAv+5:SBCy+5:ST|
00000ed0  41 76 2b 35 3a 4c 44 41  76 2b 36 3a 53 42 43 79  |Av+5:LDAv+6:SBCy|
00000ee0  2b 36 3a 53 54 41 76 2b  36 3a 4c 44 41 76 2b 37  |+6:STAv+6:LDAv+7|
00000ef0  3a 53 42 43 79 2b 37 3a  53 54 41 76 2b 37 0d 01  |:SBCy+7:STAv+7..|
00000f00  7c e6 20 2e 76 74 65 73  74 20 4c 44 41 23 31 3a  ||. .vtest LDA#1:|
00000f10  53 54 41 76 73 69 67 6e  66 6c 61 67 3a 4c 44 41  |STAvsignflag:LDA|
00000f20  76 2b 37 3a 80 23 26 38  30 3a 42 45 51 6e 65 77  |v+7:.#&80:BEQnew|
00000f30  75 3a 4c 44 41 23 30 3a  53 45 43 3a 53 42 43 76  |u:LDA#0:SEC:SBCv|
00000f40  3a 53 54 41 76 3a 4c 44  41 23 30 3a 53 42 43 76  |:STAv:LDA#0:SBCv|
00000f50  2b 31 3a 53 54 41 76 2b  31 3a 4c 44 41 23 30 3a  |+1:STAv+1:LDA#0:|
00000f60  53 42 43 76 2b 32 3a 53  54 41 76 2b 32 3a 4c 44  |SBCv+2:STAv+2:LD|
00000f70  41 23 30 3a 53 42 43 76  2b 33 3a 53 54 41 76 2b  |A#0:SBCv+3:STAv+|
00000f80  33 3a 4c 44 41 23 30 3a  53 42 43 76 2b 34 3a 53  |3:LDA#0:SBCv+4:S|
00000f90  54 41 76 2b 34 3a 4c 44  41 23 30 3a 53 42 43 76  |TAv+4:LDA#0:SBCv|
00000fa0  2b 35 3a 53 54 41 76 2b  35 3a 4c 44 41 23 30 3a  |+5:STAv+5:LDA#0:|
00000fb0  53 42 43 76 2b 36 3a 53  54 41 76 2b 36 3a 4c 44  |SBCv+6:STAv+6:LD|
00000fc0  41 23 30 3a 53 42 43 76  2b 37 3a 53 54 41 76 2b  |A#0:SBCv+7:STAv+|
00000fd0  37 3a 4c 44 41 23 30 3a  44 45 43 76 73 69 67 6e  |7:LDA#0:DECvsign|
00000fe0  66 6c 61 67 0d 01 86 c0  20 2e 6e 65 77 75 20 53  |flag.... .newu S|
00000ff0  45 43 3a 4c 44 41 75 53  3a 53 42 43 76 53 3a 53  |EC:LDAuS:SBCvS:S|
00001000  54 41 75 3a 4c 44 41 75  53 2b 31 3a 53 42 43 76  |TAu:LDAuS+1:SBCv|
00001010  53 2b 31 3a 53 54 41 75  2b 31 3a 4c 44 41 75 53  |S+1:STAu+1:LDAuS|
00001020  2b 32 3a 53 42 43 76 53  2b 32 3a 53 54 41 75 2b  |+2:SBCvS+2:STAu+|
00001030  32 3a 4c 44 41 75 53 2b  33 3a 53 42 43 76 53 2b  |2:LDAuS+3:SBCvS+|
00001040  33 3a 53 54 41 75 2b 33  3a 4c 44 41 75 53 2b 34  |3:STAu+3:LDAuS+4|
00001050  3a 53 42 43 76 53 2b 34  3a 53 54 41 75 2b 34 3a  |:SBCvS+4:STAu+4:|
00001060  4c 44 41 75 53 2b 35 3a  53 42 43 76 53 2b 35 3a  |LDAuS+5:SBCvS+5:|
00001070  53 54 41 75 2b 35 3a 4c  44 41 75 53 2b 36 3a 53  |STAu+5:LDAuS+6:S|
00001080  42 43 76 53 2b 36 3a 53  54 41 75 2b 36 3a 4c 44  |BCvS+6:STAu+6:LD|
00001090  41 75 53 2b 37 3a 53 42  43 76 53 2b 37 3a 53 54  |AuS+7:SBCvS+7:ST|
000010a0  41 75 2b 37 0d 01 90 19  20 4c 44 41 78 73 69 67  |Au+7.... LDAxsig|
000010b0  6e 66 6c 61 67 3a 42 45  51 73 75 62 78 0d 01 9a  |nflag:BEQsubx...|
000010c0  b3 20 43 4c 43 3a 4c 44  41 75 3a 41 44 43 78 3a  |. CLC:LDAu:ADCx:|
000010d0  53 54 41 75 3a 4c 44 41  75 2b 31 3a 41 44 43 78  |STAu:LDAu+1:ADCx|
000010e0  2b 31 3a 53 54 41 75 2b  31 3a 4c 44 41 75 2b 32  |+1:STAu+1:LDAu+2|
000010f0  3a 41 44 43 78 2b 32 3a  53 54 41 75 2b 32 3a 4c  |:ADCx+2:STAu+2:L|
00001100  44 41 75 2b 33 3a 41 44  43 78 2b 33 3a 53 54 41  |DAu+3:ADCx+3:STA|
00001110  75 2b 33 3a 4c 44 41 75  2b 34 3a 41 44 43 78 2b  |u+3:LDAu+4:ADCx+|
00001120  34 3a 53 54 41 75 2b 34  3a 4c 44 41 75 2b 35 3a  |4:STAu+4:LDAu+5:|
00001130  41 44 43 78 2b 35 3a 53  54 41 75 2b 35 3a 4c 44  |ADCx+5:STAu+5:LD|
00001140  41 75 2b 36 3a 41 44 43  78 2b 36 3a 53 54 41 75  |Au+6:ADCx+6:STAu|
00001150  2b 36 3a 4c 44 41 75 2b  37 3a 41 44 43 78 2b 37  |+6:LDAu+7:ADCx+7|
00001160  3a 53 54 41 75 2b 37 3a  4a 4d 50 75 74 65 73 74  |:STAu+7:JMPutest|
00001170  0d 01 a4 b0 20 2e 73 75  62 78 20 53 45 43 3a 4c  |.... .subx SEC:L|
00001180  44 41 75 3a 53 42 43 78  3a 53 54 41 75 3a 4c 44  |DAu:SBCx:STAu:LD|
00001190  41 75 2b 31 3a 53 42 43  78 2b 31 3a 53 54 41 75  |Au+1:SBCx+1:STAu|
000011a0  2b 31 3a 4c 44 41 75 2b  32 3a 53 42 43 78 2b 32  |+1:LDAu+2:SBCx+2|
000011b0  3a 53 54 41 75 2b 32 3a  4c 44 41 75 2b 33 3a 53  |:STAu+2:LDAu+3:S|
000011c0  42 43 78 2b 33 3a 53 54  41 75 2b 33 3a 4c 44 41  |BCx+3:STAu+3:LDA|
000011d0  75 2b 34 3a 53 42 43 78  2b 34 3a 53 54 41 75 2b  |u+4:SBCx+4:STAu+|
000011e0  34 3a 4c 44 41 75 2b 35  3a 53 42 43 78 2b 35 3a  |4:LDAu+5:SBCx+5:|
000011f0  53 54 41 75 2b 35 3a 4c  44 41 75 2b 36 3a 53 42  |STAu+5:LDAu+6:SB|
00001200  43 78 2b 36 3a 53 54 41  75 2b 36 3a 4c 44 41 75  |Cx+6:STAu+6:LDAu|
00001210  2b 37 3a 53 42 43 78 2b  37 3a 53 54 41 75 2b 37  |+7:SBCx+7:STAu+7|
00001220  0d 01 ae e5 20 2e 75 74  65 73 74 20 4c 44 41 23  |.... .utest LDA#|
00001230  31 3a 53 54 41 75 73 69  67 6e 66 6c 61 67 3a 4c  |1:STAusignflag:L|
00001240  44 41 75 2b 37 3a 80 23  26 38 30 3a 42 45 51 72  |DAu+7:.#&80:BEQr|
00001250  65 74 3a 4c 44 41 23 30  3a 53 45 43 3a 53 42 43  |et:LDA#0:SEC:SBC|
00001260  75 3a 53 54 41 75 3a 4c  44 41 23 30 3a 53 42 43  |u:STAu:LDA#0:SBC|
00001270  75 2b 31 3a 53 54 41 75  2b 31 3a 4c 44 41 23 30  |u+1:STAu+1:LDA#0|
00001280  3a 53 42 43 75 2b 32 3a  53 54 41 75 2b 32 3a 4c  |:SBCu+2:STAu+2:L|
00001290  44 41 23 30 3a 53 42 43  75 2b 33 3a 53 54 41 75  |DA#0:SBCu+3:STAu|
000012a0  2b 33 3a 4c 44 41 23 30  3a 53 42 43 75 2b 34 3a  |+3:LDA#0:SBCu+4:|
000012b0  53 54 41 75 2b 34 3a 4c  44 41 23 30 3a 53 42 43  |STAu+4:LDA#0:SBC|
000012c0  75 2b 35 3a 53 54 41 75  2b 35 3a 4c 44 41 23 30  |u+5:STAu+5:LDA#0|
000012d0  3a 53 42 43 75 2b 36 3a  53 54 41 75 2b 36 3a 4c  |:SBCu+6:STAu+6:L|
000012e0  44 41 23 30 3a 53 42 43  75 2b 37 3a 53 54 41 75  |DA#0:SBCu+7:STAu|
000012f0  2b 37 3a 4c 44 41 23 30  3a 44 45 43 75 73 69 67  |+7:LDA#0:DECusig|
00001300  6e 66 6c 61 67 0d 01 b8  30 20 2e 72 65 74 20 49  |nflag...0 .ret I|
00001310  4e 58 3a 43 50 58 23 32  35 3a 42 43 43 61 67 61  |NX:CPX#25:BCCaga|
00001320  69 6e 3a 52 54 53 3a 2e  61 67 61 69 6e 20 4a 4d  |in:RTS:.again JM|
00001330  50 6c 6f 6f 70 0d 01 c2  0a 20 2e 63 6f 64 65 0d  |Ploop.... .code.|
00001340  01 cc 20 20 4c 44 41 23  30 3a 53 54 41 78 63 6f  |..  LDA#0:STAxco|
00001350  6f 72 64 3a 53 54 41 78  63 6f 6f 72 64 2b 31 0d  |ord:STAxcoord+1.|
00001360  01 d6 47 20 2e 78 6c 6f  6f 70 20 4c 44 41 23 30  |..G .xloop LDA#0|
00001370  3a 53 54 41 78 3a 53 54  41 78 2b 31 3a 53 54 41  |:STAx:STAx+1:STA|
00001380  78 2b 32 3a 53 54 41 78  2b 33 3a 53 54 41 78 2b  |x+2:STAx+3:STAx+|
00001390  34 3a 53 54 41 78 2b 35  3a 53 54 41 78 2b 36 3a  |4:STAx+5:STAx+6:|
000013a0  53 54 41 78 2b 37 0d 01  e0 1e 20 4c 44 41 78 63  |STAx+7.... LDAxc|
000013b0  6f 6f 72 64 2b 31 3a 43  4d 50 23 32 3a 42 43 43  |oord+1:CMP#2:BCC|
000013c0  78 6e 65 67 0d 01 ea 4d  20 53 45 43 3a 4c 44 41  |xneg...M SEC:LDA|
000013d0  78 63 6f 6f 72 64 3a 53  54 41 78 2b 36 3a 4c 44  |xcoord:STAx+6:LD|
000013e0  41 78 63 6f 6f 72 64 2b  31 3a 53 42 43 23 32 3a  |Axcoord+1:SBC#2:|
000013f0  53 54 41 78 2b 37 3a 4c  44 41 23 31 3a 53 54 41  |STAx+7:LDA#1:STA|
00001400  78 73 69 67 6e 66 6c 61  67 3a 4a 4d 50 6e 65 77  |xsignflag:JMPnew|
00001410  79 0d 01 f4 51 20 2e 78  6e 65 67 20 53 45 43 3a  |y...Q .xneg SEC:|
00001420  4c 44 41 23 30 3a 53 42  43 78 63 6f 6f 72 64 3a  |LDA#0:SBCxcoord:|
00001430  53 54 41 78 2b 36 3a 4c  44 41 23 32 3a 53 42 43  |STAx+6:LDA#2:SBC|
00001440  78 63 6f 6f 72 64 2b 31  3a 53 54 41 78 2b 37 3a  |xcoord+1:STAx+7:|
00001450  4c 44 41 23 30 3a 53 54  41 78 73 69 67 6e 66 6c  |LDA#0:STAxsignfl|
00001460  61 67 0d 01 fe 26 20 2e  6e 65 77 79 20 4c 44 41  |ag...& .newy LDA|
00001470  23 30 3a 53 54 41 79 63  6f 6f 72 64 3a 53 54 41  |#0:STAycoord:STA|
00001480  79 63 6f 6f 72 64 2b 31  0d 02 08 47 20 2e 79 6c  |ycoord+1...G .yl|
00001490  6f 6f 70 20 4c 44 41 23  30 3a 53 54 41 79 3a 53  |oop LDA#0:STAy:S|
000014a0  54 41 79 2b 31 3a 53 54  41 79 2b 32 3a 53 54 41  |TAy+1:STAy+2:STA|
000014b0  79 2b 33 3a 53 54 41 79  2b 34 3a 53 54 41 79 2b  |y+3:STAy+4:STAy+|
000014c0  35 3a 53 54 41 79 2b 36  3a 53 54 41 79 2b 37 0d  |5:STAy+6:STAy+7.|
000014d0  02 12 1e 20 4c 44 41 79  63 6f 6f 72 64 2b 31 3a  |... LDAycoord+1:|
000014e0  43 4d 50 23 32 3a 42 43  43 79 6e 65 67 0d 02 1c  |CMP#2:BCCyneg...|
000014f0  4d 20 53 45 43 3a 4c 44  41 79 63 6f 6f 72 64 3a  |M SEC:LDAycoord:|
00001500  53 54 41 79 2b 36 3a 4c  44 41 79 63 6f 6f 72 64  |STAy+6:LDAycoord|
00001510  2b 31 3a 53 42 43 23 32  3a 53 54 41 79 2b 37 3a  |+1:SBC#2:STAy+7:|
00001520  4c 44 41 23 31 3a 53 54  41 79 73 69 67 6e 66 6c  |LDA#1:STAysignfl|
00001530  61 67 3a 4a 4d 50 6d 61  69 6e 0d 02 26 51 20 2e  |ag:JMPmain..&Q .|
00001540  79 6e 65 67 20 53 45 43  3a 4c 44 41 23 30 3a 53  |yneg SEC:LDA#0:S|
00001550  42 43 79 63 6f 6f 72 64  3a 53 54 41 79 2b 36 3a  |BCycoord:STAy+6:|
00001560  4c 44 41 23 32 3a 53 42  43 79 63 6f 6f 72 64 2b  |LDA#2:SBCycoord+|
00001570  31 3a 53 54 41 79 2b 37  3a 4c 44 41 23 30 3a 53  |1:STAy+7:LDA#0:S|
00001580  54 41 79 73 69 67 6e 66  6c 61 67 0d 02 30 0a 20  |TAysignflag..0. |
00001590  2e 6d 61 69 6e 0d 02 3a  8a 20 4c 44 41 78 73 69  |.main..:. LDAxsi|
000015a0  67 6e 66 6c 61 67 3a 53  54 41 75 73 69 67 6e 66  |gnflag:STAusignf|
000015b0  6c 61 67 3a 4c 44 41 78  3a 53 54 41 75 3a 4c 44  |lag:LDAx:STAu:LD|
000015c0  41 78 2b 31 3a 53 54 41  75 2b 31 3a 4c 44 41 78  |Ax+1:STAu+1:LDAx|
000015d0  2b 32 3a 53 54 41 75 2b  32 3a 4c 44 41 78 2b 33  |+2:STAu+2:LDAx+3|
000015e0  3a 53 54 41 75 2b 33 3a  4c 44 41 78 2b 34 3a 53  |:STAu+3:LDAx+4:S|
000015f0  54 41 75 2b 34 3a 4c 44  41 78 2b 35 3a 53 54 41  |TAu+4:LDAx+5:STA|
00001600  75 2b 35 3a 4c 44 41 78  2b 36 3a 53 54 41 75 2b  |u+5:LDAx+6:STAu+|
00001610  36 3a 4c 44 41 78 2b 37  3a 53 54 41 75 2b 37 0d  |6:LDAx+7:STAu+7.|
00001620  02 44 8a 20 4c 44 41 79  73 69 67 6e 66 6c 61 67  |.D. LDAysignflag|
00001630  3a 53 54 41 76 73 69 67  6e 66 6c 61 67 3a 4c 44  |:STAvsignflag:LD|
00001640  41 79 3a 53 54 41 76 3a  4c 44 41 79 2b 31 3a 53  |Ay:STAv:LDAy+1:S|
00001650  54 41 76 2b 31 3a 4c 44  41 79 2b 32 3a 53 54 41  |TAv+1:LDAy+2:STA|
00001660  76 2b 32 3a 4c 44 41 79  2b 33 3a 53 54 41 76 2b  |v+2:LDAy+3:STAv+|
00001670  33 3a 4c 44 41 79 2b 34  3a 53 54 41 76 2b 34 3a  |3:LDAy+4:STAv+4:|
00001680  4c 44 41 79 2b 35 3a 53  54 41 76 2b 35 3a 4c 44  |LDAy+5:STAv+5:LD|
00001690  41 79 2b 36 3a 53 54 41  76 2b 36 3a 4c 44 41 79  |Ay+6:STAv+6:LDAy|
000016a0  2b 37 3a 53 54 41 76 2b  37 0d 02 4e 0c 20 4a 53  |+7:STAv+7..N. JS|
000016b0  52 63 61 6c 63 0d 02 58  9f 20 4c 44 41 23 31 38  |Rcalc..X. LDA#18|
000016c0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 30 3a  |:JSR&FFEE:LDA#0:|
000016d0  4a 53 52 26 46 46 45 45  3a 54 58 41 3a 4a 53 52  |JSR&FFEE:TXA:JSR|
000016e0  26 46 46 45 45 3a 4c 44  41 23 32 35 3a 4a 53 52  |&FFEE:LDA#25:JSR|
000016f0  26 46 46 45 45 3a 4c 44  41 23 34 3a 4a 53 52 26  |&FFEE:LDA#4:JSR&|
00001700  46 46 45 45 3a 4c 44 41  78 63 6f 6f 72 64 3a 4a  |FFEE:LDAxcoord:J|
00001710  53 52 26 46 46 45 45 3a  4c 44 41 78 63 6f 6f 72  |SR&FFEE:LDAxcoor|
00001720  64 2b 31 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |d+1:JSR&FFEE:LDA|
00001730  79 63 6f 6f 72 64 3a 4a  53 52 26 46 46 45 45 3a  |ycoord:JSR&FFEE:|
00001740  4c 44 41 79 63 6f 6f 72  64 2b 31 3a 4a 53 52 26  |LDAycoord+1:JSR&|
00001750  46 46 45 45 0d 02 62 73  20 4c 44 41 23 32 35 3a  |FFEE..bs LDA#25:|
00001760  4a 53 52 26 46 46 45 45  3a 4c 44 41 23 35 3a 4a  |JSR&FFEE:LDA#5:J|
00001770  53 52 26 46 46 45 45 3a  4c 44 41 78 63 6f 6f 72  |SR&FFEE:LDAxcoor|
00001780  64 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 78 63  |d:JSR&FFEE:LDAxc|
00001790  6f 6f 72 64 2b 31 3a 4a  53 52 26 46 46 45 45 3a  |oord+1:JSR&FFEE:|
000017a0  4c 44 41 79 63 6f 6f 72  64 3a 4a 53 52 26 46 46  |LDAycoord:JSR&FF|
000017b0  45 45 3a 4c 44 41 79 63  6f 6f 72 64 2b 31 3a 4a  |EE:LDAycoord+1:J|
000017c0  53 52 26 46 46 45 45 0d  02 6c 58 20 43 4c 43 3a  |SR&FFEE..lX CLC:|
000017d0  4c 44 41 79 63 6f 6f 72  64 3a 41 44 43 23 34 3a  |LDAycoord:ADC#4:|
000017e0  53 54 41 79 63 6f 6f 72  64 3a 4c 44 41 79 63 6f  |STAycoord:LDAyco|
000017f0  6f 72 64 2b 31 3a 41 44  43 23 30 3a 53 54 41 79  |ord+1:ADC#0:STAy|
00001800  63 6f 6f 72 64 2b 31 3a  43 4d 50 23 34 3a 42 45  |coord+1:CMP#4:BE|
00001810  51 6e 65 78 74 78 3a 4a  4d 50 79 6c 6f 6f 70 0d  |Qnextx:JMPyloop.|
00001820  02 76 5d 20 2e 6e 65 78  74 78 20 43 4c 43 3a 4c  |.v] .nextx CLC:L|
00001830  44 41 78 63 6f 6f 72 64  3a 41 44 43 23 34 3a 53  |DAxcoord:ADC#4:S|
00001840  54 41 78 63 6f 6f 72 64  3a 4c 44 41 78 63 6f 6f  |TAxcoord:LDAxcoo|
00001850  72 64 2b 31 3a 41 44 43  23 30 3a 53 54 41 78 63  |rd+1:ADC#0:STAxc|
00001860  6f 6f 72 64 2b 31 3a 43  4d 50 23 34 3a 42 45 51  |oord+1:CMP#4:BEQ|
00001870  65 6e 64 3a 4a 4d 50 78  6c 6f 6f 70 0d 02 80 0d  |end:JMPxloop....|
00001880  20 2e 65 6e 64 20 52 54  53 0d 02 8a c5 20 2e 75  | .end RTS.... .u|
00001890  53 20 45 51 55 44 30 3a  45 51 55 44 30 3a 2e 70  |S EQUD0:EQUD0:.p|
000018a0  20 45 51 55 44 30 3a 45  51 55 44 30 3a 2e 75 32  | EQUD0:EQUD0:.u2|
000018b0  20 45 51 55 44 30 3a 45  51 55 44 30 3a 45 51 55  | EQUD0:EQUD0:EQU|
000018c0  44 30 3a 45 51 55 44 30  3a 2e 75 31 20 45 51 55  |D0:EQUD0:.u1 EQU|
000018d0  44 30 3a 45 51 55 44 30  3a 2e 76 53 20 45 51 55  |D0:EQUD0:.vS EQU|
000018e0  44 30 3a 45 51 55 44 30  3a 2e 76 32 20 45 51 55  |D0:EQUD0:.v2 EQU|
000018f0  44 30 3a 45 51 55 44 30  3a 45 51 55 44 30 3a 45  |D0:EQUD0:EQUD0:E|
00001900  51 55 44 30 3a 2e 76 31  20 45 51 55 44 30 3a 45  |QUD0:.v1 EQUD0:E|
00001910  51 55 44 30 3a 2e 75 76  20 45 51 55 44 30 3a 45  |QUD0:.uv EQUD0:E|
00001920  51 55 44 30 3a 2e 76 20  45 51 55 44 30 3a 45 51  |QUD0:.v EQUD0:EQ|
00001930  55 44 30 3a 45 51 55 44  30 3a 45 51 55 44 30 3a  |UD0:EQUD0:EQUD0:|
00001940  2e 75 20 45 51 55 44 30  3a 45 51 55 44 30 0d 02  |.u EQUD0:EQUD0..|
00001950  94 82 20 2e 75 73 69 67  6e 66 6c 61 67 20 45 51  |.. .usignflag EQ|
00001960  55 42 30 3a 2e 76 73 69  67 6e 66 6c 61 67 20 45  |UB0:.vsignflag E|
00001970  51 55 42 30 3a 2e 78 73  69 67 6e 66 6c 61 67 20  |QUB0:.xsignflag |
00001980  45 51 55 42 30 3a 2e 79  73 69 67 6e 66 6c 61 67  |EQUB0:.ysignflag|
00001990  20 45 51 55 42 30 3a 2e  78 63 6f 6f 72 64 20 45  | EQUB0:.xcoord E|
000019a0  51 55 57 30 3a 2e 79 63  6f 6f 72 64 20 45 51 55  |QUW0:.ycoord EQU|
000019b0  57 30 3a 2e 78 20 45 51  55 44 30 3a 45 51 55 44  |W0:.x EQUD0:EQUD|
000019c0  30 3a 2e 79 20 45 51 55  44 30 3a 45 51 55 44 30  |0:.y EQUD0:EQUD0|
000019d0  0d 02 9e 08 20 5d 3a ed  0d 02 a8 2b 20 ff 22 53  |.... ]:....+ ."S|
000019e0  41 56 45 20 63 6f 64 65  20 22 2b c3 7e 6d 63 2b  |AVE code "+.~mc+|
000019f0  22 20 22 2b c3 7e 50 25  2b 22 20 22 2b c3 7e 63  |" "+.~P%+" "+.~c|
00001a00  6f 64 65 0d ff                                    |ode..|
00001a05
Mandel/MANDEL5.m0
Mandel/MANDEL5.m1
Mandel/MANDEL5.m2
Mandel/MANDEL5.m4
Mandel/MANDEL5.m5

© Dominic Ford 2021–2024.

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