GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-18
USKELEXC Listing
! APPL DEALS WITH IOP FS ERRORS !
!-------------------------------!
CALL ^REPLYX(,,,,FERR);
! CLEAR FLAG !
MY^DCB.WT^RD^PEND := FALSE;
END;
END;
WT -> ! WRITE
BEGIN
CALL SCAN^BUF;
CALL ^WRITEX(TERM^FILE^NUM,TERM^BUF,RQSTR^WT^CT);
IF <> THEN CALL PROCESS_DEBUG_;
CALL ^AWAITIOX(TERM^FILE^NUM);
IF d^plus^enabled THEN
!dxcd
CALL ^FILE_GETINFO_(TERM^FILE^NUM, FERR)
!dxcd
ELSE
!dxcd
CALL ^FILEINFO(TERM^FILE^NUM,FERR);
CALL ^REPLYX(,,,,FERR);
END;
RD -> ! READ
BEGIN
CALL ^READX(TERM^FILE^NUM,TERM^BUF,RQSTR^RD^CT);
IF <> THEN CALL PROCESS_DEBUG_;
CALL ^AWAITIOX(TERM^FILE^NUM,@TERM^BUF,TERM^CT^RD);
IF d^plus^enabled THEN
!dxcd
CALL ^FILE_GETINFO_(TERM^FILE^NUM, FERR)
!dxcd
ELSE
!dxcd
CALL ^FILEINFO(TERM^FILE^NUM,FERR);
IF (FERR = 0) THEN
CALL ^REPLYX(TERM^BUF,TERM^CT^RD)
ELSE
CALL ^REPLYX(,,,,FERR);
END;
CTRL -> ! CONTROL
BEGIN
CALL ^CONTROL(TERM^FILE^NUM,RCV^BUF[1],RCV^BUF[2]);
IF <> THEN CALL PROCESS_DEBUG_;
CALL ^AWAITIOX(TERM^FILE^NUM);
IF d^plus^enabled THEN
!dxcd
CALL ^FILE_GETINFO_(TERM^FILE^NUM, FERR)
!dxcd
ELSE
!dxcd
CALL ^FILEINFO(TERM^FILE^NUM,FERR);
CALL ^REPLYX(,,,,FERR);;
END;
SET^MD -> ! SETMODE
BEGIN
CALL ^SETMODENOWAIT(TERM^FILE^NUM,
RCV^BUF[1],RCV^BUF[2],RCV^BUF[3]);
IF <> THEN CALL PROCESS_DEBUG_;
CALL ^AWAITIOX(TERM^FILE^NUM);
IF d^plus^enabled THEN
!dxcd
CALL ^FILE_GETINFO_(TERM^FILE^NUM, FERR)
!dxcd