GDSX Manual

DCCBDECS and ULHDECSE Listings
Extended General Device Support (GDSX) Manual–134303
C-10
DCCBDECS Listing
Int(32) .EXT Dcbtbl, !GDSX Subdev table for EXT usage
.EXT DcbtblX = Dcbtbl;
Int Trace^Control^Flags [0:1]; !Trace control flags
Define
Tscode^Trace = Trace^Control^Flags[0] #, ! TSCODE TRACE
Ext^Req^Trace = Trace^Control^Flags[0].<0> #, ! GDSX REQ
Ext^Data^Trace = Trace^Control^Flags[0].<1> #, ! GDSX DATA
Int^Req^Trace = Trace^Control^Flags[0].<2> #, ! INTR REQ
Int^Data^Trace = Trace^Control^Flags[0].<3> #, ! INTR DATA, TMF
Int^Disp^Trace = Trace^Control^Flags[0].<4> #, ! DISP
Resrce^Cb^Trace = Trace^Control^Flags[0].<5> #, ! CB
Resrce^Pool^Trace = Trace^Control^Flags[0].<6> #, ! POOL
Ext^Ctrl^Trace = Trace^Control^Flags[0].<7> #, ! SYS MSG CONTROL
Int^Req^Ctrl^Trace = Trace^Control^Flags[0].<8> #, ! REQ CONTROL
Int^Task^Ctrl^Trace = Trace^Control^Flags[0].<9> #, ! TASK CONTROL
Nst^Ctrl^Trace = Trace^Control^Flags[0].<10> #, ! NONSTOP CONTROL
Err^Ctrl^Trace = Trace^Control^Flags[0].<11> #, ! ERR MSG CONTROL
! <12:15> = rfe
Uscode^Trace = Trace^Control^Flags[1] #, ! USCODE TRACE
Term^Req^Trace = Trace^Control^Flags[1].<0> #, ! TERM REQ
Term^Data^Trace = Trace^Control^Flags[1].<1> #, ! TERM DATA
Term^Intr^Trace = Trace^Control^Flags[1].<2> #, ! TERM INTERNAL
Line^Req^Trace = Trace^Control^Flags[1].<3> #, ! LINE REQ
Line^Data^Trace = Trace^Control^Flags[1].<4> #, ! LINE DATA
Line^Intr^Trace = Trace^Control^Flags[1].<5> #, ! LINE INTERNAL
Sr^Cb^Trace = Trace^Control^Flags[1].<6> #, ! SR CB
Sr^Pool^Trace = Trace^Control^Flags[1].<7> #, ! SR POOL
Sr^Ctrl^Trace = Trace^Control^Flags[1].<8> #, ! SR CONTROL
Sr^Misc^Trace = Trace^Control^Flags[1].<9> #; ! SR MISC
! <10:15> = RFE
!------------------------------------------------------------------------------!
! to prevent to scan tables, we keep a bitmap for each of the blocks which !
! are descibed above to indicate which entry we have in use. !
!------------------------------------------------------------------------------!
Struct .Map;
Begin
Int Tcbs [0:127]; !was [0:15]; 16 * 128 = 2048
Int Rcbs [0:127]; !was [0:31]; 16 * 128 = 2048
Int Fcbs [0:127]; !was [0:15]; 16 * 128 = 2048
Int Pcbs [0:063]; !was [0:15]; 16 * 64 = 1024
Int Dcbs [0:127]; !was [0:31]; 16 * 128 = 2048
Int Ldcbs[0:127]; !was [0:15]; 16 * 128 = 2048
Int Lines[0:003]; !was [0:0]; 16 * 4 = 64
End;
!------------------------------------------------------------------------------!
! Literal Events !
!------------------------------------------------------------------------------!
Literal
Disp^Stop = %000001, !Task has been stopped
Disp^Continue = %000002, !Continue execution
Disp^Can = %000004, !Cancel ITC event
Disp^Imsg = %000010, !$Receive message
Disp^Itc = %000020, !ITC request
Disp^Ioc = %000040, !I/O completion
Disp^Resource = %000100, !Resource for which task has been
!waiting has been obtained
Disp^Change = %000200, !Line Handler's configuration changed
E^Timeout = 0,
E^Stop = 1,
E^Continue = 2,
E^Can = 3,
E^Imsg = 4,
E^Itc = 5,
E^Ioc = 6,
E^Resource = 7,
E^Change = 8;