home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_1 / softstep / softstep3.msi / Data1.cab / SoftStepTest.bs2 < prev    next >
Encoding:
Text File  |  2002-08-03  |  760 b   |  44 lines
  1. ' use with SoftStep TestBasicStamp
  2. ' receives a value 0-127 from SoftStep, inverts it to 127-0, and sends it back,
  3. ' LED attached to output 0 blinks when no data
  4. ' LEDs attached to outputs 0-6 count when data received
  5.  
  6. value    VAR byte
  7. value = 0
  8.  
  9. output 0
  10. output 1
  11. output 2
  12. output 3
  13. output 4
  14. output 5
  15. output 6
  16.  
  17. NoData:
  18.     out1 = 1
  19.     out2 = 1
  20.     out3 = 1
  21.     out4 = 1
  22.     out5 = 1
  23.     out6 = 1
  24.  
  25.     out0 = 0
  26.     pause 50
  27.     out0 = 1
  28. Loop:
  29.     SERIN 16, 16468, 500, NODATA, [DEC value]
  30.  
  31.     out0  =  ~(value & 1)
  32.     out1 = ~((value & 2) / 2)
  33.     out2 = ~((value & 4) / 4)
  34.     out3 = ~((value & 8) / 8)
  35.     out4 = ~((value & 16) / 16)
  36.     out5 = ~((value & 32) / 32)
  37.     out6 = ~((value & 64) / 64)
  38.  
  39.     value = 127 - value
  40.     
  41.     SEROUT 17, 16468, [dec3 value]
  42.     goto Loop
  43.  
  44.