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