Cognew Freezes code, help?

Jermcb

Hi Everyone,

I have decided to re-create the old 'snake' game using the parallax propeller chip. I have written the logic for the motion of the snake and the the output display for a TV screen. This all works nicely until I try and automatically update the position of the snake in a separate cog. As soon as I declare a new cog the code freezes.

So I have stripped down the code to the following basic lines and it still freezes. I cannot figure out why?

Main code:

CON
  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

  '''''''' TV Dimensions '''''''''''     
  Frame_Width = 2
  Frame_y_top = -Frame_Width   
  Frame_y_bottom = -207
  Frame_x_right = 254 
  Frame_x_left = Frame_Width-1
  
  '''''''' TV Dimensions '''''''''''

  Num_Values_In_Snake = 100

VAR
  long Snake_x_vals[Num_Values_In_Snake]                'X-Coords
  long Snake_y_vals[Num_Values_In_Snake]                'Y-Coords
  long counter                                          'Generic Counter


OBJ              
  TV : "tv_terminal_graphics"
  Snake : "TesterFile"
      
PUB main          
  TV.start(12)
  
  DrawFrame
  CreateInitialSnake

  Plot_Snake
  Snake.start
 
  repeat      
      DrawFrame
      TV.color(2) 
      Plot_Snake

  '''''''''''''''''''''''''''''''''''''''''''''''''''''''

PUB CreateInitialSnake
  counter := 0
  repeat 10
    Snake_x_vals[counter] := 100 + counter
    Snake_y_vals[counter] := -103 
    counter := counter + 1

PUB DrawFrame
  'Drawing Frame
  TV.Set_Clear
  TV.color(1)
  TV.Make_box(Frame_x_left, Frame_y_top, Frame_x_right, Frame_y_bottom, Frame_Width)

PUB Plot_Snake
  
  counter :=0 
  repeat  Num_Values_In_Snake
     TV.plot(Snake_x_vals[counter], Snake_y_vals[counter])
     counter := counter + 1

Tester File:

VAR
  long Cog                      'Cog Number
  long Stack[48]                'StackMemory   
  long Counter                  'Random Counter
  
PUB  start
    Counter := 0
    Cog := cognew((MoveSnake), @Stack) +1

PUB Stop
    if Cog
      cogstop(Cog~ - 1)

PRI MoveSnake   
    repeat
      Counter := Counter + 1

If I comment out the "Snake.start" line in the main function then I can see the TV visibly updating the screen. But if I don't the code freeze's at that line!

Can anyone tell me why??

Thank you,

Mike Green

cognew((MoveSnake), @Stack) is not a valid call to COGNEW. Try cognew(MoveSnake, @Stack) instead.

How are you going to tell if it's running? You might put in another PUB method like this:

PUB GetCounter
   return Counter

MagIO2

Wasn't there a problem with the brackets around the function name?

cognew((MoveSnake), @Stack)

I'm not sure if I remember that right ... but you could give it a try. And it would make sense! The propeller tries to execute the function and pass the return value to cognew. But MoveSnake is an endless loop - never comeing back.

Jermcb

Thanks again!!

I removed the brackets, and it works now!