' =========================================================================
'
'   File....... Array_Trickery.BS2
'   Purpose....
'   Author..... Jon Williams -- Parallax, Inc.
'   E-mail..... jwilliams@parallax.com
'   Started....
'   Updated.... 14 OCT 2005
'
'   {$STAMP BS2}
'   {$PBASIC 2.5}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------


' -----[ Constants ]-------------------------------------------------------


' -----[ Variables ]-------------------------------------------------------

servo           VAR     Word
s1Lo            VAR     servo.LOWBYTE
s1Hi            VAR     servo.HIGHBYTE
s2Lo            VAR     Byte
s2Hi            VAR     Byte
s3Lo            VAR     Byte
S3Hi            VAR     Byte

idx             VAR     Nib


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:


' -----[ Program Code ]----------------------------------------------------

Main:
  servo(0) = $AABB
  servo(1) = $BBCC
  servo(2) = $CCDD
  GOSUB Show_Servos

  FOR idx = 0 TO 2
    s1Lo(idx * 2) = ((idx + 1) * $11) + $AA
    s1Hi(idx * 2) = ((idx + 1) * $11) + $99
  NEXT
  GOSUB Show_Servos

  END


' -----[ Subroutines ]-----------------------------------------------------

Show_Servos:
  DEBUG HEX4 servo(0), CR,
        HEX4 servo(1), CR,
        HEX4 servo(2), CR,
        CR

  RETURN 