wii NUNCHUK OPEN

 ' theremin - with apologies to music lovers everywhere
 ' Tassyjim
 
 DIM Fmax = 6000
 DIM Fmin = 200
 DIM Vmax = 100
 DIM Vmin = 1
 DIM NRmax = 0
 DIM NRmin = 1000
 DIM NLmax = 0
 DIM NLmin = 1000
 DIM k,m
 
 'k = wake_nunchuk() ' only needed for unreliable nunchuks
 SETPIN 32, DOUT ' only used for CRO trigger
 
 SETTICK 50,toneint ' reset the frequency and volume every 50mS
 
 CLS
 wii NUNCHUK OPEN
 PRINT "Calibrating..."
 PRINT "move the nunchuk through the full desired movements."
 PRINT "Press the main trigger when finished"
 PRINT
 PRINT "Tilt left to right for frequency change. Front to rear for volume."
 
 ' calibrating gets the extremes of movement
 
 DO
   k = NUNCHUK(aX)
   print k;"  ";
   IF k <> 0 THEN
     IF NRmax < k THEN NRmax = k
     IF NRmin > k THEN NRmin = k
   ENDIF
   k = NUNCHUK(aY)
   print k
   IF k <> 0 THEN
     IF NLmax < k THEN NLmax = k
     IF NLmin > k THEN NLmin = k
   ENDIF
   PRINT @(20,120) NRmin;" -";NRmax;" , "NLmin;" -";NLmax;"       ";NUNCHUK(Z)
   PAUSE 100
 LOOP UNTIL NUNCHUK(Z) = 1 or NUNCHUK(C) = 1
 PRINT "Calibrated!"
 fscale = (Fmax-Fmin)/(NRmax-NRmin)
 foffset = NRmin*fscale - Fmin
 
 vscale = (Vmax-Vmin)/(NLmax-NLmin)
 voffset = NLmin*vscale - Vmin
 
 PRINT "fscale  ";fscale
 PRINT "foffset ";foffset
 PRINT "vscale  ";vscale
 PRINT "voffset ";voffset
 PAUSE 2000
 'cls
 
 
 DO
   k = NUNCHUK(aX)
   m = NUNCHUK(aY)
   
   IF  m <> 0 AND k <> 0 THEN
     t = INT(k * fscale - foffset)
     v = INT(m * vscale - voffset)
     IF t < Fmin THEN t = Fmin
     IF t > Fmax THEN t = Fmax
     IF v > Vmax THEN v = Vmax
     IF v < Vmin THEN v = Vmin
     
     DO :LOOP UNTIL endtone = 1
     
     PLAY TONE t,t ', 100, toneint
     PLAY VOLUME v,v
     PULSE 32, 1 ' only used for CRO trigger
     endtone = 0
     'PLAY SOUND 1, B, S ,t,v
     'print @(20,120) k;" - ";t;" , ";m;" - ";v;"        "
   ENDIF
 LOOP UNTIL NUNCHUK(Z) = 1
 
 PLAY STOP
 wii NUNCHUK CLOSE
END
 
SUB toneint
 endtone = 1
END SUB
 
FUNCTION wake_nunchuk()
 LOCAL n, t$
 I2C3 OPEN 100,100
 FOR n = 1 TO 10
   I2C3 WRITE &H52,0,2,&HF0,&H55
   PRINT MM.I2C
   PAUSE 2
   IF MM.I2C = 0 THEN EXIT FOR
 NEXT n
 PRINT "N = ";n
 I2C3 WRITE &H52,0,2,&HFB,&H00
 PRINT MM.I2C
 PAUSE 2
 I2C3 WRITE &H52,0,1,&HFA
 PRINT MM.I2C
 PAUSE 2
 I2C3 READ &H52,0,6,t$
 PRINT MM.I2C
 FOR n = 1 TO 6
   PRINT HEX$(ASC(MID$(t$,n,1)),2);
 NEXT n
 PRINT
 I2C3 CLOSE
END FUNCTION

 
 Hz    uS  calc uS
25000 19.6    40.0
50000  9.9    20.0
75000  6.6    13.3
100000  5      10.0
150000  6.6     6.7
175000  5.7     5.7
200000  5       5.0
250000  6       4.0

for i = 0 to MM.HRES-1
 for j = 0 to MM.VRES-1
   page write 2
   p2 = pixel(i,j)
   page write 1
   p1 = pixel(i,j)
   page write 0
   pixel i,j, p2 OR p1
 next j
next i

DIM foo(4) AS INTEGER
DIM bar(4) AS INTEGER
DIM INTEGER baz =      &H000000000FFFFFFF
DIM INTEGER kaboom =   &H00000000FFFFFFFF

PRINT baz
PRINT kaboom

PRINT "SET LESS THAN int32"
MATH SET baz, foo()
MATH SCALE foo(),1,bar()
MATH V_PRINT foo()
MATH V_PRINT bar()

PRINT "SET MORE THAN int32"
MATH SET kaboom, foo()
MATH SCALE foo(),1,bar()
MATH V_PRINT foo()
MATH V_PRINT bar()

268435455
4294967295
SETTING LESS THAN int32
268435455, 268435455, 268435455, 268435455, 268435455
268435455, 268435455, 268435455, 268435455, 268435455
SETTING MORE THAN int32
-1, -1, -1, -1, -1
-1, -1, -1, -1, -1

DIM foo(4) AS INTEGER
DIM INTEGER kaboom% = &H0FFFFFFFFFFFFFFF
MATH SET kaboom%,foo()

FOR n = 0 TO 4
 PRINT HEX$(foo(n)), HEX$(kaboom%)
NEXT

1000000000000000 FFFFFFFFFFFFFFF
1000000000000000 FFFFFFFFFFFFFFF
1000000000000000 FFFFFFFFFFFFFFF
1000000000000000 FFFFFFFFFFFFFFF
1000000000000000 FFFFFFFFFFFFFFF