Deck MULTCB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.multcb  +++|          IDENT  MULTCB
00002  M00S00002.multcb  +++|          ENTRY  LOADCB
00003  M00S00003.multcb  +++|          ENTRY  RELSCB

Line S00004 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.ns2440  ---|*COMMENT  ACCESS MULTIPLE COMMUNICATION BLOCKS.

Line S00001 Modification History
`M01` (Added by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.ns2440  +++|          TITLE  MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
00006  M01S00002.ns2440  +++|*COMMENT  MULTCB - ACCESS MULTIPLE C.B.-S.

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Line S00006 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00006.ns2440  ---| MULTCB   TITLE  MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
00010  M01S00007.ns2440  ---|          SPACE  4

Line S00003 Modification History
`M01` (Added by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00003.ns2440  +++|          SPACE  4,10
00012  M00S00008.multcb  +++|***       MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
00013  M00S00009.multcb  +++|*         J.R. HOGUE.  74/11/06.
00014  M00S00010.multcb  +++|          SPACE  4
00015  M00S00011.multcb  +++|*CALL,COMCMAC
00016  M00S00012.multcb  +++|*CALL,COMKMAC
00017  M00S00013.multcb  +++|*CALL     COMSPRD
00018  M00S00014.multcb  +++| LOADCB   TITLE  READ MULTIPLE COMMUNICATION BLOCK INPUT.
00019  M00S00015.multcb  +++|***       LOADCB - READ MULTIPLE COMMUNICATION BLOCK INPUT.
00020  M00S00016.multcb  +++|*
00021  M00S00017.multcb  +++|*         CALL FORMAT -
00022  M00S00018.multcb  +++|*
00023  M00S00019.multcb  +++|*         FORTRAN EXTENDED
00024  M00S00020.multcb  +++|*                CALL LOADCB(ADDR,LEN,STAT,REL)
00025  M00S00021.multcb  +++|*         COBOL
00026  M00S00022.multcb  +++|*                ENTER LOADCB USING ADDR STAT REL.
00027  M00S00023.multcb  +++|*
00028  M00S00024.multcb  +++|*         WHERE  ADDR = FWA TO LOAD THE COMMUNICATION BLOCK(S).
00029  M00S00025.multcb  +++|*                LEN  = MAXIMUM AMOUNT OF DATA TO TRANSFER TO THE TASK.
00030  M00S00026.multcb  +++|*                STAT = AMOUNT OF DATA TRANSFERED TO THE TASK.
00031  M00S00027.multcb  +++|*                REL  = NONZERO TO RELEASE THE COMMUNICATION BLOCK(S).
00032  M00S00028.multcb  +++|
00033  M00S00029.multcb  +++|
00034  M00S00030.multcb  +++| LOADCB   SUBR               ENTRY/EXIT
00035  M00S00031.multcb  +++|          SB1    1
00036  M00S00032.multcb  +++|          SX6    X1          CHECK COBOL CALL
00037  M00S00033.multcb  +++|          BX7    X1-X6
00038  M00S00034.multcb  +++|          SA3    A1+1        READ LENGTH OR STATUS ADDRESS
00039  M00S00035.multcb  +++|          NZ     X7,LOA3     IF COBOL CALL
00040  M00S00036.multcb  +++|          SA2    X3          READ LENGTH
00041  M00S00037.multcb  +++|          SA3    A3+1        ADDRESS OF STATUS WORD
00042  M00S00038.multcb  +++| LOA1     SA4    A3+B1       READ REL PARAMETER
00043  M00S00039.multcb  +++|          MX7    1           REL BIT
00044  M00S00040.multcb  +++|          SA5    X4
00045  M00S00041.multcb  +++|          LX2    30
00046  M00S00042.multcb  +++|          BX6    X6+X2
00047  M00S00043.multcb  +++|          ZR     X5,LOA2     IF REL NOT REQUESTED
00048  M00S00044.multcb  +++|          BX6    X7+X6
00049  M00S00045.multcb  +++| LOA2     SA6    LOAA        REQUEST CONTROL WORD
00050  M00S00046.multcb  +++|          LOADCB LOAA        LOAD COMMUNICATION BLOCKS
00051  M00S00047.multcb  +++|          SA6    X3          WRITE STATUS
00052  M00S00048.multcb  +++|          JP     LOADCBX
00053  M00S00049.multcb  +++|
00054  M00S00050.multcb  +++|*         COBOL BUFFER LENGTH IN CHARACTERS TO WORDS, DISCARD REMAINDERE
00055  M00S00051.multcb  +++|
00056  M00S00052.multcb  +++| LOA3     LX7    -36         BUFFER LENGTH IN CHARACTERS
00057  M00S00053.multcb  +++|          SX4    X7
00058  M00S00054.multcb  +++|          SX7    10D         DIVIDE BY 10 AND TRUNCATE
00059  M00S00055.multcb  +++|          IX2    X4/X7
00060  M00S00056.multcb  +++|          JP     LOA1
00061  M00S00057.multcb  +++|
00062  M00S00058.multcb  +++| LOAA     BSS    1
00063  M00S00059.multcb  +++| RELSCB   TITLE  RELEASE MULTIPLE COMMUNICATION BLOCK(S).
00064  M00S00060.multcb  +++|***       RELSCB - RELEASE THE MULTIPLE COMMUNICATION BLOCK(S) USED TO
00065  M00S00061.multcb  +++|*         CONTAIN LARGE TRANSACTION INPUTS.
00066  M00S00062.multcb  +++|*
00067  M00S00063.multcb  +++|*         CALL FORMAT -
00068  M00S00064.multcb  +++|*
00069  M00S00065.multcb  +++|*         FORTRAN EXTENDED
00070  M00S00066.multcb  +++|*                CALL RELSCB
00071  M00S00067.multcb  +++|*         COBOL
00072  M00S00068.multcb  +++|*                ENTER RELSCB.
00073  M00S00069.multcb  +++|
00074  M00S00070.multcb  +++|
00075  M00S00071.multcb  +++| RELSCB   SUBR               ENTRY/EXIT
00076  M00S00072.multcb  +++|          RELSCB             RELEASE ANY EXTRA COMMUNICTION BLOCKS
00077  M00S00073.multcb  +++|          EQ     RELSCBX     RETURN
00078  M00S00074.multcb  +++|
00079  M00S00075.multcb  +++|
00080  M00S00076.multcb  +++|          END