Graphics (23) does not work with Effectus?

[funkheld]

hello, good day.
Graphics (23) does not work with Effectus?

greeting

MODULE

PROC Main()

Graphics(23)

color=2
Plot(0,0)
DrawTo(159,95)

color=1
Plot(159,0)
DrawTo(0,95)

RETURN

[ricortes]

Once again, I don't have Effectus so just a guess. It looks like the program is trying to print to screen and is handling it badly. Something like the 'RETURN' is going to DOS and DOS is trying to print something. Try changing it to

 

PROC Main()

 

Graphics(23)

 

color=2

Plot(0,0)

DrawTo(159,95)

 

color=1

Plot(159,0)

DrawTo(0,95)

While Peek(764)=255 DO OD

RETURN

[funkheld]

Thank you.
With an endless loop it does not go well.

greeting

 

MODULE

PROC Main()

Graphics(23)

color=2
Plot(0,0)
DrawTo(159,95)

color=1
Plot(159,0)
DrawTo(0,95)
DO OD
RETURN

[Synthpopalooza]

Try also replacing this:

 

While Peek(764)=255 DO OD

 

with this:

 

While Peek(555)=0 DO OD

 

This works better because sometimes the KB buffer doesn't get cleared when the program is run

 

or you can do a POKE(764,255) before the While statement.

[Gury]

Peeking at 555 is fine alternative for testing the key. I used it several times with no problem. I just wonder if there are any issues using this location, are there any conflicts with different DOSes or special software?

 

Quote about this location from System Guide:

"Software repeat timer, controlled by IRQ device routine, establishes initial delay before key will repeat--1/2 sec. Stage 2 Vblank establishes repeat rate 10/sec. decrements timer, implements auto repeat logic."

[Gury]

Even more descriptive explanation:

"Each time you read this location, you get a different number. That's because it's counting down from when a key is de- pressed to time the delay before repeating the key."

 

but I will stick with location 764 and reseting it to 255, because it seems more reliable.

[funkheld]

continues to attend the effectus.

thank you.

greeting

Edited August 12, 2015 by funkheld

[Gury]

Yeah, of course it is. It was recently updated, but I am working on new version with much more features and bug fixes. So much has to be done, better support for pointers, multi-line compiling, other syntax, function and parameter fixes, etc.

[funkheld]

hello, why demo " result=0" with effectus ???

greeting

CARD FUNC MultiplyB=*(BYTE a,x)[
 $85 $E0 $86 $E1 $A9 $00 $85 $A0 $A2
 $08 $46 $E0 $90 $03 $18 $65 $E1 $6A
 $66 $A0 $CA $D0 $F3 $85 $A1
 $60]
 
BYTE FUNC PokeTest=*(BYTE d)[
  $8D $02C6
  $60
]
 
PROC Test()
 
BYTE i
BYTE j
CARD z
         
; Poke background with color         
PokeTest(210)
        
; Multiply two numbers        
i=20
j=30
z=MultiplyB(i,30)
 
PrintF("Result = %U%E",z)
 
RETURN

Edited August 12, 2015 by funkheld

[funkheld]

gury thanks.

[Gury]

New version (0.2.1)

 

Now this code compiles properly. Value is returned in $a0 and $a1 as it is in Action!

[funkheld]

hello gury thanks.

 

greeting