&�   Multispiro demo (M/C Version) 
�             by  
�       Mike Claxton   
�128
*FX15,0
(	�init
2	�mc  
F�
P
�"MULTS5"
Z	�demo
d�
x:
�
��init
�� O%(6),Q%(6)
�� res 4,remain 4 
�&� loX 255,hiX 255,loY 255,hiY 255 
�� loXX 255,loYY 255 
�
�K%=0�5  
�O%(K%)=&09E0+5*K%   
�Q%(K%)=&09E6+5*K%   
�!O%(K%)=3:!Q%(K%)=0
��
��19,2,0;0; 
��19,1,3;0;  

�19,3,6;0;  

	�19,7,0;0; 

res=&09F0:remain=&09F5  

lcirclo=&09FA:lcirchi=&09FB

" �cdiflo=&09FC:cdifhi=&09FD  

, multilo=&09FE:multihi=&09FF 

6F%=0:J%=1 

@?&09D0=0:?&09D1=0 

J?&09FE=0:?&09FF=2   

T!?&81=128:?&82=2:?&83=0:?&84=5

^$?&8C=F%:?&8D=G%:?&8E=J%:?&8F=K% 

h#?&70=1:?&71=2 :?&89=32 :?&8B=16

rX2%=640:Y2%=512 

|SC%=100

�LC%=456 

�SD%=LC%-SC%  

�SD1%=512-LC%  

�PROP=SD%/LC%

�PROP1=SD1%/LC%

�PROP2=SC%/LC%

�
C%=1:D%=2

�R%=0 :M%=0 :N%=SC% 

�PP%=640:Q%=1012   

�X2%=0:Y2%=PROP1*512 

�X3%=0:Y3%=PROP2*512 

�AA%=640-LC%:BB%=512-LC%

��
 
	��mc 
� PASS=0�2 �2
&P%=&0900
0[
:OPT PASS
D
.mult2
NLDY #16
X
LDA #0
b
STA res+1
lSTA res
v
STA res+2
�
STA res+3
�.multiloop
�LSR &85 
�ROR &86
�BCC skipadd 
�CLC
�LDA multilo
�
ADC res+2
�
STA res+2
�LDA multihi
�
ADC res+3
�
STA res+3
�.skipadd
LSR res+3 

ROR res+2

ROR res+1
 ROR res
*DEY
4BNE multiloop 
>LDX #32 
H
LDA #0
RSTA remain  
\STA remain+1
f.divl   
pASL res
z
ROL res+1
�
ROL res+2
�
ROL res+3
�ROL remain
�ROL remain+1
�BCS willgo
�SEC
�LDA remain 
�SBC lcirclo
�TAY
�LDA remain+1
�SBC lcirchi
�BCC wontgo
�
.willgo  
STA remain+1  
STY remain
INC res
$.wontgo
.DEX
8BNE divl
BCLC
LLDA res
VADC &87
`STA res 
jLDA res+1 
tADC &80
~STA res+1 
�	SEC  
�LDA res
�SBC &76
�
STA res  
�
LDA res+1
�SBC &7B
�STA res+1 
� 
�	RTS  
�.revolve  
�LDA &7C:STA &81
�LDA &7D:STA &82 
LDA &7E:STA &83 

LDA &7F:STA &84 
LDA &72:STA &77 
LDA &73:STA &78 
(LDA &74:STA &79  
2LDA &75:STA &7A 
<LDA &8C:STA &8D 
FLDA &8E:STA &8F 
PINC &8C        
ZLDA &8E 
dSBC &88:STA &8E
nLDA &70 
x	PHA  
�
LDA &71  
�STA &70 
�	PLA  
�STA &71
�RTS 
�]
��
��  
�

00000000  0d 00 01 26 f4 20 20 20  4d 75 6c 74 69 73 70 69  |...&.   Multispi|
00000010  72 6f 20 64 65 6d 6f 20  28 4d 2f 43 20 56 65 72  |ro demo (M/C Ver|
00000020  73 69 6f 6e 29 20 0d 00  02 16 f4 20 20 20 20 20  |sion) .....     |
00000030  20 20 20 20 20 20 20 20  62 79 20 20 0d 00 03 1b  |        by  ....|
00000040  f4 20 20 20 20 20 20 20  4d 69 6b 65 20 43 6c 61  |.       Mike Cla|
00000050  78 74 6f 6e 20 20 20 0d  00 05 08 eb 31 32 38 0d  |xton   .....128.|
00000060  00 1e 0b 2a 46 58 31 35  2c 30 0d 00 28 09 f2 69  |...*FX15,0..(..i|
00000070  6e 69 74 0d 00 32 09 f2  6d 63 20 20 0d 00 46 05  |nit..2..mc  ..F.|
00000080  db 0d 00 50 0d d7 22 4d  55 4c 54 53 35 22 0d 00  |...P.."MULTS5"..|
00000090  5a 09 f2 64 65 6d 6f 0d  00 64 05 e0 0d 00 78 05  |Z..demo..d....x.|
000000a0  3a 0d 00 82 0a dd f2 69  6e 69 74 0d 00 8c 11 de  |:......init.....|
000000b0  20 4f 25 28 36 29 2c 51  25 28 36 29 0d 00 a0 15  | O%(6),Q%(6)....|
000000c0  de 20 72 65 73 20 34 2c  72 65 6d 61 69 6e 20 34  |. res 4,remain 4|
000000d0  20 0d 00 aa 26 de 20 6c  6f 58 20 32 35 35 2c 68  | ...&. loX 255,h|
000000e0  69 58 20 32 35 35 2c 6c  6f 59 20 32 35 35 2c 68  |iX 255,loY 255,h|
000000f0  69 59 20 32 35 35 20 0d  00 b4 18 de 20 6c 6f 58  |iY 255 ..... loX|
00000100  58 20 32 35 35 2c 6c 6f  59 59 20 32 35 35 20 0d  |X 255,loYY 255 .|
00000110  00 be 0d e3 4b 25 3d 30  b8 35 20 20 0d 00 c8 18  |....K%=0.5  ....|
00000120  4f 25 28 4b 25 29 3d 26  30 39 45 30 2b 35 2a 4b  |O%(K%)=&09E0+5*K|
00000130  25 20 20 20 0d 00 d2 18  51 25 28 4b 25 29 3d 26  |%   ....Q%(K%)=&|
00000140  30 39 45 36 2b 35 2a 4b  25 20 20 20 0d 00 dc 17  |09E6+5*K%   ....|
00000150  21 4f 25 28 4b 25 29 3d  33 3a 21 51 25 28 4b 25  |!O%(K%)=3:!Q%(K%|
00000160  29 3d 30 0d 00 e6 05 ed  0d 00 f0 0f ef 31 39 2c  |)=0..........19,|
00000170  32 2c 30 3b 30 3b 20 0d  00 fa 10 ef 31 39 2c 31  |2,0;0; .....19,1|
00000180  2c 33 3b 30 3b 20 20 0d  01 04 10 ef 31 39 2c 33  |,3;0;  .....19,3|
00000190  2c 36 3b 30 3b 20 20 0d  01 09 0f ef 31 39 2c 37  |,6;0;  .....19,7|
000001a0  2c 30 3b 30 3b 20 0d 01  0e 1c 72 65 73 3d 26 30  |,0;0; ....res=&0|
000001b0  39 46 30 3a 72 65 6d 61  69 6e 3d 26 30 39 46 35  |9F0:remain=&09F5|
000001c0  20 20 0d 01 18 1f 6c 63  69 72 63 6c 6f 3d 26 30  |  ....lcirclo=&0|
000001d0  39 46 41 3a 6c 63 69 72  63 68 69 3d 26 30 39 46  |9FA:lcirchi=&09F|
000001e0  42 0d 01 22 20 f4 63 64  69 66 6c 6f 3d 26 30 39  |B.." .cdiflo=&09|
000001f0  46 43 3a 63 64 69 66 68  69 3d 26 30 39 46 44 20  |FC:cdifhi=&09FD |
00000200  20 0d 01 2c 20 6d 75 6c  74 69 6c 6f 3d 26 30 39  | .., multilo=&09|
00000210  46 45 3a 6d 75 6c 74 69  68 69 3d 26 30 39 46 46  |FE:multihi=&09FF|
00000220  20 0d 01 36 0e 46 25 3d  30 3a 4a 25 3d 31 20 0d  | ..6.F%=0:J%=1 .|
00000230  01 40 16 3f 26 30 39 44  30 3d 30 3a 3f 26 30 39  |.@.?&09D0=0:?&09|
00000240  44 31 3d 30 20 0d 01 4a  18 3f 26 30 39 46 45 3d  |D1=0 ..J.?&09FE=|
00000250  30 3a 3f 26 30 39 46 46  3d 32 20 20 20 0d 01 54  |0:?&09FF=2   ..T|
00000260  21 3f 26 38 31 3d 31 32  38 3a 3f 26 38 32 3d 32  |!?&81=128:?&82=2|
00000270  3a 3f 26 38 33 3d 30 3a  3f 26 38 34 3d 35 0d 01  |:?&83=0:?&84=5..|
00000280  5e 24 3f 26 38 43 3d 46  25 3a 3f 26 38 44 3d 47  |^$?&8C=F%:?&8D=G|
00000290  25 3a 3f 26 38 45 3d 4a  25 3a 3f 26 38 46 3d 4b  |%:?&8E=J%:?&8F=K|
000002a0  25 20 0d 01 68 23 3f 26  37 30 3d 31 3a 3f 26 37  |% ..h#?&70=1:?&7|
000002b0  31 3d 32 20 3a 3f 26 38  39 3d 33 32 20 3a 3f 26  |1=2 :?&89=32 :?&|
000002c0  38 42 3d 31 36 0d 01 72  14 58 32 25 3d 36 34 30  |8B=16..r.X2%=640|
000002d0  3a 59 32 25 3d 35 31 32  20 0d 01 7c 0b 53 43 25  |:Y2%=512 ..|.SC%|
000002e0  3d 31 30 30 0d 01 86 0c  4c 43 25 3d 34 35 36 20  |=100....LC%=456 |
000002f0  0d 01 90 11 53 44 25 3d  4c 43 25 2d 53 43 25 20  |....SD%=LC%-SC% |
00000300  20 0d 01 9a 12 53 44 31  25 3d 35 31 32 2d 4c 43  | ....SD1%=512-LC|
00000310  25 20 20 0d 01 a4 10 50  52 4f 50 3d 53 44 25 2f  |%  ....PROP=SD%/|
00000320  4c 43 25 0d 01 ae 12 50  52 4f 50 31 3d 53 44 31  |LC%....PROP1=SD1|
00000330  25 2f 4c 43 25 0d 01 b8  11 50 52 4f 50 32 3d 53  |%/LC%....PROP2=S|
00000340  43 25 2f 4c 43 25 0d 01  c2 0d 43 25 3d 31 3a 44  |C%/LC%....C%=1:D|
00000350  25 3d 32 0d 01 cc 17 52  25 3d 30 20 3a 4d 25 3d  |%=2....R%=0 :M%=|
00000360  30 20 3a 4e 25 3d 53 43  25 20 0d 01 d6 16 50 50  |0 :N%=SC% ....PP|
00000370  25 3d 36 34 30 3a 51 25  3d 31 30 31 32 20 20 20  |%=640:Q%=1012   |
00000380  0d 01 e0 18 58 32 25 3d  30 3a 59 32 25 3d 50 52  |....X2%=0:Y2%=PR|
00000390  4f 50 31 2a 35 31 32 20  0d 01 ea 18 58 33 25 3d  |OP1*512 ....X3%=|
000003a0  30 3a 59 33 25 3d 50 52  4f 50 32 2a 35 31 32 20  |0:Y3%=PROP2*512 |
000003b0  0d 01 f4 1b 41 41 25 3d  36 34 30 2d 4c 43 25 3a  |....AA%=640-LC%:|
000003c0  42 42 25 3d 35 31 32 2d  4c 43 25 0d 01 fe 05 e1  |BB%=512-LC%.....|
000003d0  0d 02 08 05 20 0d 02 12  09 dd f2 6d 63 20 0d 02  |.... ......mc ..|
000003e0  1c 11 e3 20 50 41 53 53  3d 30 b8 32 20 88 32 0d  |... PASS=0.2 .2.|
000003f0  02 26 0c 50 25 3d 26 30  39 30 30 0d 02 30 05 5b  |.&.P%=&0900..0.[|
00000400  0d 02 3a 0c 4f 50 54 20  50 41 53 53 0d 02 44 0a  |..:.OPT PASS..D.|
00000410  2e 6d 75 6c 74 32 0d 02  4e 0b 4c 44 59 20 23 31  |.mult2..N.LDY #1|
00000420  36 0d 02 58 0a 4c 44 41  20 23 30 0d 02 62 0d 53  |6..X.LDA #0..b.S|
00000430  54 41 20 72 65 73 2b 31  0d 02 6c 0b 53 54 41 20  |TA res+1..l.STA |
00000440  72 65 73 0d 02 76 0d 53  54 41 20 72 65 73 2b 32  |res..v.STA res+2|
00000450  0d 02 80 0d 53 54 41 20  72 65 73 2b 33 0d 02 8a  |....STA res+3...|
00000460  0e 2e 6d 75 6c 74 69 6c  6f 6f 70 0d 02 94 0c 4c  |..multiloop....L|
00000470  53 52 20 26 38 35 20 0d  02 9e 0b 52 4f 52 20 26  |SR &85 ....ROR &|
00000480  38 36 0d 02 a8 10 42 43  43 20 73 6b 69 70 61 64  |86....BCC skipad|
00000490  64 20 0d 02 b2 07 43 4c  43 0d 02 bc 0f 4c 44 41  |d ....CLC....LDA|
000004a0  20 6d 75 6c 74 69 6c 6f  0d 02 c6 0d 41 44 43 20  | multilo....ADC |
000004b0  72 65 73 2b 32 0d 02 d0  0d 53 54 41 20 72 65 73  |res+2....STA res|
000004c0  2b 32 0d 02 da 0f 4c 44  41 20 6d 75 6c 74 69 68  |+2....LDA multih|
000004d0  69 0d 02 e4 0d 41 44 43  20 72 65 73 2b 33 0d 02  |i....ADC res+3..|
000004e0  ee 0d 53 54 41 20 72 65  73 2b 33 0d 02 f8 0c 2e  |..STA res+3.....|
000004f0  73 6b 69 70 61 64 64 0d  03 02 0e 4c 53 52 20 72  |skipadd....LSR r|
00000500  65 73 2b 33 20 0d 03 0c  0d 52 4f 52 20 72 65 73  |es+3 ....ROR res|
00000510  2b 32 0d 03 16 0d 52 4f  52 20 72 65 73 2b 31 0d  |+2....ROR res+1.|
00000520  03 20 0b 52 4f 52 20 72  65 73 0d 03 2a 07 44 45  |. .ROR res..*.DE|
00000530  59 0d 03 34 12 42 4e 45  20 6d 75 6c 74 69 6c 6f  |Y..4.BNE multilo|
00000540  6f 70 20 0d 03 3e 0c 4c  44 58 20 23 33 32 20 0d  |op ..>.LDX #32 .|
00000550  03 48 0a 4c 44 41 20 23  30 0d 03 52 10 53 54 41  |.H.LDA #0..R.STA|
00000560  20 72 65 6d 61 69 6e 20  20 0d 03 5c 10 53 54 41  | remain  ..\.STA|
00000570  20 72 65 6d 61 69 6e 2b  31 0d 03 66 0c 2e 64 69  | remain+1..f..di|
00000580  76 6c 20 20 20 0d 03 70  0b 41 53 4c 20 72 65 73  |vl   ..p.ASL res|
00000590  0d 03 7a 0d 52 4f 4c 20  72 65 73 2b 31 0d 03 84  |..z.ROL res+1...|
000005a0  0d 52 4f 4c 20 72 65 73  2b 32 0d 03 8e 0d 52 4f  |.ROL res+2....RO|
000005b0  4c 20 72 65 73 2b 33 0d  03 98 0e 52 4f 4c 20 72  |L res+3....ROL r|
000005c0  65 6d 61 69 6e 0d 03 a2  10 52 4f 4c 20 72 65 6d  |emain....ROL rem|
000005d0  61 69 6e 2b 31 0d 03 ac  0e 42 43 53 20 77 69 6c  |ain+1....BCS wil|
000005e0  6c 67 6f 0d 03 b6 07 53  45 43 0d 03 c0 0f 4c 44  |lgo....SEC....LD|
000005f0  41 20 72 65 6d 61 69 6e  20 0d 03 ca 0f 53 42 43  |A remain ....SBC|
00000600  20 6c 63 69 72 63 6c 6f  0d 03 d4 07 54 41 59 0d  | lcirclo....TAY.|
00000610  03 de 10 4c 44 41 20 72  65 6d 61 69 6e 2b 31 0d  |...LDA remain+1.|
00000620  03 e8 0f 53 42 43 20 6c  63 69 72 63 68 69 0d 03  |...SBC lcirchi..|
00000630  f2 0e 42 43 43 20 77 6f  6e 74 67 6f 0d 03 fc 0d  |..BCC wontgo....|
00000640  2e 77 69 6c 6c 67 6f 20  20 0d 04 06 12 53 54 41  |.willgo  ....STA|
00000650  20 72 65 6d 61 69 6e 2b  31 20 20 0d 04 10 0e 53  | remain+1  ....S|
00000660  54 59 20 72 65 6d 61 69  6e 0d 04 1a 0b 49 4e 43  |TY remain....INC|
00000670  20 72 65 73 0d 04 24 0b  2e 77 6f 6e 74 67 6f 0d  | res..$..wontgo.|
00000680  04 2e 07 44 45 58 0d 04  38 0c 42 4e 45 20 64 69  |...DEX..8.BNE di|
00000690  76 6c 0d 04 42 07 43 4c  43 0d 04 4c 0b 4c 44 41  |vl..B.CLC..L.LDA|
000006a0  20 72 65 73 0d 04 56 0b  41 44 43 20 26 38 37 0d  | res..V.ADC &87.|
000006b0  04 60 0c 53 54 41 20 72  65 73 20 0d 04 6a 0e 4c  |.`.STA res ..j.L|
000006c0  44 41 20 72 65 73 2b 31  20 0d 04 74 0b 41 44 43  |DA res+1 ..t.ADC|
000006d0  20 26 38 30 0d 04 7e 0e  53 54 41 20 72 65 73 2b  | &80..~.STA res+|
000006e0  31 20 0d 04 88 09 53 45  43 20 20 0d 04 92 0b 4c  |1 ....SEC  ....L|
000006f0  44 41 20 72 65 73 0d 04  9c 0b 53 42 43 20 26 37  |DA res....SBC &7|
00000700  36 0d 04 a6 0d 53 54 41  20 72 65 73 20 20 0d 04  |6....STA res  ..|
00000710  b0 0d 4c 44 41 20 72 65  73 2b 31 0d 04 ba 0b 53  |..LDA res+1....S|
00000720  42 43 20 26 37 42 0d 04  c4 0e 53 54 41 20 72 65  |BC &7B....STA re|
00000730  73 2b 31 20 0d 04 ce 05  20 0d 04 d8 09 52 54 53  |s+1 .... ....RTS|
00000740  20 20 0d 04 e2 0e 2e 72  65 76 6f 6c 76 65 20 20  |  .....revolve  |
00000750  0d 04 ec 13 4c 44 41 20  26 37 43 3a 53 54 41 20  |....LDA &7C:STA |
00000760  26 38 31 0d 04 f6 14 4c  44 41 20 26 37 44 3a 53  |&81....LDA &7D:S|
00000770  54 41 20 26 38 32 20 0d  05 00 14 4c 44 41 20 26  |TA &82 ....LDA &|
00000780  37 45 3a 53 54 41 20 26  38 33 20 0d 05 0a 14 4c  |7E:STA &83 ....L|
00000790  44 41 20 26 37 46 3a 53  54 41 20 26 38 34 20 0d  |DA &7F:STA &84 .|
000007a0  05 14 14 4c 44 41 20 26  37 32 3a 53 54 41 20 26  |...LDA &72:STA &|
000007b0  37 37 20 0d 05 1e 14 4c  44 41 20 26 37 33 3a 53  |77 ....LDA &73:S|
000007c0  54 41 20 26 37 38 20 0d  05 28 15 4c 44 41 20 26  |TA &78 ..(.LDA &|
000007d0  37 34 3a 53 54 41 20 26  37 39 20 20 0d 05 32 14  |74:STA &79  ..2.|
000007e0  4c 44 41 20 26 37 35 3a  53 54 41 20 26 37 41 20  |LDA &75:STA &7A |
000007f0  0d 05 3c 14 4c 44 41 20  26 38 43 3a 53 54 41 20  |..<.LDA &8C:STA |
00000800  26 38 44 20 0d 05 46 14  4c 44 41 20 26 38 45 3a  |&8D ..F.LDA &8E:|
00000810  53 54 41 20 26 38 46 20  0d 05 50 13 49 4e 43 20  |STA &8F ..P.INC |
00000820  26 38 43 20 20 20 20 20  20 20 20 0d 05 5a 0c 4c  |&8C        ..Z.L|
00000830  44 41 20 26 38 45 20 0d  05 64 13 53 42 43 20 26  |DA &8E ..d.SBC &|
00000840  38 38 3a 53 54 41 20 26  38 45 0d 05 6e 0c 4c 44  |88:STA &8E..n.LD|
00000850  41 20 26 37 30 20 0d 05  78 09 50 48 41 20 20 0d  |A &70 ..x.PHA  .|
00000860  05 82 0d 4c 44 41 20 26  37 31 20 20 0d 05 8c 0c  |...LDA &71  ....|
00000870  53 54 41 20 26 37 30 20  0d 05 96 09 50 4c 41 20  |STA &70 ....PLA |
00000880  20 0d 05 a0 0b 53 54 41  20 26 37 31 0d 05 aa 08  | ....STA &71....|
00000890  52 54 53 20 0d 05 b4 05  5d 0d 05 be 05 ed 0d 05  |RTS ....].......|
000008a0  c8 07 e1 20 20 0d ff                              |...  ..|
000008a7