supermon enter

Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav » supermon enter

supermon enter

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 tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav
Filename:	supermon enter
Read OK:	✔
File size:	030E bytes
Load address:	0801
Exec address:	0000

File contents

     1 HE$="0123456789ABCDEF"
    10 PRINTCHR$(147);
    20 FOR A=2048TO4587STEP8
    30 GOSUB 1000
    40 PRINT".";H$;:INPUT A$
    50 FOR X=1 TO 16STEP2
    60 B$=MID$(A$,X,2)
    70 GOSUB 2000
    80 POKE A+X/2,HEX
    90 NEXT:NEXT
   100 INPUT"SAVE TO TAPE OR DISK";TD$
   120 IF TD$="D" THEN DE=8
   130 IF TD$="T" THEN DE=1
   140 FORA=0TO34:READ B:POKEA+49152,B:NEXT:POKE49153,DE:INPUT"ARE YOU SURE";S$
   150 IF S$="N" THEN 100
   160 SYS 49152
   170 PRINT"MACHINE CODE SAVED"
   200 END
  1000 N1=INT(A/4096):N6=(A/4096-N1)*16:N2=INT(N6):N3=INT((N6-N2)*16)
  1010 N4=(((N6-N2)*16)-N3)*16
  1030 H$=MID$(HE$,N1+1,1)+MID$(HE$,N2+1,1)+MID$(HE$,N3+1,1)+MID$(HE$,N4+1,1)
  1040 RETURN
  2000 FOR V=1TO16:B=V-1:IF LEFT$(B$,1)=MID$(HE$,V,1) THEN 2020
  2010 NEXT
  2020 HEX=B*16
  2030 FOR V=1TO16:B=V-1:IF RIGHT$(B$,1)=MID$(HE$,V,1) THEN 2050
  2040 NEXT
  2050 HEX=HEX+B
  2070 RETURN
 10000 DATA 162,1,160,1,32,186,255,162,26,160,192,169,8,32,189,255,162,236,160
 10010 DATA 17,169,251,32,216,255,96,83,85,80,69,82,77,79,78,0

HE$�"0123456789ABCDEF")
��(147);=� A�2048�4587�8H� 1000Z(�".";H$;:� A$k2� X�1 � 16�2|<B$��(A$,X,2)�F� 2000�P� A�X�2,HEX�Z�:��d�"SAVE TO TAPE OR DISK";TD$�x� TD$�"D" � DE�8��� TD$�"T" � DE�1#	��A�0�34:� B:�A�49152,B:�:�49153,DE:�"ARE YOU SURE";S$6	�� S$�"N" � 100B	�� 49152\	��"MACHINE CODE SAVED"b	���	�N1��(A�4096):N6�(A�4096�N1)�16:N2��(N6):N3��((N6�N2)�16)�	�N4�(((N6�N2)�16)�N3)�16�	H$��(HE$,N1�1,1)��(HE$,N2�1,1)��(HE$,N3�1,1)��(HE$,N4�1,1)
�/
�� V�1�16:B�V�1:� �(B$,1)��(HE$,V,1) � 20205
��B
�HEX�B�16q
�� V�1�16:B�V�1:� �(B$,1)��(HE$,V,1) � 2050w
���
HEX�HEX�B�
��
'� 162,1,160,1,32,186,255,162,26,160,192,169,8,32,189,255,162,236,160
'� 17,169,251,32,216,255,96,83,85,80,69,82,77,79,78,0

£HA@he$."0123456789abcdef"@)HJ@..(147);@=HT@. a.2048.4587.8@hH.@. 1000@zH(@.".";h$;:. a$@KH2@. x.1 . 16.2@.H<@b$..(a$,x,2)@.Hf@. 2000@.Hp@. a.x.2,hex@.Hz@.:.@.HD@."save to tape or disk";td$@.HX@. td$."d" . de.8@.H.@. td$."t" . de.1@#I.@.a.0.34:. b:.a.49152,b:.:.49153,de:."are you sure";s$@6I.@. s$."n" . 100@bI.@. 49152@£I.@."machine code saved"@BI.@.@.I.Cn1..(a.4096):n6.(a.4096.n1).16:n2..(n6):n3..((n6.n2).16)@.I.Cn4.(((n6.n2).16).n3).16@.IFDh$..(he$,n1.1,1)..(he$,n2.1,1)..(he$,n3.1,1)..(he$,n4.1,1)@@JPD.@/J.G. v.1.16:b.v.1:. .(b$,1)..(he$,v,1) . 2020@5J.G.@bJ.Ghex.b.16@QJ.G. v.1.16:b.v.1:. .(b$,1)..(he$,v,1) . 2050@WJ.G.@.JBHhex.hex.b@.JVH.@.JP'. 162,1,160,1,32,186,255,162,26,160,192,169,8,32,189,255,162,236,160@MKZ'. 17,169,251,32,216,255,96,83,85,80,69,82,77,79,78,0@@@

00000000  1c 08 01 00 48 45 24 b2  22 30 31 32 33 34 35 36  |....HE$."0123456|
00000010  37 38 39 41 42 43 44 45  46 22 00 29 08 0a 00 99  |789ABCDEF".)....|
00000020  c7 28 31 34 37 29 3b 00  3d 08 14 00 81 20 41 b2  |.(147);.=.... A.|
00000030  32 30 34 38 a4 34 35 38  37 a9 38 00 48 08 1e 00  |2048.4587.8.H...|
00000040  8d 20 31 30 30 30 00 5a  08 28 00 99 22 2e 22 3b  |. 1000.Z.(..".";|
00000050  48 24 3b 3a 85 20 41 24  00 6b 08 32 00 81 20 58  |H$;:. A$.k.2.. X|
00000060  b2 31 20 a4 20 31 36 a9  32 00 7c 08 3c 00 42 24  |.1 . 16.2.|.<.B$|
00000070  b2 ca 28 41 24 2c 58 2c  32 29 00 87 08 46 00 8d  |..(A$,X,2)...F..|
00000080  20 32 30 30 30 00 97 08  50 00 97 20 41 aa 58 ad  | 2000...P.. A.X.|
00000090  32 2c 48 45 58 00 9f 08  5a 00 82 3a 82 00 bf 08  |2,HEX...Z..:....|
000000a0  64 00 85 22 53 41 56 45  20 54 4f 20 54 41 50 45  |d.."SAVE TO TAPE|
000000b0  20 4f 52 20 44 49 53 4b  22 3b 54 44 24 00 d4 08  | OR DISK";TD$...|
000000c0  78 00 8b 20 54 44 24 b2  22 44 22 20 a7 20 44 45  |x.. TD$."D" . DE|
000000d0  b2 38 00 e9 08 82 00 8b  20 54 44 24 b2 22 54 22  |.8...... TD$."T"|
000000e0  20 a7 20 44 45 b2 31 00  23 09 8c 00 81 41 b2 30  | . DE.1.#....A.0|
000000f0  a4 33 34 3a 87 20 42 3a  97 41 aa 34 39 31 35 32  |.34:. B:.A.49152|
00000100  2c 42 3a 82 3a 97 34 39  31 35 33 2c 44 45 3a 85  |,B:.:.49153,DE:.|
00000110  22 41 52 45 20 59 4f 55  20 53 55 52 45 22 3b 53  |"ARE YOU SURE";S|
00000120  24 00 36 09 96 00 8b 20  53 24 b2 22 4e 22 20 a7  |$.6.... S$."N" .|
00000130  20 31 30 30 00 42 09 a0  00 9e 20 34 39 31 35 32  | 100.B.... 49152|
00000140  00 5c 09 aa 00 99 22 4d  41 43 48 49 4e 45 20 43  |.\...."MACHINE C|
00000150  4f 44 45 20 53 41 56 45  44 22 00 62 09 c8 00 80  |ODE SAVED".b....|
00000160  00 9f 09 e8 03 4e 31 b2  b5 28 41 ad 34 30 39 36  |.....N1..(A.4096|
00000170  29 3a 4e 36 b2 28 41 ad  34 30 39 36 ab 4e 31 29  |):N6.(A.4096.N1)|
00000180  ac 31 36 3a 4e 32 b2 b5  28 4e 36 29 3a 4e 33 b2  |.16:N2..(N6):N3.|
00000190  b5 28 28 4e 36 ab 4e 32  29 ac 31 36 29 00 bb 09  |.((N6.N2).16)...|
000001a0  f2 03 4e 34 b2 28 28 28  4e 36 ab 4e 32 29 ac 31  |..N4.(((N6.N2).1|
000001b0  36 29 ab 4e 33 29 ac 31  36 00 fa 09 06 04 48 24  |6).N3).16.....H$|
000001c0  b2 ca 28 48 45 24 2c 4e  31 aa 31 2c 31 29 aa ca  |..(HE$,N1.1,1)..|
000001d0  28 48 45 24 2c 4e 32 aa  31 2c 31 29 aa ca 28 48  |(HE$,N2.1,1)..(H|
000001e0  45 24 2c 4e 33 aa 31 2c  31 29 aa ca 28 48 45 24  |E$,N3.1,1)..(HE$|
000001f0  2c 4e 34 aa 31 2c 31 29  00 00 0a 10 04 8e 00 2f  |,N4.1,1)......./|
00000200  0a d0 07 81 20 56 b2 31  a4 31 36 3a 42 b2 56 ab  |.... V.1.16:B.V.|
00000210  31 3a 8b 20 c8 28 42 24  2c 31 29 b2 ca 28 48 45  |1:. .(B$,1)..(HE|
00000220  24 2c 56 2c 31 29 20 a7  20 32 30 32 30 00 35 0a  |$,V,1) . 2020.5.|
00000230  da 07 82 00 42 0a e4 07  48 45 58 b2 42 ac 31 36  |....B...HEX.B.16|
00000240  00 71 0a ee 07 81 20 56  b2 31 a4 31 36 3a 42 b2  |.q.... V.1.16:B.|
00000250  56 ab 31 3a 8b 20 c9 28  42 24 2c 31 29 b2 ca 28  |V.1:. .(B$,1)..(|
00000260  48 45 24 2c 56 2c 31 29  20 a7 20 32 30 35 30 00  |HE$,V,1) . 2050.|
00000270  77 0a f8 07 82 00 85 0a  02 08 48 45 58 b2 48 45  |w.........HEX.HE|
00000280  58 aa 42 00 8b 0a 16 08  8e 00 d4 0a 10 27 83 20  |X.B..........'. |
00000290  31 36 32 2c 31 2c 31 36  30 2c 31 2c 33 32 2c 31  |162,1,160,1,32,1|
000002a0  38 36 2c 32 35 35 2c 31  36 32 2c 32 36 2c 31 36  |86,255,162,26,16|
000002b0  30 2c 31 39 32 2c 31 36  39 2c 38 2c 33 32 2c 31  |0,192,169,8,32,1|
000002c0  38 39 2c 32 35 35 2c 31  36 32 2c 32 33 36 2c 31  |89,255,162,236,1|
000002d0  36 30 00 0d 0b 1a 27 83  20 31 37 2c 31 36 39 2c  |60....'. 17,169,|
000002e0  32 35 31 2c 33 32 2c 32  31 36 2c 32 35 35 2c 39  |251,32,216,255,9|
000002f0  36 2c 38 33 2c 38 35 2c  38 30 2c 36 39 2c 38 32  |6,83,85,80,69,82|
00000300  2c 37 37 2c 37 39 2c 37  38 2c 30 00 00 00        |,77,79,78,0...|
0000030e

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