Skip to content

P
proview
Commit 5c82d04c authored by claes's avatar claes
Browse files
Options

Remote rack io

parent ac27b101
Hide whitespace changes
Inline Side-by-side
Showing with 72 additions and 79 deletions
ssabox/lib/rt/src/os_linux/rt_io_m_di_dix2.c
View file @ 5c82d04c
/* /*
* Proview $Id: rt_io_m_di_dix2.c,v 1.2 2006-04-12 10:14:49 claes Exp $ * Proview $Id: rt_io_m_di_dix2.c,v 1.3 2006-04-12 12:14:38 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB. * Copyright (C) 2005 SSAB Oxelsund AB.
* *
* This program is free software; you can redistribute it and/or * This program is free software; you can redistribute it and/or
...@@ -51,6 +51,7 @@ ...@@ -51,6 +51,7 @@
typedef struct { typedef struct {
unsigned int Address[2]; unsigned int Address[2];
int Qbus_fp; int Qbus_fp;
unsigned int bfb_item;
struct { struct {
pwr_sClass_Di *sop[16]; pwr_sClass_Di *sop[16];
void *Data[16]; void *Data[16];
...@@ -80,12 +81,16 @@ static pwr_tStatus IoCardInit ( ...@@ -80,12 +81,16 @@ static pwr_tStatus IoCardInit (
local->Address[1] = op->RegAddress + 2; local->Address[1] = op->RegAddress + 2;
local->Qbus_fp = r_local->Qbus_fp; local->Qbus_fp = r_local->Qbus_fp;
/* Set card address in racks local */ /* Get item offset from rack's local and increment it */
r_local->in.item[cp->offset].address = (pwr_tUInt16) (op->RegAddress & 0xFFFF); local->bfb_item = r_local->in_items;
r_local->in.item[cp->offset+1].address = (pwr_tUInt16) ((op->RegAddress+2) & 0xFFFF); r_local->in_items += 2;
r_local->in.item[cp->offset].data = 0;
r_local->in.item[cp->offset+1].data = 0; /* Set card address in racks local in- and out-area */
r_local->in.item[local->bfb_item].address = (pwr_tUInt16) (op->RegAddress & 0xFFFF);
r_local->in.item[local->bfb_item+1].address = (pwr_tUInt16) ((op->RegAddress+2) & 0xFFFF);
r_local->in.item[local->bfb_item].data = 0;
r_local->in.item[local->bfb_item+1].data = 0;
/* Init filter */ /* Init filter */
for ( i = 0; i < 2; i++) for ( i = 0; i < 2; i++)
{ {
...@@ -176,7 +181,7 @@ static pwr_tStatus IoCardRead ( ...@@ -176,7 +181,7 @@ static pwr_tStatus IoCardRead (
} }
else { else {
/* Read from remote Q-bus, I/O-area stored in rack's local */ /* Read from remote Q-bus, I/O-area stored in rack's local */
data = r_local->in.item[cp->offset+i].data; data = r_local->in.item[local->bfb_item+i].data;
sts = 1; sts = 1;
} }
......
ssabox/lib/rt/src/os_linux/rt_io_m_do_hvdo32.c
View file @ 5c82d04c
/* /*
* Proview $Id: rt_io_m_do_hvdo32.c,v 1.2 2006-04-12 10:14:49 claes Exp $ * Proview $Id: rt_io_m_do_hvdo32.c,v 1.3 2006-04-12 12:14:38 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB. * Copyright (C) 2005 SSAB Oxelsund AB.
* *
* This program is free software; you can redistribute it and/or * This program is free software; you can redistribute it and/or
...@@ -51,6 +51,7 @@ ...@@ -51,6 +51,7 @@
typedef struct { typedef struct {
unsigned int Address[2]; unsigned int Address[2];
int Qbus_fp; int Qbus_fp;
unsigned int bfb_item;
struct { struct {
pwr_sClass_Po *sop[16]; pwr_sClass_Po *sop[16];
void *Data[16]; void *Data[16];
...@@ -68,6 +69,7 @@ static pwr_tStatus IoCardInit ( ...@@ -68,6 +69,7 @@ static pwr_tStatus IoCardInit (
pwr_sClass_Do_HVDO32 *op; pwr_sClass_Do_HVDO32 *op;
io_sLocal *local; io_sLocal *local;
int i, j; int i, j;
io_sRackLocal *r_local = (io_sRackLocal *)(rp->Local);
op = (pwr_sClass_Do_HVDO32 *) cp->op; op = (pwr_sClass_Do_HVDO32 *) cp->op;
local = calloc( 1, sizeof(*local)); local = calloc( 1, sizeof(*local));
...@@ -77,8 +79,18 @@ static pwr_tStatus IoCardInit ( ...@@ -77,8 +79,18 @@ static pwr_tStatus IoCardInit (
local->Address[0] = op->RegAddress; local->Address[0] = op->RegAddress;
local->Address[1] = op->RegAddress + 2; local->Address[1] = op->RegAddress + 2;
local->Qbus_fp = ((io_sRackLocal *)(rp->Local))->Qbus_fp; local->Qbus_fp = r_local->Qbus_fp;
/* Get item offset from rack's local and increment it */
local->bfb_item = r_local->out_items;
r_local->out_items += 2;
/* Set card address in racks local out-area and initialize data */
r_local->out.item[local->bfb_item].address = (pwr_tUInt16) (op->RegAddress & 0xFFFF);
r_local->out.item[local->bfb_item+1].address = (pwr_tUInt16) ((op->RegAddress+2) & 0xFFFF);
r_local->out.item[local->bfb_item].data = 0;
r_local->out.item[local->bfb_item+1].data = 0;
/* Init filter for Po signals */ /* Init filter for Po signals */
for ( i = 0; i < 2; i++) for ( i = 0; i < 2; i++)
{ {
...@@ -134,7 +146,8 @@ static pwr_tStatus IoCardWrite ( ...@@ -134,7 +146,8 @@ static pwr_tStatus IoCardWrite (
io_sCard *cp io_sCard *cp
) )
{ {
io_sLocal *local; io_sLocal *local = (io_sLocal *) cp->Local;
io_sRackLocal *r_local = (io_sRackLocal *)(rp->Local);
pwr_tUInt16 data = 0; pwr_tUInt16 data = 0;
pwr_sClass_Do_HVDO32 *op; pwr_sClass_Do_HVDO32 *op;
pwr_tUInt16 invmask; pwr_tUInt16 invmask;
...@@ -144,7 +157,6 @@ static pwr_tStatus IoCardWrite ( ...@@ -144,7 +157,6 @@ static pwr_tStatus IoCardWrite (
qbus_io_write wb; qbus_io_write wb;
int sts; int sts;
local = (io_sLocal *) cp->Local;
op = (pwr_sClass_Do_HVDO32 *) cp->op; op = (pwr_sClass_Do_HVDO32 *) cp->op;
#if defined(OS_ELN) #if defined(OS_ELN)
...@@ -193,10 +205,19 @@ static pwr_tStatus IoCardWrite ( ...@@ -193,10 +205,19 @@ static pwr_tStatus IoCardWrite (
data = (data & ~ testmask) | (testmask & testvalue); data = (data & ~ testmask) | (testmask & testvalue);
} }
wb.Data = data; if (r_local->Qbus_fp != 0 && r_local->s == 0) {
wb.Address = local->Address[i]; /* Write to local Q-bus */
sts = write( local->Qbus_fp, &wb, sizeof(wb)); wb.Data = data;
if ( sts == -1) wb.Address = local->Address[i];
sts = write( local->Qbus_fp, &wb, sizeof(wb));
}
else {
/* Write to remote Q-bus, I/O-area stored in rack's local */
r_local->out.item[local->bfb_item+i].data = data;
sts = 1;
}
if ( sts <= 0)
{ {
#if 0 #if 0
/* Exceptionhandler was called */ /* Exceptionhandler was called */
......
ssabox/lib/rt/src/os_linux/rt_io_m_ssab_locals.h
View file @ 5c82d04c
#define BFB_SERVICE_READ 1
#define BFB_SERVICE_WRITE 2
struct bfb_item { struct bfb_item {
pwr_tUInt16 address; pwr_tUInt16 address;
pwr_tUInt16 data; pwr_tUInt16 data;
...@@ -6,7 +9,7 @@ struct bfb_item { ...@@ -6,7 +9,7 @@ struct bfb_item {
struct bfb_buf { struct bfb_buf {
pwr_tUInt16 service; pwr_tUInt16 service;
pwr_tUInt16 length; pwr_tUInt16 length;
struct bfb_item item[64]; struct bfb_item item[256];
}; };
typedef struct { typedef struct {
......
ssabox/lib/rt/src/os_linux/rt_io_m_ssab_remoterack.c
View file @ 5c82d04c
/* /*
* Proview $Id: rt_io_m_ssab_remoterack.c,v 1.2 2006-04-12 10:14:49 claes Exp $ * Proview $Id: rt_io_m_ssab_remoterack.c,v 1.3 2006-04-12 12:14:38 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB. * Copyright (C) 2005 SSAB Oxelsund AB.
* *
* This program is free software; you can redistribute it and/or * This program is free software; you can redistribute it and/or
...@@ -49,16 +49,9 @@ static pwr_tStatus IoRackInit ( ...@@ -49,16 +49,9 @@ static pwr_tStatus IoRackInit (
) )
{ {
io_sRackLocal *local; io_sRackLocal *local;
io_sCard *cardp;
pwr_tCid cid;
pwr_sClass_Ssab_RemoteRack *op; pwr_sClass_Ssab_RemoteRack *op;
int sts, in_offset, out_offset; int sts;
pwr_sClass_Di_DIX2 *dicp;
pwr_sClass_Do_HVDO32 *docp;
pwr_sClass_Ai_AI32uP *aicp;
pwr_sClass_Co_PI24BO *cocp;
op = (pwr_sClass_Ssab_RemoteRack *) rp->op; op = (pwr_sClass_Ssab_RemoteRack *) rp->op;
local = calloc( 1, sizeof(*local)); local = calloc( 1, sizeof(*local));
rp->Local = local; rp->Local = local;
...@@ -98,49 +91,9 @@ static pwr_tStatus IoRackInit ( ...@@ -98,49 +91,9 @@ static pwr_tStatus IoRackInit (
return IO__ERRINIDEVICE; return IO__ERRINIDEVICE;
} }
/* Loop all cards */
cardp = rp->cardlist;
in_offset = 0;
out_offset = 0;
local->in_items = 0; local->in_items = 0;
local->out_items = 0; local->out_items = 0;
while (cardp) {
cid = cardp->Class;
switch (cid) {
case pwr_cClass_Di_DIX2:
dicp = (pwr_sClass_Di_DIX2 *) cardp->op;
cardp->offset = in_offset;
in_offset += 2;
printf("Di card found, address: %d\n", dicp->RegAddress);
break;
case pwr_cClass_Do_HVDO32:
docp = (pwr_sClass_Do_HVDO32 *) cardp->op;
printf("Do card found, address: %d\n", docp->RegAddress);
cardp->offset = out_offset;
out_offset += 2;
break;
case pwr_cClass_Ai_AI32uP:
aicp = (pwr_sClass_Ai_AI32uP *) cardp->op;
printf("Ai card found, address: %d\n", aicp->RegAddress);
break;
case pwr_cClass_Co_PI24BO:
cocp = (pwr_sClass_Co_PI24BO *) cardp->op;
printf("Co card found, address: %d\n", cocp->RegAddress);
break;
}
cardp = cardp->next;
}
local->in_items = in_offset;
local->out_items = out_offset;
local->in.service = 1;
local->in.length = local->in_items*4 + 4;
op->RX_packets = 0; op->RX_packets = 0;
op->TX_packets = 0; op->TX_packets = 0;
...@@ -202,19 +155,15 @@ static pwr_tStatus IoRackWrite ( ...@@ -202,19 +155,15 @@ static pwr_tStatus IoRackWrite (
pwr_sClass_Ssab_RemoteRack *op = (pwr_sClass_Ssab_RemoteRack *) rp->op; pwr_sClass_Ssab_RemoteRack *op = (pwr_sClass_Ssab_RemoteRack *) rp->op;
// Send write request // Send write request
local->out.service = 2; local->out.service = BFB_SERVICE_WRITE;
local->out.length = 8; local->out.length = local->out_items*4 + 4;
local->out.item[0].address = 64512;
local->out.item[0].data = 0xffff;
sts = send(local->s, &local->out, local->out.length, 0); sts = send(local->s, &local->out, local->out.length, 0);
op->TX_packets++; op->TX_packets++;
// Send read request // Send read request
local->in.service = BFB_SERVICE_READ;
local->in.length = local->in_items*4 + 4;
sts = send(local->s, &local->in, local->in.length, 0); sts = send(local->s, &local->in, local->in.length, 0);
op->TX_packets++; op->TX_packets++;
return IO__SUCCESS; return IO__SUCCESS;
......
ssabox/wbl/mcomp/src/ssabox.wb_load
View file @ 5c82d04c
...@@ -7635,15 +7635,15 @@ Volume SsabOx $ClassVolume 0.0.250.5 ...@@ -7635,15 +7635,15 @@ Volume SsabOx $ClassVolume 0.0.250.5
EndObject EndObject
EndObject EndObject
Object Ssab_RemoteRack $ClassDef 29 10-FEB-2006 15:50:27.32 Object Ssab_RemoteRack $ClassDef 29 10-FEB-2006 15:50:27.32
Body SysBody 10-FEB-2006 15:49:38.85 Body SysBody 06-APR-2006 08:38:48.21
Attr Editor = 0 Attr Editor = 0
Attr Method = 1 Attr Method = 1
Attr Flags = 2128 Attr Flags = 10320
EndBody EndBody
Object RtBody $ObjBodyDef 1 10-FEB-2006 15:49:38.87 Object RtBody $ObjBodyDef 1 10-FEB-2006 15:49:38.87
Body SysBody 10-FEB-2006 15:49:38.87 Body SysBody 07-APR-2006 09:09:48.65
Attr StructName = "RemoteRack_SSAB" Attr StructName = "Ssab_RemoteRack"
Attr NextAix = "_X7" Attr NextAix = "_X10"
EndBody EndBody
Object Description $Attribute 1 10-FEB-2006 15:49:38.87 Object Description $Attribute 1 10-FEB-2006 15:49:38.87
Body SysBody 10-FEB-2006 15:49:38.87 Body SysBody 10-FEB-2006 15:49:38.87
...@@ -7675,6 +7675,21 @@ Volume SsabOx $ClassVolume 0.0.250.5 ...@@ -7675,6 +7675,21 @@ Volume SsabOx $ClassVolume 0.0.250.5
Attr TypeRef = "pwrs:Type-$Objid" Attr TypeRef = "pwrs:Type-$Objid"
EndBody EndBody
EndObject EndObject
Object Status $Attribute 7 10-APR-2006 08:44:55.48
Body SysBody 10-APR-2006 08:45:13.67
Attr TypeRef = "pwrs:Type-$Status"
EndBody
EndObject
Object RX_packets $Attribute 8 10-APR-2006 08:46:05.99
Body SysBody 10-APR-2006 08:46:46.68
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object TX_packets $Attribute 9 10-APR-2006 08:47:07.78
Body SysBody 10-APR-2006 08:47:00.72
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
EndObject EndObject
Object IoMethods $RtMethod 153 10-FEB-2006 16:02:06.68 Object IoMethods $RtMethod 153 10-FEB-2006 16:02:06.68
Object IoRackInit $Method 154 10-FEB-2006 16:02:06.68 Object IoRackInit $Method 154 10-FEB-2006 16:02:06.68
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7