sytm_dly gpio_pin gpio_mod gpio_val sytm_beg gpio_adr gpio_dat TRUE // ================================ // blink 3-3-7 beats // (c) 2026 1YEN Toru TRUE // // // 2026/06/06 ver.1.00 // Blockly for Samarium edition // // ================================ # constants msec_ONE_BT 400 // PORT8I8O setting gpio_LED_BUILTIN_R gpio_LED_BUILTIN_OFF gpio_LED_BUILTIN_G gpio_LED_BUILTIN_OFF gpio_LED_BUILTIN_B gpio_LED_BUILTIN_OFF // forever enable, if simulation FALSE msec_ONE_BT 2 W finish simulation simfnsh simneut delay delay (dly) dly: 0~32_767[ms] delay at least dly[ms] sytm_beg W sytmmill WHILE LTE MINUS W sytmmill sytm_beg sytm_dly gpio_init GPIO library # constants TRUE gpio_INPUT 0 gpio_OUTPUT 1 gpio_LOW 0 gpio_HIGH 1 gpio_LED_BUILTIN_B 0 gpio_LED_BUILTIN_R 1 gpio_LED_BUILTIN_G 2 gpio_LED_BUILTIN_ON 0 gpio_LED_BUILTIN_OFF 1 gpio_D0 0 gpio_D1 1 gpio_D2 2 gpio_D3 3 gpio_D4 4 gpio_D5 5 gpio_D6 6 gpio_D7 7 gpio_D8 8 gpio_D9 9 gpio_D10 10 gpio_D11 11 gpio_D12 12 gpio_D13 13 gpio_D14 14 gpio_D15 15 constant data pool FALSE // barrel shift table align 2 gpio_tab: datw port_0,port_1,port_2,port_3 datw port_4,port_5,port_6,port_7 datw port_0,port_1,port_2,port_3 datw port_4,port_5,port_6,port_7 pinMode pinMode (pin, mod) pin: 0~15 mod: 0=input / 1=output // select input port W porsel 0xff // pin information gpio_adr LT gpio_pin 8 pordir pordir1 gpio_dat lab_gpio_tab gpio_dat gpio_dat gpio_pin // set direction ! gpio_mod // input W gpio_adr | W gpio_adr gpio_dat // output W gpio_adr & W gpio_adr ~ gpio_dat digitalWrite digitalWrite (pin, val) pin: 0~15 val: 0=LOW / 1=HIGH // pin mode gpio_pin gpio_OUTPUT // pin information gpio_adr | & gpio_adr ~0x0f gpio_val porset&0x0f porclr&0x0f // output W gpio_adr gpio_dat # dependency FALSE led_1_beat LED 1 beat gpio_LED_BUILTIN_G gpio_LED_BUILTIN_ON msec_ONE_BT/2 gpio_LED_BUILTIN_G gpio_LED_BUILTIN_OFF msec_ONE_BT/2 led_337_beat LED 3-3-7 beats // 3 beats 3 msec_ONE_BT // 3 beats 3 msec_ONE_BT // 7 beats 7 msec_ONE_BT