Type ASSEMBLE
Source Lines : 1,123
Fixes Applied : 10
Most Recent Version : Thursday, December 14, 1978
Last Fix ID : [HRC106DK]
Module
DMKTCS
Function
TO SET UP A 3800 PRINTER PRIOR TO ACTUALLY PRINTING A
SPOOL FILE ON IT. SETUP INCLUDES LOADING THE FCB,
TRANSLATE TABLE, GRAPHIC CHARACTER MODIFICATIONS,
FORMS OVERLAY SEQUENCE CONTROL, WRITABLE CHARACTER
GENERATION MODULES,COPY MODIFICATION, AND COPY NUMBER OF 1.
Attributes
REENTRANT, PAGEABLE, CALLED VIA SVC
Operation
1. DMKTCSET
CALL DMKFREE TO OBTAIN A WORKAREA FOR HOLDING THE
INFORMATION WHICH WILL BE REQUIRED FOR THE 3800 SETUP.
CALL DMKPGTVG, DMKRPAGT TO GET THE FIRST DASD BUFFER.
TRANSFER ALL INFORMATION REQUIRED INTO THE WORKAREA
AND RELEASE THE PAGE JUST OBTAINED. THEN GO TO STEP 4.
IF ENTERED FROM DMKTCSCO, UPDATE THE SFBCOPY AND
SFBSTCPY FIELDS AND GO TO STEP 8.
2. DMKTCSSP
OBTAIN A WORKAREA VIA DMKFREE AND INITIALIZE IT FOR
THE SEPARATOR PAGE WITH INFORMATION IN THE
3800 PRINTER RDEVBLOK AND OTHER DEFAULT INFORMATION.
THEN, CONTINUE WITH STEP 4.
3. DMKTCSCO
INDICATE THIS ENTRY AND GO TO STEP 1.
4. IF ENTRY WAS VIA DMKTCSET AND IF THE CHARS REQUESTED
IS THE SAME AS THAT ALREADY LOADED AS INDICATED IN
THE RSPXCHR FIELD, THEN THERE IS NO NEED TO RELOAD THE
NEW CHARACTER ARRANGEMENT TABLE. OTHERWISE,
CALL INTERNAL SUBROUTINE MEMLOAD TO LOAD THE REQUESTED
CHARACTER ARRANGEMENT TABLE INTO THE LOCKED BUFFER.
SET UP TO LOAD THE REQUIRED WCGMS INTO EMPTY POSITIONS.
IF A WCGM IS ALREADY LOADED AND UNMODIFIED, THERE IS NO
NEED TO LOAD IT AGAIN.
ALTER THE TRANSLATE TABLE IN STORAGE TO REFLECT CHANGED
POSITIONS OF THE THE WCGMS AND ISSUE THE FOLLOWING
CCWS TO THE 3800 PRINTER: LOAD WCGM, SELECT TRANSLATE
TABLE 0, LOAD TRANSLATE TABLE, DUMMY SENSE.
IF A LOAD CHECK OCCURS DUE TO INVALID LOAD DATA,
ISSUE ERROR MESSAGE DMKTCS241E TO BOTH THE OWNER OF
THE FILE AND THE OPERATOR AND RETURN WITH IOBFATAL SET.
IF SUCCESSFUL, UPDATE THE CURRENT CONTENTS OF THE WCGMS.
5. IF ANY GRAPHIC MODIFICATIONS WERE INDICATED, INVALIDATE
THE RDEVCRWC FIELDS USED BY THIS TABLE AND CALL MEMLOAD TO
LOAD EACH GRAPHIC MODIFICATION AND ISSUE A LOAD GRAPHIC
MODIFICATION TO THE 3800 FOR EACH ONE.
LOAD CHECKS CAUSE DMKTCS241E TO BE ISSUED AND RETURN WITH
IOBFATAL SET.
6. IF NO COPY MODIFICATION WAS SPECIFIED, SET UP A NULL
COPY MODIFICATION AND LOAD IT VIA THE 'LOAD COPY
MODIFICATION' CCW. ELSE CALL MEMLOAD TO LOAD IT IN
AND THEN LOAD IT INTO THE 3800 VIA THE 'LOAD COPY
MODIFICATION' CCW. LOAD CHECKS CAUSE DMKTCS241E TO BE
ISSUED AND RETURN MADE TO THE CALLER WITH IOBFATAL SET.
IF THE COPY MODIFICATION TO BE LOADED IS THE SAME AS THAT
ALREADY IN (RSPXCMOD), NO NEED TO LOAD IT IN AGAIN.
7. IF THE FCB IS THE SAME AS THAT ALREADY LOADED (RSPXFCB),
THERE IS NO NEED TO RELOAD IT. IF NOT, AND IT IS NOT
6, 8, OR 12, CALL MEMLOAD TO LOAD IT AND THEN ISSUE A
'LOAD FCB' CCW TO GET IT INTO THE 3800. ANY ERRORS
CAUSE DMKTCS241E TO BE ISSUED, EXCEPT FOR AN FCB-FORMS
MISMATCH WHICH CAUSES DMKTCS240E TO BE ISSUED.
IF THE FCB IS 6, 8, OR 12, THEN, USING THE CURRENT PAGE
LENGTH (RDEVCURP), CONSTRUCT AN FCB. IF THIS RESULTS IN
A FCB-FORMS MISMATCH, TRY WITH DIFFERENT PAGE LENGTHS
UNTIL SUCCESSFUL. STORE THE NEWLY DISCOVERED PAGE
LENGTH IN RDEVCURP.
8. ISSUE THE 'LOAD COPY NUMBER' CCW FOR COPY MODIFICATION
CONTROL INFORMATION, AND THE 'LOAD FORMS OVERLAY
SEQUENCE CONTROL' CCW TO CONTROL THE FLASHING STATUS
AND NUMBER OF COPIES TO BE PRINTED FOR THE 3800.
9. IF ENTERED VIA DMKTCSCO AND THERE ARE MORE COPIES TO
BE PRINTED, ISSUE THE 'END OF TRANSMISSION' CCW. IF
NO MORE COPIES REMAIN, ISSUE THE 'MARK FORMS' CCW.
ALSO, UPDATE SFBCOPY AND SFBSTCPY.
10. RETURN TO CALLER
Calls to Other Routines
DMKIOSQR - TO ISSUE START I/O TO REAL 3800
DMKPGTVG - GET PAGE OF SYSTEM VIRTUAL STORAGE
DMKPGTVR - RELEASE PAGE OF SYSTEM VIRTUAL STORAGE
DMKRPAGT - READ IN PAGE OF 3800 IMAGE LIBRARY
DMKFREE - OBTAIN FREE STORAGE FOR CCWS
DMKFRET - RETURN FREE STORAGE TO THE POOL
DMKSCNVS - FIND RDEVBLOK FOR IMAGE LIBRARY DASD VOL
DMKERMSG - ISSUE ERROR MESSAGES
DMKSCNAU - SEE IF USER IS LOGGED ON
DMKCVTBH - CONVERT STUFF FOR MESSAGES
DMKSCNRD - GET DEVICE ADDRESS IN PRINTABLE CUU FORM