GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-14
USKELEXC Listing
FOR d := 1 TO MAXTERMS DO
IF BIT^TEST(map.dcbs, d) THEN
BEGIN
@dcb := dcbtbl[d];
END;
DROP d;
END;
!===========================================================================
?PAGE "INT PROC USER^VERSION"
!===========================================================================
!***************************************************************************
! Function: This PROC serves as a way to provide user USCODE version string
! so that it can be easily identified.
!
! Input: STRING version^string
!
! Output: give 6 bytes of USCODE version string and return 1.
!
! RETURN: 1 : If 6 bytes of user version string is given
! 0 : If no user version string is given
!***************************************************************************
INT PROC user^version (version^string);
STRING .version^string;
BEGIN
version^string ':=' "081589" ; !Aug. 15 1989 User Version
RETURN 1;
END;
USKELEXC Listing
! GDSX USCODE Skeleton File
!
?NOMAP, NOLMAP, NOCODE, SYMBOLS, CPU TNS/II
NAME uscode;
BLOCK COMMON^TEMPLATES;
?NOLIST, SOURCE DCCBDECS (EVENTS)
?LIST
?NOLIST, SOURCE DCCBDECS (ERRORS)
?LIST
?LIST, SOURCE DCCBDECS (TCB^LAYOUT)
?LIST
?LIST, SOURCE DCCBDECS (IOCB^LAYOUT)
?LIST
?LIST, SOURCE DCCBDECS (FCB^LAYOUT)
?LIST
?LIST, SOURCE DCCBDECS (RCB^LAYOUT)
?LIST
!===========================================================================
!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)
!===========================================================================
?LIST
?LIST, SOURCE ULHDECSE (GETRECEIVEINFO^TEMPLATE) !dxcd
?LIST
END BLOCK; ! COMMON^TEMPLATES
BLOCK CONFIG^PARMS^TEMPLATES;
?NOLIST, SOURCE DCCBDECS (CONFIG^TEMPLATES)
?LIST
END BLOCK; ! CONFIG^PARMS^TEMPLATES