Sending one byte to the parallel port

[Doobrey]

motorollin wrote:
 Unfortunately I have no experience in C or ASM, though I learn languages quickly. Guess I'll have to give it a try :-)

AmiBlitz to the rescue  ;-)

 ;-- Parallel port Blitz example..
 ;-- No more stupid Poking/peeking...
 ;-- remember to use all.res !
NEWTYPE .byte
 b.b
End NEWTYPE

*PPort_Dir.byte  = $BFE301
*PPort_Bits.byte = $BFE101

If AllocMiscResource_(#MR_PARALLELPORT,"MyAppName") = 0

  *PPort_Dir\b= %11111111   ; set all bits direction to output

  ;-- Ready to rock and roll..

  *PPort_Bits\b=%01010101   ; set the little buggers

  FreeMiscResource_ #MR_PARALLELPORT
Else
  NPrint "Crap, somethings already got the port "
EndIf

End

[motorollin]

Now that's more like it - Basic should be much easier :-) I assume I can compile with this?

--
moto

[Doobrey]

AFAIK, the latest complete archives are at amiforce.de

[motorollin]

Cool, gonna try it tomorrow :-) Can I just paste the code you gave me in to Blitz and execute it, or do I have to include stuff?

--
moto