Deck MULTCB

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.multcb  +++|          IDENT  MULTCB
00002  M01S00002.multcb  +++|          ENTRY  LOADCB
00003  M01S00003.multcb  +++|          ENTRY  RELSCB

Line S00004 Modification History
`M01` (Added by)	`multcb`
`M02` (Updated by)	`ns2440`

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

Line S00005 Modification History
`M01` (Added by)	`multcb`
`M02` (Updated by)	`281l803`

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

Line S00006 Modification History
`M01` (Added by)	`multcb`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00006.ns2440  ---| MULTCB   TITLE  MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.

Line S00007 Modification History
`M01` (Added by)	`multcb`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00007.ns2440  ---|          SPACE  4
00011  M01S00003.ns2440  +++|          SPACE  4,10
00012  M01S00008.multcb  +++|***       MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
00013  M01S00009.multcb  +++|*         J.R. HOGUE.  74/11/06.
00014  M01S00010.multcb  +++|          SPACE  4
00015  M01S00011.multcb  +++|*CALL,COMCMAC
00016  M01S00012.multcb  +++|*CALL,COMKMAC
00017  M01S00013.multcb  +++|*CALL     COMSPRD
00018  M01S00014.multcb  +++| LOADCB   TITLE  READ MULTIPLE COMMUNICATION BLOCK INPUT.
00019  M01S00015.multcb  +++|***       LOADCB - READ MULTIPLE COMMUNICATION BLOCK INPUT.
00020  M01S00016.multcb  +++|*
00021  M01S00017.multcb  +++|*         CALL FORMAT -
00022  M01S00018.multcb  +++|*
00023  M01S00019.multcb  +++|*         FORTRAN EXTENDED
00024  M01S00020.multcb  +++|*                CALL LOADCB(ADDR,LEN,STAT,REL)
00025  M01S00021.multcb  +++|*         COBOL
00026  M01S00022.multcb  +++|*                ENTER LOADCB USING ADDR STAT REL.
00027  M01S00023.multcb  +++|*
00028  M01S00024.multcb  +++|*         WHERE  ADDR = FWA TO LOAD THE COMMUNICATION BLOCK(S).
00029  M01S00025.multcb  +++|*                LEN  = MAXIMUM AMOUNT OF DATA TO TRANSFER TO THE TASK.
00030  M01S00026.multcb  +++|*                STAT = AMOUNT OF DATA TRANSFERED TO THE TASK.
00031  M01S00027.multcb  +++|*                REL  = NONZERO TO RELEASE THE COMMUNICATION BLOCK(S).
00032  M01S00028.multcb  +++|
00033  M01S00029.multcb  +++|
00034  M01S00030.multcb  +++| LOADCB   SUBR               ENTRY/EXIT
00035  M01S00031.multcb  +++|          SB1    1
00036  M01S00032.multcb  +++|          SX6    X1          CHECK COBOL CALL
00037  M01S00033.multcb  +++|          BX7    X1-X6
00038  M01S00034.multcb  +++|          SA3    A1+1        READ LENGTH OR STATUS ADDRESS
00039  M01S00035.multcb  +++|          NZ     X7,LOA3     IF COBOL CALL
00040  M01S00036.multcb  +++|          SA2    X3          READ LENGTH
00041  M01S00037.multcb  +++|          SA3    A3+1        ADDRESS OF STATUS WORD
00042  M01S00038.multcb  +++| LOA1     SA4    A3+B1       READ REL PARAMETER
00043  M01S00039.multcb  +++|          MX7    1           REL BIT
00044  M01S00040.multcb  +++|          SA5    X4
00045  M01S00041.multcb  +++|          LX2    30
00046  M01S00042.multcb  +++|          BX6    X6+X2
00047  M01S00043.multcb  +++|          ZR     X5,LOA2     IF REL NOT REQUESTED
00048  M01S00044.multcb  +++|          BX6    X7+X6
00049  M01S00045.multcb  +++| LOA2     SA6    LOAA        REQUEST CONTROL WORD
00050  M01S00046.multcb  +++|          LOADCB LOAA        LOAD COMMUNICATION BLOCKS
00051  M01S00047.multcb  +++|          SA6    X3          WRITE STATUS
00052  M01S00048.multcb  +++|          JP     LOADCBX
00053  M01S00049.multcb  +++|
00054  M01S00050.multcb  +++|*         COBOL BUFFER LENGTH IN CHARACTERS TO WORDS, DISCARD REMAINDERE
00055  M01S00051.multcb  +++|
00056  M01S00052.multcb  +++| LOA3     LX7    -36         BUFFER LENGTH IN CHARACTERS
00057  M01S00053.multcb  +++|          SX4    X7
00058  M01S00054.multcb  +++|          SX7    10D         DIVIDE BY 10 AND TRUNCATE
00059  M01S00055.multcb  +++|          IX2    X4/X7
00060  M01S00056.multcb  +++|          JP     LOA1
00061  M01S00057.multcb  +++|
00062  M01S00058.multcb  +++| LOAA     BSS    1
00063  M01S00059.multcb  +++| RELSCB   TITLE  RELEASE MULTIPLE COMMUNICATION BLOCK(S).
00064  M01S00060.multcb  +++|***       RELSCB - RELEASE THE MULTIPLE COMMUNICATION BLOCK(S) USED TO
00065  M01S00061.multcb  +++|*         CONTAIN LARGE TRANSACTION INPUTS.
00066  M01S00062.multcb  +++|*
00067  M01S00063.multcb  +++|*         CALL FORMAT -
00068  M01S00064.multcb  +++|*
00069  M01S00065.multcb  +++|*         FORTRAN EXTENDED
00070  M01S00066.multcb  +++|*                CALL RELSCB
00071  M01S00067.multcb  +++|*         COBOL
00072  M01S00068.multcb  +++|*                ENTER RELSCB.
00073  M01S00069.multcb  +++|
00074  M01S00070.multcb  +++|
00075  M01S00071.multcb  +++| RELSCB   SUBR               ENTRY/EXIT
00076  M01S00072.multcb  +++|          RELSCB             RELEASE ANY EXTRA COMMUNICTION BLOCKS
00077  M01S00073.multcb  +++|          EQ     RELSCBX     RETURN
00078  M01S00074.multcb  +++|
00079  M01S00075.multcb  +++|
00080  M01S00076.multcb  +++|          END