Type ASSEMBLE
Source Lines : 1,885
Fixes Applied : 7
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [HRC002DS]

Module

       DMSTPE (TAPE)

Function

       TAPE COMMAND. TO PERFORM CERTAIN TAPE FUNCTIONS, I.E.
       DUMP A CMS FILE, LOAD A CMS FILE, SET TAPE MODE, SCAN,SKI
       REW, RUN, FSF, FSR, BSF, BSR, ERG, AND WTM

Attributes

       TRANSIENT, REFRESHABLE, CALLED VIA SVC 202

Operation

       1.  TAPE LOOKS FOR AN OPTIONS LIST.  IF IT FINDS ONE, IT THEN
           PROCESSES EACH ONE BY SETTING A FLAG IN OPTBYTE OR
           CHANGING THE ENTRIES IN THE TAPEIO PARAMETER LIST.

       2.  AFTER ALL OPTIONS HAVE BEEN PROCESSED(IF ANY), IT FINDS
           THE MODESET BYTE IN THE DEVICE TABLE FOR THE SYMBOLIC TAPE
           UNIT SPECIFIED IN THE TAPEIO PARAMETER LIST.  IF THE
           USER HAS SPECIFIED A MODESETB(NOW IN THE TAPEIO PARAMETER
           LIST) IT IS STORED IN THE APPROPRIATE PLACE IN THE DEVICE
           TABLE.  IF NOT, THE MODESET BYTE FROM THE DEVICE TABLE IS
           STORED IN THE APPROPRIATE SLOT OF THE TAPEIO PARAMETER
           LIST.
       THE SAVING OF THE MODE SETTING BETWEEN
       COMMANDS  OCCURS ONLY IF TAPES WITH VIRTUAL ADDRESS
       IN RANGE OF 180-187, 288-28F (TAP0-TAP7, TAP8-TAPF) ARHRC002DS

       3.  TAPE LOOKS FOR THE FUNCTION THE USER WANTS PERFORMED.

       DUMP -
       1.  FSTLKP IS CALLED TO FIND THE FILE TO BE DUMPED.  IF IT IS
             FOUND, 'HX' IS PREVENTED AND IT'S FST IS ALTERED TO INDI
           CATE A FIXED LENGTH FILE WITH A RECORD LENGTH OF 800
           BYTES.  THEN EACH RECORD IS READ(VIA RDBUF) AND WRITTEN
           ONTO TAPE(VIA TAPEIO) UNTIL EOF IS REACHED.

       2.  AT EOF, THE REAL FST IS WRITTEN AND A CHECK IS MADE TO SEE
           IF THE USER WANTS TO WTM.  IF SO, ONE IS WRITTEN.  THEN
           2 WTM ARE WRITTEN(VIA TAPEIO) AND BACKSPACED OVER.

       3.  A CHECK IS MADE TO SEE IF * WAS ENTERED FOR FILENAME,
           FILETYPE OR FILEMODE.  IF SO 1. IS REPEATED.  ELSE RETURN.

       LOAD, SCAN, SKIP(AS INDICATED BY THE SETTING OF A SWITCH)
           FOR SCANNING OR SKIPPING THE TAPE,
       1.  THE TAPE IS READ(VIA TAPEIO) UNTIL THE NAME OF THE FILE
           ENCOUNTERED.  IF A FILID HAD BEEN ENTERED, IT IS
           COMPARED WITH THAT ON THE TAPE FOR A MATCH.
           FOR LOADING A FILE, EACH RECORD IS READ
           (VIA TAPEIO) AND WRITTEN INTO A TEMPORARY FILE(TAPE
           CMSUT1) VIA WRBUF.  *WHEN THE LAST RECORD IS READ, THE
           FILEID (IF GIVEN) IS CHECKED, AND IF MATCH, THE
           FILE STATUS TABLE AND THE USERS FILE DIRECTORY ARE UPDATED

       2.  IF THE FILENAME AND FILETYPE MATCHED THE ONE SPECIFIED
           BY THE USER, RETURN.  IF NOT CONTINUE WITH 1.

       3.  ON EOF, CHECK TO SEE IF THE USER SPECIFIED EOFN.  IF SO,
           SEE IF THE NUMBER OF EOF MARKS HIT EQUALS THE NUMBER
           SPECIFIED.  IF SO RETURN.  IF NOT SEE IF THE USER
          SPECIFIED EOT. IF NOT, RETURN. IF SO, CHECK
           FOR 2 CONSECUTIVE TAPE MARKS; IF FOUND, STOP.
           IF ONLY ONE TAPE MARK, CONTINUE AT STEP 1.


       REW,RUN,ERG,WTM,FSF,FSR,BSF,BSR -
       1.  THE FUNCTION IS MOVED INTO THE TAPEIO PARAMETER LIST.

       2.  TAPEIO IS CALLED 'N' TIMES TO PERFORM THE FUNCTION.

Calls to Other Routines

       TYPLIN - TYPE A LINE ON THE TERMINAL
       PRINTIO - PRINT A LINE ON THE PRINTER
       WRBUF - WRITE A FILE ON THE DISK
       RDBUF - READ A FILE FROM THE DISK
       FINIS - CLOSE A FILE ON THE DISK
       ERASE - ERASE A FILE ON THE DISK
       FSTLKP - FIND THE FILE STATUS TABLE FOR A FILE
       UPDISK - UPDATE THE USER'S FILE DIRECTORY
       TAPEIO - PHYSICALLY PERFORMS THE TAPE FUNCTION REQUESTED
       KILLEX - IF 'KX' IS ENTERED