Type ASSEMBLE
Source Lines : 643
Fixes Applied : 2
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R14498DS]

Operation

       READCARD INITIALIZES BLOCK LENGTH AND RECORD SIZE THEN--

       IF SPECIAL READ MODE (*):  READCARD READS THE FIRST CARD FROM
       THE CARD READER VIA A CALL TO DMSCIO, IF THE CARD IS NOT
       A READ CONTROL CARD, READCARD PRINTS AN INFORMATION MESSAGE
       AND WILL THEN ASSUME A FILEID OF 'READCARD CMSUT1'
       (THE USER MAY LATER RENAME THE FILE IDENTIFICATION TO WHAT WAS
       INTENDED.)  IF AN ASTERISK WAS SPECIFIED ONLY IN THE
       FILENAME FIELD, READCARD WILL TAKE THE FILENAME,      @VA14498
       FILETYPE AND FILEMODE FROM THE READ CONTROL CARD AND  @VA14498
       PLACE THAT INFORMATION IN THE PARAMETER LIST.  IF
       ASTERISKS WERE PLACED IN THE FILENAME AND FILETYPE
       FIELDS, AND NO MODE SPECIFIED, THE FILENAME AND
       FILETYPE FROM THE READ CARD WILL BE PLACED IN THE
       PARAMETER LIST AND A DEFAULT MODE OF A1 WILL BE PLACED
       INTO THE PARAMETER LIST.  IF '* * FM' WAS SPECIFIED,
       THE FILENAME AND FILETYPE ARE TAKEN FROM THE READ
       CARD AND PUT INTO THE PARAMETER LIST AND THE MODE
       SPECIFIED IS THE DISK UPON WHICH THE FILE WILL BE
       PLACED.  THE CONTROL CARD INFORMATION IS TYPED AT
       THE CONSOLE VIA A CALL TO CONWRITE.  IF '* * MODE',
       THE MODE IN EFFECT IS TYPED AS PART OF THE CONTROL CARD
       INFORMATION.

       IF THE EXISTENCE OF A FILE WITH THE INTENDED
       IDENTIFICATION HAS BEEN ESTABLISHED, READCARD WILL    @VA14498
       ERASE THE COPY OF THE OLD FILE ONCE VERIFICATION OF
       THE INPUT FILE IS OBTAINED.  NEXT, IT READS A BLOCK
       OF CARDS AS DESCRIBED BELOW.  IF NEITHER ANOTHER READ
       CONTROL CARD NOR AN END-OF-FILE IS ENCOUNTERED DURING
       READING, READCARD CALLS THE DMSBWR FUNCTION PROGRAM TO
       PLACE THE CARD IMAGES INTO A DISK FILE  IT REPEATS
       THIS PROCEDURE FOR THE NEXT BLOCK OF CARDS IN THE
       READER.

       IF ANOTHER READ CONTROL CARD APPEARS IN THE INPUT
       STREAM, SCAN IS CALLED TO FORMAT IT AND CONWRITE TO
       TYPE IT AT THE TERMINAL.  IT THEN WRITES THE
       REMAINING IMAGE OF THE PREVIOUS FILE INTO THE DISK
       FILE, CALLS THE FINIS COMMAND PROGRAM TO CLOSE THAT
       FILE, AND RETURNS TO PROCESS THE NEW FILE OF CARDS
       FOLLOWING THE SECOND CONTROL CARD IN THE PRESCRIBED
       MANNER. READCARD REPEATS THIS PROCEDURE FOR EACH
       LOGICAL FILE OF CARDS IN THE READER.


       WHEN AN END-OF-FILE IS ENCOUNTERED DURING THE READING
       OF CARDS, READCARD PLACES THE REMAINING IMAGES INTO THE
       LAST DISK FILE, CALLS FINIS TO CLOSE THAT FILE, CALLS CP
       CLOSE TO CLOSE THE CARD READER OPERATION, AND RETURNS
       TO THE CALLING PROGRAM,  THUS, DURING PROCESSING,
       READCARD CONVERTS EACH CARD FILE IN THE CARD READER TO
       A CORRESPONDINGLY NAMED DISK FILE.

       NO SPECIAL READ MODE.  READCARD CALLS THE ERASE COMMAND
       PROGRAM TO ERASE THE IDENTICALLY NAMED FILE(IF ONE
       EXISTS AND IF THERE ARE CARDS TO BE READ).  NEXT,IT
       READS A BLOCK OF CARDS,.  IT THEN CALLS THE DMSBWR
       FUNCTION PROGRAM TO WRITE THE IMAGES INTO A DISK
       FILE.  READCARD REPEATS THIS PROCEDURE FOR EACH BLOCK
       OF CARDS UNTIL AN END-OF-FILE OCCURS.  AT THIS TIME,
       IT WRITES THE REMAINING IMAGES INTO THE DISK FILE,
       CLOSES THAT FILE (VIA DMSFNS),CLOSES THE CARD READER
       (VIA CP CLOSE ROUTINE), AND RETURNS TO THE
       CALLING PROGRAM.  THUS, IF THE SPECIAL READ MODE IS
       NOT SELECTED, READCARD CREATES A SINGLE FILE FROM THE
       CARDS IN THE READER.

       IN EITHER CASE, (SPECIAL READ MODE(*) OR NOT),
       READCARD WILL READ THE FIRST DATA RECORD AND COMPARE
       ITS RECORD LENGTH AGAINST THE SPECIFIED LENGTH.  IF
       IT GETS AN INCORRECT LENGTH, IT CHECKS TO SEE IF AN
       ERROR HAS BEEN ENCOUNTERED AND BRANCHES OUT WITH THE
       APPROPRIATE ERROR CODE.  IF THERE IS  NO ERROR
       AND IT IS THE FIRST CARD, IT ASSUMES THE FILE RECORD
       LENGTH TO BE EQUAL TO THE LENGTH OF THE FIRST RECORD READ
       AND CONTINUES TO READ AND WRITE AS DESCRIBED IN THE
       READ MODE DESCRIPTIONS DEPENDING ON WHICH WAS SPECIFIED.
       (THEREFORE, READCARD WILL NOT READ VARIABLE LENGTH
       FILES).  BEFORE CLOSING THE CARD READER THE RECORD
       LENGTH IS CHECKED AND IF THE LENGTH IS NOT 80 BYTES
       THE MESSAGE "RECORD LENGTH = XXX BYTES" IS
       TYPED.

       THE FORMAT OF THE CARD EXPECTED BY READCARD IS
       EITHER THE CMS VER 3.1 "OFFLINE READ..." CONTROL
       CARD OR THE FOLLOWING FORMAT WHICH IS PRODUCED BY
       THE PUNCH COMMAND.

Calls to Other Routines

       DMSBRD,DMSFNS,DMSERS,DMSSTT,DMSCWR,DMSCIO,DMSCPF,     @VA14498
       DMSLAD                                                @VA14498
                                                             @VA14498