How to convert tape to UEF

discuss PC<>Acorn file transfer issues & the use of FDC, XFER, Omniflop/disk etc.
User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

How to convert tape to UEF

Post by pau1ie » Mon Dec 18, 2017 10:26 pm

Ideally under linux, but windows will be fine. I tried recording a file under linux, but it was created in vob. I comverted it to wav using audio-convert. I tried to convert that using daveb's recorduef, but I couldn't work out how to use it. I then tried using makeUEF under wine, but it complained that the wav was stereo. So then I tried to use ffmpeg to split the file, but then makeUEF complained it wasn't 8 bit. So I converted it to pcm_8 with ffmpeg. The file converted but the output was 85 bytes.

Is there a less painful way to do this? I could use ADT to rip to a disc image of course, but Mick wanted a UEF of snorter, and I happen to have it so thought I would give it a go.
I'm working on http://bbcmicro.co.uk

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Mon Dec 18, 2017 10:44 pm

your wav file needs to be 8 bit mono to convert it, on windows I 1st use csw to convert the wav to a csw file then i use makeuef to convert it to a uef, you do need to clean up the waf file before making a csw or you will have alot of pulses in your final uef you may want to have a look at this document https://acorn.huininga.nl/pub/unsorted/ ... %20CSW.pdf
Peter.

User avatar
davidb
Posts: 2088
Joined: Sun Nov 11, 2007 10:11 pm
Contact:

Re: How to convert tape to UEF

Post by davidb » Mon Dec 18, 2017 10:54 pm

Sorry, recordUEF.py isn't really ready for prime time yet. It's really only the result of a quick-and-dirty attempt of mine to read tapes that I had lying around. :(

In terms of converting to mono, 8-bit audio you could try using sox. Something like this should work:

Code: Select all

sox inputfile.wav -c 1 -b 8 -e signed-integer outputfile.dat

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Tue Dec 19, 2017 9:55 pm

Thanks both. I may get time over the holiday to look into it.
I'm working on http://bbcmicro.co.uk

User avatar
CMcDougall
Posts: 6093
Joined: Wed Feb 02, 2005 3:13 pm
Location: Shadow in a Valley of Scotland
Contact:

Re: How to convert tape to UEF

Post by CMcDougall » Wed Dec 20, 2017 4:58 pm

viewtopic.php?f=6&t=5987&p=56042&hilit= ... ike#p56019
the bible from the MIA master is here:
ImageImageImage

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 20, 2017 5:38 pm

very old and out dated :)

User avatar
CMcDougall
Posts: 6093
Joined: Wed Feb 02, 2005 3:13 pm
Location: Shadow in a Valley of Scotland
Contact:

Re: How to convert tape to UEF

Post by CMcDougall » Wed Dec 20, 2017 6:49 pm

^ ? NOT :lol:
so that's why all my MIA Atom tapes etc work first time.... :roll:
Last edited by CMcDougall on Wed Dec 20, 2017 8:26 pm, edited 2 times in total.
ImageImageImage

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 20, 2017 9:16 pm

The secret is to get the best quality wav file in the 1st place then to run the Acorn 1200 filter over it and to run the tape gap filter on the silent gaps between files before then creating any sort of csw file and eventually uef file.
I find I quite often have to use the -w 0 180 switch to switch phase shift, but not always. and fine the -s switch is not required with the latest makeuef it sorts out the sampling rate just fine.

User avatar
CMcDougall
Posts: 6093
Joined: Wed Feb 02, 2005 3:13 pm
Location: Shadow in a Valley of Scotland
Contact:

Re: How to convert tape to UEF

Post by CMcDougall » Wed Dec 20, 2017 11:38 pm

^whatever :roll:
ImageImageImage

User avatar
dhg2
Posts: 55
Joined: Tue Oct 25, 2016 7:37 pm
Contact:

Re: How to convert tape to UEF

Post by dhg2 » Thu Dec 21, 2017 10:24 pm

I remember having a lot of trouble with this in the past. It's been a while since I needed to do it since I got a floppy drive about a year ago, but anyway, here's how I was doing it.

Install wine (hopefully you're using an x86 based computer), and download MakeUEF 2.3 from here:
https://www.stairwaytohell.com/essentia ... e=homepage

Record your tape using Audacity, make sure your recording is clean and loud but not too loud. If the recording looks like this, then it's probably good:
2017-12-21-221023_1089x478_scrot.png
Export your recording as raw unsigned 8bit PCM, extract the MakeUEF zip file somewhere, then try this command:

Code: Select all

wine MakeUEFAm.exe -t -i YourRecording.raw
If you see something like this, then it's working:

Code: Select all

Found :    FileName 00	Checksum ok
Found :    FileName 01	Checksum ok
Found :    FileName 02	Checksum ok
Found :    FileName 03	Checksum ok, last block flag
But if you see nothing like that, or checksum errors, try these instead:

Code: Select all

wine MakeUEFAm.exe -p -t -i YourRecording.raw
wine MakeUEFAm.exe -l -t -i YourRecording.raw
and one of these settings will probably work, as long as the recording is good.
Regards,
- Patrick

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Fri Dec 22, 2017 4:53 pm

Thanks Patrick, that explanation was simple enough for me. Also encouraging that you got audacity to work, as I read a log of posts suggesting it messes things up.

Anyway I followed your post and it worked, except one block was missed. I suppose I should try again? I'll give it another go and see.
Attachments
snorter.log
(2.77 KiB) Downloaded 21 times
I'm working on http://bbcmicro.co.uk

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Fri Dec 22, 2017 5:14 pm

OK, it worked this time! Thanks all!

I will post the results somewhere here.
I'm working on http://bbcmicro.co.uk

User avatar
CMcDougall
Posts: 6093
Joined: Wed Feb 02, 2005 3:13 pm
Location: Shadow in a Valley of Scotland
Contact:

Re: How to convert tape to UEF

Post by CMcDougall » Fri Dec 22, 2017 5:15 pm

^ it looks like the Audacity on Linux /wine is far better than on M$ Win##, as it has peaks & troughs on the Pic above :shock: 8)

usually just a utter mess per my pics & others..
ImageImageImage

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Sun Dec 24, 2017 12:42 am

Still struggling with another tape which seems more reluctant to convert.

I recorded the audio and converted, and it missed a few blocks.

I recorded again, and converted, and it missed a single block, which worked in the previous attempt.

I tried to use CSW with the better wav file (WAV->CSW->UEF) but the results were identical to the previous attempt with MakeUEFAM (WAV->UEF).

Is there any way to create a good UEF from the two partial ones?
I'm working on http://bbcmicro.co.uk

User avatar
CMcDougall
Posts: 6093
Joined: Wed Feb 02, 2005 3:13 pm
Location: Shadow in a Valley of Scotland
Contact:

Re: How to convert tape to UEF

Post by CMcDougall » Sun Dec 24, 2017 9:19 am

^ you can use a hex editor to copy /paste to & from good /bad blocks on a UEF, but needs a lot of paper notes to work it all out :x
If it ain't a stream file, just a simple normal basic file , just upload both and can just juggle them in a emulator to load all blocks.
ImageImageImage

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Sun Dec 24, 2017 6:55 pm

Do you filter the WAV file at all that you are trying to convert to UEF as in one of my previous posts or you trying to convert the raw WAV to a UEF file?
Or upload the WAV file and we can have a look.
Ideally the wav should look something like this for the best change to convert it.
Forgotten Grove.png
Peter.

User avatar
BigEd
Posts: 1891
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: How to convert tape to UEF

Post by BigEd » Sun Dec 24, 2017 8:02 pm

Audacity has a spectrum view for waveforms, which is a good way to see (and count) data blocks. Could be useful if you're setting out to splice things from one waveform to another.

https://manual.audacityteam.org/man/spe ... _view.html

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Sun Dec 24, 2017 9:26 pm

What are the best setting for the spectrogram view to look at BBC Data?
Audacity.png
Peter.

User avatar
BigEd
Posts: 1891
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: How to convert tape to UEF

Post by BigEd » Sun Dec 24, 2017 9:44 pm

I think I'd just play around - you're looking for any setting which makes the data blocks stand out. Start with the defaults, but perhaps change linear to logarithmic.

User avatar
BigEd
Posts: 1891
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: How to convert tape to UEF

Post by BigEd » Sun Dec 24, 2017 10:28 pm

(No, cancel that: stay with linear. Perhaps change the max frequency to 4000. What you see is one solid horizontal bar for the inter-block tone, and then the data blocks are more of a mush but with two horizontal bars broadly visible.)

User avatar
BigEd
Posts: 1891
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: How to convert tape to UEF

Post by BigEd » Sun Dec 24, 2017 10:32 pm

Here's a screenshot of four data blocks, in between five solid tones. There's a bit of a tape dropout in the middle of the fourth block, about 11.7 sec timestamp - you can see the high and low tone bars both vanish. It is easier to see the dropout by looking at the 'waveform db' view, but easier to see where the blocks and the gaps are by looking at the spectrum.
Attachments
Four-data-blocks-from-tape.png

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Tue Dec 26, 2017 11:19 pm

vanekp wrote:Do you filter the WAV
No. I meant to ask for more information on these filters.
BigEd wrote:Audacity has a spectrum view
I could see the blocks in both the normal view and the spectrum view. I can't see any obvious difference between the problem block and the ones that work in either mode. I tried splicing block 19 from the recording where it worked to the recording where the other blocks worked, but when converting this time, blocks 13,15 and 19 failed. So it seems that Audacity messed something up.

Anyway I uploaded the recording from where everything apart from block 19 works.
I'm working on http://bbcmicro.co.uk

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 27, 2017 6:33 am

I see in BeebEm it shows that block as being shorter as the others and if you look at the wave it also looks shorter (Block in the middle)
Moonlander2.png
Which may be the reason you are having a problem converting it.
Does the tape work on a real BBC?
One other comment I would make is to record your wave files at a lover volume (I changed the volume in the wav above to 75%) normally recommended to record it at 1/3 of the full volume (I go for around 33% to 50%).
Peter.

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 27, 2017 6:48 am

For Example here is a recording of my Frak tape around 33% volume and it decodes without a problem.
Frak.png
You can see the blocks (zoomed in) are a lot more defined.
Frak2.png
Peter.

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 27, 2017 9:02 am

Here is what I could recover from the basic program for 3D-OXO
And also cant find the BEEBUG MAG from March 1982, not sure if this was listed in there.
But the procedure "DEF PROCFILL""is missing I filled each character with "?" that was missing line 2461 i added in to prevent bad program error so lines 2460 to 2510 (not included) are missing or incomplete.

Code: Select all

  100 REM BEEBUG 3D NOUGHTS AND CROSSES
  110 REM MARCH 1982
  120 REM See page 55 of the user guide
  130 REM to change colour of the pieces
  140 REM Change values in lines 800,810
  150 REM according to your preference.
  160 COMPCOLOUR=9
  170 YOURCOLOUR=2
  171 PROCprint_titles("3D-NOUGHTS AND CROSSES","BEEBUG")
  173 PRINT TAB(5,20);"Press 'space' bar to start";
  176 REPEAT 
  177X=RND(1)
  178 UNTIL INKEY$(0)<>""
  180 MODE 5
  190 VDU 19,2,COMPCOLOUR,0,0,0 
  200 VDU 19,1,YOURCOLOUR,0,0,0
  210     MEX=10:MEY=26:REM MESSAGE COORDS  
  220   NEX=10:NEY=10:REM COORDS FOR YOUR MOVE  
  230   LEX=11:LEY=1:REM COORDS FOR LAST MOVE
  240  SFX=4:REM SCALE FACTOR x
  250   SFY=4:REM SCALE FACTOR y
  260    SFD=45:REM DISTANCE BETWEEN PLANES 
  270 RESTORE
  280  DIM M(63,6)
  290   DIM N(75),E(18),W(63),P(63)
  300   DIM H(7),C(10),G(63),S(3,7)
  310     DIM Q(15),B(13),YY(4),Y(3)
  320 CLS
  400 CLS
  410 FOR A%=0 TO 6
  420 FOR B%=0 TO 63
  430      READ M(B%,A%)
  440 NEXT
  450 NEXT
  460  FOR A%=0 TO 15:READ Q(A%):NEXT
  470  FOR A%=0 TO  7:READ H(A%):NEXT
  480  FOR A%=0 TO 63:READ W(A%):NEXT
  490  FOR A%=0 TO 10:READ C(A%):NEXT 
  500  FOR A%=0 TO 63:READ P(A%):NEXT
  510   FOR A%=0 TO 13:READ B(A%):NEXT
  520   FOR A%=0 TO 75:N(A%)=0:NEXT
  530   FOR A%=0 TO 63:G(A%)=0:NEXT
  540   FOR A%=0 TO 18:E(A%)=0:NEXT
  550   M=0:Q=76
  560 GOSUB 1720
  570  C=22:M=1
  580     PRINT TAB(NEX,NEY);"Shall I go"
  590  PRINT TAB(NEX,NEY+1);"first";:INPUT A$   
  600 PROCLEAR(NEX,NEY)
  610 GOSUB 1200
  620  IF F=-1 THEN 580 
  630    IF F=1  THEN 830
  640  M=1
  650PROCLEAR(MEX,MEY): PROCLEAR(NEX,NEY):PRINT TAB(NEX,NEY);" Your move"
  660  PRINT TAB(NEX+1,NEY+1);:INPUT F
  670 PROCLEAR(NEX,NEY)
  680  IF F<111 THEN 710 
  690  F=16*F-159*(F DIV 10)-6*(F DIV 100)-21
  700   IF F>=0 AND F<=63 THEN 720
  710     PRINT TAB(MEX,MEY);"  ILLEGAL  ":GOTO 650
  720     IF G(F) THEN PRINT TAB(MEX,MEY);" OCCUPIED":GOTO 650
  730 PROCLEAR(MEX,MEY)
  740  M=M+1:G(F)=1:GOSUB 1050  
  750    FOR B=0 TO 6+3*(M(F,6)=76)
  760    N=N(M(F,B)):E=E(M(F,B)/4)
  770      IF N=3 THEN PRINT TAB(MEX,MEY);"   YOU WIN ":GOTO 1130
  780        IF (N MOD 4)=0 AND N>3 THEN Q=Q-1
  790    IF Q=0 THEN 1120 
  800    N(M(F,B))=N+1
  810     E(M(F,B) DIV 4)=E-((E MOD 8)<7)
  820    NEXT B
  830 PRINT TAB(MEX,MEY);" THINKING"
  840   N=((M-1) DIV 4)*8:P=-10000 
  850  FOR A=0 TO 63
  860    IF G(A) THEN 940 
  870       T=0:E=0:B=6+3*(M(A,6)=76):G=B/3*7-7
  880    FOR C=0 TO B
  890 D=Q(N(M(A,C))):T=T+W(N+D)+P(E(M(A,C) DIV 4))*B(G+C)
  900      E=E+H(D)
  910      NEXT C
  920    IF E>10 THEN E=10
  930      T=T+C(E):IF T+RND(1)>P THEN P=T+.5:F=A
  940    NEXT A
  950 G(F)=2:GOSUB 1050
  960  FOR B=0 TO 6+3*(M(F,6)=76) 
  970 N=N(M(F,B)):E=E(M(F,B) DIV 4) 
  980      IF N=12 THEN PRINT TAB(MEX,MEY);"   I WIN  ":GOTO 1130
  990    IF N<4 AND N<>0 THEN Q=Q-1 
 1000    IF Q=0 THEN 1120 
 1010    N(M(F,B))=N+4
 1020 E(M(F,B) DIV 4)=E-8*(E<56)
 1030    NEXT B
 1040 GOTO 650
 1050 C=F DIV 16: E=F MOD 16
 1060   D=E DIV 4: E=E MOD 4: B=36-3*C: A=20+10*D+2*E
 1070 GOSUB 2350
 1080  IF M=0 THEN RETURN
 1090 PRINT TAB(LEX,LEY);"Last move"
 1100      PRINT TAB(LEX+3,LEY+1);D+1;E+1;C+1
 1110 RETURN
 1120  PRINT TAB(MEX,MEY);"   A DRAW " 
 1130 REM COME HERE AT END OF GAME
 1140 REM--------------------------
 1150  PRINT TAB(0,29);:INPUT"Do you want another game ",A$ 
 1160 GOSUB 1200
 1170  IF F=1  THEN 520 
 1180   IF F=-1 THEN 1150
 1190 END
 1200  IF LEFT$(A$,1)="Y" THEN F=1:RETURN 
 1210  IF LEFT$(A$,1)="N" THEN F=0:RETURN 
 1220 F=-1:RETURN
 1230 DATA 0,0,0,0,1,37,38,1,2,41,42,2,3,3,3,3
 1240 DATA 32,4,4,35,5,5,5,5,6,6,6,6,44,7,7,47
 1250 DATA 32,8,8,35,9,9,9,9,10,10,10,10,44,11,11,47
 1260 DATA 12,12,12,12,13,37,38,13,14,41,42,14,15,15,15,15
 1270 DATA 16,33,34,28,16,20,24,28,16,20,24,28,16,45,46,28
 1280 DATA 17,21,25,29,36,21,25,39,40,21,25,43,17,21,25,29
 1290 DATA 18,22,26,30,36,22,26,39,40,22,26,43,18,22,26,30
 1300 DATA 19,33,34,31,19,23,27,31,19,23,27,31,19,45,46,31
 1310  DATA 32,20,24,35,36,1,1,39,40,2,2,43,44,20,24,47
 1320 DATA 4,33,34,4,17,37,38,29,17,41,42,29,7,45,46,7
 1330 DATA 8,33,34,8,18,37,38,30,18,41,42,30,11,45,46,11
 1340 DATA 32,23,27,35,36,13,13,39,40,14,14,43,44,23,27,47
 1350 DATA 48,65,66,52,57,48,52,61,58,52,48,62,52,69,70,48
 1360 DATA 49,56,60,53,64,49,53,67,68,53,49,71,53,59,63,49
 1370 DATA 50,60,56,54,68,50,54,71,64,54,50,67,54,63,59,50
 1380 DATA 51,69,70,55,61,51,55,57,62,55,51,58,55,65,66,51
 1390 DATA 56,76,76,60,76,76,76,76,76,76,76,76,59,76,76,63
 1400 DATA 76,76,76,76,76,57,61,76,76,58,62,76,76,76,76,76
 1410 DATA 76,76,76,76,76,61,57,76,76,62,58,76,76,76,76,76
 1420 DATA 60,76,76,56,76,76,76,76,76,76,76,76,63,76,76,59
 1430 DATA 64,76,76,67,76,76,76,76,76,76,76,76,68,76,76,71
 1440 DATA 76,76,76,76,76,65,66,76,76,69,70,76,76,76,76,76
 1450 DATA 76,76,76,76,76,69,70,76,76,65,66,76,76,76,76,76
 1460 DATA 68,76,76,71,76,76,76,76,76,76,76,76,64,76,76,67
 1470 DATA 72,76,76,73,76,76,76,76,76,76,76,76,74,76,76,75
 1480 DATA 76,76,76,76,76,72,73,76,76,74,75,76,76,76,76,76
 1490 DATA 76,76,76,76,76,75,74,76,76,73,72,76,76,76,76,76
 1500 DATA 75,76,76,74,76,76,76,76,76,76,76,76,73,76,76,72
 1510 DATA 0,4,5,6,1,7,7,7,2,7,7,7,3,7,7,7
 1520 DATA 0,0,5,0,0,1,0,0
 1530 DATA 5,10,1,4000,1,4,700,0
 1540 DATA 5,10,1,4000,1,5,700,0
 1550 DATA 5,15,5,4000,5,6,700,0
 1560 DATA 5,15,25,4000,1,12,700,0
 1570 DATA 25,20,40,4000,1,15,700,0
 1580 DATA 25,30,40,4000,1,15,700,0
 1590 DATA 25,1,1,4000,10,40,700,0
 1600 DATA 25,1,1,4000,10,40,700,0
 1610 DATA 0,0,160,180,200,0,20,180,200,200,400
 1620 DATA 0,0,0,5,50,100,200,300
 1630 DATA 0,0,0,0,2,60,80,100
 1640 DATA 0,0,0,0,0,1,40,60
 1650 DATA 5,0,0,0,0,0,1,20
 1660 DATA 55,5,0,0,-5,0,0,0
 1670 DATA 60,50,10,0,0,-20,0,0
 1680 DATA 120,100,20,0,0,0,-20,0
 1690 DATA 150,120,25,0,0,0,0,-20
 1700 DATA 1,1,1.5,1,1,1,1
 1710 DATA 1.5,1.5,1.5,1.5,1.5,1.5,1.5
 1720 CLS
 1730  A=-12
 1740    FOR T=0 TO 3
 1750 RESTORE 1840
 1760         A=A+SFD-T
 1770    VDU 29,80;5*A+1;
 1780    FOR R=0 TO 4
 1790       READ X,XX,TV
 1800       YY(R)=TV
 1810             PROCMOVE(X,YY(R)-R*T,3)
 1820            PROCDRAW(XX,YY(R)-R*T)
 1830 NEXT
 1840 DATA 0,100,1,14,107,17,25,112,30,34,116,41,40,120,50
 1850       Y=50-T*4
 1860    FOR R=0 TO 4 
 1870 PROCMOVE(25*R,1,3)
 1880      PROCDRAW(20*R+40,Y)
 1890 NEXT
 1900 REM **** PLOT NUMBERS ****
 1910 REM------------------------
 1920 RESTORE 1980
 1930  FOR R=0 TO 3
 1940    FOR RR=1 TO 7
 1950      READ S(R,RR)
 1960 NEXT
 1970 NEXT
 1980 DATA 0,1,1,0,0,0,0
 1990 DATA 1,0,1,1,0,1,1
 2000 DATA 1,1,1,1,0,0,1
 2010 DATA 0,1,1,0,1,0,1
 2020  FOR R=0 TO 3 
 2030 RESTORE 2110
 2040    FOR RR=1 TO 7 
 2050      READ X,Y,XX,YY
 2060      IF S(R,RR)=0 THEN 2090 
 2070      X1=12+25*R
 2080 GOSUB 2160:GOSUB 2190:GOSUB 2270
 2090 NEXT
 2100 NEXT
 2110 DATA 0,0,2,0,2,0,2,2,2,2,2,4,0,4,2,4,0,2,0,4,0,0,0,2,0,2,2,2
 2120 NEXT
 2130 REM Draw layer numbers
 2140     PRINTTAB(0,6);1'TAB(0,12);2'TAB(0,19);3'TAB(0,26);4
 2150 GOTO 2310
 2160      PROCMOVE(X+X1,Y-1,3)
 2170     PROCDRAW(XX+X1,YY-1)
 2180 RETURN
 2190  ON R+1 GOTO 2200,2210,2220,2230 
 2200 X1=107:Y1= 6-R*1.5-T       :GOTO 2240
 2210  X1=113:Y1=22-R*1.9-1.5*T  :GOTO 2240
 2220  X1=118:Y1=33-R*2.8+3*(2-T):GOTO 2240
 2230  X1=123:Y1=56-R*4.6-3*T
 2240    PROCMOVE(X+X1,Y+Y1,3)
 2250   PROCDRAW(XX+X1,YY+Y1)
 2260 RETURN
 2270   IF R<>3-T THEN RETURN
 2280 PROCMOVE(2*X%-10,2*Y%,1)
 2290  REM PROCDRAW(2*XX-10,2*YY)
 2300 RETURN
 2310 FOR R%=0 TO 3:READ Y(R%):NEXT 
 2320 DATA 270,200,129,55
 2330 VDU 29,80;1;
 2340 RETURN
 2350  DY=49-(3-D)*4
 2360  DX=20*(E+2)-25*E
 2370  XD=20*(E+3)-25*(E+1)
 2380  VDU 29,80;Y(D)*3;
 2390    Y1=YY(C)-C*(3-D)+2  
 2400    Y2=YY(C+1)-(C+1)*(3-D)-2
 2410 FOR Y=Y1 TO Y2
 2420               PROCMOVE(Y*DX/DY+25*E+2,Y,G(F))
 2430           PROCDRAW(Y*XD/DY+25*E+23,Y)
 2440 NEXT
 2450 RETURN
 2460  DEF PROCFILL(X1%,y??????????????????
 2461?????????????????????????????????????????????????????????????????????????????????????????????? 
 2510 ENDPROC
 2520 DEF PROCMOVE(X%,Y%,C%)
 2530      GCOL 0,C% 
 2540        MOVE X%*SFX,Y%*SFY 
 2550 ENDPROC
 2560 DEF PROCDRAW(X%,Y%)
 2570        DRAW X%*SFX,Y%*SFY
 2580 ENDPROC
 2590  DEF PROCLEAR(X,Y)
 2600  PRINT TAB(X,Y);"           " 
 2610  PRINT TAB(X,Y+1);"        "
 2620 ENDPROC
30000DEFPROCprint_titles(prog$,author$)
30010 LOCALbeeb$,row,let
30015 VDU 22,7
30020 beeb$="ƒBEEBUG"+STRING$(4,"  BEEBUG")
30030 VDU26:CLS:row=0:let=0
30040 REPEAT :let=let+1
30050  PRINTCHR$(let+129);MID$("BEEBUG",let,1);
30060  PRINTTAB(38);MID$("GBEEBU",let,1)
30070  let=let MOD6:row=row+1
30080 UNTILrow=24
30090 PRINTbeeb$;
30100 VDU26:PRINTbeeb$
30110 FOR row=2 TO 8
30120  PRINTTAB(19-LEN(prog$)DIV2,row);prog$
30130 NEXT row
30140 PRINTTAB(12,11);"PROGRAM AUTHOR"
30150 PRINTTAB(19-LEN(author$)DIV2,13);author$
30160PRINTTAB(3,19);
30170ENDPRO
Its odd the block is just cut short as seen from this tape dump @3C94 (3C8E --> L(X1%,y.......) then you get the start of the header for the next block "*3D-OXO"
3D-OXO.png
Peter.

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Wed Dec 27, 2017 10:35 am

Thanks Peter. It's my laptop, its getting old and seems to lock up with disc io. I had hoped it was just the interface, but it looks like it lost the recording there. I could try with a newer computer.

I am trying to get this copied as Mick wants it.
I'm working on http://bbcmicro.co.uk

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 27, 2017 10:38 am

No problem anything to try to help you out there, just let us know if you need any other help.
Peter.

User avatar
BigEd
Posts: 1891
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: How to convert tape to UEF

Post by BigEd » Wed Dec 27, 2017 10:49 am

pau1ie wrote:...I tried splicing block 19 from the recording where it worked...
Could you share this other recording? Perhaps it can still be successfully spliced.

User avatar
vanekp
Posts: 540
Joined: Thu Nov 30, 2000 7:09 am
Location: The Netherlands
Contact:

Re: How to convert tape to UEF

Post by vanekp » Wed Dec 27, 2017 10:54 am

Yes we could try that as its clear to see that block 19 is cut short looking at the wave file.
If you listen to the wave file you hear the block is cut short.
or just re record the last few blocks of that file.
Peter.

User avatar
pau1ie
Posts: 525
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: How to convert tape to UEF

Post by pau1ie » Wed Dec 27, 2017 11:58 am

BigEd wrote: Could you share this other recording
I realised I can't count. I was counting in decimal, and of course the blocks are numbered in hex. I will give it another try later, and upload if I get stuch.

Peter, what did you do to decode the partial block? I feel there is a lot I am missing!
I'm working on http://bbcmicro.co.uk

Post Reply