#� 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"
R) � 1:�"============================="
U  �:�:�:�:� 2:� "PLEASE WAIT"
Z5� F%=0 � 255:?(sin_table+F%)=�(F%/128*�)*50+128:�
d
 tf%=6
n
 of%=1
s ?ymin=20:?ymax=21
x5� F%=0 � 39:xpos?F%=F%*4:ypos?F%=(F%*tf%) � &FF:�
y$ �4:� 19,1,3,0,0,0,23,1,0;0;0;0;
z *FX 4,1
{+ � 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"
�5 � �7)"R : Reveal entire wave"'"   Space : Pause"
�?fradd=of%:Y%=20:� do_point
� entire=�:pause=�
��
�� points
� � entire � �t`@
� � �-26 � �left:l=� � l=�
� � �-122 � �right:r=� � r=�
�_ � �-52 � (?ymin=0 � ?ymax=40) � � �left:�right:� ?ymin=0 � ?ymax=40:entire=�:� �0,1) �(80)
�� �(0)=32 � pause
�A=�:�:� �Dd@
�:
���assem
�xco=&70
�xco_hi=&71
�yco=&72
�work=&73
�work_hi=&74
�� pass=0 � 2 � 2

P%=code%


[OPT pass

	.plot

"LDA #&FF

,SEC

6SBC yco

@STA yco

J� #7

TSTA work

^LDA yco

h
� #&F8

rSTA yco

|LDA 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
0
� #&C0
:CLC
DADC work
NSTA work
XLDA yco
b
� #&3F
lADC work_hi
vSTA work_hi
�LDA xco
�� #7
�TAY
�LDA #&80
�
CPY #0
�BEQ exit
�	.loop
�	LSR A
�DEY
�BNE loop
�	.exit
�� (work),Y
�STA (work),Y
RTS
]

� pass
 
fradd=&75
% ymin=&76:ymax=&77
*� pass=0 � 2 � 2
4P%=code%+256
>
[OPT pass
H.points
R
LDY #0
\.point_loop
fJSR do_point
pLDA ypos,Y
zSEC
�
SBC fradd
�STA ypos,Y
�JSR do_point
�INY
�CPY #40
�BNE point_loop
�RTS
�
.do_point
�CPY ymin:BCCinvis
�CPY ymax:BCSinvis
�LDA ypos,Y
�TAX
�LDA sin_table,X
�STA yco
�LDA xpos,Y
	ASL A
STA xco

LDA #0
$	ROL A
.STA xco_hi
8TYA
BPHA
LJSR plot
VPLA
`TAY
e
.invis
jRTS
t]
~
� pass
��
� ��left
�8 � ?ymin>0 � � l � ?ymin=?ymin-1:Y%=?ymin:� do_point
� �
� ��right
�9 � ?ymax<40 � � r � Y%=?ymax:?ymax=?ymax+1:� do_point
� �
�

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 52 29 20 fb 20  |stration"..R) . |
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 55 20 20 f1  3a f1 3a f1 3a f1 3a fb  |="..U  .:.:.:.:.|
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 5a 35 e3 20  46 25 3d 30 20 b8 20 32  |T"..Z5. 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 64 0a 20 74 66 25 3d  |0+128:...d. tf%=|
00000150  36 0d 00 6e 0a 20 6f 66  25 3d 31 0d 00 73 16 20  |6..n. of%=1..s. |
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 78 35 e3 20 46  25 3d 30 20 b8 20 33 39  |1..x5. 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  79 24 20 eb 34 3a ef 20  | &FF:...y$ .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 7a 0c 20 2a  |1,0;0;0;0;..z. *|
000001d0  46 58 20 34 2c 31 0d 00  7b 2b 20 ef 20 32 33 2c  |FX 4,1..{+ . 23,|
000001e0  32 35 34 2c 26 31 30 2c  26 32 30 2c 26 34 30 2c  |254,&10,&20,&40,|
000001f0  26 46 46 2c 26 34 30 2c  26 32 30 2c 26 31 30 2c  |&FF,&40,&20,&10,|
00000200  30 0d 00 7c 1f 20 ef 20  32 33 2c 32 35 35 2c 38  |0..|. . 23,255,8|
00000210  2c 34 2c 32 2c 32 35 35  2c 32 2c 34 2c 38 2c 30  |,4,2,255,2,4,8,0|
00000220  0d 00 7f 32 20 f1 27 8a  35 29 20 bd 32 35 34 3b  |...2 .'.5) .254;|
00000230  22 2c 22 3b bd 32 35 35  3b 22 20 3a 20 52 65 76  |",";.255;" : Rev|
00000240  65 61 6c 20 6e 65 78 74  20 70 61 72 74 69 63 6c  |eal next particl|
00000250  65 22 0d 00 80 35 20 f1  20 8a 37 29 22 52 20 3a  |e"...5 . .7)"R :|
00000260  20 52 65 76 65 61 6c 20  65 6e 74 69 72 65 20 77  | Reveal entire w|
00000270  61 76 65 22 27 22 20 20  20 53 70 61 63 65 20 3a  |ave"'"   Space :|
00000280  20 50 61 75 73 65 22 0d  00 82 1f 3f 66 72 61 64  | Pause"....?frad|
00000290  64 3d 6f 66 25 3a 59 25  3d 32 30 3a d6 20 64 6f  |d=of%:Y%=20:. do|
000002a0  5f 70 6f 69 6e 74 0d 00  87 15 20 65 6e 74 69 72  |_point.... entir|
000002b0  65 3d a3 3a 70 61 75 73  65 3d a3 0d 00 8c 05 f5  |e=.:pause=......|
000002c0  0d 00 96 0c d6 20 70 6f  69 6e 74 73 0d 00 97 14  |..... points....|
000002d0  20 e7 20 65 6e 74 69 72  65 20 8c 20 8d 74 60 40  | . entire . .t`@|
000002e0  0d 00 98 1d 20 e7 20 a6  2d 32 36 20 8c 20 f2 6c  |.... . .-26 . .l|
000002f0  65 66 74 3a 6c 3d b9 20  8b 20 6c 3d a3 0d 00 99  |eft:l=. . l=....|
00000300  1f 20 e7 20 a6 2d 31 32  32 20 8c 20 f2 72 69 67  |. . .-122 . .rig|
00000310  68 74 3a 72 3d b9 20 8b  20 72 3d a3 0d 00 9a 5f  |ht:r=. . r=...._|
00000320  20 e7 20 a6 2d 35 32 20  84 20 28 3f 79 6d 69 6e  | . .-52 . (?ymin|
00000330  3d 30 20 80 20 3f 79 6d  61 78 3d 34 30 29 20 8c  |=0 . ?ymax=40) .|
00000340  20 f5 20 f2 6c 65 66 74  3a f2 72 69 67 68 74 3a  | . .left:.right:|
00000350  fd 20 3f 79 6d 69 6e 3d  30 20 80 20 3f 79 6d 61  |. ?ymin=0 . ?yma|
00000360  78 3d 34 30 3a 65 6e 74  69 72 65 3d b9 3a f1 20  |x=40:entire=.:. |
00000370  8a 30 2c 31 29 20 89 28  38 30 29 0d 00 a0 15 fd  |.0,1) .(80).....|
00000380  20 a6 28 30 29 3d 33 32  20 84 20 70 61 75 73 65  | .(0)=32 . pause|
00000390  0d 00 aa 10 41 3d a5 3a  db 3a e5 20 8d 44 64 40  |....A=.:.:. .Dd@|
000003a0  0d 00 b4 05 3a 0d 00 be  0b dd f2 61 73 73 65 6d  |....:......assem|
000003b0  0d 00 c8 0b 78 63 6f 3d  26 37 30 0d 00 d2 0e 78  |....xco=&70....x|
000003c0  63 6f 5f 68 69 3d 26 37  31 0d 00 dc 0b 79 63 6f  |co_hi=&71....yco|
000003d0  3d 26 37 32 0d 00 e6 0c  77 6f 72 6b 3d 26 37 33  |=&72....work=&73|
000003e0  0d 00 f0 0f 77 6f 72 6b  5f 68 69 3d 26 37 34 0d  |....work_hi=&74.|
000003f0  00 fa 14 e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |.... pass=0 . 2 |
00000400  88 20 32 0d 01 04 0c 50  25 3d 63 6f 64 65 25 0d  |. 2....P%=code%.|
00000410  01 0e 0d 5b 4f 50 54 20  70 61 73 73 0d 01 18 09  |...[OPT pass....|
00000420  2e 70 6c 6f 74 0d 01 22  0c 4c 44 41 20 23 26 46  |.plot..".LDA #&F|
00000430  46 0d 01 2c 07 53 45 43  0d 01 36 0b 53 42 43 20  |F..,.SEC..6.SBC |
00000440  79 63 6f 0d 01 40 0b 53  54 41 20 79 63 6f 0d 01  |yco..@.STA yco..|
00000450  4a 08 80 20 23 37 0d 01  54 0c 53 54 41 20 77 6f  |J.. #7..T.STA wo|
00000460  72 6b 0d 01 5e 0b 4c 44  41 20 79 63 6f 0d 01 68  |rk..^.LDA yco..h|
00000470  0a 80 20 23 26 46 38 0d  01 72 0b 53 54 41 20 79  |.. #&F8..r.STA y|
00000480  63 6f 0d 01 7c 0b 4c 44  41 20 78 63 6f 0d 01 86  |co..|.LDA xco...|
00000490  0a 80 20 23 26 46 38 0d  01 90 07 43 4c 43 0d 01  |.. #&F8....CLC..|
000004a0  9a 0c 41 44 43 20 77 6f  72 6b 0d 01 a4 0c 53 54  |..ADC work....ST|
000004b0  41 20 77 6f 72 6b 0d 01  ae 0e 4c 44 41 20 78 63  |A work....LDA xc|
000004c0  6f 5f 68 69 0d 01 b8 0c  41 44 43 20 23 26 35 38  |o_hi....ADC #&58|
000004d0  0d 01 c2 0f 53 54 41 20  77 6f 72 6b 5f 68 69 0d  |....STA work_hi.|
000004e0  01 cc 0b 4c 44 41 20 79  63 6f 0d 01 d6 09 4c 53  |...LDA yco....LS|
000004f0  52 20 41 0d 01 e0 0b 53  54 41 20 79 63 6f 0d 01  |R A....STA yco..|
00000500  ea 09 4c 53 52 20 41 0d  01 f4 09 4c 53 52 20 41  |..LSR A....LSR A|
00000510  0d 01 fe 0b 41 44 43 20  79 63 6f 0d 02 08 09 52  |....ADC yco....R|
00000520  4f 52 20 41 0d 02 12 09  52 4f 52 20 41 0d 02 1c  |OR A....ROR A...|
00000530  0b 53 54 41 20 79 63 6f  0d 02 26 09 52 4f 52 20  |.STA yco..&.ROR |
00000540  41 0d 02 30 0a 80 20 23  26 43 30 0d 02 3a 07 43  |A..0.. #&C0..:.C|
00000550  4c 43 0d 02 44 0c 41 44  43 20 77 6f 72 6b 0d 02  |LC..D.ADC work..|
00000560  4e 0c 53 54 41 20 77 6f  72 6b 0d 02 58 0b 4c 44  |N.STA work..X.LD|
00000570  41 20 79 63 6f 0d 02 62  0a 80 20 23 26 33 46 0d  |A yco..b.. #&3F.|
00000580  02 6c 0f 41 44 43 20 77  6f 72 6b 5f 68 69 0d 02  |.l.ADC work_hi..|
00000590  76 0f 53 54 41 20 77 6f  72 6b 5f 68 69 0d 02 80  |v.STA work_hi...|
000005a0  0b 4c 44 41 20 78 63 6f  0d 02 8a 08 80 20 23 37  |.LDA xco..... #7|
000005b0  0d 02 94 07 54 41 59 0d  02 9e 0c 4c 44 41 20 23  |....TAY....LDA #|
000005c0  26 38 30 0d 02 a8 0a 43  50 59 20 23 30 0d 02 b2  |&80....CPY #0...|
000005d0  0c 42 45 51 20 65 78 69  74 0d 02 bc 09 2e 6c 6f  |.BEQ exit.....lo|
000005e0  6f 70 0d 02 c6 09 4c 53  52 20 41 0d 02 d0 07 44  |op....LSR A....D|
000005f0  45 59 0d 02 da 0c 42 4e  45 20 6c 6f 6f 70 0d 02  |EY....BNE loop..|
00000600  e4 09 2e 65 78 69 74 0d  02 ee 0e 82 20 28 77 6f  |...exit..... (wo|
00000610  72 6b 29 2c 59 0d 02 f8  10 53 54 41 20 28 77 6f  |rk),Y....STA (wo|
00000620  72 6b 29 2c 59 0d 03 02  07 52 54 53 0d 03 0c 05  |rk),Y....RTS....|
00000630  5d 0d 03 16 0a ed 20 70  61 73 73 0d 03 20 0d 66  |]..... pass.. .f|
00000640  72 61 64 64 3d 26 37 35  0d 03 25 16 20 79 6d 69  |radd=&75..%. ymi|
00000650  6e 3d 26 37 36 3a 79 6d  61 78 3d 26 37 37 0d 03  |n=&76:ymax=&77..|
00000660  2a 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |*.. pass=0 . 2 .|
00000670  20 32 0d 03 34 10 50 25  3d 63 6f 64 65 25 2b 32  | 2..4.P%=code%+2|
00000680  35 36 0d 03 3e 0d 5b 4f  50 54 20 70 61 73 73 0d  |56..>.[OPT pass.|
00000690  03 48 0b 2e 70 6f 69 6e  74 73 0d 03 52 0a 4c 44  |.H..points..R.LD|
000006a0  59 20 23 30 0d 03 5c 0f  2e 70 6f 69 6e 74 5f 6c  |Y #0..\..point_l|
000006b0  6f 6f 70 0d 03 66 10 4a  53 52 20 64 6f 5f 70 6f  |oop..f.JSR do_po|
000006c0  69 6e 74 0d 03 70 0e 4c  44 41 20 79 70 6f 73 2c  |int..p.LDA ypos,|
000006d0  59 0d 03 7a 07 53 45 43  0d 03 84 0d 53 42 43 20  |Y..z.SEC....SBC |
000006e0  66 72 61 64 64 0d 03 8e  0e 53 54 41 20 79 70 6f  |fradd....STA ypo|
000006f0  73 2c 59 0d 03 98 10 4a  53 52 20 64 6f 5f 70 6f  |s,Y....JSR do_po|
00000700  69 6e 74 0d 03 a2 07 49  4e 59 0d 03 ac 0b 43 50  |int....INY....CP|
00000710  59 20 23 34 30 0d 03 b6  12 42 4e 45 20 70 6f 69  |Y #40....BNE poi|
00000720  6e 74 5f 6c 6f 6f 70 0d  03 c0 07 52 54 53 0d 03  |nt_loop....RTS..|
00000730  ca 0d 2e 64 6f 5f 70 6f  69 6e 74 0d 03 cf 15 43  |...do_point....C|
00000740  50 59 20 79 6d 69 6e 3a  42 43 43 69 6e 76 69 73  |PY ymin:BCCinvis|
00000750  0d 03 d0 15 43 50 59 20  79 6d 61 78 3a 42 43 53  |....CPY ymax:BCS|
00000760  69 6e 76 69 73 0d 03 d4  0e 4c 44 41 20 79 70 6f  |invis....LDA ypo|
00000770  73 2c 59 0d 03 de 07 54  41 58 0d 03 e8 13 4c 44  |s,Y....TAX....LD|
00000780  41 20 73 69 6e 5f 74 61  62 6c 65 2c 58 0d 03 f2  |A sin_table,X...|
00000790  0b 53 54 41 20 79 63 6f  0d 03 fc 0e 4c 44 41 20  |.STA yco....LDA |
000007a0  78 70 6f 73 2c 59 0d 04  06 09 41 53 4c 20 41 0d  |xpos,Y....ASL A.|
000007b0  04 10 0b 53 54 41 20 78  63 6f 0d 04 1a 0a 4c 44  |...STA xco....LD|
000007c0  41 20 23 30 0d 04 24 09  52 4f 4c 20 41 0d 04 2e  |A #0..$.ROL A...|
000007d0  0e 53 54 41 20 78 63 6f  5f 68 69 0d 04 38 07 54  |.STA xco_hi..8.T|
000007e0  59 41 0d 04 42 07 50 48  41 0d 04 4c 0c 4a 53 52  |YA..B.PHA..L.JSR|
000007f0  20 70 6c 6f 74 0d 04 56  07 50 4c 41 0d 04 60 07  | plot..V.PLA..`.|
00000800  54 41 59 0d 04 65 0a 2e  69 6e 76 69 73 0d 04 6a  |TAY..e..invis..j|
00000810  07 52 54 53 0d 04 74 05  5d 0d 04 7e 0a ed 20 70  |.RTS..t.]..~.. p|
00000820  61 73 73 0d 04 88 05 e1  0d 04 b0 0b 20 dd f2 6c  |ass......... ..l|
00000830  65 66 74 0d 04 ba 38 20  e7 20 3f 79 6d 69 6e 3e  |eft...8 . ?ymin>|
00000840  30 20 80 20 ac 20 6c 20  8c 20 3f 79 6d 69 6e 3d  |0 . . l . ?ymin=|
00000850  3f 79 6d 69 6e 2d 31 3a  59 25 3d 3f 79 6d 69 6e  |?ymin-1:Y%=?ymin|
00000860  3a d6 20 64 6f 5f 70 6f  69 6e 74 0d 04 c4 06 20  |:. do_point.... |
00000870  e1 0d 04 ce 0c 20 dd f2  72 69 67 68 74 0d 04 d8  |..... ..right...|
00000880  39 20 e7 20 3f 79 6d 61  78 3c 34 30 20 80 20 ac  |9 . ?ymax<40 . .|
00000890  20 72 20 8c 20 59 25 3d  3f 79 6d 61 78 3a 3f 79  | r . Y%=?ymax:?y|
000008a0  6d 61 78 3d 3f 79 6d 61  78 2b 31 3a d6 20 64 6f  |max=?ymax+1:. do|
000008b0  5f 70 6f 69 6e 74 0d 04  e2 06 20 e1 0d ff        |_point.... ...|
000008be