'************************************************************************* '* <3-Phase motor controller> * '* by * '* Dr.Godfried-Willem RAES * '* Stamp2 Hardware version 1.0 * '* Filename : <3Phase400Hz.bs2> * '* Code version 1.0 * '************************************************************************* ' 15.06.1998: designed for airplane compressor motor speed control. ' speed should vary -20% to + 30%. ' With no data applied, the generated three phase voltage ' should be 400Hz. ' 16.07.2001: reconsidered. ' 18.07.2001: Now runs under NT with new Parallax editor. ' Version to drive our airplane compressor motor on 400Hz 3-phase ' Drives loudspeaker output line transformers connected in triangle ' to accomodate the 3 wire connection on the motor. ' This version functions as a 3-phase 390Hz generator. ' The BS2 is simply not fast enough to be interactive! ' DECLARATIONS: Centrobyte VAR byte ' incoming byte, from pp board ' INITIALISATION: ' parallel input bits 0 to 7 ' these bits are mapped on midi notes 0-7 ' make this byte an input: DIRL = 0 ' pins 8 to 11 are not used. We configure ' them as outputs: ' pin 8 gets pulsed and let the user display the frequency generated, DIRC = $F 'DIR12 = 1 :' phase U output 'DIR13 = 1 :' phase V output 'DIR14 = 1 :' phase W output 'DIR15 = 1 :' not used bit ' these pins steer the gates of 3 logic level 15Amps power mosfets. DIRD = $F LOW 12 LOW 13 LOW 14 ' Initialisation of variables: Centrobyte = INL :' low byte is incoming info ' START OF RUN-CODE:***************************************************** Begin: 'Centrobyte = INL Pulsout 8 OUTD = $5 ' 60 graden 0101 Centrobyte = INL OUTD = $4 ' 120 graden 0100 Centrobyte = INL OUTD = $6 ' 180 graden 0110 Centrobyte = INL OUTD = $2 ' 240 graden 0010 Centrobyte = INL OUTD = $3 ' 300 graden 0011 Centrobyte = INL OUTD = $1 ' 360 graden 0001 Goto Begin END