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