Commit 16450fb0 authored by claes's avatar claes

IO flags i ClassDef flags

parent ca25b288
......@@ -143,25 +143,45 @@ SObject pwrs:Type
EndBody
EndObject
!/**
! Object has callbacks.
! Object is IO agent.
!*/
Object HasCallBack $Bit
Object IOAgent $Bit
Body SysBody
Attr PgmName = "HasCallBack"
Attr Text = "HasCallBack"
Attr PgmName = "IOAgent"
Attr Text = "IOAgent"
Attr Value = 4096
EndBody
EndObject
!/**
! Object has casted attributes.
! Object is IO rack.
!*/
Object CastAttr $Bit
Object IORack $Bit
Body SysBody
Attr PgmName = "CastAttr"
Attr Text = "CastAttr"
Attr PgmName = "IORack"
Attr Text = "IORack"
Attr Value = 8192
EndBody
EndObject
!/**
! Object is IO card.
!*/
Object IOCard $Bit
Body SysBody
Attr PgmName = "IOCard"
Attr Text = "IOCard"
Attr Value = 16384
EndBody
EndObject
!/**
! Object has callbacks.
!*/
Object HasCallBack $Bit
Body SysBody
Attr PgmName = "HasCallBack"
Attr Text = "HasCallBack"
Attr Value = 32768
EndBody
EndObject
EndObject
EndSObject
......
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