Home » Archimedes archive » Acorn Computing » 1994 05 subscription disc.adf » 9405s » BeebDisk/ManSrc1
BeebDisk/ManSrc1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1994 05 subscription disc.adf » 9405s |
| Filename: | BeebDisk/ManSrc1 |
| Read OK: | ✔ |
| File size: | 4323 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn Computing » 1994 05 subscription disc.adf » 9405s » BeebDisk/ManSrc1
- AEW website » mu » mu_5_25_discs_Micro_User_12_03_D-MU12_03.ssd » ManSrc1
File contents
#� Ultibrot mandelbrot generator � by Andrew Bennett � (c) Acorn Computing (: 2"� �>&1100 � �=&1100:�"ManSrc1" <: Fdest%=&1100:zp%=0 Pimage_page=&40 Zcolours=25 d: noswrch=&FFEE xmansize=&70 �val_start=&71 � x=&72 � y=&76 � s=&7A � zp1=zp% � zp2=zp1+2 � ST1=zp2+2 � ST2=ST1+5 � ST3=ST2+5 � Rx=ST1 � Ry=Rx+1 �Rxsize=Ry+1 �Rysize=Rxsize+1 Rcolour=Rysize+1 Kptr=Rcolour+1 scan_pos=Kptr+1 "scan_end=scan_pos+1 ,Cx=scan_end+1 6 Cy=Cx+4 @Cvalue=Cy+4 JCi=Cvalue+1 T Cr=Ci+5 ^ Ci2=Cr+5 h Cr2=Ci2+5 rCr_sign=Cr2+5 |Ci_sign=Cr_sign+1 �Uval1=Ci_sign+1 �Uval2=Uval1+5 �Uresult=Uval2+5 � Zmag=ST1 �ZI1=Zmag+1 � ZI2=ZI1+1 � ZI3=ZI2+1 � ZI4=ZI3+1 � ZI5=ZI4+1 �flip_I1=ST1 � PI1=ST1 �Pcolour=PI1+1 �PT=Pcolour+1 Pnext=PT+3 Psum=Pnext+3 Px=PT & Py=Px+1 0Poverlay=Py+1 :Plastcol=Poverlay+1 DPlastx=Plastcol+2 NPcurr=Plastx+2 XPoffset=Pcurr+2 bPI2=Poffset+1 l: v/xpos1=&400:xpos2=&480:xpos3=&500:xpos4=&580 �/ypos1=&600:ypos2=&680:ypos3=&700:ypos4=&780 �: �col_I1=&400:col_I2=&500 �Pbuff=&400:Pcols=&700 �: �� Mcalc(2), MCL1(2) � � MCplus1(2), MCplus2(2) �� MCexit(2), MCnext(2) �� MCok1(2), MCok2(2) � � MCsubtract(2), MCok3(2) �� MCexit2(2) �: � � multiply(2), Unoadd1(2,34) � Unoadd2(2), Unoadd3(2) : � code% &1800 : *� opt%=4 � 6 � 2 4P%=dest%:O%=code% > [OPT opt% H.mandel_go R JSR Mdraw \JSR Mresize f JSR Mflip p JMP Mplot z: � .Msetup � LDX #3 � LDY #0 � .MSL1 � LDA x,X � STA ST1,Y � LDA y,X � STA ST2,Y � LDA s,X � STA ST3,Y �INY �DEX � BPL MSL1 LDA #0 STA ST1+4 STA ST2+4 $ STA ST3+4 .LDA mansize 8 LSR A B .MSL2 L LSR ST3 V ROR ST3+1 ` ROR ST3+2 j ROR ST3+3 t ROR ST3+4 ~ LSR A � BNE MSL2 � LDY #0 � .MSL3 � LDA ST1+3 �STA xpos1,Y � LDA ST1+2 �STA xpos2,Y � LDA ST1+1 �STA xpos3,Y � LDA ST1 �STA xpos4,Y � LDA ST2+3 STA ypos1,Y LDA ST2+2 STA ypos2,Y LDA ST2+1 (STA ypos3,Y 2 LDA ST2 <STA ypos4,Y FCLC P LDX #4 Z .MSL4 d LDA ST1,X n ADC ST3,X x STA ST1,X �DEX � BPL MSL4 �CLC � LDX #4 � .MSL5 � LDA ST2,X � ADC ST3,X � STA ST2,X �DEX � BPL MSL5 �INY �CPY mansize � BNE MSL3 LDX #Mcalc(0) � 256 LDY #Mcalc(0) � 256 LDA ST3 "BNE MSstore , LDA ST3+1 6 CMP #&10 @BCS MSstore JLDX #Mcalc(1) � 256 TLDY #Mcalc(1) � 256 ^ LDA ST3+1 hBNE MSstore r LDA ST3+2 | CMP #&10 �BCS MSstore �LDX #Mcalc(2) � 256 �LDY #Mcalc(2) � 256 � .MSstore �STX MCcall1+1 �STY MCcall1+2 �STX MCcall2+1 �STY MCcall2+2 �RTS �: � .Mdraw �JSR Msetup � LDX #0 LDY #0 LDA mansize JSR Mscanx & LDX #0 0LDA mansize :TAY DDEY NJSR Mscanx X LDX #0 b LDY #1 lLDA mansize vSEC � SBC #1 �JSR Mscany �LDX mansize �DEX � LDY #1 �TXA �JSR Mscany � LDA #&FF � STA Kptr � LDA #0 � STA Rx � STA Ry �LDX mansize DEX STX Rxsize STX Rysize : * .Mrec 4 LDA #1 >CMP Rxsize HBNE MRnext R .MRexit \RTS f .MRnext pCMP Rysize zBEQ MRexit � LDX Rx � LDY Ry �JSR calcpos � STX zp1 � STY zp1+1 � LDX Rx � LDA Ry �CLC �ADC Rysize �TAY �JSR calcpos � STX zp2 � STY zp2+1 LDY Rxsize LDA (zp1),Y STA Rcolour $ .MRL1 .CMP (zp1),Y 8BNE MRsubdivide BCMP (zp2),Y LBNE MRsubdivide VDEY ` BPL MRL1 j LDA Rx tCLC ~ADC Rxsize �TAX � LDY Ry �JSR calcpos � STX zp2 � STY zp2+1 � LDY #0 �LDX Rysize �DEX � .MRL2 � LDA zp1 � � #128 � STA zp1 BMI MRF1 INC zp1+1 INC zp2+1 .MRF1 ( LDA zp2 2 � #128 < STA zp2 FLDA Rcolour PCMP (zp1),Y ZBNE MRsubdivide dCMP (zp2),Y nBNE MRsubdivide xDEX � BNE MRL2 � LDX Rx � LDY Ry �JSR calcpos � STX zp1 � STY zp1+1 �LDX Rysize �DEX � .MRL3 � LDA zp1 � � #128 � STA zp1 � BMI MRF2 INC zp1+1 .MRF2 LDA Rcolour "LDY Rxsize ,DEY 6 .MRL4 @STA (zp1),Y JDEY T BNE MRL4 ^DEX h BNE MRL3 rRTS |.MRsubdivide � INC Kptr � LDX Kptr �LDA Rysize � LSR A �STA Kysize1,X �CLC � ADC Ry �STA Kymid,X �TAY � LDA Rx � STA Kx,X �TAX �INX CLC ADC Rxsize JSR Mscanx & LDY Kptr 0LDA Rxsize : LSR A DSTA Kxsize1,Y NCLC X ADC Rx bSTA Kxmid,Y lTAX vLDA Kymid,Y � LDY Ry �INY �JSR Mscany � LDY Kptr �LDX Kxmid,Y �LDA Kymid,Y �TAY �INY � LDA Ry �CLC �ADC Rysize �JSR Mscany � LDX Kptr SEC LDA Rxsize SBC Kxsize1,X STA Kxsize2,X *LDA Rysize 4SBC Kysize1,X >STA Kysize2,X H LDA Ry R STA Ky,X \LDA Kxsize1,X fSTA Rxsize pLDA Kysize1,X zSTA Rysize � JSR Mrec � LDX Kptr �LDA Kxmid,X � STA Rx � LDA Ky,X � STA Ry �LDA Kxsize2,X �STA Rxsize �LDA Kysize1,X �STA Rysize � JSR Mrec � LDX Kptr � LDA Kx,X STA Rx LDA Kymid,X STA Ry $LDA Kxsize1,X .STA Rxsize 8LDA Kysize2,X BSTA Rysize L JSR Mrec V LDX Kptr `LDA Kxmid,X j STA Rx tLDA Kymid,X ~ STA Ry �LDA Kxsize2,X �STA Rxsize �LDA Kysize2,X �STA Rysize � DEC Kptr � JMP Mrec �: � .Mscanx �STA scan_end �STX scan_pos �LDA ypos1,Y � STA Cy LDA ypos2,Y STA Cy+1 LDA ypos3,Y STA Cy+2 (LDA ypos4,Y 2 STA Cy+3 <JSR calcpos F STX zp1 P STY zp1+1 ZLDX scan_pos d .Mscx_L1 nLDA xpos1,X x STA Cx �LDA xpos2,X � STA Cx+1 �LDA xpos3,X � STA Cx+2 �LDA xpos4,X � STA Cx+3 � .MCcall1 � JSR &FFFF � LDY #0 �STA (zp1),Y � INC zp1 �BNE Mscx_F � INC zp1+1 .Mscx_F INC scan_pos LDX scan_pos "CPX scan_end ,BNE Mscx_L1 6RTS @: J .Mscany TSTA scan_end ^CPY scan_end hBEQ Mscy_exit rSTY scan_pos |LDA xpos1,X � STA Cx �LDA xpos2,X � STA Cx+1 �LDA xpos3,X � STA Cx+2 �LDA xpos4,X � STA Cx+3 �JSR calcpos � STX zp1 � STY zp1+1 �LDX scan_pos � .Mscy_L1 �LDA ypos1,X STA Cy LDA ypos2,X STA Cy+1 &LDA ypos3,X 0 STA Cy+2 :LDA ypos4,X D STA Cy+3 N .MCcall2 X JSR &FFFF b LDY #0 lSTA (zp1),Y v LDA zp1 � � #128 � STA zp1 �BMI Mscy_F � INC zp1+1 � .Mscy_F �INC scan_pos �LDX scan_pos �CPX scan_end �BNE Mscy_L1 �.Mscy_exit �RTS �: � .calcpos TYA LSR A PHP CLC *ADC #image_page 4TAY >PLP HBCC cp_exit RTXA \ � #128 fTAX p .cp_exit zRTS �: �] ��mandcalc(0) ��mandcalc(1) ��mandcalc(2) � [OPT opt% �: � .Mresize � LDX #0 � LDA #128 � .MZL1 �INX �SEC SBC mansize BNE MZL1 STX Zmag $%LDA #(image_page*256+&3F80) � 256 . STA zp1 8%LDA #(image_page*256+&3F80) � 256 B STA zp1+1 L LDX #0 VLDY mansize ` STY ZI1 jDEY tJSR calcpos ~ STX zp2 � STY zp2+1 � .MZL2 � LDA Zmag � STA ZI2 � .MZL3 �LDY mansize �DEY � STY ZI3 � LDA #127 � STA ZI4 � .MZL4 � LDA Zmag STA ZI5 .MZL5 LDY ZI3 LDA (zp2),Y ( LDY ZI4 2STA (zp1),Y < DEC ZI4 F DEC ZI5 P BNE MZL5 Z DEC ZI3 d BPL MZL4 n LDA zp1 x � #128 � STA zp1 � BPL MZB1 � DEC zp1+1 � .MZB1 � DEC ZI2 � BNE MZL3 � LDA zp2 � � #128 � STA zp2 � BPL MZB2 � DEC zp2+1 � .MZB2 � DEC ZI1 BNE MZL2 RTS : " .Mflip , LDA #0 6 STA zp1 @LDA #image_page J STA zp1+1 T%LDA #(image_page*256+&3F80) � 256 ^ STA zp2 h%LDA #(image_page*256+&3F80) � 256 r STA zp2+1 | LDA #64 �STA flip_I1 � .Mflip_L1 � LDY #&7F � .Mflip_L2 �LDA (zp1),Y �TAX �LDA (zp2),Y �STA (zp1),Y �TXA �STA (zp2),Y �DEY �BPL Mflip_L2 � LDA zp1 STA zp2 � #128 STA zp1 &BMI Mflip_next 0 INC zp1+1 : DEC zp2+1 D.Mflip_next NDEC flip_I1 XBNE Mflip_L1 bRTS l: v .Mplot � LDA #0 �TAX � .Pcols_L1 �STA col_I1,X �STA col_I2,X �INX �BNE Pcols_L1 � LDA #64 � STA PI1 �LDA #image_page � STA zp1+1 � LDY #0 � STY zp1 .Pcols_L2 LDA (zp1),Y TAX INC col_I1,X *BNE Pcols_F1 4INC col_I2,X > .Pcols_F1 HINY RBNE Pcols_L2 \ INC zp1+1 f DEC PI1 pBNE Pcols_L2 zSEC �LDA #128*128 � 256 �SBC col_I1 � STA PT+1 �LDA #128*128 � 256 �SBC col_I2 � STA PT+2 � LDA #0 � STA PT � LDX #24 � .Pcols_L3 � ASL PT � ROL PT+1 � ROL PT+2 ROL A CMP #colours-1 BCC Pcols_nogo $SBC #colours-1 . INC PT 8.Pcols_nogo BDEX LBNE Pcols_L3 V LDA PT ` STA Pnext j LDA PT+1 tSTA Pnext+1 ~ LDA PT+2 �STA Pnext+2 � LDX #0 � STX Psum �STX Psum+1 �INX �STX Pcolour � .Pcols_L4 �LDA Pcolour �STA Pcols,X �CLC � LDA Psum �ADC col_I1,X STA Psum LDA Psum+1 ADC col_I2,X STA Psum+1 (SEC 2 LDA Psum <SBC Pnext+1 FLDA Psum+1 PSBC Pnext+2 ZBCC Pcols_samecol dINC Pcolour nCLC x LDA Pnext � ADC PT � STA Pnext �LDA Pnext+1 � ADC PT+1 �STA Pnext+1 �LDA Pnext+2 � ADC PT+2 �STA Pnext+2 �.Pcols_samecol �INX �BNE Pcols_L4 � LDA #0 � STA Pcols : LDA #0 STA zp1 "LDA #image_page , STA zp1+1 6 LDA #254 @ STA Py J.PL1 T LDX #2 ^ LDY #0 h STY zp2 rLDA #Pbuff � 256 | STA zp2+1 �.PL2 �LDA (zp1),Y �STA (zp2),Y �INY � BNE PL2 � INC zp1+1 � INC zp2+1 �DEX � BNE PL2 �LDA #Pbuff � 256 � STA zp2+1 � LDA #4 � STA PI1 .PL3 JSR Pblanklines LDA #1 &STA Poverlay 0.PL4 : LDX #0 DLDY Poverlay N JSR gcol X LDA #0 b STA Px lSTA Plastcol vSTA Plastcol+1 �STA Poffset �.PL5 �LDY Poffset �LDA (zp2),Y �TAX �LDA Pcols,X �TAX �LDA Pecf1,X � � #&F0 � STA Pcurr �LDA Pecf2,X � � #&F0 �STA Pcurr+1 INY LDA (zp2),Y TAX LDA Pcols,X *TAX 4LDA Pecf1,X > � #&0F H �A Pcurr R STA Pcurr \LDA Pecf2,X f � #&0F p�A Pcurr+1 zSTA Pcurr+1 �INY �STY Poffset �JSR Pbytes � LDA Px � BNE PL5 �JSR Pfinish �INC Poverlay �LDA Poverlay � CMP #4 � BNE PL4 � DEC Py � DEC Py � LDA zp2 � #128 STA zp2 BMI PF1 $ INC zp2+1 ..PF1 8 DEC PI1 B BNE PL3 L LDA Py V CMP #254 ` BEQ Pdone j JMP PL1 t .Pdone ~RTS �: �.Pblanklines � LDX #0 � LDY #0 � JSR gcol � LDA #4 � LDX #0 � LDY Py � JSR plot � LDA #5 � LDX #255 � JSR plot LDA #4 LDX #0 INY JSR plot ( LDA #5 2 LDX #255 <: F .plot PPHA Z LDA #25 dJSR oswrch nPLA xJSR oswrch �TXA � ASL A � ASL A �JSR oswrch �TXA � LSR A � LSR A � LSR A � LSR A � LSR A � LSR A �JSR oswrch �TYA ASL A ASL A JSR oswrch "TYA , LSR A 6 LSR A @ LSR A J LSR A T LSR A ^ LSR A hJMP oswrch r: | .gcol � LDA #18 �JSR oswrch �TXA �JSR oswrch �TYA �JMP oswrch �: � .Pbytes � LDA #4 � STA PI2 �.Pbytes_L1 � LDX #1 �.Pbytes_L2 LDA #0 ASL Pcurr,X ROL A &ASL Pcurr,X 0 ROL A :CMP Plastcol,X DBEQ Pbytes_noaction NCMP Poverlay XBEQ Pbytes_start bPHA lJSR Pgoplot vPLA �STA Plastcol,X �JMP Pbytes_noaction �.Pbytes_start �STA Plastcol,X � LDA Px �STA Plastx,X �.Pbytes_noaction �DEX �BPL Pbytes_L2 � INC Px � DEC PI2 �BNE Pbytes_L1 �RTS !: ! .Pfinish ! LDX #0 ! JSR Pgoplot !* LDX #1 !4: !> .Pgoplot !HLDA Plastcol,X !RCMP Poverlay !\BNE PgoPexit !f LDY Py !pTXA !zPHA !�BEQ PgoPF1 !�INY !� .PgoPF1 !� LDA Px !�SBC Plastx,X !� CMP #2 !� LDA #69 !�BCC PgoPquick !�LDA Plastx,X !�TAX !� LDA #4 !� JSR plot !� LDA #5 ".PgoPquick " LDX Px "DEX "$ JSR plot ".PLA "8TAX "B .PgoPexit "LRTS "V: "` .Pecf1 "j!EQUD &40404000:EQUD &54545444 "t!EQUD &95959555:EQUD &A9A9A999 "~!EQUD &EAEAEAAA:EQUD &FEFEFEEE "� EQUB &FF "�: "� .Pecf2 "�!EQUD &11040000:EQUD &55451111 "�!EQUD &66595555:EQUD &AA9A6666 "�!EQUD &BBAEAAAA:EQUD &FFEFBBBB "� EQUB &FF "�: "�.Kx EQUD 0:EQUD 0 "�.Ky EQUD 0:EQUD 0 "�.Kxmid EQUD 0:EQUD 0 "�.Kymid EQUD 0:EQUD 0 # .Kxsize1 EQUD 0:EQUD 0 # .Kysize1 EQUD 0:EQUD 0 #.Kxsize2 EQUD 0:EQUD 0 # .Kysize2 EQUD 0:EQUD 0 #(] #2� #<@�"SAVE ManCde "+�~code%+" "+�~O%+" "+�~mandel_go+" "+�~dest% #F� "ManSrc2" #P: #Z� �mandcalc(s%) #d [OPT opt% #n.Mcalc(s%) #xLDA val_start #�STA Cvalue #�] #�$� s%=2 [OPT opt%:LDA #0:STA Cr:] #�&� s%>0 [OPT opt%:LDA Cx:STA Cr+1:] #� [OPT opt% #� LDA Cx+1 #� STA Cr+2 #� LDA Cx+2 #� STA Cr+3 #� LDA Cx+3 #� STA Cr+4 #�] #�$� s%=2 [OPT opt%:LDA #0:STA Ci:] $&� s%>0 [OPT opt%:LDA Cy:STA Ci+1:] $ [OPT opt% $ LDA Cy+1 $" STA Ci+2 $, LDA Cy+2 $6 STA Ci+3 $@ LDA Cy+3 $J STA Ci+4 $T .MCL1(s%) $^ LDA Cr+4 $hSTA Cr_sign $rBPL �v(MCplus1(s%)) $|SEC $�] $�+� s%=2 [OPT opt%:LDA #0:SBC Cr:STA Cr:] $�/� s%>0 [OPT opt%:LDA #0:SBC Cr+1:STA Cr+1:] $� [OPT opt% $� LDA #0 $� SBC Cr+2 $� STA Cr+2 $� LDA #0 $� SBC Cr+3 $� STA Cr+3 $� LDA #0 $� SBC Cr+4 $� STA Cr+4 %.MCplus1(s%) % LDA Ci+4 % STA Ci_sign %&BPL �v(MCplus2(s%)) %0SEC %:] %D+� s%=2 [OPT opt%:LDA #0:SBC Ci:STA Ci:] %N/� s%>0 [OPT opt%:LDA #0:SBC Ci+1:STA Ci+1:] %X [OPT opt% %b LDA #0 %l SBC Ci+2 %v STA Ci+2 %� LDA #0 %� SBC Ci+3 %� STA Ci+3 %� LDA #0 %� SBC Ci+4 %� STA Ci+4 %�.MCplus2(s%) %�] %�1� s%=2 [OPT opt%:LDA Cr:STA Uval1:STA Uval2:] %�7� s%>0 [OPT opt%:LDA Cr+1:STA Uval1+1:STA Uval2+1:] %� [OPT opt% %� LDA Cr+2 %�STA Uval1+2 &STA Uval2+2 & LDA Cr+3 &STA Uval1+3 & STA Uval2+3 &* LDA Cr+4 &4STA Uval1+4 &>STA Uval2+4 &HJSR �v(multiply(s%)) &R] &\*� s%=2 [OPT opt%:LDA Uresult:STA Cr2:] &f.� s%>0 [OPT opt%:LDA Uresult+1:STA Cr2+1:] &p [OPT opt% &zLDA Uresult+2 &� STA Cr2+2 &�LDA Uresult+3 &� STA Cr2+3 &�LDA Uresult+4 &� STA Cr2+4 &�] &�1� s%=2 [OPT opt%:LDA Ci:STA Uval1:STA Uval2:] &�7� s%>0 [OPT opt%:LDA Ci+1:STA Uval1+1:STA Uval2+1:] &� [OPT opt% &� LDA Ci+2 &�STA Uval1+2 &�STA Uval2+2 &� LDA Ci+3 'STA Uval1+3 'STA Uval2+3 ' LDA Ci+4 '$STA Uval1+4 '.STA Uval2+4 '8JSR �v(multiply(s%)) 'BCLC 'L] 'V2� s%=2 [OPT opt%:LDA Uresult:STA Ci2:ADC Cr2:] '`8� s%>0 [OPT opt%:LDA Uresult+1:STA Ci2+1:ADC Cr2+1:] 'j [OPT opt% 'tLDA Uresul2 &� LDA Ci+3 'STA Uval1+3 'STA Uval2+3 ' LDA Ci+4 '$STA Uval1+4 '.STA Uval2+4 '8JSR �v(multiply(s%)) 'BCLC 'L] 'V2� s%=2 [OPT opt%:LDA Uresult:STA Ci2:ADC Cr2:] '`8� s%>0 [OPT opt%:LDA Uresult+1:STA Ci2+1:ADC Cr2+1:] 'j [OPT opt% 'tLDA Uresulpt%:LDA Cr:STA Uval1:] (2+� s%>0 [OPT opt%:LDA Cr+1:STA Uval1+1:] (< [OPT opt% (F LDA Cr+2 (PSTA Uval1+2 (Z LDA Cr+3 (dSTA Uval1+3 (n LDA Cr+4 (xSTA Uval1+4 (�] (�'� s%=2 [OPT opt%:LDA Ci:STA Uval2:] (�+� s%>0 [OPT opt%:LDA Ci+1:STA Uval2+1:] (� [OPT opt% (� LDA Ci+2 (�STA Uval2+2 (� LDA Ci+3 (�STA Uval2+3 (� LDA Ci+4 (�STA Uval2+4 (�JSR �v(multiply(s%)) (�] (�>� s%=2 [OPT opt%:ASL Uresult:ROL Uresult+1:ROL Uresult+2:] )2� s%=1 [OPT opt%:ASL Uresult+1:ROL Uresult+2:] )$� s%=0 [OPT opt%:ASL Uresult+2:] ) [OPT opt% )"ROL Uresult+3 ),ROL Uresult+4 )6SEC )@] )J-� s%=2 [OPT opt%:LDA Cr2:SBC Ci2:STA Cr:] )T3� s%>0 [OPT opt%:LDA Cr2+1:SBC Ci2+1:STA Cr+1:] )^ [OPT opt% )h LDA Cr2+2 )r SBC Ci2+2 )| STA Cr+2 )� LDA Cr2+3 )� SBC Ci2+3 )� STA Cr+3 )� LDA Cr2+4 )� SBC Ci2+4 )� STA Cr+4 )�CLC )�] )�/� s%>0 [OPT opt%:LDA Cr+1:ADC Cx:STA Cr+1:] )� [OPT opt% )� LDA Cr+2 )� ADC Cx+1 )� STA Cr+2 * LDA Cr+3 * ADC Cx+2 * STA Cr+3 *& LDA Cr+4 *0 ADC Cx+3 *: STA Cr+4 *D CMP #&10 *NBCC �v(MCok1(s%)) *X )� LDA Cr2+4 )� SBC Ci2+4 )� STA Cr+4 )�CLC )�] )�/� s%>0 [OPT opt%:LDA Cr+1:ADC Cx:STA Cr+1:] )� [OPT opt% )� LDA Cr+2 )� ADC Cx+1 )� STA Cr+2 * LDA Cr+3 * ADC Cx+2 * STA Cr+3 *& LDA Cr+4 *0 ADC Cx+3 *: STA Cr+4 *D CMP #&10 *NBCC �v(MCok1(s%)) *X i+3 *� LDA Cy+3 +ADC Uresult+4 + STA Ci+4 + CMP #&10 + BCC �v(MCok2(s%)) +* CMP #&F0 +4BCC �v(MCexit2(s%)) +>.MCok2(s%) +HJMP �v(MCL1(s%)) +R.MCsubtract(s%) +\SEC +f] +p0� s%=2 [OPT opt%:LDA #0:SBC Uresult:STA Ci:] +z4� s%>0 [OPT opt%:LDA Cy:SBC Uresult+1:STA Ci+1:] +� [OPT opt% +� LDA Cy+1 +�SBC Uresult+2 +� STA Ci+2 +� LDA Cy+2 +�SBC Uresult+3 +� STA Ci+3 +� LDA Cy+3 +�SBC Uresult+4 +� STA Ci+4 +� CMP #&10 +�BCC �v(MCok3(s%)) +� CMP #&F0 ,BCC �v(MCexit2(s%)) ,.MCok3(s%) ,JMP �v(MCL1(s%)) ,$.MCexit2(s%) ,.LDA Cvalue ,8RTS ,B: ,L.multiply(s%) ,V LDA #0 ,`] ,j"� s%=2 [OPT opt%:STA Uresult:] ,t$� s%>0 [OPT opt%:STA Uresult+1:] ,~ [OPT opt% ,�STA Uresult+2 ,�STA Uresult+3 ,�STA Uresult+4 ,�] ,�� iter%=16-8*s% � 34 ,� [OPT opt% ,�LSR Uval1+iter% � 8 ,� BCC �v(Unoadd1(s%,iter%)) ,�CLC ,�] ,�8� s%=2 [OPT opt%:LDA Uresult:ADC Uval2:STA Uresult:] ,�>� s%>0 [OPT opt%:LDA Uresult+1:ADC Uval2+1:STA Uresult+1:] - [OPT opt% - LDA Uresult+2 -ADC Uval2+2 - STA Uresult+2 -(LDA Uresult+3 -2ADC Uval2+3 -<STA Uresult+3 -FLDA Uresult+4 -PADC Uval2+4 -ZSTA Uresult+4 -d.Unoadd1(s%,iter%) -nLSR Uresult+4 -xROR Uresult+3 -�ROR Uresult+2 -�] -�$� s%>0 [OPT opt%:ROR Uresult+1:] -�"� s%=2 [OPT opt%:ROR Uresult:] -�� -� [OPT opt% -�LSR Uval1+4 -�BCC �v(Unoadd2(s%)) -�CLC -�] -�8� s%=2 [OPT opt%:LDA Uresult:ADC Uval2:STA Uresult:] -�>� s%>0 [OPT opt%:LDA Uresult+1:ADC Uval2+1:STA Uresult+1:] -� [OPT opt% .LDA Uresult+2 .ADC Uval2+2 .STA Uresult+2 ."LDA Uresult+3 .,ADC Uval2+3 .6STA Uresult+3 .@LDA Uresult+4 .JADC Uval2+4 .TSTA Uresult+4 .^.Unoadd2(s%) .h] .r8� s%=2 [OPT opt%:ASL Uval2:ROL Uval2+1:ROL Uval2+2:] .|.� s%=1 [OPT opt%:ASL Uval2+1:ROL Uval2+2:] .�"� s%=0 [OPT opt%:ASL Uval2+2:] .� [OPT opt% .�ROL Uval2+3 .�ROL Uval2+4 .�LSR Uval1+4 .�BCC �v(Unoadd3(s%)) .�CLC .�] .�8� s%=2 [OPT opt%:LDA Uresult:ADC Uval2:STA Uresult:] .�>� s%>0 [OPT opt%:LDA Uresult+1:ADC Uval2+1:STA Uresult+1:] .� [OPT opt% .�LDA Uresult+2 .�ADC Uval2+2 /STA Uresult+2 /LDA Uresult+3 / ADC Uval2+3 /&STA Uresult+3 /0LDA Uresult+4 /:ADC Uval2+4 /DSTA Uresult+4 /N.Unoadd3(s%) /XRTS /b] /l� /v: /� � �v(v%)� opt%=4 � =P% � =v% �
00000000 0d 00 0a 23 f4 20 55 6c 74 69 62 72 6f 74 20 6d |...#. Ultibrot m| 00000010 61 6e 64 65 6c 62 72 6f 74 20 67 65 6e 65 72 61 |andelbrot genera| 00000020 74 6f 72 0d 00 14 17 f4 20 62 79 20 41 6e 64 72 |tor..... by Andr| 00000030 65 77 20 42 65 6e 6e 65 74 74 0d 00 1e 19 f4 20 |ew Bennett..... | 00000040 28 63 29 20 41 63 6f 72 6e 20 43 6f 6d 70 75 74 |(c) Acorn Comput| 00000050 69 6e 67 0d 00 28 05 3a 0d 00 32 22 e7 20 90 3e |ing..(.:..2". .>| 00000060 26 31 31 30 30 20 8c 20 d0 3d 26 31 31 30 30 3a |&1100 . .=&1100:| 00000070 d7 22 4d 61 6e 53 72 63 31 22 0d 00 3c 05 3a 0d |."ManSrc1"..<.:.| 00000080 00 46 15 64 65 73 74 25 3d 26 31 31 30 30 3a 7a |.F.dest%=&1100:z| 00000090 70 25 3d 30 0d 00 50 12 69 6d 61 67 65 5f 70 61 |p%=0..P.image_pa| 000000a0 67 65 3d 26 34 30 0d 00 5a 0e 63 6f 6c 6f 75 72 |ge=&40..Z.colour| 000000b0 73 3d 32 35 0d 00 64 05 3a 0d 00 6e 10 6f 73 77 |s=25..d.:..n.osw| 000000c0 72 63 68 3d 26 46 46 45 45 0d 00 78 0f 6d 61 6e |rch=&FFEE..x.man| 000000d0 73 69 7a 65 3d 26 37 30 0d 00 82 11 76 61 6c 5f |size=&70....val_| 000000e0 73 74 61 72 74 3d 26 37 31 0d 00 8c 09 78 3d 26 |start=&71....x=&| 000000f0 37 32 0d 00 96 09 79 3d 26 37 36 0d 00 a0 09 73 |72....y=&76....s| 00000100 3d 26 37 41 0d 00 aa 0b 7a 70 31 3d 7a 70 25 0d |=&7A....zp1=zp%.| 00000110 00 b4 0d 7a 70 32 3d 7a 70 31 2b 32 0d 00 be 0d |...zp2=zp1+2....| 00000120 53 54 31 3d 7a 70 32 2b 32 0d 00 c8 0d 53 54 32 |ST1=zp2+2....ST2| 00000130 3d 53 54 31 2b 35 0d 00 d2 0d 53 54 33 3d 53 54 |=ST1+5....ST3=ST| 00000140 32 2b 35 0d 00 dc 0a 52 78 3d 53 54 31 0d 00 e6 |2+5....Rx=ST1...| 00000150 0b 52 79 3d 52 78 2b 31 0d 00 f0 0f 52 78 73 69 |.Ry=Rx+1....Rxsi| 00000160 7a 65 3d 52 79 2b 31 0d 00 fa 13 52 79 73 69 7a |ze=Ry+1....Rysiz| 00000170 65 3d 52 78 73 69 7a 65 2b 31 0d 01 04 14 52 63 |e=Rxsize+1....Rc| 00000180 6f 6c 6f 75 72 3d 52 79 73 69 7a 65 2b 31 0d 01 |olour=Rysize+1..| 00000190 0e 12 4b 70 74 72 3d 52 63 6f 6c 6f 75 72 2b 31 |..Kptr=Rcolour+1| 000001a0 0d 01 18 13 73 63 61 6e 5f 70 6f 73 3d 4b 70 74 |....scan_pos=Kpt| 000001b0 72 2b 31 0d 01 22 17 73 63 61 6e 5f 65 6e 64 3d |r+1..".scan_end=| 000001c0 73 63 61 6e 5f 70 6f 73 2b 31 0d 01 2c 11 43 78 |scan_pos+1..,.Cx| 000001d0 3d 73 63 61 6e 5f 65 6e 64 2b 31 0d 01 36 0b 43 |=scan_end+1..6.C| 000001e0 79 3d 43 78 2b 34 0d 01 40 0f 43 76 61 6c 75 65 |y=Cx+4..@.Cvalue| 000001f0 3d 43 79 2b 34 0d 01 4a 0f 43 69 3d 43 76 61 6c |=Cy+4..J.Ci=Cval| 00000200 75 65 2b 31 0d 01 54 0b 43 72 3d 43 69 2b 35 0d |ue+1..T.Cr=Ci+5.| 00000210 01 5e 0c 43 69 32 3d 43 72 2b 35 0d 01 68 0d 43 |.^.Ci2=Cr+5..h.C| 00000220 72 32 3d 43 69 32 2b 35 0d 01 72 11 43 72 5f 73 |r2=Ci2+5..r.Cr_s| 00000230 69 67 6e 3d 43 72 32 2b 35 0d 01 7c 15 43 69 5f |ign=Cr2+5..|.Ci_| 00000240 73 69 67 6e 3d 43 72 5f 73 69 67 6e 2b 31 0d 01 |sign=Cr_sign+1..| 00000250 86 13 55 76 61 6c 31 3d 43 69 5f 73 69 67 6e 2b |..Uval1=Ci_sign+| 00000260 31 0d 01 90 11 55 76 61 6c 32 3d 55 76 61 6c 31 |1....Uval2=Uval1| 00000270 2b 35 0d 01 9a 13 55 72 65 73 75 6c 74 3d 55 76 |+5....Uresult=Uv| 00000280 61 6c 32 2b 35 0d 01 a4 0c 5a 6d 61 67 3d 53 54 |al2+5....Zmag=ST| 00000290 31 0d 01 ae 0e 5a 49 31 3d 5a 6d 61 67 2b 31 0d |1....ZI1=Zmag+1.| 000002a0 01 b8 0d 5a 49 32 3d 5a 49 31 2b 31 0d 01 c2 0d |...ZI2=ZI1+1....| 000002b0 5a 49 33 3d 5a 49 32 2b 31 0d 01 cc 0d 5a 49 34 |ZI3=ZI2+1....ZI4| 000002c0 3d 5a 49 33 2b 31 0d 01 d6 0d 5a 49 35 3d 5a 49 |=ZI3+1....ZI5=ZI| 000002d0 34 2b 31 0d 01 e0 0f 66 6c 69 70 5f 49 31 3d 53 |4+1....flip_I1=S| 000002e0 54 31 0d 01 ea 0b 50 49 31 3d 53 54 31 0d 01 f4 |T1....PI1=ST1...| 000002f0 11 50 63 6f 6c 6f 75 72 3d 50 49 31 2b 31 0d 01 |.Pcolour=PI1+1..| 00000300 fe 10 50 54 3d 50 63 6f 6c 6f 75 72 2b 31 0d 02 |..PT=Pcolour+1..| 00000310 08 0e 50 6e 65 78 74 3d 50 54 2b 33 0d 02 12 10 |..Pnext=PT+3....| 00000320 50 73 75 6d 3d 50 6e 65 78 74 2b 33 0d 02 1c 09 |Psum=Pnext+3....| 00000330 50 78 3d 50 54 0d 02 26 0b 50 79 3d 50 78 2b 31 |Px=PT..&.Py=Px+1| 00000340 0d 02 30 11 50 6f 76 65 72 6c 61 79 3d 50 79 2b |..0.Poverlay=Py+| 00000350 31 0d 02 3a 17 50 6c 61 73 74 63 6f 6c 3d 50 6f |1..:.Plastcol=Po| 00000360 76 65 72 6c 61 79 2b 31 0d 02 44 15 50 6c 61 73 |verlay+1..D.Plas| 00000370 74 78 3d 50 6c 61 73 74 63 6f 6c 2b 32 0d 02 4e |tx=Plastcol+2..N| 00000380 12 50 63 75 72 72 3d 50 6c 61 73 74 78 2b 32 0d |.Pcurr=Plastx+2.| 00000390 02 58 13 50 6f 66 66 73 65 74 3d 50 63 75 72 72 |.X.Poffset=Pcurr| 000003a0 2b 32 0d 02 62 11 50 49 32 3d 50 6f 66 66 73 65 |+2..b.PI2=Poffse| 000003b0 74 2b 31 0d 02 6c 05 3a 0d 02 76 2f 78 70 6f 73 |t+1..l.:..v/xpos| 000003c0 31 3d 26 34 30 30 3a 78 70 6f 73 32 3d 26 34 38 |1=&400:xpos2=&48| 000003d0 30 3a 78 70 6f 73 33 3d 26 35 30 30 3a 78 70 6f |0:xpos3=&500:xpo| 000003e0 73 34 3d 26 35 38 30 0d 02 80 2f 79 70 6f 73 31 |s4=&580.../ypos1| 000003f0 3d 26 36 30 30 3a 79 70 6f 73 32 3d 26 36 38 30 |=&600:ypos2=&680| 00000400 3a 79 70 6f 73 33 3d 26 37 30 30 3a 79 70 6f 73 |:ypos3=&700:ypos| 00000410 34 3d 26 37 38 30 0d 02 8a 05 3a 0d 02 94 1b 63 |4=&780....:....c| 00000420 6f 6c 5f 49 31 3d 26 34 30 30 3a 63 6f 6c 5f 49 |ol_I1=&400:col_I| 00000430 32 3d 26 35 30 30 0d 02 9e 19 50 62 75 66 66 3d |2=&500....Pbuff=| 00000440 26 34 30 30 3a 50 63 6f 6c 73 3d 26 37 30 30 0d |&400:Pcols=&700.| 00000450 02 a8 05 3a 0d 02 b2 17 de 20 4d 63 61 6c 63 28 |...:..... Mcalc(| 00000460 32 29 2c 20 4d 43 4c 31 28 32 29 0d 02 bc 1c de |2), MCL1(2).....| 00000470 20 4d 43 70 6c 75 73 31 28 32 29 2c 20 4d 43 70 | MCplus1(2), MCp| 00000480 6c 75 73 32 28 32 29 0d 02 c6 1a de 20 4d 43 65 |lus2(2)..... MCe| 00000490 78 69 74 28 32 29 2c 20 4d 43 6e 65 78 74 28 32 |xit(2), MCnext(2| 000004a0 29 0d 02 d0 18 de 20 4d 43 6f 6b 31 28 32 29 2c |)..... MCok1(2),| 000004b0 20 4d 43 6f 6b 32 28 32 29 0d 02 da 1d de 20 4d | MCok2(2)..... M| 000004c0 43 73 75 62 74 72 61 63 74 28 32 29 2c 20 4d 43 |Csubtract(2), MC| 000004d0 6f 6b 33 28 32 29 0d 02 e4 10 de 20 4d 43 65 78 |ok3(2)..... MCex| 000004e0 69 74 32 28 32 29 0d 02 ee 05 3a 0d 02 f8 20 de |it2(2)....:... .| 000004f0 20 6d 75 6c 74 69 70 6c 79 28 32 29 2c 20 55 6e | multiply(2), Un| 00000500 6f 61 64 64 31 28 32 2c 33 34 29 0d 03 02 1c de |oadd1(2,34).....| 00000510 20 55 6e 6f 61 64 64 32 28 32 29 2c 20 55 6e 6f | Unoadd2(2), Uno| 00000520 61 64 64 33 28 32 29 0d 03 0c 05 3a 0d 03 16 11 |add3(2)....:....| 00000530 de 20 63 6f 64 65 25 20 26 31 38 30 30 0d 03 20 |. code% &1800.. | 00000540 05 3a 0d 03 2a 14 e3 20 6f 70 74 25 3d 34 20 b8 |.:..*.. opt%=4 .| 00000550 20 36 20 88 20 32 0d 03 34 15 50 25 3d 64 65 73 | 6 . 2..4.P%=des| 00000560 74 25 3a 4f 25 3d 63 6f 64 65 25 0d 03 3e 0d 5b |t%:O%=code%..>.[| 00000570 4f 50 54 20 6f 70 74 25 0d 03 48 0e 2e 6d 61 6e |OPT opt%..H..man| 00000580 64 65 6c 5f 67 6f 0d 03 52 0d 4a 53 52 20 4d 64 |del_go..R.JSR Md| 00000590 72 61 77 0d 03 5c 0f 4a 53 52 20 4d 72 65 73 69 |raw..\.JSR Mresi| 000005a0 7a 65 0d 03 66 0d 4a 53 52 20 4d 66 6c 69 70 0d |ze..f.JSR Mflip.| 000005b0 03 70 0d 4a 4d 50 20 4d 70 6c 6f 74 0d 03 7a 05 |.p.JMP Mplot..z.| 000005c0 3a 0d 03 84 0b 2e 4d 73 65 74 75 70 0d 03 8e 0a |:.....Msetup....| 000005d0 4c 44 58 20 23 33 0d 03 98 0a 4c 44 59 20 23 30 |LDX #3....LDY #0| 000005e0 0d 03 a2 09 2e 4d 53 4c 31 0d 03 ac 0b 4c 44 41 |.....MSL1....LDA| 000005f0 20 78 2c 58 0d 03 b6 0d 53 54 41 20 53 54 31 2c | x,X....STA ST1,| 00000600 59 0d 03 c0 0b 4c 44 41 20 79 2c 58 0d 03 ca 0d |Y....LDA y,X....| 00000610 53 54 41 20 53 54 32 2c 59 0d 03 d4 0b 4c 44 41 |STA ST2,Y....LDA| 00000620 20 73 2c 58 0d 03 de 0d 53 54 41 20 53 54 33 2c | s,X....STA ST3,| 00000630 59 0d 03 e8 07 49 4e 59 0d 03 f2 07 44 45 58 0d |Y....INY....DEX.| 00000640 03 fc 0c 42 50 4c 20 4d 53 4c 31 0d 04 06 0a 4c |...BPL MSL1....L| 00000650 44 41 20 23 30 0d 04 10 0d 53 54 41 20 53 54 31 |DA #0....STA ST1| 00000660 2b 34 0d 04 1a 0d 53 54 41 20 53 54 32 2b 34 0d |+4....STA ST2+4.| 00000670 04 24 0d 53 54 41 20 53 54 33 2b 34 0d 04 2e 0f |.$.STA ST3+4....| 00000680 4c 44 41 20 6d 61 6e 73 69 7a 65 0d 04 38 09 4c |LDA mansize..8.L| 00000690 53 52 20 41 0d 04 42 09 2e 4d 53 4c 32 0d 04 4c |SR A..B..MSL2..L| 000006a0 0b 4c 53 52 20 53 54 33 0d 04 56 0d 52 4f 52 20 |.LSR ST3..V.ROR | 000006b0 53 54 33 2b 31 0d 04 60 0d 52 4f 52 20 53 54 33 |ST3+1..`.ROR ST3| 000006c0 2b 32 0d 04 6a 0d 52 4f 52 20 53 54 33 2b 33 0d |+2..j.ROR ST3+3.| 000006d0 04 74 0d 52 4f 52 20 53 54 33 2b 34 0d 04 7e 09 |.t.ROR ST3+4..~.| 000006e0 4c 53 52 20 41 0d 04 88 0c 42 4e 45 20 4d 53 4c |LSR A....BNE MSL| 000006f0 32 0d 04 92 0a 4c 44 59 20 23 30 0d 04 9c 09 2e |2....LDY #0.....| 00000700 4d 53 4c 33 0d 04 a6 0d 4c 44 41 20 53 54 31 2b |MSL3....LDA ST1+| 00000710 33 0d 04 b0 0f 53 54 41 20 78 70 6f 73 31 2c 59 |3....STA xpos1,Y| 00000720 0d 04 ba 0d 4c 44 41 20 53 54 31 2b 32 0d 04 c4 |....LDA ST1+2...| 00000730 0f 53 54 41 20 78 70 6f 73 32 2c 59 0d 04 ce 0d |.STA xpos2,Y....| 00000740 4c 44 41 20 53 54 31 2b 31 0d 04 d8 0f 53 54 41 |LDA ST1+1....STA| 00000750 20 78 70 6f 73 33 2c 59 0d 04 e2 0b 4c 44 41 20 | xpos3,Y....LDA | 00000760 53 54 31 0d 04 ec 0f 53 54 41 20 78 70 6f 73 34 |ST1....STA xpos4| 00000770 2c 59 0d 04 f6 0d 4c 44 41 20 53 54 32 2b 33 0d |,Y....LDA ST2+3.| 00000780 05 00 0f 53 54 41 20 79 70 6f 73 31 2c 59 0d 05 |...STA ypos1,Y..| 00000790 0a 0d 4c 44 41 20 53 54 32 2b 32 0d 05 14 0f 53 |..LDA ST2+2....S| 000007a0 54 41 20 79 70 6f 73 32 2c 59 0d 05 1e 0d 4c 44 |TA ypos2,Y....LD| 000007b0 41 20 53 54 32 2b 31 0d 05 28 0f 53 54 41 20 79 |A ST2+1..(.STA y| 000007c0 70 6f 73 33 2c 59 0d 05 32 0b 4c 44 41 20 53 54 |pos3,Y..2.LDA ST| 000007d0 32 0d 05 3c 0f 53 54 41 20 79 70 6f 73 34 2c 59 |2..<.STA ypos4,Y| 000007e0 0d 05 46 07 43 4c 43 0d 05 50 0a 4c 44 58 20 23 |..F.CLC..P.LDX #| 000007f0 34 0d 05 5a 09 2e 4d 53 4c 34 0d 05 64 0d 4c 44 |4..Z..MSL4..d.LD| 00000800 41 20 53 54 31 2c 58 0d 05 6e 0d 41 44 43 20 53 |A ST1,X..n.ADC S| 00000810 54 33 2c 58 0d 05 78 0d 53 54 41 20 53 54 31 2c |T3,X..x.STA ST1,| 00000820 58 0d 05 82 07 44 45 58 0d 05 8c 0c 42 50 4c 20 |X....DEX....BPL | 00000830 4d 53 4c 34 0d 05 96 07 43 4c 43 0d 05 a0 0a 4c |MSL4....CLC....L| 00000840 44 58 20 23 34 0d 05 aa 09 2e 4d 53 4c 35 0d 05 |DX #4.....MSL5..| 00000850 b4 0d 4c 44 41 20 53 54 32 2c 58 0d 05 be 0d 41 |..LDA ST2,X....A| 00000860 44 43 20 53 54 33 2c 58 0d 05 c8 0d 53 54 41 20 |DC ST3,X....STA | 00000870 53 54 32 2c 58 0d 05 d2 07 44 45 58 0d 05 dc 0c |ST2,X....DEX....| 00000880 42 50 4c 20 4d 53 4c 35 0d 05 e6 07 49 4e 59 0d |BPL MSL5....INY.| 00000890 05 f0 0f 43 50 59 20 6d 61 6e 73 69 7a 65 0d 05 |...CPY mansize..| 000008a0 fa 0c 42 4e 45 20 4d 53 4c 33 0d 06 04 17 4c 44 |..BNE MSL3....LD| 000008b0 58 20 23 4d 63 61 6c 63 28 30 29 20 83 20 32 35 |X #Mcalc(0) . 25| 000008c0 36 0d 06 0e 17 4c 44 59 20 23 4d 63 61 6c 63 28 |6....LDY #Mcalc(| 000008d0 30 29 20 81 20 32 35 36 0d 06 18 0b 4c 44 41 20 |0) . 256....LDA | 000008e0 53 54 33 0d 06 22 0f 42 4e 45 20 4d 53 73 74 6f |ST3..".BNE MSsto| 000008f0 72 65 0d 06 2c 0d 4c 44 41 20 53 54 33 2b 31 0d |re..,.LDA ST3+1.| 00000900 06 36 0c 43 4d 50 20 23 26 31 30 0d 06 40 0f 42 |.6.CMP #&10..@.B| 00000910 43 53 20 4d 53 73 74 6f 72 65 0d 06 4a 17 4c 44 |CS MSstore..J.LD| 00000920 58 20 23 4d 63 61 6c 63 28 31 29 20 83 20 32 35 |X #Mcalc(1) . 25| 00000930 36 0d 06 54 17 4c 44 59 20 23 4d 63 61 6c 63 28 |6..T.LDY #Mcalc(| 00000940 31 29 20 81 20 32 35 36 0d 06 5e 0d 4c 44 41 20 |1) . 256..^.LDA | 00000950 53 54 33 2b 31 0d 06 68 0f 42 4e 45 20 4d 53 73 |ST3+1..h.BNE MSs| 00000960 74 6f 72 65 0d 06 72 0d 4c 44 41 20 53 54 33 2b |tore..r.LDA ST3+| 00000970 32 0d 06 7c 0c 43 4d 50 20 23 26 31 30 0d 06 86 |2..|.CMP #&10...| 00000980 0f 42 43 53 20 4d 53 73 74 6f 72 65 0d 06 90 17 |.BCS MSstore....| 00000990 4c 44 58 20 23 4d 63 61 6c 63 28 32 29 20 83 20 |LDX #Mcalc(2) . | 000009a0 32 35 36 0d 06 9a 17 4c 44 59 20 23 4d 63 61 6c |256....LDY #Mcal| 000009b0 63 28 32 29 20 81 20 32 35 36 0d 06 a4 0c 2e 4d |c(2) . 256.....M| 000009c0 53 73 74 6f 72 65 0d 06 ae 11 53 54 58 20 4d 43 |Sstore....STX MC| 000009d0 63 61 6c 6c 31 2b 31 0d 06 b8 11 53 54 59 20 4d |call1+1....STY M| 000009e0 43 63 61 6c 6c 31 2b 32 0d 06 c2 11 53 54 58 20 |Ccall1+2....STX | 000009f0 4d 43 63 61 6c 6c 32 2b 31 0d 06 cc 11 53 54 59 |MCcall2+1....STY| 00000a00 20 4d 43 63 61 6c 6c 32 2b 32 0d 06 d6 07 52 54 | MCcall2+2....RT| 00000a10 53 0d 06 e0 05 3a 0d 06 ea 0a 2e 4d 64 72 61 77 |S....:.....Mdraw| 00000a20 0d 06 f4 0e 4a 53 52 20 4d 73 65 74 75 70 0d 06 |....JSR Msetup..| 00000a30 fe 0a 4c 44 58 20 23 30 0d 07 08 0a 4c 44 59 20 |..LDX #0....LDY | 00000a40 23 30 0d 07 12 0f 4c 44 41 20 6d 61 6e 73 69 7a |#0....LDA mansiz| 00000a50 65 0d 07 1c 0e 4a 53 52 20 4d 73 63 61 6e 78 0d |e....JSR Mscanx.| 00000a60 07 26 0a 4c 44 58 20 23 30 0d 07 30 0f 4c 44 41 |.&.LDX #0..0.LDA| 00000a70 20 6d 61 6e 73 69 7a 65 0d 07 3a 07 54 41 59 0d | mansize..:.TAY.| 00000a80 07 44 07 44 45 59 0d 07 4e 0e 4a 53 52 20 4d 73 |.D.DEY..N.JSR Ms| 00000a90 63 61 6e 78 0d 07 58 0a 4c 44 58 20 23 30 0d 07 |canx..X.LDX #0..| 00000aa0 62 0a 4c 44 59 20 23 31 0d 07 6c 0f 4c 44 41 20 |b.LDY #1..l.LDA | 00000ab0 6d 61 6e 73 69 7a 65 0d 07 76 07 53 45 43 0d 07 |mansize..v.SEC..| 00000ac0 80 0a 53 42 43 20 23 31 0d 07 8a 0e 4a 53 52 20 |..SBC #1....JSR | 00000ad0 4d 73 63 61 6e 79 0d 07 94 0f 4c 44 58 20 6d 61 |Mscany....LDX ma| 00000ae0 6e 73 69 7a 65 0d 07 9e 07 44 45 58 0d 07 a8 0a |nsize....DEX....| 00000af0 4c 44 59 20 23 31 0d 07 b2 07 54 58 41 0d 07 bc |LDY #1....TXA...| 00000b00 0e 4a 53 52 20 4d 73 63 61 6e 79 0d 07 c6 0c 4c |.JSR Mscany....L| 00000b10 44 41 20 23 26 46 46 0d 07 d0 0c 53 54 41 20 4b |DA #&FF....STA K| 00000b20 70 74 72 0d 07 da 0a 4c 44 41 20 23 30 0d 07 e4 |ptr....LDA #0...| 00000b30 0a 53 54 41 20 52 78 0d 07 ee 0a 53 54 41 20 52 |.STA Rx....STA R| 00000b40 79 0d 07 f8 0f 4c 44 58 20 6d 61 6e 73 69 7a 65 |y....LDX mansize| 00000b50 0d 08 02 07 44 45 58 0d 08 0c 0e 53 54 58 20 52 |....DEX....STX R| 00000b60 78 73 69 7a 65 0d 08 16 0e 53 54 58 20 52 79 73 |xsize....STX Rys| 00000b70 69 7a 65 0d 08 20 05 3a 0d 08 2a 09 2e 4d 72 65 |ize.. .:..*..Mre| 00000b80 63 0d 08 34 0a 4c 44 41 20 23 31 0d 08 3e 0e 43 |c..4.LDA #1..>.C| 00000b90 4d 50 20 52 78 73 69 7a 65 0d 08 48 0e 42 4e 45 |MP Rxsize..H.BNE| 00000ba0 20 4d 52 6e 65 78 74 0d 08 52 0b 2e 4d 52 65 78 | MRnext..R..MRex| 00000bb0 69 74 0d 08 5c 07 52 54 53 0d 08 66 0b 2e 4d 52 |it..\.RTS..f..MR| 00000bc0 6e 65 78 74 0d 08 70 0e 43 4d 50 20 52 79 73 69 |next..p.CMP Rysi| 00000bd0 7a 65 0d 08 7a 0e 42 45 51 20 4d 52 65 78 69 74 |ze..z.BEQ MRexit| 00000be0 0d 08 84 0a 4c 44 58 20 52 78 0d 08 8e 0a 4c 44 |....LDX Rx....LD| 00000bf0 59 20 52 79 0d 08 98 0f 4a 53 52 20 63 61 6c 63 |Y Ry....JSR calc| 00000c00 70 6f 73 0d 08 a2 0b 53 54 58 20 7a 70 31 0d 08 |pos....STX zp1..| 00000c10 ac 0d 53 54 59 20 7a 70 31 2b 31 0d 08 b6 0a 4c |..STY zp1+1....L| 00000c20 44 58 20 52 78 0d 08 c0 0a 4c 44 41 20 52 79 0d |DX Rx....LDA Ry.| 00000c30 08 ca 07 43 4c 43 0d 08 d4 0e 41 44 43 20 52 79 |...CLC....ADC Ry| 00000c40 73 69 7a 65 0d 08 de 07 54 41 59 0d 08 e8 0f 4a |size....TAY....J| 00000c50 53 52 20 63 61 6c 63 70 6f 73 0d 08 f2 0b 53 54 |SR calcpos....ST| 00000c60 58 20 7a 70 32 0d 08 fc 0d 53 54 59 20 7a 70 32 |X zp2....STY zp2| 00000c70 2b 31 0d 09 06 0e 4c 44 59 20 52 78 73 69 7a 65 |+1....LDY Rxsize| 00000c80 0d 09 10 0f 4c 44 41 20 28 7a 70 31 29 2c 59 0d |....LDA (zp1),Y.| 00000c90 09 1a 0f 53 54 41 20 52 63 6f 6c 6f 75 72 0d 09 |...STA Rcolour..| 00000ca0 24 09 2e 4d 52 4c 31 0d 09 2e 0f 43 4d 50 20 28 |$..MRL1....CMP (| 00000cb0 7a 70 31 29 2c 59 0d 09 38 13 42 4e 45 20 4d 52 |zp1),Y..8.BNE MR| 00000cc0 73 75 62 64 69 76 69 64 65 0d 09 42 0f 43 4d 50 |subdivide..B.CMP| 00000cd0 20 28 7a 70 32 29 2c 59 0d 09 4c 13 42 4e 45 20 | (zp2),Y..L.BNE | 00000ce0 4d 52 73 75 62 64 69 76 69 64 65 0d 09 56 07 44 |MRsubdivide..V.D| 00000cf0 45 59 0d 09 60 0c 42 50 4c 20 4d 52 4c 31 0d 09 |EY..`.BPL MRL1..| 00000d00 6a 0a 4c 44 41 20 52 78 0d 09 74 07 43 4c 43 0d |j.LDA Rx..t.CLC.| 00000d10 09 7e 0e 41 44 43 20 52 78 73 69 7a 65 0d 09 88 |.~.ADC Rxsize...| 00000d20 07 54 41 58 0d 09 92 0a 4c 44 59 20 52 79 0d 09 |.TAX....LDY Ry..| 00000d30 9c 0f 4a 53 52 20 63 61 6c 63 70 6f 73 0d 09 a6 |..JSR calcpos...| 00000d40 0b 53 54 58 20 7a 70 32 0d 09 b0 0d 53 54 59 20 |.STX zp2....STY | 00000d50 7a 70 32 2b 31 0d 09 ba 0a 4c 44 59 20 23 30 0d |zp2+1....LDY #0.| 00000d60 09 c4 0e 4c 44 58 20 52 79 73 69 7a 65 0d 09 ce |...LDX Rysize...| 00000d70 07 44 45 58 0d 09 d8 09 2e 4d 52 4c 32 0d 09 e2 |.DEX.....MRL2...| 00000d80 0b 4c 44 41 20 7a 70 31 0d 09 ec 0a 82 20 23 31 |.LDA zp1..... #1| 00000d90 32 38 0d 09 f6 0b 53 54 41 20 7a 70 31 0d 0a 00 |28....STA zp1...| 00000da0 0c 42 4d 49 20 4d 52 46 31 0d 0a 0a 0d 49 4e 43 |.BMI MRF1....INC| 00000db0 20 7a 70 31 2b 31 0d 0a 14 0d 49 4e 43 20 7a 70 | zp1+1....INC zp| 00000dc0 32 2b 31 0d 0a 1e 09 2e 4d 52 46 31 0d 0a 28 0b |2+1.....MRF1..(.| 00000dd0 4c 44 41 20 7a 70 32 0d 0a 32 0a 82 20 23 31 32 |LDA zp2..2.. #12| 00000de0 38 0d 0a 3c 0b 53 54 41 20 7a 70 32 0d 0a 46 0f |8..<.STA zp2..F.| 00000df0 4c 44 41 20 52 63 6f 6c 6f 75 72 0d 0a 50 0f 43 |LDA Rcolour..P.C| 00000e00 4d 50 20 28 7a 70 31 29 2c 59 0d 0a 5a 13 42 4e |MP (zp1),Y..Z.BN| 00000e10 45 20 4d 52 73 75 62 64 69 76 69 64 65 0d 0a 64 |E MRsubdivide..d| 00000e20 0f 43 4d 50 20 28 7a 70 32 29 2c 59 0d 0a 6e 13 |.CMP (zp2),Y..n.| 00000e30 42 4e 45 20 4d 52 73 75 62 64 69 76 69 64 65 0d |BNE MRsubdivide.| 00000e40 0a 78 07 44 45 58 0d 0a 82 0c 42 4e 45 20 4d 52 |.x.DEX....BNE MR| 00000e50 4c 32 0d 0a 8c 0a 4c 44 58 20 52 78 0d 0a 96 0a |L2....LDX Rx....| 00000e60 4c 44 59 20 52 79 0d 0a a0 0f 4a 53 52 20 63 61 |LDY Ry....JSR ca| 00000e70 6c 63 70 6f 73 0d 0a aa 0b 53 54 58 20 7a 70 31 |lcpos....STX zp1| 00000e80 0d 0a b4 0d 53 54 59 20 7a 70 31 2b 31 0d 0a be |....STY zp1+1...| 00000e90 0e 4c 44 58 20 52 79 73 69 7a 65 0d 0a c8 07 44 |.LDX Rysize....D| 00000ea0 45 58 0d 0a d2 09 2e 4d 52 4c 33 0d 0a dc 0b 4c |EX.....MRL3....L| 00000eb0 44 41 20 7a 70 31 0d 0a e6 0a 82 20 23 31 32 38 |DA zp1..... #128| 00000ec0 0d 0a f0 0b 53 54 41 20 7a 70 31 0d 0a fa 0c 42 |....STA zp1....B| 00000ed0 4d 49 20 4d 52 46 32 0d 0b 04 0d 49 4e 43 20 7a |MI MRF2....INC z| 00000ee0 70 31 2b 31 0d 0b 0e 09 2e 4d 52 46 32 0d 0b 18 |p1+1.....MRF2...| 00000ef0 0f 4c 44 41 20 52 63 6f 6c 6f 75 72 0d 0b 22 0e |.LDA Rcolour..".| 00000f00 4c 44 59 20 52 78 73 69 7a 65 0d 0b 2c 07 44 45 |LDY Rxsize..,.DE| 00000f10 59 0d 0b 36 09 2e 4d 52 4c 34 0d 0b 40 0f 53 54 |Y..6..MRL4..@.ST| 00000f20 41 20 28 7a 70 31 29 2c 59 0d 0b 4a 07 44 45 59 |A (zp1),Y..J.DEY| 00000f30 0d 0b 54 0c 42 4e 45 20 4d 52 4c 34 0d 0b 5e 07 |..T.BNE MRL4..^.| 00000f40 44 45 58 0d 0b 68 0c 42 4e 45 20 4d 52 4c 33 0d |DEX..h.BNE MRL3.| 00000f50 0b 72 07 52 54 53 0d 0b 7c 10 2e 4d 52 73 75 62 |.r.RTS..|..MRsub| 00000f60 64 69 76 69 64 65 0d 0b 86 0c 49 4e 43 20 4b 70 |divide....INC Kp| 00000f70 74 72 0d 0b 90 0c 4c 44 58 20 4b 70 74 72 0d 0b |tr....LDX Kptr..| 00000f80 9a 0e 4c 44 41 20 52 79 73 69 7a 65 0d 0b a4 09 |..LDA Rysize....| 00000f90 4c 53 52 20 41 0d 0b ae 11 53 54 41 20 4b 79 73 |LSR A....STA Kys| 00000fa0 69 7a 65 31 2c 58 0d 0b b8 07 43 4c 43 0d 0b c2 |ize1,X....CLC...| 00000fb0 0a 41 44 43 20 52 79 0d 0b cc 0f 53 54 41 20 4b |.ADC Ry....STA K| 00000fc0 79 6d 69 64 2c 58 0d 0b d6 07 54 41 59 0d 0b e0 |ymid,X....TAY...| 00000fd0 0a 4c 44 41 20 52 78 0d 0b ea 0c 53 54 41 20 4b |.LDA Rx....STA K| 00000fe0 78 2c 58 0d 0b f4 07 54 41 58 0d 0b fe 07 49 4e |x,X....TAX....IN| 00000ff0 58 0d 0c 08 07 43 4c 43 0d 0c 12 0e 41 44 43 20 |X....CLC....ADC | 00001000 52 78 73 69 7a 65 0d 0c 1c 0e 4a 53 52 20 4d 73 |Rxsize....JSR Ms| 00001010 63 61 6e 78 0d 0c 26 0c 4c 44 59 20 4b 70 74 72 |canx..&.LDY Kptr| 00001020 0d 0c 30 0e 4c 44 41 20 52 78 73 69 7a 65 0d 0c |..0.LDA Rxsize..| 00001030 3a 09 4c 53 52 20 41 0d 0c 44 11 53 54 41 20 4b |:.LSR A..D.STA K| 00001040 78 73 69 7a 65 31 2c 59 0d 0c 4e 07 43 4c 43 0d |xsize1,Y..N.CLC.| 00001050 0c 58 0a 41 44 43 20 52 78 0d 0c 62 0f 53 54 41 |.X.ADC Rx..b.STA| 00001060 20 4b 78 6d 69 64 2c 59 0d 0c 6c 07 54 41 58 0d | Kxmid,Y..l.TAX.| 00001070 0c 76 0f 4c 44 41 20 4b 79 6d 69 64 2c 59 0d 0c |.v.LDA Kymid,Y..| 00001080 80 0a 4c 44 59 20 52 79 0d 0c 8a 07 49 4e 59 0d |..LDY Ry....INY.| 00001090 0c 94 0e 4a 53 52 20 4d 73 63 61 6e 79 0d 0c 9e |...JSR Mscany...| 000010a0 0c 4c 44 59 20 4b 70 74 72 0d 0c a8 0f 4c 44 58 |.LDY Kptr....LDX| 000010b0 20 4b 78 6d 69 64 2c 59 0d 0c b2 0f 4c 44 41 20 | Kxmid,Y....LDA | 000010c0 4b 79 6d 69 64 2c 59 0d 0c bc 07 54 41 59 0d 0c |Kymid,Y....TAY..| 000010d0 c6 07 49 4e 59 0d 0c d0 0a 4c 44 41 20 52 79 0d |..INY....LDA Ry.| 000010e0 0c da 07 43 4c 43 0d 0c e4 0e 41 44 43 20 52 79 |...CLC....ADC Ry| 000010f0 73 69 7a 65 0d 0c ee 0e 4a 53 52 20 4d 73 63 61 |size....JSR Msca| 00001100 6e 79 0d 0c f8 0c 4c 44 58 20 4b 70 74 72 0d 0d |ny....LDX Kptr..| 00001110 02 07 53 45 43 0d 0d 0c 0e 4c 44 41 20 52 78 73 |..SEC....LDA Rxs| 00001120 69 7a 65 0d 0d 16 11 53 42 43 20 4b 78 73 69 7a |ize....SBC Kxsiz| 00001130 65 31 2c 58 0d 0d 20 11 53 54 41 20 4b 78 73 69 |e1,X.. .STA Kxsi| 00001140 7a 65 32 2c 58 0d 0d 2a 0e 4c 44 41 20 52 79 73 |ze2,X..*.LDA Rys| 00001150 69 7a 65 0d 0d 34 11 53 42 43 20 4b 79 73 69 7a |ize..4.SBC Kysiz| 00001160 65 31 2c 58 0d 0d 3e 11 53 54 41 20 4b 79 73 69 |e1,X..>.STA Kysi| 00001170 7a 65 32 2c 58 0d 0d 48 0a 4c 44 41 20 52 79 0d |ze2,X..H.LDA Ry.| 00001180 0d 52 0c 53 54 41 20 4b 79 2c 58 0d 0d 5c 11 4c |.R.STA Ky,X..\.L| 00001190 44 41 20 4b 78 73 69 7a 65 31 2c 58 0d 0d 66 0e |DA Kxsize1,X..f.| 000011a0 53 54 41 20 52 78 73 69 7a 65 0d 0d 70 11 4c 44 |STA Rxsize..p.LD| 000011b0 41 20 4b 79 73 69 7a 65 31 2c 58 0d 0d 7a 0e 53 |A Kysize1,X..z.S| 000011c0 54 41 20 52 79 73 69 7a 65 0d 0d 84 0c 4a 53 52 |TA Rysize....JSR| 000011d0 20 4d 72 65 63 0d 0d 8e 0c 4c 44 58 20 4b 70 74 | Mrec....LDX Kpt| 000011e0 72 0d 0d 98 0f 4c 44 41 20 4b 78 6d 69 64 2c 58 |r....LDA Kxmid,X| 000011f0 0d 0d a2 0a 53 54 41 20 52 78 0d 0d ac 0c 4c 44 |....STA Rx....LD| 00001200 41 20 4b 79 2c 58 0d 0d b6 0a 53 54 41 20 52 79 |A Ky,X....STA Ry| 00001210 0d 0d c0 11 4c 44 41 20 4b 78 73 69 7a 65 32 2c |....LDA Kxsize2,| 00001220 58 0d 0d ca 0e 53 54 41 20 52 78 73 69 7a 65 0d |X....STA Rxsize.| 00001230 0d d4 11 4c 44 41 20 4b 79 73 69 7a 65 31 2c 58 |...LDA Kysize1,X| 00001240 0d 0d de 0e 53 54 41 20 52 79 73 69 7a 65 0d 0d |....STA Rysize..| 00001250 e8 0c 4a 53 52 20 4d 72 65 63 0d 0d f2 0c 4c 44 |..JSR Mrec....LD| 00001260 58 20 4b 70 74 72 0d 0d fc 0c 4c 44 41 20 4b 78 |X Kptr....LDA Kx| 00001270 2c 58 0d 0e 06 0a 53 54 41 20 52 78 0d 0e 10 0f |,X....STA Rx....| 00001280 4c 44 41 20 4b 79 6d 69 64 2c 58 0d 0e 1a 0a 53 |LDA Kymid,X....S| 00001290 54 41 20 52 79 0d 0e 24 11 4c 44 41 20 4b 78 73 |TA Ry..$.LDA Kxs| 000012a0 69 7a 65 31 2c 58 0d 0e 2e 0e 53 54 41 20 52 78 |ize1,X....STA Rx| 000012b0 73 69 7a 65 0d 0e 38 11 4c 44 41 20 4b 79 73 69 |size..8.LDA Kysi| 000012c0 7a 65 32 2c 58 0d 0e 42 0e 53 54 41 20 52 79 73 |ze2,X..B.STA Rys| 000012d0 69 7a 65 0d 0e 4c 0c 4a 53 52 20 4d 72 65 63 0d |ize..L.JSR Mrec.| 000012e0 0e 56 0c 4c 44 58 20 4b 70 74 72 0d 0e 60 0f 4c |.V.LDX Kptr..`.L| 000012f0 44 41 20 4b 78 6d 69 64 2c 58 0d 0e 6a 0a 53 54 |DA Kxmid,X..j.ST| 00001300 41 20 52 78 0d 0e 74 0f 4c 44 41 20 4b 79 6d 69 |A Rx..t.LDA Kymi| 00001310 64 2c 58 0d 0e 7e 0a 53 54 41 20 52 79 0d 0e 88 |d,X..~.STA Ry...| 00001320 11 4c 44 41 20 4b 78 73 69 7a 65 32 2c 58 0d 0e |.LDA Kxsize2,X..| 00001330 92 0e 53 54 41 20 52 78 73 69 7a 65 0d 0e 9c 11 |..STA Rxsize....| 00001340 4c 44 41 20 4b 79 73 69 7a 65 32 2c 58 0d 0e a6 |LDA Kysize2,X...| 00001350 0e 53 54 41 20 52 79 73 69 7a 65 0d 0e b0 0c 44 |.STA Rysize....D| 00001360 45 43 20 4b 70 74 72 0d 0e ba 0c 4a 4d 50 20 4d |EC Kptr....JMP M| 00001370 72 65 63 0d 0e c4 05 3a 0d 0e ce 0b 2e 4d 73 63 |rec....:.....Msc| 00001380 61 6e 78 0d 0e d8 10 53 54 41 20 73 63 61 6e 5f |anx....STA scan_| 00001390 65 6e 64 0d 0e e2 10 53 54 58 20 73 63 61 6e 5f |end....STX scan_| 000013a0 70 6f 73 0d 0e ec 0f 4c 44 41 20 79 70 6f 73 31 |pos....LDA ypos1| 000013b0 2c 59 0d 0e f6 0a 53 54 41 20 43 79 0d 0f 00 0f |,Y....STA Cy....| 000013c0 4c 44 41 20 79 70 6f 73 32 2c 59 0d 0f 0a 0c 53 |LDA ypos2,Y....S| 000013d0 54 41 20 43 79 2b 31 0d 0f 14 0f 4c 44 41 20 79 |TA Cy+1....LDA y| 000013e0 70 6f 73 33 2c 59 0d 0f 1e 0c 53 54 41 20 43 79 |pos3,Y....STA Cy| 000013f0 2b 32 0d 0f 28 0f 4c 44 41 20 79 70 6f 73 34 2c |+2..(.LDA ypos4,| 00001400 59 0d 0f 32 0c 53 54 41 20 43 79 2b 33 0d 0f 3c |Y..2.STA Cy+3..<| 00001410 0f 4a 53 52 20 63 61 6c 63 70 6f 73 0d 0f 46 0b |.JSR calcpos..F.| 00001420 53 54 58 20 7a 70 31 0d 0f 50 0d 53 54 59 20 7a |STX zp1..P.STY z| 00001430 70 31 2b 31 0d 0f 5a 10 4c 44 58 20 73 63 61 6e |p1+1..Z.LDX scan| 00001440 5f 70 6f 73 0d 0f 64 0c 2e 4d 73 63 78 5f 4c 31 |_pos..d..Mscx_L1| 00001450 0d 0f 6e 0f 4c 44 41 20 78 70 6f 73 31 2c 58 0d |..n.LDA xpos1,X.| 00001460 0f 78 0a 53 54 41 20 43 78 0d 0f 82 0f 4c 44 41 |.x.STA Cx....LDA| 00001470 20 78 70 6f 73 32 2c 58 0d 0f 8c 0c 53 54 41 20 | xpos2,X....STA | 00001480 43 78 2b 31 0d 0f 96 0f 4c 44 41 20 78 70 6f 73 |Cx+1....LDA xpos| 00001490 33 2c 58 0d 0f a0 0c 53 54 41 20 43 78 2b 32 0d |3,X....STA Cx+2.| 000014a0 0f aa 0f 4c 44 41 20 78 70 6f 73 34 2c 58 0d 0f |...LDA xpos4,X..| 000014b0 b4 0c 53 54 41 20 43 78 2b 33 0d 0f be 0c 2e 4d |..STA Cx+3.....M| 000014c0 43 63 61 6c 6c 31 0d 0f c8 0d 4a 53 52 20 26 46 |Ccall1....JSR &F| 000014d0 46 46 46 0d 0f d2 0a 4c 44 59 20 23 30 0d 0f dc |FFF....LDY #0...| 000014e0 0f 53 54 41 20 28 7a 70 31 29 2c 59 0d 0f e6 0b |.STA (zp1),Y....| 000014f0 49 4e 43 20 7a 70 31 0d 0f f0 0e 42 4e 45 20 4d |INC zp1....BNE M| 00001500 73 63 78 5f 46 0d 0f fa 0d 49 4e 43 20 7a 70 31 |scx_F....INC zp1| 00001510 2b 31 0d 10 04 0b 2e 4d 73 63 78 5f 46 0d 10 0e |+1.....Mscx_F...| 00001520 10 49 4e 43 20 73 63 61 6e 5f 70 6f 73 0d 10 18 |.INC scan_pos...| 00001530 10 4c 44 58 20 73 63 61 6e 5f 70 6f 73 0d 10 22 |.LDX scan_pos.."| 00001540 10 43 50 58 20 73 63 61 6e 5f 65 6e 64 0d 10 2c |.CPX scan_end..,| 00001550 0f 42 4e 45 20 4d 73 63 78 5f 4c 31 0d 10 36 07 |.BNE Mscx_L1..6.| 00001560 52 54 53 0d 10 40 05 3a 0d 10 4a 0b 2e 4d 73 63 |RTS..@.:..J..Msc| 00001570 61 6e 79 0d 10 54 10 53 54 41 20 73 63 61 6e 5f |any..T.STA scan_| 00001580 65 6e 64 0d 10 5e 10 43 50 59 20 73 63 61 6e 5f |end..^.CPY scan_| 00001590 65 6e 64 0d 10 68 11 42 45 51 20 4d 73 63 79 5f |end..h.BEQ Mscy_| 000015a0 65 78 69 74 0d 10 72 10 53 54 59 20 73 63 61 6e |exit..r.STY scan| 000015b0 5f 70 6f 73 0d 10 7c 0f 4c 44 41 20 78 70 6f 73 |_pos..|.LDA xpos| 000015c0 31 2c 58 0d 10 86 0a 53 54 41 20 43 78 0d 10 90 |1,X....STA Cx...| 000015d0 0f 4c 44 41 20 78 70 6f 73 32 2c 58 0d 10 9a 0c |.LDA xpos2,X....| 000015e0 53 54 41 20 43 78 2b 31 0d 10 a4 0f 4c 44 41 20 |STA Cx+1....LDA | 000015f0 78 70 6f 73 33 2c 58 0d 10 ae 0c 53 54 41 20 43 |xpos3,X....STA C| 00001600 78 2b 32 0d 10 b8 0f 4c 44 41 20 78 70 6f 73 34 |x+2....LDA xpos4| 00001610 2c 58 0d 10 c2 0c 53 54 41 20 43 78 2b 33 0d 10 |,X....STA Cx+3..| 00001620 cc 0f 4a 53 52 20 63 61 6c 63 70 6f 73 0d 10 d6 |..JSR calcpos...| 00001630 0b 53 54 58 20 7a 70 31 0d 10 e0 0d 53 54 59 20 |.STX zp1....STY | 00001640 7a 70 31 2b 31 0d 10 ea 10 4c 44 58 20 73 63 61 |zp1+1....LDX sca| 00001650 6e 5f 70 6f 73 0d 10 f4 0c 2e 4d 73 63 79 5f 4c |n_pos.....Mscy_L| 00001660 31 0d 10 fe 0f 4c 44 41 20 79 70 6f 73 31 2c 58 |1....LDA ypos1,X| 00001670 0d 11 08 0a 53 54 41 20 43 79 0d 11 12 0f 4c 44 |....STA Cy....LD| 00001680 41 20 79 70 6f 73 32 2c 58 0d 11 1c 0c 53 54 41 |A ypos2,X....STA| 00001690 20 43 79 2b 31 0d 11 26 0f 4c 44 41 20 79 70 6f | Cy+1..&.LDA ypo| 000016a0 73 33 2c 58 0d 11 30 0c 53 54 41 20 43 79 2b 32 |s3,X..0.STA Cy+2| 000016b0 0d 11 3a 0f 4c 44 41 20 79 70 6f 73 34 2c 58 0d |..:.LDA ypos4,X.| 000016c0 11 44 0c 53 54 41 20 43 79 2b 33 0d 11 4e 0c 2e |.D.STA Cy+3..N..| 000016d0 4d 43 63 61 6c 6c 32 0d 11 58 0d 4a 53 52 20 26 |MCcall2..X.JSR &| 000016e0 46 46 46 46 0d 11 62 0a 4c 44 59 20 23 30 0d 11 |FFFF..b.LDY #0..| 000016f0 6c 0f 53 54 41 20 28 7a 70 31 29 2c 59 0d 11 76 |l.STA (zp1),Y..v| 00001700 0b 4c 44 41 20 7a 70 31 0d 11 80 0a 82 20 23 31 |.LDA zp1..... #1| 00001710 32 38 0d 11 8a 0b 53 54 41 20 7a 70 31 0d 11 94 |28....STA zp1...| 00001720 0e 42 4d 49 20 4d 73 63 79 5f 46 0d 11 9e 0d 49 |.BMI Mscy_F....I| 00001730 4e 43 20 7a 70 31 2b 31 0d 11 a8 0b 2e 4d 73 63 |NC zp1+1.....Msc| 00001740 79 5f 46 0d 11 b2 10 49 4e 43 20 73 63 61 6e 5f |y_F....INC scan_| 00001750 70 6f 73 0d 11 bc 10 4c 44 58 20 73 63 61 6e 5f |pos....LDX scan_| 00001760 70 6f 73 0d 11 c6 10 43 50 58 20 73 63 61 6e 5f |pos....CPX scan_| 00001770 65 6e 64 0d 11 d0 0f 42 4e 45 20 4d 73 63 79 5f |end....BNE Mscy_| 00001780 4c 31 0d 11 da 0e 2e 4d 73 63 79 5f 65 78 69 74 |L1.....Mscy_exit| 00001790 0d 11 e4 07 52 54 53 0d 11 ee 05 3a 0d 11 f8 0c |....RTS....:....| 000017a0 2e 63 61 6c 63 70 6f 73 0d 12 02 07 54 59 41 0d |.calcpos....TYA.| 000017b0 12 0c 09 4c 53 52 20 41 0d 12 16 07 50 48 50 0d |...LSR A....PHP.| 000017c0 12 20 07 43 4c 43 0d 12 2a 13 41 44 43 20 23 69 |. .CLC..*.ADC #i| 000017d0 6d 61 67 65 5f 70 61 67 65 0d 12 34 07 54 41 59 |mage_page..4.TAY| 000017e0 0d 12 3e 07 50 4c 50 0d 12 48 0f 42 43 43 20 63 |..>.PLP..H.BCC c| 000017f0 70 5f 65 78 69 74 0d 12 52 07 54 58 41 0d 12 5c |p_exit..R.TXA..\| 00001800 0a 82 20 23 31 32 38 0d 12 66 07 54 41 58 0d 12 |.. #128..f.TAX..| 00001810 70 0c 2e 63 70 5f 65 78 69 74 0d 12 7a 07 52 54 |p..cp_exit..z.RT| 00001820 53 0d 12 84 05 3a 0d 12 8e 05 5d 0d 12 98 10 f2 |S....:....].....| 00001830 6d 61 6e 64 63 61 6c 63 28 30 29 0d 12 a2 10 f2 |mandcalc(0).....| 00001840 6d 61 6e 64 63 61 6c 63 28 31 29 0d 12 ac 10 f2 |mandcalc(1).....| 00001850 6d 61 6e 64 63 61 6c 63 28 32 29 0d 12 b6 0d 5b |mandcalc(2)....[| 00001860 4f 50 54 20 6f 70 74 25 0d 12 c0 05 3a 0d 12 ca |OPT opt%....:...| 00001870 0c 2e 4d 72 65 73 69 7a 65 0d 12 d4 0a 4c 44 58 |..Mresize....LDX| 00001880 20 23 30 0d 12 de 0c 4c 44 41 20 23 31 32 38 0d | #0....LDA #128.| 00001890 12 e8 09 2e 4d 5a 4c 31 0d 12 f2 07 49 4e 58 0d |....MZL1....INX.| 000018a0 12 fc 07 53 45 43 0d 13 06 0f 53 42 43 20 6d 61 |...SEC....SBC ma| 000018b0 6e 73 69 7a 65 0d 13 10 0c 42 4e 45 20 4d 5a 4c |nsize....BNE MZL| 000018c0 31 0d 13 1a 0c 53 54 58 20 5a 6d 61 67 0d 13 24 |1....STX Zmag..$| 000018d0 25 4c 44 41 20 23 28 69 6d 61 67 65 5f 70 61 67 |%LDA #(image_pag| 000018e0 65 2a 32 35 36 2b 26 33 46 38 30 29 20 83 20 32 |e*256+&3F80) . 2| 000018f0 35 36 0d 13 2e 0b 53 54 41 20 7a 70 31 0d 13 38 |56....STA zp1..8| 00001900 25 4c 44 41 20 23 28 69 6d 61 67 65 5f 70 61 67 |%LDA #(image_pag| 00001910 65 2a 32 35 36 2b 26 33 46 38 30 29 20 81 20 32 |e*256+&3F80) . 2| 00001920 35 36 0d 13 42 0d 53 54 41 20 7a 70 31 2b 31 0d |56..B.STA zp1+1.| 00001930 13 4c 0a 4c 44 58 20 23 30 0d 13 56 0f 4c 44 59 |.L.LDX #0..V.LDY| 00001940 20 6d 61 6e 73 69 7a 65 0d 13 60 0b 53 54 59 20 | mansize..`.STY | 00001950 5a 49 31 0d 13 6a 07 44 45 59 0d 13 74 0f 4a 53 |ZI1..j.DEY..t.JS| 00001960 52 20 63 61 6c 63 70 6f 73 0d 13 7e 0b 53 54 58 |R calcpos..~.STX| 00001970 20 7a 70 32 0d 13 88 0d 53 54 59 20 7a 70 32 2b | zp2....STY zp2+| 00001980 31 0d 13 92 09 2e 4d 5a 4c 32 0d 13 9c 0c 4c 44 |1.....MZL2....LD| 00001990 41 20 5a 6d 61 67 0d 13 a6 0b 53 54 41 20 5a 49 |A Zmag....STA ZI| 000019a0 32 0d 13 b0 09 2e 4d 5a 4c 33 0d 13 ba 0f 4c 44 |2.....MZL3....LD| 000019b0 59 20 6d 61 6e 73 69 7a 65 0d 13 c4 07 44 45 59 |Y mansize....DEY| 000019c0 0d 13 ce 0b 53 54 59 20 5a 49 33 0d 13 d8 0c 4c |....STY ZI3....L| 000019d0 44 41 20 23 31 32 37 0d 13 e2 0b 53 54 41 20 5a |DA #127....STA Z| 000019e0 49 34 0d 13 ec 09 2e 4d 5a 4c 34 0d 13 f6 0c 4c |I4.....MZL4....L| 000019f0 44 41 20 5a 6d 61 67 0d 14 00 0b 53 54 41 20 5a |DA Zmag....STA Z| 00001a00 49 35 0d 14 0a 09 2e 4d 5a 4c 35 0d 14 14 0b 4c |I5.....MZL5....L| 00001a10 44 59 20 5a 49 33 0d 14 1e 0f 4c 44 41 20 28 7a |DY ZI3....LDA (z| 00001a20 70 32 29 2c 59 0d 14 28 0b 4c 44 59 20 5a 49 34 |p2),Y..(.LDY ZI4| 00001a30 0d 14 32 0f 53 54 41 20 28 7a 70 31 29 2c 59 0d |..2.STA (zp1),Y.| 00001a40 14 3c 0b 44 45 43 20 5a 49 34 0d 14 46 0b 44 45 |.<.DEC ZI4..F.DE| 00001a50 43 20 5a 49 35 0d 14 50 0c 42 4e 45 20 4d 5a 4c |C ZI5..P.BNE MZL| 00001a60 35 0d 14 5a 0b 44 45 43 20 5a 49 33 0d 14 64 0c |5..Z.DEC ZI3..d.| 00001a70 42 50 4c 20 4d 5a 4c 34 0d 14 6e 0b 4c 44 41 20 |BPL MZL4..n.LDA | 00001a80 7a 70 31 0d 14 78 0a 82 20 23 31 32 38 0d 14 82 |zp1..x.. #128...| 00001a90 0b 53 54 41 20 7a 70 31 0d 14 8c 0c 42 50 4c 20 |.STA zp1....BPL | 00001aa0 4d 5a 42 31 0d 14 96 0d 44 45 43 20 7a 70 31 2b |MZB1....DEC zp1+| 00001ab0 31 0d 14 a0 09 2e 4d 5a 42 31 0d 14 aa 0b 44 45 |1.....MZB1....DE| 00001ac0 43 20 5a 49 32 0d 14 b4 0c 42 4e 45 20 4d 5a 4c |C ZI2....BNE MZL| 00001ad0 33 0d 14 be 0b 4c 44 41 20 7a 70 32 0d 14 c8 0a |3....LDA zp2....| 00001ae0 82 20 23 31 32 38 0d 14 d2 0b 53 54 41 20 7a 70 |. #128....STA zp| 00001af0 32 0d 14 dc 0c 42 50 4c 20 4d 5a 42 32 0d 14 e6 |2....BPL MZB2...| 00001b00 0d 44 45 43 20 7a 70 32 2b 31 0d 14 f0 09 2e 4d |.DEC zp2+1.....M| 00001b10 5a 42 32 0d 14 fa 0b 44 45 43 20 5a 49 31 0d 15 |ZB2....DEC ZI1..| 00001b20 04 0c 42 4e 45 20 4d 5a 4c 32 0d 15 0e 07 52 54 |..BNE MZL2....RT| 00001b30 53 0d 15 18 05 3a 0d 15 22 0a 2e 4d 66 6c 69 70 |S....:.."..Mflip| 00001b40 0d 15 2c 0a 4c 44 41 20 23 30 0d 15 36 0b 53 54 |..,.LDA #0..6.ST| 00001b50 41 20 7a 70 31 0d 15 40 13 4c 44 41 20 23 69 6d |A zp1..@.LDA #im| 00001b60 61 67 65 5f 70 61 67 65 0d 15 4a 0d 53 54 41 20 |age_page..J.STA | 00001b70 7a 70 31 2b 31 0d 15 54 25 4c 44 41 20 23 28 69 |zp1+1..T%LDA #(i| 00001b80 6d 61 67 65 5f 70 61 67 65 2a 32 35 36 2b 26 33 |mage_page*256+&3| 00001b90 46 38 30 29 20 83 20 32 35 36 0d 15 5e 0b 53 54 |F80) . 256..^.ST| 00001ba0 41 20 7a 70 32 0d 15 68 25 4c 44 41 20 23 28 69 |A zp2..h%LDA #(i| 00001bb0 6d 61 67 65 5f 70 61 67 65 2a 32 35 36 2b 26 33 |mage_page*256+&3| 00001bc0 46 38 30 29 20 81 20 32 35 36 0d 15 72 0d 53 54 |F80) . 256..r.ST| 00001bd0 41 20 7a 70 32 2b 31 0d 15 7c 0b 4c 44 41 20 23 |A zp2+1..|.LDA #| 00001be0 36 34 0d 15 86 0f 53 54 41 20 66 6c 69 70 5f 49 |64....STA flip_I| 00001bf0 31 0d 15 90 0d 2e 4d 66 6c 69 70 5f 4c 31 0d 15 |1.....Mflip_L1..| 00001c00 9a 0c 4c 44 59 20 23 26 37 46 0d 15 a4 0d 2e 4d |..LDY #&7F.....M| 00001c10 66 6c 69 70 5f 4c 32 0d 15 ae 0f 4c 44 41 20 28 |flip_L2....LDA (| 00001c20 7a 70 31 29 2c 59 0d 15 b8 07 54 41 58 0d 15 c2 |zp1),Y....TAX...| 00001c30 0f 4c 44 41 20 28 7a 70 32 29 2c 59 0d 15 cc 0f |.LDA (zp2),Y....| 00001c40 53 54 41 20 28 7a 70 31 29 2c 59 0d 15 d6 07 54 |STA (zp1),Y....T| 00001c50 58 41 0d 15 e0 0f 53 54 41 20 28 7a 70 32 29 2c |XA....STA (zp2),| 00001c60 59 0d 15 ea 07 44 45 59 0d 15 f4 10 42 50 4c 20 |Y....DEY....BPL | 00001c70 4d 66 6c 69 70 5f 4c 32 0d 15 fe 0b 4c 44 41 20 |Mflip_L2....LDA | 00001c80 7a 70 31 0d 16 08 0b 53 54 41 20 7a 70 32 0d 16 |zp1....STA zp2..| 00001c90 12 0a 82 20 23 31 32 38 0d 16 1c 0b 53 54 41 20 |... #128....STA | 00001ca0 7a 70 31 0d 16 26 12 42 4d 49 20 4d 66 6c 69 70 |zp1..&.BMI Mflip| 00001cb0 5f 6e 65 78 74 0d 16 30 0d 49 4e 43 20 7a 70 31 |_next..0.INC zp1| 00001cc0 2b 31 0d 16 3a 0d 44 45 43 20 7a 70 32 2b 31 0d |+1..:.DEC zp2+1.| 00001cd0 16 44 0f 2e 4d 66 6c 69 70 5f 6e 65 78 74 0d 16 |.D..Mflip_next..| 00001ce0 4e 0f 44 45 43 20 66 6c 69 70 5f 49 31 0d 16 58 |N.DEC flip_I1..X| 00001cf0 10 42 4e 45 20 4d 66 6c 69 70 5f 4c 31 0d 16 62 |.BNE Mflip_L1..b| 00001d00 07 52 54 53 0d 16 6c 05 3a 0d 16 76 0a 2e 4d 70 |.RTS..l.:..v..Mp| 00001d10 6c 6f 74 0d 16 80 0a 4c 44 41 20 23 30 0d 16 8a |lot....LDA #0...| 00001d20 07 54 41 58 0d 16 94 0d 2e 50 63 6f 6c 73 5f 4c |.TAX.....Pcols_L| 00001d30 31 0d 16 9e 10 53 54 41 20 63 6f 6c 5f 49 31 2c |1....STA col_I1,| 00001d40 58 0d 16 a8 10 53 54 41 20 63 6f 6c 5f 49 32 2c |X....STA col_I2,| 00001d50 58 0d 16 b2 07 49 4e 58 0d 16 bc 10 42 4e 45 20 |X....INX....BNE | 00001d60 50 63 6f 6c 73 5f 4c 31 0d 16 c6 0b 4c 44 41 20 |Pcols_L1....LDA | 00001d70 23 36 34 0d 16 d0 0b 53 54 41 20 50 49 31 0d 16 |#64....STA PI1..| 00001d80 da 13 4c 44 41 20 23 69 6d 61 67 65 5f 70 61 67 |..LDA #image_pag| 00001d90 65 0d 16 e4 0d 53 54 41 20 7a 70 31 2b 31 0d 16 |e....STA zp1+1..| 00001da0 ee 0a 4c 44 59 20 23 30 0d 16 f8 0b 53 54 59 20 |..LDY #0....STY | 00001db0 7a 70 31 0d 17 02 0d 2e 50 63 6f 6c 73 5f 4c 32 |zp1.....Pcols_L2| 00001dc0 0d 17 0c 0f 4c 44 41 20 28 7a 70 31 29 2c 59 0d |....LDA (zp1),Y.| 00001dd0 17 16 07 54 41 58 0d 17 20 10 49 4e 43 20 63 6f |...TAX.. .INC co| 00001de0 6c 5f 49 31 2c 58 0d 17 2a 10 42 4e 45 20 50 63 |l_I1,X..*.BNE Pc| 00001df0 6f 6c 73 5f 46 31 0d 17 34 10 49 4e 43 20 63 6f |ols_F1..4.INC co| 00001e00 6c 5f 49 32 2c 58 0d 17 3e 0d 2e 50 63 6f 6c 73 |l_I2,X..>..Pcols| 00001e10 5f 46 31 0d 17 48 07 49 4e 59 0d 17 52 10 42 4e |_F1..H.INY..R.BN| 00001e20 45 20 50 63 6f 6c 73 5f 4c 32 0d 17 5c 0d 49 4e |E Pcols_L2..\.IN| 00001e30 43 20 7a 70 31 2b 31 0d 17 66 0b 44 45 43 20 50 |C zp1+1..f.DEC P| 00001e40 49 31 0d 17 70 10 42 4e 45 20 50 63 6f 6c 73 5f |I1..p.BNE Pcols_| 00001e50 4c 32 0d 17 7a 07 53 45 43 0d 17 84 16 4c 44 41 |L2..z.SEC....LDA| 00001e60 20 23 31 32 38 2a 31 32 38 20 83 20 32 35 36 0d | #128*128 . 256.| 00001e70 17 8e 0e 53 42 43 20 63 6f 6c 5f 49 31 0d 17 98 |...SBC col_I1...| 00001e80 0c 53 54 41 20 50 54 2b 31 0d 17 a2 16 4c 44 41 |.STA PT+1....LDA| 00001e90 20 23 31 32 38 2a 31 32 38 20 81 20 32 35 36 0d | #128*128 . 256.| 00001ea0 17 ac 0e 53 42 43 20 63 6f 6c 5f 49 32 0d 17 b6 |...SBC col_I2...| 00001eb0 0c 53 54 41 20 50 54 2b 32 0d 17 c0 0a 4c 44 41 |.STA PT+2....LDA| 00001ec0 20 23 30 0d 17 ca 0a 53 54 41 20 50 54 0d 17 d4 | #0....STA PT...| 00001ed0 0b 4c 44 58 20 23 32 34 0d 17 de 0d 2e 50 63 6f |.LDX #24.....Pco| 00001ee0 6c 73 5f 4c 33 0d 17 e8 0a 41 53 4c 20 50 54 0d |ls_L3....ASL PT.| 00001ef0 17 f2 0c 52 4f 4c 20 50 54 2b 31 0d 17 fc 0c 52 |...ROL PT+1....R| 00001f00 4f 4c 20 50 54 2b 32 0d 18 06 09 52 4f 4c 20 41 |OL PT+2....ROL A| 00001f10 0d 18 10 12 43 4d 50 20 23 63 6f 6c 6f 75 72 73 |....CMP #colours| 00001f20 2d 31 0d 18 1a 12 42 43 43 20 50 63 6f 6c 73 5f |-1....BCC Pcols_| 00001f30 6e 6f 67 6f 0d 18 24 12 53 42 43 20 23 63 6f 6c |nogo..$.SBC #col| 00001f40 6f 75 72 73 2d 31 0d 18 2e 0a 49 4e 43 20 50 54 |ours-1....INC PT| 00001f50 0d 18 38 0f 2e 50 63 6f 6c 73 5f 6e 6f 67 6f 0d |..8..Pcols_nogo.| 00001f60 18 42 07 44 45 58 0d 18 4c 10 42 4e 45 20 50 63 |.B.DEX..L.BNE Pc| 00001f70 6f 6c 73 5f 4c 33 0d 18 56 0a 4c 44 41 20 50 54 |ols_L3..V.LDA PT| 00001f80 0d 18 60 0d 53 54 41 20 50 6e 65 78 74 0d 18 6a |..`.STA Pnext..j| 00001f90 0c 4c 44 41 20 50 54 2b 31 0d 18 74 0f 53 54 41 |.LDA PT+1..t.STA| 00001fa0 20 50 6e 65 78 74 2b 31 0d 18 7e 0c 4c 44 41 20 | Pnext+1..~.LDA | 00001fb0 50 54 2b 32 0d 18 88 0f 53 54 41 20 50 6e 65 78 |PT+2....STA Pnex| 00001fc0 74 2b 32 0d 18 92 0a 4c 44 58 20 23 30 0d 18 9c |t+2....LDX #0...| 00001fd0 0c 53 54 58 20 50 73 75 6d 0d 18 a6 0e 53 54 58 |.STX Psum....STX| 00001fe0 20 50 73 75 6d 2b 31 0d 18 b0 07 49 4e 58 0d 18 | Psum+1....INX..| 00001ff0 ba 0f 53 54 58 20 50 63 6f 6c 6f 75 72 0d 18 c4 |..STX Pcolour...| 00002000 0d 2e 50 63 6f 6c 73 5f 4c 34 0d 18 ce 0f 4c 44 |..Pcols_L4....LD| 00002010 41 20 50 63 6f 6c 6f 75 72 0d 18 d8 0f 53 54 41 |A Pcolour....STA| 00002020 20 50 63 6f 6c 73 2c 58 0d 18 e2 07 43 4c 43 0d | Pcols,X....CLC.| 00002030 18 ec 0c 4c 44 41 20 50 73 75 6d 0d 18 f6 10 41 |...LDA Psum....A| 00002040 44 43 20 63 6f 6c 5f 49 31 2c 58 0d 19 00 0c 53 |DC col_I1,X....S| 00002050 54 41 20 50 73 75 6d 0d 19 0a 0e 4c 44 41 20 50 |TA Psum....LDA P| 00002060 73 75 6d 2b 31 0d 19 14 10 41 44 43 20 63 6f 6c |sum+1....ADC col| 00002070 5f 49 32 2c 58 0d 19 1e 0e 53 54 41 20 50 73 75 |_I2,X....STA Psu| 00002080 6d 2b 31 0d 19 28 07 53 45 43 0d 19 32 0c 4c 44 |m+1..(.SEC..2.LD| 00002090 41 20 50 73 75 6d 0d 19 3c 0f 53 42 43 20 50 6e |A Psum..<.SBC Pn| 000020a0 65 78 74 2b 31 0d 19 46 0e 4c 44 41 20 50 73 75 |ext+1..F.LDA Psu| 000020b0 6d 2b 31 0d 19 50 0f 53 42 43 20 50 6e 65 78 74 |m+1..P.SBC Pnext| 000020c0 2b 32 0d 19 5a 15 42 43 43 20 50 63 6f 6c 73 5f |+2..Z.BCC Pcols_| 000020d0 73 61 6d 65 63 6f 6c 0d 19 64 0f 49 4e 43 20 50 |samecol..d.INC P| 000020e0 63 6f 6c 6f 75 72 0d 19 6e 07 43 4c 43 0d 19 78 |colour..n.CLC..x| 000020f0 0d 4c 44 41 20 50 6e 65 78 74 0d 19 82 0a 41 44 |.LDA Pnext....AD| 00002100 43 20 50 54 0d 19 8c 0d 53 54 41 20 50 6e 65 78 |C PT....STA Pnex| 00002110 74 0d 19 96 0f 4c 44 41 20 50 6e 65 78 74 2b 31 |t....LDA Pnext+1| 00002120 0d 19 a0 0c 41 44 43 20 50 54 2b 31 0d 19 aa 0f |....ADC PT+1....| 00002130 53 54 41 20 50 6e 65 78 74 2b 31 0d 19 b4 0f 4c |STA Pnext+1....L| 00002140 44 41 20 50 6e 65 78 74 2b 32 0d 19 be 0c 41 44 |DA Pnext+2....AD| 00002150 43 20 50 54 2b 32 0d 19 c8 0f 53 54 41 20 50 6e |C PT+2....STA Pn| 00002160 65 78 74 2b 32 0d 19 d2 12 2e 50 63 6f 6c 73 5f |ext+2.....Pcols_| 00002170 73 61 6d 65 63 6f 6c 0d 19 dc 07 49 4e 58 0d 19 |samecol....INX..| 00002180 e6 10 42 4e 45 20 50 63 6f 6c 73 5f 4c 34 0d 19 |..BNE Pcols_L4..| 00002190 f0 0a 4c 44 41 20 23 30 0d 19 fa 0d 53 54 41 20 |..LDA #0....STA | 000021a0 50 63 6f 6c 73 0d 1a 04 05 3a 0d 1a 0e 0a 4c 44 |Pcols....:....LD| 000021b0 41 20 23 30 0d 1a 18 0b 53 54 41 20 7a 70 31 0d |A #0....STA zp1.| 000021c0 1a 22 13 4c 44 41 20 23 69 6d 61 67 65 5f 70 61 |.".LDA #image_pa| 000021d0 67 65 0d 1a 2c 0d 53 54 41 20 7a 70 31 2b 31 0d |ge..,.STA zp1+1.| 000021e0 1a 36 0c 4c 44 41 20 23 32 35 34 0d 1a 40 0a 53 |.6.LDA #254..@.S| 000021f0 54 41 20 50 79 0d 1a 4a 08 2e 50 4c 31 0d 1a 54 |TA Py..J..PL1..T| 00002200 0a 4c 44 58 20 23 32 0d 1a 5e 0a 4c 44 59 20 23 |.LDX #2..^.LDY #| 00002210 30 0d 1a 68 0b 53 54 59 20 7a 70 32 0d 1a 72 14 |0..h.STY zp2..r.| 00002220 4c 44 41 20 23 50 62 75 66 66 20 81 20 32 35 36 |LDA #Pbuff . 256| 00002230 0d 1a 7c 0d 53 54 41 20 7a 70 32 2b 31 0d 1a 86 |..|.STA zp2+1...| 00002240 08 2e 50 4c 32 0d 1a 90 0f 4c 44 41 20 28 7a 70 |..PL2....LDA (zp| 00002250 31 29 2c 59 0d 1a 9a 0f 53 54 41 20 28 7a 70 32 |1),Y....STA (zp2| 00002260 29 2c 59 0d 1a a4 07 49 4e 59 0d 1a ae 0b 42 4e |),Y....INY....BN| 00002270 45 20 50 4c 32 0d 1a b8 0d 49 4e 43 20 7a 70 31 |E PL2....INC zp1| 00002280 2b 31 0d 1a c2 0d 49 4e 43 20 7a 70 32 2b 31 0d |+1....INC zp2+1.| 00002290 1a cc 07 44 45 58 0d 1a d6 0b 42 4e 45 20 50 4c |...DEX....BNE PL| 000022a0 32 0d 1a e0 14 4c 44 41 20 23 50 62 75 66 66 20 |2....LDA #Pbuff | 000022b0 81 20 32 35 36 0d 1a ea 0d 53 54 41 20 7a 70 32 |. 256....STA zp2| 000022c0 2b 31 0d 1a f4 0a 4c 44 41 20 23 34 0d 1a fe 0b |+1....LDA #4....| 000022d0 53 54 41 20 50 49 31 0d 1b 08 08 2e 50 4c 33 0d |STA PI1.....PL3.| 000022e0 1b 12 13 4a 53 52 20 50 62 6c 61 6e 6b 6c 69 6e |...JSR Pblanklin| 000022f0 65 73 0d 1b 1c 0a 4c 44 41 20 23 31 0d 1b 26 10 |es....LDA #1..&.| 00002300 53 54 41 20 50 6f 76 65 72 6c 61 79 0d 1b 30 08 |STA Poverlay..0.| 00002310 2e 50 4c 34 0d 1b 3a 0a 4c 44 58 20 23 30 0d 1b |.PL4..:.LDX #0..| 00002320 44 10 4c 44 59 20 50 6f 76 65 72 6c 61 79 0d 1b |D.LDY Poverlay..| 00002330 4e 0c 4a 53 52 20 67 63 6f 6c 0d 1b 58 0a 4c 44 |N.JSR gcol..X.LD| 00002340 41 20 23 30 0d 1b 62 0a 53 54 41 20 50 78 0d 1b |A #0..b.STA Px..| 00002350 6c 10 53 54 41 20 50 6c 61 73 74 63 6f 6c 0d 1b |l.STA Plastcol..| 00002360 76 12 53 54 41 20 50 6c 61 73 74 63 6f 6c 2b 31 |v.STA Plastcol+1| 00002370 0d 1b 80 0f 53 54 41 20 50 6f 66 66 73 65 74 0d |....STA Poffset.| 00002380 1b 8a 08 2e 50 4c 35 0d 1b 94 0f 4c 44 59 20 50 |....PL5....LDY P| 00002390 6f 66 66 73 65 74 0d 1b 9e 0f 4c 44 41 20 28 7a |offset....LDA (z| 000023a0 70 32 29 2c 59 0d 1b a8 07 54 41 58 0d 1b b2 0f |p2),Y....TAX....| 000023b0 4c 44 41 20 50 63 6f 6c 73 2c 58 0d 1b bc 07 54 |LDA Pcols,X....T| 000023c0 41 58 0d 1b c6 0f 4c 44 41 20 50 65 63 66 31 2c |AX....LDA Pecf1,| 000023d0 58 0d 1b d0 0a 80 20 23 26 46 30 0d 1b da 0d 53 |X..... #&F0....S| 000023e0 54 41 20 50 63 75 72 72 0d 1b e4 0f 4c 44 41 20 |TA Pcurr....LDA | 000023f0 50 65 63 66 32 2c 58 0d 1b ee 0a 80 20 23 26 46 |Pecf2,X..... #&F| 00002400 30 0d 1b f8 0f 53 54 41 20 50 63 75 72 72 2b 31 |0....STA Pcurr+1| 00002410 0d 1c 02 07 49 4e 59 0d 1c 0c 0f 4c 44 41 20 28 |....INY....LDA (| 00002420 7a 70 32 29 2c 59 0d 1c 16 07 54 41 58 0d 1c 20 |zp2),Y....TAX.. | 00002430 0f 4c 44 41 20 50 63 6f 6c 73 2c 58 0d 1c 2a 07 |.LDA Pcols,X..*.| 00002440 54 41 58 0d 1c 34 0f 4c 44 41 20 50 65 63 66 31 |TAX..4.LDA Pecf1| 00002450 2c 58 0d 1c 3e 0a 80 20 23 26 30 46 0d 1c 48 0c |,X..>.. #&0F..H.| 00002460 84 41 20 50 63 75 72 72 0d 1c 52 0d 53 54 41 20 |.A Pcurr..R.STA | 00002470 50 63 75 72 72 0d 1c 5c 0f 4c 44 41 20 50 65 63 |Pcurr..\.LDA Pec| 00002480 66 32 2c 58 0d 1c 66 0a 80 20 23 26 30 46 0d 1c |f2,X..f.. #&0F..| 00002490 70 0e 84 41 20 50 63 75 72 72 2b 31 0d 1c 7a 0f |p..A Pcurr+1..z.| 000024a0 53 54 41 20 50 63 75 72 72 2b 31 0d 1c 84 07 49 |STA Pcurr+1....I| 000024b0 4e 59 0d 1c 8e 0f 53 54 59 20 50 6f 66 66 73 65 |NY....STY Poffse| 000024c0 74 0d 1c 98 0e 4a 53 52 20 50 62 79 74 65 73 0d |t....JSR Pbytes.| 000024d0 1c a2 0a 4c 44 41 20 50 78 0d 1c ac 0b 42 4e 45 |...LDA Px....BNE| 000024e0 20 50 4c 35 0d 1c b6 0f 4a 53 52 20 50 66 69 6e | PL5....JSR Pfin| 000024f0 69 73 68 0d 1c c0 10 49 4e 43 20 50 6f 76 65 72 |ish....INC Pover| 00002500 6c 61 79 0d 1c ca 10 4c 44 41 20 50 6f 76 65 72 |lay....LDA Pover| 00002510 6c 61 79 0d 1c d4 0a 43 4d 50 20 23 34 0d 1c de |lay....CMP #4...| 00002520 0b 42 4e 45 20 50 4c 34 0d 1c e8 0a 44 45 43 20 |.BNE PL4....DEC | 00002530 50 79 0d 1c f2 0a 44 45 43 20 50 79 0d 1c fc 0b |Py....DEC Py....| 00002540 4c 44 41 20 7a 70 32 0d 1d 06 0a 82 20 23 31 32 |LDA zp2..... #12| 00002550 38 0d 1d 10 0b 53 54 41 20 7a 70 32 0d 1d 1a 0b |8....STA zp2....| 00002560 42 4d 49 20 50 46 31 0d 1d 24 0d 49 4e 43 20 7a |BMI PF1..$.INC z| 00002570 70 32 2b 31 0d 1d 2e 08 2e 50 46 31 0d 1d 38 0b |p2+1.....PF1..8.| 00002580 44 45 43 20 50 49 31 0d 1d 42 0b 42 4e 45 20 50 |DEC PI1..B.BNE P| 00002590 4c 33 0d 1d 4c 0a 4c 44 41 20 50 79 0d 1d 56 0c |L3..L.LDA Py..V.| 000025a0 43 4d 50 20 23 32 35 34 0d 1d 60 0d 42 45 51 20 |CMP #254..`.BEQ | 000025b0 50 64 6f 6e 65 0d 1d 6a 0b 4a 4d 50 20 50 4c 31 |Pdone..j.JMP PL1| 000025c0 0d 1d 74 0a 2e 50 64 6f 6e 65 0d 1d 7e 07 52 54 |..t..Pdone..~.RT| 000025d0 53 0d 1d 88 05 3a 0d 1d 92 10 2e 50 62 6c 61 6e |S....:.....Pblan| 000025e0 6b 6c 69 6e 65 73 0d 1d 9c 0a 4c 44 58 20 23 30 |klines....LDX #0| 000025f0 0d 1d a6 0a 4c 44 59 20 23 30 0d 1d b0 0c 4a 53 |....LDY #0....JS| 00002600 52 20 67 63 6f 6c 0d 1d ba 0a 4c 44 41 20 23 34 |R gcol....LDA #4| 00002610 0d 1d c4 0a 4c 44 58 20 23 30 0d 1d ce 0a 4c 44 |....LDX #0....LD| 00002620 59 20 50 79 0d 1d d8 0c 4a 53 52 20 70 6c 6f 74 |Y Py....JSR plot| 00002630 0d 1d e2 0a 4c 44 41 20 23 35 0d 1d ec 0c 4c 44 |....LDA #5....LD| 00002640 58 20 23 32 35 35 0d 1d f6 0c 4a 53 52 20 70 6c |X #255....JSR pl| 00002650 6f 74 0d 1e 00 0a 4c 44 41 20 23 34 0d 1e 0a 0a |ot....LDA #4....| 00002660 4c 44 58 20 23 30 0d 1e 14 07 49 4e 59 0d 1e 1e |LDX #0....INY...| 00002670 0c 4a 53 52 20 70 6c 6f 74 0d 1e 28 0a 4c 44 41 |.JSR plot..(.LDA| 00002680 20 23 35 0d 1e 32 0c 4c 44 58 20 23 32 35 35 0d | #5..2.LDX #255.| 00002690 1e 3c 05 3a 0d 1e 46 09 2e 70 6c 6f 74 0d 1e 50 |.<.:..F..plot..P| 000026a0 07 50 48 41 0d 1e 5a 0b 4c 44 41 20 23 32 35 0d |.PHA..Z.LDA #25.| 000026b0 1e 64 0e 4a 53 52 20 6f 73 77 72 63 68 0d 1e 6e |.d.JSR oswrch..n| 000026c0 07 50 4c 41 0d 1e 78 0e 4a 53 52 20 6f 73 77 72 |.PLA..x.JSR oswr| 000026d0 63 68 0d 1e 82 07 54 58 41 0d 1e 8c 09 41 53 4c |ch....TXA....ASL| 000026e0 20 41 0d 1e 96 09 41 53 4c 20 41 0d 1e a0 0e 4a | A....ASL A....J| 000026f0 53 52 20 6f 73 77 72 63 68 0d 1e aa 07 54 58 41 |SR oswrch....TXA| 00002700 0d 1e b4 09 4c 53 52 20 41 0d 1e be 09 4c 53 52 |....LSR A....LSR| 00002710 20 41 0d 1e c8 09 4c 53 52 20 41 0d 1e d2 09 4c | A....LSR A....L| 00002720 53 52 20 41 0d 1e dc 09 4c 53 52 20 41 0d 1e e6 |SR A....LSR A...| 00002730 09 4c 53 52 20 41 0d 1e f0 0e 4a 53 52 20 6f 73 |.LSR A....JSR os| 00002740 77 72 63 68 0d 1e fa 07 54 59 41 0d 1f 04 09 41 |wrch....TYA....A| 00002750 53 4c 20 41 0d 1f 0e 09 41 53 4c 20 41 0d 1f 18 |SL A....ASL A...| 00002760 0e 4a 53 52 20 6f 73 77 72 63 68 0d 1f 22 07 54 |.JSR oswrch..".T| 00002770 59 41 0d 1f 2c 09 4c 53 52 20 41 0d 1f 36 09 4c |YA..,.LSR A..6.L| 00002780 53 52 20 41 0d 1f 40 09 4c 53 52 20 41 0d 1f 4a |SR A..@.LSR A..J| 00002790 09 4c 53 52 20 41 0d 1f 54 09 4c 53 52 20 41 0d |.LSR A..T.LSR A.| 000027a0 1f 5e 09 4c 53 52 20 41 0d 1f 68 0e 4a 4d 50 20 |.^.LSR A..h.JMP | 000027b0 6f 73 77 72 63 68 0d 1f 72 05 3a 0d 1f 7c 09 2e |oswrch..r.:..|..| 000027c0 67 63 6f 6c 0d 1f 86 0b 4c 44 41 20 23 31 38 0d |gcol....LDA #18.| 000027d0 1f 90 0e 4a 53 52 20 6f 73 77 72 63 68 0d 1f 9a |...JSR oswrch...| 000027e0 07 54 58 41 0d 1f a4 0e 4a 53 52 20 6f 73 77 72 |.TXA....JSR oswr| 000027f0 63 68 0d 1f ae 07 54 59 41 0d 1f b8 0e 4a 4d 50 |ch....TYA....JMP| 00002800 20 6f 73 77 72 63 68 0d 1f c2 05 3a 0d 1f cc 0b | oswrch....:....| 00002810 2e 50 62 79 74 65 73 0d 1f d6 0a 4c 44 41 20 23 |.Pbytes....LDA #| 00002820 34 0d 1f e0 0b 53 54 41 20 50 49 32 0d 1f ea 0e |4....STA PI2....| 00002830 2e 50 62 79 74 65 73 5f 4c 31 0d 1f f4 0a 4c 44 |.Pbytes_L1....LD| 00002840 58 20 23 31 0d 1f fe 0e 2e 50 62 79 74 65 73 5f |X #1.....Pbytes_| 00002850 4c 32 0d 20 08 0a 4c 44 41 20 23 30 0d 20 12 0f |L2. ..LDA #0. ..| 00002860 41 53 4c 20 50 63 75 72 72 2c 58 0d 20 1c 09 52 |ASL Pcurr,X. ..R| 00002870 4f 4c 20 41 0d 20 26 0f 41 53 4c 20 50 63 75 72 |OL A. &.ASL Pcur| 00002880 72 2c 58 0d 20 30 09 52 4f 4c 20 41 0d 20 3a 12 |r,X. 0.ROL A. :.| 00002890 43 4d 50 20 50 6c 61 73 74 63 6f 6c 2c 58 0d 20 |CMP Plastcol,X. | 000028a0 44 17 42 45 51 20 50 62 79 74 65 73 5f 6e 6f 61 |D.BEQ Pbytes_noa| 000028b0 63 74 69 6f 6e 0d 20 4e 10 43 4d 50 20 50 6f 76 |ction. N.CMP Pov| 000028c0 65 72 6c 61 79 0d 20 58 14 42 45 51 20 50 62 79 |erlay. X.BEQ Pby| 000028d0 74 65 73 5f 73 74 61 72 74 0d 20 62 07 50 48 41 |tes_start. b.PHA| 000028e0 0d 20 6c 0f 4a 53 52 20 50 67 6f 70 6c 6f 74 0d |. l.JSR Pgoplot.| 000028f0 20 76 07 50 4c 41 0d 20 80 12 53 54 41 20 50 6c | v.PLA. ..STA Pl| 00002900 61 73 74 63 6f 6c 2c 58 0d 20 8a 17 4a 4d 50 20 |astcol,X. ..JMP | 00002910 50 62 79 74 65 73 5f 6e 6f 61 63 74 69 6f 6e 0d |Pbytes_noaction.| 00002920 20 94 11 2e 50 62 79 74 65 73 5f 73 74 61 72 74 | ...Pbytes_start| 00002930 0d 20 9e 12 53 54 41 20 50 6c 61 73 74 63 6f 6c |. ..STA Plastcol| 00002940 2c 58 0d 20 a8 0a 4c 44 41 20 50 78 0d 20 b2 10 |,X. ..LDA Px. ..| 00002950 53 54 41 20 50 6c 61 73 74 78 2c 58 0d 20 bc 14 |STA Plastx,X. ..| 00002960 2e 50 62 79 74 65 73 5f 6e 6f 61 63 74 69 6f 6e |.Pbytes_noaction| 00002970 0d 20 c6 07 44 45 58 0d 20 d0 11 42 50 4c 20 50 |. ..DEX. ..BPL P| 00002980 62 79 74 65 73 5f 4c 32 0d 20 da 0a 49 4e 43 20 |bytes_L2. ..INC | 00002990 50 78 0d 20 e4 0b 44 45 43 20 50 49 32 0d 20 ee |Px. ..DEC PI2. .| 000029a0 11 42 4e 45 20 50 62 79 74 65 73 5f 4c 31 0d 20 |.BNE Pbytes_L1. | 000029b0 f8 07 52 54 53 0d 21 02 05 3a 0d 21 0c 0c 2e 50 |..RTS.!..:.!...P| 000029c0 66 69 6e 69 73 68 0d 21 16 0a 4c 44 58 20 23 30 |finish.!..LDX #0| 000029d0 0d 21 20 0f 4a 53 52 20 50 67 6f 70 6c 6f 74 0d |.! .JSR Pgoplot.| 000029e0 21 2a 0a 4c 44 58 20 23 31 0d 21 34 05 3a 0d 21 |!*.LDX #1.!4.:.!| 000029f0 3e 0c 2e 50 67 6f 70 6c 6f 74 0d 21 48 12 4c 44 |>..Pgoplot.!H.LD| 00002a00 41 20 50 6c 61 73 74 63 6f 6c 2c 58 0d 21 52 10 |A Plastcol,X.!R.| 00002a10 43 4d 50 20 50 6f 76 65 72 6c 61 79 0d 21 5c 10 |CMP Poverlay.!\.| 00002a20 42 4e 45 20 50 67 6f 50 65 78 69 74 0d 21 66 0a |BNE PgoPexit.!f.| 00002a30 4c 44 59 20 50 79 0d 21 70 07 54 58 41 0d 21 7a |LDY Py.!p.TXA.!z| 00002a40 07 50 48 41 0d 21 84 0e 42 45 51 20 50 67 6f 50 |.PHA.!..BEQ PgoP| 00002a50 46 31 0d 21 8e 07 49 4e 59 0d 21 98 0b 2e 50 67 |F1.!..INY.!...Pg| 00002a60 6f 50 46 31 0d 21 a2 0a 4c 44 41 20 50 78 0d 21 |oPF1.!..LDA Px.!| 00002a70 ac 10 53 42 43 20 50 6c 61 73 74 78 2c 58 0d 21 |..SBC Plastx,X.!| 00002a80 b6 0a 43 4d 50 20 23 32 0d 21 c0 0b 4c 44 41 20 |..CMP #2.!..LDA | 00002a90 23 36 39 0d 21 ca 11 42 43 43 20 50 67 6f 50 71 |#69.!..BCC PgoPq| 00002aa0 75 69 63 6b 0d 21 d4 10 4c 44 41 20 50 6c 61 73 |uick.!..LDA Plas| 00002ab0 74 78 2c 58 0d 21 de 07 54 41 58 0d 21 e8 0a 4c |tx,X.!..TAX.!..L| 00002ac0 44 41 20 23 34 0d 21 f2 0c 4a 53 52 20 70 6c 6f |DA #4.!..JSR plo| 00002ad0 74 0d 21 fc 0a 4c 44 41 20 23 35 0d 22 06 0e 2e |t.!..LDA #5."...| 00002ae0 50 67 6f 50 71 75 69 63 6b 0d 22 10 0a 4c 44 58 |PgoPquick."..LDX| 00002af0 20 50 78 0d 22 1a 07 44 45 58 0d 22 24 0c 4a 53 | Px."..DEX."$.JS| 00002b00 52 20 70 6c 6f 74 0d 22 2e 07 50 4c 41 0d 22 38 |R plot."..PLA."8| 00002b10 07 54 41 58 0d 22 42 0d 2e 50 67 6f 50 65 78 69 |.TAX."B..PgoPexi| 00002b20 74 0d 22 4c 07 52 54 53 0d 22 56 05 3a 0d 22 60 |t."L.RTS."V.:."`| 00002b30 0a 2e 50 65 63 66 31 0d 22 6a 21 45 51 55 44 20 |..Pecf1."j!EQUD | 00002b40 26 34 30 34 30 34 30 30 30 3a 45 51 55 44 20 26 |&40404000:EQUD &| 00002b50 35 34 35 34 35 34 34 34 0d 22 74 21 45 51 55 44 |54545444."t!EQUD| 00002b60 20 26 39 35 39 35 39 35 35 35 3a 45 51 55 44 20 | &95959555:EQUD | 00002b70 26 41 39 41 39 41 39 39 39 0d 22 7e 21 45 51 55 |&A9A9A999."~!EQU| 00002b80 44 20 26 45 41 45 41 45 41 41 41 3a 45 51 55 44 |D &EAEAEAAA:EQUD| 00002b90 20 26 46 45 46 45 46 45 45 45 0d 22 88 0c 45 51 | &FEFEFEEE."..EQ| 00002ba0 55 42 20 26 46 46 0d 22 92 05 3a 0d 22 9c 0a 2e |UB &FF."..:."...| 00002bb0 50 65 63 66 32 0d 22 a6 21 45 51 55 44 20 26 31 |Pecf2.".!EQUD &1| 00002bc0 31 30 34 30 30 30 30 3a 45 51 55 44 20 26 35 35 |1040000:EQUD &55| 00002bd0 34 35 31 31 31 31 0d 22 b0 21 45 51 55 44 20 26 |451111.".!EQUD &| 00002be0 36 36 35 39 35 35 35 35 3a 45 51 55 44 20 26 41 |66595555:EQUD &A| 00002bf0 41 39 41 36 36 36 36 0d 22 ba 21 45 51 55 44 20 |A9A6666.".!EQUD | 00002c00 26 42 42 41 45 41 41 41 41 3a 45 51 55 44 20 26 |&BBAEAAAA:EQUD &| 00002c10 46 46 45 46 42 42 42 42 0d 22 c4 0c 45 51 55 42 |FFEFBBBB."..EQUB| 00002c20 20 26 46 46 0d 22 ce 05 3a 0d 22 d8 15 2e 4b 78 | &FF."..:."...Kx| 00002c30 20 45 51 55 44 20 30 3a 45 51 55 44 20 30 0d 22 | EQUD 0:EQUD 0."| 00002c40 e2 15 2e 4b 79 20 45 51 55 44 20 30 3a 45 51 55 |...Ky EQUD 0:EQU| 00002c50 44 20 30 0d 22 ec 18 2e 4b 78 6d 69 64 20 45 51 |D 0."...Kxmid EQ| 00002c60 55 44 20 30 3a 45 51 55 44 20 30 0d 22 f6 18 2e |UD 0:EQUD 0."...| 00002c70 4b 79 6d 69 64 20 45 51 55 44 20 30 3a 45 51 55 |Kymid EQUD 0:EQU| 00002c80 44 20 30 0d 23 00 1a 2e 4b 78 73 69 7a 65 31 20 |D 0.#...Kxsize1 | 00002c90 45 51 55 44 20 30 3a 45 51 55 44 20 30 0d 23 0a |EQUD 0:EQUD 0.#.| 00002ca0 1a 2e 4b 79 73 69 7a 65 31 20 45 51 55 44 20 30 |..Kysize1 EQUD 0| 00002cb0 3a 45 51 55 44 20 30 0d 23 14 1a 2e 4b 78 73 69 |:EQUD 0.#...Kxsi| 00002cc0 7a 65 32 20 45 51 55 44 20 30 3a 45 51 55 44 20 |ze2 EQUD 0:EQUD | 00002cd0 30 0d 23 1e 1a 2e 4b 79 73 69 7a 65 32 20 45 51 |0.#...Kysize2 EQ| 00002ce0 55 44 20 30 3a 45 51 55 44 20 30 0d 23 28 05 5d |UD 0:EQUD 0.#(.]| 00002cf0 0d 23 32 05 ed 0d 23 3c 40 ff 22 53 41 56 45 20 |.#2...#<@."SAVE | 00002d00 4d 61 6e 43 64 65 20 22 2b c3 7e 63 6f 64 65 25 |ManCde "+.~code%| 00002d10 2b 22 20 22 2b c3 7e 4f 25 2b 22 20 22 2b c3 7e |+" "+.~O%+" "+.~| 00002d20 6d 61 6e 64 65 6c 5f 67 6f 2b 22 20 22 2b c3 7e |mandel_go+" "+.~| 00002d30 64 65 73 74 25 0d 23 46 0f d7 20 22 4d 61 6e 53 |dest%.#F.. "ManS| 00002d40 72 63 32 22 0d 23 50 05 3a 0d 23 5a 13 dd 20 f2 |rc2".#P.:.#Z.. .| 00002d50 6d 61 6e 64 63 61 6c 63 28 73 25 29 0d 23 64 0d |mandcalc(s%).#d.| 00002d60 5b 4f 50 54 20 6f 70 74 25 0d 23 6e 0e 2e 4d 63 |[OPT opt%.#n..Mc| 00002d70 61 6c 63 28 73 25 29 0d 23 78 11 4c 44 41 20 76 |alc(s%).#x.LDA v| 00002d80 61 6c 5f 73 74 61 72 74 0d 23 82 0e 53 54 41 20 |al_start.#..STA | 00002d90 43 76 61 6c 75 65 0d 23 8c 05 5d 0d 23 96 24 e7 |Cvalue.#..].#.$.| 00002da0 20 73 25 3d 32 20 5b 4f 50 54 20 6f 70 74 25 3a | s%=2 [OPT opt%:| 00002db0 4c 44 41 20 23 30 3a 53 54 41 20 43 72 3a 5d 0d |LDA #0:STA Cr:].| 00002dc0 23 a0 26 e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f |#.&. s%>0 [OPT o| 00002dd0 70 74 25 3a 4c 44 41 20 43 78 3a 53 54 41 20 43 |pt%:LDA Cx:STA C| 00002de0 72 2b 31 3a 5d 0d 23 aa 0d 5b 4f 50 54 20 6f 70 |r+1:].#..[OPT op| 00002df0 74 25 0d 23 b4 0c 4c 44 41 20 43 78 2b 31 0d 23 |t%.#..LDA Cx+1.#| 00002e00 be 0c 53 54 41 20 43 72 2b 32 0d 23 c8 0c 4c 44 |..STA Cr+2.#..LD| 00002e10 41 20 43 78 2b 32 0d 23 d2 0c 53 54 41 20 43 72 |A Cx+2.#..STA Cr| 00002e20 2b 33 0d 23 dc 0c 4c 44 41 20 43 78 2b 33 0d 23 |+3.#..LDA Cx+3.#| 00002e30 e6 0c 53 54 41 20 43 72 2b 34 0d 23 f0 05 5d 0d |..STA Cr+4.#..].| 00002e40 23 fa 24 e7 20 73 25 3d 32 20 5b 4f 50 54 20 6f |#.$. s%=2 [OPT o| 00002e50 70 74 25 3a 4c 44 41 20 23 30 3a 53 54 41 20 43 |pt%:LDA #0:STA C| 00002e60 69 3a 5d 0d 24 04 26 e7 20 73 25 3e 30 20 5b 4f |i:].$.&. s%>0 [O| 00002e70 50 54 20 6f 70 74 25 3a 4c 44 41 20 43 79 3a 53 |PT opt%:LDA Cy:S| 00002e80 54 41 20 43 69 2b 31 3a 5d 0d 24 0e 0d 5b 4f 50 |TA Ci+1:].$..[OP| 00002e90 54 20 6f 70 74 25 0d 24 18 0c 4c 44 41 20 43 79 |T opt%.$..LDA Cy| 00002ea0 2b 31 0d 24 22 0c 53 54 41 20 43 69 2b 32 0d 24 |+1.$".STA Ci+2.$| 00002eb0 2c 0c 4c 44 41 20 43 79 2b 32 0d 24 36 0c 53 54 |,.LDA Cy+2.$6.ST| 00002ec0 41 20 43 69 2b 33 0d 24 40 0c 4c 44 41 20 43 79 |A Ci+3.$@.LDA Cy| 00002ed0 2b 33 0d 24 4a 0c 53 54 41 20 43 69 2b 34 0d 24 |+3.$J.STA Ci+4.$| 00002ee0 54 0d 2e 4d 43 4c 31 28 73 25 29 0d 24 5e 0c 4c |T..MCL1(s%).$^.L| 00002ef0 44 41 20 43 72 2b 34 0d 24 68 0f 53 54 41 20 43 |DA Cr+4.$h.STA C| 00002f00 72 5f 73 69 67 6e 0d 24 72 17 42 50 4c 20 a4 76 |r_sign.$r.BPL .v| 00002f10 28 4d 43 70 6c 75 73 31 28 73 25 29 29 0d 24 7c |(MCplus1(s%)).$|| 00002f20 07 53 45 43 0d 24 86 05 5d 0d 24 90 2b e7 20 73 |.SEC.$..].$.+. s| 00002f30 25 3d 32 20 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 |%=2 [OPT opt%:LD| 00002f40 41 20 23 30 3a 53 42 43 20 43 72 3a 53 54 41 20 |A #0:SBC Cr:STA | 00002f50 43 72 3a 5d 0d 24 9a 2f e7 20 73 25 3e 30 20 5b |Cr:].$./. s%>0 [| 00002f60 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 23 30 3a |OPT opt%:LDA #0:| 00002f70 53 42 43 20 43 72 2b 31 3a 53 54 41 20 43 72 2b |SBC Cr+1:STA Cr+| 00002f80 31 3a 5d 0d 24 a4 0d 5b 4f 50 54 20 6f 70 74 25 |1:].$..[OPT opt%| 00002f90 0d 24 ae 0a 4c 44 41 20 23 30 0d 24 b8 0c 53 42 |.$..LDA #0.$..SB| 00002fa0 43 20 43 72 2b 32 0d 24 c2 0c 53 54 41 20 43 72 |C Cr+2.$..STA Cr| 00002fb0 2b 32 0d 24 cc 0a 4c 44 41 20 23 30 0d 24 d6 0c |+2.$..LDA #0.$..| 00002fc0 53 42 43 20 43 72 2b 33 0d 24 e0 0c 53 54 41 20 |SBC Cr+3.$..STA | 00002fd0 43 72 2b 33 0d 24 ea 0a 4c 44 41 20 23 30 0d 24 |Cr+3.$..LDA #0.$| 00002fe0 f4 0c 53 42 43 20 43 72 2b 34 0d 24 fe 0c 53 54 |..SBC Cr+4.$..ST| 00002ff0 41 20 43 72 2b 34 0d 25 08 10 2e 4d 43 70 6c 75 |A Cr+4.%...MCplu| 00003000 73 31 28 73 25 29 0d 25 12 0c 4c 44 41 20 43 69 |s1(s%).%..LDA Ci| 00003010 2b 34 0d 25 1c 0f 53 54 41 20 43 69 5f 73 69 67 |+4.%..STA Ci_sig| 00003020 6e 0d 25 26 17 42 50 4c 20 a4 76 28 4d 43 70 6c |n.%&.BPL .v(MCpl| 00003030 75 73 32 28 73 25 29 29 0d 25 30 07 53 45 43 0d |us2(s%)).%0.SEC.| 00003040 25 3a 05 5d 0d 25 44 2b e7 20 73 25 3d 32 20 5b |%:.].%D+. s%=2 [| 00003050 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 23 30 3a |OPT opt%:LDA #0:| 00003060 53 42 43 20 43 69 3a 53 54 41 20 43 69 3a 5d 0d |SBC Ci:STA Ci:].| 00003070 25 4e 2f e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f |%N/. s%>0 [OPT o| 00003080 70 74 25 3a 4c 44 41 20 23 30 3a 53 42 43 20 43 |pt%:LDA #0:SBC C| 00003090 69 2b 31 3a 53 54 41 20 43 69 2b 31 3a 5d 0d 25 |i+1:STA Ci+1:].%| 000030a0 58 0d 5b 4f 50 54 20 6f 70 74 25 0d 25 62 0a 4c |X.[OPT opt%.%b.L| 000030b0 44 41 20 23 30 0d 25 6c 0c 53 42 43 20 43 69 2b |DA #0.%l.SBC Ci+| 000030c0 32 0d 25 76 0c 53 54 41 20 43 69 2b 32 0d 25 80 |2.%v.STA Ci+2.%.| 000030d0 0a 4c 44 41 20 23 30 0d 25 8a 0c 53 42 43 20 43 |.LDA #0.%..SBC C| 000030e0 69 2b 33 0d 25 94 0c 53 54 41 20 43 69 2b 33 0d |i+3.%..STA Ci+3.| 000030f0 25 9e 0a 4c 44 41 20 23 30 0d 25 a8 0c 53 42 43 |%..LDA #0.%..SBC| 00003100 20 43 69 2b 34 0d 25 b2 0c 53 54 41 20 43 69 2b | Ci+4.%..STA Ci+| 00003110 34 0d 25 bc 10 2e 4d 43 70 6c 75 73 32 28 73 25 |4.%...MCplus2(s%| 00003120 29 0d 25 c6 05 5d 0d 25 d0 31 e7 20 73 25 3d 32 |).%..].%.1. s%=2| 00003130 20 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 43 | [OPT opt%:LDA C| 00003140 72 3a 53 54 41 20 55 76 61 6c 31 3a 53 54 41 20 |r:STA Uval1:STA | 00003150 55 76 61 6c 32 3a 5d 0d 25 da 37 e7 20 73 25 3e |Uval2:].%.7. s%>| 00003160 30 20 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 |0 [OPT opt%:LDA | 00003170 43 72 2b 31 3a 53 54 41 20 55 76 61 6c 31 2b 31 |Cr+1:STA Uval1+1| 00003180 3a 53 54 41 20 55 76 61 6c 32 2b 31 3a 5d 0d 25 |:STA Uval2+1:].%| 00003190 e4 0d 5b 4f 50 54 20 6f 70 74 25 0d 25 ee 0c 4c |..[OPT opt%.%..L| 000031a0 44 41 20 43 72 2b 32 0d 25 f8 0f 53 54 41 20 55 |DA Cr+2.%..STA U| 000031b0 76 61 6c 31 2b 32 0d 26 02 0f 53 54 41 20 55 76 |val1+2.&..STA Uv| 000031c0 61 6c 32 2b 32 0d 26 0c 0c 4c 44 41 20 43 72 2b |al2+2.&..LDA Cr+| 000031d0 33 0d 26 16 0f 53 54 41 20 55 76 61 6c 31 2b 33 |3.&..STA Uval1+3| 000031e0 0d 26 20 0f 53 54 41 20 55 76 61 6c 32 2b 33 0d |.& .STA Uval2+3.| 000031f0 26 2a 0c 4c 44 41 20 43 72 2b 34 0d 26 34 0f 53 |&*.LDA Cr+4.&4.S| 00003200 54 41 20 55 76 61 6c 31 2b 34 0d 26 3e 0f 53 54 |TA Uval1+4.&>.ST| 00003210 41 20 55 76 61 6c 32 2b 34 0d 26 48 18 4a 53 52 |A Uval2+4.&H.JSR| 00003220 20 a4 76 28 6d 75 6c 74 69 70 6c 79 28 73 25 29 | .v(multiply(s%)| 00003230 29 0d 26 52 05 5d 0d 26 5c 2a e7 20 73 25 3d 32 |).&R.].&\*. s%=2| 00003240 20 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 55 | [OPT opt%:LDA U| 00003250 72 65 73 75 6c 74 3a 53 54 41 20 43 72 32 3a 5d |result:STA Cr2:]| 00003260 0d 26 66 2e e7 20 73 25 3e 30 20 5b 4f 50 54 20 |.&f.. s%>0 [OPT | 00003270 6f 70 74 25 3a 4c 44 41 20 55 72 65 73 75 6c 74 |opt%:LDA Uresult| 00003280 2b 31 3a 53 54 41 20 43 72 32 2b 31 3a 5d 0d 26 |+1:STA Cr2+1:].&| 00003290 70 0d 5b 4f 50 54 20 6f 70 74 25 0d 26 7a 11 4c |p.[OPT opt%.&z.L| 000032a0 44 41 20 55 72 65 73 75 6c 74 2b 32 0d 26 84 0d |DA Uresult+2.&..| 000032b0 53 54 41 20 43 72 32 2b 32 0d 26 8e 11 4c 44 41 |STA Cr2+2.&..LDA| 000032c0 20 55 72 65 73 75 6c 74 2b 33 0d 26 98 0d 53 54 | Uresult+3.&..ST| 000032d0 41 20 43 72 32 2b 33 0d 26 a2 11 4c 44 41 20 55 |A Cr2+3.&..LDA U| 000032e0 72 65 73 75 6c 74 2b 34 0d 26 ac 0d 53 54 41 20 |result+4.&..STA | 000032f0 43 72 32 2b 34 0d 26 b6 05 5d 0d 26 c0 31 e7 20 |Cr2+4.&..].&.1. | 00003300 73 25 3d 32 20 5b 4f 50 54 20 6f 70 74 25 3a 4c |s%=2 [OPT opt%:L| 00003310 44 41 20 43 69 3a 53 54 41 20 55 76 61 6c 31 3a |DA Ci:STA Uval1:| 00003320 53 54 41 20 55 76 61 6c 32 3a 5d 0d 26 ca 37 e7 |STA Uval2:].&.7.| 00003330 20 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 25 3a | s%>0 [OPT opt%:| 00003340 4c 44 41 20 43 69 2b 31 3a 53 54 41 20 55 76 61 |LDA Ci+1:STA Uva| 00003350 6c 31 2b 31 3a 53 54 41 20 55 76 61 6c 32 2b 31 |l1+1:STA Uval2+1| 00003360 3a 5d 0d 26 d4 0d 5b 4f 50 54 20 6f 70 74 25 0d |:].&..[OPT opt%.| 00003370 26 de 0c 4c 44 41 20 43 69 2b 32 0d 26 e8 0f 53 |&..LDA Ci+2.&..S| 00003380 54 41 20 55 76 61 6c 31 2b 32 0d 26 f2 0f 53 54 |TA Uval1+2.&..ST| 00003390 41 20 55 76 61 6c 32 2b 32 0d 26 fc 0c 4c 44 41 |A Uval2+2.&..LDA| 000033a0 20 43 69 2b 33 0d 27 06 0f 53 54 41 20 55 76 61 | Ci+3.'..STA Uva| 000033b0 6c 31 2b 33 0d 27 10 0f 53 54 41 20 55 76 61 6c |l1+3.'..STA Uval| 000033c0 32 2b 33 0d 27 1a 0c 4c 44 41 20 43 69 2b 34 0d |2+3.'..LDA Ci+4.| 000033d0 27 24 0f 53 54 41 20 55 76 61 6c 31 2b 34 0d 27 |'$.STA Uval1+4.'| 000033e0 2e 0f 53 54 41 20 55 76 61 6c 32 2b 34 0d 27 38 |..STA Uval2+4.'8| 000033f0 18 4a 53 52 20 a4 76 28 6d 75 6c 74 69 70 6c 79 |.JSR .v(multiply| 00003400 28 73 25 29 29 0d 27 42 07 43 4c 43 0d 27 4c 05 |(s%)).'B.CLC.'L.| 00003410 5d 0d 27 56 32 e7 20 73 25 3d 32 20 5b 4f 50 54 |].'V2. s%=2 [OPT| 00003420 20 6f 70 74 25 3a 4c 44 41 20 55 72 65 73 75 6c | opt%:LDA Uresul| 00003430 74 3a 53 54 41 20 43 69 32 3a 41 44 43 20 43 72 |t:STA Ci2:ADC Cr| 00003440 32 3a 5d 0d 27 60 38 e7 20 73 25 3e 30 20 5b 4f |2:].'`8. s%>0 [O| 00003450 50 54 20 6f 70 74 25 3a 4c 44 41 20 55 72 65 73 |PT opt%:LDA Ures| 00003460 75 6c 74 2b 31 3a 53 54 41 20 43 69 32 2b 31 3a |ult+1:STA Ci2+1:| 00003470 41 44 43 20 43 72 32 2b 31 3a 5d 0d 27 6a 0d 5b |ADC Cr2+1:].'j.[| 00003480 4f 50 54 20 6f 70 74 25 0d 27 74 11 4c 44 41 20 |OPT opt%.'t.LDA | 00003490 55 72 65 73 75 6c 32 0d 26 fc 0c 4c 44 41 20 43 |Uresul2.&..LDA C| 000034a0 69 2b 33 0d 27 06 0f 53 54 41 20 55 76 61 6c 31 |i+3.'..STA Uval1| 000034b0 2b 33 0d 27 10 0f 53 54 41 20 55 76 61 6c 32 2b |+3.'..STA Uval2+| 000034c0 33 0d 27 1a 0c 4c 44 41 20 43 69 2b 34 0d 27 24 |3.'..LDA Ci+4.'$| 000034d0 0f 53 54 41 20 55 76 61 6c 31 2b 34 0d 27 2e 0f |.STA Uval1+4.'..| 000034e0 53 54 41 20 55 76 61 6c 32 2b 34 0d 27 38 18 4a |STA Uval2+4.'8.J| 000034f0 53 52 20 a4 76 28 6d 75 6c 74 69 70 6c 79 28 73 |SR .v(multiply(s| 00003500 25 29 29 0d 27 42 07 43 4c 43 0d 27 4c 05 5d 0d |%)).'B.CLC.'L.].| 00003510 27 56 32 e7 20 73 25 3d 32 20 5b 4f 50 54 20 6f |'V2. s%=2 [OPT o| 00003520 70 74 25 3a 4c 44 41 20 55 72 65 73 75 6c 74 3a |pt%:LDA Uresult:| 00003530 53 54 41 20 43 69 32 3a 41 44 43 20 43 72 32 3a |STA Ci2:ADC Cr2:| 00003540 5d 0d 27 60 38 e7 20 73 25 3e 30 20 5b 4f 50 54 |].'`8. s%>0 [OPT| 00003550 20 6f 70 74 25 3a 4c 44 41 20 55 72 65 73 75 6c | opt%:LDA Uresul| 00003560 74 2b 31 3a 53 54 41 20 43 69 32 2b 31 3a 41 44 |t+1:STA Ci2+1:AD| 00003570 43 20 43 72 32 2b 31 3a 5d 0d 27 6a 0d 5b 4f 50 |C Cr2+1:].'j.[OP| 00003580 54 20 6f 70 74 25 0d 27 74 11 4c 44 41 20 55 72 |T opt%.'t.LDA Ur| 00003590 65 73 75 6c 70 74 25 3a 4c 44 41 20 43 72 3a 53 |esulpt%:LDA Cr:S| 000035a0 54 41 20 55 76 61 6c 31 3a 5d 0d 28 32 2b e7 20 |TA Uval1:].(2+. | 000035b0 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 25 3a 4c |s%>0 [OPT opt%:L| 000035c0 44 41 20 43 72 2b 31 3a 53 54 41 20 55 76 61 6c |DA Cr+1:STA Uval| 000035d0 31 2b 31 3a 5d 0d 28 3c 0d 5b 4f 50 54 20 6f 70 |1+1:].(<.[OPT op| 000035e0 74 25 0d 28 46 0c 4c 44 41 20 43 72 2b 32 0d 28 |t%.(F.LDA Cr+2.(| 000035f0 50 0f 53 54 41 20 55 76 61 6c 31 2b 32 0d 28 5a |P.STA Uval1+2.(Z| 00003600 0c 4c 44 41 20 43 72 2b 33 0d 28 64 0f 53 54 41 |.LDA Cr+3.(d.STA| 00003610 20 55 76 61 6c 31 2b 33 0d 28 6e 0c 4c 44 41 20 | Uval1+3.(n.LDA | 00003620 43 72 2b 34 0d 28 78 0f 53 54 41 20 55 76 61 6c |Cr+4.(x.STA Uval| 00003630 31 2b 34 0d 28 82 05 5d 0d 28 8c 27 e7 20 73 25 |1+4.(..].(.'. s%| 00003640 3d 32 20 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 |=2 [OPT opt%:LDA| 00003650 20 43 69 3a 53 54 41 20 55 76 61 6c 32 3a 5d 0d | Ci:STA Uval2:].| 00003660 28 96 2b e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f |(.+. s%>0 [OPT o| 00003670 70 74 25 3a 4c 44 41 20 43 69 2b 31 3a 53 54 41 |pt%:LDA Ci+1:STA| 00003680 20 55 76 61 6c 32 2b 31 3a 5d 0d 28 a0 0d 5b 4f | Uval2+1:].(..[O| 00003690 50 54 20 6f 70 74 25 0d 28 aa 0c 4c 44 41 20 43 |PT opt%.(..LDA C| 000036a0 69 2b 32 0d 28 b4 0f 53 54 41 20 55 76 61 6c 32 |i+2.(..STA Uval2| 000036b0 2b 32 0d 28 be 0c 4c 44 41 20 43 69 2b 33 0d 28 |+2.(..LDA Ci+3.(| 000036c0 c8 0f 53 54 41 20 55 76 61 6c 32 2b 33 0d 28 d2 |..STA Uval2+3.(.| 000036d0 0c 4c 44 41 20 43 69 2b 34 0d 28 dc 0f 53 54 41 |.LDA Ci+4.(..STA| 000036e0 20 55 76 61 6c 32 2b 34 0d 28 e6 18 4a 53 52 20 | Uval2+4.(..JSR | 000036f0 a4 76 28 6d 75 6c 74 69 70 6c 79 28 73 25 29 29 |.v(multiply(s%))| 00003700 0d 28 f0 05 5d 0d 28 fa 3e e7 20 73 25 3d 32 20 |.(..].(.>. s%=2 | 00003710 5b 4f 50 54 20 6f 70 74 25 3a 41 53 4c 20 55 72 |[OPT opt%:ASL Ur| 00003720 65 73 75 6c 74 3a 52 4f 4c 20 55 72 65 73 75 6c |esult:ROL Uresul| 00003730 74 2b 31 3a 52 4f 4c 20 55 72 65 73 75 6c 74 2b |t+1:ROL Uresult+| 00003740 32 3a 5d 0d 29 04 32 e7 20 73 25 3d 31 20 5b 4f |2:].).2. s%=1 [O| 00003750 50 54 20 6f 70 74 25 3a 41 53 4c 20 55 72 65 73 |PT opt%:ASL Ures| 00003760 75 6c 74 2b 31 3a 52 4f 4c 20 55 72 65 73 75 6c |ult+1:ROL Uresul| 00003770 74 2b 32 3a 5d 0d 29 0e 24 e7 20 73 25 3d 30 20 |t+2:].).$. s%=0 | 00003780 5b 4f 50 54 20 6f 70 74 25 3a 41 53 4c 20 55 72 |[OPT opt%:ASL Ur| 00003790 65 73 75 6c 74 2b 32 3a 5d 0d 29 18 0d 5b 4f 50 |esult+2:].)..[OP| 000037a0 54 20 6f 70 74 25 0d 29 22 11 52 4f 4c 20 55 72 |T opt%.)".ROL Ur| 000037b0 65 73 75 6c 74 2b 33 0d 29 2c 11 52 4f 4c 20 55 |esult+3.),.ROL U| 000037c0 72 65 73 75 6c 74 2b 34 0d 29 36 07 53 45 43 0d |result+4.)6.SEC.| 000037d0 29 40 05 5d 0d 29 4a 2d e7 20 73 25 3d 32 20 5b |)@.].)J-. s%=2 [| 000037e0 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 43 72 32 |OPT opt%:LDA Cr2| 000037f0 3a 53 42 43 20 43 69 32 3a 53 54 41 20 43 72 3a |:SBC Ci2:STA Cr:| 00003800 5d 0d 29 54 33 e7 20 73 25 3e 30 20 5b 4f 50 54 |].)T3. s%>0 [OPT| 00003810 20 6f 70 74 25 3a 4c 44 41 20 43 72 32 2b 31 3a | opt%:LDA Cr2+1:| 00003820 53 42 43 20 43 69 32 2b 31 3a 53 54 41 20 43 72 |SBC Ci2+1:STA Cr| 00003830 2b 31 3a 5d 0d 29 5e 0d 5b 4f 50 54 20 6f 70 74 |+1:].)^.[OPT opt| 00003840 25 0d 29 68 0d 4c 44 41 20 43 72 32 2b 32 0d 29 |%.)h.LDA Cr2+2.)| 00003850 72 0d 53 42 43 20 43 69 32 2b 32 0d 29 7c 0c 53 |r.SBC Ci2+2.)|.S| 00003860 54 41 20 43 72 2b 32 0d 29 86 0d 4c 44 41 20 43 |TA Cr+2.)..LDA C| 00003870 72 32 2b 33 0d 29 90 0d 53 42 43 20 43 69 32 2b |r2+3.)..SBC Ci2+| 00003880 33 0d 29 9a 0c 53 54 41 20 43 72 2b 33 0d 29 a4 |3.)..STA Cr+3.).| 00003890 0d 4c 44 41 20 43 72 32 2b 34 0d 29 ae 0d 53 42 |.LDA Cr2+4.)..SB| 000038a0 43 20 43 69 32 2b 34 0d 29 b8 0c 53 54 41 20 43 |C Ci2+4.)..STA C| 000038b0 72 2b 34 0d 29 c2 07 43 4c 43 0d 29 cc 05 5d 0d |r+4.)..CLC.)..].| 000038c0 29 d6 2f e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f |)./. s%>0 [OPT o| 000038d0 70 74 25 3a 4c 44 41 20 43 72 2b 31 3a 41 44 43 |pt%:LDA Cr+1:ADC| 000038e0 20 43 78 3a 53 54 41 20 43 72 2b 31 3a 5d 0d 29 | Cx:STA Cr+1:].)| 000038f0 e0 0d 5b 4f 50 54 20 6f 70 74 25 0d 29 ea 0c 4c |..[OPT opt%.)..L| 00003900 44 41 20 43 72 2b 32 0d 29 f4 0c 41 44 43 20 43 |DA Cr+2.)..ADC C| 00003910 78 2b 31 0d 29 fe 0c 53 54 41 20 43 72 2b 32 0d |x+1.)..STA Cr+2.| 00003920 2a 08 0c 4c 44 41 20 43 72 2b 33 0d 2a 12 0c 41 |*..LDA Cr+3.*..A| 00003930 44 43 20 43 78 2b 32 0d 2a 1c 0c 53 54 41 20 43 |DC Cx+2.*..STA C| 00003940 72 2b 33 0d 2a 26 0c 4c 44 41 20 43 72 2b 34 0d |r+3.*&.LDA Cr+4.| 00003950 2a 30 0c 41 44 43 20 43 78 2b 33 0d 2a 3a 0c 53 |*0.ADC Cx+3.*:.S| 00003960 54 41 20 43 72 2b 34 0d 2a 44 0c 43 4d 50 20 23 |TA Cr+4.*D.CMP #| 00003970 26 31 30 0d 2a 4e 15 42 43 43 20 a4 76 28 4d 43 |&10.*N.BCC .v(MC| 00003980 6f 6b 31 28 73 25 29 29 0d 2a 58 0c 29 a4 0d 4c |ok1(s%)).*X.)..L| 00003990 44 41 20 43 72 32 2b 34 0d 29 ae 0d 53 42 43 20 |DA Cr2+4.)..SBC | 000039a0 43 69 32 2b 34 0d 29 b8 0c 53 54 41 20 43 72 2b |Ci2+4.)..STA Cr+| 000039b0 34 0d 29 c2 07 43 4c 43 0d 29 cc 05 5d 0d 29 d6 |4.)..CLC.)..].).| 000039c0 2f e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 |/. s%>0 [OPT opt| 000039d0 25 3a 4c 44 41 20 43 72 2b 31 3a 41 44 43 20 43 |%:LDA Cr+1:ADC C| 000039e0 78 3a 53 54 41 20 43 72 2b 31 3a 5d 0d 29 e0 0d |x:STA Cr+1:].)..| 000039f0 5b 4f 50 54 20 6f 70 74 25 0d 29 ea 0c 4c 44 41 |[OPT opt%.)..LDA| 00003a00 20 43 72 2b 32 0d 29 f4 0c 41 44 43 20 43 78 2b | Cr+2.)..ADC Cx+| 00003a10 31 0d 29 fe 0c 53 54 41 20 43 72 2b 32 0d 2a 08 |1.)..STA Cr+2.*.| 00003a20 0c 4c 44 41 20 43 72 2b 33 0d 2a 12 0c 41 44 43 |.LDA Cr+3.*..ADC| 00003a30 20 43 78 2b 32 0d 2a 1c 0c 53 54 41 20 43 72 2b | Cx+2.*..STA Cr+| 00003a40 33 0d 2a 26 0c 4c 44 41 20 43 72 2b 34 0d 2a 30 |3.*&.LDA Cr+4.*0| 00003a50 0c 41 44 43 20 43 78 2b 33 0d 2a 3a 0c 53 54 41 |.ADC Cx+3.*:.STA| 00003a60 20 43 72 2b 34 0d 2a 44 0c 43 4d 50 20 23 26 31 | Cr+4.*D.CMP #&1| 00003a70 30 0d 2a 4e 15 42 43 43 20 a4 76 28 4d 43 6f 6b |0.*N.BCC .v(MCok| 00003a80 31 28 73 25 29 29 0d 2a 58 0c 69 2b 33 0d 2a f8 |1(s%)).*X.i+3.*.| 00003a90 0c 4c 44 41 20 43 79 2b 33 0d 2b 02 11 41 44 43 |.LDA Cy+3.+..ADC| 00003aa0 20 55 72 65 73 75 6c 74 2b 34 0d 2b 0c 0c 53 54 | Uresult+4.+..ST| 00003ab0 41 20 43 69 2b 34 0d 2b 16 0c 43 4d 50 20 23 26 |A Ci+4.+..CMP #&| 00003ac0 31 30 0d 2b 20 15 42 43 43 20 a4 76 28 4d 43 6f |10.+ .BCC .v(MCo| 00003ad0 6b 32 28 73 25 29 29 0d 2b 2a 0c 43 4d 50 20 23 |k2(s%)).+*.CMP #| 00003ae0 26 46 30 0d 2b 34 17 42 43 43 20 a4 76 28 4d 43 |&F0.+4.BCC .v(MC| 00003af0 65 78 69 74 32 28 73 25 29 29 0d 2b 3e 0e 2e 4d |exit2(s%)).+>..M| 00003b00 43 6f 6b 32 28 73 25 29 0d 2b 48 14 4a 4d 50 20 |Cok2(s%).+H.JMP | 00003b10 a4 76 28 4d 43 4c 31 28 73 25 29 29 0d 2b 52 13 |.v(MCL1(s%)).+R.| 00003b20 2e 4d 43 73 75 62 74 72 61 63 74 28 73 25 29 0d |.MCsubtract(s%).| 00003b30 2b 5c 07 53 45 43 0d 2b 66 05 5d 0d 2b 70 30 e7 |+\.SEC.+f.].+p0.| 00003b40 20 73 25 3d 32 20 5b 4f 50 54 20 6f 70 74 25 3a | s%=2 [OPT opt%:| 00003b50 4c 44 41 20 23 30 3a 53 42 43 20 55 72 65 73 75 |LDA #0:SBC Uresu| 00003b60 6c 74 3a 53 54 41 20 43 69 3a 5d 0d 2b 7a 34 e7 |lt:STA Ci:].+z4.| 00003b70 20 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 25 3a | s%>0 [OPT opt%:| 00003b80 4c 44 41 20 43 79 3a 53 42 43 20 55 72 65 73 75 |LDA Cy:SBC Uresu| 00003b90 6c 74 2b 31 3a 53 54 41 20 43 69 2b 31 3a 5d 0d |lt+1:STA Ci+1:].| 00003ba0 2b 84 0d 5b 4f 50 54 20 6f 70 74 25 0d 2b 8e 0c |+..[OPT opt%.+..| 00003bb0 4c 44 41 20 43 79 2b 31 0d 2b 98 11 53 42 43 20 |LDA Cy+1.+..SBC | 00003bc0 55 72 65 73 75 6c 74 2b 32 0d 2b a2 0c 53 54 41 |Uresult+2.+..STA| 00003bd0 20 43 69 2b 32 0d 2b ac 0c 4c 44 41 20 43 79 2b | Ci+2.+..LDA Cy+| 00003be0 32 0d 2b b6 11 53 42 43 20 55 72 65 73 75 6c 74 |2.+..SBC Uresult| 00003bf0 2b 33 0d 2b c0 0c 53 54 41 20 43 69 2b 33 0d 2b |+3.+..STA Ci+3.+| 00003c00 ca 0c 4c 44 41 20 43 79 2b 33 0d 2b d4 11 53 42 |..LDA Cy+3.+..SB| 00003c10 43 20 55 72 65 73 75 6c 74 2b 34 0d 2b de 0c 53 |C Uresult+4.+..S| 00003c20 54 41 20 43 69 2b 34 0d 2b e8 0c 43 4d 50 20 23 |TA Ci+4.+..CMP #| 00003c30 26 31 30 0d 2b f2 15 42 43 43 20 a4 76 28 4d 43 |&10.+..BCC .v(MC| 00003c40 6f 6b 33 28 73 25 29 29 0d 2b fc 0c 43 4d 50 20 |ok3(s%)).+..CMP | 00003c50 23 26 46 30 0d 2c 06 17 42 43 43 20 a4 76 28 4d |#&F0.,..BCC .v(M| 00003c60 43 65 78 69 74 32 28 73 25 29 29 0d 2c 10 0e 2e |Cexit2(s%)).,...| 00003c70 4d 43 6f 6b 33 28 73 25 29 0d 2c 1a 14 4a 4d 50 |MCok3(s%).,..JMP| 00003c80 20 a4 76 28 4d 43 4c 31 28 73 25 29 29 0d 2c 24 | .v(MCL1(s%)).,$| 00003c90 10 2e 4d 43 65 78 69 74 32 28 73 25 29 0d 2c 2e |..MCexit2(s%).,.| 00003ca0 0e 4c 44 41 20 43 76 61 6c 75 65 0d 2c 38 07 52 |.LDA Cvalue.,8.R| 00003cb0 54 53 0d 2c 42 05 3a 0d 2c 4c 11 2e 6d 75 6c 74 |TS.,B.:.,L..mult| 00003cc0 69 70 6c 79 28 73 25 29 0d 2c 56 0a 4c 44 41 20 |iply(s%).,V.LDA | 00003cd0 23 30 0d 2c 60 05 5d 0d 2c 6a 22 e7 20 73 25 3d |#0.,`.].,j". s%=| 00003ce0 32 20 5b 4f 50 54 20 6f 70 74 25 3a 53 54 41 20 |2 [OPT opt%:STA | 00003cf0 55 72 65 73 75 6c 74 3a 5d 0d 2c 74 24 e7 20 73 |Uresult:].,t$. s| 00003d00 25 3e 30 20 5b 4f 50 54 20 6f 70 74 25 3a 53 54 |%>0 [OPT opt%:ST| 00003d10 41 20 55 72 65 73 75 6c 74 2b 31 3a 5d 0d 2c 7e |A Uresult+1:].,~| 00003d20 0d 5b 4f 50 54 20 6f 70 74 25 0d 2c 88 11 53 54 |.[OPT opt%.,..ST| 00003d30 41 20 55 72 65 73 75 6c 74 2b 32 0d 2c 92 11 53 |A Uresult+2.,..S| 00003d40 54 41 20 55 72 65 73 75 6c 74 2b 33 0d 2c 9c 11 |TA Uresult+3.,..| 00003d50 53 54 41 20 55 72 65 73 75 6c 74 2b 34 0d 2c a6 |STA Uresult+4.,.| 00003d60 05 5d 0d 2c b0 18 e3 20 69 74 65 72 25 3d 31 36 |.].,... iter%=16| 00003d70 2d 38 2a 73 25 20 b8 20 33 34 0d 2c ba 0d 5b 4f |-8*s% . 34.,..[O| 00003d80 50 54 20 6f 70 74 25 0d 2c c4 17 4c 53 52 20 55 |PT opt%.,..LSR U| 00003d90 76 61 6c 31 2b 69 74 65 72 25 20 81 20 38 0d 2c |val1+iter% . 8.,| 00003da0 ce 1d 42 43 43 20 a4 76 28 55 6e 6f 61 64 64 31 |..BCC .v(Unoadd1| 00003db0 28 73 25 2c 69 74 65 72 25 29 29 0d 2c d8 07 43 |(s%,iter%)).,..C| 00003dc0 4c 43 0d 2c e2 05 5d 0d 2c ec 38 e7 20 73 25 3d |LC.,..].,.8. s%=| 00003dd0 32 20 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 |2 [OPT opt%:LDA | 00003de0 55 72 65 73 75 6c 74 3a 41 44 43 20 55 76 61 6c |Uresult:ADC Uval| 00003df0 32 3a 53 54 41 20 55 72 65 73 75 6c 74 3a 5d 0d |2:STA Uresult:].| 00003e00 2c f6 3e e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f |,.>. s%>0 [OPT o| 00003e10 70 74 25 3a 4c 44 41 20 55 72 65 73 75 6c 74 2b |pt%:LDA Uresult+| 00003e20 31 3a 41 44 43 20 55 76 61 6c 32 2b 31 3a 53 54 |1:ADC Uval2+1:ST| 00003e30 41 20 55 72 65 73 75 6c 74 2b 31 3a 5d 0d 2d 00 |A Uresult+1:].-.| 00003e40 0d 5b 4f 50 54 20 6f 70 74 25 0d 2d 0a 11 4c 44 |.[OPT opt%.-..LD| 00003e50 41 20 55 72 65 73 75 6c 74 2b 32 0d 2d 14 0f 41 |A Uresult+2.-..A| 00003e60 44 43 20 55 76 61 6c 32 2b 32 0d 2d 1e 11 53 54 |DC Uval2+2.-..ST| 00003e70 41 20 55 72 65 73 75 6c 74 2b 32 0d 2d 28 11 4c |A Uresult+2.-(.L| 00003e80 44 41 20 55 72 65 73 75 6c 74 2b 33 0d 2d 32 0f |DA Uresult+3.-2.| 00003e90 41 44 43 20 55 76 61 6c 32 2b 33 0d 2d 3c 11 53 |ADC Uval2+3.-<.S| 00003ea0 54 41 20 55 72 65 73 75 6c 74 2b 33 0d 2d 46 11 |TA Uresult+3.-F.| 00003eb0 4c 44 41 20 55 72 65 73 75 6c 74 2b 34 0d 2d 50 |LDA Uresult+4.-P| 00003ec0 0f 41 44 43 20 55 76 61 6c 32 2b 34 0d 2d 5a 11 |.ADC Uval2+4.-Z.| 00003ed0 53 54 41 20 55 72 65 73 75 6c 74 2b 34 0d 2d 64 |STA Uresult+4.-d| 00003ee0 16 2e 55 6e 6f 61 64 64 31 28 73 25 2c 69 74 65 |..Unoadd1(s%,ite| 00003ef0 72 25 29 0d 2d 6e 11 4c 53 52 20 55 72 65 73 75 |r%).-n.LSR Uresu| 00003f00 6c 74 2b 34 0d 2d 78 11 52 4f 52 20 55 72 65 73 |lt+4.-x.ROR Ures| 00003f10 75 6c 74 2b 33 0d 2d 82 11 52 4f 52 20 55 72 65 |ult+3.-..ROR Ure| 00003f20 73 75 6c 74 2b 32 0d 2d 8c 05 5d 0d 2d 96 24 e7 |sult+2.-..].-.$.| 00003f30 20 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 25 3a | s%>0 [OPT opt%:| 00003f40 52 4f 52 20 55 72 65 73 75 6c 74 2b 31 3a 5d 0d |ROR Uresult+1:].| 00003f50 2d a0 22 e7 20 73 25 3d 32 20 5b 4f 50 54 20 6f |-.". s%=2 [OPT o| 00003f60 70 74 25 3a 52 4f 52 20 55 72 65 73 75 6c 74 3a |pt%:ROR Uresult:| 00003f70 5d 0d 2d aa 05 ed 0d 2d b4 0d 5b 4f 50 54 20 6f |].-....-..[OPT o| 00003f80 70 74 25 0d 2d be 0f 4c 53 52 20 55 76 61 6c 31 |pt%.-..LSR Uval1| 00003f90 2b 34 0d 2d c8 17 42 43 43 20 a4 76 28 55 6e 6f |+4.-..BCC .v(Uno| 00003fa0 61 64 64 32 28 73 25 29 29 0d 2d d2 07 43 4c 43 |add2(s%)).-..CLC| 00003fb0 0d 2d dc 05 5d 0d 2d e6 38 e7 20 73 25 3d 32 20 |.-..].-.8. s%=2 | 00003fc0 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 55 72 |[OPT opt%:LDA Ur| 00003fd0 65 73 75 6c 74 3a 41 44 43 20 55 76 61 6c 32 3a |esult:ADC Uval2:| 00003fe0 53 54 41 20 55 72 65 73 75 6c 74 3a 5d 0d 2d f0 |STA Uresult:].-.| 00003ff0 3e e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 |>. s%>0 [OPT opt| 00004000 25 3a 4c 44 41 20 55 72 65 73 75 6c 74 2b 31 3a |%:LDA Uresult+1:| 00004010 41 44 43 20 55 76 61 6c 32 2b 31 3a 53 54 41 20 |ADC Uval2+1:STA | 00004020 55 72 65 73 75 6c 74 2b 31 3a 5d 0d 2d fa 0d 5b |Uresult+1:].-..[| 00004030 4f 50 54 20 6f 70 74 25 0d 2e 04 11 4c 44 41 20 |OPT opt%....LDA | 00004040 55 72 65 73 75 6c 74 2b 32 0d 2e 0e 0f 41 44 43 |Uresult+2....ADC| 00004050 20 55 76 61 6c 32 2b 32 0d 2e 18 11 53 54 41 20 | Uval2+2....STA | 00004060 55 72 65 73 75 6c 74 2b 32 0d 2e 22 11 4c 44 41 |Uresult+2..".LDA| 00004070 20 55 72 65 73 75 6c 74 2b 33 0d 2e 2c 0f 41 44 | Uresult+3..,.AD| 00004080 43 20 55 76 61 6c 32 2b 33 0d 2e 36 11 53 54 41 |C Uval2+3..6.STA| 00004090 20 55 72 65 73 75 6c 74 2b 33 0d 2e 40 11 4c 44 | Uresult+3..@.LD| 000040a0 41 20 55 72 65 73 75 6c 74 2b 34 0d 2e 4a 0f 41 |A Uresult+4..J.A| 000040b0 44 43 20 55 76 61 6c 32 2b 34 0d 2e 54 11 53 54 |DC Uval2+4..T.ST| 000040c0 41 20 55 72 65 73 75 6c 74 2b 34 0d 2e 5e 10 2e |A Uresult+4..^..| 000040d0 55 6e 6f 61 64 64 32 28 73 25 29 0d 2e 68 05 5d |Unoadd2(s%)..h.]| 000040e0 0d 2e 72 38 e7 20 73 25 3d 32 20 5b 4f 50 54 20 |..r8. s%=2 [OPT | 000040f0 6f 70 74 25 3a 41 53 4c 20 55 76 61 6c 32 3a 52 |opt%:ASL Uval2:R| 00004100 4f 4c 20 55 76 61 6c 32 2b 31 3a 52 4f 4c 20 55 |OL Uval2+1:ROL U| 00004110 76 61 6c 32 2b 32 3a 5d 0d 2e 7c 2e e7 20 73 25 |val2+2:]..|.. s%| 00004120 3d 31 20 5b 4f 50 54 20 6f 70 74 25 3a 41 53 4c |=1 [OPT opt%:ASL| 00004130 20 55 76 61 6c 32 2b 31 3a 52 4f 4c 20 55 76 61 | Uval2+1:ROL Uva| 00004140 6c 32 2b 32 3a 5d 0d 2e 86 22 e7 20 73 25 3d 30 |l2+2:]...". s%=0| 00004150 20 5b 4f 50 54 20 6f 70 74 25 3a 41 53 4c 20 55 | [OPT opt%:ASL U| 00004160 76 61 6c 32 2b 32 3a 5d 0d 2e 90 0d 5b 4f 50 54 |val2+2:]....[OPT| 00004170 20 6f 70 74 25 0d 2e 9a 0f 52 4f 4c 20 55 76 61 | opt%....ROL Uva| 00004180 6c 32 2b 33 0d 2e a4 0f 52 4f 4c 20 55 76 61 6c |l2+3....ROL Uval| 00004190 32 2b 34 0d 2e ae 0f 4c 53 52 20 55 76 61 6c 31 |2+4....LSR Uval1| 000041a0 2b 34 0d 2e b8 17 42 43 43 20 a4 76 28 55 6e 6f |+4....BCC .v(Uno| 000041b0 61 64 64 33 28 73 25 29 29 0d 2e c2 07 43 4c 43 |add3(s%))....CLC| 000041c0 0d 2e cc 05 5d 0d 2e d6 38 e7 20 73 25 3d 32 20 |....]...8. s%=2 | 000041d0 5b 4f 50 54 20 6f 70 74 25 3a 4c 44 41 20 55 72 |[OPT opt%:LDA Ur| 000041e0 65 73 75 6c 74 3a 41 44 43 20 55 76 61 6c 32 3a |esult:ADC Uval2:| 000041f0 53 54 41 20 55 72 65 73 75 6c 74 3a 5d 0d 2e e0 |STA Uresult:]...| 00004200 3e e7 20 73 25 3e 30 20 5b 4f 50 54 20 6f 70 74 |>. s%>0 [OPT opt| 00004210 25 3a 4c 44 41 20 55 72 65 73 75 6c 74 2b 31 3a |%:LDA Uresult+1:| 00004220 41 44 43 20 55 76 61 6c 32 2b 31 3a 53 54 41 20 |ADC Uval2+1:STA | 00004230 55 72 65 73 75 6c 74 2b 31 3a 5d 0d 2e ea 0d 5b |Uresult+1:]....[| 00004240 4f 50 54 20 6f 70 74 25 0d 2e f4 11 4c 44 41 20 |OPT opt%....LDA | 00004250 55 72 65 73 75 6c 74 2b 32 0d 2e fe 0f 41 44 43 |Uresult+2....ADC| 00004260 20 55 76 61 6c 32 2b 32 0d 2f 08 11 53 54 41 20 | Uval2+2./..STA | 00004270 55 72 65 73 75 6c 74 2b 32 0d 2f 12 11 4c 44 41 |Uresult+2./..LDA| 00004280 20 55 72 65 73 75 6c 74 2b 33 0d 2f 1c 0f 41 44 | Uresult+3./..AD| 00004290 43 20 55 76 61 6c 32 2b 33 0d 2f 26 11 53 54 41 |C Uval2+3./&.STA| 000042a0 20 55 72 65 73 75 6c 74 2b 33 0d 2f 30 11 4c 44 | Uresult+3./0.LD| 000042b0 41 20 55 72 65 73 75 6c 74 2b 34 0d 2f 3a 0f 41 |A Uresult+4./:.A| 000042c0 44 43 20 55 76 61 6c 32 2b 34 0d 2f 44 11 53 54 |DC Uval2+4./D.ST| 000042d0 41 20 55 72 65 73 75 6c 74 2b 34 0d 2f 4e 10 2e |A Uresult+4./N..| 000042e0 55 6e 6f 61 64 64 33 28 73 25 29 0d 2f 58 07 52 |Unoadd3(s%)./X.R| 000042f0 54 53 0d 2f 62 05 5d 0d 2f 6c 05 e1 0d 2f 76 05 |TS./b.]./l.../v.| 00004300 3a 0d 2f 80 20 dd 20 a4 76 28 76 25 29 e7 20 6f |:./. . .v(v%). o| 00004310 70 74 25 3d 34 20 8c 20 3d 50 25 20 8b 20 3d 76 |pt%=4 . =P% . =v| 00004320 25 0d ff |%..| 00004323
.