mirror of https://github.com/rusefi/bldc.git
24 lines
554 B
Common Lisp
24 lines
554 B
Common Lisp
(define arr (array-create type-byte 10))
|
|
|
|
(bufset-u8 arr 0 70)
|
|
(bufset-u8 arr 1 69)
|
|
(bufset-u8 arr 2 68)
|
|
(bufset-u8 arr 3 67)
|
|
(bufset-u8 arr 4 66)
|
|
(bufset-u8 arr 5 65)
|
|
(bufset-u8 arr 6 64)
|
|
(bufset-u8 arr 7 63)
|
|
(bufset-u8 arr 8 62)
|
|
(bufset-u8 arr 9 61)
|
|
|
|
(and (= (bufget-u8 arr 0) 70)
|
|
(= (bufget-u8 arr 1) 69)
|
|
(= (bufget-u8 arr 2) 68)
|
|
(= (bufget-u8 arr 3) 67)
|
|
(= (bufget-u8 arr 4) 66)
|
|
(= (bufget-u8 arr 5) 65)
|
|
(= (bufget-u8 arr 6) 64)
|
|
(= (bufget-u8 arr 7) 63)
|
|
(= (bufget-u8 arr 8) 62)
|
|
(= (bufget-u8 arr 9) 61))
|