Commodore 64 s/n U.K.B1697889 Repair Log

Commodore logo

Do you have a defective / non working Commodore 64 breadbin?
I probably want it!
Make me an offer on gert@dabbler.dk and state if you want to sell it or swap it for this working one (you will have to pay my costs in parts and shipping – but not my time) 🙂

 

Purchased 8th August 2017 on eBay:

  • Breadbin: SER.NO.U.K.B1697889
  • PSU: Part no. 251 053-11
  • Datasette: C2N, Serial No 01202217, Made in Taiwan
  • Motherboard: S/N UA196145, assy No. 250407, artwork no. 251137, rev. B. Made in Hong Kong

 

Chips:

  • U1: CIA, MOS 6526, week 39, 1984
  • U2: CIA, MOS 6526, week 39, 1984
  • U3: BASIC ROM, MOS 901226-01, week 28, 1984
  • U4: Kernal ROM, MOS 901227-03, week 36, 1984
  • U5: Character ROM, MOS 901225-01, (no week/year)
  • U6: Color RAM, MM2114N, week 32, 1984
  • U7: CPU, MOS 6510, week 27, 1984
  • U17: PLA, MOS 906114-01, week 35, 1984
  • U18: SID, MOS 6581, week 34, 1984. Defective – replaced with 6581R4AR, week 14, 1990
  • U19, VIC2, MOS 6569R3, week 39, 1984
  • RAM, 7*OKI M3764-20, 1*Sharp LH2164-15

 

Sellers description:

Commodore 64 Computer C64 Breadbin With Power & Datasette Faulty Spares & Repairs BUY NOW.
Greet Computer found in job lot of items and will sadly not power on ?
Maybe easy fix for someone or at least loads of spares. Comes with power pack and datasette only.

 

Repair log:

  • 9v, 1.5A fuse in PSU blown, changed
  • SID defective, black screen. Works w/o sound when removed. Replaced with spare
  • PSU 5v rail rebuild for future proofing:
    7805 voltage regulator, original electrolytic capacitor and a few other passive components  replaced with 3A buck converter with 4700uF 25v electrolytic capacitor on input. Patched in after diode rectifier.
  • Re-capped motherboard
  • Future proofed the larger MOS chips which heat sinks
  • Cleaned and lubricated datasette
  • Re-capped datasette
  • Fixed ticking noice from datasette when fast forwarding with a piece of heat shrink tube (se picture)
  • Changed both drive belts in datasette
  • Over-voltage protection of 5v PSU-rail on motherboard (installed P6KE6.8CA)

 

Costs (total DKK 875):

  • Breadbin, PSU and datasette: DKK 525.-
  • SID: DKK 250,-
  • Misc.: DKK 100,-

Let me know if you will buy or swap with this unit 🙂

Annoying non-rotating picture frame

Big Ben upside-down

If you got a cheap Chinese Picture Frame, you have probably noticed that half your pictures are upside-down, or rotated left or right.

It happens even if the pictures are shown correctly on your computer, so if you got loads of pictures on your frame, it can be quite a hassle to figure out which files are orientated wrong.

The cause of this is the EXIF attribute which stores the correct orientation of the picture. Or rather that most Picture Frames ignores this attribute, probably because they do not have the CPU power to rotate the picture anyway.

The easiest fix is to run this PowerShell script on all your pictures – it will read the EXIF attribute and actually rotate the picture so your Picture frame does not have to.

Have fun!


2020-04-11: Updated: Now the script also resizes images (while maintaining aspect ratio) so your huge images won’t fill up your picture frame (remember to keep a copy of the images if you need them in full resolution)

# 20200411 Gert Lynge. Source: http://www.dabbler.dk
#
[System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") > $null

function Get-EXIFRotationAttribute($FilePath) {
# Returns:
# 1 = "Horizontal"
# 3 = "Rotate 180 degrees"
# 6 = "Rotate 90 degrees clockwise"
# 8 = "Rotate 270 degrees clockwise"
  $WiaImage = New-Object -ComObject Wia.ImageFile
  $WiaImage.LoadFile($FilePath)
  if($WiaImage.Properties.Exists("274")) {
    return ($WiaImage.Properties.Item("274").Value)
  }
  return -1
}

function RotateClockwise-JpegImage($Degrees,$FilePath) {
  $Image = [System.Drawing.image]::FromFile( $FilePath )
  switch($Degrees) {
    90  { $Image.rotateflip("Rotate90FlipNone") }
    180 { $Image.rotateflip("Rotate180FlipNone") }
    270 { $Image.rotateflip("Rotate270FlipNone") }
  }
  $Image.save($FilePath)
  $Image.Dispose()
  Write-Host -ForegroundColor Yellow "$FilePath rotated $Degrees degrees clockwise"
}

function ResizeImage() {
    param([String]$ImagePath, [Int]$Quality = 90, [Int]$targetSize, [String]$OutputLocation)
 
    Add-Type -AssemblyName "System.Drawing"
 
    $img = [System.Drawing.Image]::FromFile($ImagePath)
 
    $CanvasWidth = $targetSize
    $CanvasHeight = $targetSize
 
    #Encoder parameter for image quality
    $ImageEncoder = [System.Drawing.Imaging.Encoder]::Quality
    $encoderParams = New-Object System.Drawing.Imaging.EncoderParameters(1)
    $encoderParams.Param[0] = New-Object System.Drawing.Imaging.EncoderParameter($ImageEncoder, $Quality)
 
    # get codec
    $Codec = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | Where {$_.MimeType -eq 'image/jpeg'}
 
    #compute the final ratio to use
    $ratioX = $CanvasWidth / $img.Width;
    $ratioY = $CanvasHeight / $img.Height;
 
    $ratio = $ratioY
    if ($ratioX -le $ratioY) {
        $ratio = $ratioX
    }

    if ($ratio -ne 1) { 
      $newWidth = [int] ($img.Width * $ratio)
      $newHeight = [int] ($img.Height * $ratio)
 
      $bmpResized = New-Object System.Drawing.Bitmap($newWidth, $newHeight)
      $graph = [System.Drawing.Graphics]::FromImage($bmpResized)
      $graph.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
 
      $graph.Clear([System.Drawing.Color]::White)
      $graph.DrawImage($img, 0, 0, $newWidth, $newHeight)
 
      #save to file
      $img.Dispose()
      $bmpResized.Save($OutputLocation, $Codec, $($encoderParams))
      $bmpResized.Dispose()
      
      Write-Host -ForegroundColor Yellow "$FilePath scaled to $newWidth * $newHeight"
    }
}

function Rotate-JpegImages($ImagePath) {
  write-host -ForegroundColor Yellow "Checking for jpg/jpeg images that needs rotation in path $ImagePath (including subdirectories)..."
  $JpegFiles = get-childitem -Recurse -Path "$ImagePath\*" -File -Include @("*.jpg","*.jpeg")
  ForEach($JpegFile IN $JpegFiles) {
    $FilePath = Join-Path -Path $ImagePath -ChildPath $JpegFile.Name

    $EXIFRotationAttribute = Get-EXIFRotationAttribute $FilePath
    switch($EXIFRotationAttribute) {
      6 { RotateClockwise-JpegImage 90 $FilePath }
      3 { RotateClockwise-JpegImage 180 $FilePath }
      8 { RotateClockwise-JpegImage 270 $FilePath }
    }

    ResizeImage -ImagePath $FilePath -targetSize 1280 -OutputLocation $FilePath

  }
}

# Rotate all images on D: (including files in subdirectories)
clear
Rotate-JpegImages "D:\"