New Micros NMIY-0031, Manual

Page: 44 / 188

2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2 4 4
N M I Y - 0 0 3 1 P R O G R A M S E G M E N T S
_kpad_put(ch) /* write to keypad latch */
char ch;
{
int *adr;
adr = 0x0FFFC;
_lcdbusy(); /* wait */
pokeb(adr, ch); /* send character */
return(ch);
}
_kpad_get(ch) /* read keypad latch */
char ch;
{
int *adr;
adr = 0xFFFC;
ch = (peekb(adr) ^ 0x00FF);
return(ch);
}
_lcdbusy () /* wait for LCD not busy */
{
int *adr;
adr = 0x0FFF8;
while (peekb(adr) & 0x0080);
}
_lcdput(ch) /* write display data to LCD */
char ch;
{
int *adr;
adr = 0x0FFF9;
_lcdbusy(); /* wait */
pokeb(adr, ch); /* send character */
}
_lcdcr() /* set LCD cursor to other line */
{
char z;
int i,
*adr;
_lcdbusy();
/* compute other line address */
adr = 0xFFF8;
z = peekb(adr) & 0x0040 ^ 0x00C0;
pokeb(adr, z); /* set cursor at BOL */
for (i=0; i++; i<40) /* clear to LCD EOL */
{
_lcdput(' '); /* clear next position */
_lcdbusy(); /* wait */
}
pokeb(adr, z); /* reposition cursor */
}