#� Transverse wave demonstration
� by Gregory Allen Jan 1989
� (c) G. J. Allen '89
( �1
2� code% 1023
<"�sin_table 255,ypos 39,xpos 39
F�assem:�
P)� 2:� "Transverse Wave Demonstration"
Z) � 1:�"============================="
d  �:�:�:�:� 2:� "PLEASE WAIT"
n5� F%=0 � 255:?(sin_table+F%)=�(F%/128*�)*50+128:�
x
 tf%=6
�
 of%=1
� ?ymin=20:?ymax=21
�5� F%=0 � 39:xpos?F%=F%*4:ypos?F%=(F%*tf%) � &FF:�
�$ �4:� 19,1,3,0,0,0,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
�2 �'�5) �254;",";�255;" : Reveal next particle"
�" � �7)"R : Reveal entire wave"
�?fradd=of%:Y%=20:� do_point
�
 entire=�
� pause=�:� �TPg
�
 *FX 21,0
��
�
I=�(0)

F� � pause � � points � � pause � I=13 � � points:� points:� points

	 � I=-1 � �TXA

 � � entire � �reveal

1 � I=32 � pause=� pause:� 1-pause � �TPg,�TZg

� �

,:

6��assem

@xco=&70

Jxco_hi=&71

Tyco=&72

^work=&73

hwork_hi=&74

r� pass=0 � 2 � 2

|P%=code%

�
[OPT pass

�	.plot

�LDA #&FF

�SEC

�SBC yco

�STA yco

�� #7

�STA work

�LDA yco

�
� #&F8

�STA yco

�LDA xco

�
� #&F8
CLC
ADC work
STA work
&LDA xco_hi
0ADC #&58
:STA work_hi
DLDA yco
N	LSR A
XSTA yco
b	LSR A
l	LSR A
vADC yco
�	ROR A
�	ROR A
�STA yco
�	ROR A
�
� #&C0
�CLC
�ADC work
�STA work
�LDA yco
�
� #&3F
�ADC work_hi
�STA work_hi
�LDA xco
� #7
TAY
LDA #&80
 
CPY #0
*BEQ exit
4	.loop
>	LSR A
HDEY
RBNE loop
\	.exit
f� (work),Y
pSTA (work),Y
zRTS
�]
�
� pass
�
fradd=&75
� ymin=&76:ymax=&77
�� pass=0 � 2 � 2
�P%=code%+256
�
[OPT pass
�.points
�
LDY #0
�.point_loop
�JSR do_point
�LDA ypos,Y
�SEC

SBC fradd
STA ypos,Y
JSR do_point
$INY
.CPY #40
8BNE point_loop
BRTS
L
.do_point
VCPY ymin:BCCinvis
`CPY ymax:BCSinvis
jLDA ypos,Y
tTAX
~LDA sin_table,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
(�
2
 ��reveal
< � I=136 � �left
F � I=137 � �right
Pc � I=�("R") � (?ymin=0 � ?ymax=40) � � �left:�right:� ?ymin=0 � ?ymax=40:entire=�:� �0,1) �(80)
Z �
d ��left
n2 � ?ymin>0 � ?ymin=?ymin-1:Y%=?ymin:� do_point
x �
� ��right
�3 � ?ymax<40 � Y%=?ymax:?ymax=?ymax+1:� do_point
� �
') � �0,3) �(80);�3,3)"Space : Pause":�
'D � �0,3) �(40);�3,3)"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 07 20  |. Allen '89..(. |
00000060  eb 31 0d 00 32 10 de 20  63 6f 64 65 25 20 31 30  |.1..2.. code% 10|
00000070  32 33 0d 00 3c 22 de 73  69 6e 5f 74 61 62 6c 65  |23..<".sin_table|
00000080  20 32 35 35 2c 79 70 6f  73 20 33 39 2c 78 70 6f  | 255,ypos 39,xpo|
00000090  73 20 33 39 0d 00 46 0c  f2 61 73 73 65 6d 3a db  |s 39..F..assem:.|
000000a0  0d 00 50 29 fb 20 32 3a  f1 20 22 54 72 61 6e 73  |..P). 2:. "Trans|
000000b0  76 65 72 73 65 20 57 61  76 65 20 44 65 6d 6f 6e  |verse Wave Demon|
000000c0  73 74 72 61 74 69 6f 6e  22 0d 00 5a 29 20 fb 20  |stration"..Z) . |
000000d0  31 3a f1 22 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |1:."============|
000000e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000000f0  3d 22 0d 00 64 20 20 f1  3a f1 3a f1 3a f1 3a fb  |="..d  .:.:.:.:.|
00000100  20 32 3a f1 20 22 50 4c  45 41 53 45 20 57 41 49  | 2:. "PLEASE WAI|
00000110  54 22 0d 00 6e 35 e3 20  46 25 3d 30 20 b8 20 32  |T"..n5. F%=0 . 2|
00000120  35 35 3a 3f 28 73 69 6e  5f 74 61 62 6c 65 2b 46  |55:?(sin_table+F|
00000130  25 29 3d b5 28 46 25 2f  31 32 38 2a af 29 2a 35  |%)=.(F%/128*.)*5|
00000140  30 2b 31 32 38 3a ed 0d  00 78 0a 20 74 66 25 3d  |0+128:...x. tf%=|
00000150  36 0d 00 82 0a 20 6f 66  25 3d 31 0d 00 8c 16 20  |6.... of%=1.... |
00000160  3f 79 6d 69 6e 3d 32 30  3a 3f 79 6d 61 78 3d 32  |?ymin=20:?ymax=2|
00000170  31 0d 00 96 35 e3 20 46  25 3d 30 20 b8 20 33 39  |1...5. F%=0 . 39|
00000180  3a 78 70 6f 73 3f 46 25  3d 46 25 2a 34 3a 79 70  |:xpos?F%=F%*4:yp|
00000190  6f 73 3f 46 25 3d 28 46  25 2a 74 66 25 29 20 80  |os?F%=(F%*tf%) .|
000001a0  20 26 46 46 3a ed 0d 00  a0 24 20 eb 34 3a ef 20  | &FF:....$ .4:. |
000001b0  31 39 2c 31 2c 33 2c 30  2c 30 2c 30 2c 32 33 2c  |19,1,3,0,0,0,23,|
000001c0  31 2c 30 3b 30 3b 30 3b  30 3b 0d 00 aa 0c 20 2a  |1,0;0;0;0;.... *|
000001d0  46 58 20 34 2c 31 0d 00  af 0d 20 2a 46 58 20 31  |FX 4,1.... *FX 1|
000001e0  31 2c 30 0d 00 b4 2b 20  ef 20 32 33 2c 32 35 34  |1,0...+ . 23,254|
000001f0  2c 26 31 30 2c 26 32 30  2c 26 34 30 2c 26 46 46  |,&10,&20,&40,&FF|
00000200  2c 26 34 30 2c 26 32 30  2c 26 31 30 2c 30 0d 00  |,&40,&20,&10,0..|
00000210  be 1f 20 ef 20 32 33 2c  32 35 35 2c 38 2c 34 2c  |.. . 23,255,8,4,|
00000220  32 2c 32 35 35 2c 32 2c  34 2c 38 2c 30 0d 00 c8  |2,255,2,4,8,0...|
00000230  32 20 f1 27 8a 35 29 20  bd 32 35 34 3b 22 2c 22  |2 .'.5) .254;","|
00000240  3b bd 32 35 35 3b 22 20  3a 20 52 65 76 65 61 6c  |;.255;" : Reveal|
00000250  20 6e 65 78 74 20 70 61  72 74 69 63 6c 65 22 0d  | next particle".|
00000260  00 d2 22 20 f1 20 8a 37  29 22 52 20 3a 20 52 65  |.." . .7)"R : Re|
00000270  76 65 61 6c 20 65 6e 74  69 72 65 20 77 61 76 65  |veal entire wave|
00000280  22 0d 00 dc 1f 3f 66 72  61 64 64 3d 6f 66 25 3a  |"....?fradd=of%:|
00000290  59 25 3d 32 30 3a d6 20  64 6f 5f 70 6f 69 6e 74  |Y%=20:. do_point|
000002a0  0d 00 e6 0d 20 65 6e 74  69 72 65 3d a3 0d 00 f0  |.... entire=....|
000002b0  13 20 70 61 75 73 65 3d  a3 3a e4 20 8d 54 50 67  |. pause=.:. .TPg|
000002c0  0d 00 f5 0d 20 2a 46 58  20 32 31 2c 30 0d 00 fa  |.... *FX 21,0...|
000002d0  05 f5 0d 00 ff 0a 49 3d  a6 28 30 29 0d 01 04 46  |......I=.(0)...F|
000002e0  e7 20 ac 20 70 61 75 73  65 20 8c 20 d6 20 70 6f  |. . pause . . po|
000002f0  69 6e 74 73 20 8b 20 e7  20 70 61 75 73 65 20 80  |ints . . pause .|
00000300  20 49 3d 31 33 20 8c 20  d6 20 70 6f 69 6e 74 73  | I=13 . . points|
00000310  3a d6 20 70 6f 69 6e 74  73 3a d6 20 70 6f 69 6e  |:. points:. poin|
00000320  74 73 0d 01 09 12 20 e7  20 49 3d 2d 31 20 8c 20  |ts.... . I=-1 . |
00000330  8d 54 58 41 0d 01 0e 19  20 e7 20 ac 20 65 6e 74  |.TXA.... . . ent|
00000340  69 72 65 20 8c 20 f2 72  65 76 65 61 6c 0d 01 13  |ire . .reveal...|
00000350  31 20 e7 20 49 3d 33 32  20 8c 20 70 61 75 73 65  |1 . I=32 . pause|
00000360  3d ac 20 70 61 75 73 65  3a ee 20 31 2d 70 61 75  |=. pause:. 1-pau|
00000370  73 65 20 e4 20 8d 54 50  67 2c 8d 54 5a 67 0d 01  |se . .TPg,.TZg..|
00000380  18 07 fd 20 a3 0d 01 2c  05 3a 0d 01 36 0b dd f2  |... ...,.:..6...|
00000390  61 73 73 65 6d 0d 01 40  0b 78 63 6f 3d 26 37 30  |assem..@.xco=&70|
000003a0  0d 01 4a 0e 78 63 6f 5f  68 69 3d 26 37 31 0d 01  |..J.xco_hi=&71..|
000003b0  54 0b 79 63 6f 3d 26 37  32 0d 01 5e 0c 77 6f 72  |T.yco=&72..^.wor|
000003c0  6b 3d 26 37 33 0d 01 68  0f 77 6f 72 6b 5f 68 69  |k=&73..h.work_hi|
000003d0  3d 26 37 34 0d 01 72 14  e3 20 70 61 73 73 3d 30  |=&74..r.. pass=0|
000003e0  20 b8 20 32 20 88 20 32  0d 01 7c 0c 50 25 3d 63  | . 2 . 2..|.P%=c|
000003f0  6f 64 65 25 0d 01 86 0d  5b 4f 50 54 20 70 61 73  |ode%....[OPT pas|
00000400  73 0d 01 90 09 2e 70 6c  6f 74 0d 01 9a 0c 4c 44  |s.....plot....LD|
00000410  41 20 23 26 46 46 0d 01  a4 07 53 45 43 0d 01 ae  |A #&FF....SEC...|
00000420  0b 53 42 43 20 79 63 6f  0d 01 b8 0b 53 54 41 20  |.SBC yco....STA |
00000430  79 63 6f 0d 01 c2 08 80  20 23 37 0d 01 cc 0c 53  |yco..... #7....S|
00000440  54 41 20 77 6f 72 6b 0d  01 d6 0b 4c 44 41 20 79  |TA work....LDA y|
00000450  63 6f 0d 01 e0 0a 80 20  23 26 46 38 0d 01 ea 0b  |co..... #&F8....|
00000460  53 54 41 20 79 63 6f 0d  01 f4 0b 4c 44 41 20 78  |STA yco....LDA x|
00000470  63 6f 0d 01 fe 0a 80 20  23 26 46 38 0d 02 08 07  |co..... #&F8....|
00000480  43 4c 43 0d 02 12 0c 41  44 43 20 77 6f 72 6b 0d  |CLC....ADC work.|
00000490  02 1c 0c 53 54 41 20 77  6f 72 6b 0d 02 26 0e 4c  |...STA work..&.L|
000004a0  44 41 20 78 63 6f 5f 68  69 0d 02 30 0c 41 44 43  |DA xco_hi..0.ADC|
000004b0  20 23 26 35 38 0d 02 3a  0f 53 54 41 20 77 6f 72  | #&58..:.STA wor|
000004c0  6b 5f 68 69 0d 02 44 0b  4c 44 41 20 79 63 6f 0d  |k_hi..D.LDA yco.|
000004d0  02 4e 09 4c 53 52 20 41  0d 02 58 0b 53 54 41 20  |.N.LSR A..X.STA |
000004e0  79 63 6f 0d 02 62 09 4c  53 52 20 41 0d 02 6c 09  |yco..b.LSR A..l.|
000004f0  4c 53 52 20 41 0d 02 76  0b 41 44 43 20 79 63 6f  |LSR A..v.ADC yco|
00000500  0d 02 80 09 52 4f 52 20  41 0d 02 8a 09 52 4f 52  |....ROR A....ROR|
00000510  20 41 0d 02 94 0b 53 54  41 20 79 63 6f 0d 02 9e  | A....STA yco...|
00000520  09 52 4f 52 20 41 0d 02  a8 0a 80 20 23 26 43 30  |.ROR A..... #&C0|
00000530  0d 02 b2 07 43 4c 43 0d  02 bc 0c 41 44 43 20 77  |....CLC....ADC w|
00000540  6f 72 6b 0d 02 c6 0c 53  54 41 20 77 6f 72 6b 0d  |ork....STA work.|
00000550  02 d0 0b 4c 44 41 20 79  63 6f 0d 02 da 0a 80 20  |...LDA yco..... |
00000560  23 26 33 46 0d 02 e4 0f  41 44 43 20 77 6f 72 6b  |#&3F....ADC work|
00000570  5f 68 69 0d 02 ee 0f 53  54 41 20 77 6f 72 6b 5f  |_hi....STA work_|
00000580  68 69 0d 02 f8 0b 4c 44  41 20 78 63 6f 0d 03 02  |hi....LDA xco...|
00000590  08 80 20 23 37 0d 03 0c  07 54 41 59 0d 03 16 0c  |.. #7....TAY....|
000005a0  4c 44 41 20 23 26 38 30  0d 03 20 0a 43 50 59 20  |LDA #&80.. .CPY |
000005b0  23 30 0d 03 2a 0c 42 45  51 20 65 78 69 74 0d 03  |#0..*.BEQ exit..|
000005c0  34 09 2e 6c 6f 6f 70 0d  03 3e 09 4c 53 52 20 41  |4..loop..>.LSR A|
000005d0  0d 03 48 07 44 45 59 0d  03 52 0c 42 4e 45 20 6c  |..H.DEY..R.BNE l|
000005e0  6f 6f 70 0d 03 5c 09 2e  65 78 69 74 0d 03 66 0e  |oop..\..exit..f.|
000005f0  82 20 28 77 6f 72 6b 29  2c 59 0d 03 70 10 53 54  |. (work),Y..p.ST|
00000600  41 20 28 77 6f 72 6b 29  2c 59 0d 03 7a 07 52 54  |A (work),Y..z.RT|
00000610  53 0d 03 84 05 5d 0d 03  8e 0a ed 20 70 61 73 73  |S....]..... pass|
00000620  0d 03 98 0d 66 72 61 64  64 3d 26 37 35 0d 03 a2  |....fradd=&75...|
00000630  16 20 79 6d 69 6e 3d 26  37 36 3a 79 6d 61 78 3d  |. ymin=&76:ymax=|
00000640  26 37 37 0d 03 ac 14 e3  20 70 61 73 73 3d 30 20  |&77..... pass=0 |
00000650  b8 20 32 20 88 20 32 0d  03 b6 10 50 25 3d 63 6f  |. 2 . 2....P%=co|
00000660  64 65 25 2b 32 35 36 0d  03 c0 0d 5b 4f 50 54 20  |de%+256....[OPT |
00000670  70 61 73 73 0d 03 ca 0b  2e 70 6f 69 6e 74 73 0d  |pass.....points.|
00000680  03 d4 0a 4c 44 59 20 23  30 0d 03 de 0f 2e 70 6f  |...LDY #0.....po|
00000690  69 6e 74 5f 6c 6f 6f 70  0d 03 e8 10 4a 53 52 20  |int_loop....JSR |
000006a0  64 6f 5f 70 6f 69 6e 74  0d 03 f2 0e 4c 44 41 20  |do_point....LDA |
000006b0  79 70 6f 73 2c 59 0d 03  fc 07 53 45 43 0d 04 06  |ypos,Y....SEC...|
000006c0  0d 53 42 43 20 66 72 61  64 64 0d 04 10 0e 53 54  |.SBC fradd....ST|
000006d0  41 20 79 70 6f 73 2c 59  0d 04 1a 10 4a 53 52 20  |A ypos,Y....JSR |
000006e0  64 6f 5f 70 6f 69 6e 74  0d 04 24 07 49 4e 59 0d  |do_point..$.INY.|
000006f0  04 2e 0b 43 50 59 20 23  34 30 0d 04 38 12 42 4e  |...CPY #40..8.BN|
00000700  45 20 70 6f 69 6e 74 5f  6c 6f 6f 70 0d 04 42 07  |E point_loop..B.|
00000710  52 54 53 0d 04 4c 0d 2e  64 6f 5f 70 6f 69 6e 74  |RTS..L..do_point|
00000720  0d 04 56 15 43 50 59 20  79 6d 69 6e 3a 42 43 43  |..V.CPY ymin:BCC|
00000730  69 6e 76 69 73 0d 04 60  15 43 50 59 20 79 6d 61  |invis..`.CPY yma|
00000740  78 3a 42 43 53 69 6e 76  69 73 0d 04 6a 0e 4c 44  |x:BCSinvis..j.LD|
00000750  41 20 79 70 6f 73 2c 59  0d 04 74 07 54 41 58 0d  |A ypos,Y..t.TAX.|
00000760  04 7e 13 4c 44 41 20 73  69 6e 5f 74 61 62 6c 65  |.~.LDA sin_table|
00000770  2c 58 0d 04 88 0b 53 54  41 20 79 63 6f 0d 04 92  |,X....STA yco...|
00000780  0e 4c 44 41 20 78 70 6f  73 2c 59 0d 04 9c 09 41  |.LDA xpos,Y....A|
00000790  53 4c 20 41 0d 04 a6 0b  53 54 41 20 78 63 6f 0d  |SL A....STA xco.|
000007a0  04 b0 0a 4c 44 41 20 23  30 0d 04 ba 09 52 4f 4c  |...LDA #0....ROL|
000007b0  20 41 0d 04 c4 0e 53 54  41 20 78 63 6f 5f 68 69  | A....STA xco_hi|
000007c0  0d 04 ce 07 54 59 41 0d  04 d8 07 50 48 41 0d 04  |....TYA....PHA..|
000007d0  e2 0c 4a 53 52 20 70 6c  6f 74 0d 04 ec 07 50 4c  |..JSR plot....PL|
000007e0  41 0d 04 f6 07 54 41 59  0d 05 00 0a 2e 69 6e 76  |A....TAY.....inv|
000007f0  69 73 0d 05 0a 07 52 54  53 0d 05 14 05 5d 0d 05  |is....RTS....]..|
00000800  1e 0a ed 20 70 61 73 73  0d 05 28 05 e1 0d 05 32  |... pass..(....2|
00000810  0d 20 dd f2 72 65 76 65  61 6c 0d 05 3c 14 20 e7  |. ..reveal..<. .|
00000820  20 49 3d 31 33 36 20 8c  20 f2 6c 65 66 74 0d 05  | I=136 . .left..|
00000830  46 15 20 e7 20 49 3d 31  33 37 20 8c 20 f2 72 69  |F. . I=137 . .ri|
00000840  67 68 74 0d 05 50 63 20  e7 20 49 3d 97 28 22 52  |ght..Pc . I=.("R|
00000850  22 29 20 84 20 28 3f 79  6d 69 6e 3d 30 20 80 20  |") . (?ymin=0 . |
00000860  3f 79 6d 61 78 3d 34 30  29 20 8c 20 f5 20 f2 6c  |?ymax=40) . . .l|
00000870  65 66 74 3a f2 72 69 67  68 74 3a fd 20 3f 79 6d  |eft:.right:. ?ym|
00000880  69 6e 3d 30 20 80 20 3f  79 6d 61 78 3d 34 30 3a  |in=0 . ?ymax=40:|
00000890  65 6e 74 69 72 65 3d b9  3a f1 20 8a 30 2c 31 29  |entire=.:. .0,1)|
000008a0  20 89 28 38 30 29 0d 05  5a 06 20 e1 0d 05 64 0b  | .(80)..Z. ...d.|
000008b0  20 dd f2 6c 65 66 74 0d  05 6e 32 20 e7 20 3f 79  | ..left..n2 . ?y|
000008c0  6d 69 6e 3e 30 20 8c 20  3f 79 6d 69 6e 3d 3f 79  |min>0 . ?ymin=?y|
000008d0  6d 69 6e 2d 31 3a 59 25  3d 3f 79 6d 69 6e 3a d6  |min-1:Y%=?ymin:.|
000008e0  20 64 6f 5f 70 6f 69 6e  74 0d 05 78 06 20 e1 0d  | do_point..x. ..|
000008f0  05 82 0c 20 dd f2 72 69  67 68 74 0d 05 8c 33 20  |... ..right...3 |
00000900  e7 20 3f 79 6d 61 78 3c  34 30 20 8c 20 59 25 3d  |. ?ymax<40 . Y%=|
00000910  3f 79 6d 61 78 3a 3f 79  6d 61 78 3d 3f 79 6d 61  |?ymax:?ymax=?yma|
00000920  78 2b 31 3a d6 20 64 6f  5f 70 6f 69 6e 74 0d 05  |x+1:. do_point..|
00000930  96 06 20 e1 0d 27 10 29  20 f1 20 8a 30 2c 33 29  |.. ..'.) . .0,3)|
00000940  20 89 28 38 30 29 3b 8a  33 2c 33 29 22 53 70 61  | .(80);.3,3)"Spa|
00000950  63 65 20 3a 20 50 61 75  73 65 22 3a f8 0d 27 1a  |ce : Pause":..'.|
00000960  44 20 f1 20 8a 30 2c 33  29 20 89 28 34 30 29 3b  |D . .0,3) .(40);|
00000970  8a 33 2c 33 29 22 53 70  61 63 65 20 3a 20 43 6f  |.3,3)"Space : Co|
00000980  6e 74 69 6e 75 65 22 27  22 20 20 52 65 74 75 72  |ntinue"'"  Retur|
00000990  6e 20 3a 20 4e 65 78 74  20 46 72 61 6d 65 22 3a  |n : Next Frame":|
000009a0  f8 0d ff                                          |...|
000009a3