Type ASSEMBLE
Source Lines : 2,290
Fixes Applied : 4
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC101DK]

Module

       DMKRNH

Function

       TO INITIALIZE THE CONTASK FIELDS WHICH COMPRISE THE
       370X NETWORK CONTROL PROGRAM BASIC TRANSMISSION HEADER

Attributes

       SERIALLY REUSEABLE, RESIDENT, ENTERED VIA GOTO

Operation

       1. IF THE 370X IS NOT AVAILABLE, EXIT.

       2. IF THERE ARE NO MORE CONTASK'S TO BE PROCESSED,
          ATTEMPT TO START OUTPUT TO THE 370X VIA RNSTART.

       3. IF THE RESOURCE SPECIFIED BY THE VMTRMID FIELD IN
          THE VMBLOK (FROM 'CONUSER') IS NOT AVAILABLE, SET
          RETURN CODE 12 IN THE RESPONSE SAVEAREA (IF ANY),
          AND RETURN THE CONTASK VIA CALL DMKQCNET.

       4. WRITE TASK - SET CONTCMD TO WRITNRM, SET WRTSTPR
          IN CONDFLG. IF LOGDROP OR LOGHOLD SPECIFIED, OR IF
          CONRESP OR CONSPLT IS SET, TURN OFF WRTSTPR. IF
          LOGDROP IS SET, CHANGE COMMAND TO WRITEOT. FOR
          LOGHOLD, SET COMMAND TO WRITDSC.

       5. READ TASK - SET CONTCMD TO READNRM. IF INHIBIT
          WAS SPECIFIED, AND NICPSUP IS NOT SET, OR NICTYPE
          IS NICTELE, BUILD A CONTASK TO WRITE A MASKING
          STRING PRIOR TO ISSUING THE READ. INITIALIZE BOTH
          THE READ TASK AND THE WRITE MASK TASK.
          IF NICPSUP IS SET, BUILD A CONTASK TO SEND BYPASS
          CHARACTER (X'24'), THEN READ, THEN SEND RESTORE
          CHARACTER (X'14'). INITIALIZE ALL THREE TASKS.

       6. ATTEMPT TO START OUTPUT TO THE 370X. IF THE 370X
          IS EITHER NOT READY OR ALREADY BUSY, EXIT.
          OTHERWISE, SCAN THE ENTIRE NICLIST LOOKING FOR
          CONTASK'S TO BE SENT TO THE 370X. AS MANY CONTASK'S
          AS POSSIBLE ARE SENT WITH A SINGLE CALL TO DMKIOSQR.

Calls to Other Routines

       DMKFREE  - TO ALLOCATE FREE STORAGE FOR CONTASK'S