#� Transverse wave demonstration
� by Gregory Allen Jan 1989
� (c) G. J. Allen '89
(%� Improved by M. Ford, April 1995
2#of%=1:� of%=2 will double speed
<9� � �"FX4":�"FX12":� �=17 � �6:� � �:�" at line ";�:�
F�4:� 19,1,3,0,0,0
P� code% 1023
Z.�sin_table 359,yposLO 39,yposHI 39,xpos 39
d�assem:�
n%� "Transverse Wave Demonstration"
x$�"============================="
��'''' "PLEASE WAIT"
�2� F%=0 � 359:?(sin_table+F%)=�(�(F%))*50+128:�
�% � 23,253,&30,&48,&48,&30,0,0,0,0
���''"Enter phase difference between adjacent  particles, in degrees. Negative values  are allowed, but please use only        integers. Try about 8";�253;"."
�&� �phase$:� �(�(�(phase$)))=phase$
�#tf%=((�(phase$) �360)+360) �360
�?ymin=20:?ymax=21
�\� F%=0 � 39:xpos?F%=F%*4:yposLO?F%=((F%*tf%) �360) �256:yposHI?F%=((F%*tf%) �360) �256:�
��:�23,1,0;0;0;0;
�*FX 4,1
�*FX 11,0
�*� 23,254,&10,&20,&40,&FF,&40,&20,&10,0
�� 23,255,8,4,2,255,2,4,8,0

1�'�5) �254;",";�255;" : Reveal next particle"

!� �7)"R : Reveal entire wave"

&� �7)"P : Change phase difference"

"�''"  Escape : End program"

,!!fraddLO=of%:Y%=20:� do_point

6entire=�

@pause=�:� �tZF

J*FX 21,0

T�

^
I=�(0)

hF� � pause � � points � � pause � I=13 � � points:� points:� points

r� I=-1 � �tZA

|� � entire � �reveal

�0� I=32 � pause=� pause:� 1-pause � �tZF,�tdF

�� I=�("P") � �:� �t`@

�� �

�:

���assem

�xco=&70

�xco_hi=&71

�yco=&72

�work=&73

�work_hi=&74

�indexLO=&75:indexHI=&76

�� pass=0 � 2 � 2

�P%=code%

[OPT pass
	.plot
LDA #&FF
&SEC
0SBC yco
:STA yco
D� #7
NSTA work
XLDA yco
b
� #&F8
lSTA yco
vLDA xco
�
� #&F8
�CLC
�ADC work
�STA work
�LDA xco_hi
�ADC #&58
�STA work_hi
�LDA yco
�	LSR A
�STA yco
�	LSR A
�	LSR A
�ADC yco
	ROR A
	ROR A
STA yco
 	ROR A
*
� #&C0
4CLC
>ADC work
HSTA work
RLDA yco
\
� #&3F
fADC work_hi
pSTA work_hi
zLDA xco
�� #7
�TAY
�LDA #&80
�
CPY #0
�BEQ exit
�	.loop
�	LSR A
�DEY
�BNE loop
�	.exit
�� (work),Y
�STA (work),Y
�RTS
]

� pass
fraddLO=&79:fraddHI=&7A
$ymin=&77:ymax=&78
.� pass=0 � 2 � 2
8P%=code%+256
B
[OPT pass
L.points
V
LDY #0
`.point_loop
jJSR do_point
tSEC
~LDA yposLO,Y
�SBC fraddLO
�STA yposLO,Y
�LDA yposHI,Y
�SBC fraddHI
�STA yposHI,Y
�
BCS do
�ALDAyposLO,Y:ADC#104:STAyposLO,Y:LDAyposHI,Y:ADC#1:STAyposHI,Y
�.do
�JSR do_point
�INY
�CPY #40
�BNE point_loop
RTS


.do_point
CPY ymin:BCCinvis
CPY ymax:BCSinvis
(CLC
2LDA yposLO,Y
<ADC #(sin_table �256)
FSTA indexLO
PLDA yposHI,Y
ZADC #(sin_table �256)
dSTA indexHI
n
LDX #0
xLDA (indexLO,X)
�STA yco
�LDA xpos,Y
�	ASL A
�STA xco
�
LDA #0
�	ROL A
�STA xco_hi
�TYA
�PHA
�JSR plot
�PLA
�TAY
�
.invis
RTS
]

� pass
"�
,��reveal
6� I=136 � �left
@� I=137 � �right
Jb� I=�("R") � (?ymin=0 � ?ymax=40) � � �left:�right:� ?ymin=0 � ?ymax=40:entire=�:� �0,1) �(80)
T�
^
��left
h1� ?ymin>0 � ?ymin=?ymin-1:Y%=?ymin:� do_point
r�
|��right
�2� ?ymax<40 � Y%=?ymax:?ymax=?ymax+1:� do_point
��
�(� �0,4) �(80);�3,4)"Space : Pause":�
�C� �0,4) �(40);�3,4)"Space : Continue"'"  Return : Next Frame":�
�

00000000  0d 00 0a 23 f4 20 54 72  61 6e 73 76 65 72 73 65  |...#. Transverse|
00000010  20 77 61 76 65 20 64 65  6d 6f 6e 73 74 72 61 74  | wave demonstrat|
00000020  69 6f 6e 0d 00 14 1f f4  20 62 79 20 47 72 65 67  |ion..... by Greg|
00000030  6f 72 79 20 41 6c 6c 65  6e 20 4a 61 6e 20 31 39  |ory Allen Jan 19|
00000040  38 39 0d 00 1e 19 f4 20  28 63 29 20 47 2e 20 4a  |89..... (c) G. J|
00000050  2e 20 41 6c 6c 65 6e 20  27 38 39 0d 00 28 25 f4  |. Allen '89..(%.|
00000060  20 49 6d 70 72 6f 76 65  64 20 62 79 20 4d 2e 20  | Improved by M. |
00000070  46 6f 72 64 2c 20 41 70  72 69 6c 20 31 39 39 35  |Ford, April 1995|
00000080  0d 00 32 23 6f 66 25 3d  31 3a f4 20 6f 66 25 3d  |..2#of%=1:. of%=|
00000090  32 20 77 69 6c 6c 20 64  6f 75 62 6c 65 20 73 70  |2 will double sp|
000000a0  65 65 64 0d 00 3c 39 ee  20 85 20 ff 22 46 58 34  |eed..<9. . ."FX4|
000000b0  22 3a ff 22 46 58 31 32  22 3a e7 20 9f 3d 31 37  |":."FX12":. .=17|
000000c0  20 8c 20 eb 36 3a e0 20  8b 20 f6 3a f1 22 20 61  | . .6:. . .:." a|
000000d0  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 46 15  |t line ";.:...F.|
000000e0  eb 34 3a ef 20 31 39 2c  31 2c 33 2c 30 2c 30 2c  |.4:. 19,1,3,0,0,|
000000f0  30 0d 00 50 10 de 20 63  6f 64 65 25 20 31 30 32  |0..P.. code% 102|
00000100  33 0d 00 5a 2e de 73 69  6e 5f 74 61 62 6c 65 20  |3..Z..sin_table |
00000110  33 35 39 2c 79 70 6f 73  4c 4f 20 33 39 2c 79 70  |359,yposLO 39,yp|
00000120  6f 73 48 49 20 33 39 2c  78 70 6f 73 20 33 39 0d  |osHI 39,xpos 39.|
00000130  00 64 0c f2 61 73 73 65  6d 3a db 0d 00 6e 25 f1  |.d..assem:...n%.|
00000140  20 22 54 72 61 6e 73 76  65 72 73 65 20 57 61 76  | "Transverse Wav|
00000150  65 20 44 65 6d 6f 6e 73  74 72 61 74 69 6f 6e 22  |e Demonstration"|
00000160  0d 00 78 24 f1 22 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..x$."==========|
00000170  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000180  3d 3d 3d 22 0d 00 82 17  f1 27 27 27 27 20 22 50  |===".....'''' "P|
00000190  4c 45 41 53 45 20 57 41  49 54 22 0d 00 8c 32 e3  |LEASE WAIT"...2.|
000001a0  20 46 25 3d 30 20 b8 20  33 35 39 3a 3f 28 73 69  | F%=0 . 359:?(si|
000001b0  6e 5f 74 61 62 6c 65 2b  46 25 29 3d b5 28 b2 28  |n_table+F%)=.(.(|
000001c0  46 25 29 29 2a 35 30 2b  31 32 38 3a ed 0d 00 96  |F%))*50+128:....|
000001d0  25 20 ef 20 32 33 2c 32  35 33 2c 26 33 30 2c 26  |% . 23,253,&30,&|
000001e0  34 38 2c 26 34 38 2c 26  33 30 2c 30 2c 30 2c 30  |48,&48,&30,0,0,0|
000001f0  2c 30 0d 00 a0 a0 f1 27  27 22 45 6e 74 65 72 20  |,0.....''"Enter |
00000200  70 68 61 73 65 20 64 69  66 66 65 72 65 6e 63 65  |phase difference|
00000210  20 62 65 74 77 65 65 6e  20 61 64 6a 61 63 65 6e  | between adjacen|
00000220  74 20 20 70 61 72 74 69  63 6c 65 73 2c 20 69 6e  |t  particles, in|
00000230  20 64 65 67 72 65 65 73  2e 20 4e 65 67 61 74 69  | degrees. Negati|
00000240  76 65 20 76 61 6c 75 65  73 20 20 61 72 65 20 61  |ve values  are a|
00000250  6c 6c 6f 77 65 64 2c 20  62 75 74 20 70 6c 65 61  |llowed, but plea|
00000260  73 65 20 75 73 65 20 6f  6e 6c 79 20 20 20 20 20  |se use only     |
00000270  20 20 20 69 6e 74 65 67  65 72 73 2e 20 54 72 79  |   integers. Try|
00000280  20 61 62 6f 75 74 20 38  22 3b bd 32 35 33 3b 22  | about 8";.253;"|
00000290  2e 22 0d 00 aa 26 f5 20  e8 70 68 61 73 65 24 3a  |."...&. .phase$:|
000002a0  fd 20 c3 28 a8 28 bb 28  70 68 61 73 65 24 29 29  |. .(.(.(phase$))|
000002b0  29 3d 70 68 61 73 65 24  0d 00 b4 23 74 66 25 3d  |)=phase$...#tf%=|
000002c0  28 28 bb 28 70 68 61 73  65 24 29 20 83 33 36 30  |((.(phase$) .360|
000002d0  29 2b 33 36 30 29 20 83  33 36 30 0d 00 be 15 3f  |)+360) .360....?|
000002e0  79 6d 69 6e 3d 32 30 3a  3f 79 6d 61 78 3d 32 31  |ymin=20:?ymax=21|
000002f0  0d 00 c8 5c e3 20 46 25  3d 30 20 b8 20 33 39 3a  |...\. F%=0 . 39:|
00000300  78 70 6f 73 3f 46 25 3d  46 25 2a 34 3a 79 70 6f  |xpos?F%=F%*4:ypo|
00000310  73 4c 4f 3f 46 25 3d 28  28 46 25 2a 74 66 25 29  |sLO?F%=((F%*tf%)|
00000320  20 83 33 36 30 29 20 83  32 35 36 3a 79 70 6f 73  | .360) .256:ypos|
00000330  48 49 3f 46 25 3d 28 28  46 25 2a 74 66 25 29 20  |HI?F%=((F%*tf%) |
00000340  83 33 36 30 29 20 81 32  35 36 3a ed 0d 00 d2 14  |.360) .256:.....|
00000350  db 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |.:.23,1,0;0;0;0;|
00000360  0d 00 dc 0b 2a 46 58 20  34 2c 31 0d 00 e6 0c 2a  |....*FX 4,1....*|
00000370  46 58 20 31 31 2c 30 0d  00 f0 2a ef 20 32 33 2c  |FX 11,0...*. 23,|
00000380  32 35 34 2c 26 31 30 2c  26 32 30 2c 26 34 30 2c  |254,&10,&20,&40,|
00000390  26 46 46 2c 26 34 30 2c  26 32 30 2c 26 31 30 2c  |&FF,&40,&20,&10,|
000003a0  30 0d 00 fa 1e ef 20 32  33 2c 32 35 35 2c 38 2c  |0..... 23,255,8,|
000003b0  34 2c 32 2c 32 35 35 2c  32 2c 34 2c 38 2c 30 0d  |4,2,255,2,4,8,0.|
000003c0  01 04 31 f1 27 8a 35 29  20 bd 32 35 34 3b 22 2c  |..1.'.5) .254;",|
000003d0  22 3b bd 32 35 35 3b 22  20 3a 20 52 65 76 65 61  |";.255;" : Revea|
000003e0  6c 20 6e 65 78 74 20 70  61 72 74 69 63 6c 65 22  |l next particle"|
000003f0  0d 01 0e 21 f1 20 8a 37  29 22 52 20 3a 20 52 65  |...!. .7)"R : Re|
00000400  76 65 61 6c 20 65 6e 74  69 72 65 20 77 61 76 65  |veal entire wave|
00000410  22 0d 01 18 26 f1 20 8a  37 29 22 50 20 3a 20 43  |"...&. .7)"P : C|
00000420  68 61 6e 67 65 20 70 68  61 73 65 20 64 69 66 66  |hange phase diff|
00000430  65 72 65 6e 63 65 22 0d  01 22 1f f1 27 27 22 20  |erence".."..''" |
00000440  20 45 73 63 61 70 65 20  3a 20 45 6e 64 20 70 72  | Escape : End pr|
00000450  6f 67 72 61 6d 22 0d 01  2c 21 21 66 72 61 64 64  |ogram"..,!!fradd|
00000460  4c 4f 3d 6f 66 25 3a 59  25 3d 32 30 3a d6 20 64  |LO=of%:Y%=20:. d|
00000470  6f 5f 70 6f 69 6e 74 0d  01 36 0c 65 6e 74 69 72  |o_point..6.entir|
00000480  65 3d a3 0d 01 40 12 70  61 75 73 65 3d a3 3a e4  |e=...@.pause=.:.|
00000490  20 8d 74 5a 46 0d 01 4a  0c 2a 46 58 20 32 31 2c  | .tZF..J.*FX 21,|
000004a0  30 0d 01 54 05 f5 0d 01  5e 0a 49 3d a6 28 30 29  |0..T....^.I=.(0)|
000004b0  0d 01 68 46 e7 20 ac 20  70 61 75 73 65 20 8c 20  |..hF. . pause . |
000004c0  d6 20 70 6f 69 6e 74 73  20 8b 20 e7 20 70 61 75  |. points . . pau|
000004d0  73 65 20 80 20 49 3d 31  33 20 8c 20 d6 20 70 6f  |se . I=13 . . po|
000004e0  69 6e 74 73 3a d6 20 70  6f 69 6e 74 73 3a d6 20  |ints:. points:. |
000004f0  70 6f 69 6e 74 73 0d 01  72 11 e7 20 49 3d 2d 31  |points..r.. I=-1|
00000500  20 8c 20 8d 74 5a 41 0d  01 7c 18 e7 20 ac 20 65  | . .tZA..|.. . e|
00000510  6e 74 69 72 65 20 8c 20  f2 72 65 76 65 61 6c 0d  |ntire . .reveal.|
00000520  01 86 30 e7 20 49 3d 33  32 20 8c 20 70 61 75 73  |..0. I=32 . paus|
00000530  65 3d ac 20 70 61 75 73  65 3a ee 20 31 2d 70 61  |e=. pause:. 1-pa|
00000540  75 73 65 20 e4 20 8d 74  5a 46 2c 8d 74 64 46 0d  |use . .tZF,.tdF.|
00000550  01 90 19 e7 20 49 3d 97  28 22 50 22 29 20 8c 20  |.... I=.("P") . |
00000560  db 3a e5 20 8d 74 60 40  0d 01 9a 07 fd 20 a3 0d  |.:. .t`@..... ..|
00000570  01 a4 05 3a 0d 01 ae 0b  dd f2 61 73 73 65 6d 0d  |...:......assem.|
00000580  01 b8 0b 78 63 6f 3d 26  37 30 0d 01 c2 0e 78 63  |...xco=&70....xc|
00000590  6f 5f 68 69 3d 26 37 31  0d 01 cc 0b 79 63 6f 3d  |o_hi=&71....yco=|
000005a0  26 37 32 0d 01 d6 0c 77  6f 72 6b 3d 26 37 33 0d  |&72....work=&73.|
000005b0  01 e0 0f 77 6f 72 6b 5f  68 69 3d 26 37 34 0d 01  |...work_hi=&74..|
000005c0  ea 1b 69 6e 64 65 78 4c  4f 3d 26 37 35 3a 69 6e  |..indexLO=&75:in|
000005d0  64 65 78 48 49 3d 26 37  36 0d 01 f4 14 e3 20 70  |dexHI=&76..... p|
000005e0  61 73 73 3d 30 20 b8 20  32 20 88 20 32 0d 01 fe  |ass=0 . 2 . 2...|
000005f0  0c 50 25 3d 63 6f 64 65  25 0d 02 08 0d 5b 4f 50  |.P%=code%....[OP|
00000600  54 20 70 61 73 73 0d 02  12 09 2e 70 6c 6f 74 0d  |T pass.....plot.|
00000610  02 1c 0c 4c 44 41 20 23  26 46 46 0d 02 26 07 53  |...LDA #&FF..&.S|
00000620  45 43 0d 02 30 0b 53 42  43 20 79 63 6f 0d 02 3a  |EC..0.SBC yco..:|
00000630  0b 53 54 41 20 79 63 6f  0d 02 44 08 80 20 23 37  |.STA yco..D.. #7|
00000640  0d 02 4e 0c 53 54 41 20  77 6f 72 6b 0d 02 58 0b  |..N.STA work..X.|
00000650  4c 44 41 20 79 63 6f 0d  02 62 0a 80 20 23 26 46  |LDA yco..b.. #&F|
00000660  38 0d 02 6c 0b 53 54 41  20 79 63 6f 0d 02 76 0b  |8..l.STA yco..v.|
00000670  4c 44 41 20 78 63 6f 0d  02 80 0a 80 20 23 26 46  |LDA xco..... #&F|
00000680  38 0d 02 8a 07 43 4c 43  0d 02 94 0c 41 44 43 20  |8....CLC....ADC |
00000690  77 6f 72 6b 0d 02 9e 0c  53 54 41 20 77 6f 72 6b  |work....STA work|
000006a0  0d 02 a8 0e 4c 44 41 20  78 63 6f 5f 68 69 0d 02  |....LDA xco_hi..|
000006b0  b2 0c 41 44 43 20 23 26  35 38 0d 02 bc 0f 53 54  |..ADC #&58....ST|
000006c0  41 20 77 6f 72 6b 5f 68  69 0d 02 c6 0b 4c 44 41  |A work_hi....LDA|
000006d0  20 79 63 6f 0d 02 d0 09  4c 53 52 20 41 0d 02 da  | yco....LSR A...|
000006e0  0b 53 54 41 20 79 63 6f  0d 02 e4 09 4c 53 52 20  |.STA yco....LSR |
000006f0  41 0d 02 ee 09 4c 53 52  20 41 0d 02 f8 0b 41 44  |A....LSR A....AD|
00000700  43 20 79 63 6f 0d 03 02  09 52 4f 52 20 41 0d 03  |C yco....ROR A..|
00000710  0c 09 52 4f 52 20 41 0d  03 16 0b 53 54 41 20 79  |..ROR A....STA y|
00000720  63 6f 0d 03 20 09 52 4f  52 20 41 0d 03 2a 0a 80  |co.. .ROR A..*..|
00000730  20 23 26 43 30 0d 03 34  07 43 4c 43 0d 03 3e 0c  | #&C0..4.CLC..>.|
00000740  41 44 43 20 77 6f 72 6b  0d 03 48 0c 53 54 41 20  |ADC work..H.STA |
00000750  77 6f 72 6b 0d 03 52 0b  4c 44 41 20 79 63 6f 0d  |work..R.LDA yco.|
00000760  03 5c 0a 80 20 23 26 33  46 0d 03 66 0f 41 44 43  |.\.. #&3F..f.ADC|
00000770  20 77 6f 72 6b 5f 68 69  0d 03 70 0f 53 54 41 20  | work_hi..p.STA |
00000780  77 6f 72 6b 5f 68 69 0d  03 7a 0b 4c 44 41 20 78  |work_hi..z.LDA x|
00000790  63 6f 0d 03 84 08 80 20  23 37 0d 03 8e 07 54 41  |co..... #7....TA|
000007a0  59 0d 03 98 0c 4c 44 41  20 23 26 38 30 0d 03 a2  |Y....LDA #&80...|
000007b0  0a 43 50 59 20 23 30 0d  03 ac 0c 42 45 51 20 65  |.CPY #0....BEQ e|
000007c0  78 69 74 0d 03 b6 09 2e  6c 6f 6f 70 0d 03 c0 09  |xit.....loop....|
000007d0  4c 53 52 20 41 0d 03 ca  07 44 45 59 0d 03 d4 0c  |LSR A....DEY....|
000007e0  42 4e 45 20 6c 6f 6f 70  0d 03 de 09 2e 65 78 69  |BNE loop.....exi|
000007f0  74 0d 03 e8 0e 82 20 28  77 6f 72 6b 29 2c 59 0d  |t..... (work),Y.|
00000800  03 f2 10 53 54 41 20 28  77 6f 72 6b 29 2c 59 0d  |...STA (work),Y.|
00000810  03 fc 07 52 54 53 0d 04  06 05 5d 0d 04 10 0a ed  |...RTS....].....|
00000820  20 70 61 73 73 0d 04 1a  1b 66 72 61 64 64 4c 4f  | pass....fraddLO|
00000830  3d 26 37 39 3a 66 72 61  64 64 48 49 3d 26 37 41  |=&79:fraddHI=&7A|
00000840  0d 04 24 15 79 6d 69 6e  3d 26 37 37 3a 79 6d 61  |..$.ymin=&77:yma|
00000850  78 3d 26 37 38 0d 04 2e  14 e3 20 70 61 73 73 3d  |x=&78..... pass=|
00000860  30 20 b8 20 32 20 88 20  32 0d 04 38 10 50 25 3d  |0 . 2 . 2..8.P%=|
00000870  63 6f 64 65 25 2b 32 35  36 0d 04 42 0d 5b 4f 50  |code%+256..B.[OP|
00000880  54 20 70 61 73 73 0d 04  4c 0b 2e 70 6f 69 6e 74  |T pass..L..point|
00000890  73 0d 04 56 0a 4c 44 59  20 23 30 0d 04 60 0f 2e  |s..V.LDY #0..`..|
000008a0  70 6f 69 6e 74 5f 6c 6f  6f 70 0d 04 6a 10 4a 53  |point_loop..j.JS|
000008b0  52 20 64 6f 5f 70 6f 69  6e 74 0d 04 74 07 53 45  |R do_point..t.SE|
000008c0  43 0d 04 7e 10 4c 44 41  20 79 70 6f 73 4c 4f 2c  |C..~.LDA yposLO,|
000008d0  59 0d 04 88 0f 53 42 43  20 66 72 61 64 64 4c 4f  |Y....SBC fraddLO|
000008e0  0d 04 92 10 53 54 41 20  79 70 6f 73 4c 4f 2c 59  |....STA yposLO,Y|
000008f0  0d 04 9c 10 4c 44 41 20  79 70 6f 73 48 49 2c 59  |....LDA yposHI,Y|
00000900  0d 04 a6 0f 53 42 43 20  66 72 61 64 64 48 49 0d  |....SBC fraddHI.|
00000910  04 b0 10 53 54 41 20 79  70 6f 73 48 49 2c 59 0d  |...STA yposHI,Y.|
00000920  04 ba 0a 42 43 53 20 64  6f 0d 04 c4 41 4c 44 41  |...BCS do...ALDA|
00000930  79 70 6f 73 4c 4f 2c 59  3a 41 44 43 23 31 30 34  |yposLO,Y:ADC#104|
00000940  3a 53 54 41 79 70 6f 73  4c 4f 2c 59 3a 4c 44 41  |:STAyposLO,Y:LDA|
00000950  79 70 6f 73 48 49 2c 59  3a 41 44 43 23 31 3a 53  |yposHI,Y:ADC#1:S|
00000960  54 41 79 70 6f 73 48 49  2c 59 0d 04 ce 07 2e 64  |TAyposHI,Y.....d|
00000970  6f 0d 04 d8 10 4a 53 52  20 64 6f 5f 70 6f 69 6e  |o....JSR do_poin|
00000980  74 0d 04 e2 07 49 4e 59  0d 04 ec 0b 43 50 59 20  |t....INY....CPY |
00000990  23 34 30 0d 04 f6 12 42  4e 45 20 70 6f 69 6e 74  |#40....BNE point|
000009a0  5f 6c 6f 6f 70 0d 05 00  07 52 54 53 0d 05 0a 0d  |_loop....RTS....|
000009b0  2e 64 6f 5f 70 6f 69 6e  74 0d 05 14 15 43 50 59  |.do_point....CPY|
000009c0  20 79 6d 69 6e 3a 42 43  43 69 6e 76 69 73 0d 05  | ymin:BCCinvis..|
000009d0  1e 15 43 50 59 20 79 6d  61 78 3a 42 43 53 69 6e  |..CPY ymax:BCSin|
000009e0  76 69 73 0d 05 28 07 43  4c 43 0d 05 32 10 4c 44  |vis..(.CLC..2.LD|
000009f0  41 20 79 70 6f 73 4c 4f  2c 59 0d 05 3c 19 41 44  |A yposLO,Y..<.AD|
00000a00  43 20 23 28 73 69 6e 5f  74 61 62 6c 65 20 83 32  |C #(sin_table .2|
00000a10  35 36 29 0d 05 46 0f 53  54 41 20 69 6e 64 65 78  |56)..F.STA index|
00000a20  4c 4f 0d 05 50 10 4c 44  41 20 79 70 6f 73 48 49  |LO..P.LDA yposHI|
00000a30  2c 59 0d 05 5a 19 41 44  43 20 23 28 73 69 6e 5f  |,Y..Z.ADC #(sin_|
00000a40  74 61 62 6c 65 20 81 32  35 36 29 0d 05 64 0f 53  |table .256)..d.S|
00000a50  54 41 20 69 6e 64 65 78  48 49 0d 05 6e 0a 4c 44  |TA indexHI..n.LD|
00000a60  58 20 23 30 0d 05 78 13  4c 44 41 20 28 69 6e 64  |X #0..x.LDA (ind|
00000a70  65 78 4c 4f 2c 58 29 0d  05 82 0b 53 54 41 20 79  |exLO,X)....STA y|
00000a80  63 6f 0d 05 8c 0e 4c 44  41 20 78 70 6f 73 2c 59  |co....LDA xpos,Y|
00000a90  0d 05 96 09 41 53 4c 20  41 0d 05 a0 0b 53 54 41  |....ASL A....STA|
00000aa0  20 78 63 6f 0d 05 aa 0a  4c 44 41 20 23 30 0d 05  | xco....LDA #0..|
00000ab0  b4 09 52 4f 4c 20 41 0d  05 be 0e 53 54 41 20 78  |..ROL A....STA x|
00000ac0  63 6f 5f 68 69 0d 05 c8  07 54 59 41 0d 05 d2 07  |co_hi....TYA....|
00000ad0  50 48 41 0d 05 dc 0c 4a  53 52 20 70 6c 6f 74 0d  |PHA....JSR plot.|
00000ae0  05 e6 07 50 4c 41 0d 05  f0 07 54 41 59 0d 05 fa  |...PLA....TAY...|
00000af0  0a 2e 69 6e 76 69 73 0d  06 04 07 52 54 53 0d 06  |..invis....RTS..|
00000b00  0e 05 5d 0d 06 18 0a ed  20 70 61 73 73 0d 06 22  |..]..... pass.."|
00000b10  05 e1 0d 06 2c 0c dd f2  72 65 76 65 61 6c 0d 06  |....,...reveal..|
00000b20  36 13 e7 20 49 3d 31 33  36 20 8c 20 f2 6c 65 66  |6.. I=136 . .lef|
00000b30  74 0d 06 40 14 e7 20 49  3d 31 33 37 20 8c 20 f2  |t..@.. I=137 . .|
00000b40  72 69 67 68 74 0d 06 4a  62 e7 20 49 3d 97 28 22  |right..Jb. I=.("|
00000b50  52 22 29 20 84 20 28 3f  79 6d 69 6e 3d 30 20 80  |R") . (?ymin=0 .|
00000b60  20 3f 79 6d 61 78 3d 34  30 29 20 8c 20 f5 20 f2  | ?ymax=40) . . .|
00000b70  6c 65 66 74 3a f2 72 69  67 68 74 3a fd 20 3f 79  |left:.right:. ?y|
00000b80  6d 69 6e 3d 30 20 80 20  3f 79 6d 61 78 3d 34 30  |min=0 . ?ymax=40|
00000b90  3a 65 6e 74 69 72 65 3d  b9 3a f1 20 8a 30 2c 31  |:entire=.:. .0,1|
00000ba0  29 20 89 28 38 30 29 0d  06 54 05 e1 0d 06 5e 0a  |) .(80)..T....^.|
00000bb0  dd f2 6c 65 66 74 0d 06  68 31 e7 20 3f 79 6d 69  |..left..h1. ?ymi|
00000bc0  6e 3e 30 20 8c 20 3f 79  6d 69 6e 3d 3f 79 6d 69  |n>0 . ?ymin=?ymi|
00000bd0  6e 2d 31 3a 59 25 3d 3f  79 6d 69 6e 3a d6 20 64  |n-1:Y%=?ymin:. d|
00000be0  6f 5f 70 6f 69 6e 74 0d  06 72 05 e1 0d 06 7c 0b  |o_point..r....|.|
00000bf0  dd f2 72 69 67 68 74 0d  06 86 32 e7 20 3f 79 6d  |..right...2. ?ym|
00000c00  61 78 3c 34 30 20 8c 20  59 25 3d 3f 79 6d 61 78  |ax<40 . Y%=?ymax|
00000c10  3a 3f 79 6d 61 78 3d 3f  79 6d 61 78 2b 31 3a d6  |:?ymax=?ymax+1:.|
00000c20  20 64 6f 5f 70 6f 69 6e  74 0d 06 90 05 e1 0d 06  | do_point.......|
00000c30  9a 28 f1 20 8a 30 2c 34  29 20 89 28 38 30 29 3b  |.(. .0,4) .(80);|
00000c40  8a 33 2c 34 29 22 53 70  61 63 65 20 3a 20 50 61  |.3,4)"Space : Pa|
00000c50  75 73 65 22 3a f8 0d 06  a4 43 f1 20 8a 30 2c 34  |use":....C. .0,4|
00000c60  29 20 89 28 34 30 29 3b  8a 33 2c 34 29 22 53 70  |) .(40);.3,4)"Sp|
00000c70  61 63 65 20 3a 20 43 6f  6e 74 69 6e 75 65 22 27  |ace : Continue"'|
00000c80  22 20 20 52 65 74 75 72  6e 20 3a 20 4e 65 78 74  |"  Return : Next|
00000c90  20 46 72 61 6d 65 22 3a  f8 0d ff                 | Frame":...|
00000c9b