Type ASSEMBLE
Source Lines : 948
Fixes Applied : 5
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC108DK]

Module

       DMKSEP

Function

       TO PRINT OUTPUT SEPARATOR PAGES ON THE REAL SPOOLING PRINTERS
       IN BETWEEN THE OUTPUT OF DIFFERENT SYSTEM USERS

       TO PUNCH OUTPUT SEPARATOR CARDS ON THE REAL SPOOLING PUNCHES
       IN BETWEEN THE OUTPUT OF DIFFERENT SYSTEM USERS

Attributes

       REENTRANT, PAGEABLE, CALLED VIA SVC

Operation

       1. THE OUTPUT SEPARATOR PRODUCED BY THIS ROUTINE ASSUMES THAT
          THE PRINTER HAS MOUNTED ON IT A CARRAIGE CONTROL TAPE WITH
          A CHANNEL ONE PUNCH AT LINE 3 OF A 66 LINE PAGE
          PROVIDING THE PRINTER IS NOT A 3800.
          IF THE PRINTER IS A 3800, THE ASSUMPTION IS THAT
          CHANNEL 1 SKIPS TO THE FIRST PRINTABLE LINE ON THE PAGE
          AND THAT THE PAGE IS CAPABLE OF HOLDING AT LEAST 55 LINES
          OF PRINT AT THE FCB SPECIFIED FOR SEPARATOR PAGES.
           IF THIS IS A SYSTEM RESTART AND THE DEVICE IS
           A PRINTER: A'SYSTEM RESTARTED'
           MESSAGE WITH A LINE OF ASTERISKS BEFORE AND
           AFTER IS PRINTED ON THE PRINTER, AND EXIT
           OTHERWISE, CONT:

       2. A CHANNEL PROGRAM IS CONSTRUCTED TO PERFORM THE FOLLOWING
          SEQUENCE OF EVENTS -
             A. SKIP TO CHANNEL 1 AND SPACE DOWN TO LINE 60
                AND GO TO STEP B.
                EXCEPT FOR A 3800 PRINTER WHEN WE JUST
                SKIP TO CHANNEL 1 AND GO TO STEP D.
             B. PRINT 5 LINES OF ASTERISKS
             C. PRINT ONE LINE OF UNDERSCORES ALONG THE PERFORATION
                BETWEEN PAPER SHEETS
             D. PRINT 5 LINES OF ASTERISKS, THE 5TH LINE CONTAINS
                VERSION AND LEVEL, OUTPUT DEVVICE ADDRESS AND
                CLASS, DATE AND TIME PRINTED. FOLLOWED
                BY 3 BLANK LINES
                IN THIS STEP, IF THE DEVICE IS A 3800 PRINTER,
                ONLY TWO LINES OF ASTERISKS ARE PRINTED WITH
                THE SECOND LINE CONTAINING THE DESIRED INFO.
             E. THE NEXT 16 LINES CONTAINS USERID, DISTRIBUTION
                CODE, SPOOL FILE NAME AND TYPE, CREATION DATE AND
                TIME, SPOOLID AND RECORD COUNT.
                ALSO INCLUDED IN THESE 16 LINES IS A 16 LINE BY
                46 CHARACTER AREA. THE INFORMATION FOR THIS AREA
                IS LOADED FROM DMKBOX AT LABEL DMKBOXBX.  IF
                MODULE IS NOT AVAILABLE, THE DEFAULT
                INFORMATION LOCATE AT LABEL 'CONSTANT' IN
                THIS MODULE IS USED.
                CODE, SPOOL FILE NAME AND TYPE, CREATION DATE,
                SPOOL FILE ID AND RECORD COUNT.
                INCLUDED IN THESE 15 LINES IS A 15 BY 46 DC
                CONSTANT BOX IN WHICH DC
                INFORMATION CAN BE PLACED FOR PRINTING OF
             F. PRINT THE USERID OF THE FILE'S OWNER IN A SERIES OF
                12 X 12 MATRIX BLOCK LETTERS, FOLLOWED BY 4 BLANK
                LINES.  THE DISTRIBUTION CODE IS PRINTED IN A
                SERIES OF 12 X 12 MATRIX BLOCK LETTERS,
                FOLLOWED BY  5 BLANK LINES.

       3. AFTER THE CHANNEL PROGRAM HAS BEEN EXECUTED ONCE FROM THE
          BEGINNING, IT IS RE-EXECUTED STARTING AT STEP B. ABOVE,
          THEREBY CREATING A SECOND SEPARATOR PAGE
          FOR A 3800 START FROM STEP A. ABOVE, AND REPEAT.

       4. AFTER THE PAGES ARE COMPLETE, DMKSEP RETURNS TO DMKRSPEX

       5. FOR PUNCH OUTPUT PUNCH 4 CARDS CONTAINING USER I.D.,
          DISTRIBUTION CODE AND 12-4-9 PUNCHES IN THE LAST
          10 COLUMNS.  EACH LETTER OF THE DISTRIBUTION CODE IS
          RIPPLED PUNCHED IN GROUPS OF FOUR STARTING IN
          COLUMN 19.

       EXAMPLE OF SEPARATOR CARD FOR USERID OF OPERATOR AND
       DISTRIBUTION CODE OF 12345678

Calls to Other Routines

       DMKIOSQR - TO START THE REAL PRINTER
       DMKCVTDT - TO OBTAIN THE DATE AND TIME OF OUTPUT
       DMKDSPCH - TO AWAIT PRINTER INTERRUPTS
       DMKPGTVG - TO GET A VIRTUAL BUFFER
       DMKPGTVR - TO RELEASE A VIRTUAL BUFFER
       DMKPTRUL - TO UNLOCK A LOCK BUFFER PAGE
       DMKCVTBH - TO CONVERT DEVICE ADDRESS
       DMKCVTBD - TO CONVERT SPOOLID AND RECORD COUNT
       DMKTCSSP - TO LOAD A 3800 PRINTER WITH FCB AND CHAR ARR
                  TABLE PRIOR TO PRINTING SEP PAGE