Deck BEGIN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.begin   +++|          IDENT  BEGIN
00002  M00S00002.begin   +++|          ENTRY  BEGIN
00003  M00S00003.begin   +++|          SYSCOM B1

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.ns2440  ---| BEGIN    TITLE  TRANSFER PRIMARY COMMUNICATION BLOCK.
00005  M01S00005.ns2440  ---|*COMMENT  TRANSFER PRIMARY COMMUNICATION BLOCK.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2440  +++|          TITLE  BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00007  M01S00002.ns2440  +++|*COMMENT  BEGIN - TRANSFER PRIMARY C.B.

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

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.     1979.

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

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M00S00007.begin   +++|          SPACE  4
00011  M00S00008.begin   +++|*****     BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00012  M00S00009.begin   +++|*
00013  M00S00010.begin   +++|*         W.E. MARTIN.       79/03/30.
00014  M00S00011.begin   +++|          SPACE  4
00015  M00S00012.begin   +++|*         COMMOM TEXT.
00016  M00S00013.begin   +++|
00017  M00S00014.begin   +++|
00018  M00S00015.begin   +++|*CALL     COMCMAC
00019  M00S00016.begin   +++|*CALL     COMKMAC
00020  M00S00017.begin   +++|*CALL     COMSPRD
00021  M00S00018.begin   +++| BEGIN    SPACE  4,30
00022  M00S00019.begin   +++|***       BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00023  M00S00020.begin   +++|*
00024  M00S00021.begin   +++|*         *BEGIN* ALLOWS A TASK TO SPECIFY THE FWA OF IT-S
00025  M00S00022.begin   +++|*         COMMUNICATION BLOCK AREA AND REBY FREE THE RESTRICTION ON THE
00026  M00S00023.begin   +++|*         THE IMPLEMENTATION LANGUAGE TO RESERVE THE FIRST WORD ADDRESS
00027  M00S00024.begin   +++|*         OF THE LOAD FOR THE TRANSACTION EXECUTIVE.  DUE TO THE EXTRA
00028  M00S00025.begin   +++|*         OVERHEAD INCURRED WHEN THIS OPERATION IS EXECUTED, BEGIN
00029  M00S00026.begin   +++|*         IS NOT SUGGESTED FOR GENERAL USE EXCEPT IN THOSE CASES
00030  M00S00027.begin   +++|*         WHERE IT MUST BE USED TO ALLOW A PROGRAMMING LANGUAGE TO
00031  M00S00028.begin   +++|*         INTERFACE TO THE TRANSACTION SUB-SYSTEM.  ALSO, THE *BEGIN*
00032  M00S00029.begin   +++|*         FUNCTION MUST BE ISSUED AFTER EACH *CALLRTN* IN ORDER
00033  M00S00030.begin   +++|*         TO OBTAIN THE RESULTS OF THE CALLED TASK.
00034  M00S00031.begin   +++|*
00035  M00S00032.begin   +++|*         CALL FORMAT -
00036  M00S00033.begin   +++|*
00037  M00S00034.begin   +++|*         FORTRAN EXTENDED - CALL BEGIN ( ADDR )
00038  M00S00035.begin   +++|*
00039  M00S00036.begin   +++|*         COBOL - ENTER BEGIN USING ADDR.
00040  M00S00037.begin   +++|*
00041  M00S00038.begin   +++|*         WHERE - ADDR = FIRST WORD ARDDRESS OF AN ARRAY OR DATA ITEM
00042  M00S00039.begin   +++|*                        TO WHICH THE PRIMARY TERMINAL COMMUNICATION
00043  M00S00040.begin   +++|*                        BLOCK IS TO BE DELIVERED.
00044  M00S00041.begin   +++|*
00045  M00S00042.begin   +++|*
00046  M00S00043.begin   +++|*         USES   A - 1, 2, 6.
00047  M00S00044.begin   +++|*                X - 0, 1, 2, 6.
00048  M00S00045.begin   +++|*                B - 1.
00049  M00S00046.begin   +++|*
00050  M00S00047.begin   +++|*         MACROS ARGERR, BEGIN.
00051  M00S00048.begin   +++|
00052  M00S00049.begin   +++|
00053  M00S00050.begin   +++|          VFD    42/0LBEGIN,18/BEGIN
00054  M00S00051.begin   +++|
00055  M00S00052.begin   +++| BEGIN    SUBR               ENTRY/EXIT
00056  M00S00053.begin   +++|          SB1    1
00057  M00S00054.begin   +++|          ZR     X1,BGN1     IF NO ARGUMENTS - ABORT TASK
00058  M00S00055.begin   +++|          SX1    X1
00059  M00S00056.begin   +++|
00060  M00S00057.begin   +++|*         ISSUE BEGIN REQUEST.
00061  M00S00058.begin   +++|
00062  M00S00059.begin   +++|          BEGIN  X1
00063  M00S00060.begin   +++|          EQ     BEGINX      RETURN
00064  M00S00061.begin   +++|
00065  M00S00062.begin   +++|*         PROCESS ARGUMENT ERROR.
00066  M00S00063.begin   +++|
00067  M00S00064.begin   +++| BGN1     SA1    BEGIN       READ CALLING ADDRESS
00068  M00S00065.begin   +++|          MX0    30
00069  M00S00066.begin   +++|          LX1    30
00070  M00S00067.begin   +++|          SA2    X1-1        READ CALLING LINE NUMBER
00071  M00S00068.begin   +++|          BX6    -X0*X2
00072  M00S00069.begin   +++|          SA6    BGNA
00073  M00S00070.begin   +++|          ARGERR A6          EXIT TO EXECUTIVE
00074  M00S00071.begin   +++|
00075  M00S00072.begin   +++| BGNA     BSS    1           STORAGE FOR ARGERR PARAMETER
00076  M00S00073.begin   +++|          SPACE  4
00077  M00S00074.begin   +++|          END