Home » Personal collection » Commodore disks » disk42a_unlabelled.d64 » maketable

maketable

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 » Personal collection » Commodore disks » disk42a_unlabelled.d64
Filename: maketable
Read OK: ✔
File size: 02C7 bytes
Load address: 0801
Exec address: 0000
File contents
    10 PRINT"SIN↑-1 . . ."
    20 AD=$5400:FORR=-0.99999TO0.99999STEP.01:PRINTINT(R*100+0.5)/100
    30 X=ATN(R/SQR(-R*R+1))/π*180
    40 GOSUB1000:AD=AD+8:NEXT
    50 PRINT"SQR(1-SIN↑2) . . ."
    60 AD=$5C00:FORR=0TO359
    70 X=SQR(1-SIN(π*R/180)^2)
    80 GOSUB1000:AD=AD+8:NEXT
    90 PRINT"SIN . . ."
   100 AD=$6800:FORR=0TO359
   110 X=SIN(π*R/180)
   120 GOSUB1000:AD=AD+8:NEXT
   130 PRINT"COS . . ."
   140 AD=$7400:FORR=0TO359
   150 X=COS(π*R/180)
   160 GOSUB1000:AD=AD+8:NEXT
   170 END
  1000 POKE AD,0:POKE AD+1,0
  1005 X=X+0.000001
  1010 POKEAD+2,(INT(X/1000)-INT(X/10000)*10)*16+(INT(X/100)-INT(X/1000)*10)
  1015 IF PEEK(AD+2)=$99 THEN POKE AD,$99:POKEAD+1,$99
  1020 POKEAD+3,(INT(X/10)-INT(X/100)*10)*16+(INT(X)-INT(X/10)*10)
  1030 POKEAD+4,(INT(X/.1)-INT(X)*10)*16+(INT(X/.01)-INT(X/.1)*10)
  1040 POKE AD+5,(INT(X/.001)-INT(X/.01)*10)*16+(INT(X/.0001)-INT(X/.001)*10)
  1050 POKE AD+6,0:POKE AD+7,0
  1060 RETURN



�"SIN^-1 . . ."LAD�$5400:�R��0.99999�0.99999�.01:��(R�100�0.5)�100gX��(R��(�R�R�1))���180{(�1000:AD�AD�8:��2�"SQR(1-SIN^2) . . ."�<AD�$5C00:�R�0�359�FX��(1��(��R�180)�2)�P�1000:AD�AD�8:��Z�"SIN . . ."�dAD�$6800:�R�0�359	nX��(��R�180)#	x�1000:AD�AD�8:�4	��"COS . . ."J	�AD�$7400:�R�0�359[	�X��(��R�180)o	��1000:AD�AD�8:�u	���	�� AD,0:� AD�1,0�	�X�X�0.000001�	��AD�2,(�(X�1000)��(X�10000)�10)�16�(�(X�100)��(X�1000)�10)
�� �(AD�2)�$99 � � AD,$99:�AD�1,$995
��AD�3,(�(X�10)��(X�100)�10)�16�(�(X)��(X�10)�10)j
�AD�4,(�(X�.1)��(X)�10)�16�(�(X�.01)��(X�.1)�10)�
� AD�5,(�(X�.001)��(X�.01)�10)�16�(�(X�.0001)��(X�.001)�10)�
� AD�6,0:� AD�7,0�
$�
UHJ@."sin.-1 . . ."@lHT@ad.$5400:.r..0.99999.0.99999..01:..(r.100.0.5).100@GH.@x..(r..(.r.r.1))...180@.H(@.1000:ad.ad.8:.@.H2@."sqr(1-sin.2) . . ."@.H<@ad.$5c00:.r.0.359@.Hf@x..(1..(..r.180).2)@.Hp@.1000:ad.ad.8:.@.Hz@."sin . . ."@.HD@ad.$6800:.r.0.359@OIN@x..(..r.180)@#IX@.1000:ad.ad.8:.@4I.@."cos . . ."@jI.@ad.$7400:.r.0.359@[I.@x..(..r.180)@OI.@.1000:ad.ad.8:.@UI.@.@.I.C. ad,0:. ad.1,0@.I.Cx.x.0.000001@.I.C.ad.2,(.(x.1000)..(x.10000).10).16.(.(x.100)..(x.1000).10)@@J.C. .(ad.2).$99 . . ad,$99:.ad.1,$99@5J.C.ad.3,(.(x.10)..(x.100).10).16.(.(x)..(x.10).10)@JJFD.ad.4,(.(x..1)..(x).10).16.(.(x..01)..(x..1).10)@.JPD. ad.5,(.(x..001)..(x..01).10).16.(.(x..0001)..(x..001).10)@.JZD. ad.6,0:. ad.7,0@.J$D.@@@
00000000  15 08 0a 00 99 22 53 49  4e 5e 2d 31 20 2e 20 2e  |....."SIN^-1 . .|
00000010  20 2e 22 00 4c 08 14 00  41 44 b2 24 35 34 30 30  | .".L...AD.$5400|
00000020  3a 81 52 b2 ab 30 2e 39  39 39 39 39 a4 30 2e 39  |:.R..0.99999.0.9|
00000030  39 39 39 39 a9 2e 30 31  3a 99 b5 28 52 ac 31 30  |9999..01:..(R.10|
00000040  30 aa 30 2e 35 29 ad 31  30 30 00 67 08 1e 00 58  |0.0.5).100.g...X|
00000050  b2 c1 28 52 ad ba 28 ab  52 ac 52 aa 31 29 29 ad  |..(R..(.R.R.1)).|
00000060  ff ac 31 38 30 00 7b 08  28 00 8d 31 30 30 30 3a  |..180.{.(..1000:|
00000070  41 44 b2 41 44 aa 38 3a  82 00 95 08 32 00 99 22  |AD.AD.8:....2.."|
00000080  53 51 52 28 31 2d 53 49  4e 5e 32 29 20 2e 20 2e  |SQR(1-SIN^2) . .|
00000090  20 2e 22 00 ab 08 3c 00  41 44 b2 24 35 43 30 30  | ."...<.AD.$5C00|
000000a0  3a 81 52 b2 30 a4 33 35  39 00 c3 08 46 00 58 b2  |:.R.0.359...F.X.|
000000b0  ba 28 31 ab bf 28 ff ac  52 ad 31 38 30 29 ae 32  |.(1..(..R.180).2|
000000c0  29 00 d7 08 50 00 8d 31  30 30 30 3a 41 44 b2 41  |)...P..1000:AD.A|
000000d0  44 aa 38 3a 82 00 e8 08  5a 00 99 22 53 49 4e 20  |D.8:....Z.."SIN |
000000e0  2e 20 2e 20 2e 22 00 fe  08 64 00 41 44 b2 24 36  |. . ."...d.AD.$6|
000000f0  38 30 30 3a 81 52 b2 30  a4 33 35 39 00 0f 09 6e  |800:.R.0.359...n|
00000100  00 58 b2 bf 28 ff ac 52  ad 31 38 30 29 00 23 09  |.X..(..R.180).#.|
00000110  78 00 8d 31 30 30 30 3a  41 44 b2 41 44 aa 38 3a  |x..1000:AD.AD.8:|
00000120  82 00 34 09 82 00 99 22  43 4f 53 20 2e 20 2e 20  |..4...."COS . . |
00000130  2e 22 00 4a 09 8c 00 41  44 b2 24 37 34 30 30 3a  |.".J...AD.$7400:|
00000140  81 52 b2 30 a4 33 35 39  00 5b 09 96 00 58 b2 be  |.R.0.359.[...X..|
00000150  28 ff ac 52 ad 31 38 30  29 00 6f 09 a0 00 8d 31  |(..R.180).o....1|
00000160  30 30 30 3a 41 44 b2 41  44 aa 38 3a 82 00 75 09  |000:AD.AD.8:..u.|
00000170  aa 00 80 00 89 09 e8 03  97 20 41 44 2c 30 3a 97  |......... AD,0:.|
00000180  20 41 44 aa 31 2c 30 00  9a 09 ed 03 58 b2 58 aa  | AD.1,0.....X.X.|
00000190  30 2e 30 30 30 30 30 31  00 d9 09 f2 03 97 41 44  |0.000001......AD|
000001a0  aa 32 2c 28 b5 28 58 ad  31 30 30 30 29 ab b5 28  |.2,(.(X.1000)..(|
000001b0  58 ad 31 30 30 30 30 29  ac 31 30 29 ac 31 36 aa  |X.10000).10).16.|
000001c0  28 b5 28 58 ad 31 30 30  29 ab b5 28 58 ad 31 30  |(.(X.100)..(X.10|
000001d0  30 30 29 ac 31 30 29 00  00 0a f7 03 8b 20 c2 28  |00).10)...... .(|
000001e0  41 44 aa 32 29 b2 24 39  39 20 a7 20 97 20 41 44  |AD.2).$99 . . AD|
000001f0  2c 24 39 39 3a 97 41 44  aa 31 2c 24 39 39 00 35  |,$99:.AD.1,$99.5|
00000200  0a fc 03 97 41 44 aa 33  2c 28 b5 28 58 ad 31 30  |....AD.3,(.(X.10|
00000210  29 ab b5 28 58 ad 31 30  30 29 ac 31 30 29 ac 31  |)..(X.100).10).1|
00000220  36 aa 28 b5 28 58 29 ab  b5 28 58 ad 31 30 29 ac  |6.(.(X)..(X.10).|
00000230  31 30 29 00 6a 0a 06 04  97 41 44 aa 34 2c 28 b5  |10).j....AD.4,(.|
00000240  28 58 ad 2e 31 29 ab b5  28 58 29 ac 31 30 29 ac  |(X..1)..(X).10).|
00000250  31 36 aa 28 b5 28 58 ad  2e 30 31 29 ab b5 28 58  |16.(.(X..01)..(X|
00000260  ad 2e 31 29 ac 31 30 29  00 aa 0a 10 04 97 20 41  |..1).10)...... A|
00000270  44 aa 35 2c 28 b5 28 58  ad 2e 30 30 31 29 ab b5  |D.5,(.(X..001)..|
00000280  28 58 ad 2e 30 31 29 ac  31 30 29 ac 31 36 aa 28  |(X..01).10).16.(|
00000290  b5 28 58 ad 2e 30 30 30  31 29 ab b5 28 58 ad 2e  |.(X..0001)..(X..|
000002a0  30 30 31 29 ac 31 30 29  00 c0 0a 1a 04 97 20 41  |001).10)...... A|
000002b0  44 aa 36 2c 30 3a 97 20  41 44 aa 37 2c 30 00 c6  |D.6,0:. AD.7,0..|
000002c0  0a 24 04 8e 00 00 00                              |.$.....|
000002c7

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .