AmiBlitz (Blitz Basic) "Type not found" error

[Doobrey]

Gah... looks like somethings wrong with the way blitz calls the two misc.resource functions :-(
 They were only added for completeness, and don't stop you from banging the hardware.
This is really all you need for testing your relay

NEWTYPE .byte
b.b
End NEWTYPE

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

*PPort_Dir\b= %11111111 ; set all bits direction to output
*PPort_Bits\b=%01010101 ; set the output of each pin
End

[Doobrey]

Yup, it's a bug in the way Blitz calls the resource.
I just cobbled together 2 funcs that call it directly and it doesn't crash.

Code: [Select]


Function.l AllocMiscResource{unit.l,name.l}
 SHARED MiscBase.l
 GetReg d0,unit
 GetReg a1,name
 GetReg a6,MiscBase
 JSR -6(a6)
 AsmExit
End Function

Statement FreeMiscResource{unit.l}
 SHARED MiscBase.l
  GetReg d0,unit
  GetReg a6,MiscBase
  JSR -12(a6)
End Statement

 ;-- No more stupid Poking/peeking...
 NEWTYPE .byte
  b.b
 End NEWTYPE

 MiscBase.l=0
 
 *PPort_Dir.byte=$bfe301
 *PPort_Bits.byte=$bfe101
                                                                                                                                                                                                                                                         

 MiscBase.l=OpenResource_("misc.resource")
 If MiscBase

  If AllocMiscResource{#MR_PARALLELPORT,"MyAppName"}=0

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


    FreeMiscResource {#MR_PARALLELPORT}

  Else
    NPrint "Crap!"
  EndIf

 EndIf

End




[Doobrey]

Bin$(number) converts from an integar to string showing the binary representation.
Str$(number) converts from integar to string.
bit$=Right$(Bin$(*PPort_Bits\b),8) should give you the lower 8 bits...assuming you're trying to read the current state of the relays.
If you're using the relays the other way around to input into the Amiga, then you'll need to set each direction bit to 0  (*PPort_Dir\b=%xxxxxxxx) before reading the bits

As for the other way around, I dunno if blitz has a function to do it..been a while since I did anything with it.
 I'll have a look and see what I can find, but I'm a bit preoccupied with Remus at the moment.... it might not live to see v1.0  :madashell:

BTW, why's this page soooooo wide?