Jefferies/ASG

Home » Archimedes archive » Acorn User » AU 1994-08.adf » !StarInfo_StarInfo » Jefferies/ASG_Anim

Jefferies/ASG_Anim

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1994-08.adf » !StarInfo_StarInfo
Filename:	Jefferies/ASG_Anim
Read OK:	✔
File size:	06AF bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >ASG_Anim
   20REM January 94
   30MODE0
   40PRINT"Screensize should be set to 480K if not already."
   50PRINT'"� arrow  -  faster"
   60PRINT"� arrow  -  slower"
   70PRINT"P        -  Pause"
   80PRINT"O        -  Unpause"
   90PRINT'"Please wait a few secs after pressing a key for the frames to be drawn."
  100PRINT'"Press any key to continue"
  110key%=GET
  120MODE13
  130ORIGIN 640,512
  140OFF
  150DIM code% &100,scr% 8
  160screen%=0
  170:
  180offset%=23
  190FORpass%=0TO2STEP2
  200P%=code%
  210[OPTpass%
  220:
  230.make_ASG
  240LDR R5,screen_loc
  250MOV R2,#0
  260.main_loop
  270MOV R1,#0
  280.loop
  290ADD R3,R1,R2
  300CMP R1,#offset%
  310BLE skip
  320LDRB R0,[R5,R3]
  330SUB R4,R1,#offset%
  340ADD R4,R4,R0,LSR#2
  350ADD R4,R4,R2
  360LDRB R0,[R5,R4]
  370STRB R0,[R5,R3]
  380:
  390.skip
  400ADD R1,R1,#1
  410CMP R1,#320
  420BNE loop
  430ADD R2,R2,#320
  440CMP R2,#&14000
  450BNE main_loop
  460MOV PC,R14
  470.screen_loc EQUD screen%
  480]:NEXT
  490:
  500s%=1
  510FORX%=0TO75STEP15
  520SYS6,113,s%
  530SYS6,112,s%
  540screen%=FNstart_of_screen(scr%)
  550!screen_loc=screen%
  560CLS
  570:
  580GCOL0,17 TINT 240
  590FORZ%=0TO270STEP90
  600MOVE-300,0
  610MOVESINRAD(Z%+X%)*400-300,COSRAD(Z%+X%)*400
  620PLOT85,SINRAD(Z%+X%+45)*400-300,COSRAD(Z%+X%+45)*400
  630MOVE300,0
  640MOVESINRAD(315-Z%-X%)*400+300,COSRAD(315-Z%-X%)*400
  650PLOT85,SINRAD(270-Z%-X%)*400+300,COSRAD(270-Z%-X%)*400
  660NEXT
  670:
  680CIRCLEFILL -300,0,200
  690CIRCLEFILL 300,0,200
  700GCOL0,0 TINT 0
  710CIRCLEFILL -300,0,100
  720CIRCLEFILL 300,0,100
  730GCOL0,2
  740CIRCLEFILL -300,0,50
  750CIRCLEFILL 300,0,50
  760:
  770FORy%=0TO255
  780FORx%=0TO20STEP4
  790!(screen%+(y%*320)+x%)=RND
  800NEXT
  810NEXT
  820:
  830CALLmake_ASG
  840s%+=1
  850NEXT
  860:
  870t%=10
  880REPEAT
  890FORs%=1TO6
  900TIME=0:REPEAT
  910IFINKEY(-56) REPEAT UNTILINKEY(-55)
  920UNTILTIME>t%
  930IFINKEY(-58) t%-=1:IFt%=-1 t%=0
  940IFINKEY(-42) t%+=1:IFt%=30 t%=30
  950WAIT
  960SYS6,113,s%
  970NEXT
  980UNTIL0
  990:
 1000DEFFNstart_of_screen(scr%)
 1010!scr%=149
 1020scr%!4=-1
 1030SYS"OS_ReadVduVariables",scr%,scr% TO scr%
 1040=!scr%


� >ASG_Anim
� January 94
�0
(7�"Screensize should be set to 480K if not already."
2�'"� arrow  -  faster"
<�"� arrow  -  slower"
F�"P        -  Pause"
P�"O        -  Unpause"
ZO�'"Please wait a few secs after pressing a key for the frames to be drawn."
d!�'"Press any key to continue"
n
key%=�
x�13
�ȑ 640,512
��
�� code% &100,scr% 8
�
screen%=0
�:
�offset%=23
��pass%=0�2�2
�P%=code%
�
[OPTpass%
�:
�
.make_ASG
�LDR R5,screen_loc
�
MOV R2,#0
.main_loop

MOV R1,#0
	.loop
"ADD R3,R1,R2
,CMP R1,#offset%
6BLE skip
@LDRB R0,[R5,R3]
JSUB R4,R1,#offset%
TADD R4,R4,R0,LSR#2
^ADD R4,R4,R2
hLDRB R0,[R5,R4]
rSTRB R0,[R5,R3]
|:
�	.skip
�ADD R1,R1,#1
�CMP R1,#320
�BNE loop
�ADD R2,R2,#320
�CMP R2,#&14000
�BNE main_loop
�MOV PC,R14
�.screen_loc EQUD screen%
�]:�
�:
�s%=1
��X%=0�75�15
ș6,113,s%
ș6,112,s%
"screen%=�start_of_screen(scr%)
&!screen_loc=screen%
0�
::
D�0,17 Ȝ 240
N�Z%=0�270�90
X�-300,0
b$쵲(Z%+X%)*400-300,��(Z%+X%)*400
l-�85,��(Z%+X%+45)*400-300,��(Z%+X%+45)*400
v
�300,0
�,쵲(315-Z%-X%)*400+300,��(315-Z%-X%)*400
�/�85,��(270-Z%-X%)*400+300,��(270-Z%-X%)*400
��
�:
�ȏȐ -300,0,200
�ȏȐ 300,0,200
�
�0,0 Ȝ 0
�ȏȐ -300,0,100
�ȏȐ 300,0,100
��0,2
�ȏȐ -300,0,50
�ȏȐ 300,0,50
�:

�y%=0�255
�x%=0�20�4
!(screen%+(y%*320)+x%)=�
 �
*�
4:
>
�make_ASG
H	s%+=1
R�
\:
f	t%=10
p�
z�s%=1�6
�	�=0:�
��(-56) � ��(-55)
�	��>t%
��(-58) t%-=1:�t%=-1 t%=0
��(-42) t%+=1:�t%=30 t%=30
�Ȗ
�ș6,113,s%
��
��0
�:
�ݤstart_of_screen(scr%)
�
!scr%=149
�
scr%!4=-1
,ș"OS_ReadVduVariables",scr%,scr% � scr%

=!scr%
�

00000000  0d 00 0a 0f f4 20 3e 41  53 47 5f 41 6e 69 6d 0d  |..... >ASG_Anim.|
00000010  00 14 10 f4 20 4a 61 6e  75 61 72 79 20 39 34 0d  |.... January 94.|
00000020  00 1e 06 eb 30 0d 00 28  37 f1 22 53 63 72 65 65  |....0..(7."Scree|
00000030  6e 73 69 7a 65 20 73 68  6f 75 6c 64 20 62 65 20  |nsize should be |
00000040  73 65 74 20 74 6f 20 34  38 30 4b 20 69 66 20 6e  |set to 480K if n|
00000050  6f 74 20 61 6c 72 65 61  64 79 2e 22 0d 00 32 1a  |ot already."..2.|
00000060  f1 27 22 8b 20 61 72 72  6f 77 20 20 2d 20 20 66  |.'". arrow  -  f|
00000070  61 73 74 65 72 22 0d 00  3c 19 f1 22 8a 20 61 72  |aster"..<..". ar|
00000080  72 6f 77 20 20 2d 20 20  73 6c 6f 77 65 72 22 0d  |row  -  slower".|
00000090  00 46 18 f1 22 50 20 20  20 20 20 20 20 20 2d 20  |.F.."P        - |
000000a0  20 50 61 75 73 65 22 0d  00 50 1a f1 22 4f 20 20  | Pause"..P.."O  |
000000b0  20 20 20 20 20 20 2d 20  20 55 6e 70 61 75 73 65  |      -  Unpause|
000000c0  22 0d 00 5a 4f f1 27 22  50 6c 65 61 73 65 20 77  |"..ZO.'"Please w|
000000d0  61 69 74 20 61 20 66 65  77 20 73 65 63 73 20 61  |ait a few secs a|
000000e0  66 74 65 72 20 70 72 65  73 73 69 6e 67 20 61 20  |fter pressing a |
000000f0  6b 65 79 20 66 6f 72 20  74 68 65 20 66 72 61 6d  |key for the fram|
00000100  65 73 20 74 6f 20 62 65  20 64 72 61 77 6e 2e 22  |es to be drawn."|
00000110  0d 00 64 21 f1 27 22 50  72 65 73 73 20 61 6e 79  |..d!.'"Press any|
00000120  20 6b 65 79 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | key to continue|
00000130  22 0d 00 6e 0a 6b 65 79  25 3d a5 0d 00 78 07 eb  |"..n.key%=...x..|
00000140  31 33 0d 00 82 0e c8 91  20 36 34 30 2c 35 31 32  |13...... 640,512|
00000150  0d 00 8c 05 87 0d 00 96  17 de 20 63 6f 64 65 25  |.......... code%|
00000160  20 26 31 30 30 2c 73 63  72 25 20 38 0d 00 a0 0d  | &100,scr% 8....|
00000170  73 63 72 65 65 6e 25 3d  30 0d 00 aa 05 3a 0d 00  |screen%=0....:..|
00000180  b4 0e 6f 66 66 73 65 74  25 3d 32 33 0d 00 be 10  |..offset%=23....|
00000190  e3 70 61 73 73 25 3d 30  b8 32 88 32 0d 00 c8 0c  |.pass%=0.2.2....|
000001a0  50 25 3d 63 6f 64 65 25  0d 00 d2 0d 5b 4f 50 54  |P%=code%....[OPT|
000001b0  70 61 73 73 25 0d 00 dc  05 3a 0d 00 e6 0d 2e 6d  |pass%....:.....m|
000001c0  61 6b 65 5f 41 53 47 0d  00 f0 15 4c 44 52 20 52  |ake_ASG....LDR R|
000001d0  35 2c 73 63 72 65 65 6e  5f 6c 6f 63 0d 00 fa 0d  |5,screen_loc....|
000001e0  4d 4f 56 20 52 32 2c 23  30 0d 01 04 0e 2e 6d 61  |MOV R2,#0.....ma|
000001f0  69 6e 5f 6c 6f 6f 70 0d  01 0e 0d 4d 4f 56 20 52  |in_loop....MOV R|
00000200  31 2c 23 30 0d 01 18 09  2e 6c 6f 6f 70 0d 01 22  |1,#0.....loop.."|
00000210  10 41 44 44 20 52 33 2c  52 31 2c 52 32 0d 01 2c  |.ADD R3,R1,R2..,|
00000220  13 43 4d 50 20 52 31 2c  23 6f 66 66 73 65 74 25  |.CMP R1,#offset%|
00000230  0d 01 36 0c 42 4c 45 20  73 6b 69 70 0d 01 40 13  |..6.BLE skip..@.|
00000240  4c 44 52 42 20 52 30 2c  5b 52 35 2c 52 33 5d 0d  |LDRB R0,[R5,R3].|
00000250  01 4a 16 53 55 42 20 52  34 2c 52 31 2c 23 6f 66  |.J.SUB R4,R1,#of|
00000260  66 73 65 74 25 0d 01 54  16 41 44 44 20 52 34 2c  |fset%..T.ADD R4,|
00000270  52 34 2c 52 30 2c 4c 53  52 23 32 0d 01 5e 10 41  |R4,R0,LSR#2..^.A|
00000280  44 44 20 52 34 2c 52 34  2c 52 32 0d 01 68 13 4c  |DD R4,R4,R2..h.L|
00000290  44 52 42 20 52 30 2c 5b  52 35 2c 52 34 5d 0d 01  |DRB R0,[R5,R4]..|
000002a0  72 13 53 54 52 42 20 52  30 2c 5b 52 35 2c 52 33  |r.STRB R0,[R5,R3|
000002b0  5d 0d 01 7c 05 3a 0d 01  86 09 2e 73 6b 69 70 0d  |]..|.:.....skip.|
000002c0  01 90 10 41 44 44 20 52  31 2c 52 31 2c 23 31 0d  |...ADD R1,R1,#1.|
000002d0  01 9a 0f 43 4d 50 20 52  31 2c 23 33 32 30 0d 01  |...CMP R1,#320..|
000002e0  a4 0c 42 4e 45 20 6c 6f  6f 70 0d 01 ae 12 41 44  |..BNE loop....AD|
000002f0  44 20 52 32 2c 52 32 2c  23 33 32 30 0d 01 b8 12  |D R2,R2,#320....|
00000300  43 4d 50 20 52 32 2c 23  26 31 34 30 30 30 0d 01  |CMP R2,#&14000..|
00000310  c2 11 42 4e 45 20 6d 61  69 6e 5f 6c 6f 6f 70 0d  |..BNE main_loop.|
00000320  01 cc 0e 4d 4f 56 20 50  43 2c 52 31 34 0d 01 d6  |...MOV PC,R14...|
00000330  1c 2e 73 63 72 65 65 6e  5f 6c 6f 63 20 45 51 55  |..screen_loc EQU|
00000340  44 20 73 63 72 65 65 6e  25 0d 01 e0 07 5d 3a ed  |D screen%....]:.|
00000350  0d 01 ea 05 3a 0d 01 f4  08 73 25 3d 31 0d 01 fe  |....:....s%=1...|
00000360  0f e3 58 25 3d 30 b8 37  35 88 31 35 0d 02 08 0e  |..X%=0.75.15....|
00000370  c8 99 36 2c 31 31 33 2c  73 25 0d 02 12 0e c8 99  |..6,113,s%......|
00000380  36 2c 31 31 32 2c 73 25  0d 02 1c 22 73 63 72 65  |6,112,s%..."scre|
00000390  65 6e 25 3d a4 73 74 61  72 74 5f 6f 66 5f 73 63  |en%=.start_of_sc|
000003a0  72 65 65 6e 28 73 63 72  25 29 0d 02 26 17 21 73  |reen(scr%)..&.!s|
000003b0  63 72 65 65 6e 5f 6c 6f  63 3d 73 63 72 65 65 6e  |creen_loc=screen|
000003c0  25 0d 02 30 05 db 0d 02  3a 05 3a 0d 02 44 10 e6  |%..0....:.:..D..|
000003d0  30 2c 31 37 20 c8 9c 20  32 34 30 0d 02 4e 10 e3  |0,17 .. 240..N..|
000003e0  5a 25 3d 30 b8 32 37 30  88 39 30 0d 02 58 0b ec  |Z%=0.270.90..X..|
000003f0  2d 33 30 30 2c 30 0d 02  62 24 ec b5 b2 28 5a 25  |-300,0..b$...(Z%|
00000400  2b 58 25 29 2a 34 30 30  2d 33 30 30 2c 9b b2 28  |+X%)*400-300,..(|
00000410  5a 25 2b 58 25 29 2a 34  30 30 0d 02 6c 2d f0 38  |Z%+X%)*400..l-.8|
00000420  35 2c b5 b2 28 5a 25 2b  58 25 2b 34 35 29 2a 34  |5,..(Z%+X%+45)*4|
00000430  30 30 2d 33 30 30 2c 9b  b2 28 5a 25 2b 58 25 2b  |00-300,..(Z%+X%+|
00000440  34 35 29 2a 34 30 30 0d  02 76 0a ec 33 30 30 2c  |45)*400..v..300,|
00000450  30 0d 02 80 2c ec b5 b2  28 33 31 35 2d 5a 25 2d  |0...,...(315-Z%-|
00000460  58 25 29 2a 34 30 30 2b  33 30 30 2c 9b b2 28 33  |X%)*400+300,..(3|
00000470  31 35 2d 5a 25 2d 58 25  29 2a 34 30 30 0d 02 8a  |15-Z%-X%)*400...|
00000480  2f f0 38 35 2c b5 b2 28  32 37 30 2d 5a 25 2d 58  |/.85,..(270-Z%-X|
00000490  25 29 2a 34 30 30 2b 33  30 30 2c 9b b2 28 32 37  |%)*400+300,..(27|
000004a0  30 2d 5a 25 2d 58 25 29  2a 34 30 30 0d 02 94 05  |0-Z%-X%)*400....|
000004b0  ed 0d 02 9e 05 3a 0d 02  a8 13 c8 8f c8 90 20 2d  |.....:........ -|
000004c0  33 30 30 2c 30 2c 32 30  30 0d 02 b2 12 c8 8f c8  |300,0,200.......|
000004d0  90 20 33 30 30 2c 30 2c  32 30 30 0d 02 bc 0d e6  |. 300,0,200.....|
000004e0  30 2c 30 20 c8 9c 20 30  0d 02 c6 13 c8 8f c8 90  |0,0 .. 0........|
000004f0  20 2d 33 30 30 2c 30 2c  31 30 30 0d 02 d0 12 c8  | -300,0,100.....|
00000500  8f c8 90 20 33 30 30 2c  30 2c 31 30 30 0d 02 da  |... 300,0,100...|
00000510  08 e6 30 2c 32 0d 02 e4  12 c8 8f c8 90 20 2d 33  |..0,2........ -3|
00000520  30 30 2c 30 2c 35 30 0d  02 ee 11 c8 8f c8 90 20  |00,0,50........ |
00000530  33 30 30 2c 30 2c 35 30  0d 02 f8 05 3a 0d 03 02  |300,0,50....:...|
00000540  0d e3 79 25 3d 30 b8 32  35 35 0d 03 0c 0e e3 78  |..y%=0.255.....x|
00000550  25 3d 30 b8 32 30 88 34  0d 03 16 1c 21 28 73 63  |%=0.20.4....!(sc|
00000560  72 65 65 6e 25 2b 28 79  25 2a 33 32 30 29 2b 78  |reen%+(y%*320)+x|
00000570  25 29 3d b3 0d 03 20 05  ed 0d 03 2a 05 ed 0d 03  |%)=... ....*....|
00000580  34 05 3a 0d 03 3e 0d d6  6d 61 6b 65 5f 41 53 47  |4.:..>..make_ASG|
00000590  0d 03 48 09 73 25 2b 3d  31 0d 03 52 05 ed 0d 03  |..H.s%+=1..R....|
000005a0  5c 05 3a 0d 03 66 09 74  25 3d 31 30 0d 03 70 05  |\.:..f.t%=10..p.|
000005b0  f5 0d 03 7a 0b e3 73 25  3d 31 b8 36 0d 03 84 09  |...z..s%=1.6....|
000005c0  d1 3d 30 3a f5 0d 03 8e  15 e7 a6 28 2d 35 36 29  |.=0:.......(-56)|
000005d0  20 f5 20 fd a6 28 2d 35  35 29 0d 03 98 09 fd 91  | . ..(-55)......|
000005e0  3e 74 25 0d 03 a2 1d e7  a6 28 2d 35 38 29 20 74  |>t%......(-58) t|
000005f0  25 2d 3d 31 3a e7 74 25  3d 2d 31 20 74 25 3d 30  |%-=1:.t%=-1 t%=0|
00000600  0d 03 ac 1e e7 a6 28 2d  34 32 29 20 74 25 2b 3d  |......(-42) t%+=|
00000610  31 3a e7 74 25 3d 33 30  20 74 25 3d 33 30 0d 03  |1:.t%=30 t%=30..|
00000620  b6 06 c8 96 0d 03 c0 0e  c8 99 36 2c 31 31 33 2c  |..........6,113,|
00000630  73 25 0d 03 ca 05 ed 0d  03 d4 06 fd 30 0d 03 de  |s%..........0...|
00000640  05 3a 0d 03 e8 1b dd a4  73 74 61 72 74 5f 6f 66  |.:......start_of|
00000650  5f 73 63 72 65 65 6e 28  73 63 72 25 29 0d 03 f2  |_screen(scr%)...|
00000660  0d 21 73 63 72 25 3d 31  34 39 0d 03 fc 0d 73 63  |.!scr%=149....sc|
00000670  72 25 21 34 3d 2d 31 0d  04 06 2c c8 99 22 4f 53  |r%!4=-1...,.."OS|
00000680  5f 52 65 61 64 56 64 75  56 61 72 69 61 62 6c 65  |_ReadVduVariable|
00000690  73 22 2c 73 63 72 25 2c  73 63 72 25 20 b8 20 73  |s",scr%,scr% . s|
000006a0  63 72 25 0d 04 10 0a 3d  21 73 63 72 25 0d ff     |cr%....=!scr%..|
000006af

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .