StarInfo/Adcock/!Glass/!Runimage

Home » Archimedes archive » Acorn User » AU 1998-09.adf » Regulars » StarInfo/Adcock/!Glass/!Runimage

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 1998-09.adf » Regulars
Filename:	StarInfo/Adcock/!Glass/!Runimage
Read OK:	✔
File size:	0F91 bytes
Load address:	0000
Exec address:	0000

File contents

   10ON ERROR PRINT REPORT$;" at line ";ERL:END
   20MODE 13
   30var=1.75
   50:
   60radius%=32:radiusshift%=5:OMX=160:OMY=128:MX=160:MY=128:MXP=SGN(RND)*RND(2):MYP=SGN(RND)*RND(2):Bank%=1
   70PROCGetSprite
   80PROCBA:SYS 6,113,1:SYS 6,112,1:Bank%=2
   90PROCSetUp
  100PROCAssemble
  110MOUSE RECTANGLE radius%*4,radius%*5,1280-radius%*8,1024-radius%*10
  120:
  130REPEAT
  140   :
  150   MOUSE X,Y,MB
  160   :
  170   OMX=MX
  180   OMY=MY
  190   IF MB=4 THEN
  200     MX=X>>2
  210     MY=(1024-Y)>>2
  220   ELSE
  230     MX+=MXP
  240     IF MX>=320-radius% OR MX<=radius% THEN MXP=-RND(2)*SGN(MXP):MX+=MXP
  250     MY+=MYP
  260     IF MY>=255-radius%-8 OR MY<=radius%+8 THEN MYP=-RND(2)*SGN(MYP):MY+=MYP
  270   ENDIF
  280   :
  290   A%=MX+(MY<<8)+(MY<<6)+BA%(3)
  300   B%=BA%(3-Bank%)+MX-radius%+(MY<<8)+(MY<<6)
  310   C%=table%
  320   D%=table2%
  330   CALL mangify
  340   :
  350   SYS 6,19
  360   SYS 6,112,Bank%
  370   SYS 6,113,3-Bank%
  380   Bank%=3-Bank%
  390
  400   A%=OMX-radius%+(OMY-(radius%+2))*320
  410   B%=BA%(3-Bank%)
  420   C%=BA%(3)
  430   CALL Plot
  440   :
  450UNTIL 0
  460END
  470:
  480DEF PROCBA
  490LOCAL input_list%,output_list%
  500DIM input_list%  8
  510DIM output_list% 4
  520input_list%!0 = 149
  530input_list%!4 =  -1
  540DIM BA%(3)
  550FOR L = 1 TO 3
  560SYS 6,112,L
  570SYS 6,113,L
  580CLS
  590SYS "OS_SpriteOp",34+256,spr%,sprname$,xoff%,yoff%,&08
  600SYS "OS_ReadVduVariables",input_list%,output_list%
  610BA%(L)=output_list%!0
  620NEXT L
  630ENDPROC
  640:
  650DEF PROCSetUp
  660DIM table% radius%*radius%*8*4
  670FOR y% = 0 TO radius%-1
  680r%=SQR(((radius%-1)^2)-(y%^2))
  690FOR x% = radius%-r% TO radius%+r%
  700table%!(4*(x%+y%*radius%*2))=var*(SGN(x%-radius%)*((x%-radius%)^2)/(r%+0.1))+INT(var*((y%+2)^2)/radius%)*320
  710NEXT x%
  720NEXT y%
  730:
  740DIM table2% 4*radius%
  750FOR y% = radius%-1 TO 0 STEP -1
  760table2%!(y%*4)=INT(SQR(((radius%-1)^2)-(y%^2)))
  770NEXT y%
  780ENDPROC
  790:
  800:
  810:
  820DEF PROCAssemble
  830DIM code% 1024
  840FOR pass%=0 TO 2 STEP 2
  850P%=code%
  860[ OPT pass%
  870.mangify      MOV    R5,#(radius%-1)
  880.yloop        LDR    R6,[R3,R5,LSL #2]
  890              ADD    R7,R6,#radius%
  900              RSB    R4,R6,#radius%
  910              ADD    R9,R4,R5,LSL #(radiusshift%+1)
  920              ADD    R10,R4,R5,LSL#8
  930              ADD    R10,R10,R5,LSL#6
  940.xloop        LDR    R8,[R2,R9,LSL #2]
  950              LDRB   R8,[R0,R8]
  960              STRB   R8,[R1,R10]
  970              LDR    R8,[R2,R9,LSL #2]
  980              RSB    R8,R8,#0
  990              LDRB   R8,[R0,R8]
 1000              RSB    R11,R10,#(radius%*2)
 1010              STRB   R8,[R1,R11]
 1020              ADD    R9,R9,#1
 1030              ADD    R10,R10,#1
 1040              ADD    R4,R4,#1
 1050              CMP    R4,R7
 1060              BLE    xloop
 1070              :
 1080              SUBS   R5,R5,#1
 1090              BGE    yloop
 1100              :
 1110              MOVS   PC,R14
 1120              :
 1130              :
 1140              :
 1150.Plot         MOV    R6,#(radius%*2+4)
 1160              RSB    R5,R6,#320
 1170              MOV    R4,R6
 1180.yloop2       MOV    R3,R6
 1190              ADD    R9,R2,R0
 1200.xloop2       LDRB   R7,[R2,R0]
 1210              STRB   R7,[R1,R0]
 1220              ADD    R0,R0,#1
 1230              SUBS   R3,R3,#1
 1240              BGT    xloop2
 1250              ADD    R0,R0,R5
 1260              SUBS   R4,R4,#1
 1270              BGT    yloop2
 1280              MOVS   PC,R14
 1290.Bank1        EQUD   BA%(1)
 1300.Bank2        EQUD   BA%(2)
 1310]
 1320NEXT pass%
 1330ENDPROC
 1340:
 1350:
 1360:
 1370DEF PROCGetSprite
 1380REM Get path
 1390INPUT "Path of mode 13 sprite (Press Return to use default)" S$
 1400IF S$="" S$="<Glass$dir>.spr"
 1410:
 1420REM Load spritefile
 1430SYS "OS_File",5,S$ TO ,,,,spr_len%
 1440DIM spr% spr_len%+4
 1450!spr%=spr_len%+4
 1460SYS "OS_File",255,S$,spr%+4
 1470:
 1480REM Get name of first sprite
 1490DIM sprname% 16
 1500SYS "OS_SpriteOp",13+256,spr%,sprname%,16,1 TO ,,,sprname_len%
 1510sprname$=""
 1520FOR p%=0 TO sprname_len%
 1530sprname$+=CHR$(sprname%?p%)
 1540NEXT p%
 1550:
 1560REM Check right mode
 1570SYS "OS_SpriteOp",40+256,spr%,sprname$ TO ,,,xoff%,yoff%,,mode%
 1580IF mode%<>13 THEN REPEAT UNTIL INKEY-0:PRINT "Sprite "+sprname$+" is in mode ";mode%;" not mode 13. Use anyway? ":A$=GET$:IF A$="N" OR A$="n" THEN END
 1590xoff%=(320-xoff%)*2
 1600yoff%=(255-yoff%)*2
 1610ENDPROC
 1620
 1630


� � � �$;" at line ";�:�
� 13
var=1.75
2:
<_radius%=32:radiusshift%=5:OMX=160:OMY=128:MX=160:MY=128:MXP=�(�)*�(2):MYP=�(�)*�(2):Bank%=1
F�GetSprite
P%�BA:ș 6,113,1:ș 6,112,1:Bank%=2
Z
�SetUp
d
�Assemble
n<ȗ ȓ radius%*4,radius%*5,1280-radius%*8,1024-radius%*10
x:
��
�   :
�   ȗ X,Y,MB
�   :
�
   OMX=MX
�
   OMY=MY
�   � MB=4 �
�     MX=X>>2
�     MY=(1024-Y)>>2
�   �
�     MX+=MXP
�C     � MX>=320-radius% � MX<=radius% � MXP=-�(2)*�(MXP):MX+=MXP
�     MY+=MYP
G     � MY>=255-radius%-8 � MY<=radius%+8 � MYP=-�(2)*�(MYP):MY+=MYP
   �
   :
"#   A%=MX+(MY<<8)+(MY<<6)+BA%(3)
,1   B%=BA%(3-Bank%)+MX-radius%+(MY<<8)+(MY<<6)
6   C%=table%
@   D%=table2%
J   � mangify
T   :
^   ș 6,19
h   ș 6,112,Bank%
r   ș 6,113,3-Bank%
|   Bank%=3-Bank%
�
�+   A%=OMX-radius%+(OMY-(radius%+2))*320
�   B%=BA%(3-Bank%)
�   C%=BA%(3)
�
   � Plot
�   :
�� 0
��
�:
�	� �BA
�� input_list%,output_list%
�� input_list%  8
�� output_list% 4
input_list%!0 = 149
input_list%!4 =  -1
� BA%(3)
&� L = 1 � 3
0ș 6,112,L
:ș 6,113,L
D�
N9ș "OS_SpriteOp",34+256,spr%,sprname$,xoff%,yoff%,&08
X5ș "OS_ReadVduVariables",input_list%,output_list%
bBA%(L)=output_list%!0
l� L
v�
�:
�� �SetUp
� � table% radius%*radius%*8*4
�� y% = 0 � radius%-1
� r%=�(((radius%-1)^2)-(y%^2))
�"� x% = radius%-r% � radius%+r%
�ltable%!(4*(x%+y%*radius%*2))=var*(�(x%-radius%)*((x%-radius%)^2)/(r%+0.1))+�(var*((y%+2)^2)/radius%)*320
�� x%
�� y%
�:
�� table2% 4*radius%
�� y% = radius%-1 � 0 � -1
�/table2%!(y%*4)=�(�(((radius%-1)^2)-(y%^2)))
� y%
�
:
 :
*:
4� �Assemble
>� code% 1024
H� pass%=0 � 2 � 2
RP%=code%
\[ OPT pass%
f(.mangify      MOV    R5,#(radius%-1)
p*.yloop        LDR    R6,[R3,R5,LSL #2]
z'              ADD    R7,R6,#radius%
�'              RSB    R4,R6,#radius%
�7              ADD    R9,R4,R5,LSL #(radiusshift%+1)
�(              ADD    R10,R4,R5,LSL#8
�)              ADD    R10,R10,R5,LSL#6
�*.xloop        LDR    R8,[R2,R9,LSL #2]
�#              LDRB   R8,[R0,R8]
�$              STRB   R8,[R1,R10]
�*              LDR    R8,[R2,R9,LSL #2]
�!              RSB    R8,R8,#0
�#              LDRB   R8,[R0,R8]
�-              RSB    R11,R10,#(radius%*2)
�$              STRB   R8,[R1,R11]
�!              ADD    R9,R9,#1
#              ADD    R10,R10,#1
!              ADD    R4,R4,#1
              CMP    R4,R7
$              BLE    xloop
.              :
8!              SUBS   R5,R5,#1
B              BGE    yloop
L              :
V              MOVS   PC,R14
`              :
j              :
t              :
~*.Plot         MOV    R6,#(radius%*2+4)
�#              RSB    R5,R6,#320
�              MOV    R4,R6
�.yloop2       MOV    R3,R6
�!              ADD    R9,R2,R0
�#.xloop2       LDRB   R7,[R2,R0]
�#              STRB   R7,[R1,R0]
�!              ADD    R0,R0,#1
�!              SUBS   R3,R3,#1
�              BGT    xloop2
�!              ADD    R0,R0,R5
�!              SUBS   R4,R4,#1
�              BGT    yloop2
              MOVS   PC,R14

.Bank1        EQUD   BA%(1)
.Bank2        EQUD   BA%(2)
]
(� pass%
2�
<:
F:
P:
Z� �GetSprite
d� Get path
n?� "Path of mode 13 sprite (Press Return to use default)" S$
x � S$="" S$="<Glass$dir>.spr"
�:
�� Load spritefile
�$ș "OS_File",5,S$ � ,,,,spr_len%
�� spr% spr_len%+4
�!spr%=spr_len%+4
�ș "OS_File",255,S$,spr%+4
�:
�� Get name of first sprite
�� sprname% 16
�@ș "OS_SpriteOp",13+256,spr%,sprname%,16,1 � ,,,sprname_len%
�sprname$=""
�� p%=0 � sprname_len%
�sprname$+=�(sprname%?p%)
� p%
:
� Check right mode
"Aș "OS_SpriteOp",40+256,spr%,sprname$ � ,,,xoff%,yoff%,,mode%
,{� mode%<>13 � � � �-0:� "Sprite "+sprname$+" is in mode ";mode%;" not mode 13. Use anyway? ":A$=�:� A$="N" � A$="n" � �
6xoff%=(320-xoff%)*2
@yoff%=(255-yoff%)*2
J�
T
^
�

00000000  0d 00 0a 1c ee 20 85 20  f1 20 f6 24 3b 22 20 61  |..... . . .$;" a|
00000010  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 14 08  |t line ";.:.....|
00000020  eb 20 31 33 0d 00 1e 0c  76 61 72 3d 31 2e 37 35  |. 13....var=1.75|
00000030  0d 00 32 05 3a 0d 00 3c  5f 72 61 64 69 75 73 25  |..2.:..<_radius%|
00000040  3d 33 32 3a 72 61 64 69  75 73 73 68 69 66 74 25  |=32:radiusshift%|
00000050  3d 35 3a 4f 4d 58 3d 31  36 30 3a 4f 4d 59 3d 31  |=5:OMX=160:OMY=1|
00000060  32 38 3a 4d 58 3d 31 36  30 3a 4d 59 3d 31 32 38  |28:MX=160:MY=128|
00000070  3a 4d 58 50 3d b4 28 b3  29 2a b3 28 32 29 3a 4d  |:MXP=.(.)*.(2):M|
00000080  59 50 3d b4 28 b3 29 2a  b3 28 32 29 3a 42 61 6e  |YP=.(.)*.(2):Ban|
00000090  6b 25 3d 31 0d 00 46 0e  f2 47 65 74 53 70 72 69  |k%=1..F..GetSpri|
000000a0  74 65 0d 00 50 25 f2 42  41 3a c8 99 20 36 2c 31  |te..P%.BA:.. 6,1|
000000b0  31 33 2c 31 3a c8 99 20  36 2c 31 31 32 2c 31 3a  |13,1:.. 6,112,1:|
000000c0  42 61 6e 6b 25 3d 32 0d  00 5a 0a f2 53 65 74 55  |Bank%=2..Z..SetU|
000000d0  70 0d 00 64 0d f2 41 73  73 65 6d 62 6c 65 0d 00  |p..d..Assemble..|
000000e0  6e 3c c8 97 20 c8 93 20  72 61 64 69 75 73 25 2a  |n<.. .. radius%*|
000000f0  34 2c 72 61 64 69 75 73  25 2a 35 2c 31 32 38 30  |4,radius%*5,1280|
00000100  2d 72 61 64 69 75 73 25  2a 38 2c 31 30 32 34 2d  |-radius%*8,1024-|
00000110  72 61 64 69 75 73 25 2a  31 30 0d 00 78 05 3a 0d  |radius%*10..x.:.|
00000120  00 82 05 f5 0d 00 8c 08  20 20 20 3a 0d 00 96 10  |........   :....|
00000130  20 20 20 c8 97 20 58 2c  59 2c 4d 42 0d 00 a0 08  |   .. X,Y,MB....|
00000140  20 20 20 3a 0d 00 aa 0d  20 20 20 4f 4d 58 3d 4d  |   :....   OMX=M|
00000150  58 0d 00 b4 0d 20 20 20  4f 4d 59 3d 4d 59 0d 00  |X....   OMY=MY..|
00000160  be 0f 20 20 20 e7 20 4d  42 3d 34 20 8c 0d 00 c8  |..   . MB=4 ....|
00000170  10 20 20 20 20 20 4d 58  3d 58 3e 3e 32 0d 00 d2  |.     MX=X>>2...|
00000180  17 20 20 20 20 20 4d 59  3d 28 31 30 32 34 2d 59  |.     MY=(1024-Y|
00000190  29 3e 3e 32 0d 00 dc 08  20 20 20 cc 0d 00 e6 10  |)>>2....   .....|
000001a0  20 20 20 20 20 4d 58 2b  3d 4d 58 50 0d 00 f0 43  |     MX+=MXP...C|
000001b0  20 20 20 20 20 e7 20 4d  58 3e 3d 33 32 30 2d 72  |     . MX>=320-r|
000001c0  61 64 69 75 73 25 20 84  20 4d 58 3c 3d 72 61 64  |adius% . MX<=rad|
000001d0  69 75 73 25 20 8c 20 4d  58 50 3d 2d b3 28 32 29  |ius% . MXP=-.(2)|
000001e0  2a b4 28 4d 58 50 29 3a  4d 58 2b 3d 4d 58 50 0d  |*.(MXP):MX+=MXP.|
000001f0  00 fa 10 20 20 20 20 20  4d 59 2b 3d 4d 59 50 0d  |...     MY+=MYP.|
00000200  01 04 47 20 20 20 20 20  e7 20 4d 59 3e 3d 32 35  |..G     . MY>=25|
00000210  35 2d 72 61 64 69 75 73  25 2d 38 20 84 20 4d 59  |5-radius%-8 . MY|
00000220  3c 3d 72 61 64 69 75 73  25 2b 38 20 8c 20 4d 59  |<=radius%+8 . MY|
00000230  50 3d 2d b3 28 32 29 2a  b4 28 4d 59 50 29 3a 4d  |P=-.(2)*.(MYP):M|
00000240  59 2b 3d 4d 59 50 0d 01  0e 08 20 20 20 cd 0d 01  |Y+=MYP....   ...|
00000250  18 08 20 20 20 3a 0d 01  22 23 20 20 20 41 25 3d  |..   :.."#   A%=|
00000260  4d 58 2b 28 4d 59 3c 3c  38 29 2b 28 4d 59 3c 3c  |MX+(MY<<8)+(MY<<|
00000270  36 29 2b 42 41 25 28 33  29 0d 01 2c 31 20 20 20  |6)+BA%(3)..,1   |
00000280  42 25 3d 42 41 25 28 33  2d 42 61 6e 6b 25 29 2b  |B%=BA%(3-Bank%)+|
00000290  4d 58 2d 72 61 64 69 75  73 25 2b 28 4d 59 3c 3c  |MX-radius%+(MY<<|
000002a0  38 29 2b 28 4d 59 3c 3c  36 29 0d 01 36 10 20 20  |8)+(MY<<6)..6.  |
000002b0  20 43 25 3d 74 61 62 6c  65 25 0d 01 40 11 20 20  | C%=table%..@.  |
000002c0  20 44 25 3d 74 61 62 6c  65 32 25 0d 01 4a 10 20  | D%=table2%..J. |
000002d0  20 20 d6 20 6d 61 6e 67  69 66 79 0d 01 54 08 20  |  . mangify..T. |
000002e0  20 20 3a 0d 01 5e 0e 20  20 20 c8 99 20 36 2c 31  |  :..^.   .. 6,1|
000002f0  39 0d 01 68 15 20 20 20  c8 99 20 36 2c 31 31 32  |9..h.   .. 6,112|
00000300  2c 42 61 6e 6b 25 0d 01  72 17 20 20 20 c8 99 20  |,Bank%..r.   .. |
00000310  36 2c 31 31 33 2c 33 2d  42 61 6e 6b 25 0d 01 7c  |6,113,3-Bank%..||
00000320  14 20 20 20 42 61 6e 6b  25 3d 33 2d 42 61 6e 6b  |.   Bank%=3-Bank|
00000330  25 0d 01 86 04 0d 01 90  2b 20 20 20 41 25 3d 4f  |%.......+   A%=O|
00000340  4d 58 2d 72 61 64 69 75  73 25 2b 28 4f 4d 59 2d  |MX-radius%+(OMY-|
00000350  28 72 61 64 69 75 73 25  2b 32 29 29 2a 33 32 30  |(radius%+2))*320|
00000360  0d 01 9a 16 20 20 20 42  25 3d 42 41 25 28 33 2d  |....   B%=BA%(3-|
00000370  42 61 6e 6b 25 29 0d 01  a4 10 20 20 20 43 25 3d  |Bank%)....   C%=|
00000380  42 41 25 28 33 29 0d 01  ae 0d 20 20 20 d6 20 50  |BA%(3)....   . P|
00000390  6c 6f 74 0d 01 b8 08 20  20 20 3a 0d 01 c2 07 fd  |lot....   :.....|
000003a0  20 30 0d 01 cc 05 e0 0d  01 d6 05 3a 0d 01 e0 09  | 0.........:....|
000003b0  dd 20 f2 42 41 0d 01 ea  1e ea 20 69 6e 70 75 74  |. .BA..... input|
000003c0  5f 6c 69 73 74 25 2c 6f  75 74 70 75 74 5f 6c 69  |_list%,output_li|
000003d0  73 74 25 0d 01 f4 14 de  20 69 6e 70 75 74 5f 6c  |st%..... input_l|
000003e0  69 73 74 25 20 20 38 0d  01 fe 14 de 20 6f 75 74  |ist%  8..... out|
000003f0  70 75 74 5f 6c 69 73 74  25 20 34 0d 02 08 17 69  |put_list% 4....i|
00000400  6e 70 75 74 5f 6c 69 73  74 25 21 30 20 3d 20 31  |nput_list%!0 = 1|
00000410  34 39 0d 02 12 17 69 6e  70 75 74 5f 6c 69 73 74  |49....input_list|
00000420  25 21 34 20 3d 20 20 2d  31 0d 02 1c 0c de 20 42  |%!4 =  -1..... B|
00000430  41 25 28 33 29 0d 02 26  0f e3 20 4c 20 3d 20 31  |A%(3)..&.. L = 1|
00000440  20 b8 20 33 0d 02 30 0e  c8 99 20 36 2c 31 31 32  | . 3..0... 6,112|
00000450  2c 4c 0d 02 3a 0e c8 99  20 36 2c 31 31 33 2c 4c  |,L..:... 6,113,L|
00000460  0d 02 44 05 db 0d 02 4e  39 c8 99 20 22 4f 53 5f  |..D....N9.. "OS_|
00000470  53 70 72 69 74 65 4f 70  22 2c 33 34 2b 32 35 36  |SpriteOp",34+256|
00000480  2c 73 70 72 25 2c 73 70  72 6e 61 6d 65 24 2c 78  |,spr%,sprname$,x|
00000490  6f 66 66 25 2c 79 6f 66  66 25 2c 26 30 38 0d 02  |off%,yoff%,&08..|
000004a0  58 35 c8 99 20 22 4f 53  5f 52 65 61 64 56 64 75  |X5.. "OS_ReadVdu|
000004b0  56 61 72 69 61 62 6c 65  73 22 2c 69 6e 70 75 74  |Variables",input|
000004c0  5f 6c 69 73 74 25 2c 6f  75 74 70 75 74 5f 6c 69  |_list%,output_li|
000004d0  73 74 25 0d 02 62 19 42  41 25 28 4c 29 3d 6f 75  |st%..b.BA%(L)=ou|
000004e0  74 70 75 74 5f 6c 69 73  74 25 21 30 0d 02 6c 07  |tput_list%!0..l.|
000004f0  ed 20 4c 0d 02 76 05 e1  0d 02 80 05 3a 0d 02 8a  |. L..v......:...|
00000500  0c dd 20 f2 53 65 74 55  70 0d 02 94 20 de 20 74  |.. .SetUp... . t|
00000510  61 62 6c 65 25 20 72 61  64 69 75 73 25 2a 72 61  |able% radius%*ra|
00000520  64 69 75 73 25 2a 38 2a  34 0d 02 9e 18 e3 20 79  |dius%*8*4..... y|
00000530  25 20 3d 20 30 20 b8 20  72 61 64 69 75 73 25 2d  |% = 0 . radius%-|
00000540  31 0d 02 a8 20 72 25 3d  b6 28 28 28 72 61 64 69  |1... r%=.(((radi|
00000550  75 73 25 2d 31 29 5e 32  29 2d 28 79 25 5e 32 29  |us%-1)^2)-(y%^2)|
00000560  29 0d 02 b2 22 e3 20 78  25 20 3d 20 72 61 64 69  |)...". x% = radi|
00000570  75 73 25 2d 72 25 20 b8  20 72 61 64 69 75 73 25  |us%-r% . radius%|
00000580  2b 72 25 0d 02 bc 6c 74  61 62 6c 65 25 21 28 34  |+r%...ltable%!(4|
00000590  2a 28 78 25 2b 79 25 2a  72 61 64 69 75 73 25 2a  |*(x%+y%*radius%*|
000005a0  32 29 29 3d 76 61 72 2a  28 b4 28 78 25 2d 72 61  |2))=var*(.(x%-ra|
000005b0  64 69 75 73 25 29 2a 28  28 78 25 2d 72 61 64 69  |dius%)*((x%-radi|
000005c0  75 73 25 29 5e 32 29 2f  28 72 25 2b 30 2e 31 29  |us%)^2)/(r%+0.1)|
000005d0  29 2b a8 28 76 61 72 2a  28 28 79 25 2b 32 29 5e  |)+.(var*((y%+2)^|
000005e0  32 29 2f 72 61 64 69 75  73 25 29 2a 33 32 30 0d  |2)/radius%)*320.|
000005f0  02 c6 08 ed 20 78 25 0d  02 d0 08 ed 20 79 25 0d  |.... x%..... y%.|
00000600  02 da 05 3a 0d 02 e4 17  de 20 74 61 62 6c 65 32  |...:..... table2|
00000610  25 20 34 2a 72 61 64 69  75 73 25 0d 02 ee 1d e3  |% 4*radius%.....|
00000620  20 79 25 20 3d 20 72 61  64 69 75 73 25 2d 31 20  | y% = radius%-1 |
00000630  b8 20 30 20 88 20 2d 31  0d 02 f8 2f 74 61 62 6c  |. 0 . -1.../tabl|
00000640  65 32 25 21 28 79 25 2a  34 29 3d a8 28 b6 28 28  |e2%!(y%*4)=.(.((|
00000650  28 72 61 64 69 75 73 25  2d 31 29 5e 32 29 2d 28  |(radius%-1)^2)-(|
00000660  79 25 5e 32 29 29 29 0d  03 02 08 ed 20 79 25 0d  |y%^2)))..... y%.|
00000670  03 0c 05 e1 0d 03 16 05  3a 0d 03 20 05 3a 0d 03  |........:.. .:..|
00000680  2a 05 3a 0d 03 34 0f dd  20 f2 41 73 73 65 6d 62  |*.:..4.. .Assemb|
00000690  6c 65 0d 03 3e 10 de 20  63 6f 64 65 25 20 31 30  |le..>.. code% 10|
000006a0  32 34 0d 03 48 15 e3 20  70 61 73 73 25 3d 30 20  |24..H.. pass%=0 |
000006b0  b8 20 32 20 88 20 32 0d  03 52 0c 50 25 3d 63 6f  |. 2 . 2..R.P%=co|
000006c0  64 65 25 0d 03 5c 0f 5b  20 4f 50 54 20 70 61 73  |de%..\.[ OPT pas|
000006d0  73 25 0d 03 66 28 2e 6d  61 6e 67 69 66 79 20 20  |s%..f(.mangify  |
000006e0  20 20 20 20 4d 4f 56 20  20 20 20 52 35 2c 23 28  |    MOV    R5,#(|
000006f0  72 61 64 69 75 73 25 2d  31 29 0d 03 70 2a 2e 79  |radius%-1)..p*.y|
00000700  6c 6f 6f 70 20 20 20 20  20 20 20 20 4c 44 52 20  |loop        LDR |
00000710  20 20 20 52 36 2c 5b 52  33 2c 52 35 2c 4c 53 4c  |   R6,[R3,R5,LSL|
00000720  20 23 32 5d 0d 03 7a 27  20 20 20 20 20 20 20 20  | #2]..z'        |
00000730  20 20 20 20 20 20 41 44  44 20 20 20 20 52 37 2c  |      ADD    R7,|
00000740  52 36 2c 23 72 61 64 69  75 73 25 0d 03 84 27 20  |R6,#radius%...' |
00000750  20 20 20 20 20 20 20 20  20 20 20 20 20 52 53 42  |             RSB|
00000760  20 20 20 20 52 34 2c 52  36 2c 23 72 61 64 69 75  |    R4,R6,#radiu|
00000770  73 25 0d 03 8e 37 20 20  20 20 20 20 20 20 20 20  |s%...7          |
00000780  20 20 20 20 41 44 44 20  20 20 20 52 39 2c 52 34  |    ADD    R9,R4|
00000790  2c 52 35 2c 4c 53 4c 20  23 28 72 61 64 69 75 73  |,R5,LSL #(radius|
000007a0  73 68 69 66 74 25 2b 31  29 0d 03 98 28 20 20 20  |shift%+1)...(   |
000007b0  20 20 20 20 20 20 20 20  20 20 20 41 44 44 20 20  |           ADD  |
000007c0  20 20 52 31 30 2c 52 34  2c 52 35 2c 4c 53 4c 23  |  R10,R4,R5,LSL#|
000007d0  38 0d 03 a2 29 20 20 20  20 20 20 20 20 20 20 20  |8...)           |
000007e0  20 20 20 41 44 44 20 20  20 20 52 31 30 2c 52 31  |   ADD    R10,R1|
000007f0  30 2c 52 35 2c 4c 53 4c  23 36 0d 03 ac 2a 2e 78  |0,R5,LSL#6...*.x|
00000800  6c 6f 6f 70 20 20 20 20  20 20 20 20 4c 44 52 20  |loop        LDR |
00000810  20 20 20 52 38 2c 5b 52  32 2c 52 39 2c 4c 53 4c  |   R8,[R2,R9,LSL|
00000820  20 23 32 5d 0d 03 b6 23  20 20 20 20 20 20 20 20  | #2]...#        |
00000830  20 20 20 20 20 20 4c 44  52 42 20 20 20 52 38 2c  |      LDRB   R8,|
00000840  5b 52 30 2c 52 38 5d 0d  03 c0 24 20 20 20 20 20  |[R0,R8]...$     |
00000850  20 20 20 20 20 20 20 20  20 53 54 52 42 20 20 20  |         STRB   |
00000860  52 38 2c 5b 52 31 2c 52  31 30 5d 0d 03 ca 2a 20  |R8,[R1,R10]...* |
00000870  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 52  |             LDR|
00000880  20 20 20 20 52 38 2c 5b  52 32 2c 52 39 2c 4c 53  |    R8,[R2,R9,LS|
00000890  4c 20 23 32 5d 0d 03 d4  21 20 20 20 20 20 20 20  |L #2]...!       |
000008a0  20 20 20 20 20 20 20 52  53 42 20 20 20 20 52 38  |       RSB    R8|
000008b0  2c 52 38 2c 23 30 0d 03  de 23 20 20 20 20 20 20  |,R8,#0...#      |
000008c0  20 20 20 20 20 20 20 20  4c 44 52 42 20 20 20 52  |        LDRB   R|
000008d0  38 2c 5b 52 30 2c 52 38  5d 0d 03 e8 2d 20 20 20  |8,[R0,R8]...-   |
000008e0  20 20 20 20 20 20 20 20  20 20 20 52 53 42 20 20  |           RSB  |
000008f0  20 20 52 31 31 2c 52 31  30 2c 23 28 72 61 64 69  |  R11,R10,#(radi|
00000900  75 73 25 2a 32 29 0d 03  f2 24 20 20 20 20 20 20  |us%*2)...$      |
00000910  20 20 20 20 20 20 20 20  53 54 52 42 20 20 20 52  |        STRB   R|
00000920  38 2c 5b 52 31 2c 52 31  31 5d 0d 03 fc 21 20 20  |8,[R1,R11]...!  |
00000930  20 20 20 20 20 20 20 20  20 20 20 20 41 44 44 20  |            ADD |
00000940  20 20 20 52 39 2c 52 39  2c 23 31 0d 04 06 23 20  |   R9,R9,#1...# |
00000950  20 20 20 20 20 20 20 20  20 20 20 20 20 41 44 44  |             ADD|
00000960  20 20 20 20 52 31 30 2c  52 31 30 2c 23 31 0d 04  |    R10,R10,#1..|
00000970  10 21 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.!              |
00000980  41 44 44 20 20 20 20 52  34 2c 52 34 2c 23 31 0d  |ADD    R4,R4,#1.|
00000990  04 1a 1e 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
000009a0  20 43 4d 50 20 20 20 20  52 34 2c 52 37 0d 04 24  | CMP    R4,R7..$|
000009b0  1e 20 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |.              B|
000009c0  4c 45 20 20 20 20 78 6c  6f 6f 70 0d 04 2e 13 20  |LE    xloop.... |
000009d0  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 0d 04  |             :..|
000009e0  38 21 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8!              |
000009f0  53 55 42 53 20 20 20 52  35 2c 52 35 2c 23 31 0d  |SUBS   R5,R5,#1.|
00000a00  04 42 1e 20 20 20 20 20  20 20 20 20 20 20 20 20  |.B.             |
00000a10  20 42 47 45 20 20 20 20  79 6c 6f 6f 70 0d 04 4c  | BGE    yloop..L|
00000a20  13 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |.              :|
00000a30  0d 04 56 1f 20 20 20 20  20 20 20 20 20 20 20 20  |..V.            |
00000a40  20 20 4d 4f 56 53 20 20  20 50 43 2c 52 31 34 0d  |  MOVS   PC,R14.|
00000a50  04 60 13 20 20 20 20 20  20 20 20 20 20 20 20 20  |.`.             |
00000a60  20 3a 0d 04 6a 13 20 20  20 20 20 20 20 20 20 20  | :..j.          |
00000a70  20 20 20 20 3a 0d 04 74  13 20 20 20 20 20 20 20  |    :..t.       |
00000a80  20 20 20 20 20 20 20 3a  0d 04 7e 2a 2e 50 6c 6f  |       :..~*.Plo|
00000a90  74 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |t         MOV   |
00000aa0  20 52 36 2c 23 28 72 61  64 69 75 73 25 2a 32 2b  | R6,#(radius%*2+|
00000ab0  34 29 0d 04 88 23 20 20  20 20 20 20 20 20 20 20  |4)...#          |
00000ac0  20 20 20 20 52 53 42 20  20 20 20 52 35 2c 52 36  |    RSB    R5,R6|
00000ad0  2c 23 33 32 30 0d 04 92  1e 20 20 20 20 20 20 20  |,#320....       |
00000ae0  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 52 34  |       MOV    R4|
00000af0  2c 52 36 0d 04 9c 1e 2e  79 6c 6f 6f 70 32 20 20  |,R6.....yloop2  |
00000b00  20 20 20 20 20 4d 4f 56  20 20 20 20 52 33 2c 52  |     MOV    R3,R|
00000b10  36 0d 04 a6 21 20 20 20  20 20 20 20 20 20 20 20  |6...!           |
00000b20  20 20 20 41 44 44 20 20  20 20 52 39 2c 52 32 2c  |   ADD    R9,R2,|
00000b30  52 30 0d 04 b0 23 2e 78  6c 6f 6f 70 32 20 20 20  |R0...#.xloop2   |
00000b40  20 20 20 20 4c 44 52 42  20 20 20 52 37 2c 5b 52  |    LDRB   R7,[R|
00000b50  32 2c 52 30 5d 0d 04 ba  23 20 20 20 20 20 20 20  |2,R0]...#       |
00000b60  20 20 20 20 20 20 20 53  54 52 42 20 20 20 52 37  |       STRB   R7|
00000b70  2c 5b 52 31 2c 52 30 5d  0d 04 c4 21 20 20 20 20  |,[R1,R0]...!    |
00000b80  20 20 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |          ADD   |
00000b90  20 52 30 2c 52 30 2c 23  31 0d 04 ce 21 20 20 20  | R0,R0,#1...!   |
00000ba0  20 20 20 20 20 20 20 20  20 20 20 53 55 42 53 20  |           SUBS |
00000bb0  20 20 52 33 2c 52 33 2c  23 31 0d 04 d8 1f 20 20  |  R3,R3,#1....  |
00000bc0  20 20 20 20 20 20 20 20  20 20 20 20 42 47 54 20  |            BGT |
00000bd0  20 20 20 78 6c 6f 6f 70  32 0d 04 e2 21 20 20 20  |   xloop2...!   |
00000be0  20 20 20 20 20 20 20 20  20 20 20 41 44 44 20 20  |           ADD  |
00000bf0  20 20 52 30 2c 52 30 2c  52 35 0d 04 ec 21 20 20  |  R0,R0,R5...!  |
00000c00  20 20 20 20 20 20 20 20  20 20 20 20 53 55 42 53  |            SUBS|
00000c10  20 20 20 52 34 2c 52 34  2c 23 31 0d 04 f6 1f 20  |   R4,R4,#1.... |
00000c20  20 20 20 20 20 20 20 20  20 20 20 20 20 42 47 54  |             BGT|
00000c30  20 20 20 20 79 6c 6f 6f  70 32 0d 05 00 1f 20 20  |    yloop2....  |
00000c40  20 20 20 20 20 20 20 20  20 20 20 20 4d 4f 56 53  |            MOVS|
00000c50  20 20 20 50 43 2c 52 31  34 0d 05 0a 1f 2e 42 61  |   PC,R14.....Ba|
00000c60  6e 6b 31 20 20 20 20 20  20 20 20 45 51 55 44 20  |nk1        EQUD |
00000c70  20 20 42 41 25 28 31 29  0d 05 14 1f 2e 42 61 6e  |  BA%(1).....Ban|
00000c80  6b 32 20 20 20 20 20 20  20 20 45 51 55 44 20 20  |k2        EQUD  |
00000c90  20 42 41 25 28 32 29 0d  05 1e 05 5d 0d 05 28 0b  | BA%(2)....]..(.|
00000ca0  ed 20 70 61 73 73 25 0d  05 32 05 e1 0d 05 3c 05  |. pass%..2....<.|
00000cb0  3a 0d 05 46 05 3a 0d 05  50 05 3a 0d 05 5a 10 dd  |:..F.:..P.:..Z..|
00000cc0  20 f2 47 65 74 53 70 72  69 74 65 0d 05 64 0e f4  | .GetSprite..d..|
00000cd0  20 47 65 74 20 70 61 74  68 0d 05 6e 3f e8 20 22  | Get path..n?. "|
00000ce0  50 61 74 68 20 6f 66 20  6d 6f 64 65 20 31 33 20  |Path of mode 13 |
00000cf0  73 70 72 69 74 65 20 28  50 72 65 73 73 20 52 65  |sprite (Press Re|
00000d00  74 75 72 6e 20 74 6f 20  75 73 65 20 64 65 66 61  |turn to use defa|
00000d10  75 6c 74 29 22 20 53 24  0d 05 78 20 e7 20 53 24  |ult)" S$..x . S$|
00000d20  3d 22 22 20 53 24 3d 22  3c 47 6c 61 73 73 24 64  |="" S$="<Glass$d|
00000d30  69 72 3e 2e 73 70 72 22  0d 05 82 05 3a 0d 05 8c  |ir>.spr"....:...|
00000d40  15 f4 20 4c 6f 61 64 20  73 70 72 69 74 65 66 69  |.. Load spritefi|
00000d50  6c 65 0d 05 96 24 c8 99  20 22 4f 53 5f 46 69 6c  |le...$.. "OS_Fil|
00000d60  65 22 2c 35 2c 53 24 20  b8 20 2c 2c 2c 2c 73 70  |e",5,S$ . ,,,,sp|
00000d70  72 5f 6c 65 6e 25 0d 05  a0 15 de 20 73 70 72 25  |r_len%..... spr%|
00000d80  20 73 70 72 5f 6c 65 6e  25 2b 34 0d 05 aa 14 21  | spr_len%+4....!|
00000d90  73 70 72 25 3d 73 70 72  5f 6c 65 6e 25 2b 34 0d  |spr%=spr_len%+4.|
00000da0  05 b4 1e c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |..... "OS_File",|
00000db0  32 35 35 2c 53 24 2c 73  70 72 25 2b 34 0d 05 be  |255,S$,spr%+4...|
00000dc0  05 3a 0d 05 c8 1e f4 20  47 65 74 20 6e 61 6d 65  |.:..... Get name|
00000dd0  20 6f 66 20 66 69 72 73  74 20 73 70 72 69 74 65  | of first sprite|
00000de0  0d 05 d2 11 de 20 73 70  72 6e 61 6d 65 25 20 31  |..... sprname% 1|
00000df0  36 0d 05 dc 40 c8 99 20  22 4f 53 5f 53 70 72 69  |6...@.. "OS_Spri|
00000e00  74 65 4f 70 22 2c 31 33  2b 32 35 36 2c 73 70 72  |teOp",13+256,spr|
00000e10  25 2c 73 70 72 6e 61 6d  65 25 2c 31 36 2c 31 20  |%,sprname%,16,1 |
00000e20  b8 20 2c 2c 2c 73 70 72  6e 61 6d 65 5f 6c 65 6e  |. ,,,sprname_len|
00000e30  25 0d 05 e6 0f 73 70 72  6e 61 6d 65 24 3d 22 22  |%....sprname$=""|
00000e40  0d 05 f0 19 e3 20 70 25  3d 30 20 b8 20 73 70 72  |..... p%=0 . spr|
00000e50  6e 61 6d 65 5f 6c 65 6e  25 0d 05 fa 1c 73 70 72  |name_len%....spr|
00000e60  6e 61 6d 65 24 2b 3d bd  28 73 70 72 6e 61 6d 65  |name$+=.(sprname|
00000e70  25 3f 70 25 29 0d 06 04  08 ed 20 70 25 0d 06 0e  |%?p%)..... p%...|
00000e80  05 3a 0d 06 18 16 f4 20  43 68 65 63 6b 20 72 69  |.:..... Check ri|
00000e90  67 68 74 20 6d 6f 64 65  0d 06 22 41 c8 99 20 22  |ght mode.."A.. "|
00000ea0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 34 30 2b  |OS_SpriteOp",40+|
00000eb0  32 35 36 2c 73 70 72 25  2c 73 70 72 6e 61 6d 65  |256,spr%,sprname|
00000ec0  24 20 b8 20 2c 2c 2c 78  6f 66 66 25 2c 79 6f 66  |$ . ,,,xoff%,yof|
00000ed0  66 25 2c 2c 6d 6f 64 65  25 0d 06 2c 7b e7 20 6d  |f%,,mode%..,{. m|
00000ee0  6f 64 65 25 3c 3e 31 33  20 8c 20 f5 20 fd 20 a6  |ode%<>13 . . . .|
00000ef0  2d 30 3a f1 20 22 53 70  72 69 74 65 20 22 2b 73  |-0:. "Sprite "+s|
00000f00  70 72 6e 61 6d 65 24 2b  22 20 69 73 20 69 6e 20  |prname$+" is in |
00000f10  6d 6f 64 65 20 22 3b 6d  6f 64 65 25 3b 22 20 6e  |mode ";mode%;" n|
00000f20  6f 74 20 6d 6f 64 65 20  31 33 2e 20 55 73 65 20  |ot mode 13. Use |
00000f30  61 6e 79 77 61 79 3f 20  22 3a 41 24 3d be 3a e7  |anyway? ":A$=.:.|
00000f40  20 41 24 3d 22 4e 22 20  84 20 41 24 3d 22 6e 22  | A$="N" . A$="n"|
00000f50  20 8c 20 e0 0d 06 36 17  78 6f 66 66 25 3d 28 33  | . ...6.xoff%=(3|
00000f60  32 30 2d 78 6f 66 66 25  29 2a 32 0d 06 40 17 79  |20-xoff%)*2..@.y|
00000f70  6f 66 66 25 3d 28 32 35  35 2d 79 6f 66 66 25 29  |off%=(255-yoff%)|
00000f80  2a 32 0d 06 4a 05 e1 0d  06 54 04 0d 06 5e 04 0d  |*2..J....T...^..|
00000f90  ff                                                |.|
00000f91

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