Deck BEGIN

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.begin   +++|          IDENT  BEGIN
00002  M01S00002.begin   +++|          ENTRY  BEGIN
00003  M01S00003.begin   +++|          SYSCOM B1

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.ns2440  ---| BEGIN    TITLE  TRANSFER PRIMARY COMMUNICATION BLOCK.

Line S00005 Modification History
`M01` (Added by)	`begin`
`M02` (Updated by)	`ns2440`

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

Line S00006 Modification History
`M01` (Added by)	`begin`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.     1979.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00007.begin   +++|          SPACE  4
00011  M01S00008.begin   +++|*****     BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00012  M01S00009.begin   +++|*
00013  M01S00010.begin   +++|*         W.E. MARTIN.       79/03/30.
00014  M01S00011.begin   +++|          SPACE  4
00015  M01S00012.begin   +++|*         COMMOM TEXT.
00016  M01S00013.begin   +++|
00017  M01S00014.begin   +++|
00018  M01S00015.begin   +++|*CALL     COMCMAC
00019  M01S00016.begin   +++|*CALL     COMKMAC
00020  M01S00017.begin   +++|*CALL     COMSPRD
00021  M01S00018.begin   +++| BEGIN    SPACE  4,30
00022  M01S00019.begin   +++|***       BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00023  M01S00020.begin   +++|*
00024  M01S00021.begin   +++|*         *BEGIN* ALLOWS A TASK TO SPECIFY THE FWA OF IT-S
00025  M01S00022.begin   +++|*         COMMUNICATION BLOCK AREA AND REBY FREE THE RESTRICTION ON THE
00026  M01S00023.begin   +++|*         THE IMPLEMENTATION LANGUAGE TO RESERVE THE FIRST WORD ADDRESS
00027  M01S00024.begin   +++|*         OF THE LOAD FOR THE TRANSACTION EXECUTIVE.  DUE TO THE EXTRA
00028  M01S00025.begin   +++|*         OVERHEAD INCURRED WHEN THIS OPERATION IS EXECUTED, BEGIN
00029  M01S00026.begin   +++|*         IS NOT SUGGESTED FOR GENERAL USE EXCEPT IN THOSE CASES
00030  M01S00027.begin   +++|*         WHERE IT MUST BE USED TO ALLOW A PROGRAMMING LANGUAGE TO
00031  M01S00028.begin   +++|*         INTERFACE TO THE TRANSACTION SUB-SYSTEM.  ALSO, THE *BEGIN*
00032  M01S00029.begin   +++|*         FUNCTION MUST BE ISSUED AFTER EACH *CALLRTN* IN ORDER
00033  M01S00030.begin   +++|*         TO OBTAIN THE RESULTS OF THE CALLED TASK.
00034  M01S00031.begin   +++|*
00035  M01S00032.begin   +++|*         CALL FORMAT -
00036  M01S00033.begin   +++|*
00037  M01S00034.begin   +++|*         FORTRAN EXTENDED - CALL BEGIN ( ADDR )
00038  M01S00035.begin   +++|*
00039  M01S00036.begin   +++|*         COBOL - ENTER BEGIN USING ADDR.
00040  M01S00037.begin   +++|*
00041  M01S00038.begin   +++|*         WHERE - ADDR = FIRST WORD ARDDRESS OF AN ARRAY OR DATA ITEM
00042  M01S00039.begin   +++|*                        TO WHICH THE PRIMARY TERMINAL COMMUNICATION
00043  M01S00040.begin   +++|*                        BLOCK IS TO BE DELIVERED.
00044  M01S00041.begin   +++|*
00045  M01S00042.begin   +++|*
00046  M01S00043.begin   +++|*         USES   A - 1, 2, 6.
00047  M01S00044.begin   +++|*                X - 0, 1, 2, 6.
00048  M01S00045.begin   +++|*                B - 1.
00049  M01S00046.begin   +++|*
00050  M01S00047.begin   +++|*         MACROS ARGERR, BEGIN.
00051  M01S00048.begin   +++|
00052  M01S00049.begin   +++|
00053  M01S00050.begin   +++|          VFD    42/0LBEGIN,18/BEGIN
00054  M01S00051.begin   +++|
00055  M01S00052.begin   +++| BEGIN    SUBR               ENTRY/EXIT
00056  M01S00053.begin   +++|          SB1    1
00057  M01S00054.begin   +++|          ZR     X1,BGN1     IF NO ARGUMENTS - ABORT TASK
00058  M01S00055.begin   +++|          SX1    X1
00059  M01S00056.begin   +++|
00060  M01S00057.begin   +++|*         ISSUE BEGIN REQUEST.
00061  M01S00058.begin   +++|
00062  M01S00059.begin   +++|          BEGIN  X1
00063  M01S00060.begin   +++|          EQ     BEGINX      RETURN
00064  M01S00061.begin   +++|
00065  M01S00062.begin   +++|*         PROCESS ARGUMENT ERROR.
00066  M01S00063.begin   +++|
00067  M01S00064.begin   +++| BGN1     SA1    BEGIN       READ CALLING ADDRESS
00068  M01S00065.begin   +++|          MX0    30
00069  M01S00066.begin   +++|          LX1    30
00070  M01S00067.begin   +++|          SA2    X1-1        READ CALLING LINE NUMBER
00071  M01S00068.begin   +++|          BX6    -X0*X2
00072  M01S00069.begin   +++|          SA6    BGNA
00073  M01S00070.begin   +++|          ARGERR A6          EXIT TO EXECUTIVE
00074  M01S00071.begin   +++|
00075  M01S00072.begin   +++| BGNA     BSS    1           STORAGE FOR ARGERR PARAMETER
00076  M01S00073.begin   +++|          SPACE  4
00077  M01S00074.begin   +++|          END