Table of Contents

MULTCB

Table Of Contents

  • [00004] MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
  • [00008] ACCESS MULTIPLE COMMUNICATION BLOCKS.

Source Code

MULTCB.txt 
  1.           IDENT  MULTCB
  2.           ENTRY  LOADCB
  3.           ENTRY  RELSCB
  4.           TITLE  MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
  5. *COMMENT  MULTCB - ACCESS MULTIPLE C.B.-S.
  6.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  7.           SPACE  4,10
  8. ***       MULTCB - ACCESS MULTIPLE COMMUNICATION BLOCKS.
  9. *         J.R. HOGUE.  74/11/06.
  10.           SPACE  4
  11. *CALL,COMCMAC
  12. *CALL,COMKMAC
  13. *CALL     COMSPRD
  14.  LOADCB   TITLE  READ MULTIPLE COMMUNICATION BLOCK INPUT.
  15. ***       LOADCB - READ MULTIPLE COMMUNICATION BLOCK INPUT.
  16. *
  17. *         CALL FORMAT -
  18. *
  19. *         FORTRAN EXTENDED
  20. *                CALL LOADCB(ADDR,LEN,STAT,REL)
  21. *         COBOL
  22. *                ENTER LOADCB USING ADDR STAT REL.
  23. *
  24. *         WHERE  ADDR = FWA TO LOAD THE COMMUNICATION BLOCK(S).
  25. *                LEN  = MAXIMUM AMOUNT OF DATA TO TRANSFER TO THE TASK.
  26. *                STAT = AMOUNT OF DATA TRANSFERED TO THE TASK.
  27. *                REL  = NONZERO TO RELEASE THE COMMUNICATION BLOCK(S).
  28.  
  29.  
  30.  LOADCB   SUBR               ENTRY/EXIT
  31.           SB1    1
  32.           SX6    X1          CHECK COBOL CALL
  33.           BX7    X1-X6
  34.           SA3    A1+1        READ LENGTH OR STATUS ADDRESS
  35.           NZ     X7,LOA3     IF COBOL CALL
  36.           SA2    X3          READ LENGTH
  37.           SA3    A3+1        ADDRESS OF STATUS WORD
  38.  LOA1     SA4    A3+B1       READ REL PARAMETER
  39.           MX7    1           REL BIT
  40.           SA5    X4
  41.           LX2    30
  42.           BX6    X6+X2
  43.           ZR     X5,LOA2     IF REL NOT REQUESTED
  44.           BX6    X7+X6
  45.  LOA2     SA6    LOAA        REQUEST CONTROL WORD
  46.           LOADCB LOAA        LOAD COMMUNICATION BLOCKS
  47.           SA6    X3          WRITE STATUS
  48.           JP     LOADCBX
  49.  
  50. *         COBOL BUFFER LENGTH IN CHARACTERS TO WORDS, DISCARD REMAINDERE
  51.  
  52.  LOA3     LX7    -36         BUFFER LENGTH IN CHARACTERS
  53.           SX4    X7
  54.           SX7    10D         DIVIDE BY 10 AND TRUNCATE
  55.           IX2    X4/X7
  56.           JP     LOA1
  57.  
  58.  LOAA     BSS    1
  59.  RELSCB   TITLE  RELEASE MULTIPLE COMMUNICATION BLOCK(S).
  60. ***       RELSCB - RELEASE THE MULTIPLE COMMUNICATION BLOCK(S) USED TO
  61. *         CONTAIN LARGE TRANSACTION INPUTS.
  62. *
  63. *         CALL FORMAT -
  64. *
  65. *         FORTRAN EXTENDED
  66. *                CALL RELSCB
  67. *         COBOL
  68. *                ENTER RELSCB.
  69.  
  70.  
  71.  RELSCB   SUBR               ENTRY/EXIT
  72.           RELSCB             RELEASE ANY EXTRA COMMUNICTION BLOCKS
  73.           EQ     RELSCBX     RETURN
  74.  
  75.  
  76.           END