30-01-88/MULTS5

Home » CEEFAX disks » telesoftware5.adl » 30-01-88/MULTS5

30-01-88/MULTS5

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 » CEEFAX disks » telesoftware5.adl
Filename:	30-01-88/MULTS5
Read OK:	✔
File size:	1940 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

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

CEEFAX disks » telesoftware5.adl » 30-01-88/MULTS5
CEEFAX disks » telesoftware7.adl » 10-06-88/MULTS5

File contents

   10DIM res 4,remain 4,sdor512 2,sdtimes2 2,loX 255,hiX 255,loY 255,hiY 255,loXX 255,loYY 255   
   20REPEAT
   30MODE7  
   40PROCinfo     
   50MODE129
   60PROCinit
   70PRINT"Please be patient while values are      calculated and assigned."  
   80PROCmc  
   90PROCsincos  
  100CLS  
  110PROCdemo
  120UNTIL FALSE
  130DEFPROCsincos 
  140Ang=0:Deg=PI/128
  150FORI%=0TO64  
  160X%=(SIN (Ang))*LC%+LC%+.5
  170XX%=(X%-LC%)/LC%*SC%+SC%
  180I%?loX=X%MOD256 
  190I%?hiX=X%DIV256  
  200I%?loXX=XX% MOD 256  
  210Ang=Ang+Deg
  220NEXT   
  230FORI%=0TO64   
  240J%=64-I%   
  250I%?loY=J%?loX 
  260I%?hiY=J%?hiX 
  270I%?loYY=J%?loXX
  280NEXT
  290FORI%=64TO128  
  300J%=128-I%  
  310I%?loX=J%?loX  
  320I%?hiX=J%?hiX  
  330I%?loXX=J%?loXX
  340NEWY%=2*LC%-J%?loY-J%?hiY*256
  350NEWYY%=2*SC%-J%?loYY
  360I%?loY=NEWY%MOD256 
  370I%?hiY=NEWY%DIV256 
  380I%?loYY=NEWYY%MOD256  
  390NEXT  
  400FORI%=128TO191  
  410J%=I%-128
  420NEWX%=2*LC%-J%?loX-J%?hiX*256 
  430I%?loX=NEWX%MOD256 
  440I%?hiX=NEWX%DIV256  
  450NEWXX%=2*SC%-J%?loXX
  460I%?loXX=NEWXX%MOD256  
  470NEWY%=2*LC%-J%?loY-J%?hiY*256  
  480NEWYY%=2*SC%-J%?loYY
  490I%?loYY=NEWYY%MOD256
  500I%?loY=NEWY%MOD256  
  510I%?hiY=NEWY%DIV256  
  520NEXT
  530FORI%=192TO255  
  540J%=256-I%
  550NEWX%=2*LC%-J%?loX-J%?hiX*256
  560I%?loX=NEWX%MOD256 
  570I%?hiX=NEWX%DIV256   
  580NEWXX%=2*SC%-J%?loXX
  590I%?loXX=NEWXX%MOD256   
  600NEWY%=J%?loY+J%?hiY*256  
  610I%?loY=NEWY%MOD256 
  620I%?hiY=NEWY%DIV256 
  630NEWYY%=J%?loYY
  640I%?loYY=NEWYY%MOD256 
  650NEXT
  660VDU4
  670ENDPROC
  680 
  690DEFPROCinit
  700VDU19,3,6;0;
  710res=&09F0:remain=&09F5
  720lcirclo=&09FA:lcirchi=&09FB 
  730cdiflo=&09FC:cdifhi=&09FD
  740multilo=&09FE:multihi=&09FF
  750?&09D0=248:?&09D1=1 
  760F%=0:J%=1
  770?&81=128:?&82=2:?&83=0:?&84=5
  780?&8C=F%:?&8D=G%:?&8E=J%:?&8F=10
  790?&70=1:?&71=2
  800X2%=640:Y2%=512 
  810?&09FC=0:?&09FD=0 
  820?lcirclo=LC%MOD256  
  830?lcirchi=LC%DIV256  
  840SD%=LC%-SC%  
  850?&0CF0=(SD%*2)MOD256  
  860?&0CF1=(SD%*2)DIV256 
  870?cdiflo=SD%MOD256  
  880?cdifhi=SD%DIV256 
  890SD1%=512-LC%  
  900PROP=SD%/LC%
  910PROP1=SD1%/LC%
  920PROP2=SC%/LC%
  930C%=1:D%=2
  940R%=0:M%=0:N%=SC%  
  950X2%=0:Y2%=PROP1*512 
  960X3%=0:Y3%=PROP2*512 
  970AA%=640-LC%:BB%=512-LC%
  980ENDPROC
  990 
 1000DEFPROCdemo  
 1010VDU29,636;511; 
 1020MOVE628,1016 
 1030GCOL0,3
 1040FORI%=0TO255STEP4   
 1050X%=((I%?loX+I%?hiX*256)-LC%)/LC%*508
 1060Y%=((I%?loY+I%?hiY*256)-LC%)/LC%*508
 1070PLOT69,X%,Y% 
 1080NEXT
 1090VDU23,1,0;0;0;0;
 1100X%=?&8C
 1110VDU29,640;1012-SC%;
 1120CALL begin
 1130VDU19,2,0;0;  
 1140O=GET  
 1150ENDPROC 
 1160DEFPROCmc 
 1170COLOUR0
 1180FOR PASS=0TO2STEP2 
 1190P%=&0A00  
 1200[
 1210OPT PASS
 1220.mult
 1230LDX &8C  
 1240BNE begin
 1250RTS
 1260.begin     
 1270LDA hiX,X:STA &85:STA &7B
 1280LDA loX,X:STA &86:STA &76
 1290LDA #128:STA &87 
 1300LDA #0:STA &80
 1310LDA #248:STA multilo 
 1320LDA #1  :STA multihi    
 1330JSR &0900
 1340LDA res:STA &72
 1350LDA res+1:STA &73
 1360LDX &8C 
 1370LDA hiY,X:STA &85:STA &7B
 1380LDA loY,X:STA &86:STA &76
 1390LDA #0:STA &87:STA &80
 1400JSR &0900
 1410LDA res:STA &74
 1420LDA res+1:STA &75
 1430LDX &8E  
 1440LDA hiX,X:STA &85 
 1450LDA loX,X:STA &86 
 1460LDA cdiflo:STA multilo  
 1470LDA cdifhi:STA multihi
 1480LDA &0CF0:STA &76  
 1490LDA &0CF1:STA &7B  
 1500LDA #0:STA &87:STA &80
 1510JSR &0900  
 1520SEC
 1530LDA &72
 1540SBC res  
 1550STA &7C
 1560LDA &73
 1570SBC res+1  
 1580STA &7D
 1590LDX &8E 
 1600LDA hiY,X:STA &85 
 1610LDA loY,X:STA &86 
 1620LDA cdiflo:STA multilo   
 1630LDA cdifhi:STA multihi  
 1640LDA #0:STA &76:STA &7B 
 1650JSR &0900  
 1660CLC
 1670LDA &74
 1680ADC res  
 1690STA &7E
 1700LDA &75
 1710ADC res+1 
 1720STA &7F
 1730.start
 1740JSR dot
 1750JSR dot3
 1760JSR tracer  
 1770JSR dot11    
 1780JSR dot33  
 1790JSR &995  
 1800JMP &0A00  
 1810RTS
 1820.dot  
 1830LDA #&12:JSR &FFEE
 1840LDA #0:JSR &FFEE
 1850LDA &70:JSR &FFEE
 1860SEC  
 1870LDA #0
 1880SBC &8C 
 1890STA &8A
 1900LDA #29:JSR &FFEE
 1910LDA &72:JSR &FFEE
 1920LDA &73:JSR &FFEE
 1930LDA &74:JSR &FFEE
 1940LDA &75:JSR &FFEE
 1950LDX &8A
 1960JMP dot2 
 1970.dot11 
 1980LDA &70
 1990STA &09DF  
 2000LDX #&DF 
 2010LDY #&09
 2020LDA #&C:JSR &FFF1
 2030LDA &71
 2040STA &09E5 
 2050LDX #&E5
 2060LDY #&09
 2070LDA #&C:JSR &FFF1
 2080LDA #&12:JSR &FFEE
 2090LDA #0:JSR &FFEE
 2100LDA #0:JSR &FFEE
 2110SEC  
 2120LDA #0
 2130SBC &8D
 2140STA &8A
 2150LDA #29:JSR &FFEE
 2160LDA &77:JSR &FFEE
 2170LDA &78:JSR &FFEE
 2180LDA &79:JSR &FFEE
 2190LDA &7A:JSR &FFEE
 2200LDX &8A
 2210.dot2
 2220TXA:PHA
 2230LDA loX,X:STA &09D0 
 2240LDA hiX,X:STA &09D1  
 2250LDA loY,X:STA &09D2 
 2260LDA hiY,X:STA &09D3 
 2270LDX #&D0
 2280LDY #&09
 2290LDA #9:JSR &FFF1
 2300LDA &09D4  
 2310CMP &70
 2320BEQ miss5  
 2330CMP #3 
 2340BEQ miss5 
 2350LDA #25:JSR &FFEE
 2360LDA #69:JSR &FFEE
 2370PLA:TAX  
 2380LDA loX,X:JSR &FFEE
 2390LDA hiX,X:JSR &FFEE
 2400LDA loY,X:JSR &FFEE
 2410LDA hiY,X:JSR &FFEE
 2420JMP miss6  
 2430.miss5   
 2440PLA:TAX
 2450.miss6
 2460CLC 
 2470TXA 
 2480ADC &8B
 2490TAX
 2500CMP &8A
 2510BNE dot2 
 2520RTS
 2530.dot3 
 2540LDA &8E
 2550SEC
 2560LDY &09D5
 2570.back1 
 2580SBC &8C  
 2590DEY
 2600BNE back1  
 2610STA &8A
 2620LDA #29:JSR &FFEE
 2630LDA &7C:JSR &FFEE
 2640LDA &7D:JSR &FFEE
 2650LDA &7E:JSR &FFEE
 2660LDA &7F:JSR &FFEE
 2670LDX &8A
 2680JMP dot4 
 2690.dot33 
 2700LDA &8F  
 2710SEC   
 2720LDY &09D5
 2730.back2  
 2740SBC &8D
 2750DEY 
 2760BNE back2
 2770STA &8A
 2780LDA #29:JSR &FFEE
 2790LDA &81:JSR &FFEE
 2800LDA &82:JSR &FFEE
 2810LDA &83:JSR &FFEE
 2820LDA &84:JSR &FFEE
 2830LDX &8A
 2840.dot4
 2850TXA:PHA  
 2860LDA loXX,X:STA &09D0  
 2870LDA #0:STA &09D1 
 2880LDA loYY,X:STA &09D2 
 2890LDA #0:STA &09D3  
 2900LDX #&D0 
 2910LDY #&09
 2920LDA #9:JSR &FFF1
 2930PLA :TAX  
 2940LDA &09D4  
 2950CMP &70
 2960BEQ miss1  
 2970CMP #3  
 2980BEQ miss1  
 2990LDA #25:JSR &FFEE
 3000LDA #69:JSR &FFEE
 3010LDA loXX,X:JSR &FFEE
 3020LDA #0:JSR &FFEE 
 3030LDA loYY,X:JSR &FFEE
 3040LDA #0:JSR &FFEE  
 3050.miss1   
 3060CLC
 3070TXA 
 3080ADC &89
 3090TAX 
 3100CMP &8A
 3110BNE dot4   
 3120RTS
 3130.tracer 
 3140LDA #&12:JSR &FFEE
 3150LDA #0:JSR &FFEE
 3160LDA #3:JSR &FFEE
 3170LDA #29:JSR &FFEE
 3180LDA &81:JSR &FFEE
 3190LDA &82:JSR &FFEE
 3200LDA &83:JSR &FFEE
 3210LDA &84:JSR &FFEE
 3220CLC
 3230LDA &8A
 3240ADC &88 
 3250ADC &09D5
 3260TAX 
 3270LDA #25:JSR &FFEE
 3280LDA #4:JSR &FFEE
 3290LDA loXX,X:JSR &FFEE
 3300LDA #0:JSR &FFEE  
 3310LDA loYY,X:JSR &FFEE
 3320LDA #0:JSR &FFEE  
 3330LDA #29:JSR &FFEE
 3340LDA &7C:JSR &FFEE
 3350LDA &7D:JSR &FFEE
 3360LDA &7E:JSR &FFEE
 3370LDA &7F:JSR &FFEE
 3380LDX &8A
 3390LDA #25:JSR &FFEE
 3400LDA #5:JSR &FFEE
 3410LDA loXX,X:JSR &FFEE
 3420LDA #0:JSR &FFEE  
 3430LDA loYY,X:JSR &FFEE
 3440LDA #0:JSR &FFEE 
 3450RTS
 3460]
 3470NEXT
 3480ENDPROC
 3490DEFPROCinfo  
 3500PRINTTAB(11,2)"MULTI-SPIRO" 
 3510INPUTTAB(0,6)"Enter size of large wheel (130_400) "LC%  
 3520INPUTTAB(0,9)"Enter size of small wheel (20_127) "SC%  
 3530PRINTTAB(0,12)"Enter speed of small wheel"   
 3540PRINTTAB(0,14)"1_9 clockwise"  
 3550INPUTTAB(0,16)"11_20 anti-clockwise "SPEED% 
 3560IFSC%>127 SC%=127 
 3570IFLC%<128 LC%=128
 3580IFLC%>350 ?&8B=8ELSE?&8B=16 
 3590IFSC%>70?&89=16ELSE?&89=32 
 3600S%=SPEED%-11:?&88=S% 
 3610IFSPEED%<11 K%=1ELSEK%=0  
 3620?&09D5=S%*(LC%/SC%-2)+LC%/SC%-K%+.5     
 3630?&09D5=-S%*(LC%/SC%-2)*(-1)+LC%/SC%-K%+.5   
 3640ENDPROC


^� res 4,remain 4,sdor512 2,sdtimes2 2,loX 255,hiX 255,loY 255,hiY 255,loXX 255,loYY 255   
�
�7  
(�info     
2�129
<	�init
FI�"Please be patient while values are      calculated and assigned."  
P	�mc  
Z
�sincos  
d�  
n	�demo
x� �
�
��sincos 
�Ang=0:Deg=�/128
��I%=0�64  
�X%=(� (Ang))*LC%+LC%+.5
�XX%=(X%-LC%)/LC%*SC%+SC%
�I%?loX=X%�256 
�I%?hiX=X%�256  
�I%?loXX=XX% � 256  
�Ang=Ang+Deg
��   
��I%=0�64   
�J%=64-I%   
�I%?loY=J%?loX 
I%?hiY=J%?hiX 
I%?loYY=J%?loXX
�
"�I%=64�128  
,J%=128-I%  
6I%?loX=J%?loX  
@I%?hiX=J%?hiX  
JI%?loXX=J%?loXX
T!NEWY%=2*LC%-J%?loY-J%?hiY*256
^NEWYY%=2*SC%-J%?loYY
hI%?loY=NEWY%�256 
rI%?hiY=NEWY%�256 
|I%?loYY=NEWYY%�256  
��  
��I%=128�191  
�
J%=I%-128
�"NEWX%=2*LC%-J%?loX-J%?hiX*256 
�I%?loX=NEWX%�256 
�I%?hiX=NEWX%�256  
�NEWXX%=2*SC%-J%?loXX
�I%?loXX=NEWXX%�256  
�#NEWY%=2*LC%-J%?loY-J%?hiY*256  
�NEWYY%=2*SC%-J%?loYY
�I%?loYY=NEWYY%�256
�I%?loY=NEWY%�256  
�I%?hiY=NEWY%�256  
�
�I%=192�255  

J%=256-I%
&!NEWX%=2*LC%-J%?loX-J%?hiX*256
0I%?loX=NEWX%�256 
:I%?hiX=NEWX%�256   
DNEWXX%=2*SC%-J%?loXX
NI%?loXX=NEWXX%�256   
XNEWY%=J%?loY+J%?hiY*256  
bI%?loY=NEWY%�256 
lI%?hiY=NEWY%�256 
vNEWYY%=J%?loYY
�I%?loYY=NEWYY%�256 
��
��4
��
� 
�
��init
��19,3,6;0;
�res=&09F0:remain=&09F5
� lcirclo=&09FA:lcirchi=&09FB 
�cdiflo=&09FC:cdifhi=&09FD
�multilo=&09FE:multihi=&09FF
�?&09D0=248:?&09D1=1 
�
F%=0:J%=1
!?&81=128:?&82=2:?&83=0:?&84=5
#?&8C=F%:?&8D=G%:?&8E=J%:?&8F=10
?&70=1:?&71=2
 X2%=640:Y2%=512 
*?&09FC=0:?&09FD=0 
4?lcirclo=LC%�256  
>?lcirchi=LC%�256  
HSD%=LC%-SC%  
R?&0CF0=(SD%*2)�256  
\?&0CF1=(SD%*2)�256 
f?cdiflo=SD%�256  
p?cdifhi=SD%�256 
zSD1%=512-LC%  
�PROP=SD%/LC%
�PROP1=SD1%/LC%
�PROP2=SC%/LC%
�
C%=1:D%=2
�R%=0:M%=0:N%=SC%  
�X2%=0:Y2%=PROP1*512 
�X3%=0:Y3%=PROP2*512 
�AA%=640-LC%:BB%=512-LC%
��
� 
���demo  
��29,636;511; 
��628,1016 
�0,3
�I%=0�255�4   
(X%=((I%?loX+I%?hiX*256)-LC%)/LC%*508
$(Y%=((I%?loY+I%?hiY*256)-LC%)/LC%*508
.�69,X%,Y% 
8�
B�23,1,0;0;0;0;
LX%=?&8C
V�29,640;1012-SC%;
`� begin
j�19,2,0;0;  
t	O=�  
~� 
�	��mc 
��0
�� PASS=0�2�2 
�P%=&0A00  
�[
�OPT PASS
�	.mult
�
LDX &8C  
�
BNE begin
�RTS
�.begin     
�LDA hiX,X:STA &85:STA &7B
LDA loX,X:STA &86:STA &76

LDA #128:STA &87 
LDA #0:STA &80
LDA #248:STA multilo 
(LDA #1  :STA multihi    
2
JSR &0900
<LDA res:STA &72
FLDA res+1:STA &73
PLDX &8C 
ZLDA hiY,X:STA &85:STA &7B
dLDA loY,X:STA &86:STA &76
nLDA #0:STA &87:STA &80
x
JSR &0900
�LDA res:STA &74
�LDA res+1:STA &75
�
LDX &8E  
�LDA hiX,X:STA &85 
�LDA loX,X:STA &86 
�LDA cdiflo:STA multilo  
�LDA cdifhi:STA multihi
�LDA &0CF0:STA &76  
�LDA &0CF1:STA &7B  
�LDA #0:STA &87:STA &80
�JSR &0900  
�SEC
�LDA &72

SBC res  
STA &7C
LDA &73
"SBC res+1  
,STA &7D
6LDX &8E 
@LDA hiY,X:STA &85 
JLDA loY,X:STA &86 
TLDA cdiflo:STA multilo   
^LDA cdifhi:STA multihi  
hLDA #0:STA &76:STA &7B 
rJSR &0900  
|CLC
�LDA &74
�
ADC res  
�STA &7E
�LDA &75
�ADC res+1 
�STA &7F
�
.start
�JSR dot
�JSR dot3
�JSR tracer  
�JSR dot11    
�JSR dot33  
�JSR &995  
JMP &0A00  
RTS

.dot  
&LDA #&12:JSR &FFEE
0LDA #0:JSR &FFEE
:LDA &70:JSR &FFEE
D	SEC  
N
LDA #0
XSBC &8C 
bSTA &8A
lLDA #29:JSR &FFEE
vLDA &72:JSR &FFEE
�LDA &73:JSR &FFEE
�LDA &74:JSR &FFEE
�LDA &75:JSR &FFEE
�LDX &8A
�
JMP dot2 
�.dot11 
�LDA &70
�STA &09DF  
�
LDX #&DF 
�LDY #&09
�LDA #&C:JSR &FFF1
�LDA &71
�STA &09E5 
LDX #&E5
LDY #&09
LDA #&C:JSR &FFF1
 LDA #&12:JSR &FFEE
*LDA #0:JSR &FFEE
4LDA #0:JSR &FFEE
>	SEC  
H
LDA #0
RSBC &8D
\STA &8A
fLDA #29:JSR &FFEE
pLDA &77:JSR &FFEE
zLDA &78:JSR &FFEE
�LDA &79:JSR &FFEE
�LDA &7A:JSR &FFEE
�LDX &8A
�	.dot2
�TXA:PHA
�LDA loX,X:STA &09D0 
�LDA hiX,X:STA &09D1  
�LDA loY,X:STA &09D2 
�LDA hiY,X:STA &09D3 
�LDX #&D0
�LDY #&09
�LDA #9:JSR &FFF1
�LDA &09D4  
	CMP &70
	BEQ miss5  
	CMP #3 
	$BEQ miss5 
	.LDA #25:JSR &FFEE
	8LDA #69:JSR &FFEE
	B
PLA:TAX  
	LLDA loX,X:JSR &FFEE
	VLDA hiX,X:JSR &FFEE
	`LDA loY,X:JSR &FFEE
	jLDA hiY,X:JSR &FFEE
	tJMP miss6  
	~
.miss5   
	�PLA:TAX
	�
.miss6
	�CLC 
	�TXA 
	�ADC &8B
	�TAX
	�CMP &8A
	�
BNE dot2 
	�RTS
	�
.dot3 
	�LDA &8E
	�SEC

LDY &09D5

.back1 

SBC &8C  
DEY
(BNE back1  
2STA &8A
<LDA #29:JSR &FFEE
FLDA &7C:JSR &FFEE
PLDA &7D:JSR &FFEE
ZLDA &7E:JSR &FFEE
dLDA &7F:JSR &FFEE
nLDX &8A
x
JMP dot4 
�.dot33 
�
LDA &8F  
�
SEC   
�
LDY &09D5
�.back2  
�SBC &8D
�DEY 
�
BNE back2
�STA &8A
�LDA #29:JSR &FFEE
�LDA &81:JSR &FFEE
�LDA &82:JSR &FFEE
�LDA &83:JSR &FFEE
LDA &84:JSR &FFEE
LDX &8A
	.dot4
"
TXA:PHA  
,LDA loXX,X:STA &09D0  
6LDA #0:STA &09D1 
@LDA loYY,X:STA &09D2 
JLDA #0:STA &09D3  
T
LDX #&D0 
^LDY #&09
hLDA #9:JSR &FFF1
rPLA :TAX  
|LDA &09D4  
�CMP &70
�BEQ miss1  
�CMP #3  
�BEQ miss1  
�LDA #25:JSR &FFEE
�LDA #69:JSR &FFEE
�LDA loXX,X:JSR &FFEE
�LDA #0:JSR &FFEE 
�LDA loYY,X:JSR &FFEE
�LDA #0:JSR &FFEE  
�
.miss1   
�CLC
�TXA 
ADC &89
TAX 
CMP &8A
&BNE dot4   
0RTS
:.tracer 
DLDA #&12:JSR &FFEE
NLDA #0:JSR &FFEE
XLDA #3:JSR &FFEE
bLDA #29:JSR &FFEE
lLDA &81:JSR &FFEE
vLDA &82:JSR &FFEE
�LDA &83:JSR &FFEE
�LDA &84:JSR &FFEE
�CLC
�LDA &8A
�ADC &88 
�
ADC &09D5
�TAX 
�LDA #25:JSR &FFEE
�LDA #4:JSR &FFEE
�LDA loXX,X:JSR &FFEE
�LDA #0:JSR &FFEE  
�LDA loYY,X:JSR &FFEE
�LDA #0:JSR &FFEE  

LDA #29:JSR &FFEE

LDA &7C:JSR &FFEE

LDA &7D:JSR &FFEE

 LDA &7E:JSR &FFEE

*LDA &7F:JSR &FFEE

4LDX &8A

>LDA #25:JSR &FFEE

HLDA #5:JSR &FFEE

RLDA loXX,X:JSR &FFEE

\LDA #0:JSR &FFEE  

fLDA loYY,X:JSR &FFEE

pLDA #0:JSR &FFEE 

zRTS

�]

��

��

���info  

��11,2)"MULTI-SPIRO" 

�5�0,6)"Enter size of large wheel (130_400) "LC%  

�4�0,9)"Enter size of small wheel (20_127) "SC%  

�*�0,12)"Enter speed of small wheel"   

��0,14)"1_9 clockwise"  

�)�0,16)"11_20 anti-clockwise "SPEED% 

��SC%>127 SC%=127 

��LC%<128 LC%=128

��LC%>350 ?&8B=8�?&8B=16 
�SC%>70?&89=16�?&89=32 
S%=SPEED%-11:?&88=S% 
�SPEED%<11 K%=1�K%=0  
$,?&09D5=S%*(LC%/SC%-2)+LC%/SC%-K%+.5     
.0?&09D5=-S%*(LC%/SC%-2)*(-1)+LC%/SC%-K%+.5   
8�  
�

00000000  0d 00 0a 5e de 20 72 65  73 20 34 2c 72 65 6d 61  |...^. res 4,rema|
00000010  69 6e 20 34 2c 73 64 6f  72 35 31 32 20 32 2c 73  |in 4,sdor512 2,s|
00000020  64 74 69 6d 65 73 32 20  32 2c 6c 6f 58 20 32 35  |dtimes2 2,loX 25|
00000030  35 2c 68 69 58 20 32 35  35 2c 6c 6f 59 20 32 35  |5,hiX 255,loY 25|
00000040  35 2c 68 69 59 20 32 35  35 2c 6c 6f 58 58 20 32  |5,hiY 255,loXX 2|
00000050  35 35 2c 6c 6f 59 59 20  32 35 35 20 20 20 0d 00  |55,loYY 255   ..|
00000060  14 05 f5 0d 00 1e 08 eb  37 20 20 0d 00 28 0e f2  |........7  ..(..|
00000070  69 6e 66 6f 20 20 20 20  20 0d 00 32 08 eb 31 32  |info     ..2..12|
00000080  39 0d 00 3c 09 f2 69 6e  69 74 0d 00 46 49 f1 22  |9..<..init..FI."|
00000090  50 6c 65 61 73 65 20 62  65 20 70 61 74 69 65 6e  |Please be patien|
000000a0  74 20 77 68 69 6c 65 20  76 61 6c 75 65 73 20 61  |t while values a|
000000b0  72 65 20 20 20 20 20 20  63 61 6c 63 75 6c 61 74  |re      calculat|
000000c0  65 64 20 61 6e 64 20 61  73 73 69 67 6e 65 64 2e  |ed and assigned.|
000000d0  22 20 20 0d 00 50 09 f2  6d 63 20 20 0d 00 5a 0d  |"  ..P..mc  ..Z.|
000000e0  f2 73 69 6e 63 6f 73 20  20 0d 00 64 07 db 20 20  |.sincos  ..d..  |
000000f0  0d 00 6e 09 f2 64 65 6d  6f 0d 00 78 07 fd 20 a3  |..n..demo..x.. .|
00000100  0d 00 82 0d dd f2 73 69  6e 63 6f 73 20 0d 00 8c  |......sincos ...|
00000110  13 41 6e 67 3d 30 3a 44  65 67 3d af 2f 31 32 38  |.Ang=0:Deg=./128|
00000120  0d 00 96 0e e3 49 25 3d  30 b8 36 34 20 20 0d 00  |.....I%=0.64  ..|
00000130  a0 1b 58 25 3d 28 b5 20  28 41 6e 67 29 29 2a 4c  |..X%=(. (Ang))*L|
00000140  43 25 2b 4c 43 25 2b 2e  35 0d 00 aa 1c 58 58 25  |C%+LC%+.5....XX%|
00000150  3d 28 58 25 2d 4c 43 25  29 2f 4c 43 25 2a 53 43  |=(X%-LC%)/LC%*SC|
00000160  25 2b 53 43 25 0d 00 b4  12 49 25 3f 6c 6f 58 3d  |%+SC%....I%?loX=|
00000170  58 25 83 32 35 36 20 0d  00 be 13 49 25 3f 68 69  |X%.256 ....I%?hi|
00000180  58 3d 58 25 81 32 35 36  20 20 0d 00 c8 17 49 25  |X=X%.256  ....I%|
00000190  3f 6c 6f 58 58 3d 58 58  25 20 83 20 32 35 36 20  |?loXX=XX% . 256 |
000001a0  20 0d 00 d2 0f 41 6e 67  3d 41 6e 67 2b 44 65 67  | ....Ang=Ang+Deg|
000001b0  0d 00 dc 08 ed 20 20 20  0d 00 e6 0f e3 49 25 3d  |.....   .....I%=|
000001c0  30 b8 36 34 20 20 20 0d  00 f0 0f 4a 25 3d 36 34  |0.64   ....J%=64|
000001d0  2d 49 25 20 20 20 0d 00  fa 12 49 25 3f 6c 6f 59  |-I%   ....I%?loY|
000001e0  3d 4a 25 3f 6c 6f 58 20  0d 01 04 12 49 25 3f 68  |=J%?loX ....I%?h|
000001f0  69 59 3d 4a 25 3f 68 69  58 20 0d 01 0e 13 49 25  |iY=J%?hiX ....I%|
00000200  3f 6c 6f 59 59 3d 4a 25  3f 6c 6f 58 58 0d 01 18  |?loYY=J%?loXX...|
00000210  05 ed 0d 01 22 10 e3 49  25 3d 36 34 b8 31 32 38  |...."..I%=64.128|
00000220  20 20 0d 01 2c 0f 4a 25  3d 31 32 38 2d 49 25 20  |  ..,.J%=128-I% |
00000230  20 0d 01 36 13 49 25 3f  6c 6f 58 3d 4a 25 3f 6c  | ..6.I%?loX=J%?l|
00000240  6f 58 20 20 0d 01 40 13  49 25 3f 68 69 58 3d 4a  |oX  ..@.I%?hiX=J|
00000250  25 3f 68 69 58 20 20 0d  01 4a 13 49 25 3f 6c 6f  |%?hiX  ..J.I%?lo|
00000260  58 58 3d 4a 25 3f 6c 6f  58 58 0d 01 54 21 4e 45  |XX=J%?loXX..T!NE|
00000270  57 59 25 3d 32 2a 4c 43  25 2d 4a 25 3f 6c 6f 59  |WY%=2*LC%-J%?loY|
00000280  2d 4a 25 3f 68 69 59 2a  32 35 36 0d 01 5e 18 4e  |-J%?hiY*256..^.N|
00000290  45 57 59 59 25 3d 32 2a  53 43 25 2d 4a 25 3f 6c  |EWYY%=2*SC%-J%?l|
000002a0  6f 59 59 0d 01 68 15 49  25 3f 6c 6f 59 3d 4e 45  |oYY..h.I%?loY=NE|
000002b0  57 59 25 83 32 35 36 20  0d 01 72 15 49 25 3f 68  |WY%.256 ..r.I%?h|
000002c0  69 59 3d 4e 45 57 59 25  81 32 35 36 20 0d 01 7c  |iY=NEWY%.256 ..||
000002d0  18 49 25 3f 6c 6f 59 59  3d 4e 45 57 59 59 25 83  |.I%?loYY=NEWYY%.|
000002e0  32 35 36 20 20 0d 01 86  07 ed 20 20 0d 01 90 11  |256  .....  ....|
000002f0  e3 49 25 3d 31 32 38 b8  31 39 31 20 20 0d 01 9a  |.I%=128.191  ...|
00000300  0d 4a 25 3d 49 25 2d 31  32 38 0d 01 a4 22 4e 45  |.J%=I%-128..."NE|
00000310  57 58 25 3d 32 2a 4c 43  25 2d 4a 25 3f 6c 6f 58  |WX%=2*LC%-J%?loX|
00000320  2d 4a 25 3f 68 69 58 2a  32 35 36 20 0d 01 ae 15  |-J%?hiX*256 ....|
00000330  49 25 3f 6c 6f 58 3d 4e  45 57 58 25 83 32 35 36  |I%?loX=NEWX%.256|
00000340  20 0d 01 b8 16 49 25 3f  68 69 58 3d 4e 45 57 58  | ....I%?hiX=NEWX|
00000350  25 81 32 35 36 20 20 0d  01 c2 18 4e 45 57 58 58  |%.256  ....NEWXX|
00000360  25 3d 32 2a 53 43 25 2d  4a 25 3f 6c 6f 58 58 0d  |%=2*SC%-J%?loXX.|
00000370  01 cc 18 49 25 3f 6c 6f  58 58 3d 4e 45 57 58 58  |...I%?loXX=NEWXX|
00000380  25 83 32 35 36 20 20 0d  01 d6 23 4e 45 57 59 25  |%.256  ...#NEWY%|
00000390  3d 32 2a 4c 43 25 2d 4a  25 3f 6c 6f 59 2d 4a 25  |=2*LC%-J%?loY-J%|
000003a0  3f 68 69 59 2a 32 35 36  20 20 0d 01 e0 18 4e 45  |?hiY*256  ....NE|
000003b0  57 59 59 25 3d 32 2a 53  43 25 2d 4a 25 3f 6c 6f  |WYY%=2*SC%-J%?lo|
000003c0  59 59 0d 01 ea 16 49 25  3f 6c 6f 59 59 3d 4e 45  |YY....I%?loYY=NE|
000003d0  57 59 59 25 83 32 35 36  0d 01 f4 16 49 25 3f 6c  |WYY%.256....I%?l|
000003e0  6f 59 3d 4e 45 57 59 25  83 32 35 36 20 20 0d 01  |oY=NEWY%.256  ..|
000003f0  fe 16 49 25 3f 68 69 59  3d 4e 45 57 59 25 81 32  |..I%?hiY=NEWY%.2|
00000400  35 36 20 20 0d 02 08 05  ed 0d 02 12 11 e3 49 25  |56  ..........I%|
00000410  3d 31 39 32 b8 32 35 35  20 20 0d 02 1c 0d 4a 25  |=192.255  ....J%|
00000420  3d 32 35 36 2d 49 25 0d  02 26 21 4e 45 57 58 25  |=256-I%..&!NEWX%|
00000430  3d 32 2a 4c 43 25 2d 4a  25 3f 6c 6f 58 2d 4a 25  |=2*LC%-J%?loX-J%|
00000440  3f 68 69 58 2a 32 35 36  0d 02 30 15 49 25 3f 6c  |?hiX*256..0.I%?l|
00000450  6f 58 3d 4e 45 57 58 25  83 32 35 36 20 0d 02 3a  |oX=NEWX%.256 ..:|
00000460  17 49 25 3f 68 69 58 3d  4e 45 57 58 25 81 32 35  |.I%?hiX=NEWX%.25|
00000470  36 20 20 20 0d 02 44 18  4e 45 57 58 58 25 3d 32  |6   ..D.NEWXX%=2|
00000480  2a 53 43 25 2d 4a 25 3f  6c 6f 58 58 0d 02 4e 19  |*SC%-J%?loXX..N.|
00000490  49 25 3f 6c 6f 58 58 3d  4e 45 57 58 58 25 83 32  |I%?loXX=NEWXX%.2|
000004a0  35 36 20 20 20 0d 02 58  1d 4e 45 57 59 25 3d 4a  |56   ..X.NEWY%=J|
000004b0  25 3f 6c 6f 59 2b 4a 25  3f 68 69 59 2a 32 35 36  |%?loY+J%?hiY*256|
000004c0  20 20 0d 02 62 15 49 25  3f 6c 6f 59 3d 4e 45 57  |  ..b.I%?loY=NEW|
000004d0  59 25 83 32 35 36 20 0d  02 6c 15 49 25 3f 68 69  |Y%.256 ..l.I%?hi|
000004e0  59 3d 4e 45 57 59 25 81  32 35 36 20 0d 02 76 12  |Y=NEWY%.256 ..v.|
000004f0  4e 45 57 59 59 25 3d 4a  25 3f 6c 6f 59 59 0d 02  |NEWYY%=J%?loYY..|
00000500  80 17 49 25 3f 6c 6f 59  59 3d 4e 45 57 59 59 25  |..I%?loYY=NEWYY%|
00000510  83 32 35 36 20 0d 02 8a  05 ed 0d 02 94 06 ef 34  |.256 ..........4|
00000520  0d 02 9e 05 e1 0d 02 a8  05 20 0d 02 b2 0a dd f2  |......... ......|
00000530  69 6e 69 74 0d 02 bc 0e  ef 31 39 2c 33 2c 36 3b  |init.....19,3,6;|
00000540  30 3b 0d 02 c6 1a 72 65  73 3d 26 30 39 46 30 3a  |0;....res=&09F0:|
00000550  72 65 6d 61 69 6e 3d 26  30 39 46 35 0d 02 d0 20  |remain=&09F5... |
00000560  6c 63 69 72 63 6c 6f 3d  26 30 39 46 41 3a 6c 63  |lcirclo=&09FA:lc|
00000570  69 72 63 68 69 3d 26 30  39 46 42 20 0d 02 da 1d  |irchi=&09FB ....|
00000580  63 64 69 66 6c 6f 3d 26  30 39 46 43 3a 63 64 69  |cdiflo=&09FC:cdi|
00000590  66 68 69 3d 26 30 39 46  44 0d 02 e4 1f 6d 75 6c  |fhi=&09FD....mul|
000005a0  74 69 6c 6f 3d 26 30 39  46 45 3a 6d 75 6c 74 69  |tilo=&09FE:multi|
000005b0  68 69 3d 26 30 39 46 46  0d 02 ee 18 3f 26 30 39  |hi=&09FF....?&09|
000005c0  44 30 3d 32 34 38 3a 3f  26 30 39 44 31 3d 31 20  |D0=248:?&09D1=1 |
000005d0  0d 02 f8 0d 46 25 3d 30  3a 4a 25 3d 31 0d 03 02  |....F%=0:J%=1...|
000005e0  21 3f 26 38 31 3d 31 32  38 3a 3f 26 38 32 3d 32  |!?&81=128:?&82=2|
000005f0  3a 3f 26 38 33 3d 30 3a  3f 26 38 34 3d 35 0d 03  |:?&83=0:?&84=5..|
00000600  0c 23 3f 26 38 43 3d 46  25 3a 3f 26 38 44 3d 47  |.#?&8C=F%:?&8D=G|
00000610  25 3a 3f 26 38 45 3d 4a  25 3a 3f 26 38 46 3d 31  |%:?&8E=J%:?&8F=1|
00000620  30 0d 03 16 11 3f 26 37  30 3d 31 3a 3f 26 37 31  |0....?&70=1:?&71|
00000630  3d 32 0d 03 20 14 58 32  25 3d 36 34 30 3a 59 32  |=2.. .X2%=640:Y2|
00000640  25 3d 35 31 32 20 0d 03  2a 16 3f 26 30 39 46 43  |%=512 ..*.?&09FC|
00000650  3d 30 3a 3f 26 30 39 46  44 3d 30 20 0d 03 34 16  |=0:?&09FD=0 ..4.|
00000660  3f 6c 63 69 72 63 6c 6f  3d 4c 43 25 83 32 35 36  |?lcirclo=LC%.256|
00000670  20 20 0d 03 3e 16 3f 6c  63 69 72 63 68 69 3d 4c  |  ..>.?lcirchi=L|
00000680  43 25 81 32 35 36 20 20  0d 03 48 11 53 44 25 3d  |C%.256  ..H.SD%=|
00000690  4c 43 25 2d 53 43 25 20  20 0d 03 52 18 3f 26 30  |LC%-SC%  ..R.?&0|
000006a0  43 46 30 3d 28 53 44 25  2a 32 29 83 32 35 36 20  |CF0=(SD%*2).256 |
000006b0  20 0d 03 5c 17 3f 26 30  43 46 31 3d 28 53 44 25  | ..\.?&0CF1=(SD%|
000006c0  2a 32 29 81 32 35 36 20  0d 03 66 15 3f 63 64 69  |*2).256 ..f.?cdi|
000006d0  66 6c 6f 3d 53 44 25 83  32 35 36 20 20 0d 03 70  |flo=SD%.256  ..p|
000006e0  14 3f 63 64 69 66 68 69  3d 53 44 25 81 32 35 36  |.?cdifhi=SD%.256|
000006f0  20 0d 03 7a 12 53 44 31  25 3d 35 31 32 2d 4c 43  | ..z.SD1%=512-LC|
00000700  25 20 20 0d 03 84 10 50  52 4f 50 3d 53 44 25 2f  |%  ....PROP=SD%/|
00000710  4c 43 25 0d 03 8e 12 50  52 4f 50 31 3d 53 44 31  |LC%....PROP1=SD1|
00000720  25 2f 4c 43 25 0d 03 98  11 50 52 4f 50 32 3d 53  |%/LC%....PROP2=S|
00000730  43 25 2f 4c 43 25 0d 03  a2 0d 43 25 3d 31 3a 44  |C%/LC%....C%=1:D|
00000740  25 3d 32 0d 03 ac 16 52  25 3d 30 3a 4d 25 3d 30  |%=2....R%=0:M%=0|
00000750  3a 4e 25 3d 53 43 25 20  20 0d 03 b6 18 58 32 25  |:N%=SC%  ....X2%|
00000760  3d 30 3a 59 32 25 3d 50  52 4f 50 31 2a 35 31 32  |=0:Y2%=PROP1*512|
00000770  20 0d 03 c0 18 58 33 25  3d 30 3a 59 33 25 3d 50  | ....X3%=0:Y3%=P|
00000780  52 4f 50 32 2a 35 31 32  20 0d 03 ca 1b 41 41 25  |ROP2*512 ....AA%|
00000790  3d 36 34 30 2d 4c 43 25  3a 42 42 25 3d 35 31 32  |=640-LC%:BB%=512|
000007a0  2d 4c 43 25 0d 03 d4 05  e1 0d 03 de 05 20 0d 03  |-LC%......... ..|
000007b0  e8 0c dd f2 64 65 6d 6f  20 20 0d 03 f2 11 ef 32  |....demo  .....2|
000007c0  39 2c 36 33 36 3b 35 31  31 3b 20 0d 03 fc 0e ec  |9,636;511; .....|
000007d0  36 32 38 2c 31 30 31 36  20 0d 04 06 08 e6 30 2c  |628,1016 .....0,|
000007e0  33 0d 04 10 12 e3 49 25  3d 30 b8 32 35 35 88 34  |3.....I%=0.255.4|
000007f0  20 20 20 0d 04 1a 28 58  25 3d 28 28 49 25 3f 6c  |   ...(X%=((I%?l|
00000800  6f 58 2b 49 25 3f 68 69  58 2a 32 35 36 29 2d 4c  |oX+I%?hiX*256)-L|
00000810  43 25 29 2f 4c 43 25 2a  35 30 38 0d 04 24 28 59  |C%)/LC%*508..$(Y|
00000820  25 3d 28 28 49 25 3f 6c  6f 59 2b 49 25 3f 68 69  |%=((I%?loY+I%?hi|
00000830  59 2a 32 35 36 29 2d 4c  43 25 29 2f 4c 43 25 2a  |Y*256)-LC%)/LC%*|
00000840  35 30 38 0d 04 2e 0e f0  36 39 2c 58 25 2c 59 25  |508.....69,X%,Y%|
00000850  20 0d 04 38 05 ed 0d 04  42 12 ef 32 33 2c 31 2c  | ..8....B..23,1,|
00000860  30 3b 30 3b 30 3b 30 3b  0d 04 4c 0b 58 25 3d 3f  |0;0;0;0;..L.X%=?|
00000870  26 38 43 0d 04 56 15 ef  32 39 2c 36 34 30 3b 31  |&8C..V..29,640;1|
00000880  30 31 32 2d 53 43 25 3b  0d 04 60 0b d6 20 62 65  |012-SC%;..`.. be|
00000890  67 69 6e 0d 04 6a 10 ef  31 39 2c 32 2c 30 3b 30  |gin..j..19,2,0;0|
000008a0  3b 20 20 0d 04 74 09 4f  3d a5 20 20 0d 04 7e 06  |;  ..t.O=.  ..~.|
000008b0  e1 20 0d 04 88 09 dd f2  6d 63 20 0d 04 92 06 fb  |. ......mc .....|
000008c0  30 0d 04 9c 11 e3 20 50  41 53 53 3d 30 b8 32 88  |0..... PASS=0.2.|
000008d0  32 20 0d 04 a6 0e 50 25  3d 26 30 41 30 30 20 20  |2 ....P%=&0A00  |
000008e0  0d 04 b0 05 5b 0d 04 ba  0c 4f 50 54 20 50 41 53  |....[....OPT PAS|
000008f0  53 0d 04 c4 09 2e 6d 75  6c 74 0d 04 ce 0d 4c 44  |S.....mult....LD|
00000900  58 20 26 38 43 20 20 0d  04 d8 0d 42 4e 45 20 62  |X &8C  ....BNE b|
00000910  65 67 69 6e 0d 04 e2 07  52 54 53 0d 04 ec 0f 2e  |egin....RTS.....|
00000920  62 65 67 69 6e 20 20 20  20 20 0d 04 f6 1d 4c 44  |begin     ....LD|
00000930  41 20 68 69 58 2c 58 3a  53 54 41 20 26 38 35 3a  |A hiX,X:STA &85:|
00000940  53 54 41 20 26 37 42 0d  05 00 1d 4c 44 41 20 6c  |STA &7B....LDA l|
00000950  6f 58 2c 58 3a 53 54 41  20 26 38 36 3a 53 54 41  |oX,X:STA &86:STA|
00000960  20 26 37 36 0d 05 0a 15  4c 44 41 20 23 31 32 38  | &76....LDA #128|
00000970  3a 53 54 41 20 26 38 37  20 0d 05 14 12 4c 44 41  |:STA &87 ....LDA|
00000980  20 23 30 3a 53 54 41 20  26 38 30 0d 05 1e 19 4c  | #0:STA &80....L|
00000990  44 41 20 23 32 34 38 3a  53 54 41 20 6d 75 6c 74  |DA #248:STA mult|
000009a0  69 6c 6f 20 0d 05 28 1c  4c 44 41 20 23 31 20 20  |ilo ..(.LDA #1  |
000009b0  3a 53 54 41 20 6d 75 6c  74 69 68 69 20 20 20 20  |:STA multihi    |
000009c0  0d 05 32 0d 4a 53 52 20  26 30 39 30 30 0d 05 3c  |..2.JSR &0900..<|
000009d0  13 4c 44 41 20 72 65 73  3a 53 54 41 20 26 37 32  |.LDA res:STA &72|
000009e0  0d 05 46 15 4c 44 41 20  72 65 73 2b 31 3a 53 54  |..F.LDA res+1:ST|
000009f0  41 20 26 37 33 0d 05 50  0c 4c 44 58 20 26 38 43  |A &73..P.LDX &8C|
00000a00  20 0d 05 5a 1d 4c 44 41  20 68 69 59 2c 58 3a 53  | ..Z.LDA hiY,X:S|
00000a10  54 41 20 26 38 35 3a 53  54 41 20 26 37 42 0d 05  |TA &85:STA &7B..|
00000a20  64 1d 4c 44 41 20 6c 6f  59 2c 58 3a 53 54 41 20  |d.LDA loY,X:STA |
00000a30  26 38 36 3a 53 54 41 20  26 37 36 0d 05 6e 1a 4c  |&86:STA &76..n.L|
00000a40  44 41 20 23 30 3a 53 54  41 20 26 38 37 3a 53 54  |DA #0:STA &87:ST|
00000a50  41 20 26 38 30 0d 05 78  0d 4a 53 52 20 26 30 39  |A &80..x.JSR &09|
00000a60  30 30 0d 05 82 13 4c 44  41 20 72 65 73 3a 53 54  |00....LDA res:ST|
00000a70  41 20 26 37 34 0d 05 8c  15 4c 44 41 20 72 65 73  |A &74....LDA res|
00000a80  2b 31 3a 53 54 41 20 26  37 35 0d 05 96 0d 4c 44  |+1:STA &75....LD|
00000a90  58 20 26 38 45 20 20 0d  05 a0 16 4c 44 41 20 68  |X &8E  ....LDA h|
00000aa0  69 58 2c 58 3a 53 54 41  20 26 38 35 20 0d 05 aa  |iX,X:STA &85 ...|
00000ab0  16 4c 44 41 20 6c 6f 58  2c 58 3a 53 54 41 20 26  |.LDA loX,X:STA &|
00000ac0  38 36 20 0d 05 b4 1c 4c  44 41 20 63 64 69 66 6c  |86 ....LDA cdifl|
00000ad0  6f 3a 53 54 41 20 6d 75  6c 74 69 6c 6f 20 20 0d  |o:STA multilo  .|
00000ae0  05 be 1a 4c 44 41 20 63  64 69 66 68 69 3a 53 54  |...LDA cdifhi:ST|
00000af0  41 20 6d 75 6c 74 69 68  69 0d 05 c8 17 4c 44 41  |A multihi....LDA|
00000b00  20 26 30 43 46 30 3a 53  54 41 20 26 37 36 20 20  | &0CF0:STA &76  |
00000b10  0d 05 d2 17 4c 44 41 20  26 30 43 46 31 3a 53 54  |....LDA &0CF1:ST|
00000b20  41 20 26 37 42 20 20 0d  05 dc 1a 4c 44 41 20 23  |A &7B  ....LDA #|
00000b30  30 3a 53 54 41 20 26 38  37 3a 53 54 41 20 26 38  |0:STA &87:STA &8|
00000b40  30 0d 05 e6 0f 4a 53 52  20 26 30 39 30 30 20 20  |0....JSR &0900  |
00000b50  0d 05 f0 07 53 45 43 0d  05 fa 0b 4c 44 41 20 26  |....SEC....LDA &|
00000b60  37 32 0d 06 04 0d 53 42  43 20 72 65 73 20 20 0d  |72....SBC res  .|
00000b70  06 0e 0b 53 54 41 20 26  37 43 0d 06 18 0b 4c 44  |...STA &7C....LD|
00000b80  41 20 26 37 33 0d 06 22  0f 53 42 43 20 72 65 73  |A &73..".SBC res|
00000b90  2b 31 20 20 0d 06 2c 0b  53 54 41 20 26 37 44 0d  |+1  ..,.STA &7D.|
00000ba0  06 36 0c 4c 44 58 20 26  38 45 20 0d 06 40 16 4c  |.6.LDX &8E ..@.L|
00000bb0  44 41 20 68 69 59 2c 58  3a 53 54 41 20 26 38 35  |DA hiY,X:STA &85|
00000bc0  20 0d 06 4a 16 4c 44 41  20 6c 6f 59 2c 58 3a 53  | ..J.LDA loY,X:S|
00000bd0  54 41 20 26 38 36 20 0d  06 54 1d 4c 44 41 20 63  |TA &86 ..T.LDA c|
00000be0  64 69 66 6c 6f 3a 53 54  41 20 6d 75 6c 74 69 6c  |diflo:STA multil|
00000bf0  6f 20 20 20 0d 06 5e 1c  4c 44 41 20 63 64 69 66  |o   ..^.LDA cdif|
00000c00  68 69 3a 53 54 41 20 6d  75 6c 74 69 68 69 20 20  |hi:STA multihi  |
00000c10  0d 06 68 1b 4c 44 41 20  23 30 3a 53 54 41 20 26  |..h.LDA #0:STA &|
00000c20  37 36 3a 53 54 41 20 26  37 42 20 0d 06 72 0f 4a  |76:STA &7B ..r.J|
00000c30  53 52 20 26 30 39 30 30  20 20 0d 06 7c 07 43 4c  |SR &0900  ..|.CL|
00000c40  43 0d 06 86 0b 4c 44 41  20 26 37 34 0d 06 90 0d  |C....LDA &74....|
00000c50  41 44 43 20 72 65 73 20  20 0d 06 9a 0b 53 54 41  |ADC res  ....STA|
00000c60  20 26 37 45 0d 06 a4 0b  4c 44 41 20 26 37 35 0d  | &7E....LDA &75.|
00000c70  06 ae 0e 41 44 43 20 72  65 73 2b 31 20 0d 06 b8  |...ADC res+1 ...|
00000c80  0b 53 54 41 20 26 37 46  0d 06 c2 0a 2e 73 74 61  |.STA &7F.....sta|
00000c90  72 74 0d 06 cc 0b 4a 53  52 20 64 6f 74 0d 06 d6  |rt....JSR dot...|
00000ca0  0c 4a 53 52 20 64 6f 74  33 0d 06 e0 10 4a 53 52  |.JSR dot3....JSR|
00000cb0  20 74 72 61 63 65 72 20  20 0d 06 ea 11 4a 53 52  | tracer  ....JSR|
00000cc0  20 64 6f 74 31 31 20 20  20 20 0d 06 f4 0f 4a 53  | dot11    ....JS|
00000cd0  52 20 64 6f 74 33 33 20  20 0d 06 fe 0e 4a 53 52  |R dot33  ....JSR|
00000ce0  20 26 39 39 35 20 20 0d  07 08 0f 4a 4d 50 20 26  | &995  ....JMP &|
00000cf0  30 41 30 30 20 20 0d 07  12 07 52 54 53 0d 07 1c  |0A00  ....RTS...|
00000d00  0a 2e 64 6f 74 20 20 0d  07 26 16 4c 44 41 20 23  |..dot  ..&.LDA #|
00000d10  26 31 32 3a 4a 53 52 20  26 46 46 45 45 0d 07 30  |&12:JSR &FFEE..0|
00000d20  14 4c 44 41 20 23 30 3a  4a 53 52 20 26 46 46 45  |.LDA #0:JSR &FFE|
00000d30  45 0d 07 3a 15 4c 44 41  20 26 37 30 3a 4a 53 52  |E..:.LDA &70:JSR|
00000d40  20 26 46 46 45 45 0d 07  44 09 53 45 43 20 20 0d  | &FFEE..D.SEC  .|
00000d50  07 4e 0a 4c 44 41 20 23  30 0d 07 58 0c 53 42 43  |.N.LDA #0..X.SBC|
00000d60  20 26 38 43 20 0d 07 62  0b 53 54 41 20 26 38 41  | &8C ..b.STA &8A|
00000d70  0d 07 6c 15 4c 44 41 20  23 32 39 3a 4a 53 52 20  |..l.LDA #29:JSR |
00000d80  26 46 46 45 45 0d 07 76  15 4c 44 41 20 26 37 32  |&FFEE..v.LDA &72|
00000d90  3a 4a 53 52 20 26 46 46  45 45 0d 07 80 15 4c 44  |:JSR &FFEE....LD|
00000da0  41 20 26 37 33 3a 4a 53  52 20 26 46 46 45 45 0d  |A &73:JSR &FFEE.|
00000db0  07 8a 15 4c 44 41 20 26  37 34 3a 4a 53 52 20 26  |...LDA &74:JSR &|
00000dc0  46 46 45 45 0d 07 94 15  4c 44 41 20 26 37 35 3a  |FFEE....LDA &75:|
00000dd0  4a 53 52 20 26 46 46 45  45 0d 07 9e 0b 4c 44 58  |JSR &FFEE....LDX|
00000de0  20 26 38 41 0d 07 a8 0d  4a 4d 50 20 64 6f 74 32  | &8A....JMP dot2|
00000df0  20 0d 07 b2 0b 2e 64 6f  74 31 31 20 0d 07 bc 0b  | .....dot11 ....|
00000e00  4c 44 41 20 26 37 30 0d  07 c6 0f 53 54 41 20 26  |LDA &70....STA &|
00000e10  30 39 44 46 20 20 0d 07  d0 0d 4c 44 58 20 23 26  |09DF  ....LDX #&|
00000e20  44 46 20 0d 07 da 0c 4c  44 59 20 23 26 30 39 0d  |DF ....LDY #&09.|
00000e30  07 e4 15 4c 44 41 20 23  26 43 3a 4a 53 52 20 26  |...LDA #&C:JSR &|
00000e40  46 46 46 31 0d 07 ee 0b  4c 44 41 20 26 37 31 0d  |FFF1....LDA &71.|
00000e50  07 f8 0e 53 54 41 20 26  30 39 45 35 20 0d 08 02  |...STA &09E5 ...|
00000e60  0c 4c 44 58 20 23 26 45  35 0d 08 0c 0c 4c 44 59  |.LDX #&E5....LDY|
00000e70  20 23 26 30 39 0d 08 16  15 4c 44 41 20 23 26 43  | #&09....LDA #&C|
00000e80  3a 4a 53 52 20 26 46 46  46 31 0d 08 20 16 4c 44  |:JSR &FFF1.. .LD|
00000e90  41 20 23 26 31 32 3a 4a  53 52 20 26 46 46 45 45  |A #&12:JSR &FFEE|
00000ea0  0d 08 2a 14 4c 44 41 20  23 30 3a 4a 53 52 20 26  |..*.LDA #0:JSR &|
00000eb0  46 46 45 45 0d 08 34 14  4c 44 41 20 23 30 3a 4a  |FFEE..4.LDA #0:J|
00000ec0  53 52 20 26 46 46 45 45  0d 08 3e 09 53 45 43 20  |SR &FFEE..>.SEC |
00000ed0  20 0d 08 48 0a 4c 44 41  20 23 30 0d 08 52 0b 53  | ..H.LDA #0..R.S|
00000ee0  42 43 20 26 38 44 0d 08  5c 0b 53 54 41 20 26 38  |BC &8D..\.STA &8|
00000ef0  41 0d 08 66 15 4c 44 41  20 23 32 39 3a 4a 53 52  |A..f.LDA #29:JSR|
00000f00  20 26 46 46 45 45 0d 08  70 15 4c 44 41 20 26 37  | &FFEE..p.LDA &7|
00000f10  37 3a 4a 53 52 20 26 46  46 45 45 0d 08 7a 15 4c  |7:JSR &FFEE..z.L|
00000f20  44 41 20 26 37 38 3a 4a  53 52 20 26 46 46 45 45  |DA &78:JSR &FFEE|
00000f30  0d 08 84 15 4c 44 41 20  26 37 39 3a 4a 53 52 20  |....LDA &79:JSR |
00000f40  26 46 46 45 45 0d 08 8e  15 4c 44 41 20 26 37 41  |&FFEE....LDA &7A|
00000f50  3a 4a 53 52 20 26 46 46  45 45 0d 08 98 0b 4c 44  |:JSR &FFEE....LD|
00000f60  58 20 26 38 41 0d 08 a2  09 2e 64 6f 74 32 0d 08  |X &8A.....dot2..|
00000f70  ac 0b 54 58 41 3a 50 48  41 0d 08 b6 18 4c 44 41  |..TXA:PHA....LDA|
00000f80  20 6c 6f 58 2c 58 3a 53  54 41 20 26 30 39 44 30  | loX,X:STA &09D0|
00000f90  20 0d 08 c0 19 4c 44 41  20 68 69 58 2c 58 3a 53  | ....LDA hiX,X:S|
00000fa0  54 41 20 26 30 39 44 31  20 20 0d 08 ca 18 4c 44  |TA &09D1  ....LD|
00000fb0  41 20 6c 6f 59 2c 58 3a  53 54 41 20 26 30 39 44  |A loY,X:STA &09D|
00000fc0  32 20 0d 08 d4 18 4c 44  41 20 68 69 59 2c 58 3a  |2 ....LDA hiY,X:|
00000fd0  53 54 41 20 26 30 39 44  33 20 0d 08 de 0c 4c 44  |STA &09D3 ....LD|
00000fe0  58 20 23 26 44 30 0d 08  e8 0c 4c 44 59 20 23 26  |X #&D0....LDY #&|
00000ff0  30 39 0d 08 f2 14 4c 44  41 20 23 39 3a 4a 53 52  |09....LDA #9:JSR|
00001000  20 26 46 46 46 31 0d 08  fc 0f 4c 44 41 20 26 30  | &FFF1....LDA &0|
00001010  39 44 34 20 20 0d 09 06  0b 43 4d 50 20 26 37 30  |9D4  ....CMP &70|
00001020  0d 09 10 0f 42 45 51 20  6d 69 73 73 35 20 20 0d  |....BEQ miss5  .|
00001030  09 1a 0b 43 4d 50 20 23  33 20 0d 09 24 0e 42 45  |...CMP #3 ..$.BE|
00001040  51 20 6d 69 73 73 35 20  0d 09 2e 15 4c 44 41 20  |Q miss5 ....LDA |
00001050  23 32 35 3a 4a 53 52 20  26 46 46 45 45 0d 09 38  |#25:JSR &FFEE..8|
00001060  15 4c 44 41 20 23 36 39  3a 4a 53 52 20 26 46 46  |.LDA #69:JSR &FF|
00001070  45 45 0d 09 42 0d 50 4c  41 3a 54 41 58 20 20 0d  |EE..B.PLA:TAX  .|
00001080  09 4c 17 4c 44 41 20 6c  6f 58 2c 58 3a 4a 53 52  |.L.LDA loX,X:JSR|
00001090  20 26 46 46 45 45 0d 09  56 17 4c 44 41 20 68 69  | &FFEE..V.LDA hi|
000010a0  58 2c 58 3a 4a 53 52 20  26 46 46 45 45 0d 09 60  |X,X:JSR &FFEE..`|
000010b0  17 4c 44 41 20 6c 6f 59  2c 58 3a 4a 53 52 20 26  |.LDA loY,X:JSR &|
000010c0  46 46 45 45 0d 09 6a 17  4c 44 41 20 68 69 59 2c  |FFEE..j.LDA hiY,|
000010d0  58 3a 4a 53 52 20 26 46  46 45 45 0d 09 74 0f 4a  |X:JSR &FFEE..t.J|
000010e0  4d 50 20 6d 69 73 73 36  20 20 0d 09 7e 0d 2e 6d  |MP miss6  ..~..m|
000010f0  69 73 73 35 20 20 20 0d  09 88 0b 50 4c 41 3a 54  |iss5   ....PLA:T|
00001100  41 58 0d 09 92 0a 2e 6d  69 73 73 36 0d 09 9c 08  |AX.....miss6....|
00001110  43 4c 43 20 0d 09 a6 08  54 58 41 20 0d 09 b0 0b  |CLC ....TXA ....|
00001120  41 44 43 20 26 38 42 0d  09 ba 07 54 41 58 0d 09  |ADC &8B....TAX..|
00001130  c4 0b 43 4d 50 20 26 38  41 0d 09 ce 0d 42 4e 45  |..CMP &8A....BNE|
00001140  20 64 6f 74 32 20 0d 09  d8 07 52 54 53 0d 09 e2  | dot2 ....RTS...|
00001150  0a 2e 64 6f 74 33 20 0d  09 ec 0b 4c 44 41 20 26  |..dot3 ....LDA &|
00001160  38 45 0d 09 f6 07 53 45  43 0d 0a 00 0d 4c 44 59  |8E....SEC....LDY|
00001170  20 26 30 39 44 35 0d 0a  0a 0b 2e 62 61 63 6b 31  | &09D5.....back1|
00001180  20 0d 0a 14 0d 53 42 43  20 26 38 43 20 20 0d 0a  | ....SBC &8C  ..|
00001190  1e 07 44 45 59 0d 0a 28  0f 42 4e 45 20 62 61 63  |..DEY..(.BNE bac|
000011a0  6b 31 20 20 0d 0a 32 0b  53 54 41 20 26 38 41 0d  |k1  ..2.STA &8A.|
000011b0  0a 3c 15 4c 44 41 20 23  32 39 3a 4a 53 52 20 26  |.<.LDA #29:JSR &|
000011c0  46 46 45 45 0d 0a 46 15  4c 44 41 20 26 37 43 3a  |FFEE..F.LDA &7C:|
000011d0  4a 53 52 20 26 46 46 45  45 0d 0a 50 15 4c 44 41  |JSR &FFEE..P.LDA|
000011e0  20 26 37 44 3a 4a 53 52  20 26 46 46 45 45 0d 0a  | &7D:JSR &FFEE..|
000011f0  5a 15 4c 44 41 20 26 37  45 3a 4a 53 52 20 26 46  |Z.LDA &7E:JSR &F|
00001200  46 45 45 0d 0a 64 15 4c  44 41 20 26 37 46 3a 4a  |FEE..d.LDA &7F:J|
00001210  53 52 20 26 46 46 45 45  0d 0a 6e 0b 4c 44 58 20  |SR &FFEE..n.LDX |
00001220  26 38 41 0d 0a 78 0d 4a  4d 50 20 64 6f 74 34 20  |&8A..x.JMP dot4 |
00001230  0d 0a 82 0b 2e 64 6f 74  33 33 20 0d 0a 8c 0d 4c  |.....dot33 ....L|
00001240  44 41 20 26 38 46 20 20  0d 0a 96 0a 53 45 43 20  |DA &8F  ....SEC |
00001250  20 20 0d 0a a0 0d 4c 44  59 20 26 30 39 44 35 0d  |  ....LDY &09D5.|
00001260  0a aa 0c 2e 62 61 63 6b  32 20 20 0d 0a b4 0b 53  |....back2  ....S|
00001270  42 43 20 26 38 44 0d 0a  be 08 44 45 59 20 0d 0a  |BC &8D....DEY ..|
00001280  c8 0d 42 4e 45 20 62 61  63 6b 32 0d 0a d2 0b 53  |..BNE back2....S|
00001290  54 41 20 26 38 41 0d 0a  dc 15 4c 44 41 20 23 32  |TA &8A....LDA #2|
000012a0  39 3a 4a 53 52 20 26 46  46 45 45 0d 0a e6 15 4c  |9:JSR &FFEE....L|
000012b0  44 41 20 26 38 31 3a 4a  53 52 20 26 46 46 45 45  |DA &81:JSR &FFEE|
000012c0  0d 0a f0 15 4c 44 41 20  26 38 32 3a 4a 53 52 20  |....LDA &82:JSR |
000012d0  26 46 46 45 45 0d 0a fa  15 4c 44 41 20 26 38 33  |&FFEE....LDA &83|
000012e0  3a 4a 53 52 20 26 46 46  45 45 0d 0b 04 15 4c 44  |:JSR &FFEE....LD|
000012f0  41 20 26 38 34 3a 4a 53  52 20 26 46 46 45 45 0d  |A &84:JSR &FFEE.|
00001300  0b 0e 0b 4c 44 58 20 26  38 41 0d 0b 18 09 2e 64  |...LDX &8A.....d|
00001310  6f 74 34 0d 0b 22 0d 54  58 41 3a 50 48 41 20 20  |ot4..".TXA:PHA  |
00001320  0d 0b 2c 1a 4c 44 41 20  6c 6f 58 58 2c 58 3a 53  |..,.LDA loXX,X:S|
00001330  54 41 20 26 30 39 44 30  20 20 0d 0b 36 15 4c 44  |TA &09D0  ..6.LD|
00001340  41 20 23 30 3a 53 54 41  20 26 30 39 44 31 20 0d  |A #0:STA &09D1 .|
00001350  0b 40 19 4c 44 41 20 6c  6f 59 59 2c 58 3a 53 54  |.@.LDA loYY,X:ST|
00001360  41 20 26 30 39 44 32 20  0d 0b 4a 16 4c 44 41 20  |A &09D2 ..J.LDA |
00001370  23 30 3a 53 54 41 20 26  30 39 44 33 20 20 0d 0b  |#0:STA &09D3  ..|
00001380  54 0d 4c 44 58 20 23 26  44 30 20 0d 0b 5e 0c 4c  |T.LDX #&D0 ..^.L|
00001390  44 59 20 23 26 30 39 0d  0b 68 14 4c 44 41 20 23  |DY #&09..h.LDA #|
000013a0  39 3a 4a 53 52 20 26 46  46 46 31 0d 0b 72 0e 50  |9:JSR &FFF1..r.P|
000013b0  4c 41 20 3a 54 41 58 20  20 0d 0b 7c 0f 4c 44 41  |LA :TAX  ..|.LDA|
000013c0  20 26 30 39 44 34 20 20  0d 0b 86 0b 43 4d 50 20  | &09D4  ....CMP |
000013d0  26 37 30 0d 0b 90 0f 42  45 51 20 6d 69 73 73 31  |&70....BEQ miss1|
000013e0  20 20 0d 0b 9a 0c 43 4d  50 20 23 33 20 20 0d 0b  |  ....CMP #3  ..|
000013f0  a4 0f 42 45 51 20 6d 69  73 73 31 20 20 0d 0b ae  |..BEQ miss1  ...|
00001400  15 4c 44 41 20 23 32 35  3a 4a 53 52 20 26 46 46  |.LDA #25:JSR &FF|
00001410  45 45 0d 0b b8 15 4c 44  41 20 23 36 39 3a 4a 53  |EE....LDA #69:JS|
00001420  52 20 26 46 46 45 45 0d  0b c2 18 4c 44 41 20 6c  |R &FFEE....LDA l|
00001430  6f 58 58 2c 58 3a 4a 53  52 20 26 46 46 45 45 0d  |oXX,X:JSR &FFEE.|
00001440  0b cc 15 4c 44 41 20 23  30 3a 4a 53 52 20 26 46  |...LDA #0:JSR &F|
00001450  46 45 45 20 0d 0b d6 18  4c 44 41 20 6c 6f 59 59  |FEE ....LDA loYY|
00001460  2c 58 3a 4a 53 52 20 26  46 46 45 45 0d 0b e0 16  |,X:JSR &FFEE....|
00001470  4c 44 41 20 23 30 3a 4a  53 52 20 26 46 46 45 45  |LDA #0:JSR &FFEE|
00001480  20 20 0d 0b ea 0d 2e 6d  69 73 73 31 20 20 20 0d  |  .....miss1   .|
00001490  0b f4 07 43 4c 43 0d 0b  fe 08 54 58 41 20 0d 0c  |...CLC....TXA ..|
000014a0  08 0b 41 44 43 20 26 38  39 0d 0c 12 08 54 41 58  |..ADC &89....TAX|
000014b0  20 0d 0c 1c 0b 43 4d 50  20 26 38 41 0d 0c 26 0f  | ....CMP &8A..&.|
000014c0  42 4e 45 20 64 6f 74 34  20 20 20 0d 0c 30 07 52  |BNE dot4   ..0.R|
000014d0  54 53 0d 0c 3a 0c 2e 74  72 61 63 65 72 20 0d 0c  |TS..:..tracer ..|
000014e0  44 16 4c 44 41 20 23 26  31 32 3a 4a 53 52 20 26  |D.LDA #&12:JSR &|
000014f0  46 46 45 45 0d 0c 4e 14  4c 44 41 20 23 30 3a 4a  |FFEE..N.LDA #0:J|
00001500  53 52 20 26 46 46 45 45  0d 0c 58 14 4c 44 41 20  |SR &FFEE..X.LDA |
00001510  23 33 3a 4a 53 52 20 26  46 46 45 45 0d 0c 62 15  |#3:JSR &FFEE..b.|
00001520  4c 44 41 20 23 32 39 3a  4a 53 52 20 26 46 46 45  |LDA #29:JSR &FFE|
00001530  45 0d 0c 6c 15 4c 44 41  20 26 38 31 3a 4a 53 52  |E..l.LDA &81:JSR|
00001540  20 26 46 46 45 45 0d 0c  76 15 4c 44 41 20 26 38  | &FFEE..v.LDA &8|
00001550  32 3a 4a 53 52 20 26 46  46 45 45 0d 0c 80 15 4c  |2:JSR &FFEE....L|
00001560  44 41 20 26 38 33 3a 4a  53 52 20 26 46 46 45 45  |DA &83:JSR &FFEE|
00001570  0d 0c 8a 15 4c 44 41 20  26 38 34 3a 4a 53 52 20  |....LDA &84:JSR |
00001580  26 46 46 45 45 0d 0c 94  07 43 4c 43 0d 0c 9e 0b  |&FFEE....CLC....|
00001590  4c 44 41 20 26 38 41 0d  0c a8 0c 41 44 43 20 26  |LDA &8A....ADC &|
000015a0  38 38 20 0d 0c b2 0d 41  44 43 20 26 30 39 44 35  |88 ....ADC &09D5|
000015b0  0d 0c bc 08 54 41 58 20  0d 0c c6 15 4c 44 41 20  |....TAX ....LDA |
000015c0  23 32 35 3a 4a 53 52 20  26 46 46 45 45 0d 0c d0  |#25:JSR &FFEE...|
000015d0  14 4c 44 41 20 23 34 3a  4a 53 52 20 26 46 46 45  |.LDA #4:JSR &FFE|
000015e0  45 0d 0c da 18 4c 44 41  20 6c 6f 58 58 2c 58 3a  |E....LDA loXX,X:|
000015f0  4a 53 52 20 26 46 46 45  45 0d 0c e4 16 4c 44 41  |JSR &FFEE....LDA|
00001600  20 23 30 3a 4a 53 52 20  26 46 46 45 45 20 20 0d  | #0:JSR &FFEE  .|
00001610  0c ee 18 4c 44 41 20 6c  6f 59 59 2c 58 3a 4a 53  |...LDA loYY,X:JS|
00001620  52 20 26 46 46 45 45 0d  0c f8 16 4c 44 41 20 23  |R &FFEE....LDA #|
00001630  30 3a 4a 53 52 20 26 46  46 45 45 20 20 0d 0d 02  |0:JSR &FFEE  ...|
00001640  15 4c 44 41 20 23 32 39  3a 4a 53 52 20 26 46 46  |.LDA #29:JSR &FF|
00001650  45 45 0d 0d 0c 15 4c 44  41 20 26 37 43 3a 4a 53  |EE....LDA &7C:JS|
00001660  52 20 26 46 46 45 45 0d  0d 16 15 4c 44 41 20 26  |R &FFEE....LDA &|
00001670  37 44 3a 4a 53 52 20 26  46 46 45 45 0d 0d 20 15  |7D:JSR &FFEE.. .|
00001680  4c 44 41 20 26 37 45 3a  4a 53 52 20 26 46 46 45  |LDA &7E:JSR &FFE|
00001690  45 0d 0d 2a 15 4c 44 41  20 26 37 46 3a 4a 53 52  |E..*.LDA &7F:JSR|
000016a0  20 26 46 46 45 45 0d 0d  34 0b 4c 44 58 20 26 38  | &FFEE..4.LDX &8|
000016b0  41 0d 0d 3e 15 4c 44 41  20 23 32 35 3a 4a 53 52  |A..>.LDA #25:JSR|
000016c0  20 26 46 46 45 45 0d 0d  48 14 4c 44 41 20 23 35  | &FFEE..H.LDA #5|
000016d0  3a 4a 53 52 20 26 46 46  45 45 0d 0d 52 18 4c 44  |:JSR &FFEE..R.LD|
000016e0  41 20 6c 6f 58 58 2c 58  3a 4a 53 52 20 26 46 46  |A loXX,X:JSR &FF|
000016f0  45 45 0d 0d 5c 16 4c 44  41 20 23 30 3a 4a 53 52  |EE..\.LDA #0:JSR|
00001700  20 26 46 46 45 45 20 20  0d 0d 66 18 4c 44 41 20  | &FFEE  ..f.LDA |
00001710  6c 6f 59 59 2c 58 3a 4a  53 52 20 26 46 46 45 45  |loYY,X:JSR &FFEE|
00001720  0d 0d 70 15 4c 44 41 20  23 30 3a 4a 53 52 20 26  |..p.LDA #0:JSR &|
00001730  46 46 45 45 20 0d 0d 7a  07 52 54 53 0d 0d 84 05  |FFEE ..z.RTS....|
00001740  5d 0d 0d 8e 05 ed 0d 0d  98 05 e1 0d 0d a2 0c dd  |]...............|
00001750  f2 69 6e 66 6f 20 20 0d  0d ac 19 f1 8a 31 31 2c  |.info  ......11,|
00001760  32 29 22 4d 55 4c 54 49  2d 53 50 49 52 4f 22 20  |2)"MULTI-SPIRO" |
00001770  0d 0d b6 35 e8 8a 30 2c  36 29 22 45 6e 74 65 72  |...5..0,6)"Enter|
00001780  20 73 69 7a 65 20 6f 66  20 6c 61 72 67 65 20 77  | size of large w|
00001790  68 65 65 6c 20 28 31 33  30 5f 34 30 30 29 20 22  |heel (130_400) "|
000017a0  4c 43 25 20 20 0d 0d c0  34 e8 8a 30 2c 39 29 22  |LC%  ...4..0,9)"|
000017b0  45 6e 74 65 72 20 73 69  7a 65 20 6f 66 20 73 6d  |Enter size of sm|
000017c0  61 6c 6c 20 77 68 65 65  6c 20 28 32 30 5f 31 32  |all wheel (20_12|
000017d0  37 29 20 22 53 43 25 20  20 0d 0d ca 2a f1 8a 30  |7) "SC%  ...*..0|
000017e0  2c 31 32 29 22 45 6e 74  65 72 20 73 70 65 65 64  |,12)"Enter speed|
000017f0  20 6f 66 20 73 6d 61 6c  6c 20 77 68 65 65 6c 22  | of small wheel"|
00001800  20 20 20 0d 0d d4 1c f1  8a 30 2c 31 34 29 22 31  |   ......0,14)"1|
00001810  5f 39 20 63 6c 6f 63 6b  77 69 73 65 22 20 20 0d  |_9 clockwise"  .|
00001820  0d de 29 e8 8a 30 2c 31  36 29 22 31 31 5f 32 30  |..)..0,16)"11_20|
00001830  20 61 6e 74 69 2d 63 6c  6f 63 6b 77 69 73 65 20  | anti-clockwise |
00001840  22 53 50 45 45 44 25 20  0d 0d e8 15 e7 53 43 25  |"SPEED% .....SC%|
00001850  3e 31 32 37 20 53 43 25  3d 31 32 37 20 0d 0d f2  |>127 SC%=127 ...|
00001860  14 e7 4c 43 25 3c 31 32  38 20 4c 43 25 3d 31 32  |..LC%<128 LC%=12|
00001870  38 0d 0d fc 1c e7 4c 43  25 3e 33 35 30 20 3f 26  |8.....LC%>350 ?&|
00001880  38 42 3d 38 8b 3f 26 38  42 3d 31 36 20 0d 0e 06  |8B=8.?&8B=16 ...|
00001890  1b e7 53 43 25 3e 37 30  3f 26 38 39 3d 31 36 8b  |..SC%>70?&89=16.|
000018a0  3f 26 38 39 3d 33 32 20  0d 0e 10 19 53 25 3d 53  |?&89=32 ....S%=S|
000018b0  50 45 45 44 25 2d 31 31  3a 3f 26 38 38 3d 53 25  |PEED%-11:?&88=S%|
000018c0  20 0d 0e 1a 1a e7 53 50  45 45 44 25 3c 31 31 20  | .....SPEED%<11 |
000018d0  4b 25 3d 31 8b 4b 25 3d  30 20 20 0d 0e 24 2c 3f  |K%=1.K%=0  ..$,?|
000018e0  26 30 39 44 35 3d 53 25  2a 28 4c 43 25 2f 53 43  |&09D5=S%*(LC%/SC|
000018f0  25 2d 32 29 2b 4c 43 25  2f 53 43 25 2d 4b 25 2b  |%-2)+LC%/SC%-K%+|
00001900  2e 35 20 20 20 20 20 0d  0e 2e 30 3f 26 30 39 44  |.5     ...0?&09D|
00001910  35 3d 2d 53 25 2a 28 4c  43 25 2f 53 43 25 2d 32  |5=-S%*(LC%/SC%-2|
00001920  29 2a 28 2d 31 29 2b 4c  43 25 2f 53 43 25 2d 4b  |)*(-1)+LC%/SC%-K|
00001930  25 2b 2e 35 20 20 20 0d  0e 38 07 e1 20 20 0d ff  |%+.5   ..8..  ..|
00001940

30-01-88/MULTS5.m0

30-01-88/MULTS5.m1

30-01-88/MULTS5.m2

30-01-88/MULTS5.m4

30-01-88/MULTS5.m5

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