�  Perpetual Bouncing
�  Listing II -Animate
�  by Andrew Mellor
(�  (C) The Micro User
2
� � �dXD
<�5:�=&3000
F�23;11,0;0;0;0
P�19,2,0;0;19,0,3;0;
Z*LOAD BALDATA 3000
d�ground
n
�stars
x
�assem
�
� code
��
�:
���ground
��0,1
�� L=0 � 1279 �80
��L-20,550:�L+20,550
��85,(L-532)*5,0
��85,(L-492)*5,0
��
�Y=1:�3,1
��
�� Y2=Y � Y*1.2 �4

�0,550-Y2:�1279,550-Y2

�

Y=Y*1.44:� Y>550

"�0,2

,�0,1023:�1279,1023

6�85,0,500:�85,1279,500

@�

J:

T��stars

^�0,3

h� N=0 � 100

r�69,�(1280),�(512)+512

|�

��

�:

���assem

�dataptr=&70:scrnptr=&72

�frmxsize=&74:frmysize=&75

�frmcount=&76:code=&900

�� pass=0 � 2 �2

�P%=code

�
[OPT pass

�
.start

�LDA#0:STA dataptr

�LDA#&30:STA dataptr+1

�LDA#5:STA frmcount
.scnloop
LDX#56:STX frmxsize
LDY#14:STY frmysize
&LDA#0:JSR frame
0LDX#40:STX frmxsize
:LDY#10:STY frmysize
DLDA#2:JSR frame
NLDX#40:STX frmxsize
XLDY#10:STY frmysize
bLDA#4:JSR frame
l
JSR delay
vDEC frmcount:BNE scnloop
�LDA#1:STA frmcount
�
.scnloop2
�LDA dataptr:SEC:SBC#&60
�STA dataptr
�LDA dataptr+1:SBC#&C
�STA dataptr+1
�LDX#56:STX frmxsize
�LDY#14:STY frmysize
�LDA#0:JSR frame
�LDX#40:STX frmxsize
�LDY#10:STY frmysize
�LDA#2:JSR frame
�LDX#40:STX frmxsize
LDY#10:STY frmysize
LDA#4:JSR frame

JSR delay
 INC frmcount:LDA frmcount
*CMP#4:BNE scnloop2
4BIT&FF:BMI esc
>
JMP start
H.esc RTS
R 
\
.frame
fTAY
pLDA table,Y:STA scrnptr
zLDA table+1,Y:STA scrnptr+1
�.frmloop
�LDY frmxsize:DEY
�.rowloop
�!LDA(dataptr),Y:STA(scrnptr),Y
�DEY:BPL rowloop
�LDA dataptr:CLC
�ADC frmxsize:STA dataptr
�LDA dataptr+1:ADC#0
�STA dataptr+1
�LDA scrnptr:CLC:ADC#64
�STA scrnptr
�LDA scrnptr+1:ADC#1
�STA scrnptr+1
DEC frmysize:BNE frmloop
RTS

.table
$OPT �equw(&68C0)
.OPT �equw(&6870)
8OPT �equw(&6920)
B
.delay
LLDA frmcount:ASL A
VTAY:INY:INY:INY
`
.dloop
jTYA:PHA
tLDA#19:JSR&FFF4
~PLA:TAY:DEY:BNE dloop
�	RTS:]
��
��
�:
�ݤequw(N%)
�?P%=N% �256:P%?1=N% �256
�P%=P%+2:=pass
�:
��7
�� �<>17 �:�" at line ";�
��
�

00000000  0d 00 0a 19 f4 20 20 50  65 72 70 65 74 75 61 6c  |.....  Perpetual|
00000010  20 42 6f 75 6e 63 69 6e  67 0d 00 14 1a f4 20 20  | Bouncing.....  |
00000020  4c 69 73 74 69 6e 67 20  49 49 20 2d 41 6e 69 6d  |Listing II -Anim|
00000030  61 74 65 0d 00 1e 17 f4  20 20 62 79 20 41 6e 64  |ate.....  by And|
00000040  72 65 77 20 4d 65 6c 6c  6f 72 0d 00 28 19 f4 20  |rew Mellor..(.. |
00000050  20 28 43 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (C) The Micro U|
00000060  73 65 72 0d 00 32 0d ee  20 85 20 e5 8d 64 58 44  |ser..2.. . ..dXD|
00000070  0d 00 3c 0e eb 35 3a d3  3d 26 33 30 30 30 0d 00  |..<..5:.=&3000..|
00000080  46 12 ef 32 33 3b 31 31  2c 30 3b 30 3b 30 3b 30  |F..23;11,0;0;0;0|
00000090  0d 00 50 17 ef 31 39 2c  32 2c 30 3b 30 3b 31 39  |..P..19,2,0;0;19|
000000a0  2c 30 2c 33 3b 30 3b 0d  00 5a 16 2a 4c 4f 41 44  |,0,3;0;..Z.*LOAD|
000000b0  20 42 41 4c 44 41 54 41  20 33 30 30 30 0d 00 64  | BALDATA 3000..d|
000000c0  0b f2 67 72 6f 75 6e 64  0d 00 6e 0a f2 73 74 61  |..ground..n..sta|
000000d0  72 73 0d 00 78 0a f2 61  73 73 65 6d 0d 00 82 0a  |rs..x..assem....|
000000e0  d6 20 63 6f 64 65 0d 00  8c 05 e0 0d 00 96 05 3a  |. code.........:|
000000f0  0d 00 a0 0c dd f2 67 72  6f 75 6e 64 0d 00 aa 08  |......ground....|
00000100  e6 30 2c 31 0d 00 b4 14  e3 20 4c 3d 30 20 b8 20  |.0,1..... L=0 . |
00000110  31 32 37 39 20 88 38 30  0d 00 be 17 ec 4c 2d 32  |1279 .80.....L-2|
00000120  30 2c 35 35 30 3a ec 4c  2b 32 30 2c 35 35 30 0d  |0,550:.L+20,550.|
00000130  00 c8 13 f0 38 35 2c 28  4c 2d 35 33 32 29 2a 35  |....85,(L-532)*5|
00000140  2c 30 0d 00 d2 13 f0 38  35 2c 28 4c 2d 34 39 32  |,0.....85,(L-492|
00000150  29 2a 35 2c 30 0d 00 dc  05 ed 0d 00 e6 0c 59 3d  |)*5,0.........Y=|
00000160  31 3a e6 33 2c 31 0d 00  f0 05 f5 0d 00 fa 15 e3  |1:.3,1..........|
00000170  20 59 32 3d 59 20 b8 20  59 2a 31 2e 32 20 88 34  | Y2=Y . Y*1.2 .4|
00000180  0d 01 04 1a ec 30 2c 35  35 30 2d 59 32 3a df 31  |.....0,550-Y2:.1|
00000190  32 37 39 2c 35 35 30 2d  59 32 0d 01 0e 05 ed 0d  |279,550-Y2......|
000001a0  01 18 14 59 3d 59 2a 31  2e 34 34 3a fd 20 59 3e  |...Y=Y*1.44:. Y>|
000001b0  35 35 30 0d 01 22 08 e6  30 2c 32 0d 01 2c 16 ec  |550.."..0,2..,..|
000001c0  30 2c 31 30 32 33 3a ec  31 32 37 39 2c 31 30 32  |0,1023:.1279,102|
000001d0  33 0d 01 36 1a f0 38 35  2c 30 2c 35 30 30 3a f0  |3..6..85,0,500:.|
000001e0  38 35 2c 31 32 37 39 2c  35 30 30 0d 01 40 05 e1  |85,1279,500..@..|
000001f0  0d 01 4a 05 3a 0d 01 54  0b dd f2 73 74 61 72 73  |..J.:..T...stars|
00000200  0d 01 5e 08 e6 30 2c 33  0d 01 68 0f e3 20 4e 3d  |..^..0,3..h.. N=|
00000210  30 20 b8 20 31 30 30 0d  01 72 1a f0 36 39 2c b3  |0 . 100..r..69,.|
00000220  28 31 32 38 30 29 2c b3  28 35 31 32 29 2b 35 31  |(1280),.(512)+51|
00000230  32 0d 01 7c 05 ed 0d 01  86 05 e1 0d 01 90 05 3a  |2..|...........:|
00000240  0d 01 9a 0b dd f2 61 73  73 65 6d 0d 01 a4 1b 64  |......assem....d|
00000250  61 74 61 70 74 72 3d 26  37 30 3a 73 63 72 6e 70  |ataptr=&70:scrnp|
00000260  74 72 3d 26 37 32 0d 01  ae 1d 66 72 6d 78 73 69  |tr=&72....frmxsi|
00000270  7a 65 3d 26 37 34 3a 66  72 6d 79 73 69 7a 65 3d  |ze=&74:frmysize=|
00000280  26 37 35 0d 01 b8 1a 66  72 6d 63 6f 75 6e 74 3d  |&75....frmcount=|
00000290  26 37 36 3a 63 6f 64 65  3d 26 39 30 30 0d 01 c2  |&76:code=&900...|
000002a0  13 e3 20 70 61 73 73 3d  30 20 b8 20 32 20 88 32  |.. pass=0 . 2 .2|
000002b0  0d 01 cc 0b 50 25 3d 63  6f 64 65 0d 01 d6 0d 5b  |....P%=code....[|
000002c0  4f 50 54 20 70 61 73 73  0d 01 e0 0a 2e 73 74 61  |OPT pass.....sta|
000002d0  72 74 0d 01 ea 15 4c 44  41 23 30 3a 53 54 41 20  |rt....LDA#0:STA |
000002e0  64 61 74 61 70 74 72 0d  01 f4 19 4c 44 41 23 26  |dataptr....LDA#&|
000002f0  33 30 3a 53 54 41 20 64  61 74 61 70 74 72 2b 31  |30:STA dataptr+1|
00000300  0d 01 fe 16 4c 44 41 23  35 3a 53 54 41 20 66 72  |....LDA#5:STA fr|
00000310  6d 63 6f 75 6e 74 0d 02  08 0c 2e 73 63 6e 6c 6f  |mcount.....scnlo|
00000320  6f 70 0d 02 12 17 4c 44  58 23 35 36 3a 53 54 58  |op....LDX#56:STX|
00000330  20 66 72 6d 78 73 69 7a  65 0d 02 1c 17 4c 44 59  | frmxsize....LDY|
00000340  23 31 34 3a 53 54 59 20  66 72 6d 79 73 69 7a 65  |#14:STY frmysize|
00000350  0d 02 26 13 4c 44 41 23  30 3a 4a 53 52 20 66 72  |..&.LDA#0:JSR fr|
00000360  61 6d 65 0d 02 30 17 4c  44 58 23 34 30 3a 53 54  |ame..0.LDX#40:ST|
00000370  58 20 66 72 6d 78 73 69  7a 65 0d 02 3a 17 4c 44  |X frmxsize..:.LD|
00000380  59 23 31 30 3a 53 54 59  20 66 72 6d 79 73 69 7a  |Y#10:STY frmysiz|
00000390  65 0d 02 44 13 4c 44 41  23 32 3a 4a 53 52 20 66  |e..D.LDA#2:JSR f|
000003a0  72 61 6d 65 0d 02 4e 17  4c 44 58 23 34 30 3a 53  |rame..N.LDX#40:S|
000003b0  54 58 20 66 72 6d 78 73  69 7a 65 0d 02 58 17 4c  |TX frmxsize..X.L|
000003c0  44 59 23 31 30 3a 53 54  59 20 66 72 6d 79 73 69  |DY#10:STY frmysi|
000003d0  7a 65 0d 02 62 13 4c 44  41 23 34 3a 4a 53 52 20  |ze..b.LDA#4:JSR |
000003e0  66 72 61 6d 65 0d 02 6c  0d 4a 53 52 20 64 65 6c  |frame..l.JSR del|
000003f0  61 79 0d 02 76 1c 44 45  43 20 66 72 6d 63 6f 75  |ay..v.DEC frmcou|
00000400  6e 74 3a 42 4e 45 20 73  63 6e 6c 6f 6f 70 0d 02  |nt:BNE scnloop..|
00000410  80 16 4c 44 41 23 31 3a  53 54 41 20 66 72 6d 63  |..LDA#1:STA frmc|
00000420  6f 75 6e 74 0d 02 8a 0d  2e 73 63 6e 6c 6f 6f 70  |ount.....scnloop|
00000430  32 0d 02 94 1b 4c 44 41  20 64 61 74 61 70 74 72  |2....LDA dataptr|
00000440  3a 53 45 43 3a 53 42 43  23 26 36 30 0d 02 9e 0f  |:SEC:SBC#&60....|
00000450  53 54 41 20 64 61 74 61  70 74 72 0d 02 a8 18 4c  |STA dataptr....L|
00000460  44 41 20 64 61 74 61 70  74 72 2b 31 3a 53 42 43  |DA dataptr+1:SBC|
00000470  23 26 43 0d 02 b2 11 53  54 41 20 64 61 74 61 70  |#&C....STA datap|
00000480  74 72 2b 31 0d 02 bc 17  4c 44 58 23 35 36 3a 53  |tr+1....LDX#56:S|
00000490  54 58 20 66 72 6d 78 73  69 7a 65 0d 02 c6 17 4c  |TX frmxsize....L|
000004a0  44 59 23 31 34 3a 53 54  59 20 66 72 6d 79 73 69  |DY#14:STY frmysi|
000004b0  7a 65 0d 02 d0 13 4c 44  41 23 30 3a 4a 53 52 20  |ze....LDA#0:JSR |
000004c0  66 72 61 6d 65 0d 02 da  17 4c 44 58 23 34 30 3a  |frame....LDX#40:|
000004d0  53 54 58 20 66 72 6d 78  73 69 7a 65 0d 02 e4 17  |STX frmxsize....|
000004e0  4c 44 59 23 31 30 3a 53  54 59 20 66 72 6d 79 73  |LDY#10:STY frmys|
000004f0  69 7a 65 0d 02 ee 13 4c  44 41 23 32 3a 4a 53 52  |ize....LDA#2:JSR|
00000500  20 66 72 61 6d 65 0d 02  f8 17 4c 44 58 23 34 30  | frame....LDX#40|
00000510  3a 53 54 58 20 66 72 6d  78 73 69 7a 65 0d 03 02  |:STX frmxsize...|
00000520  17 4c 44 59 23 31 30 3a  53 54 59 20 66 72 6d 79  |.LDY#10:STY frmy|
00000530  73 69 7a 65 0d 03 0c 13  4c 44 41 23 34 3a 4a 53  |size....LDA#4:JS|
00000540  52 20 66 72 61 6d 65 0d  03 16 0d 4a 53 52 20 64  |R frame....JSR d|
00000550  65 6c 61 79 0d 03 20 1d  49 4e 43 20 66 72 6d 63  |elay.. .INC frmc|
00000560  6f 75 6e 74 3a 4c 44 41  20 66 72 6d 63 6f 75 6e  |ount:LDA frmcoun|
00000570  74 0d 03 2a 16 43 4d 50  23 34 3a 42 4e 45 20 73  |t..*.CMP#4:BNE s|
00000580  63 6e 6c 6f 6f 70 32 0d  03 34 12 42 49 54 26 46  |cnloop2..4.BIT&F|
00000590  46 3a 42 4d 49 20 65 73  63 0d 03 3e 0d 4a 4d 50  |F:BMI esc..>.JMP|
000005a0  20 73 74 61 72 74 0d 03  48 0c 2e 65 73 63 20 52  | start..H..esc R|
000005b0  54 53 0d 03 52 05 20 0d  03 5c 0a 2e 66 72 61 6d  |TS..R. ..\..fram|
000005c0  65 0d 03 66 07 54 41 59  0d 03 70 1b 4c 44 41 20  |e..f.TAY..p.LDA |
000005d0  74 61 62 6c 65 2c 59 3a  53 54 41 20 73 63 72 6e  |table,Y:STA scrn|
000005e0  70 74 72 0d 03 7a 1f 4c  44 41 20 74 61 62 6c 65  |ptr..z.LDA table|
000005f0  2b 31 2c 59 3a 53 54 41  20 73 63 72 6e 70 74 72  |+1,Y:STA scrnptr|
00000600  2b 31 0d 03 84 0c 2e 66  72 6d 6c 6f 6f 70 0d 03  |+1.....frmloop..|
00000610  8e 14 4c 44 59 20 66 72  6d 78 73 69 7a 65 3a 44  |..LDY frmxsize:D|
00000620  45 59 0d 03 98 0c 2e 72  6f 77 6c 6f 6f 70 0d 03  |EY.....rowloop..|
00000630  a2 21 4c 44 41 28 64 61  74 61 70 74 72 29 2c 59  |.!LDA(dataptr),Y|
00000640  3a 53 54 41 28 73 63 72  6e 70 74 72 29 2c 59 0d  |:STA(scrnptr),Y.|
00000650  03 ac 13 44 45 59 3a 42  50 4c 20 72 6f 77 6c 6f  |...DEY:BPL rowlo|
00000660  6f 70 0d 03 b6 13 4c 44  41 20 64 61 74 61 70 74  |op....LDA datapt|
00000670  72 3a 43 4c 43 0d 03 c0  1c 41 44 43 20 66 72 6d  |r:CLC....ADC frm|
00000680  78 73 69 7a 65 3a 53 54  41 20 64 61 74 61 70 74  |xsize:STA datapt|
00000690  72 0d 03 ca 17 4c 44 41  20 64 61 74 61 70 74 72  |r....LDA dataptr|
000006a0  2b 31 3a 41 44 43 23 30  0d 03 d4 11 53 54 41 20  |+1:ADC#0....STA |
000006b0  64 61 74 61 70 74 72 2b  31 0d 03 de 1a 4c 44 41  |dataptr+1....LDA|
000006c0  20 73 63 72 6e 70 74 72  3a 43 4c 43 3a 41 44 43  | scrnptr:CLC:ADC|
000006d0  23 36 34 0d 03 e8 0f 53  54 41 20 73 63 72 6e 70  |#64....STA scrnp|
000006e0  74 72 0d 03 f2 17 4c 44  41 20 73 63 72 6e 70 74  |tr....LDA scrnpt|
000006f0  72 2b 31 3a 41 44 43 23  31 0d 03 fc 11 53 54 41  |r+1:ADC#1....STA|
00000700  20 73 63 72 6e 70 74 72  2b 31 0d 04 06 1c 44 45  | scrnptr+1....DE|
00000710  43 20 66 72 6d 79 73 69  7a 65 3a 42 4e 45 20 66  |C frmysize:BNE f|
00000720  72 6d 6c 6f 6f 70 0d 04  10 07 52 54 53 0d 04 1a  |rmloop....RTS...|
00000730  0a 2e 74 61 62 6c 65 0d  04 24 14 4f 50 54 20 a4  |..table..$.OPT .|
00000740  65 71 75 77 28 26 36 38  43 30 29 0d 04 2e 14 4f  |equw(&68C0)....O|
00000750  50 54 20 a4 65 71 75 77  28 26 36 38 37 30 29 0d  |PT .equw(&6870).|
00000760  04 38 14 4f 50 54 20 a4  65 71 75 77 28 26 36 39  |.8.OPT .equw(&69|
00000770  32 30 29 0d 04 42 0a 2e  64 65 6c 61 79 0d 04 4c  |20)..B..delay..L|
00000780  16 4c 44 41 20 66 72 6d  63 6f 75 6e 74 3a 41 53  |.LDA frmcount:AS|
00000790  4c 20 41 0d 04 56 13 54  41 59 3a 49 4e 59 3a 49  |L A..V.TAY:INY:I|
000007a0  4e 59 3a 49 4e 59 0d 04  60 0a 2e 64 6c 6f 6f 70  |NY:INY..`..dloop|
000007b0  0d 04 6a 0b 54 59 41 3a  50 48 41 0d 04 74 13 4c  |..j.TYA:PHA..t.L|
000007c0  44 41 23 31 39 3a 4a 53  52 26 46 46 46 34 0d 04  |DA#19:JSR&FFF4..|
000007d0  7e 19 50 4c 41 3a 54 41  59 3a 44 45 59 3a 42 4e  |~.PLA:TAY:DEY:BN|
000007e0  45 20 64 6c 6f 6f 70 0d  04 88 09 52 54 53 3a 5d  |E dloop....RTS:]|
000007f0  0d 04 92 05 ed 0d 04 9c  05 e1 0d 04 a6 05 3a 0d  |..............:.|
00000800  04 b0 0e dd a4 65 71 75  77 28 4e 25 29 0d 04 ba  |.....equw(N%)...|
00000810  1c 3f 50 25 3d 4e 25 20  83 32 35 36 3a 50 25 3f  |.?P%=N% .256:P%?|
00000820  31 3d 4e 25 20 81 32 35  36 0d 04 c4 11 50 25 3d  |1=N% .256....P%=|
00000830  50 25 2b 32 3a 3d 70 61  73 73 0d 04 ce 05 3a 0d  |P%+2:=pass....:.|
00000840  04 d8 06 eb 37 0d 04 e2  1c e7 20 9f 3c 3e 31 37  |....7..... .<>17|
00000850  20 f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  | .:." at line ";|
00000860  9e 0d 04 ec 05 e0 0d ff                           |........|
00000868