mirror of https://github.com/arendst/Tasmota.git
436 lines
16 KiB
C
436 lines
16 KiB
C
/********************************************************************
|
|
* Tasmota I2C_Driver class
|
|
*
|
|
* To use: `d = I2C_Driver(addr, name)`
|
|
* where:
|
|
* addr: I2C address of the device
|
|
* name: name of the I2C chip for logging
|
|
*
|
|
*******************************************************************/
|
|
#include "be_constobj.h"
|
|
|
|
extern bclass* be_class_Driver; // Parent class
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(init, /* name */
|
|
be_nested_proto(
|
|
10, /* nstack */
|
|
4, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[10]) { /* constants */
|
|
be_nested_string("get_tasmota", 334356779, 11),
|
|
be_nested_string("i2c_enabled", 218388101, 11),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("wire_scan", -1623691416, 9),
|
|
be_nested_string("function", -1630125495, 8),
|
|
be_nested_string("name", -1925595674, 4),
|
|
be_nested_string("I2C:", 813483371, 4),
|
|
be_nested_string("detected on bus", 1432002650, 15),
|
|
be_nested_string("bus", 1607822841, 3),
|
|
}),
|
|
(be_nested_const_str("init", 380752755, 4)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[44]) { /* code */
|
|
0x8C100100, // 0000 GETMET R4 R0 R256
|
|
0x7C100200, // 0001 CALL R4 1
|
|
0x4C140000, // 0002 LDNIL 5
|
|
0x20140605, // 0003 NE R5 R3 R5
|
|
0x78160004, // 0004 JMPF R5 #000A
|
|
0x8C140901, // 0005 GETMET R5 R4 R257
|
|
0x5C1C0600, // 0006 MOVE R7 R3
|
|
0x7C140400, // 0007 CALL R5 2
|
|
0x74160000, // 0008 JMPT R5 #000A
|
|
0x80000A00, // 0009 RET 0 R5
|
|
0x90020402, // 000A SETMBR R0 R258 R2
|
|
0x8C140904, // 000B GETMET R5 R4 R260
|
|
0x881C0102, // 000C GETMBR R7 R0 R258
|
|
0x7C140400, // 000D CALL R5 2
|
|
0x90020605, // 000E SETMBR R0 R259 R5
|
|
0x88140103, // 000F GETMBR R5 R0 R259
|
|
0x78160019, // 0010 JMPF R5 #002B
|
|
0x60140015, // 0011 GETGBL R5 G21
|
|
0x5C180200, // 0012 MOVE R6 R1
|
|
0x7C140200, // 0013 CALL R5 1
|
|
0x1C140B05, // 0014 EQ R5 R5 R261
|
|
0x78160004, // 0015 JMPF R5 #001B
|
|
0x5C140200, // 0016 MOVE R5 R1
|
|
0x5C180000, // 0017 MOVE R6 R0
|
|
0x7C140200, // 0018 CALL R5 1
|
|
0x90020C05, // 0019 SETMBR R0 R262 R5
|
|
0x70020000, // 001A JMP #001C
|
|
0x90020C01, // 001B SETMBR R0 R262 R1
|
|
0x88140106, // 001C GETMBR R5 R0 R262
|
|
0x4C180000, // 001D LDNIL 6
|
|
0x1C140A06, // 001E EQ R5 R5 R6
|
|
0x78160001, // 001F JMPF R5 #0022
|
|
0x4C140000, // 0020 LDNIL 5
|
|
0x90020605, // 0021 SETMBR R0 R259 R5
|
|
0x88140103, // 0022 GETMBR R5 R0 R259
|
|
0x78160006, // 0023 JMPF R5 #002B
|
|
0x6014000F, // 0024 GETGBL R5 G15
|
|
0x58180007, // 0025 LDCONST R6 K7
|
|
0x881C0106, // 0026 GETMBR R7 R0 R262
|
|
0x58200008, // 0027 LDCONST R8 K8
|
|
0x88240103, // 0028 GETMBR R9 R0 R259
|
|
0x88241309, // 0029 GETMBR R9 R9 R265
|
|
0x7C140800, // 002A CALL R5 4
|
|
0x80000000, // 002B RET 0 R0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: write8
|
|
********************************************************************/
|
|
be_local_closure(write8, /* name */
|
|
be_nested_proto(
|
|
9, /* nstack */
|
|
3, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 4]) { /* constants */
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("write", -1104765092, 5),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_const_int(1),
|
|
}),
|
|
(be_nested_const_str("write8", -1160975764, 6)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[ 8]) { /* code */
|
|
0x880C0100, // 0000 GETMBR R3 R0 R256
|
|
0x8C0C0701, // 0001 GETMET R3 R3 R257
|
|
0x88140102, // 0002 GETMBR R5 R0 R258
|
|
0x5C180200, // 0003 MOVE R6 R1
|
|
0x5C1C0400, // 0004 MOVE R7 R2
|
|
0x58200003, // 0005 LDCONST R8 K3
|
|
0x7C0C0A00, // 0006 CALL R3 5
|
|
0x80040600, // 0007 RET 1 R3
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: write_bit
|
|
********************************************************************/
|
|
be_local_closure(write_bit, /* name */
|
|
be_nested_proto(
|
|
11, /* nstack */
|
|
4, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 4]) { /* constants */
|
|
be_const_int(0),
|
|
be_const_int(1),
|
|
be_nested_string("write8", -1160975764, 6),
|
|
be_nested_string("read8", -1492179129, 5),
|
|
}),
|
|
(be_nested_const_str("write_bit", -1633976860, 9)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[26]) { /* code */
|
|
0x14100500, // 0000 LT R4 R2 R256
|
|
0x74120002, // 0001 JMPT R4 #0005
|
|
0x54120006, // 0002 LDINT R4 7
|
|
0x24100404, // 0003 GT R4 R2 R4
|
|
0x78120000, // 0004 JMPF R4 #0006
|
|
0x80000800, // 0005 RET 0 R4
|
|
0x38120202, // 0006 SHL R4 R257 R2
|
|
0x780E0007, // 0007 JMPF R3 #0010
|
|
0x8C140102, // 0008 GETMET R5 R0 R258
|
|
0x5C1C0200, // 0009 MOVE R7 R1
|
|
0x8C200103, // 000A GETMET R8 R0 R259
|
|
0x5C280200, // 000B MOVE R10 R1
|
|
0x7C200400, // 000C CALL R8 2
|
|
0x30201004, // 000D OR R8 R8 R4
|
|
0x7C140600, // 000E CALL R5 3
|
|
0x70020008, // 000F JMP #0019
|
|
0x8C140102, // 0010 GETMET R5 R0 R258
|
|
0x5C1C0200, // 0011 MOVE R7 R1
|
|
0x8C200103, // 0012 GETMET R8 R0 R259
|
|
0x5C280200, // 0013 MOVE R10 R1
|
|
0x7C200400, // 0014 CALL R8 2
|
|
0x542600FE, // 0015 LDINT R9 255
|
|
0x04241204, // 0016 SUB R9 R9 R4
|
|
0x2C201009, // 0017 AND R8 R8 R9
|
|
0x7C140600, // 0018 CALL R5 3
|
|
0x80000000, // 0019 RET 0 R0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: read8
|
|
********************************************************************/
|
|
be_local_closure(read8, /* name */
|
|
be_nested_proto(
|
|
7, /* nstack */
|
|
2, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 4]) { /* constants */
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("read", -824204347, 4),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_const_int(1),
|
|
}),
|
|
(be_nested_const_str("read8", -1492179129, 5)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[ 7]) { /* code */
|
|
0x88080100, // 0000 GETMBR R2 R0 R256
|
|
0x8C080501, // 0001 GETMET R2 R2 R257
|
|
0x88100102, // 0002 GETMBR R4 R0 R258
|
|
0x5C140200, // 0003 MOVE R5 R1
|
|
0x58180003, // 0004 LDCONST R6 K3
|
|
0x7C080800, // 0005 CALL R2 4
|
|
0x80040400, // 0006 RET 1 R2
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: read12
|
|
********************************************************************/
|
|
be_local_closure(read12, /* name */
|
|
be_nested_proto(
|
|
7, /* nstack */
|
|
2, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 6]) { /* constants */
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("read_bytes", -718234123, 10),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_const_int(2),
|
|
be_const_int(0),
|
|
be_const_int(1),
|
|
}),
|
|
(be_nested_const_str("read12", -3890326, 6)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[12]) { /* code */
|
|
0x88080100, // 0000 GETMBR R2 R0 R256
|
|
0x8C080501, // 0001 GETMET R2 R2 R257
|
|
0x88100102, // 0002 GETMBR R4 R0 R258
|
|
0x5C140200, // 0003 MOVE R5 R1
|
|
0x58180003, // 0004 LDCONST R6 K3
|
|
0x7C080800, // 0005 CALL R2 4
|
|
0x940C0504, // 0006 GETIDX R3 R2 R260
|
|
0x54120003, // 0007 LDINT R4 4
|
|
0x380C0604, // 0008 SHL R3 R3 R4
|
|
0x94100505, // 0009 GETIDX R4 R2 R261
|
|
0x000C0604, // 000A ADD R3 R3 R4
|
|
0x80040600, // 000B RET 1 R3
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: read13
|
|
********************************************************************/
|
|
be_local_closure(read13, /* name */
|
|
be_nested_proto(
|
|
7, /* nstack */
|
|
2, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 6]) { /* constants */
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("read_bytes", -718234123, 10),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_const_int(2),
|
|
be_const_int(0),
|
|
be_const_int(1),
|
|
}),
|
|
(be_nested_const_str("read13", 12887293, 6)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[12]) { /* code */
|
|
0x88080100, // 0000 GETMBR R2 R0 R256
|
|
0x8C080501, // 0001 GETMET R2 R2 R257
|
|
0x88100102, // 0002 GETMBR R4 R0 R258
|
|
0x5C140200, // 0003 MOVE R5 R1
|
|
0x58180003, // 0004 LDCONST R6 K3
|
|
0x7C080800, // 0005 CALL R2 4
|
|
0x940C0504, // 0006 GETIDX R3 R2 R260
|
|
0x54120004, // 0007 LDINT R4 5
|
|
0x380C0604, // 0008 SHL R3 R3 R4
|
|
0x94100505, // 0009 GETIDX R4 R2 R261
|
|
0x000C0604, // 000A ADD R3 R3 R4
|
|
0x80040600, // 000B RET 1 R3
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: read24
|
|
********************************************************************/
|
|
be_local_closure(read24, /* name */
|
|
be_nested_proto(
|
|
7, /* nstack */
|
|
2, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 7]) { /* constants */
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("read_bytes", -718234123, 10),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_const_int(3),
|
|
be_const_int(0),
|
|
be_const_int(1),
|
|
be_const_int(2),
|
|
}),
|
|
(be_nested_const_str("read24", 1808533811, 6)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[16]) { /* code */
|
|
0x88080100, // 0000 GETMBR R2 R0 R256
|
|
0x8C080501, // 0001 GETMET R2 R2 R257
|
|
0x88100102, // 0002 GETMBR R4 R0 R258
|
|
0x5C140200, // 0003 MOVE R5 R1
|
|
0x58180003, // 0004 LDCONST R6 K3
|
|
0x7C080800, // 0005 CALL R2 4
|
|
0x940C0504, // 0006 GETIDX R3 R2 R260
|
|
0x5412000F, // 0007 LDINT R4 16
|
|
0x380C0604, // 0008 SHL R3 R3 R4
|
|
0x94100505, // 0009 GETIDX R4 R2 R261
|
|
0x54160007, // 000A LDINT R5 8
|
|
0x38100805, // 000B SHL R4 R4 R5
|
|
0x000C0604, // 000C ADD R3 R3 R4
|
|
0x94100506, // 000D GETIDX R4 R2 R262
|
|
0x000C0604, // 000E ADD R3 R3 R4
|
|
0x80040600, // 000F RET 1 R3
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
/********************************************************************
|
|
** Solidified function: read32
|
|
********************************************************************/
|
|
be_local_closure(read32, /* name */
|
|
be_nested_proto(
|
|
7, /* nstack */
|
|
2, /* argc */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 7]) { /* constants */
|
|
be_nested_string("wire", -212213352, 4),
|
|
be_nested_string("read_bytes", -718234123, 10),
|
|
be_nested_string("addr", 1087856498, 4),
|
|
be_const_int(0),
|
|
be_const_int(1),
|
|
be_const_int(2),
|
|
be_const_int(3),
|
|
}),
|
|
(be_nested_const_str("read32", 1741276240, 6)),
|
|
(be_nested_const_str("input", -103256197, 5)),
|
|
( &(const binstruction[20]) { /* code */
|
|
0x88080100, // 0000 GETMBR R2 R0 R256
|
|
0x8C080501, // 0001 GETMET R2 R2 R257
|
|
0x88100102, // 0002 GETMBR R4 R0 R258
|
|
0x5C140200, // 0003 MOVE R5 R1
|
|
0x541A0003, // 0004 LDINT R6 4
|
|
0x7C080800, // 0005 CALL R2 4
|
|
0x940C0503, // 0006 GETIDX R3 R2 R259
|
|
0x54120017, // 0007 LDINT R4 24
|
|
0x380C0604, // 0008 SHL R3 R3 R4
|
|
0x94100504, // 0009 GETIDX R4 R2 R260
|
|
0x5416000F, // 000A LDINT R5 16
|
|
0x38100805, // 000B SHL R4 R4 R5
|
|
0x000C0604, // 000C ADD R3 R3 R4
|
|
0x94100505, // 000D GETIDX R4 R2 R261
|
|
0x54160007, // 000E LDINT R5 8
|
|
0x38100805, // 000F SHL R4 R4 R5
|
|
0x000C0604, // 0010 ADD R3 R3 R4
|
|
0x94100506, // 0011 GETIDX R4 R2 R262
|
|
0x000C0604, // 0012 ADD R3 R3 R4
|
|
0x80040600, // 0013 RET 1 R3
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
#if BE_USE_PRECOMPILED_OBJECT
|
|
#include "../generate/be_fixed_be_class_tasmota_i2c_driver.h"
|
|
#endif
|
|
|
|
void be_load_driver_i2c_lib(bvm *vm) {
|
|
#if !BE_USE_PRECOMPILED_OBJECT
|
|
static const bnfuncinfo members[] = {
|
|
{ "wire", NULL },
|
|
{ "addr", NULL },
|
|
{ "name", NULL },
|
|
|
|
{ NULL, (bntvfunc) BE_CLOSURE }, /* mark section for berry closures */
|
|
{ "init", (bntvfunc) &init_closure },
|
|
{ "write8", (bntvfunc) &write8_closure },
|
|
{ "write_bit", (bntvfunc) &write_bit_closure },
|
|
{ "read8", (bntvfunc) &read8_closure },
|
|
{ "read12", (bntvfunc) &read12_closure },
|
|
{ "read13", (bntvfunc) &read13_closure },
|
|
{ "read24", (bntvfunc) &read24_closure },
|
|
{ "read32", (bntvfunc) &read32_closure },
|
|
|
|
{ NULL, NULL }
|
|
};
|
|
|
|
be_regclass(vm, "I2C_Driver", members);
|
|
be_getglobal(vm, "I2C_Driver");
|
|
be_getglobal(vm, "Driver");
|
|
be_setsuper(vm, -2);
|
|
be_pop(vm, 2);
|
|
#else
|
|
be_pushntvclass(vm, &be_class_tasmota_i2c_driver);
|
|
be_setglobal(vm, "I2C_Driver");
|
|
be_pop(vm, 1);
|
|
#endif
|
|
}
|
|
/* @const_object_info_begin
|
|
|
|
class be_class_tasmota_i2c_driver (scope: global, name: I2C_Driver, super: be_class_Driver) {
|
|
wire, var
|
|
addr, var
|
|
name, var
|
|
|
|
init, closure(init_closure)
|
|
write8, closure(write8_closure)
|
|
write_bit, closure(write_bit_closure)
|
|
read8, closure(read8_closure)
|
|
read12, closure(read12_closure)
|
|
read13, closure(read13_closure)
|
|
read24, closure(read24_closure)
|
|
read32, closure(read32_closure)
|
|
}
|
|
@const_object_info_end */
|