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