#� 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
x5� F%=0 � 39:xpos?F%=F%*4:ypos?F%=(F%*tf%) � &FF:�
} �5
�'?fradd=of%:� Y%=0 � 39:� do_point:�
��
�� points
�
� �(0)=32
�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
*� 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
�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
jRTS
t]
~
� pass
��
�

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 78 35 e3  |6..n. of%=1..x5.|
00000160  20 46 25 3d 30 20 b8 20  33 39 3a 78 70 6f 73 3f  | F%=0 . 39:xpos?|
00000170  46 25 3d 46 25 2a 34 3a  79 70 6f 73 3f 46 25 3d  |F%=F%*4:ypos?F%=|
00000180  28 46 25 2a 74 66 25 29  20 80 20 26 46 46 3a ed  |(F%*tf%) . &FF:.|
00000190  0d 00 7d 07 20 eb 35 0d  00 82 27 3f 66 72 61 64  |..}. .5...'?frad|
000001a0  64 3d 6f 66 25 3a e3 20  59 25 3d 30 20 b8 20 33  |d=of%:. Y%=0 . 3|
000001b0  39 3a d6 20 64 6f 5f 70  6f 69 6e 74 3a ed 0d 00  |9:. do_point:...|
000001c0  8c 05 f5 0d 00 96 0c d6  20 70 6f 69 6e 74 73 0d  |........ points.|
000001d0  00 a0 0d fd 20 a6 28 30  29 3d 33 32 0d 00 aa 10  |.... .(0)=32....|
000001e0  41 3d a5 3a db 3a e5 20  8d 44 64 40 0d 00 b4 05  |A=.:.:. .Dd@....|
000001f0  3a 0d 00 be 0b dd f2 61  73 73 65 6d 0d 00 c8 0b  |:......assem....|
00000200  78 63 6f 3d 26 37 30 0d  00 d2 0e 78 63 6f 5f 68  |xco=&70....xco_h|
00000210  69 3d 26 37 31 0d 00 dc  0b 79 63 6f 3d 26 37 32  |i=&71....yco=&72|
00000220  0d 00 e6 0c 77 6f 72 6b  3d 26 37 33 0d 00 f0 0f  |....work=&73....|
00000230  77 6f 72 6b 5f 68 69 3d  26 37 34 0d 00 fa 14 e3  |work_hi=&74.....|
00000240  20 70 61 73 73 3d 30 20  b8 20 32 20 88 20 32 0d  | pass=0 . 2 . 2.|
00000250  01 04 0c 50 25 3d 63 6f  64 65 25 0d 01 0e 0d 5b  |...P%=code%....[|
00000260  4f 50 54 20 70 61 73 73  0d 01 18 09 2e 70 6c 6f  |OPT pass.....plo|
00000270  74 0d 01 22 0c 4c 44 41  20 23 26 46 46 0d 01 2c  |t..".LDA #&FF..,|
00000280  07 53 45 43 0d 01 36 0b  53 42 43 20 79 63 6f 0d  |.SEC..6.SBC yco.|
00000290  01 40 0b 53 54 41 20 79  63 6f 0d 01 4a 08 80 20  |.@.STA yco..J.. |
000002a0  23 37 0d 01 54 0c 53 54  41 20 77 6f 72 6b 0d 01  |#7..T.STA work..|
000002b0  5e 0b 4c 44 41 20 79 63  6f 0d 01 68 0a 80 20 23  |^.LDA yco..h.. #|
000002c0  26 46 38 0d 01 72 0b 53  54 41 20 79 63 6f 0d 01  |&F8..r.STA yco..|
000002d0  7c 0b 4c 44 41 20 78 63  6f 0d 01 86 0a 80 20 23  ||.LDA xco..... #|
000002e0  26 46 38 0d 01 90 07 43  4c 43 0d 01 9a 0c 41 44  |&F8....CLC....AD|
000002f0  43 20 77 6f 72 6b 0d 01  a4 0c 53 54 41 20 77 6f  |C work....STA wo|
00000300  72 6b 0d 01 ae 0e 4c 44  41 20 78 63 6f 5f 68 69  |rk....LDA xco_hi|
00000310  0d 01 b8 0c 41 44 43 20  23 26 35 38 0d 01 c2 0f  |....ADC #&58....|
00000320  53 54 41 20 77 6f 72 6b  5f 68 69 0d 01 cc 0b 4c  |STA work_hi....L|
00000330  44 41 20 79 63 6f 0d 01  d6 09 4c 53 52 20 41 0d  |DA yco....LSR A.|
00000340  01 e0 0b 53 54 41 20 79  63 6f 0d 01 ea 09 4c 53  |...STA yco....LS|
00000350  52 20 41 0d 01 f4 09 4c  53 52 20 41 0d 01 fe 0b  |R A....LSR A....|
00000360  41 44 43 20 79 63 6f 0d  02 08 09 52 4f 52 20 41  |ADC yco....ROR A|
00000370  0d 02 12 09 52 4f 52 20  41 0d 02 1c 0b 53 54 41  |....ROR A....STA|
00000380  20 79 63 6f 0d 02 26 09  52 4f 52 20 41 0d 02 30  | yco..&.ROR A..0|
00000390  0a 80 20 23 26 43 30 0d  02 3a 07 43 4c 43 0d 02  |.. #&C0..:.CLC..|
000003a0  44 0c 41 44 43 20 77 6f  72 6b 0d 02 4e 0c 53 54  |D.ADC work..N.ST|
000003b0  41 20 77 6f 72 6b 0d 02  58 0b 4c 44 41 20 79 63  |A work..X.LDA yc|
000003c0  6f 0d 02 62 0a 80 20 23  26 33 46 0d 02 6c 0f 41  |o..b.. #&3F..l.A|
000003d0  44 43 20 77 6f 72 6b 5f  68 69 0d 02 76 0f 53 54  |DC work_hi..v.ST|
000003e0  41 20 77 6f 72 6b 5f 68  69 0d 02 80 0b 4c 44 41  |A work_hi....LDA|
000003f0  20 78 63 6f 0d 02 8a 08  80 20 23 37 0d 02 94 07  | xco..... #7....|
00000400  54 41 59 0d 02 9e 0c 4c  44 41 20 23 26 38 30 0d  |TAY....LDA #&80.|
00000410  02 a8 0a 43 50 59 20 23  30 0d 02 b2 0c 42 45 51  |...CPY #0....BEQ|
00000420  20 65 78 69 74 0d 02 bc  09 2e 6c 6f 6f 70 0d 02  | exit.....loop..|
00000430  c6 09 4c 53 52 20 41 0d  02 d0 07 44 45 59 0d 02  |..LSR A....DEY..|
00000440  da 0c 42 4e 45 20 6c 6f  6f 70 0d 02 e4 09 2e 65  |..BNE loop.....e|
00000450  78 69 74 0d 02 ee 0e 82  20 28 77 6f 72 6b 29 2c  |xit..... (work),|
00000460  59 0d 02 f8 10 53 54 41  20 28 77 6f 72 6b 29 2c  |Y....STA (work),|
00000470  59 0d 03 02 07 52 54 53  0d 03 0c 05 5d 0d 03 16  |Y....RTS....]...|
00000480  0a ed 20 70 61 73 73 0d  03 20 0d 66 72 61 64 64  |.. pass.. .fradd|
00000490  3d 26 37 35 0d 03 2a 14  e3 20 70 61 73 73 3d 30  |=&75..*.. pass=0|
000004a0  20 b8 20 32 20 88 20 32  0d 03 34 10 50 25 3d 63  | . 2 . 2..4.P%=c|
000004b0  6f 64 65 25 2b 32 35 36  0d 03 3e 0d 5b 4f 50 54  |ode%+256..>.[OPT|
000004c0  20 70 61 73 73 0d 03 48  0b 2e 70 6f 69 6e 74 73  | pass..H..points|
000004d0  0d 03 52 0a 4c 44 59 20  23 30 0d 03 5c 0f 2e 70  |..R.LDY #0..\..p|
000004e0  6f 69 6e 74 5f 6c 6f 6f  70 0d 03 66 10 4a 53 52  |oint_loop..f.JSR|
000004f0  20 64 6f 5f 70 6f 69 6e  74 0d 03 70 0e 4c 44 41  | do_point..p.LDA|
00000500  20 79 70 6f 73 2c 59 0d  03 7a 07 53 45 43 0d 03  | ypos,Y..z.SEC..|
00000510  84 0d 53 42 43 20 66 72  61 64 64 0d 03 8e 0e 53  |..SBC fradd....S|
00000520  54 41 20 79 70 6f 73 2c  59 0d 03 98 10 4a 53 52  |TA ypos,Y....JSR|
00000530  20 64 6f 5f 70 6f 69 6e  74 0d 03 a2 07 49 4e 59  | do_point....INY|
00000540  0d 03 ac 0b 43 50 59 20  23 34 30 0d 03 b6 12 42  |....CPY #40....B|
00000550  4e 45 20 70 6f 69 6e 74  5f 6c 6f 6f 70 0d 03 c0  |NE point_loop...|
00000560  07 52 54 53 0d 03 ca 0d  2e 64 6f 5f 70 6f 69 6e  |.RTS.....do_poin|
00000570  74 0d 03 d4 0e 4c 44 41  20 79 70 6f 73 2c 59 0d  |t....LDA ypos,Y.|
00000580  03 de 07 54 41 58 0d 03  e8 13 4c 44 41 20 73 69  |...TAX....LDA si|
00000590  6e 5f 74 61 62 6c 65 2c  58 0d 03 f2 0b 53 54 41  |n_table,X....STA|
000005a0  20 79 63 6f 0d 03 fc 0e  4c 44 41 20 78 70 6f 73  | yco....LDA xpos|
000005b0  2c 59 0d 04 06 09 41 53  4c 20 41 0d 04 10 0b 53  |,Y....ASL A....S|
000005c0  54 41 20 78 63 6f 0d 04  1a 0a 4c 44 41 20 23 30  |TA xco....LDA #0|
000005d0  0d 04 24 09 52 4f 4c 20  41 0d 04 2e 0e 53 54 41  |..$.ROL A....STA|
000005e0  20 78 63 6f 5f 68 69 0d  04 38 07 54 59 41 0d 04  | xco_hi..8.TYA..|
000005f0  42 07 50 48 41 0d 04 4c  0c 4a 53 52 20 70 6c 6f  |B.PHA..L.JSR plo|
00000600  74 0d 04 56 07 50 4c 41  0d 04 60 07 54 41 59 0d  |t..V.PLA..`.TAY.|
00000610  04 6a 07 52 54 53 0d 04  74 05 5d 0d 04 7e 0a ed  |.j.RTS..t.]..~..|
00000620  20 70 61 73 73 0d 04 88  05 e1 0d ff              | pass.......|
0000062c