* ------------------------------------------------------------------ PROGRAM REWIND * ------------------------------------------------------------------ * * Name: REWIND * * Computer: PDP-11/23 11/73 * Operating System: RSX-11M V4.1 BL35D * Language: FORTRAN-77 * Original Programmer: R. E. K. Neitzel * Date Implemented: 4/21/86 * * * Revisions: Programmer Date Description * ---------- -------- --------------------- * * * Description: * This rewinds the MS0: tape drive. * * RSX-11M Executive directives referenced: * QIO$ * * Function calling outline: * REWIND ! source in REWIND.FTN * ASNLUN ! RSX-11M Executive directive * WTQIO ! RSX-11M Executive directive * * ---Local variables--- * type name usage * ---- ---- ----- CHARACTER*2 DEVNAM ! Device type MS: INTEGER DEVNUM ! Device unit number INTEGER DSW ! Directive status word INTEGER IORWD ! This is the function code for QIO INTEGER UNTNUM ! LUN number DATA DEVNAM /'MS'/ DATA DEVNUM /0/ DATA IORWD /"2400/ DATA UNTNUM /2/ * * * ---Executable statements begin here--- * CALL ASNLUN (UNTNUM,DEVNAM,DEVNUM,DSW) IF (DSW .LE. 0) GOTO 100 CALL WTQIO (IORWD,UNTNUM,3,,,,DSW) IF (DSW .LE. 0) GOTO 200 TYPE *, 'REWIND OPERATION COMPLETE' CALL EXIT 100 WRITE (5,110)DSW 110 FORMAT (' ERROR ON ASNLUN DIRECTIVE = ',I4) CALL EXIT 200 WRITE (5,210)DSW 210 FORMAT (' ERROR ON WTQIO DIRECTIVE = ',I4) CALL EXIT END