GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-15
USKELEXC Listing
! 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(PROCESS_DEBUG_, NUMOUT, NUMIN);
!===========================================================================
?LIST
?NOLIST, SOURCE PEXTGDS
?LIST
?PAGE "PROC DEVICE^HANDLER"
PROC DEVICE^HANDLER (TERM^FILE^NUM, INTERNAL^TERM^NO, TERM^TYPE);
INT TERM^FILE^NUM , ! FILE^NUM FOR THIS D^H TASK
INTERNAL^TERM^NO, ! TERM NUMBER FOR THIS D^H TASK
TERM^TYPE ; ! TERMINAL TYPE
BEGIN
!===========================================================================
! Comment - USCODE can declare desired Device^Handler Local Variables here
!===========================================================================
INT .EXT MY^DCB(DCB^TEMPLATE);
INT .get^rcv^info (getreceiveinfo^template);
!dxcd
INT .EXT TERM^BUF;
STRING .EXT S^TERM^BUF;
INT .EXT RCV^BUF;
STRING .EXT S^RCV^BUF;
INT .EXT E^RCV^BUF := 0D;
INT RQSTR^WT^CT;
INT RQSTR^RD^CT;
INT TERM^CT^RD;
INT DOLR^RCV := 0;
INT RQST^TYPE := 0;
INT FERR;
INT TAKE^OVER;
INT RCV^ERROR;
!dxcd
LITERAL WT=1, RD=2, WT^RD=3, CTRL=4, SET^MD=5;
LITERAL BUF^SIZE = 1024;
!===========================================================================
! Comment - USCODE can add desired Device^Handler Subprocs here
! SUBPROC ?;
! BEGIN
! END;
!===========================================================================
SUBPROC SCAN^BUF;