setting value of GPIO pin

Anobium — Fri, 15 May 2026 14:57:31 -0000

Having time to think about this whilst driving.... :-)

I thought that is would take a change to the table data model, but, I think that the compiler can iterate thought the table ( not during pre-processing ) and inspect for byte only tables and set some flag. The table being greater than 255 elements or being words code would be retained and only when only all bytes and > 255 then optimise.

This could work.

SHIFT Command. New command.

Anobium — Thu, 14 May 2026 15:36:32 -0000

You do that in GCBASIC. All the does is call fnLsL or fnLrL and this is where this started as that is not optimised code is all case ( constants are OK).

;Dim varstart = 4
ldi SysValueCopy,4
sts VARSTART,SysValueCopy

;Dim varright = varstart >> 1; // Shift right by 1 -> 00000010 (Decimal 2)
lds SYSBYTETEMPB,VARSTART
ldi SysValueCopy,1
sts NUMBITS,SysValueCopy
rcall FN_FNLSR88
lds SysValueCopy,SYSFNLSRBYTE
sts VARRIGHT,SysValueCopy
;
Dim varright = 4 >> 1
ldi SysValueCopy,2
sts VARRIGHT,SysValueCopy

;varright = varstart
lds SysValueCopy,VARSTART
sts VARRIGHT,SysValueCopy
;shift varright, right
lsr SysValueCopy
sts VARRIGHT,SysValueCopy

So, it depends what is needed.

SHIFT Command. New command.

mmotte — Thu, 14 May 2026 15:25:52 -0000

In some other language:
int left = x << 2; // Shift left by 2 -> 00000100 (Decimal 20)
int right = x >> 1; // Shift right by 1 -> 00000010 (Decimal 2)

SHIFT Command. New command.

Anobium — Thu, 14 May 2026 14:55:11 -0000

:-)

Not able to do changes for a while.

Have a look at the change in gcbasic.bas and preprocessor. I committed. Have a go at extending.

The syntax would need to default to 1, then you need to make the decision what is fastest? or is it hybrid? Is multiple instructions faster then a repeat N - end repeat cycles? You would to analyse. One shift v two shifts v repeat n: one shift: end repeat.

SHIFT Command. New command.

mmotte — Thu, 14 May 2026 14:12:12 -0000

Some sensors require shifting of the raw data.

ie. adc_T = adc_T/16 ' shift to the right 4 places

the code would be :
shift adc_T, right
shift adc_T, right
shift adc_T, right
shift adc_T, right

Looks like you need a number in your command?

Sorry, Greetings Anobium!

setting value of GPIO pin

Anobium — Wed, 13 May 2026 18:29:09 -0000

The project can be optmised. That is one of the fun parts of an open source project.

Time is always the constraint and developers willng to analyse and make the changes.

setting value of GPIO pin

miniTesla — Wed, 13 May 2026 17:47:57 -0000

I am merely pointing out things that would make the generated code smaller. The 25-50% more code that GCBASIC generates is currently the remaining hurdle for me to drop BASCOM and adopt GCBASIC.

setting value of GPIO pin

Anobium — Wed, 13 May 2026 16:29:05 -0000

The H does look redundant.

I would need time to analyse as this code is not the code I replaced the other day. That was the preprocessor, this code generation.

Thee are two cases I can think of where the code at @ASCIITAB_H is needed 1) when the destination variables is a word, or 2) the table data set contains words.

Removing that ASCIITAB_H type routine would save ≈ 12–15 words of program memory on AVR.

setting value of GPIO pin

miniTesla — Wed, 13 May 2026 15:27:49 -0000

Table Asciitab
   0x00,0x00,0x00,0x00,0x00   ' 32 space
   0x00,0x06,0x5F,0x06,0x00   ' 33 !
   0x07,0x03,0x00,0x07,0x03   ' 34 double quote
   0x24,0x7E,0x24,0x7E,0x24   ' 35 #
   0x24,0x2B,0x6A,0x12,0x00   ' 36 $
   0x63,0x13,0x08,0x64,0x63   ' 37 %
   0x36,0x49,0x56,0x20,0x50   ' 38 &
   0x00,0x07,0x03,0x00,0x00   ' 39 '
   0x00,0x3E,0x41,0x00,0x00   ' 40 (
   0x00,0x41,0x3E,0x00,0x00   ' 41 )
   0x08,0x3E,0x1C,0x3E,0x08   ' 42 *
   0x08,0x08,0x3E,0x08,0x08   ' 43 +
   0x00,0xE0,0x60,0x00,0x00   ' 44 ,
   0x08,0x08,0x08,0x08,0x08   ' 45 -
   0x00,0x60,0x60,0x00,0x00   ' 46 .
   0x20,0x10,0x08,0x04,0x02   ' 47 /
   0x3E,0x51,0x49,0x45,0x3E   ' 48 0
   0x00,0x42,0x7F,0x40,0x00   ' 49 1
   0x62,0x51,0x49,0x49,0x46   ' 50 2
   0x22,0x49,0x49,0x49,0x36   ' 51 3
   0x18,0x14,0x12,0x7F,0x10   ' 52 4
   0x2F,0x49,0x49,0x49,0x31   ' 53 5
   0x3C,0x4A,0x49,0x49,0x30   ' 54 6
   0x01,0x71,0x09,0x05,0x03   ' 55 7
   0x36,0x49,0x49,0x49,0x36   ' 56 8
   0x06,0x49,0x49,0x29,0x1E   ' 57 9
   0x00,0x6C,0x6C,0x00,0x00   ' 58 :
   0x00,0xEC,0x6C,0x00,0x00   ' 59 ;
   0x08,0x14,0x22,0x41,0x00   ' 60 <
   0x24,0x24,0x24,0x24,0x24   ' 61 =
   0x00,0x41,0x22,0x14,0x08   ' 62 >
   0x02,0x01,0x59,0x09,0x06   ' 63 ?
   0x3E,0x41,0x5D,0x55,0x1E   ' 64 @
   0x7E,0x11,0x11,0x11,0x7E   ' 65 A
   0x7F,0x49,0x49,0x49,0x36   ' 66 B
   0x3E,0x41,0x41,0x41,0x22   ' 67 C
   0x7F,0x41,0x41,0x41,0x3E   ' 68 D
   0x7F,0x49,0x49,0x49,0x41   ' 69 E
   0x7F,0x09,0x09,0x09,0x01   ' 70 F
   0x3E,0x41,0x49,0x49,0x7A   ' 71 G
   0x7F,0x08,0x08,0x08,0x7F   ' 72 H
   0x00,0x41,0x7F,0x41,0x00   ' 73 I
   0x30,0x40,0x40,0x40,0x3F   ' 74 J
   0x7F,0x08,0x14,0x22,0x41   ' 75 K
   0x7F,0x40,0x40,0x40,0x40   ' 76 L
   0x7F,0x02,0x04,0x02,0x7F   ' 77 M
   0x7F,0x02,0x04,0x08,0x7F   ' 78 N
   0x3E,0x41,0x41,0x41,0x3E   ' 79 O
   0x7F,0x09,0x09,0x09,0x06   ' 80 P
   0x3E,0x41,0x51,0x21,0x5E   ' 81 Q
   0x7F,0x09,0x09,0x19,0x66   ' 82 R
   0x26,0x49,0x49,0x49,0x32   ' 83 S
   0x01,0x01,0x7F,0x01,0x01   ' 84 T
   0x3F,0x40,0x40,0x40,0x3F   ' 85 U
   0x1F,0x20,0x40,0x20,0x1F   ' 86 V
   0x3F,0x40,0x3C,0x40,0x3F   ' 87 W
   0x63,0x14,0x08,0x14,0x63   ' 88 X
   0x07,0x08,0x70,0x08,0x07   ' 89 Y
   0x71,0x49,0x45,0x43,0x00   ' 90 Z
//    0x00,0x7F,0x41,0x41,0x00   ' 91 [
//    0x02,0x04,0x08,0x10,0x20   ' 92 \
//    0x00,0x41,0x41,0x7F,0x00   ' 93 ]
//    0x04,0x02,0x01,0x02,0x04   ' 94 ^
//    0x80,0x80,0x80,0x80,0x80   ' 95 underscore
//    0x00,0x03,0x07,0x00,0x00   ' 96 backtick
//    0x20,0x54,0x54,0x54,0x78   ' 97 a
//    0x7F,0x44,0x44,0x44,0x38   ' 98 b
//    0x38,0x44,0x44,0x44,0x28   ' 99 c
//    0x38,0x44,0x44,0x44,0x7F   '100 d
//    0x38,0x54,0x54,0x54,0x08   '101 e
//    0x08,0x7E,0x09,0x09,0x00   '102 f
//    0x18,0xA4,0xA4,0xA4,0x7C   '103 g
//    0x7F,0x04,0x04,0x78,0x00   '104 h
//    0x00,0x00,0x7D,0x40,0x00   '105 i
//    0x40,0x80,0x84,0x7D,0x00   '106 j
//    0x7F,0x10,0x28,0x44,0x00   '107 k
//    0x00,0x00,0x7F,0x40,0x00   '108 l
//    0x7C,0x04,0x18,0x04,0x78   '109 m
//    0x7C,0x04,0x04,0x78,0x00   '110 n
//    0x38,0x44,0x44,0x44,0x38   '111 o
//    0xFC,0x44,0x44,0x44,0x38   '112 p
//    0x38,0x44,0x44,0x44,0xFC   '113 q
//    0x44,0x78,0x44,0x04,0x08   '114 r
//    0x08,0x54,0x54,0x54,0x20   '115 s
//    0x04,0x3E,0x44,0x24,0x00   '116 t
//    0x3C,0x40,0x20,0x7C,0x00   '117 u
//    0x1C,0x20,0x40,0x20,0x1C   '118 v
//    0x3C,0x60,0x30,0x60,0x3C   '119 w
//    0x6C,0x10,0x10,0x6C,0x00   '120 x
//    0x9C,0xA0,0x60,0x3C,0x00   '121 y
//    0x64,0x54,0x54,0x4C,0x00   '122 z
//    0x08,0x3E,0x41,0x41,0x00   '123 {
//    0x00,0x00,0x77,0x00,0x00   '124 |
//    0x00,0x41,0x41,0x3E,0x08   '125 }
//    0x02,0x01,0x02,0x01,0x00   '126 ~
//    0x3C,0x26,0x23,0x26,0x3C   '127 square plus pointer down
End Table

This table is used with

DIM temp_byte As Byte
DIM temp_word As Word
ReadTable Asciitab, temp_word, temp_byte

setting value of GPIO pin

Anobium — Wed, 13 May 2026 15:20:55 -0000

What is in the source table? Post the that piece of the code and the variables used to index and assignment variable.

Recent posts to Discussion

setting value of GPIO pin

SHIFT Command. New command.

SHIFT Command. New command.

SHIFT Command. New command.

SHIFT Command. New command.

setting value of GPIO pin

setting value of GPIO pin

setting value of GPIO pin

setting value of GPIO pin

setting value of GPIO pin