GDSX Manual

DEVICE^HANDLER Example, Design
Extended General Device Support (GDSX) Manual–134303
5-8
USKELEX Example Code
First of all, five sections of the DCCBDECS file are sourced in. These sections define
templates for control structures shared by TSCODE and USCODE, listed in Table 5-1.
A listing of DCCBDECS is contained in Appendix C.
Example 5-1. USKELEX Global Declarations
! GDSX USCODE Skeleton File
?NOMAP, NOLMAP, NOCODE, SYMBOLS, CPU TNS/II
NAME uscode;
BLOCK COMMON^TEMPLATES;
?NOLIST, SOURCE DCCBDECS (ERRORS)
?LIST, SOURCE DCCBDECS (TCB^LAYOUT)
?LIST, SOURCE DCCBDECS (IOCB^LAYOUT)
?LIST, SOURCE DCCBDECS (FCB^LAYOUT)
?LIST, SOURCE DCCBDECS (RCB^LAYOUT)
!===============================================================
!Comment Users may include their own file to modify DCB and
! LINE Templates.
!Comment See file ULHDECS that USAMPLE sources in here
?LIST, SOURCE ULHDECSE (TEMPLATES)
!===============================================================
END BLOCK; ! COMMON^TEMPLATES
BLOCK CONFIG^PARMS^TEMPLATES;
?NOLIST, SOURCE DCCBDECS (CONFIG^TEMPLATES)
?LIST
END BLOCK; ! CONFIG^PARMS^TEMPLATES
! Global Data
!
BLOCK CONFIG^PARMS^DATA;
?NOLIST, SOURCE DCCBDECS (CONFIG^DATA)
?LIST
END BLOCK; ! CONFIG^PARMS^DATA
BLOCK COMMON^DATA;
?NOLIST, SOURCE DCCBDECS (COMMON^DATA)
?LIST
END BLOCK; ! COMMON^DATA
BLOCK USER^PRIVATE;
LITERAL TRUE = -1, FALSE = 0;
END BLOCK; !USER^PRIVATE
!===============================================================
!Comment User may include System Procedures desired here.
?NOLIST, SOURCE $SYSTEM.SYSTEM.EXTDECS0(DEBUG, NUMOUT, NUMIN);
!===============================================================
?LIST
?NOLIST, SOURCE PEXTGDS
Table 5-1. Global Declarations Sourced in by USKELEX
Description of Contents File Name Sections of File
Control block template definitions DCCBDECS errors, tcb^layout, iocb^layout,
fcb^layout, rcb^layout
User-modified control block template
definitions
ULHDECSE templates