GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-28
USKELEXC Listing
INT
.EXT dcb(dcb^TEMPLATE) ;
USE d;
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 ':=' "022492" ; !Feb. 24 1992 User Version
RETURN 1;
END;