C asamblėjos pertvarkos

[ibrar]

hi all

Ar jūsų kūno paversti šiuos kodus ir surinkimo.Šie kodai yra už jhd12864 GLCD.

Ačiū

# include <reg51.h>
# include <intrins.h>
typedef unsigned char uchar;
typedef unsigned int uint;
sbit L_DI = P2 ^ 0;
sbit L_RW = P2 ^ 1;
sbit L_E = P2 ^ 4;
sbit L_CS1 = P2 ^ 6;
sbit L_CS2 = P2 ^ 7;
sbit L_SET = P2 ^ 3;
sbit bandymas = P3 ^ 5;
float ABC;
uchar kodas X1 [] = (
0x30, 0x50, 0xd0, 0x90, 0xf0, 0x30, 0x80, 0x60, 0x3c, 0xe8, 0x20, 0xa0, 0xE0, 0x70, 0x00, 0x00,
0x04, 0x06, 0x03, 0x11, 0x13, 0x12, 0x18, 0x0c, 0x07, 0x01, 0x03, 0x06, 0x0c, 0x1c, 0x18, 0x18
); /*?*/
uchar kodas X2 [] = (
0x40, 0x58, 0x58, 0xd0, 0x10, 0xf8, 0x98, 0x08, 0x88, 0xf8, 0xf0, 0x10, 0xf8, 0x70, 0x00, 0x00,
0x0c, 0x04, 0x04, 0x07, 0x04, 0x05, 0x0d, 0x0d, 0x08, 0x1f, 0x1B, 0x19, 0x38, 0x38, 0x18, 0x18
); /*?*/
uchar kodas X3 [] = (
0x30, 0x30, 0xf8, 0xf8, 0x08, 0x10, 0xd0, 0x50, 0x50, 0xfc, 0xfc, 0x50, 0xd0, 0xf0, 0x10, 0x00,
0x00, 0x00, 0x1f, 0x1f, 0x10, 0x10, 0x13, 0x1B, 0x0f, 0x07, 0x05, 0x0d, 0x09, 0x19, 0x38, 0x18

); /*?*/
uchar kodas X4 [] = (
0x00, 0x00, 0x00, 0x00, 0xfc, 0xf8, 0x48, 0x48, 0x48, 0xf8, 0xf8, 0x48, 0x48, 0x48, 0xfc, 0xf8,
0x10, 0x10, 0x18, 0x1E, 0x0f, 0x01, 0x01, 0x01, 0x01, 0x3f, 0x1f, 0x01, 0x01, 0x01, 0x3f, 0x3f
); /*?*/
uchar kodas X5 [] = (
0x18, 0xfc, 0x08, 0x48, 0x48, 0xb8, 0xd8, 0x58, 0xe8, 0xb8, 0xb8, 0x08, 0x08, 0xf8, 0xf8, 0x00,
0x00, 0x1f, 0x11, 0x11, 0x11, 0x14, 0x15, 0x16, 0x16, 0x10, 0x11, 0x11, 0x11, 0x3f, 0x1f, 0x00
); /*?*/
uchar kodas X6 [] = (
0xc0, 0xc8, 0xc8, 0xf8, 0xf8, 0xc8, 0xf8, 0xf8, 0xc8, 0xc8, 0x00, 0x10, 0x90, 0xd8, 0x48, 0x48,
0x18, 0x18, 0x0c, 0x0f, 0x03, 0x00, 0x1f, 0x1f, 0x10, 0x10, 0x11, 0x19, 0x18, 0x0c, 0x04, 0x06
); /*?*/
uchar kodas X7 [] = (
0x00, 0x00, 0x00, 0xE0, 0xE0, 0x40, 0x40, 0x7c, 0x7c, 0x58, 0x58, 0x58, 0xd0, 0xd0, 0x00, 0x00,
0x10, 0x18, 0x08, 0x0d, 0x03, 0x19, 0x0d, 0x01, 0x01, 0x0d, 0x19, 0x01, 0x07, 0x0c, 0x18, 0x38
); /*?*/
uchar kodas X8 [] = (
0x08, 0xf8, 0xf8, 0x48, 0xe8, 0x98, 0x90, 0xd8, 0xf0, 0xbc, 0xfc, 0xd0, 0x90, 0x90, 0x90, 0x10,
0x00, 0x3f, 0x1f, 0x02, 0x03, 0x05, 0x06, 0x07, 0x07, 0x06, 0x3f, 0x3f, 0x06, 0x06, 0x04, 0x04
); /*?*/
uchar kodas X9 [] = (
0x10, 0x08, 0x1c, 0xFE, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x08, 0x04, 0x04, 0x98, 0xf0, 0x00,
0x80, 0x80, 0xFF, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0xa0, 0xE0, 0x90, 0x8a, 0x83, 0xc1, 0x00
); / * 12 * /
uchar kodas X10 [] = (
0x00, 0x78, 0xc8, 0x84, 0x04, 0x84, 0xf8, 0x00, 0x00, 0x80, 0x80, 0x00, 0x00, 0x00, 0x80, 0x80,
0x00, 0x78, 0x84, 0x83, 0x83, 0x8e, 0xfc, 0x40, 0x00, 0x80, 0x63, 0x17, 0x1c, 0xf2, 0xc1, 0x80
); / * 8x * /
uchar kodas x11 [] = (
0x00, 0x80, 0xE0, 0x10, 0x08, 0x04, 0x04, 0x00, 0x00, 0x00, 0x80, 0x60, 0x10, 0xf8, 0x00, 0x00,
0x00, 0x7f, 0xc2, 0x81, 0x81, 0x81, 0x7f, 0x18, 0x00, 0x0e, 0x09, 0x08, 0x08, 0xFF, 0x08, 0x08
); / * 64 * /
uchar kodas X12 [] = (
0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa,
0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa
); /*....*/
uchar kodas x13 [] = (
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF
); /*??*/
uchar kodas X14 [] = (
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
); /*??*/
uchar kodas X15 [] = (

0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
); /*??*/
uchar kodas x16 [] = (
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80
); /*??*/
uchar kodas x17 [] = (
0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
); /*??*/
uchar kodas x18 [] = (
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF
); /*??*/
uchar kodas X19 [] = (
0xFF, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
); /*??*/
uchar kodas x20 [] = (
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0xFF,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF
); /*??*/
uchar kodas x21 [] = (
0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0xFF, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80
); /*??*/
uchar kodas x22 [] = (
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF,
0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0xFF
); /*??*/
uchar kodas x23 [] = (
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
); /*??*/
# pragma REGISTERBANK (0)
tuščia initcomm (tuščia)
(
PCON = 0x80; TMOD = 0X21; SCON = 0x50;
TH1 = 0XFa; TL1 = 0XFa; TR1 = 1; ES = 1;
TH0 = 0; TL0 = 0; TR0 = 1; ET0 = 1;
EA = 0;
)
tuščia vėlavimą (tuščia)
(
uchar I, J;

abc = 0,1 * 5;
for (i = 0; Aš! = 0xFF i )
for (j = 0; J! = 0xFF; j );
)
tuščia LCD_C_D (BIT vėliava, uchar ldata) / * vėliava = 1 con vėliava = 0 duomenys * /
(
uchar duomenis i;
L_DI =! Vėliava; L_E = 0; L_RW = 0; P0 = ldata;
_nop_ ();
L_E = 1;
_nop_ (); _nop_ ();
L_E = 0; L_RW = 1; L_DI = 1;
for (i = 0; i <10; i );
)

tuščia dis_one_zi (uchar x_add, uchar y_add, uchar kodas * PO)
(
uchar I, J, W;
j = x_add * 2 0 XB8;
W = (y_add <4? y_add: y_add-4) * 16 0 x40;
L_CS1 = (y_add <4);
L_CS2 =! (Y_add <4);
LCD_C_D (1, j);
LCD_C_D (1, w);
for (i = 0; i <32; i )
(
if (i == 16)
(
LCD_C_D (1, j 1);
LCD_C_D (1, w);
)
LCD_C_D (0, * PO );
)
L_CS1 = L_CS2 = 0;
)
tuščia CLRLCD (uchar numeris)
(
uchar duomenis i, j;
L_CS1 = L_CS2 = 1;
for (i = 0xb8; i <0xc0 i )
(
LCD_C_D (1, i);
LCD_C_D (1,0 x40);
for (j = 0; j <0x40; j )
LCD_C_D (0, numeris);
)
L_CS1 = L_CS2 = 0;
)
void main (void) naudoja 0
(
uchar duomenys I, J, skaičių;
uchar kodas * p;
initcomm ();
L_SET = 0;
for (j = 0; J! = 0xFF; j );
L_SET = 1;
for (j = 0; J! = 0xFF; j );
LCD_C_D (1,0 X3E );/**/
LCD_C_D (1,0 XC0 );/**/
LCD_C_D (1,0 X3F );/**/
CLRLCD (0);
while (1)
(
CLRLCD (0);
LCD_C_D (1,0 X3E);
p = X15 ;/*????*/
for (number = 1; skaičius <7; numeris )
(Dis_one_zi (0, skaičius, p)
p = X16;
for (number = 1; skaičius <7; numeris )
(Dis_one_zi (3 numeris, p)
p = x17;
for (number = 1; skaičius <3; numeris )
(Dis_one_zi (numeris, 0, p)
p = x18;
for (number = 1; skaičius <3; numeris )
(Dis_one_zi (numeris, 7, p)
/*???*/
p = X19; dis_one_zi (0,0, p);
p = x20; dis_one_zi (0,7, p);
p = x21; dis_one_zi (3,0, p);
p = x22; dis_one_zi (3,7, p);
/*????*/
p = X1; dis_one_zi (1,1, p);
p = X2; dis_one_zi (1,2, p);
p = X3; dis_one_zi (1,3, p);
p = X4; dis_one_zi (1,4, p);
/*????*/
p = X5; dis_one_zi (2,5, p);
p = X6; dis_one_zi (2,6, p);
p = X7; dis_one_zi (1,5, p);

p = X8; dis_one_zi (1,6, p);
/ * 128x64 * /
p = X9; dis_one_zi (2,1, p);
p = X10; dis_one_zi (2,2, p);
p = X11; dis_one_zi (2,3, p);
p = x23; dis_one_zi (2,4, p);
LCD_C_D (1,0 X3F);
delsimas (); vėlavimas ();
CLRLCD (0);
LCD_C_D (1,0 X3E);
p = X12;
for (numeris = 0; skaičių <4; numeris )
(
for (i = 0; i <8; i )
(Dis_one_zi (numeris, i, p)
)
LCD_C_D (1,0 X3F);
delsimas (); vėlavimas ();
CLRLCD (0);
LCD_C_D (1,0 X3E);
p = x13;
for (numeris = 0; skaičių <4; numeris )
(
for (i = 0; i <8; i )
(Dis_one_zi (numeris, i, p)
)
LCD_C_D (1,0 X3F);
delsimas (); vėlavimas ();
CLRLCD (0);
)
)

 

[wek]

> Ar kai kūno paversti šiuos kodus ir surinkimo.

Žinoma.C-compiler galėtų.
Apperently, tai yra skirta 8.051 ir Keil konkrečių fragmentą.Jūs galite naudoti kitus '51 kompiliatorius pvz sdcc, bet jums reikia padaryti keletą pakeitimų (pvz., kaiščių uosto apibrėžimai yra šiek tiek kitoks - Skaityti vadovą).

JW