sample-analysis

Home » Personal collection » Commodore disks » disk42b_unlabelled.d64 » sample-analysis

sample-analysis

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 » disk42b_unlabelled.d64
Filename:	sample-analysis
Read OK:	✔
File size:	0243 bytes
Load address:	0801
Exec address:	0000

File contents

     4 REM *********************************
     5 REM *  PRINTS LIST OF GAPS BETWEEN  *
     6 REM *          BINARY 1S            *
     7 REM *********************************
     8 :
    10 POKE 55,0:POKE 56,80
    20 CLR:DIM D%(600)
    30 :
    40 FOR BY=$6000 TO $7000
    50 FOR B=7 TO 0 STEP -1
    60 Y=PEEK(BY):ZC=ZC+1
    70 IF (Y AND 2^B) THEN PRINT DN,ZC:D%(DN)=ZC:DN=DN+1:ZC=0
    80 IF DN=600 THEN GOSUB 1000
    90 NEXT B,BY
   100 GOSUB 1000
   110 END
   120 :
  1000 PRINT"PRESS SPACE TO PRINT"
  1010 GET K$:IF K$<>" " THEN 1010
  1020 OPEN 4,4:OPEN 9,4,9
  1030 FOR PD=0 TO 59
  1040 FOR PS=PD TO PD+540 STEP 60
  1050 PRINT#4,STR$(D%(PS));
  1055 PRINT#9,CHR$(9);
  1060 NEXT
  1080 NEXT
  1090 PRINT#4:CLOSE4:CLOSE9
  1100 FOR R=0 TO 600:D%(R)=-1:NEXT
  1110 RETURN

)� *********************************Q� *  PRINTS LIST OF GAPS BETWEEN  *y� *          BINARY 1S            *�� *********************************�:�
� 55,0:� 56,80��:� D%(600)�:�(� BY�$6000 � $7000�2� B�7 � 0 � �1	<Y��(BY):ZC�ZC�1?	F� (Y � 2�B) � � DN,ZC:D%(DN)�ZC:DN�DN�1:ZC�0U	P� DN�600 � � 1000`	Z� B,BYk	d� 1000q	n�w	x:�	��"PRESS SPACE TO PRINT"�	�� K$:� K$��" " � 1010�	�� 4,4:� 9,4,9�	� PD�0 � 59�	� PS�PD � PD�540 � 60�	�4,�(D%(PS));
�9,�(9);
$�
8�!
B�4:�4:�9<
L� R�0 � 600:D%(R)��1:�B
V�

)HD@. *********************************@qHE@. *  prints list of gaps between  *@YHF@. *          binary 1s            *@.HG@. *********************************@.HH@:@.HJ@. 55,0:. 56,80@.HT@.:. d%(600)@.H.@:@.H(@. by.$6000 . $7000@.H2@. b.7 . 0 . .1@NI<@y..(by):zc.zc.1@?If@. (y . 2.b) . . dn,zc:d%(dn).zc:dn.dn.1:zc.0@uIp@. dn.600 . . 1000@.Iz@. b,by@KID@. 1000@QIN@.@WIX@:@.I.C."press space to print"@.I.C. k$:. k$.." " . 1010@.I.C. 4,4:. 9,4,9@.IFD. pd.0 . 59@.IPD. ps.pd . pd.540 . 60@.IZD.4,.(d%(ps));@HJ.D.9,.(9);@NJ$D.@TJ8D.@!JbD.4:.4:.9@<JlD. r.0 . 600:d%(r)..1:.@bJvD.@@@

00000000  29 08 04 00 8f 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |).... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 2a 2a 2a 2a 00  51 08 05 00 8f 20 2a 20  |*******.Q.... * |
00000030  20 50 52 49 4e 54 53 20  4c 49 53 54 20 4f 46 20  | PRINTS LIST OF |
00000040  47 41 50 53 20 42 45 54  57 45 45 4e 20 20 2a 00  |GAPS BETWEEN  *.|
00000050  79 08 06 00 8f 20 2a 20  20 20 20 20 20 20 20 20  |y.... *         |
00000060  20 42 49 4e 41 52 59 20  31 53 20 20 20 20 20 20  | BINARY 1S      |
00000070  20 20 20 20 20 20 2a 00  a1 08 07 00 8f 20 2a 2a  |      *...... **|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 00  |***************.|
000000a0  a7 08 08 00 3a 00 ba 08  0a 00 97 20 35 35 2c 30  |....:...... 55,0|
000000b0  3a 97 20 35 36 2c 38 30  00 ca 08 14 00 9c 3a 86  |:. 56,80......:.|
000000c0  20 44 25 28 36 30 30 29  00 d0 08 1e 00 3a 00 e7  | D%(600).....:..|
000000d0  08 28 00 81 20 42 59 b2  24 36 30 30 30 20 a4 20  |.(.. BY.$6000 . |
000000e0  24 37 30 30 30 00 fa 08  32 00 81 20 42 b2 37 20  |$7000...2.. B.7 |
000000f0  a4 20 30 20 a9 20 ab 31  00 0e 09 3c 00 59 b2 c2  |. 0 . .1...<.Y..|
00000100  28 42 59 29 3a 5a 43 b2  5a 43 aa 31 00 3f 09 46  |(BY):ZC.ZC.1.?.F|
00000110  00 8b 20 28 59 20 af 20  32 ae 42 29 20 a7 20 99  |.. (Y . 2.B) . .|
00000120  20 44 4e 2c 5a 43 3a 44  25 28 44 4e 29 b2 5a 43  | DN,ZC:D%(DN).ZC|
00000130  3a 44 4e b2 44 4e aa 31  3a 5a 43 b2 30 00 55 09  |:DN.DN.1:ZC.0.U.|
00000140  50 00 8b 20 44 4e b2 36  30 30 20 a7 20 8d 20 31  |P.. DN.600 . . 1|
00000150  30 30 30 00 60 09 5a 00  82 20 42 2c 42 59 00 6b  |000.`.Z.. B,BY.k|
00000160  09 64 00 8d 20 31 30 30  30 00 71 09 6e 00 80 00  |.d.. 1000.q.n...|
00000170  77 09 78 00 3a 00 93 09  e8 03 99 22 50 52 45 53  |w.x.:......"PRES|
00000180  53 20 53 50 41 43 45 20  54 4f 20 50 52 49 4e 54  |S SPACE TO PRINT|
00000190  22 00 ad 09 f2 03 a1 20  4b 24 3a 8b 20 4b 24 b3  |"...... K$:. K$.|
000001a0  b1 22 20 22 20 a7 20 31  30 31 30 00 bf 09 fc 03  |." " . 1010.....|
000001b0  9f 20 34 2c 34 3a 9f 20  39 2c 34 2c 39 00 cf 09  |. 4,4:. 9,4,9...|
000001c0  06 04 81 20 50 44 b2 30  20 a4 20 35 39 00 e9 09  |... PD.0 . 59...|
000001d0  10 04 81 20 50 53 b2 50  44 20 a4 20 50 44 aa 35  |... PS.PD . PD.5|
000001e0  34 30 20 a9 20 36 30 00  fb 09 1a 04 98 34 2c c4  |40 . 60......4,.|
000001f0  28 44 25 28 50 53 29 29  3b 00 08 0a 1f 04 98 39  |(D%(PS));......9|
00000200  2c c7 28 39 29 3b 00 0e  0a 24 04 82 00 14 0a 38  |,.(9);...$.....8|
00000210  04 82 00 21 0a 42 04 98  34 3a a0 34 3a a0 39 00  |...!.B..4:.4:.9.|
00000220  3c 0a 4c 04 81 20 52 b2  30 20 a4 20 36 30 30 3a  |<.L.. R.0 . 600:|
00000230  44 25 28 52 29 b2 ab 31  3a 82 00 42 0a 56 04 8e  |D%(R)..1:..B.V..|
00000240  00 00 00                                          |...|
00000243

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