
B–61863E–1/06
D. EXAMPLES OF PROGRAMSAPPENDIX
497
/*==============================================================*/
/* mail man task–1*/
/*==============================================================*/
#include <pmclib.h>
long tim ;
unsigned long lo;
unsigned long hi ;
void far test_tsk1()
{
char *adr,*adrlo,*adrhi ;
short i,pos[2],col[2] ;
col[0]=0xe0 ; col[1]=0 ;
os_make_mbx(10,5) ;
pl_pcmdi_wait() ;
pl_dspcolor(col);
for( i=0,pos[1] =0;i!=5;i++,pos[1]++ ){
os_read_mbx(10,(long)1000,(unsignedlong *)&adr) ;
pos[0] = 0 ;
pl_dsppos(pos) ;
pl_dspstr(0x18,adr,100) ;
os_red2_mbx(10,(long)1000,(unsignedlong *)&adrlo,
(unsigned long *)&adrhi) ;
pos[0] = 10 ;
pl_dsppos(pos) ;
pl_dspstr(0x18,adrlo,100) ;
pos[0] = 23 ;
pl_dsppos(pos) ;
pl_dspstr(0x18,adrhi,100) ;
}
}
/*==============================================================*/
/* mail man task–2*/
/*==============================================================*/
#include <pmclib.h>
char const * const dsp[]={ ”MBX -1-”,”MBX -2-”,”MBX -3-”,”MBX -4-”,
”MBX -5-”};
char const * const dsplo[]={”MBX LO -1-”,”MBX LO -2-”,”MBX LO -3-”,
”MBX LO -4-”,”MBX LO -5-”};
char const * const dsphi[]={”MBX HI -1-”,”MBX HI -2-”,”MBX HI -3-”,
”MBX HI -4-”,”MBX HI -5-”};
short dummy_data ;
void far test_tsk2()
{
short i ;
pl_pcmdi_wait() ;
for( i = 0 ; i != 5 ; i++ ){
os_writ_mbx(10,(long)0,(unsigned long)dsp[i]) ;
os_wrt2_mbx(10,(long)0,(unsigned long)dsplo[i],
(unsigned long)dsphi[i]) ;
}
}