Type ASSEMBLE
Source Lines : 3,299
Fixes Applied : 5
Most Recent Version : Wednesday, December 13, 1978
Last Fix ID : [HRC011DK]

Module

      DMKFMT

Function

      TO ACCEPT PARAMETERS FROM THE 1052 CONSOLE OR IPL
      DEVICE (CARD READER) AND PERFORM PARTIAL OR COMPLETE
      FORMATTING,ALLOCATION AND LABELING OF 2314,2319,3330,
      3340, 3350 AND 2305 DASD TYPE DEVICES.
      THE FORMAT PROGRAM WILL ALSO DO WRITE CHECKING
      TO VERIFY PAGES ARE FORMATTED CORRECTLY. A COUNT OF "ERROR"
      PAGES WILL BE MAINTAINED. NO ALTERNATES WILL BE ASSIGNED.
      OS LABELS WILL WRITTEN TO BE COMPATIABLE WITH OS
      SYSTEM BUT LABELS WILL INDICATE TO OS THAT THERE IS
      NO SPACE LEFT ON DASD STORAGE DEVICE.
      ALL PARAMETER INPUT WILL BE VERIFIED FOR CORRECTNESS

Attributes

      STAND-ALONE PROGRAM

Operation

      1. AFTER IPL SAVE IPL DEVICE ADDRESS.

      2. ASSUME CONSOLE ADDRESS 009 OR 01F.

      3. IF ASSUMED CONSOLES ARE NOT THERE GO TO
         WAIT STATE AND WAIT FOR ATTENTION INTERRUPT.

      4. AFTER CONSOLE IS FOUND CHECK TO SEE IF
         THERE IS ANY PARAMETER INPUT ON IPL DEVICE

      5. IF PARAMETER INPUT IS IN IPL DEVICE,READ IN
         ONE FUNCTION TO BE DONE AND USE CONSOLE TO
         PRINT FUNCTIONS TO BE EXECUTED.

      6. IF NO IPL DEVICE INPUT,USE CONSOLE TO PROMPT
         FOR FUNCTION TO BE PERFORMED AND ALLOW
         OPERATOR TO RETYPE INPUT IF FOUND INVALID
         BY THE PROGRAM.

      7. IF IPL DEVICE INPUT IS USED, SCAN CARD FOR PROPER
         FORMAT, IF FOUND INVALID ISSUE A MESSAGE TO THE
         OPERATOR AND FLUSH TO NEXT FORMAT OR ALLOCATE CARD.

     8. ALLOW ABBREVIATIONS OF WORDS;FORMAT;ALLOCATE; & LABEL
        ALLOW DEFAULTS FOR STARTING AND ENDING CYLINDERS UNDER
        FORMAT FROM CONSOLE OR IPL DEVICE INPUT.

      9. REPEAT PROMPTING FOR NEW FUNCTION TO
         PERFORM WHEN USING CONSOLE AS INPUT
         OR READ NEXT FUNCTION FROM THE IPL
         DEVICE.

      10.START 'FORMAT','ALLOCATION',OR 'LABEL ONLY' OPERATION
         AS REQUESTED.

      **FORMAT**

         FORMAT FROM THE STARTING CYLINDER UP TO AND
         INCLUDING THE ENDING CYLINDER OF THE DASD DEVICE
         AS REQUESTED BY CONSOLE OR IPL DEVICE INPUT.

         FORMATTED RECORDS ARE  (PAGE SIZE) IN 4096 BYTES.

       FORMAT CYLINDER 0 AS FOLLOWS:

         R0 PAGE BIT MAP - FLAGS BAD OR INUSE PAGES.
         R1 IPL REC. - PUTS STSTEM INTO WAIT STATE, CODE = 00C.
         R2 CHECK POINT RECORD - USED BY CHECK POINT ROUTINE.
         R3 OS VOL1 LABEL - CONTAINS CP VOLUME LABEL
         R4 ALLOCATION BIT MAP - ALLOCATION TYPE FOR EACH CYL.
         R5 OS FORMAT 4 LABEL
         R6 OS FORMAT 5 LABEL.
         RF3 PAGE SIZE FILLER RECORD FOR FUTURE CP USE.
         RF4 FILLER RECORD FOR 2314 AND 2319 DEVICE.

         WRITE CP VOLUME LABEL WHEN CYLINDER 0 IS FORMATTED,
         OTHER WISE READ AND COMPARE CP VOLUME LABEL TO INPUT.

         WRITE PAGE SIZE RECORDS ON THE REST OF CYLINDER 0
         AND ALL OTHER CYLINDERS REQUESTED.

         WRITE VERIFY THAT EACH PAGE RECORD WAS WRITTEN
         CORRECTLY.

         RECORD ANY BAD PAGE RECORD IN THE "PAGE BIT MAP"
         LOCATED ON TRACK 0 RECORD 0 OF EACH CYLINDER.

         PRINT BAD PAGE ADDRESSES AS THEY FOUND.

         PRINT TOTAL OF BAD PAGES WHEN FORMAT IS COMPLETE.

         GET ANOTHER TASK FROM CONSOLE OR IPL DEVICE WHEN
         FORMAT IS COMPLETE.

      **ALLOCATION**

         READ AND VERIFY THE CP VOLUME LABEL.

         UPDATE ALLOCATION TABLE IN CORE FROM CONSOLE
         OR IPL DEVICE INPUT.

         WRITE CYLINDER ALLOCATION INTO "CYL BYTE MAP"
         LOCATED IN RECORD 4 OF CYL 0 HEAD 0.

         SCAN "CYL BYTE MAP" AFTER ALLOCATION IS COMPLETE
         AND PRINT VOLUME ALLOCATE ON CONSOLE.

         GET ANOTHER TASK FROM CONSOLE OR IPL DEVICE WHEN
         ALLOCATION IS COMPLETE.

      **LABEL ONLY OPERATION**

         CHECK FOR SIX CHARACTERS ENTERED FOR LABEL.

         WRITE NEW CP VOLUME LABEL IN CYLINDER 0 HD 0 RECORD 3

         GET ANOTHER TASK FROM CONSOLE OR IPL DEVICE WHEN
         LABELING IS COMPLETE.

      11.DEPRESSING THE REQUEST KEY ON THE CONSOLE
         WILL CAUSE AN ATTENTION INTERRUPT TO THE PROGRAM
         AND PROCESSING WILL STOP AND PROGRAM RESTARTED AT
         BEGINNING.

      12.MACHINE CHECKS AND PROGRAM CHECKS WILL PRINT
         MESSAGE AND PUT SYSTEM INTO WAIT STATE.

      13.FATAL DASD ERRORS WILL PRINT A MESSAGE WITH SENSE
         DATA.

      14.CARD FORMATS.

       FORMAT EXAMPLES:

         FORMAT,ADDRESS,TYPE,VOLUME LABEL,START CYL,END CYL,

         FORMAT,232,3330,MYDISK,000,006,
                     OR
         FORMAT,232,3330,MYDISK,000,006 LAST , MAY BE DROPPED
         F,232,3330,MYDISK,,,  DEFAULTS START & END CYL
         F,232,3330,MYDISK,,007        DEFAULTS START CYL
         F,232,3330,MYDISK,001,,     DEFAULTS END CYL

       ALLOCATE EXAMPLES:

         ALLOCATE,232,3330,MYDISK
         TEMP,000,050     ALLOCATE CYL 0 TO 50 AS TEMPORARY
         PERM,055,060
         TDSK,100,108
         DRCT,110,120
         END

         A,232,3330,MYDISK
         ALLO,232,3330,MYDISK        ABBEVIATE  ALLOCATE

       LABEL ONLY EXAMPLES:

         FO,232,3330,MYDISK,LABEL   WORD LABEL IN PLACE OF CYL
         F,232,3330,MYDISK,LA    WORD LABEL ABBEVIATED.

      15.DETECT IPL DEVICE ERRORS AND ALLOW RESTARTING
         CONSOLE OR IPL DEVICE.

      16.ALLOW CONSOLE TO BE USED WHEN IPL DEVICE IS
         NOT READY OR HAS NO MORE INPUT

Calls to Other Routines

      NONE